$PAGE 05

BRTBL:						; 175020
	BR	P05066

  $LABEL AFFA12
	BR	P05262

	BR	P05170

  $LABEL AFF792
	BR	P05040
	BR	P05310
	BR	P05316

  $LABEL AFF798

	BR	P05154
	.WORD	0

P05040:
	TSTB	@#TPS

	BPL	P05040
	MOVB	(R0)+, @#TPB

	CMPB	#377, (R0)

	BNE	P05040
P05060:

  $RETURN

P05066:
	MOV	@#TKB, R1

	CLR	R0
	CLR	R2
P05076:
	MOV	PC, R3
	BR	P05354
	CMPB	R2, #CR

	BEQ	P05060
	CMPB	R2, #'.

	BEQ	P05060
	CMPB	R2, #',

	BEQ	P05060
	CLR	R1
	MOVB	R2, R1
	SUB	#70, R1

	ADD	#10, R1

	BCS	P05146
	BIC	#40, R2

P05146:
	SWAB	R2
	BEQ	P05076
	BR	P05060
P05154:
	MOV	@#TKB, R1

	CLR	R2
	MOV	PC, R3
	BR	P05354
	BR	P05060
P05170:
	CLR	R0
P05172:
	CLR	R2
	MOV	PC, R3
	BR	P05354
	CMPB	R2, #CR

	BNE	P05216
	CMP	(SP)+, (SP)+

  $RETURN

P05216:
	MOV	R2, R3
	SUB	#105, R2

	ADD	#4, R2

	BCS	P05254
	MOV	R3, R2
	SUB	#70, R2

	ADD	#10, R2

	BCC	P05262
	MOV	R2, ^O<K01206-<.+4-PAGBAS+ROMBAS>+.+4>	; @#K01206 !!!!!

	BR	P05172
P05254:
	MOV	R2, ^O<K01204-<.+4-PAGBAS+ROMBAS>+.+4>	; @#K01204 !!!!!

	BR	P05172
P05262:
	MOV	#P05422, R0

P05266:
	TSTB	@#TPS

	BPL	P05266
	MOVB	(R0)+, @#TPB

	CMPB	#377, (R0)

	BNE	P05266
	BR	P05060
P05310:
	MOV	#3000, R0

	BR	P05040
P05316:
	MOV	@#TKB, R2

	CLR	R2
	MOV	#4000, R0

P05330:
	MOV	PC, R3
	BR	P05354
	CMPB	R2, #CR

	BEQ	P05346
	MOVB	R2, (R0)+
	BR	P05330
P05346:
	MOVB	#377, (R0)+

	BR	P05060
P05354:
	TSTB	@#TKS

	BPL	P05354
	CLRB	R2
	BISB	@#TKB, R2

	CMPB	R2, #CR

	BEQ	P05410
P05376:
	TSTB	@#TPS

	BPL	P05376
	MOVB	R2, @#TPB

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

	JMP	177776(R3)

  $LABEL P05422

	.ASCII	|   ?? |<CR><LF><LF>

	.ASCII	|INPUT SELECTION?   |

	.BYTE	377

  $LABEL P05457

	.ASCII	|    OFFLINE    |<CR><LF>

	.ASCII	|BOOT DEVICE?   |

	.BYTE	377

  $LABEL P05520

	.ASCII	|    READ ERROR     |<CR><LF>

	.ASCII	|BOOT DEVICE?   |

	.BYTE	377

  $LABEL P05565

	.ASCII	|    CSR DOES NOT RESPOND |<CR><LF>

	.ASCII	|BOOT DEVICE?   |

	.BYTE	377

  $FILL