izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 20:08:06 +11:00
Code Issues Releases Wiki Activity

ti/lcd: use brand new support for IX in SRL and RR

Browse Source
This commit is contained in:
Virgil Dupras 2019-11-10 22:07:44 -05:00
parent 2bff486cd2
commit 30d6fdb16b
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
kernel/ti/lcd.asm
View File

@ -258,17 +258,12 @@ lcdSendGlyph:
ret z ; zero? nothing to do ret z ; zero? nothing to do
push bc ; --> lvl 1 push bc ; --> lvl 1
xor a xor a
ld b, a ld (ix+FNT_HEIGHT), a
ld a, (ix)
; TODO: support SRL (IX) and RR (IX) in zasm
.shiftLoop: .shiftLoop:
srl a srl (ix)
rr b rr (ix+FNT_HEIGHT)
dec c dec c
jr nz, .shiftLoop jr nz, .shiftLoop
ld (ix), a
ld a, b
ld (ix+FNT_HEIGHT), a
pop bc ; <-- lvl 1 pop bc ; <-- lvl 1
ret ret