$PAGE 14

	BR	P14024
	.WORD	0

  $LABEL RLBOOT

P14024:
	MOV	#RLCSR, R1

	MOV	R1, @#K01204

	MOV	@#K01206, R0

	SWAB	R0
	CLC
	TST	(R1)
	BCS	P14216
	MOV	#4, R2

	MOV	#13, 4(R1)

	MOV	PC, R3
	BR	P14162
	BIT	#1, (R1)

	BEQ	P14224
	MOV	#10, R2

	MOV	PC, R3
	BR	P14162
	MOV	6(R1), R2

	BIC	#177, R2

	INC	R2
	MOV	R2, 4(R1)

	MOV	#6, R2

	MOV	PC, R3
	BR	P14162
	CLR	4(R1)

	CLR	2(R1)

	MOV	#177400, 6(R1)

	MOV	#14, R2

	MOV	PC, R3
	BR	P14162
	BR	P14262
P14162:
	BIS	R0, R2
	MOV	R2, (R1)
	CLR	R5
P14170:
	TSTB	(R1)
	BMI	P14206
	CMP	(PC), (PC)
	DEC	R5
	BNE	P14170
P14202:
	JMP	P14232

P14206:
	TST	(R1)
	BMI	P14202
	JMP	2(R3)

P14216:
	MOV	#P05565, R0

	BR	P14236
P14224:
	MOV	#P05457, R0

	BR	P14236
P14232:
	MOV	#P05520, R0

P14236:
	$GOTO3	#5, #AFF792, #1, #ABFA42

P14262:
	MOV	@#K01206, R0

	MOV	@#K01204, R1

	CLR	R2
	CLR	R3
	CLR	R4
	CLR	R5
	CLR	PC

  $LABEL DMBOOT

	MOV	#DMCSR, R1

	MOV	R1, @#K01204

	MOV	@#K01206, R0

	MOV	#10, R2

	CLR	R5
P14326:
	CLC
	MOV	#40, 10(R1)

	BCS	P14216
	BR	P14362
P14342:
	BIT	#2000, (R1)

	BEQ	P14356
	DEC	R2
	BNE	P14326
	BR	P14232
P14356:
	MOV	#2000, R5

P14362:
	MOV	R0, 10(R1)

	BIS	#1, R5

	MOV	R5, (R1)
P14374:
	TSTB	(R1)
	BPL	P14374
	TSTB	12(R1)

	BMI	P14410
	BR	P14224
P14410:
	TST	(R1)
	BMI	P14342
	ADD	#2, R5

	MOV	R5, (R1)
P14422:
	TSTB	(R1)
	BPL	P14422
	ADD	#16, R5

	MOV	#177400, 2(R1)

	MOV	R5, (R1)
	CLR	R3
P14444:
	TSTB	(R1)
	BMI	P14460
	CMP	(PC), (PC)
	DEC	R3
	BNE	P14444
	BR	P14232
P14460:
	TST	(R1)
	BPL	P14472
	DEC	R2
	BNE	P14326
	BMI	P14232
P14472:
	BR	P14262

DRBOOT:
	MOV	#DRCSR, R1

	MOV	R1, @#K01204

	MOV	@#K01206, R0

	MOV	#10, R2

P14514:
	CLC
	MOV	R0, 10(R1)

	BCS	P14216
	CLR	(R1)
	BIT	#10000, 10(R1)

	BNE	P14224
	BIT	#4000, (R1)

	BEQ	P14224
P14544:
	BIT	#10000, 12(R1)

	BEQ	P14544
	MOV	#21, (R1)

	MOV	#10000, 32(R1)

	MOV	#70, (R1)

	MOV	#177400, 2(R1)

	INC	(R1)
	CLR	R3
P14604:
	CMP	(PC), (PC)
	TSTB	(R1)
	BMI	P14620
	DEC	R3
	BNE	P14604
	BR	P14232
P14620:
	TST	(R1)
	BPL	P14632
	DEC	R2
	BNE	P14514
	BMI	P14232
P14632:
	BR	P14262

 $FILL