1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 17:18:05 +11:00

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

This commit is contained in:
Virgil Dupras 2019-11-10 22:07:44 -05:00
parent 2bff486cd2
commit 30d6fdb16b

View File

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