ack/mach/vax4/libem/strhp.s
1990-01-22 15:28:45 +00:00

26 lines
347 B
ArmAsm

#include "em_abs.h"
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define .strhp
! $Header$
.strhp:
movl (sp)+,r1
movl (sp)+,r0
pushl r1
movl r0,.reghp
cmpl r0,.limhp
blssu I2
addl2 $02000,r0
bicl2 $0777,r0
pushl r0
calls $1,_brk
tst.l r0
beql I2
pushl $EHEAP
jsb .trp
rsb
I2:
rsb