ack/mach/z80/libem/saru.s
1987-02-02 13:30:20 +00:00

25 lines
214 B
ArmAsm

.define .saru
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
! SAR NOT DEFINED
.saru:
pop ix
pop hl
xor a
xor h
jp nz,1f
ld a,2
xor l
jp z,2f
1:
ld hl,EARRAY
call .trp.z
2:
push ix
jp .sar