$PAGE	1

	BR	P01014
	.WORD	0

$LABEL ABFA14
P01014:

	MOV	#KDSAR0, R0

	MOV	R0, SP
	MTPS	#340

	MOV	#V.TR4+2, R3

	MOV	#340, (R3)

	MOV	#$V4V10, -(R3)

	MOV	#V.TR10, R0

	MOV	#$V4V10, (R0)+

	MOV	#340, (R0)

	$GOTO	#2, #AC0014, JUMP

  $LABEL ABFA42

P01102:

	MOV	@#TKB, R1

	CLR	R2
P01110:
	MOV	PC, R3
	BR	P01312
	SWAB	R2
	BEQ	P01110
	CMP	R2, #"-=

	BEQ	P01132
	BIC	#20040, R2

P01132:
	MOV	#P01442, R0

P01136:
	MOV	(R0)+, R5
	CMP	#177777, R5

	BEQ	P01264
	MOV	(R0)+, R4
	CMP	R2, (R0)+
	BNE	P01136
	CMP	R2, #"-=

	BNE	P01166
	JMP	$SWTCH

P01166:
	CLR	R0
	MOV	R0, @#K01206

	MOV	R0, @#K01204

P01200:
	CLR	R2
	MOV	PC, R3
	BR	P01312
	CMPB	R2, #CR

	BNE	P01220
	JMP	$SWTCH

P01220:
	MOV	R2, R3
	SUB	#105, R2

	ADD	#4, R2

	BCS	P01256
	MOV	R3, R2
	SUB	#70, R2

	ADD	#10, R2

	BCC	P01264
	MOV	R2, @#K01206

	BR	P01200
P01256:
	MOV	R2, @#K01204

	BR	P01200
P01264:
	MOV	#B75366, R0

P01270:
	TSTB	@#TPS

	BPL	P01270
	MOVB	(R0)+, @#TPB

	CMPB	#377, (R0)

	BNE	P01270
	BR	P01102
P01312:
	TSTB	@#TKS

	BPL	P01312
	CLRB	R2
	BISB	@#TKB, R2

	CMPB	R2, #CR

	BEQ	P01346
P01334:
	TSTB	@#TPS

	BPL	P01334
	MOVB	R2, @#TPB

P01346:
	CMP	(R3)+, (R3)+
	BICB	#200, R2

	JMP	177776(R3)

P01360:
	CLR	@#V.0

	CLR	PC
  
  $LABEL B75366

	.ASCII	| NOT A VALID BOOT DEVICE |<CR><LF>

	.ASCII	|BOOT DEVICE?   |

	.WORD	377
  
  $LABEL P01442

	$PGO	13, RXBOOT
	.ASCII	|DY|

	$PGO	14, RLBOOT
	.ASCII	|DL|

	$PGO	15, MSBOOT
	.ASCII	|MS|

	$PGO	16, MUBOOT
	.ASCII	|MU|

	$PGO	16, MTBOOT
	.ASCII	|MT|

	$PGO	15, DUBOOT
	.ASCII	|DU|

	$PGO	13, RKBOOT
	.ASCII	|DK|

	$PGO	14, DRBOOT
	.ASCII	|DR|

	$PGO	14, DMBOOT
	.ASCII	|DM|

	$PGO	17, DEBMNU
	.ASCII	|DI|

	$PGO	1, P01360
	.ASCII	|OD|

	$PGO	4, AE0010
	.ASCII	|HE|

	$PGO	6, AG0014
	.ASCII	|-=|

  $FILL