$PAGE 04

$LABEL AE0010

	BR	P04024
	.WORD	0
P04024:
	MOV	#P04200, R0

P04030:
	MOVB	(R0)+, R2
	MOV	PC, R3
P04034:
	TSTB	@#TPS

	BPL	P04034
	MOVB	R2, @#TPB

	CALL	P04146

	CMPB	#CR, R2

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

P04070:
	TSTB	@#TPS

	BPL	P04070
	MOVB	R2, @#TPB

	CALL	P04146

	DEC	R4
	BNE	P04070
	DEC	R5
	BEQ	P04126
	MOVB	#SPACE, R2

	INC	R4
	BR	P04070
P04126:
	CMPB	#377, (R0)

	BNE	P04030

	$GOTO	#1, #ABFA42

P04146:
	TSTB	@#TKS

	BPL	P04176
	CMPB	@#TKB, #23

	BNE	P04176
P04164:
	TSTB	@#TKS

	BPL	P04164
	TSTB	@#TKB

P04176:
	RETURN

  $LABEL P04200

	.ASCII	<CR><2><1>|MS = TS11     MT = TU10 |

	.ASCII	<CR><1><1>|DK = RK05     DL = RL02 |

	.ASCII	<CR><1><1>|DM = RK07     DR = RM03 |

	.ASCII	<CR><1><1>|DU = UDA50    DY = RX02 |

	.ASCII	<CR><1><1>|MU = TK50     OD = ODT  |

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

	.BYTE	377

  $FILL