AUSAM/source/mdec/rkdfs.s

	.globl	_restart,_main,savr5,_initial,_initiam,_reboot,_base

reset	= 5

RKWC	= 177406
RKDA	= 177412

.text
	jmp	start

	.=1000^.
start:	reset
	mov	$4,r0
intvc:	mov	r0,(r0)+	/ set up interrupt vectors to (.+2, 0)
	clr	(r0)+
	cmp	r0,$start
	blo	intvc

	mov	$start,sp
	mov	$buss,*$4	/ pick up bus errors
	jsr	pc,_initial
buss:	mov	$6,*$4		/ normal bus error exit
	jsr	pc,_initiam
	reset
	mov	$start,sp
	jsr	pc,_main
_restart:
	jmp	start

_reboot:
	reset
	mov	$RKWC,r0
	mov	$-256.,(r0)
	mov	_base,*$RKDA
	mov	$5,-(r0)
back:	tstb	(r0)
	bpl	back
	tst	(r0)
	bmi	_reboot
	clr	pc

.bss
savr5:	.=.+2