ack/mach/ns/libem/strhp.s

26 lines
353 B
ArmAsm
Raw Normal View History

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:
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