Routines
Prev: B8E9 Up: Map Next: B93C
B914: Erase 4-column strip at column 15 (door area cleanup)
Prints a 2-colour blank strip at column 15 ($0F), 4 rows from row 0. For each row: PRINT AT D,15 + PAPER=1 + space + PAPER=2 + 6 spaces, then INC D, DEC C, loop. (D=0..3, E=15, C=4.)
Covers the door/prostitute sprite area during transitions. Called from accept_prostitute (enter) and refuse_prostitute (refuse) to clean up.
erase_door_strip B914 LD D,$00 D = 0 (start row), E = $0F (column 15)
B916 LD E,$0F
B918 LD C,$04 C = 4 (row count)
erase_door_strip_0 B91A LD A,$16 Emit PRINT AT D,E ($16 + D + E via RST $10)
B91C RST $10
B91D LD A,D
B91E RST $10
B91F LD A,E
B920 RST $10
B921 LD A,$11 Emit PAPER=1 ($11,$01) + space $80 via RST $10 × 3
B923 RST $10
B924 LD A,$01
B926 RST $10
B927 LD A,$80 Emit PAPER=2 ($11,$02) + LD B,$06 + loop: 6× space $80 via DJNZ
B929 RST $10
B92A LD A,$11
B92C RST $10
B92D LD A,$02
B92F RST $10
B930 LD B,$06
erase_door_strip_1 B932 LD A,$80
B934 RST $10
B935 DJNZ erase_door_strip_1
B937 INC D INC D (advance to next row)
B938 DEC C DEC C
B939 JR NZ,erase_door_strip_0 JR NZ back to loop at $B91A
B93B RET
Prev: B8E9 Up: Map Next: B93C