26 lines
1.0 KiB
ArmAsm
26 lines
1.0 KiB
ArmAsm
.module wc_gadrw
|
|
.area _CODE
|
|
WC_ENTRY = 0x6006
|
|
.globl _wc_gadrw
|
|
_wc_gadrw::
|
|
push ix
|
|
push hl ; save win (HL = 1st arg)
|
|
ld ix, #0
|
|
add ix, sp
|
|
ld d, 6(ix) ; D = y
|
|
ld e, 7(ix) ; E = x
|
|
ld l, 0(ix)
|
|
ld h, 1(ix) ; HL = win
|
|
push hl
|
|
pop ix ; IX = win
|
|
ld a, #0x05
|
|
call WC_ENTRY ; HL = result addr
|
|
ex de, hl ; DE = result (sdcccall(1) uint16)
|
|
pop hl ; remove saved win (use HL, keep DE)
|
|
pop ix ; restore caller IX
|
|
; callee cleans 2 bytes (y+x); preserve DE = return value
|
|
pop hl ; HL = return address
|
|
inc sp
|
|
inc sp ; discard y(1)+x(1)
|
|
jp (hl) ; return, DE = result
|