Ausam/sys/conf/l70.s

Find at most related files.
including files from this version of Unix. 
	.profile = 0		/ for profiling
	.data

/ low core

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

. = 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
.if	.profile-1
	kwlp; br6+1		/ Clock
.endif
.if .profile
	.globl	profile
	profile; br7+rset1		/ programmable clock for the profiling
.endif

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

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

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

. = 224^.
	htio; br5		/ HT tape

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

. = 254^.
	hpio; br5		/ HP disk

/ floating vectors
. = 300^.
. = 310^.
. = 320^.
	djin; br5+0.
	djou; br5+0.
. = 330^.
	djin; br5+1.
	djou; br5+1.
. = 340^.
	dzin; br5+0.
	dzou; br5+0.
. = 350^.
. = 360^.
	lpou; br4+1.		/ Line printer La180

. = 370^.
	dzin; br5+1.
	dzou; br5+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	_hpintr
hpio:	jsr	r0,call; _hpintr


.globl	_djrint
djin:	jsr	r0,call; _djrint
.globl	_djxint
djou:	jsr	r0,call; _djxint
.globl	_dzrint
dzin:	jsr	r0,call; _dzrint
.globl	_dzxint
dzou:	jsr	r0,call; _dzxint