Prev: EC26 Up: Map Next: ECBD
ECA4: Flash the teleporter
Used by the routine at E663.
Input
IY Pointer to current teleporter's data
A Attribute to use
ECA4 LD L,(IY+$01) Put the co-ordinates in HL.
ECA7 LD H,(IY+$02)
ECAA LD DE,$0020 Move forward a row.
ECAD ADD HL,DE
ECAE LD C,$04 4 rows to draw.
ECB0 PUSH HL Store HL.
ECB1 LD B,$04 4 columns to draw.
ECB3 LD (HL),A Set the attribute.
ECB4 INC L Move forward a column.
ECB5 DJNZ $ECB3 Loop until all columns in this row are drawn.
ECB7 POP HL Restore HL.
ECB8 ADD HL,DE Move forward a row.
ECB9 DEC C Loop until all rows are drawn.
ECBA JR NZ,$ECB0
ECBC RET
Prev: EC26 Up: Map Next: ECBD