ack/mach/pmds4/libsys/head_em.s

.define	CERASE,CKILL,CSTOP,CSTART
.define .lino,.filn
.define F_DUM,EXIT
.define	begtext,begdata,begbss
.define	EARRAY,ERANGE,ESET,EIDIVZ,EHEAP,EILLINS,ECASE
.define	hol0,.reghp,.limhp,.trpim,.trppc
.define	LINO_AD,FILN_AD
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text


CERASE	= 010
CKILL	= 030
CSTART	= 021
CSTOP	= 023
F_DUM	= 0


LINO_AD	= 0
FILN_AD	= 4

EARRAY	= 0
ERANGE	= 1
ESET	= 2
EIDIVZ	= 6
EHEAP	= 17
EILLINS	= 18
ECASE	= 20

	.sect .text
begtext:
	jsr	__m_a_i_n
	add	#012,sp
EXIT:

	move.l	d0,-(sp)
	jsr __exit
	! As a temporary measure
	jsr .trp
	

	.sect .data
begdata:
hol0:
.lino:
	.data4	0	! lino
.filn:
	.data4	0	! filn
.reghp:
	.data4	endbss
.limhp:
	.data4	endbss
.trppc:
	.data4	0
.trpim:
	.data4	0	! was short


	.sect .bss
begbss:
Initial revision 1985-02-07 17:43:43 +00:00			`.define CERASE,CKILL,CSTOP,CSTART`
			`.define .lino,.filn`
			`.define F_DUM,EXIT`
			`.define begtext,begdata,begbss`
			`.define EARRAY,ERANGE,ESET,EIDIVZ,EHEAP,EILLINS,ECASE`
			`.define hol0,.reghp,.limhp,.trpim,.trppc`
			`.define LINO_AD,FILN_AD`
adapted to new assembler syntax 1987-01-26 21:22:23 +00:00			`.sect .text`
			`.sect .rom`
			`.sect .data`
			`.sect .bss`
			`.sect .text`


Initial revision 1985-02-07 17:43:43 +00:00

			`CERASE = 010`
			`CKILL = 030`
			`CSTART = 021`
			`CSTOP = 023`
			`F_DUM = 0`


			`LINO_AD = 0`
			`FILN_AD = 4`

			`EARRAY = 0`
			`ERANGE = 1`
			`ESET = 2`
			`EIDIVZ = 6`
			`EHEAP = 17`
			`EILLINS = 18`
			`ECASE = 20`

adapted to new assembler syntax 1987-01-26 21:22:23 +00:00			`.sect .text`
Initial revision 1985-02-07 17:43:43 +00:00			`begtext:`
m_a_i_n --> _m_a_i_n 1991-03-06 14:26:16 +00:00			`jsr __m_a_i_n`
Initial revision 1985-02-07 17:43:43 +00:00			`add #012,sp`
			`EXIT:`

* empty log message * 1987-03-03 11:11:39 +00:00			`move.l d0,-(sp)`
* empty log message * 1987-03-03 11:22:29 +00:00			`jsr __exit`
To force the first part of a circular ring of modules in from tail_em. /. 1985-03-04 15:37:38 +00:00			`! As a temporary measure`
			`jsr .trp`
Initial revision 1985-02-07 17:43:43 +00:00

adapted to new assembler syntax 1987-01-26 21:22:23 +00:00			`.sect .data`
Initial revision 1985-02-07 17:43:43 +00:00			`begdata:`
			`hol0:`
			`.lino:`
adapted to new assembler syntax 1987-01-26 21:22:23 +00:00			`.data4 0 ! lino`
Initial revision 1985-02-07 17:43:43 +00:00			`.filn:`
adapted to new assembler syntax 1987-01-26 21:22:23 +00:00			`.data4 0 ! filn`
Initial revision 1985-02-07 17:43:43 +00:00			`.reghp:`
adapted to new assembler syntax 1987-01-26 21:22:23 +00:00			`.data4 endbss`
Initial revision 1985-02-07 17:43:43 +00:00			`.limhp:`
adapted to new assembler syntax 1987-01-26 21:22:23 +00:00			`.data4 endbss`
Initial revision 1985-02-07 17:43:43 +00:00			`.trppc:`
adapted to new assembler syntax 1987-01-26 21:22:23 +00:00			`.data4 0`
Initial revision 1985-02-07 17:43:43 +00:00			`.trpim:`
adapted to new assembler syntax 1987-01-26 21:22:23 +00:00			`.data4 0 ! was short`
Initial revision 1985-02-07 17:43:43 +00:00

adapted to new assembler syntax 1987-01-26 21:22:23 +00:00			`.sect .bss`
Initial revision 1985-02-07 17:43:43 +00:00			`begbss:`