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:
parent
2bff486cd2
commit
30d6fdb16b
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user