Routines
Prev: 7530 Up: Map Next: 75E2
75CF: Fill rectangle with character
Used by the routine at the_end.
Input
H Character to print
L Number of columns
C Number of rows
D Row (Y position)
E Column (X position)
fill_rect 75CF LD A,$16 Emit PRINT AT control code (22)
75D1 RST $10
75D2 LD A,D Emit row: A = D
75D3 RST $10
75D4 LD A,E Emit column: A = E
75D5 RST $10
75D6 LD B,L B = L (column count)
fill_rect_0 75D7 PUSH BC Print character H, B times (inner column loop)
75D8 LD A,H
75D9 RST $10
75DA POP BC
75DB DJNZ fill_rect_0
75DD INC D Increment row (D++)
75DE DEC C Decrement row counter C
75DF JR NZ,fill_rect If C != 0 loop back to start
75E1 RET
Prev: 7530 Up: Map Next: 75E2