ack/mach/z80/libem/str.s
1985-03-29 21:44:50 +00:00

23 lines
193 B
ArmAsm

.define .strhp
.strhp:
pop ix
pop hl
push hl
or a
sbc hl,sp
jp m,1f
pop hl
push hl
ld a,l
rra
jp c,1f
pop hl
ld (.reghp),hl
jp (ix)
1:
pop hl
ld hl,EHEAP
call .trp.z
jp (ix)