156 lines
5.0 KiB
NASM
156 lines
5.0 KiB
NASM
; *******************************************
|
|
; * PAT80 COMPOSITE PAL VIDEO ADAPTER *
|
|
; * Character generator module *
|
|
; *******************************************
|
|
|
|
; This module generates the character pixels using the font present in rom
|
|
; and adds it on the framebuffer in the position indicated by POS_COARSE (Y).
|
|
|
|
.equ LINE_COLUMNS = 46 ; number of columns (characters or chunks) per line
|
|
|
|
; Draws character in register A to the screen at current coords (Y)
|
|
; @param r16 (HIGH_ACCUM) ascii code to display
|
|
; @modifies r0 (A), r1, r2, r3, r16 (HIGH_ACCUM), r17, Y, Z
|
|
draw_char:
|
|
; Glyph's first byte is at:
|
|
; glyph_pointer = font_starting_mem_pos + (ascii_code * number_of_bytes_per_font)
|
|
; But all the fonts are 1 byte large, so a glyph is 1*height bytes:
|
|
; glyph_pointer = FONT + (ascii_code * FONT_HEIGHT)
|
|
|
|
; Save current chunk cursor position (Y)
|
|
mov r2, YL
|
|
mov r3, YH
|
|
|
|
; Load first glyph position on Z
|
|
ldi ZH, high(FONT<<1)
|
|
ldi ZL, low(FONT<<1)
|
|
; Obtain offset multiplying ascii_code * number_of_bytes_per_font
|
|
ldi r17, FONT_HEIGHT
|
|
mul HIGH_ACCUM, r17 ; result overwrites r0 and r1!
|
|
; 16-bit addition between gliph's first byte position and offset (and store result in Z) to obtain our glyph position
|
|
add ZL, r0
|
|
adc ZH, r1
|
|
; Z contain our glyph's first byte position: draw it
|
|
; The drawing consist of FONT_HEIGHT cycles. Every glyph byte is placed on its own line
|
|
; on screen. To do this, we place it LINE_COLUMNS bytes after the previous one.
|
|
ldi HIGH_ACCUM, FONT_HEIGHT
|
|
draw_char_loop:
|
|
; Load glyph line byte from program memory (and point to the next)
|
|
lpm r1, Z+
|
|
; Write glyph line to framebuffer at chunk cursor position (Y)
|
|
st Y, r1
|
|
; Increment chunk cursor position (Y) to next line of the same char column
|
|
adiw YH:YL,LINE_COLUMNS
|
|
; Decrement loop counter and exit if reached 0
|
|
dec HIGH_ACCUM
|
|
brne draw_char_loop
|
|
|
|
; Char drawing is complete. Increment cursor position
|
|
inc POS_COLUMN
|
|
; Check if end of line
|
|
cpi POS_COLUMN, LINE_COLUMNS
|
|
breq draw_char_eol
|
|
; Reset chunk position to first glyph line of next column
|
|
mov YL, r2 ; first restore Y
|
|
mov YH, r3
|
|
adiw YH:YL,1 ; just increment pre-char-drawing-saved chunk cursor position by 1
|
|
ret
|
|
draw_char_eol:
|
|
; end of line
|
|
adiw YH:YL,1 ; increment chunk cursor position by 1 (begin of next line on screen)
|
|
clr POS_COLUMN ; reset column to 0
|
|
; check if reached end of screen
|
|
cpi POS_ROWP, SCREEN_HEIGHT-FONT_HEIGHT
|
|
breq draw_char_eos
|
|
; if not end of screen, increment row
|
|
ldi HIGH_ACCUM, FONT_HEIGHT
|
|
add POS_ROWP, HIGH_ACCUM
|
|
ret
|
|
draw_char_eos:
|
|
; end of screen: scroll screen but leave line pointer to last line
|
|
call scroll_screen
|
|
ret
|
|
|
|
; Sets the cursor to 0,0 and clears fine position
|
|
cursor_pos_home:
|
|
; Set all positions to 0
|
|
clr POS_COLUMN
|
|
clr POS_ROWP
|
|
clr POS_FINE
|
|
; Load framebuffer start position to Y
|
|
ldi YH, high(FRAMEBUFFER)
|
|
ldi YL, low(FRAMEBUFFER)
|
|
ret
|
|
|
|
; Updates framebuffer pointer (Y) to point to current text cursor position (POS_COLUMN, POS_ROWP)
|
|
; Usage:
|
|
; ldi POS_COLUMN, 10
|
|
; ldi POS_ROWP, 13
|
|
; call set_framebuffer_pointer_to_text_cursor
|
|
; @modifies Y, R0, R1
|
|
set_framebuffer_pointer_to_text_cursor:
|
|
; Load framebuffer start position to Y
|
|
ldi YH, high(FRAMEBUFFER)
|
|
ldi YL, low(FRAMEBUFFER)
|
|
; Obtain offset between 0,0 and current cursor position
|
|
mul POS_COLUMN, POS_ROWP ; result is in r1,r0
|
|
; Sum offset to Y
|
|
add YL, r0
|
|
adc YH, r1
|
|
ret
|
|
|
|
|
|
|
|
; Draws a newline
|
|
; Moves cursor to start of following screen line
|
|
; Takes care of particular cases, i.e. end of screen (shifts all screen up by one line)
|
|
draw_carriage_return:
|
|
; Set memory pointer to start of line
|
|
sub YL, POS_COLUMN
|
|
sbci YH, 0
|
|
; Set cursor to start of current line
|
|
clr POS_COLUMN
|
|
; Go to next line
|
|
ldi HIGH_ACCUM, high(LINE_COLUMNS*FONT_HEIGHT)
|
|
add YH, HIGH_ACCUM
|
|
ldi HIGH_ACCUM, low(LINE_COLUMNS*FONT_HEIGHT)
|
|
adc YL, HIGH_ACCUM
|
|
; Update row pointer
|
|
ldi HIGH_ACCUM, FONT_HEIGHT
|
|
add POS_ROWP, HIGH_ACCUM
|
|
ret
|
|
|
|
; Scrolls the screen by one line (=LINE_COLUMNS*FONT_HEIGHT bytes)
|
|
; and clears the last line (FRAMEBUFFER_END - LINE_COLUMNS*FONT_HEIGHT bytes)
|
|
; @uses A, Z
|
|
scroll_screen:
|
|
clr POS_COLUMN ; cursor to first column
|
|
; "Read" Pointer to first char of second line
|
|
ldi YH, high(FRAMEBUFFER+LINE_COLUMNS*FONT_HEIGHT)
|
|
ldi YL, low(FRAMEBUFFER+LINE_COLUMNS*FONT_HEIGHT)
|
|
; "Write" Pointer to first char of first line
|
|
ldi XH, high(FRAMEBUFFER)
|
|
ldi XL, low(FRAMEBUFFER)
|
|
; Copy data
|
|
scroll_screen_copy_loop:
|
|
ld A, Y+
|
|
st Z+, A
|
|
cpi r31, high(FRAMEBUFFER_END-LINE_COLUMNS*FONT_HEIGHT)
|
|
brne scroll_screen_copy_loop
|
|
cpi r30, low(FRAMEBUFFER_END-LINE_COLUMNS*FONT_HEIGHT)
|
|
brne scroll_screen_copy_loop
|
|
; All the lines have been "shifted" up by one line.
|
|
; The first line is lost and the last is duplicate. Clear the last.
|
|
clr A
|
|
scroll_screen_clear_loop:
|
|
st Z+, A
|
|
cpi r31, high(FRAMEBUFFER_END)
|
|
brne scroll_screen_clear_loop
|
|
cpi r30, low(FRAMEBUFFER_END)
|
|
brne scroll_screen_clear_loop
|
|
; Last line cleared. Leave cursor pointer to last line start
|
|
ldi YH, high(FRAMEBUFFER_END-LINE_COLUMNS*FONT_HEIGHT)
|
|
ldi YL, low(FRAMEBUFFER_END-LINE_COLUMNS*FONT_HEIGHT)
|
|
ret
|
|
|