all; _rfintr

.globl	_rkintr
rkio:
	jsr	r0,call; _rkintr

.globl	_tcintr
tcio:
	jsr	r0,call; _tcintr

.globl	_tmintr
tmio:
	jsr	r0,call; _tmintr

.globl	_klrint
klin:
	jsr	r0,call; _klrint

.globl	_klxint
klou:
	jsr	r0,call; _klxint

.globl	_pcrint
pcin:
	jsr	r0,call; _pcrint

.globl	_pcpint
pcou:
	jsr	r0,call; _pcpint

.globl	_dcrint
dcin:
	jsr	r0,call; _dcrint

.globl	_dcxint
dcou:
	jsr	r0,call; _dcxint

.globl	_dprint
dpin:
	jsr	r0,call; _dprint

.globl	_dpxint
dpou:
	jsr	r0,call; _dpxint

.globl	_dnint
dnou:
	jsr	r0,call; _dnint

.globl	_vsrintr
vsin:
	jsr	r0,call; _vsrintr

.globl	_vsxintr
vsou:
	jsr	r0,call; _vsxintr

.globl	_vtintr
dr11ca:
dr11cb:
	jsr	r0,call; _vtintr

.globl	_draaint
dr11aa:
	jsr	r0,call; _draaint

.globl	_drabint
dr11ab:
	jsr	r0,call; _drabint

.globl	_catintr
catin:
catou:
	jsr	r0,call; _catintr

SSR0 = 177572
SSR1 = 177574
SSR2 = 177576
.globl	_trap, _ssr
.globl	_nofault
trap:
	mov	PS,-4(sp)
	mov	SSR0,_ssr
	mov	SSR1,_ssr+2
	mov	SSR2,_ssr+4
	mov	$1,SSR0
	tst	_nofault
	bne	1f
	jsr	r0,call1; _trap
1:
	mov	_nofault,(sp)
	rti

PS = 177776
mfpi = 6500^tst
mtpi = 6600^tst
rti = 2
spl = 230

.globl	_runrun, _swtch, _u
ldfps = 170100^tst
stfps = 170200^tst
call1:
	tst	-(sp)
	spl	0
	br	1f

call:
	mov	PS,-(sp)
1:
	mov	r1,-(sp)
	mov	r2,-(sp)
	mov	r3,-(sp)
	mov	r4,-(sp)
	mfpi	sp
	mov	10.(sp),-(sp)
	bic	$!37,(sp)
	bit	$30000,PS
	beq	1f
	clrb	_runrun
	.if	fpp
	mov	$_u+4,r1
	stfps	(r1)+
	movf	fr0,(r1)+
	movf	fr4,fr0
	movf	fr0,(r1)+
	movf	fr5,fr0
	movf	fr0,(r1)+
	movf	fr1,(r1)+
	movf	fr2,(r1)+
	movf	fr3,(r1)+
	.endif
1:
	jsr	pc,*(r0)+
	bit	$30000,PS
	beq	1f
	tstb	_runrun
	beq	2f
	jsr	pc,_swtch
2:
	.if	fpp
	mov	$_u+4,r1
	mov	(r1)+,r0
	ldfps	r0
	movf	(r1)+,fr0
	movf	(r1)+,fr1
	movf	fr1,fr4
	movf	(r1)+,fr1
	movf	fr1,fr5
	movf	(r1)+,fr1
	movf	(r1)+,fr2
	movf	(r1)+,fr3
	ldfps	r0
	.endif
1:
	tst	(sp)+
	mtpi	sp
	mov	(sp)+,r4
	mov	(sp)+,r3
	mov	(sp)+,r2
	mov	(sp)+,r1
	tst	(sp)+
	mov	(sp)+,r0
	rti

.data
.globl	_data, _edata, _end
_data:
