fill_rect_wi.s (304B)
1 .include "global.s" 2 3 .area _HOME 4 5_fill_win_rect:: 6 PUSH BC 7 8 LDA HL,4(SP) ; Skip return address and registers 9 LD A,(HL+) ; D = x 10 LD D, A 11 LD E,(HL) ; E = y 12 LDA HL,8(SP) 13 LD A,(HL-) ; B = tile 14 LD B, A 15 LD A,(HL-) ; A = h 16 LD H,(HL) ; H = w 17 LD L,A ; L = h 18 19 CALL .fill_rect_wtt 20 21 POP BC 22 RET