Prev: BD95 Up: Map Next: BDBF
BDA0: Erase sprite column at column 10 (17 rows)
Sets PAPER=1, then loops 17 ($11) times: PRINT AT D,10 + 7 space chars ($80). D starts at 0 and increments each row. Effectively blanks a vertical strip at column 10 — used to erase the police/thief/old-woman sprite after it has moved or been replaced.
erase_sprite_col BDA0 LD C,$11 Set PAPER=1, D=0, E=$0A (col 10), outer loop C=$11 (17 rows)
BDA2 LD D,$00
BDA4 LD E,$0A
BDA6 LD A,$11
BDA8 RST $10
BDA9 LD A,$01
BDAB RST $10
erase_sprite_col_0 BDAC LD B,$07 Inner: PRINT AT D,E + 7× space ($80) via DJNZ, INC D, DEC C, loop
BDAE LD A,$16
BDB0 RST $10
BDB1 LD A,D
BDB2 RST $10
BDB3 LD A,E
BDB4 RST $10
erase_sprite_col_1 BDB5 LD A,$80
BDB7 RST $10
BDB8 DJNZ erase_sprite_col_1
BDBA INC D
BDBB DEC C
BDBC JR NZ,erase_sprite_col_0
BDBE RET
Prev: BD95 Up: Map Next: BDBF