TITLE DBOOT

RIM10
NOSYMS
B==2
ICWA==30

MEMSIZ==1000000

.INSRT MLSYS;MDSK >

LOC MEMSIZ-100

BOOT:	CLEARM MEMSIZ-1
	CONSZ DPC,BUSY
	JRST .-1
	MOVEI B,ICWA+2	;SET UP CHANNEL PROG
	MOVEM B,ICWA
	SETZM ICWA+1
	SETZM ICWA+3
	DATAO DPC,CLATT1
	MOVE B,ERRWD
	MOVEM B,@ICWA
	DATAO DPC,SWPSK
	CONSO DPC,DONE
	JRST .-1
	DATAO DPC,SWPIN1
	CONSO DPC,DONE
	JRST .-1
	DATAO DPC,SWPIN2
	CONSO DPC,DONE
	JRST .-1
	JRST 4,.	;SHOULD BE CLOBBERED

ERRWD:	-2000,,MEMSIZ-2000-1
CLATT1:	DEASEC ALLATT
SWPSK:	DSEEKC+200._22.
SWPIN1:	DWRITC+200._22.+3_17.+6._12.+ICWA	;NBLKS 4
SWPIN2:	DREADC+200._22.+5_17.+4._12.+ICWA	;NBLKS 6

END BOOT