23 lines
193 B
ArmAsm
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)
|