$PAGE 15

	BR	P15024
	.WORD	0

  $LABEL DUBOOT

P15024:
	MOV	@#K01204, R1

	ASL	R1
	MOV	#P15522, R5

	ADD	R5, R1
	MOV	(R1), R0
	MOV	R0, @#K01204

	MOV	#L00000, R2

	MOV	#L00300, R3

P15056:
	CLR	-(R3)
	CMP	R3, R2
	BHI	P15056
	CLC
	TST	(R0)
	BCS	P15440
	MOV	#5, R5

P15076:
	CLR	(R0)+
P15100:
	MOV	(R0), R1
	BCS	P15224
	BMI	P15224
	BIT	#4000, R1

	BEQ	P15100
	MOV	#100000, (R0)

P15120:
	MOV	(R0), R1
	BMI	P15224
	BIT	#10000, R1

	BEQ	P15120
	MOV	#100000, (R0)

P15136:
	MOV	(R0), R1
	BMI	P15224
	BIT	#20000, R1

	BEQ	P15136
	CLR	(R0)
P15152:
	MOV	(R0), R1
	BMI	P15224
	BIT	#40000, R1

	BEQ	P15152
	MOV	#1, (R0)

	MOV	#100100, @#L00000

	MOV	#100014, @#L00004

	JSR	R0, P15274

	.WORD	11
	CALL	P15346

	BCC	P15222
	BR	P15454
P15222:
	BR	P15230
P15224:
	SOB	R5, P15076
	BR	P15454
P15230:
	JSR	R0, P15274

	.WORD	41
	CLR	@#L00050

	MOV	#1000, @#L00030

	CLR	@#L00034

	CALL	P15346

	BCC	P15264
	BR	P15454
P15264:
	MOV	@#K01204, R0

	CLR	(R0)
	BR	P15504
P15274:
	MOV	#100010, R2

	MOV	#100074, R3

P15304:
	CLR	-(R3)
	CMP	R3, R2
	BHI	P15304
	MOV	#60, @#L00010

	MOV	#60, @#L00074

	MOV	#100014, R2

	MOV	(R0)+, 10(R2)

	MOV	@#K01206, 4(R2)

	RTS	R0
P15346:
	MOV	@#K01204, R0

	MOV	#100000, @#L00002

	MOV	#100000, @#L00006

	TST	(R0)+
P15370:
	TST	(R0)
	BNE	P15430
	BIT	#100000, @#L00006

	BNE	P15370
P15404:
	TST	(R0)
	BNE	P15430
	BIT	#100000, @#L00002

	BNE	P15404
	TSTB	@#L00112

	BEQ	P15434
	BR	P15430
P15430:
	SEC
	RETURN
P15434:
	CLC
	RETURN
P15440:
	MOV	#P05565, R0

	BR	P15460
P15446:
	MOV	#P05457, R0

	BR	P15460
P15454:
	MOV	#P05520, R0

P15460:

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

P15504:
	MOV	@#K01206, R0

	MOV	@#K01204, R1

	CLR	R2
	CLR	R3
	CLR	R5
	CLR	PC

  $LABEL P15522
	.WORD	172150
	.WORD	160334
	.WORD	160340
	.WORD	160344

  $LABEL MSBOOT

	MOV	#P15734, R2

	MOV	#K02122, R5
P15544:
	MOV	-(R2), -(R5)
	TSTB	R5
	BNE	P15544

	MOV	@#K01204, R0

	ASL	R0
	MOV	#P15732, R1

	ADD	R0, R1
	MOV	(R1), R0
	CLC
	TST	(R0)
	BCS	P15440
	MOV	R0, R1
	ADD	#2, R1

	MOV	R1, @#K01204

	CLR	(R1)
P15612:
	TSTB	(R1)
	BPL	P15612
	MOV	#K02064, (R0)

P15622:
	TSTB	(R1)
	BPL	P15622
	TST	(R1)
	BMI	P15446
	BIT	#100, (R1)

	BNE	P15446
	MOV	#K02104, R2

	MOV	R2, (R0)
P15646:
	TSTB	(R1)
	BPL	P15646
	MOV	R2, (R0)
P15654:
	TSTB	(R1)
	BPL	P15654
	TST	(R1)
	BMI	P15454
	MOV	#K02100, R4

	BR	P15504

	.ASCII	/SM/
	.WORD	0
	.WORD	140004
	.WORD	K02074
	.WORD	0
	.WORD	10
	.WORD	K02116
	.WORD	0
	.WORD	16
	.WORD	0
	.WORD	140001
	.WORD	0
	.WORD	0
	.WORD	1000
	.WORD	0
	.WORD	0

  $LABEL P15732

	.WORD	172520

  $LABEL P15734

	.WORD	172524
	.WORD	172530
	.WORD	172534

  $FILL