$PAGE 03


	BR	P03024
	.WORD	0
P03024:
	MOV	#P03200, R0

P03030:
	MOVB	(R0)+, R2
	MOV	PC, R3
P03034:
	TSTB	@#TPS

	BPL	P03034
	MOVB	R2, @#TPB

	CALL	P03146

	CMPB	#CR, R2

	BNE	P03126
	MOVB	(R0)+, R4
	MOVB	(R0)+, R5
	MOVB	#LF, R2

P03070:
	TSTB	@#TPS

	BPL	P03070
	MOVB	R2, @#TPB

  $LABEL P03102

	CALL	P03146

	DEC	R4
	BNE	P03070
	DEC	R5
	BEQ	P03126
	MOVB	#SPACE, R2

	INC	R4
	BR	P03070
P03126:
	CMPB	#377, (R0)

	BNE	P03030

	$GOTO	#1, #P03102

P03146:
	TSTB	@#TKS

	BPL	P03176
	CMPB	@#TKB, #23

	BNE	P03176
P03164:
	TSTB	@#TKS

	BPL	P03164
	TSTB	@#TKB

P03176:
	RETURN

  $LABEL P03200

	.ASCII	<CR><2><1>|BOOT DEVICE?   |

	.WORD	377

  $FILL