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
|
1991-09-03 15:37:56 +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
|
