ack/mach/vax4/libem/strhp.s
1994-06-24 14:02:31 +00:00

26 lines
341 B
ArmAsm

#include "em_abs.h"
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define .strhp
! $Id$
.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
tstl r0
beql I2
pushl $EHEAP
jsb .trp
rsb
I2:
rsb