1990-01-22 16:25:52 +00:00
|
|
|
#include "em_abs.h"
|
|
|
|
|
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
|
|
|
|
|
.define .strhp
|
|
|
|
|
|
|
|
|
|
! $Header$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.strhp:
|
1991-09-18 19:10:24 +00:00
|
|
|
movd tos,r3
|
1990-01-22 16:25:52 +00:00
|
|
|
movd tos,r0
|
1991-09-18 19:10:24 +00:00
|
|
|
movd r3,tos
|
1990-01-22 16:25:52 +00:00
|
|
|
movd r0,@.reghp
|
1992-06-30 16:31:52 +00:00
|
|
|
cmpd r0,@.limhp
|
|
|
|
|
blo I2
|
|
|
|
|
addd 02000,r0
|
|
|
|
|
bicd 0777,r0
|
|
|
|
|
movd r0,tos
|
|
|
|
|
jsr @BRK
|
|
|
|
|
adjspd -4
|
|
|
|
|
cmpqd 0,r0
|
|
|
|
|
beq I2
|
|
|
|
|
movd EHEAP,tos
|
|
|
|
|
jsr @.trp
|
|
|
|
|
I2:
|
1990-01-22 16:25:52 +00:00
|
|
|
ret 0
|
