$PAGE 02

  $LABEL P02020

	BR	P02024
	.WORD	0

$LABEL AC0014
P02024:

	MOV	#P02200, R0

P02030:
	MOVB	(R0)+, R2
	MOV	PC, R3
P02034:
	TSTB	@#TPS

	BPL	P02034
	MOVB	R2, @#TPB

	CALL	P02146

	CMPB	#CR, R2

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

P02070:
	TSTB	@#TPS

	BPL	P02070
	MOVB	R2, @#TPB

	CALL	P02146

	DEC	R4
	BNE	P02070
	DEC	R5
	BEQ	P02126
	MOVB	#SPACE, R2

	INC	R4
	BR	P02070
P02126:
	CMPB	#377, (R0)

	BNE	P02030

	$GOTO	#3, #P02020

P02146:
	TSTB	@#TKS

	BPL	P02176
	CMPB	@#TKB, #23

	BNE	P02176
P02164:
	TSTB	@#TKS

	BPL	P02164
	TSTB	@#TKB

P02176:
	RETURN

  $LABEL P02200
	.ASCII	<CR><6><1>|DISTRIBUTED LOGIC CORPORATION - MQ100 |

	.ASCII	<CR><2><1>|TYPE <HE>LP FOR A LIST OF|

	.ASCII	<CR><1><1>|SUPPORTED BOOT DEVICES.|
	.BYTE	377

  $FILL