Ausam/sys/conf/other/l70.elec

Find at most related files.
including files from this version of Unix.

	.data

/ low core

	.globl	dump, start, pirqi
	.globl	code00, code01, code02, code03, code04, code05
	.globl	code06, call, powfail, powvect
br4 = 200
br5 = 240
br6 = 300
br7 = 340

. = 0^.
	br	1f		/ Replaced later with 'code15'
	br7+15			/ Spurious interrupt through 0

/ trap vectors
	code05; br7+7		/ bus error
	code02; br7+2		/ illegal instruction
	code02; br7+3		/ bpt/trace trap
	code01; br7+5		/ iot trap
powvect:
	powfail; br7		/ power fail
	code04; br7+6		/ emt
	code02; br7+4		/ system entry

. = 40^.
1:	jmp	*$start
	jmp	*$dump

. = 50^.
	30000		/for the benefit of ei.c pseudo switch register
. = 52^.
	0		/ rotating pattern for display by swr = 52
. = 54^.
	0;0		/ clock ticks since system start !!
			/ see clock service routine below
			/ see display in m70.s


. = 60^.
	klin; br4+0.		/ KL #0 input
	klou; br4+0.		/ KL #0 output

. = 70 ^.
	0			/ this space used for swtch display

. = 100^.
	kwlp; br6+1		/ Clock ** NOTE +1 ==> c-bit set  ** SEE kwlp
	kwlp; br6		/ Clock

. = 114^.
	code03; br7+12		/ 11/70 parity

. = 170^.
	.globl	_idle,diswflag
_idle:
	inc	diswflag
	1	/* wait *
	rts	pc

. = 200^.
	lpou; br4+0.		/ Line printer

. = 224^.
	htio; br5		/ HT tape

. = 230^.
	crin; br4

. = 240^.
	pirqi;  br7		/ programmed interrupt request
	code00; br7+0		/ floating point interrupt
	code06; br7+10		/ segmentation violation

. = 254^.
	msio; br5		/ MSC controller

/ floating vectors
. = 300^.
	cyin; br6
	cyou; br6
. = 320^.
	dzin; br5+0.
	dzou; br5+0.
	dzin; br5+1.
	dzou; br5+1.
	dzin; br5+2.
	dzou; br5+2.
	dzin; br5+3.
	dzou; br5+3.
	dzin; br5+4.
	dzou; br5+4.
	dzin; br5+5.
	dzou; br5+5.

. = 420^.
	klin; br4+1.
	klou; br4+1.

//////////////////////////////////////////////////////
/		interface code to C
//////////////////////////////////////////////////////

.globl	call

.globl	_klrint
klin:	jsr	r0,call; _klrint
.globl	_klxint
klou:	jsr	r0,call; _klxint

.globl	_clock
kwlp:
	adc	*$56		/  low word count of clock ticks
	adc	*$54		/ high word count of clock ticks
	jsr	r0,call; _clock


.globl	_lpint
lpou:	jsr	r0,call; _lpint

.globl	_htintr
htio:	jsr	r0,call; _htintr

.globl	_crint
crin:	jsr	r0,call; _crint

.globl	_msintr
msio:	jsr	r0,call; _msintr


.globl	_dzrint
dzin:	jsr	r0,call; _dzrint
.globl	_dzxint
dzou:	jsr	r0,call; _dzxint

.globl _cyrint
cyin:	jsr	r0,call; _cyrint
.globl _cyxint
cyou:	jsr	r0,call; _cyxint