get_wi_t.s (606B)
1 .include "global.s" 2 3 .globl .get_xy_wtt 4 5 .area _HOME 6 7_get_win_tiles:: 8 PUSH BC 9 10 LDA HL,4(SP) ; Skip return address and registers 11 LD A,(HL+) ; D = x 12 LD D, A 13 LD E,(HL) ; E = y 14 LDA HL,9(SP) 15 LD A,(HL-) ; BC = tiles 16 LD B, A 17 LD A,(HL-) 18 LD C, A 19 LD A,(HL-) ; A = h 20 LD H,(HL) ; H = w 21 LD L,A ; L = h 22 23 CALL .get_xy_wtt 24 25 POP BC 26 RET