Code: Select all
Disp:
LD IX, sprite
LD B, 15
Loop:
LD C, (IX) ;Write current row to registers
INC IX
LD D, (IX)
INC IX
LD E, 0
LD A, (xbyte)
Shift: ;Shift row to straddle bytes
CP 0
JR Z, EndShift
SRL C
RR D
RR E
DEC A
JR Shift
EndShift:
LD (HL), C ;Load in row
INC HL
LD (HL), D
INC HL
LD (HL), E
INC HL ;Get new row
INC HL
INC HL
INC HL
INC HL
INC HL
INC HL
INC HL
INC HL
INC HL
DEC B
JR NZ, Loop
RET