ti/lcd: wrap rows on overflow

This commit is contained in:
Virgil Dupras 2019-11-09 08:01:42 -05:00
parent b27a71cb88
commit 6a70a0e5e6
1 changed files with 15 additions and 5 deletions

View File

@ -2,6 +2,11 @@
;
; Implement PutC on TI-84+ (for now)'s LCD screen.
;
; The screen is 96x64 pixels. The 64 rows are addressed directly with CMD_ROW
; but columns are addressed in chunks of 6 or 8 bits (there are two modes).
;
; In 6-bit mode, there are 16 visible columns. In 8-bit mode, there are 12.
;
; Note that "X-increment" and "Y-increment" work in the opposite way than what
; most people expect. Y moves left and right, X moves up and down.
;
@ -45,7 +50,7 @@ lcdInit:
ld a, LCD_CMD_ENABLE
call lcdCmd
; Hack to get LCD to work. According to WikiTI, we're to sure why TIOS
; Hack to get LCD to work. According to WikiTI, we're not sure why TIOS
; sends these, but it sends it, and it is required to make the LCD
; work. So...
ld a, 0x17
@ -152,14 +157,19 @@ lcdLinefeed:
push af
ld a, (LCD_CURROW)
add a, FNT_HEIGHT+1
cp 64
jr c, .nowrap ; A < 96? no wrap
; we have to wrap around to the top row
xor a
.nowrap:
ld (LCD_CURROW), a
call lcdClrLn
xor a
ld (LCD_CURCOL), a
pop af
ret
; Clears B rows starting at row A
; The LCD will then be set back at row A, column 0
; B is not preserved by this routine
lcdClrX:
push af