#include "em_abs.h"
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define .strhp
! $Header$
.strhp:
movd tos,r7
movd tos,r0
movd r7,tos
movd r0,@.reghp
! 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:
ret 0
