ack/mach/vax4/libem/strhp.s

#include "em_abs.h"

        # $Header$

.globl  .strhp

.strhp:
	movl    (sp)+,r1
	movl    (sp)+,r0
	pushl	r1
	movl    r0,.reghp
	cmpl    r0,.hplim
	blssu   L2
	addl2   $02000,r0
	bicl2   $0777,r0
	movl    r0,.hplim
	movl	ap,r1
	movl    $L9,ap
	chmk    (ap)+
	bcc     L1
	pushl	$EHEAP
	jmp     .fat
L1:
	movl	r1,ap
L2:
	rsb

	.data
L9:     .word   17
	.long   1
.hplim: .long   _end
Initial revision 1985-01-18 14:30:03 +00:00			`#include "em_abs.h"`

To have a file preprocessed, it must start with a # in column o1. The RCSid is replaced to accomplish this. 1985-01-21 12:56:09 +00:00			`# $Header$`

Initial revision 1985-01-18 14:30:03 +00:00			`.globl .strhp`

			`.strhp:`
			`movl (sp)+,r1`
			`movl (sp)+,r0`
			`pushl r1`
			`movl r0,.reghp`
			`cmpl r0,.hplim`
			`blssu L2`
			`addl2 $02000,r0`
			`bicl2 $0777,r0`
			`movl r0,.hplim`
			`movl ap,r1`
			`movl $L9,ap`
			`chmk (ap)+`
			`bcc L1`
			`pushl $EHEAP`
			`jmp .fat`
			`L1:`
			`movl r1,ap`
			`L2:`
			`rsb`

			`.data`
			`L9: .word 17`
			`.long 1`
			`.hplim: .long _end`