ack/mach/vax4/libbsd4_1a/head_em.s

#include "em_abs.h"
.sect .text; .sect .rom; .sect .data; .sect .bss
.sect .text

	! $Id$

.define	hol0
.define	.reghp
.define	.limhp
.define	.trppc
.define	.trpim
.define EXIT, BRK, WRITE

	! run time startoff
	.data2	0
	bispsw	$0100		! set FU(0100)
	movl	4(sp),r0
	clrl	-4(r0)
	movl	sp,r0
	movl	(r0)+,r1
	movl	r0,r2
1:
	tstl	(r0)+
	bneq	1b
	cmpl	r0,(r2)
	blssu	2f
	tstl	-(r0)
2:
	pushl	r0
	pushl	r2
	pushl	r1
	calls	$3,__m_a_i_n
EXIT:
	movl	$Im2,ap
	movl	r0,6(ap)
	chmk	(ap)+
	halt

break = 17

.align	1
BRK:
	.data2	0x0000
	chmk	$break
	bcc 	1f
	jmp 	errmon
1:
	movl	4(ap),.limhp
	clrl	r0
	ret

write = 4

.align	1
WRITE:
	.data2	0x0000
	chmk	$write
	bcc	1f
	jmp	errmon
1:
	ret

	.sect .data
Im2:
	.data2	1
	.data4	1
	.data4	0
	.data2	0
.reghp:
	.data4	__end
.limhp:
	.data4	__end
hol0:
	.space	8
.trppc:
	.space	4
.trpim:
	.data4	0
Initial revision 1986-12-12 12:49:50 +00:00			`#include "em_abs.h"`
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`.sect .text; .sect .rom; .sect .data; .sect .bss`
			`.sect .text`
Initial revision 1986-12-12 12:49:50 +00:00
Header --> Id 1994-06-24 14:02:31 +00:00			`! $Id$`
Initial revision 1986-12-12 12:49:50 +00:00
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`.define hol0`
			`.define .reghp`
Use .limhp 1990-01-22 14:14:38 +00:00			`.define .limhp`
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`.define .trppc`
			`.define .trpim`
Added EXIT, WRITE and BRK entry point 1992-06-30 17:06:10 +00:00			`.define EXIT, BRK, WRITE`
Initial revision 1986-12-12 12:49:50 +00:00
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`! run time startoff`
			`.data2 0`
			`bispsw $0100 ! set FU(0100)`
Initial revision 1986-12-12 12:49:50 +00:00			`movl 4(sp),r0`
			`clrl -4(r0)`
			`movl sp,r0`
			`movl (r0)+,r1`
			`movl r0,r2`
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`1:`
Initial revision 1986-12-12 12:49:50 +00:00			`tstl (r0)+`
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`bneq 1b`
Initial revision 1986-12-12 12:49:50 +00:00			`cmpl r0,(r2)`
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`blssu 2f`
Initial revision 1986-12-12 12:49:50 +00:00			`tstl -(r0)`
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`2:`
Initial revision 1986-12-12 12:49:50 +00:00			`pushl r0`
			`pushl r2`
			`pushl r1`
m_a_i_n --> _m_a_i_n 1991-03-06 14:26:16 +00:00			`calls $3,__m_a_i_n`
Added EXIT, WRITE and BRK entry point 1992-06-30 17:06:10 +00:00			`EXIT:`
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`movl $Im2,ap`
Initial revision 1986-12-12 12:49:50 +00:00			`movl r0,6(ap)`
			`chmk (ap)+`
			`halt`

Added EXIT, WRITE and BRK entry point 1992-06-30 17:06:10 +00:00			`break = 17`

			`.align 1`
			`BRK:`
			`.data2 0x0000`
			`chmk $break`
			`bcc 1f`
			`jmp errmon`
			`1:`
			`movl 4(ap),.limhp`
			`clrl r0`
			`ret`

			`write = 4`

			`.align 1`
			`WRITE:`
			`.data2 0x0000`
			`chmk $write`
			`bcc 1f`
			`jmp errmon`
			`1:`
			`ret`

Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`.sect .data`
			`Im2:`
			`.data2 1`
			`.data4 1`
			`.data4 0`
leave SIGFPE alone 1990-12-03 14:14:48 +00:00			`.data2 0`
Initial revision 1986-12-12 12:49:50 +00:00			`.reghp:`
changed some names because of namespace pollution 1990-09-28 15:19:06 +00:00			`.data4 __end`
Use .limhp 1990-01-22 14:14:38 +00:00			`.limhp:`
changed some names because of namespace pollution 1990-09-28 15:19:06 +00:00			`.data4 __end`
Initial revision 1986-12-12 12:49:50 +00:00			`hol0:`
			`.space 8`
			`.trppc:`
			`.space 4`
			`.trpim:`
Adapted for use of ACK VAX assembler 1990-01-11 16:00:19 +00:00			`.data4 0`