/copyright 1974 Bell Telephone Laboratories Inc.
/low core

br4 = 200
br5 = 240
br6 = 300
br7 = 340

. = 0^.
	br	1f
	4

/ trap vectors
	trap; br7+0.		/ bus error
	trap; br7+1.		/ illeagle instruction
	trap; br7+2.		/ bpt-trace trap
	trap; br7+3.		/ iot trap
	trap; br7+4.		/ power fail
	trap; br7+5.		/ emulator trap
	trap; br7+6.		/ system entry

. = 40^.
.globl	start, dump
1:	jmp	start
	jmp	dump


. = 50^.
	stray;	br7+10.
	stray;	br7+11.

. = 60^.
	klin; br5
	klou; br5

. = 70^.
	stray;	br7+14.
	stray;	br7+15.

. = 100^.
	kwlp; br6

. = 104^.
	kwlp; br6

. = 110^.
	stray;	br7+2.
	stray;	br7+3.
	stray;	br7+4.
	stray;	br7+5.
	stray;	br7+6.
	stray;	br7+7.
	stray;	br7+8.
	stray;	br7+9.
	stray;	br7+10.
	stray;	br7+11.
	stray;	br7+12.
	stray;	br7+13.
	stray;	br7+14.
	stray;	br7+15.
	stray;	br7+0.
	stray;	br7+1.
	stray;	br7+2.
	stray;	br7+3.
	stray;	br7+4.

. = 224^.
	tmio; br5

. = 230^.
	stray;	br7+6.
	stray;	br7+7.

. = 240^.
	trap; br7+7.		/ programmed interrupt
	trap; br7+8.		/ floating point
	trap; br7+9.		/ segmentation violation

. = 254^.
	rpio; br5

. = 260^.
	stray;	br7+12.
	stray;	br7+13.
	stray;	br7+14.
	stray;	br7+15.

/ floating vectors
	stray;	br7+0.
	stray;	br7+1.
	stray;	br7+2.
	stray;	br7+3.
	stray;	br7+4.
	stray;	br7+5.
	stray;	br7+6.
	stray;	br7+7.
	stray;	br7+8.
	stray;	br7+9.
	stray;	br7+10.
	stray;	br7+11.
	stray;	br7+12.
	stray;	br7+13.
	stray;	br7+14.
	stray;	br7+15.
	stray;	br7+0.

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

.globl	call, trap

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

.globl	_clock
kwlp:	jsr	r0,call; _clock

.globl	_tmintr
tmio:	jsr	r0,call; _tmintr

.globl	_rpintr
rpio:	jsr	r0,call; _rpintr

.globl	_stray
stray:	jsr	r0,call; _stray

