1985-01-08 11:48:43 +00:00
|
|
|
.define strhp
|
1987-01-19 10:51:50 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-01-08 11:48:43 +00:00
|
|
|
|
|
|
|
|
strhp:
|
|
|
|
|
popl RR2, *RR14
|
|
|
|
|
pop R0, *RR14
|
|
|
|
|
cp R0, R15
|
1988-04-11 09:52:48 +00:00
|
|
|
jp ULT, 1f
|
1985-01-08 11:48:43 +00:00
|
|
|
push *RR14, $EHEAP
|
1988-04-11 09:52:48 +00:00
|
|
|
calr trp
|
|
|
|
|
jp *RR2
|
|
|
|
|
1:
|
|
|
|
|
ld reghp, R0
|
|
|
|
|
jp *RR2
|
