$PAGE 16

	BR	P16024

	.WORD	0

  $LABEL MTBOOT

P16024:
	MOV	#MTCSR, R1

	MOV	@#K01206, R0

	MOV	#10, R2

P16040:
	MOV	R0, R3
	SWAB	R3
	CLC
	MOV	R3, (R1)
	BCS	P16164
	ROR	177776(R1)

	BCS	P16062
	BR	P16172
P16062:
	BIS	#60017, (R1)

P16066:
	TSTB	(R1)
	BPL	P16066
	MOV	#177777, 2(R1)

	MOVB	#11, (R1)

P16104:
	TSTB	(R1)
	BPL	P16104
	TST	(R1)
	BPL	P16116
	BR	P16150
P16116:
	MOV	#^O<-1000>, 2(R1)

	MOV	(R1), R3
	BIC	#377, R3

	BISB	#3, R3

	MOV	R3, (R1)
P16140:
	TSTB	(R1)
	BPL	P16140
	TST	(R1)
	BPL	P16156
P16150:
	DEC	R2
	BNE	P16040
	BR	P16200
P16156:
	BIC	#377, (R1)

	CLR	PC
P16164:
	MOV	#P05565, R0

	BR	P16204
P16172:
	MOV	#P05457, R0

	BR	P16204
P16200:
	MOV	#P05520, R0

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

P16230:
	MOV	@#K01206, R0

	MOV	@#K01204, R1

	CLR	R3
	CLR	R5
	CLR	PC

MUBOOT:
	MOV	@#K01204, R1

	ASL	R1
	MOV	#P16724, R5

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

	MOV	#L00000, R2

	MOV	#L00300, R3

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

P16320:
	CLR	(R0)+
P16322:
	MOV	(R0), R1
	BCS	P16454
	BMI	P16454
	BIT	#4000, R1

	BEQ	P16322
	MOV	#100000, (R0)

P16342:
	MOV	(R0), R1
	BMI	P16454
	BIT	#10000, R1

	BEQ	P16342
	MOV	#100000, (R0)

P16360:
	MOV	(R0), R1
	BMI	P16454
	BIT	#20000, R1

	BEQ	P16360
	CLR	(R0)
P16374:
	MOV	(R0), R1
	BMI	P16454
	BIT	#40000, R1

	BEQ	P16374
	MOV	#1, (R0)

	MOV	#100100, @#L00000

	MOV	#100014, @#L00004

	JSR	R0, P16544
	.WORD	400
	.WORD	11
	.WORD	0
	.WORD	0

	CALL	P16632

	BCC	P16452
	BR	P16200
P16452:
	BR	P16460
P16454:
	SOB	R5, P16320
	BR	P16200
P16460:
	JSR	R0, P16544
	.WORD	400
	.WORD	41
	.WORD	37000
	.WORD	10000

	CALL	P16632

	JSR	R0, P16544
	.WORD	400
	.WORD	41
	.WORD	1000
	.WORD	0

	CALL	P16632

	BCC	P16524
	BR	P16200
P16524:
	MOV	#"UM, @#K04000

	MOV	#K04020, R4

	MOV	#100002, R2

	BR	P16230
P16544:
	MOV	#100010, R2

	MOV	#100074, R3

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

	MOV	#60, @#L00074

	MOV	#L00014, R2

	MOV	(R0)+, 177776(R2)

	MOV	(R0)+, 10(R2)

	MOV	(R0)+, 14(R2)

	MOV	(R0)+, 20(R2)

	MOV	@#K01206, 4(R2)

	RTS	R0
P16632:
	MOV	@#K01204, R0

	MOV	#100000, @#L00002

	MOV	#100000, @#L00006

	TST	(R0)+
P16654:
	TST	(R0)
	BNE	P16714
	BIT	#100000, @#L00006

	BNE	P16654
P16670:
	TST	(R0)
	BNE	P16714
	BIT	#100000, @#L00002

	BNE	P16670
	TSTB	@#L00112

	BEQ	P16720
	BR	P16714
P16714:
	SEC
	RETURN
P16720:
	CLC
	RETURN

  $LABEL P16724

	.WORD	174500
	.WORD	160404
	.WORD	160410
	.WORD	160414

  $FILL