dsksync	EQU	$7E
bltbpth	EQU	$4C
potgo	EQU	$34
adkcon	EQU	$9E
color0	EQU	$180
color1	EQU	$182
color2	EQU	$184
color3	EQU	$186
_custom	EQU	$DFF000
ddfstop	EQU	$94
bltapth	EQU	$50
bltcon0	EQU	$40
bltcon1	EQU	$42
diwstrt	EQU	$8E
intreq	EQU	$9C
bplcon0	EQU	$100
bplcon1	EQU	$102
foreground	EQU	$888
dskpth	EQU	$20
diwstop	EQU	$90
ddfstrt	EQU	$92
bltdpth	EQU	$54
intena	EQU	$9A
bltafwm	EQU	$44
joy0dat	EQU	$A
intreqr	EQU	$1E
bltbmod	EQU	$62
bpl2mod	EQU	$10A
potinp	EQU	$16
bltamod	EQU	$64
bpl1mod	EQU	$108
vhposr	EQU	$6
bltalwm	EQU	$46
dmacon	EQU	$96
bltcdat	EQU	$70
dsklen	EQU	$24
MEMF_CHIP	EQU	$2
MemList	EQU	$142
bltsize	EQU	$58
MaxExtMem	EQU	$4E
bltdmod	EQU	$66
**********************************************************************
	BRA	lbC0000BA

	LEA	$78000,A0
	MOVE.L	#$1FFF,D0
lbC000010	CLR.L	(A0)+
	DBRA	D0,lbC000010

	MOVE.B	#2,$78260
	MOVE.B	#0,$7FA01
	LEA	$3FF00,A0
	MOVEQ	#$7F,D0
lbC00002E	CLR.W	(A0)+
	DBRA	D0,lbC00002E

	MOVE.B	#0,$7FC21
	MOVE.B	#0,$7FC23
	MOVE.B	#9,$7FC25
	MOVE.B	#3,$7FC27
	MOVE.B	#5,$7FC29
	MOVE.B	#1,$7FC2B
	MOVE.B	#6,$7FC2F
	MOVE.B	#1,$7FC31
	MOVE.B	#6,$7FC33
	MOVE.B	#0,$7FC35
	MOVE.B	#10,$7FC37
	MOVE.B	#0,$7FC39
	LEA	$701DA,A0
	MOVE.L	0.w,D0
	CMP.L	(A0),D0
	BNE	Deadend
	LEA	$40000,A0
	LEA	$70000,A1
lbC0000B0	MOVE.L	A0,D0
	EOR.L	D0,(A0)+
	CMP.L	A0,A1
	BNE	lbC0000B0
lbC0000BA	CLR.B	$3FF3A
	MOVE.W	#0,D0
	BSR	lbC00064E
	LEA	_custom,A0
	MOVE.W	#$7FF,dmacon(A0)
	MOVE.W	#$7FFF,intena(A0)
	MOVE.W	#$3FFF,intreq(A0)
	MOVE.L	#$700EA,$20
	MOVE	#$2700,SR
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	MOVE.W	#$FFFF,$73FF0
	CLR.W	$3FF0A
	MOVE.L	#$71034,$4100C
lbC000122	SUB.L	A5,A5
	CMP.L	#$31415926,$426(A5)
	BNE.S	lbC000146
	MOVE.L	$42A(A5),D0
	TST.B	$42A(A5)
	BNE.S	lbC000146
	BTST	#0,D0
	BNE.S	lbC000146
	MOVE.L	D0,A0
	LEA	lbC000122(PC),A6
	JMP	(A0)

lbC000146	MOVE.W	#7,$484
	MOVE.W	#$F02,$E82
	MOVE.B	#1,$78201
	MOVE.B	#0,$78203
	TST.L	$3FF00
	BNE	lbC000276
	MOVE.L	4,A6
	MOVE.L	MemList(A6),A6
lbC00017A	BTST	#MEMF_CHIP,15(A6)
	BEQ.S	lbC0001AE
	CMP.L	#$C00000,$14(A6)
	BGE.S	lbC0001AE
	MOVE.L	$14(A6),D0
	AND.L	#$FFFF0000,D0
	MOVE.L	D0,$3FF00
	MOVE.L	$18(A6),D0
	MOVE.L	D0,$3FF04
	BSR	lbC000256
	BRA	lbC000276

lbC0001AE	TST.L	(A6)
	MOVE.L	0(A6),A6
	BNE.S	lbC00017A
	MOVE.L	4,A6
	TST.L	MaxExtMem(A6)
	BEQ.S	lbC0001FA
	MOVE.L	MaxExtMem(A6),A6
	MOVE.L	#$C00000,$3FF00
	MOVE.L	A6,$3FF04
	BRA	lbC000276

	dc.b	'CODX OF THE BRAINS HAS DONE IT !'

lbC0001FA	CLR.W	$FC0000
	TST.W	$FC0000
	BNE	lbC000226
	MOVE.L	#$FC0000,$3FF00
	MOVE.L	#$1000000,$3FF04
	BSR	lbC000256
	BRA	lbC000276

lbC000226	LEA	$80000,A0
	CMP.L	#'CODX',(A0)
	BEQ	lbC000252
	MOVE.L	#$80000,$3FF00
	MOVE.L	#$100000,$3FF04
	BSR	lbC000256
	BRA	lbC000276

lbC000252	BRA	Deadend

lbC000256	MOVE.L	$3FF00,A0
	MOVE.L	#$1000,D0
lbC000262	CLR.L	(A0)+
	DBRA	D0,lbC000262

	RTS

Deadend	MOVE.W	_custom+vhposr,_custom+color0
	BRA.S	Deadend

lbC000276	LEA	lbC000280(PC),A6
	JMP	$40688

lbC000280	BEQ	lbC0002F6
	SUB.L	A5,A5
	MOVE.L	#$38000,A0
	MOVE.L	#$28000,D4
	MOVEQ	#0,D0
	MOVEQ	#0,D1
	MOVEQ	#0,D2
	MOVEQ	#0,D3
lbC00029A	MOVEM.L	D0-D3,-(A0)
	MOVEM.L	D0-D3,-(A0)
	MOVEM.L	D0-D3,-(A0)
	MOVEM.L	D0-D3,-(A0)
	CMP.L	D4,A0
	BNE.S	lbC00029A
	MOVE.L	#$18000,A0
	MOVE.L	#$400,D4
	MOVEQ	#0,D0
	MOVEQ	#0,D1
	MOVEQ	#0,D2
	MOVEQ	#0,D3
lbC0002C2	MOVEM.L	D0-D3,-(A0)
	MOVEM.L	D0-D3,-(A0)
	MOVEM.L	D0-D3,-(A0)
	MOVEM.L	D0-D3,-(A0)
	CMP.L	D4,A0
	BNE.S	lbC0002C2
	MOVE.L	$3FF04,$42E(A5)
	MOVE.L	#$752019F3,$420(A5)
	MOVE.L	#$237698AA,$43A(A5)
	MOVE.L	#$5555AAAA,$51A(A5)
lbC0002F6	MOVE.L	#$30000,A0
	MOVE.L	#$20000,D4
	MOVEQ	#-$1,D0
lbC000304	MOVE.L	D0,-(A0)
	CMP.L	D4,A0
	BNE.S	lbC000304
	BSR	lbC000A0C
	SUB.L	A5,A5
	MOVE.L	#$980,A0
	MOVE.L	#$10000,A1
	MOVEQ	#0,D0
lbC00031E	MOVE.W	D0,(A0)+
	CMP.L	A0,A1
	BNE.S	lbC00031E
	MOVE.L	$42E,A0
	SUB.L	#$8000,A0
	CMP.B	#2,$78260
	BLT.S	lbC000340
	LEA	$30000,A0
lbC000340	MOVE.L	A0,$44E(A5)
	MOVE.B	$44F(A5),$78201
	MOVE.B	$450(A5),$78203
	MOVE.W	#$7FF,D1
lbC000358	MOVE.L	D0,(A0)+
	MOVE.L	D0,(A0)+
	MOVE.L	D0,(A0)+
	MOVE.L	D0,(A0)+
	DBRA	D1,lbC000358

	MOVE.W	#$FFF,D0
	MOVE.L	$40014,A0
	CMP.L	#$87654321,(A0)
	BEQ.S	lbC00037C
	LEA	$40008,A0
lbC00037C	MOVE.L	4(A0),$4FA
	MOVE.L	8(A0),$4FE
	LEA	lbC0003A4(PC),A6
	CMP.B	#1,$78260
	BLT	lbC00068E
	BEQ	lbC000704
	BGT	lbC00076A
lbC0003A4	MOVE.L	#$3FFB0,$80(A0)
	TST.W	$88(A0)
lbC0003B0	BSR	lbC000668
	TST.W	4(A0)
	BPL.S	lbC0003B0
	MOVE.W	#$83C0,$96(A0)
	MOVE.L	#$7111C,$46A(A5)
	MOVE.L	#$71174,$476(A5)
	MOVE.L	#$40FCA,$472(A5)
	MOVE.L	#$71294,$47E(A5)
	MOVE.L	#$712C0,$47A(A5)
	MOVE.L	#$70FC4,$506(A5)
	MOVE.L	#$70F82,$50A(A5)
	MOVE.L	#$71116,$50E(A5)
	MOVE.L	#$71116,$512(A5)
	MOVE.L	#$40D62,$502(A5)
	MOVE.L	$3FF04,$436(A5)
	MOVE.L	$3FF00,$432(A5)
	LEA	$755A,SP
	MOVE.W	#8,$454(A5)
	ST 	$444(A5)
	MOVE.W	#3,$440(A5)
	MOVE.L	#$16DA,$4C6(A5)
	MOVE.W	#$FFFF,$4EE(A5)
	MOVE.L	#$40000,$4F2(A5)
	MOVE.L	#$93A,$4A2(A5)
	MOVE.L	#$40670,$46E(A5)
	MOVE.W	#$FFF,D0
	JSR	$40EBA
	LEA	$407CE,A3
	LEA	$40670,A4
	LEA	$40B50,A1
	ADD.L	#$2000000,A1
	LEA	8,A0
	MOVE.W	#$3D,D0
lbC000488	MOVE.L	A1,(A0)+
	ADD.L	#$1000000,A1
	DBRA	D0,lbC000488

	MOVE.L	A3,$14
	MOVEQ	#6,D0
	LEA	$64(A5),A1
lbC0004A0	MOVE.L	#$407CE,(A1)+
	DBRA	D0,lbC0004A0

	MOVE.L	#$406DE,$70(A5)
	MOVE.L	#$7081A,$6C(A5)
	MOVE.L	#$70ADE,$68
	MOVE.W	#$C028,_custom+intena
	MOVE.L	A3,$88(A5)
	MOVE.L	#$70D6A,$B4(A5)
	MOVE.L	#$70D62,$B8(A5)
	MOVE.L	#$49F66,$28(A5)
	MOVE.L	A4,$400(A5)
	MOVE.L	#$407EE,$404(A5)
	MOVE.L	A4,$408(A5)
	LEA	$4CE(A5),A0
	MOVE.L	A0,$456(A5)
	MOVE.W	#7,D0
lbC000504	CLR.L	(A0)+
	DBRA	D0,lbC000504

	LEA	$409AE,A0
	MOVE.W	#$51E,A1
	MOVEQ	#$1F,D0
lbC000516	MOVE.L	(A0)+,(A1)+
	DBRA	D0,lbC000516

	MOVE.B	$7FA01,D0
	MOVE.W	D0,-(SP)
	JSR	$42408
	MOVE.W	(SP)+,D0
	MOVE.B	D0,$7FA01
	MOVE.L	#$7FFF,D0
lbC000538	JSR	$40556
	DBRA	D0,lbC000538

	MOVE.W	#$CCC,D0
	LEA	lbC00054A(PC),A6
lbC00054A	MOVE.B	$78260,$44C
	MOVEQ	#0,D0
	JSR	$4A9F8
	JSR	$4A96E
	MOVE.L	#$700BA,$46E(A5)
	MOVE.W	#1,$452
	MOVE	#$2100,SR
	MOVE.W	#$999,D0
	JSR	$44AF8
	MOVE.W	$4001E,$8840
	JSR	$44C42
	JSR	$4053C
	JSR	$40E56
	TST.W	$482
	BEQ.S	lbC0005C2
	JSR	$40C4A
	PEA	$40538
	PEA	$40538
	PEA	$40524
	CLR.W	-(SP)
	BRA	lbC000636

lbC0005C2	JSR	$40C4A
	MOVE.W	#$666,D0
	MOVE.L	#$40000,$4F2
	LEA	$40518,A0
	MOVE.L	#$840,A1
lbC0005E2	CMP.B	#$23,(A0)
	BNE.S	lbC0005EA
	MOVE.L	A1,A2
lbC0005EA	MOVE.B	(A0)+,(A1)+
	BPL.S	lbC0005E2
	MOVE.B	$446,D0
	ADD.B	#$41,D0
	MOVE.B	D0,(A2)
	PEA	$840
	PEA	$40538
	PEA	$40538
	MOVE.W	#5,-(SP)
	MOVE.W	#$4B,-(SP)
	TRAP	#1
	ADD.W	#14,SP
	MOVE.L	D0,A0
	MOVE.L	$4FE,8(A0)
	PEA	$840
	MOVE.L	A0,-(SP)
	PEA	$40538
	MOVE.W	#4,-(SP)
lbC000636	MOVE.W	#$4B,-(SP)
	TRAP	#1
	ADD.W	#14,SP
	MOVEQ	#3,D7
	JSR	$40BAC
	JMP	$700BA

lbC00064E	MOVE.W	D0,_custom+color0
	MOVE.W	D0,_custom+color1
	MOVE.W	D0,_custom+color2
	MOVE.W	D0,_custom+color3
	RTS

lbC000668	MOVE.W	$1E(A0),D0
	BTST	#5,D0
	BEQ.S	lbC000668
	MOVE.W	D0,$9C(A0)
	RTS

lbC000678	BTST	#6,$BFE001
	BNE.S	lbC000678
lbC000682	BTST	#6,$BFE001
	BEQ.S	lbC000682
	RTS

lbC00068E	LEA	_custom,A0
	MOVE.W	#$4200,bplcon0(A0)
	MOVE.W	#0,bplcon1(A0)
	MOVE.W	#0,bpl1mod(A0)
	MOVE.W	#0,bpl2mod(A0)
	MOVE.W	#$38,ddfstrt(A0)
	MOVE.W	#$D0,ddfstop(A0)
	MOVE.W	#$2C81,diwstrt(A0)
	MOVE.W	#$F4C1,diwstop(A0)
	MOVE.W	#$222,color1(A0)
	LEA	$706E0,A1
	LEA	$3FFB0,A2
	MOVEQ	#$11,D0
lbC0006D8	MOVE.W	(A1)+,(A2)+
	DBRA	D0,lbC0006D8

	JMP	(A6)

	dc.l	$E00003
	dc.l	$E20000
	dc.l	$E40003
	dc.l	$E62000
	dc.l	$E80003
	dc.l	$EA4000
	dc.l	$EC0003
	dc.l	$EE6000
	dc.l	$FFFFFFFE

lbC000704	LEA	_custom,A0
	MOVE.W	#$A200,bplcon0(A0)
	MOVE.W	#0,bplcon1(A0)
	MOVE.W	#0,bpl1mod(A0)
	MOVE.W	#0,bpl2mod(A0)
	MOVE.W	#$3C,ddfstrt(A0)
	MOVE.W	#$D4,ddfstop(A0)
	MOVE.W	#$2C81,diwstrt(A0)
	MOVE.W	#$F4C1,diwstop(A0)
	MOVE.W	#$222,color1(A0)
	LEA	$70756,A1
	LEA	$3FFB0,A2
	MOVEQ	#9,D0
lbC00074E	MOVE.W	(A1)+,(A2)+
	DBRA	D0,lbC00074E

	JMP	(A6)

	dc.l	$E00003
	dc.l	$E20000
	dc.l	$E40003
	dc.l	$E64000
	dc.l	$FFFFFFFE

lbC00076A	LEA	_custom,A0
	MOVE.W	#$A204,bplcon0(A0)
	MOVE.W	#0,bplcon1(A0)
	MOVE.W	#$50,bpl1mod(A0)
	MOVE.W	#$50,bpl2mod(A0)
	MOVE.W	#$3C,ddfstrt(A0)
	MOVE.W	#$D4,ddfstop(A0)
	MOVE.W	#$3C81,diwstrt(A0)
	MOVE.W	#$4C1,diwstop(A0)
	MOVE.W	#0,color0(A0)
	MOVE.W	#0,color1(A0)
	MOVE.W	#foreground,color2(A0)
	MOVE.W	#0,color3(A0)
	LEA	$707E2,A1
	LEA	$3FFB0,A2
	MOVEQ	#13,D0
lbC0007C6	MOVE.W	(A1)+,(A2)+
	DBRA	D0,lbC0007C6

	LEA	$707FE,A1
	LEA	$3FFD0,A2
	MOVEQ	#13,D0
lbC0007DA	MOVE.W	(A1)+,(A2)+
	DBRA	D0,lbC0007DA

	JMP	(A6)

	dc.l	$E00003
	dc.l	$E20000
	dc.l	$E40002
	dc.l	$E68000
	dc.l	$800003
	dc.l	$82FFD0
	dc.l	$FFFFFFFE
	dc.l	$E00003
	dc.l	$E20050
	dc.l	$E40002
	dc.l	$E68050
	dc.l	$800003
	dc.l	$82FFB0
	dc.l	$FFFFFFFE

	MOVE.W	#$20,_custom+intreq
	CMP.B	#7,$3FF3A
	BNE	lbC000834
	JMP	$700BA

lbC000834	CMP.B	#11,$3FF3A
	BNE	lbC000854
	MOVE.B	#1,$78260
	MOVE.B	#$80,$7FA01
	BRA	lbC000870

lbC000854	CMP.B	#$13,$3FF3A
	BNE	lbC000876
	MOVE.B	#2,$78260
	MOVE.B	#0,$7FA01
lbC000870	JMP	$700BA

lbC000876	MOVEM.L	D0/D7/A0-A4,-(SP)
	BSR	lbC001E32
	BCHG	#1,$BFE001
	TST.W	$3FF1E
	BNE	lbC000918
	SUBQ.W	#1,$3FF08
	BPL.S	lbC0008F2
	MOVE.W	#2,$3FF08
	CMP.B	#2,$78260
	BEQ	lbC0008C4
	MOVE.L	#$78240,A0
	MOVE.L	#_custom+color0,A1
	MOVEQ	#15,D7
lbC0008BA	MOVE.W	(A0)+,D0
	LSL.W	#1,D0
	MOVE.W	D0,(A1)+
	DBRA	D7,lbC0008BA

lbC0008C4	MOVEQ	#0,D0
	MOVE.B	$78201,D0
	SWAP	D0
	MOVE.B	$78203,D0
	LSL.W	#8,D0
	MOVE.L	D0,A0
	LEA	$30000,A1
	CMP.B	#1,$78260
	BLT	Lores
	BGT	Hires
	BRA	Meres

lbC0008F2	TST.W	$3FF20
	BEQ.S	lbC00090A
	SUBQ.W	#1,$3FF20
	BNE.S	lbC000918
	BSR	lbC001464
	BRA	lbC000918

lbC00090A	TST.W	$3FF1E
	BNE	lbC000918
	BSR	lbC000C1A
lbC000918	TST.B	$3FF38
	BEQ	lbC000928
	SUBQ.B	#1,$3FF38
lbC000928	BSR	lbC000D60
	TST.B	$2847
	BNE.S	lbC000940
	TST.W	$3FF0A
	BEQ.S	lbC000940
	BSR	lbC000A5C
lbC000940	MOVEM.L	(SP)+,D0/D7/A0-A4
	ADDQ.L	#4,$4BA
	JSR	$4312C
	MOVE.L	$70.w,-(SP)
	RTS

Lores	LEA	$2000(A1),A2
	LEA	$2000(A2),A3
	LEA	$2000(A3),A4
	MOVE.W	#$3E7,D7
1$	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A3)+
	MOVE.W	(A0)+,(A4)+
	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A3)+
	MOVE.W	(A0)+,(A4)+
	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A3)+
	MOVE.W	(A0)+,(A4)+
	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A3)+
	MOVE.W	(A0)+,(A4)+
	DBRA	D7,1$

	BRA	lbC0008F2

Meres	LEA	$4000(A1),A2
	MOVE.W	#$3E7,D7
1$	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	MOVE.W	(A0)+,(A1)+
	MOVE.W	(A0)+,(A2)+
	DBRA	D7,1$

	BRA	lbC0008F2

Hires	CMP.L	#$40000,D0
	BLE	lbC0009E4
	MOVE.W	#$3E7,D7
1$	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	MOVE.L	(A0)+,(A1)+
	DBRA	D7,1$

	BRA	lbC0008F2

lbC0009E4	MOVE.B	$78201,D0
	MOVE.B	D0,$3FFB3
	MOVE.B	D0,$3FFD3
	MOVE.B	$78203,D0
	MOVE.B	D0,$3FFB6
	MOVE.B	D0,$3FFD6
	BRA	lbC0008F2

lbC000A0C	LEA	$28000,A0
	EOR.B	#$E0,0(A0)
	EOR.B	#$80,$50(A0)
	EOR.B	#$80,$A0(A0)
	EOR.B	#7,$4F(A0)
	EOR.B	#1,$9F(A0)
	EOR.B	#1,$EF(A0)
	EOR.B	#$80,$7C10(A0)
	EOR.B	#$80,$7C60(A0)
	EOR.B	#$E0,$7CB0(A0)
	EOR.B	#1,$7C5F(A0)
	EOR.B	#1,$7CAF(A0)
	EOR.B	#7,$7CFF(A0)
	RTS

lbC000A5C	MOVEM.L	D1/D2/A0/A1/A5,-(SP)
	SUB.L	A5,A5
	LEA	$3FFF0,A0
	CLR.W	D0
	MOVE.W	#$FF00,_custom+potgo
	BTST	#6,$BFE001
	BNE.S	lbC000A80
	BSET	#1,D0
lbC000A80	BTST	#2,_custom+potinp
	BNE.S	lbC000A8E
	BSET	#0,D0
lbC000A8E	OR.B	#$F8,D0
	MOVE.B	D0,(A0)
	MOVE.W	_custom+joy0dat,D2
	MOVE.L	$3FF12,$3FF0E
	MOVE.B	D2,D1
	MOVE.W	D1,$3FF12
	SUB.W	$3FF0E,D1
	LSR.W	#8,D2
	MOVE.W	D2,$3FF14
	SUB.W	$3FF10,D2
	MOVE.B	D1,1(A0)
	MOVE.B	D2,2(A0)
	MOVE.L	$E22,A1
	MOVE.L	A1,D0
	TST.L	D0
	BMI	lbC000AD8
	JSR	(A1)
lbC000AD8	MOVEM.L	(SP)+,D1/D2/A0/A1/A5
	RTS

	MOVEM.L	D0-D7/A0-A6,-(SP)
	SUB.L	A5,A5
	MOVE.B	$BFED01,D0
	MOVE.W	#8,_custom+intreq
	MOVE.B	$BFEC01,D0
	BSET	#6,$BFEE01
	MOVE.B	#0,$BFEC01
	BCLR	#6,$BFEE01
	NOT.B	D0
	ROR.B	#1,D0
	MOVE.B	D0,D1
	BSR	lbC000B70
	AND.W	#$7F,D1
	CMP.B	#$62,D1
	BEQ.S	lbC000B46
	LEA	e.MSG(PC),A0
	MOVE.B	0(A0,D1.W),D3
	AND.B	#$80,D0
	OR.B	D3,D0
	CLR.W	D1
	LEA	$C76,A0
	JSR	$42B5C
	MOVEM.L	(SP)+,D0-D7/A0-A6
	RTE

lbC000B46	CLR.W	D1
	MOVE.B	#$3A,D0
	LEA	$C76,A0
	JSR	$42B5C
	CLR.W	D1
	MOVE.B	#$BA,D0
	LEA	$C76,A0
	JSR	$42B5C
	MOVEM.L	(SP)+,D0-D7/A0-A6
	RTE

lbC000B70	MOVEM.L	D0-D3/A0,-(SP)
	MOVE.B	$3FF3A,D3
	LEA	cdeON.MSG(PC),A0
	MOVEQ	#0,D0
lbC000B80	MOVE.B	(A0)+,D2
	CMP.B	D1,D2
	BNE.S	lbC000B8A
	BSET	D0,D3
	BRA.S	lbC000B94

lbC000B8A	OR.B	#$80,D2
	CMP.B	D1,D2
	BNE.S	lbC000B94
	BCLR	D0,D3
lbC000B94	ADDQ.B	#1,D0
	CMP.B	#5,D0
	BNE	lbC000B80
	MOVE.B	D3,$3FF3A
	MOVEM.L	(SP)+,D0-D3/A0
	RTS

cdeON.MSG	dc.b	'cdeON',0
e.MSG	dc.b	13
	dc.b	2
	dc.b	3
	dc.b	4
	dc.b	5
	dc.b	6
	dc.b	7
	dc.b	8
	dc.b	9
	dc.b	10
	dc.b	11
	dc.b	12
	dc.b	13
	dc.b	'e',0
	dc.b	'p'
	dc.b	$10
	dc.b	$11
	dc.b	$12
	dc.b	$13
	dc.b	$14
	dc.b	$15
	dc.b	$16
	dc.b	$17
	dc.b	$18
	dc.b	$19
	dc.b	$1A
	dc.b	$1B
	dc.b	0
	dc.b	'mno'
	dc.b	$1E
	dc.b	$1F
	dc.b	' !"#$%&''()',0
	dc.b	'jkl`,'
	dc.b	'-./012345',0
	dc.b	'qghi9'
	dc.b	14
	dc.b	15
	dc.b	'r'
	dc.b	$1C
	dc.b	1
	dc.b	'S',0,0
	dc.b	0
	dc.b	'J',0
	dc.b	'HPMK;<=>?@ABCD',0,0
	dcb.b	2,0
	dc.b	0
	dc.b	'b*6:'
	dc.b	$1D
	dc.b	'8aRG',0,0

lbC000C1A	MOVEM.L	D0/D1,-(SP)
	TST.B	$3FF39
	BNE	lbC000C5C
	MOVE.B	#1,$3FF38
	MOVE.B	#$28,$3FF39
	MOVEQ	#0,D0
	MOVE.B	$3FF3B,D0
	BSR	lbC000C68
	MOVEQ	#2,D1
	ADDQ.B	#1,$3FF3B
lbC000C4C	ADDQ.B	#1,D0
	CMP.B	D1,D0
	BNE	lbC000C5C
	MOVE.B	#0,$3FF3B
lbC000C5C	SUBQ.B	#1,$3FF39
	MOVEM.L	(SP)+,D0/D1
	RTS

lbC000C68	MOVEM.L	D0-D7/A0-A2,-(SP)
	LEA	$3FF34,A0
	LEA	$3FF40,A1
	LEA	$3FF3C,A2
	BSR	lbC000D2A
	TST.B	0(A0,D0.W)
	BNE	lbC000C8E
	CLR.B	0(A1,D0.W)
lbC000C8E	TST.B	0(A1,D0.W)
	BEQ	lbC000CA2
	BSET	#1,$BFD100
	BRA	lbC000CAA

lbC000CA2	BCLR	#1,$BFD100
lbC000CAA	MOVE.B	0(A2,D0.W),D1
	CMP.B	#$FF,D1
	BNE	lbC000CEA
	BCLR	#0,$BFD100
	NOP
	NOP
	NOP
	BSET	#0,$BFD100
	TST.B	0(A1,D0.W)
	BEQ	lbC000CE0
	SUBQ.B	#1,0(A0,D0.W)
	CLR.B	0(A1,D0.W)
	BRA	lbC000CEA

lbC000CE0	ADDQ.B	#1,0(A0,D0.W)
	MOVE.B	#1,0(A1,D0.W)
lbC000CEA	BTST	#2,$BFE001
	BEQ.S	lbC000D06
	CMP.B	#$FF,D1
	BNE	lbC000D20
	MOVE.B	#2,0(A2,D0.W)
	BRA	lbC000D20

lbC000D06	MOVE.B	#$FF,0(A2,D0.W)
	MOVE.W	$73FF0,D1
	CMP.W	D0,D1
	BNE	lbC000D20
	MOVE.W	#$FFFF,$73FF0
lbC000D20	BSR	lbC000D42
	MOVEM.L	(SP)+,D0-D7/A0-A2
	RTS

lbC000D2A	MOVE.L	D0,D6
	ADDQ.L	#3,D6
	MOVE.B	#$7D,$BFD100
	NOP
	NOP
	BCLR	D6,$BFD100
	RTS

lbC000D42	MOVE.L	D0,D6
	ADDQ.L	#3,D6
	MOVE.B	#$FD,$BFD100
	NOP
	NOP
	BCLR	D6,$BFD100
	BSET	D6,$BFD100
	RTS

lbC000D60	RTS

	LEA	$70DEC,A0
	BRA.S	lbC000D70

	LEA	$70DBA,A0
lbC000D70	MOVE.L	$4A2,A1
	MOVE.W	(SP)+,D0
	MOVE.W	D0,-(A1)
	MOVE.L	(SP)+,-(A1)
	MOVEM.L	D3-D7/A3-A7,-(A1)
	MOVE.L	A1,$4A2
	BTST	#13,D0
	BNE.S	lbC000D8E
	MOVE	USP,SP
lbC000D8E	MOVE.W	(SP)+,D0
	CMP.W	(A0)+,D0
	BGE.S	lbC000DA4
	LSL.W	#2,D0
	MOVE.L	0(A0,D0.W),D0
	MOVE.L	D0,A0
	BPL.S	lbC000DA0
	MOVE.L	(A0),A0
lbC000DA0	SUB.L	A5,A5
	JSR	(A0)
lbC000DA4	MOVE.L	$4A2,A1
	MOVEM.L	(A1)+,D3-D7/A3-A7
	MOVE.L	(A1)+,-(SP)
	MOVE.W	(A1)+,-(SP)
	MOVE.L	A1,$4A2
	RTE

BIOS	dc.w	12
	dc.l	$40A46
	dc.l	$70F32
	dc.l	$70F4E
	dc.l	$70F62
	dc.l	$80000476
	dc.l	$40A72
	dc.l	$40A8A
	dc.l	$80000472
	dc.l	$70FAC
	dc.l	$8000047E
	dc.l	$40A2E
	dc.l	$40A34
XBIOS	dc.w	$41
	dc.l	$70FD4
	dc.l	$40670
	dc.l	$40A92
	dc.l	$40AA6
	dc.l	$7102A
	dc.l	$70FE8
	dc.l	$40B06
	dc.l	$40B0E
	dc.l	$71034
	dc.l	$7107A
	dc.l	$710C0
	dc.l	$40FC0
	dcb.l	2,$71112
	dc.l	$428F6
	dc.l	$71112
	dc.l	$43088
	dc.l	$41510
	dc.l	$415F8
	dc.l	$41AE2
	dc.l	$40D50
	dc.l	$446F2
	dc.l	$71F9E
	dc.l	$71EF2
	dc.l	$430B4
	dcb.l	3,$71112
	dc.l	$70EF2
	dc.l	$70F26
	dc.l	$70F2A
	dc.l	$71112
	dc.l	$70F2E
	dc.l	$430E2
	dc.l	$43116
	dc.l	$430F4
	dc.l	$43254
	dc.l	$407D0
	dc.l	$4097E
	dc.l	$40B34
	dc.l	$71112
	dcb.l	$17,$40670
	dc.l	$40EF6

OFFGIBIT	MOVE.W	#$F0,_custom+color0
	MOVEQ	#0,D0
	MOVEQ	#0,D1
	LEA	$73000,A0
	MOVE.B	4(SP),D0
	MOVE.W	6(SP),D1
	BTST	#7,D1
	BEQ	lbC000F20
	AND.B	#15,D0
	MOVE.B	D0,0(A0,D1.W)
	CLR.B	D0
	RTS

lbC000F20	MOVE.B	0(A0,D1.W),D0
	RTS

ONGIBIT	MOVEQ	#0,D0
	RTS

XBTIMER	MOVEQ	#0,D0
	RTS

SETPRT	MOVEQ	#0,D0
	RTS

BCONSTAT	MOVE	#$2100,SR
	CMP.W	#0,4(SP)
	BEQ.S	lbC000F48
	CMP.W	#2,4(SP)
	BNE	DUMMY
lbC000F48	JMP	$40984

BCONIN	CMP.W	#2,4(SP)
	BNE	DUMMY
	MOVE	#$2100,SR
	JMP	$4098C

BCONOUT	CMP.W	#0,4(SP)
	BEQ.S	lbC000F82
	CMP.W	#2,4(SP)
	BEQ.S	lbC000F7C
	CMP.W	#5,4(SP)
	BNE	DUMMY
lbC000F7C	JMP	$4099C

lbC000F82	BTST	#2,$BFD000
	BEQ	DUMMY
lbC000F8E	BTST	#0,$BFD000
	BNE.S	lbC000F8E
	MOVE.B	#$FF,$BFE301
	MOVE.B	7(SP),$BFE101
	MOVEQ	#1,D0
	RTS

BCOSTAT	CMP.W	#0,4(SP)
	BEQ.S	lbC000FC4
	CMP.W	#2,4(SP)
	BNE	DUMMY
	JMP	$40994

lbC000FC4	BTST	#0,$BFD000
	BNE	DUMMY
	MOVEQ	#-$1,D0
	RTS

INITMOUS	MOVE.L	10(SP),$E22
	MOVE.W	#1,$3FF0A
	MOVEQ	#-$1,D0
	RTS

SETSCREEN	TST.L	4(SP)
	BMI.S	lbC000FF4
	MOVE.L	4(SP),$44E(A5)
lbC000FF4	TST.L	8(SP)
	BMI.S	lbC00100A
	MOVE.B	9(SP),$78201
	MOVE.B	10(SP),$78203
lbC00100A	TST.W	12(SP)
	BMI.S	lbC001028
	MOVE.B	13(SP),D0
	CMP.B	$44C(A5),D0
	BEQ.S	lbC001028
	MOVE.B	D0,$44C(A5)
	MOVE.B	D0,$78260
	BRA	lbC0000BA

lbC001028	RTS

GETREZ	MOVEQ	#0,D0
	MOVE.B	$44C,D0
	RTS

FLOPRD	MOVE.W	12(SP),$3FF22
	BSR	lbC00136E
	TST.L	D0
	BNE	lbC001072
	MOVE.W	$12(SP),$3FF24
	MOVE.W	$10(SP),$3FF26
	MOVE.W	14(SP),$3FF28
	MOVE.W	$14(SP),$3FF2A
	MOVE.L	4(SP),$3FF2C
	BSR	lbC0014F2
lbC001072	BSR	lbC001422
	TST.L	D0
	RTS

FLOPWR	MOVE.W	12(SP),$3FF22
	BSR	lbC00136E
	TST.L	D0
	BNE	lbC0010B8
	MOVE.W	$12(SP),$3FF24
	MOVE.W	$10(SP),$3FF26
	MOVE.W	14(SP),$3FF28
	MOVE.W	$14(SP),$3FF2A
	MOVE.L	4(SP),$3FF2C
	BSR	lbC0016F0
lbC0010B8	BSR	lbC001422
	TST.L	D0
	RTS

FLOPFMT	CMP.L	#$87654321,$16(SP)
	BNE	DUMMY
	MOVE.W	12(SP),$3FF22
	BSR	lbC00136E
	TST.L	D0
	BNE	lbC00110A
	MOVE.W	$12(SP),$3FF24
	MOVE.W	$10(SP),$3FF26
	MOVE.W	14(SP),$3FF32
	MOVE.L	4(SP),$3FF2C
	MOVE.W	$1A(SP),$3FF30
	BSR	lbC001A68
lbC00110A	BSR	lbC001422
	TST.L	D0
	RTS

DUMMY	CLR.L	D0
	RTS

	MOVEQ	#-$2,D0
	TST.L	D0
	RTS

	MOVE.W	#2,$4A6
	MOVE.L	#3,$4C2
	MOVEQ	#1,D0
lbC001130	MOVE.W	D0,$3FF22
	MOVE.L	D0,-(SP)
	BSR	lbC00135E
	MOVE.L	(SP)+,D0
	TST.L	D6
	BPL	lbC001150
	SUBQ.W	#1,$4A6
	BCLR	D0,$4C5
lbC001150	DBRA	D0,lbC001130

	BSR	BIOSKEYS
	SWAP	D0
	MOVE.W	D0,-(SP)
	MOVE.W	#$2B,-(SP)
	TRAP	#1
	ADDQ.L	#4,SP
	BSR	BIOSKEYS
	MOVE.W	D0,-(SP)
	MOVE.W	#$2D,-(SP)
	TRAP	#1
	ADDQ.L	#4,SP
	RTS

	TST.L	6(SP)
	BEQ	lbC001276
	MOVE.L	6(SP),A0
	MOVE.W	14(SP),$3FF22
	BSR	lbC00136E
	TST.L	D0
	BNE	lbC00128C
	MOVE.W	12(SP),D6
	MOVE.W	10(SP),D7
	MOVE.L	#$7590,A1
	CMP.W	#1,$3FF22
	BEQ.S	lbC0011B0
	MOVE.L	#$7570,A1
lbC0011B0	CLR.W	$3FF24
	MOVE.W	D6,D0
	EXT.L	D0
	DIVU	$16(A1),D0
	MOVE.W	D0,$3FF26
	SWAP	D0
	CMP.W	$18(A1),D0
	BLT.S	lbC0011D8
	MOVE.W	#1,$3FF24
	SUB.W	$18(A1),D0
lbC0011D8	MOVE.W	D0,D1
	ADDQ.W	#1,D1
	MOVE.W	D1,$3FF28
	MOVE.W	D0,D1
	ADD.W	D7,D1
	CMP.W	$18(A1),D1
	BLE.S	lbC0011F0
	MOVE.W	$18(A1),D1
lbC0011F0	SUB.W	D0,D1
	MOVE.W	D1,$3FF2A
	MOVE.L	A0,$3FF2C
	MOVE.W	4(SP),D0
	CMP.W	#0,D0
	BEQ.S	lbC001240
	CMP.W	#1,D0
	BEQ	lbC001226
	CMP.W	#2,D0
	BEQ	lbC00124C
	CMP.W	#3,D0
	BEQ	lbC001232
	MOVEQ	#-$5,D0
	BRA	lbC00128C

lbC001226	MOVEM.L	D6/D7/A1,-(SP)
	BSR	lbC0016F0
	BRA	lbC001256

lbC001232	MOVEM.L	D6/D7/A1,-(SP)
	BSR	lbC0016F0
	CLR.L	D0
	BRA	lbC001256

lbC001240	MOVEM.L	D6/D7/A1,-(SP)
	BSR	lbC0014F2
	BRA	lbC001256

lbC00124C	MOVEM.L	D6/D7/A1,-(SP)
	BSR	lbC0014F2
	CLR.L	D0
lbC001256	MOVEM.L	(SP)+,D6/D7/A1
	TST.L	D0
	BNE.S	lbC00128C
	ADD.W	$3FF2A,D6
	SUB.W	$3FF2A,D7
	BNE	lbC0011B0
	BSR	lbC001422
	CLR.L	D0
	RTS

lbC001276	MOVE.W	14(SP),D0
	MOVE.W	10(SP),D1
	LEA	$3FF3C,A0
	MOVE.B	D1,0(A0,D0.W)
	CLR.L	D0
	RTS

lbC00128C	BSR	lbC001422
	TST.L	D0
	RTS

lbC001294	TST.B	$3FF38
	BNE	lbC001294
	LEA	$3FF3C,A0
	MOVE.W	4(SP),D0
	MOVEQ	#0,D1
	MOVE.B	0(A0,D0.W),D1
	TST.B	D1
	BMI	lbC0012BC
	CLR.B	0(A0,D0.W)
	MOVE.L	D1,D0
	RTS

lbC0012BC	MOVEQ	#0,D0
	RTS

	LINK	A6,#0
	MOVEM.L	D6/D7,-(SP)
	JSR	$7111C
	TST.W	$4A6
	BEQ.S	lbC0012DA
	MOVEQ	#1,D0
	BRA.S	lbC0012DC

lbC0012DA	MOVEQ	#2,D0
lbC0012DC	MOVE.W	D0,D7
	TST.W	$4A6
	BEQ.S	lbC00132A
	CMP.W	#2,$446
	BGE.S	lbC00132A
	MOVE.W	#1,(SP)
	CLR.W	-(SP)
	CLR.W	-(SP)
	MOVE.W	#1,-(SP)
	MOVE.W	$446,-(SP)
	CLR.L	-(SP)
	MOVE.L	#$16DA,-(SP)
	JSR	$71034
	ADD.L	#$10,SP
	TST.L	D0
	BNE.S	lbC00131E
	CLR.W	D7
	BRA.S	lbC00132A

lbC00131E	TST.B	$9F8
	BNE.S	lbC00132A
	MOVEQ	#3,D0
	BRA.S	lbC001350

lbC00132A	TST.W	D7
	BEQ.S	lbC001332
	MOVE.W	D7,D0
	BRA.S	lbC001350

lbC001332	MOVE.W	#$100,(SP)
	MOVE.L	#$16DA,-(SP)
	JSR	$416E4
	ADDQ.L	#4,SP
	CMP.W	#$1234,D0
	BNE.S	lbC00134E
	CLR.W	D0
	BRA.S	lbC001350

lbC00134E	MOVEQ	#4,D0
lbC001350	TST.L	(SP)+
	MOVE.L	(SP)+,D7
	UNLK	A6
	RTS

lbC001358	DBRA	D0,lbC001358

	RTS

lbC00135E	BSR	lbC00136E
	MOVE.L	#$5A,D6
	BSR	lbC0014A0
	RTS

lbC00136E	TST.B	$3FF38
	BNE	lbC00136E
	MOVE.W	#1,$3FF1E
	MOVE.W	$3FF1C,D0
	CMP.W	$3FF22,D0
	BEQ.S	lbC0013A2
	BSR	lbC001464
	CLR.W	$3FF20
	MOVE.W	$3FF22,$3FF1C
lbC0013A2	MOVE.W	$3FF1C,D0
	TST.W	$3FF20
	BNE.S	lbC001416
	BSR	lbC00142A
	BCLR	#1,$BFD100
	BCLR	#0,$BFD100
	NOP
	NOP
	NOP
	NOP
	BSET	#0,$BFD100
	MOVE.L	D7,-(SP)
	MOVE.L	#$A88,D7
	BSR	lbC001CC0
	MOVE.L	(SP)+,D7
	MOVE.L	A0,-(SP)
	MOVE.W	$3FF22,D0
	LEA	$3FF34,A0
	ADDQ.B	#1,0(A0,D0.W)
	MOVE.L	(SP)+,A0
	BTST	#2,$BFE001
	BNE.S	lbC001416
	CLR.W	$3FF1E
	MOVE.W	#$64,$3FF20
	MOVE.L	#$FFFFFFEF,D0
	RTS

lbC001416	MOVE.W	#$64,$3FF20
	MOVEQ	#0,D0
	RTS

lbC001422	CLR.W	$3FF1E
	RTS

lbC00142A	ADDQ.W	#3,D0
	MOVE.B	#$FF,$BFD300
	MOVE.B	#3,$BFE201
	BSET	D0,$BFD100
	BSET	#0,$BFD100
	BCLR	#7,$BFD100
	BCLR	D0,$BFD100
	MOVEQ	#5,D7
lbC00145A	BSR	lbC001C9C
	DBRA	D7,lbC00145A

	RTS

lbC001464	MOVE.W	$3FF1C,D0
	ADDQ.W	#3,D0
	MOVE.W	#$4000,_custom+dsklen
	BSET	D0,$BFD100
	BSET	#7,$BFD100
	NOP
	NOP
	NOP
	BCLR	D0,$BFD100
	NOP
	NOP
	NOP
	NOP
	NOP
	BSET	D0,$BFD100
	RTS

lbC0014A0	MOVE.B	$BFE001,D0
	BTST	#4,D0
	BEQ.S	lbC0014DE
	BSET	#1,$BFD100
	BCLR	#0,$BFD100
	NOP
	NOP
	NOP
	NOP
	BSET	#0,$BFD100
	MOVE.L	#$A88,D7
	BSR	lbC001CC0
	SUBQ.L	#1,D6
	BNE.S	lbC0014A0
	MOVEQ	#-$1,D6
	RTS

lbC0014DE	MOVE.W	$3FF22,D1
	LEA	$3FF34,A0
	CLR.B	0(A0,D1.W)
	MOVEQ	#0,D6
lbC0014F0	RTS

lbC0014F2	MOVE.W	$3FF22,D0
	MOVE.W	$73FF0,D1
	CMP.W	D0,D1
	BNE	lbC00152C
	MOVE.W	$3FF24,D0
	MOVE.W	$73FF2,D1
	CMP.W	D0,D1
	BNE	lbC00152C
	MOVE.W	$3FF26,D0
	MOVE.W	$73FF4,D1
	CMP.W	D0,D1
	BNE	lbC00152C
	BRA	lbC0015BE

lbC00152C	BSR	lbC001CCA
	MOVE.L	#$A88,D7
	BSR	lbC001CC0
	BTST	#2,$BFE001
	BEQ	lbC001A60
	BSET	#2,$BFD100
	TST.W	$3FF24
	BEQ.S	lbC00155E
	BCLR	#2,$BFD100
lbC00155E	MOVE.W	#2,_custom+intreq
	MOVE.L	#$38004,_custom+dskpth
	MOVE.W	#$4489,_custom+dsksync
	MOVE.W	#$7F00,_custom+adkcon
	MOVE.W	#$9500,_custom+adkcon
	MOVE.W	#$8210,_custom+dmacon
	BSR	lbC001C9C
	MOVE.W	#$4000,_custom+dsklen
	MOVE.W	#$9A00,_custom+dsklen
	MOVE.W	#$9A00,_custom+dsklen
	BSR	lbC001D20
	MOVE.W	#$4000,_custom+dsklen
	TST.L	D0
	BEQ.S	lbC0015F2
	RTS

lbC0015BE	MOVEQ	#0,D0
	MOVEQ	#0,D1
	MOVE.W	$3FF28,D0
	MOVE.W	$3FF2A,D1
	MOVE.L	$3FF2C,A0
	SUBQ.L	#1,D0
	LSL.L	#8,D0
	LSL.L	#1,D0
	LEA	$74000,A1
	ADD.L	D0,A1
	LSL.L	#8,D1
	LSL.L	#1,D1
	SUBQ.L	#1,D1
lbC0015E8	MOVE.B	(A1)+,(A0)+
	DBRA	D1,lbC0015E8

	CLR.L	D0
	RTS

lbC0015F2	LEA	$38004,A1
	MOVE.L	A1,A0
	LEA	$7206A,A2
	LEA	$7216A,A3
	MOVE.W	#$19FF,D7
	MOVEQ	#0,D1
lbC00160C	MOVE.B	(A1)+,D1
	MOVE.B	0(A2,D1.W),D0
	MOVE.B	(A1)+,D1
	OR.B	0(A3,D1.W),D0
	MOVE.B	D0,(A0)+
	DBRA	D7,lbC00160C

	MOVE.W	$3FF28,D0
	MOVE.W	$3FF2A,D1
	SUBQ.W	#1,D1
	MOVE.L	$3FF2C,A0
lbC001632	LEA	$38004,A1
	LEA	$39B5C,A2
	MOVE.B	#$A1,$1B58(A1)
	MOVE.B	#$A1,$1B59(A1)
	MOVE.B	#$FE,$1B5A(A1)
lbC001650	CMP.B	#$A1,(A1)+
	BNE.S	lbC001650
	CMP.B	#$FE,(A1)
	BNE.S	lbC001650
	CMP.B	3(A1),D0
	BEQ	lbC001682
	CMP.B	#1,D0
	BNE	lbC001676
	MOVEQ	#12,D7
	CMP.B	3(A1),D7
	BEQ	lbC001682
lbC001676	CMP.L	A2,A1
	BLT.S	lbC001650
	MOVE.L	#$FFFFFFF8,D0
	RTS

lbC001682	ADD.L	#$20,A1
lbC001688	CMP.B	#$A1,(A1)+
	BNE.S	lbC001688
	CMP.B	#$FB,(A1)
	BNE.S	lbC001688
	MOVE.B	#$FB,(A1)
	MOVE.B	#$A1,-(A1)
	MOVE.B	#$A1,-(A1)
	MOVE.B	#$A1,-(A1)
	ADDQ.L	#4,A1
	MOVE.W	#$1FF,D7
lbC0016AA	MOVE.B	(A1)+,(A0)+
	MOVE.L	A0,$3FF2C
	DBRA	D7,lbC0016AA

	MOVE.L	D6,-(SP)
	MOVEQ	#-$1,D6
	MOVEQ	#-$1,D7
	SUB.L	#$204,A1
	MOVE.L	#$205,D2
	BSR	lbC001E0A
	OR.B	D6,D7
	MOVE.L	(SP)+,D6
	TST.B	D7
	BEQ	lbC0016DA
	BSR	lbC001C5A
lbC0016DA	ADDQ.W	#1,D0
	DBRA	D1,lbC001632

	MOVEQ	#0,D0
	RTS

	MOVE.W	#15,_custom+color0
	MOVEQ	#-$4,D0
	RTS

lbC0016F0	LEA	lbC0016F0(PC),A6
	BSR	lbC001CCA
	MOVE.L	#$A88,D7
	BSR	lbC001CC0
	BTST	#2,$BFE001
	BEQ	lbC001A60
	BSET	#2,$BFD100
	TST.W	$3FF24
	BEQ.S	lbC001726
	BCLR	#2,$BFD100
lbC001726	MOVE.W	$3FF22,D0
	MOVE.W	$73FF0,D1
	CMP.W	D0,D1
	BNE	lbC001760
	MOVE.W	$3FF24,D0
	MOVE.W	$73FF2,D1
	CMP.W	D0,D1
	BNE	lbC001760
	MOVE.W	$3FF26,D0
	MOVE.W	$73FF4,D1
	CMP.W	D0,D1
	BNE	lbC001760
	BRA	lbC001808

lbC001760	MOVE.W	$3FF2A,-(SP)
	MOVE.W	$3FF28,-(SP)
	MOVE.L	$3FF2C,-(SP)
	MOVE.L	#$74000,$3FF2C
	MOVE.W	#9,$3FF2A
	MOVE.W	#1,$3FF28
	BSR	lbC00155E
	TST.L	D0
	BNE	lbC001A0A
	MOVE.L	#$75200,$3FF2C
	MOVE.W	#1,$3FF2A
	MOVE.W	#10,$3FF28
	BSR	lbC00155E
	MOVE.L	(SP)+,$3FF2C
	MOVE.W	(SP)+,$3FF28
	MOVE.W	(SP)+,$3FF2A
	MOVE.W	#9,$3FF32
	TST.L	D0
	BNE	lbC0017DC
	MOVE.W	#10,$3FF32
lbC0017DC	MOVE.W	$3FF22,$73FF0
	MOVE.W	$3FF24,$73FF2
	MOVE.W	$3FF26,$73FF4
	MOVE.W	$3FF32,$73FF6
	BRA	lbC001812

lbC001808	MOVE.W	$73FF6,$3FF32
lbC001812	LEA	$74000,A1
	MOVEQ	#0,D0
	MOVE.W	$3FF28,D0
	SUBQ.L	#1,D0
	LSL.L	#1,D0
	LSL.L	#8,D0
	ADD.L	D0,A1
	MOVE.L	$3FF2C,A2
	MOVE.W	$3FF2A,D1
	SUBQ.L	#1,D1
lbC001836	MOVE.L	#$1FF,D0
lbC00183C	MOVE.B	(A2)+,(A1)+
	DBRA	D0,lbC00183C

	DBRA	D1,lbC001836

	LEA	$74000,A2
	LEA	$38004,A1
	MOVEQ	#14,D0
lbC001854	MOVE.L	#$4E4E4E4E,(A1)+
	DBRA	D0,lbC001854

	MOVEQ	#1,D1
lbC001860	MOVEQ	#2,D0
lbC001862	CLR.L	(A1)+
	DBRA	D0,lbC001862

	MOVE.L	#$A1A1A1FE,(A1)+
	MOVE.B	$3FF27,(A1)+
	MOVE.B	$3FF25,(A1)+
	MOVE.B	D1,(A1)+
	MOVE.B	#2,(A1)+
	MOVEM.L	D2/D6/D7/A1,-(SP)
	SUBQ.L	#8,A1
	MOVEQ	#-$1,D6
	MOVEQ	#-$1,D7
	MOVEQ	#7,D2
	BSR	lbC001E0A
	MOVE.B	D6,(A1)+
	MOVE.B	D7,(A1)+
	MOVEM.L	(SP)+,D2/D6/D7/A1
	ADDQ.L	#2,A1
	MOVEQ	#10,D0
lbC00189C	MOVE.W	#$4E4E,(A1)+
	DBRA	D0,lbC00189C

	MOVEQ	#2,D0
lbC0018A6	CLR.L	(A1)+
	DBRA	D0,lbC0018A6

	MOVE.L	#$A1A1A1FB,(A1)+
	MOVE.L	#$74000,A2
	MOVE.L	D1,D0
	SUBQ.L	#1,D0
	LSL.L	#8,D0
	LSL.L	#1,D0
	ADD.L	D0,A2
	MOVEQ	#$7F,D0
lbC0018C4	MOVE.L	(A2)+,(A1)+
	DBRA	D0,lbC0018C4

	MOVEM.L	D2/D6/D7/A1,-(SP)
	SUB.L	#$204,A1
	MOVEQ	#-$1,D6
	MOVEQ	#-$1,D7
	MOVE.L	#$203,D2
	BSR	lbC001E0A
	MOVE.B	D6,(A1)+
	MOVE.B	D7,(A1)+
	MOVEM.L	(SP)+,D2/D6/D7/A1
	ADDQ.L	#2,A1
	MOVEQ	#9,D0
lbC0018EE	MOVE.L	#$4E4E4E4E,(A1)+
	DBRA	D0,lbC0018EE

	ADDQ.L	#1,D1
	MOVEQ	#0,D2
	MOVE.W	$3FF32,D2
	ADDQ.L	#1,D2
	CMP.L	D2,D1
	BNE	lbC001860
	LEA	$39A04,A0
lbC001910	MOVE.L	#$4E4E4E4E,(A1)+
	CMP.L	A0,A1
	BLT	lbC001910
	LEA	$3B404,A1
	LEA	$39A04,A0
	LEA	$7226A,A2
	MOVE.L	#$19FF,D1
lbC001934	MOVEQ	#0,D0
	MOVE.B	-(A0),D0
	ADD.W	D0,D0
	MOVE.W	0(A2,D0.W),D0
	MOVE.W	D0,-(A1)
	DBRA	D1,lbC001934

	LEA	$38004,A0
	MOVE.L	#$3400,D6
	JSR	$71D4A
	LEA	$3807C,A0
	MOVEQ	#0,D0
	MOVE.W	$3FF32,D0
	SUBQ.L	#1,D0
lbC001966	ADD.L	#$18,A0
	MOVE.W	#$4489,(A0)+
	MOVE.W	#$4489,(A0)+
	MOVE.W	#$4489,(A0)+
	ADD.L	#$52,A0
	MOVE.W	#$4489,(A0)+
	MOVE.W	#$4489,(A0)+
	MOVE.W	#$4489,(A0)+
	ADD.L	#$456,A0
	DBRA	D0,lbC001966

	MOVE.L	$3FF2C,A0
	CLR.L	D0
	MOVE.W	$3FF2A,D0
	LSL.L	#8,D0
	LSL.L	#1,D0
	ADD.L	D0,A0
	BTST	#3,$BFE001
	BEQ	lbC001A1A
	MOVE.W	#2,_custom+intreq
	MOVE.L	#$38004,_custom+dskpth
	MOVE.W	#$7F00,_custom+adkcon
	MOVE.W	#$8100,_custom+adkcon
	MOVE.W	#$8210,_custom+dmacon
	MOVE.W	#$4000,_custom+dsklen
	BSR	lbC001C9C
	MOVE.W	#$D86A,_custom+dsklen
	MOVE.W	#$D86A,_custom+dsklen
	BSR	lbC001D20
	MOVE.W	#$4000,_custom+dsklen
	CLR.L	D0
	RTS

lbC001A0A	MOVE.L	D0,-(SP)
	MOVE.L	#15,D0
	BSR	lbC001C7A
	MOVE.L	(SP)+,D0
	RTS

lbC001A1A	MOVE.L	#$FFFFFFF3,D0
	MOVE.W	#$64,$3FF20
	BSR	lbC001422
	MOVE.W	$3FF1C,-(SP)
	MOVE.W	D0,-(SP)
	MOVE.L	$404.w,A0
	JSR	(A0)
	ADDQ.L	#4,SP
	MOVE.L	D0,-(SP)
	BSR	lbC00136E
	MOVE.L	(SP)+,D0
	CMP.L	#$10000,D0
	BNE	lbC001A50
	JMP	(A6)

lbC001A50	MOVE.W	#$FFFF,$73FF0
	MOVE.L	#$FFFFFFF3,D0
	RTS

lbC001A60	MOVE.L	#$FFFFFFEF,D0
	RTS

lbC001A68	LEA	lbC001A68(PC),A6
	LEA	$38004,A1
	MOVEQ	#14,D0
lbC001A74	MOVE.L	#$4E4E4E4E,(A1)+
	DBRA	D0,lbC001A74

	MOVEQ	#1,D1
lbC001A80	MOVEQ	#2,D0
lbC001A82	CLR.L	(A1)+
	DBRA	D0,lbC001A82

	MOVE.L	#$A1A1A1FE,(A1)+
	MOVE.B	$3FF27,(A1)+
	MOVE.B	$3FF25,(A1)+
	MOVE.B	D1,(A1)+
	MOVE.B	#2,(A1)+
	MOVEM.L	D2/D6/D7/A1,-(SP)
	SUBQ.L	#8,A1
	MOVEQ	#-$1,D6
	MOVEQ	#-$1,D7
	MOVEQ	#7,D2
	BSR	lbC001E0A
	MOVE.B	D6,(A1)+
	MOVE.B	D7,(A1)+
	MOVEM.L	(SP)+,D2/D6/D7/A1
	ADDQ.L	#2,A1
	MOVEQ	#10,D0
lbC001ABC	MOVE.W	#$4E4E,(A1)+
	DBRA	D0,lbC001ABC

	MOVEQ	#2,D0
lbC001AC6	CLR.L	(A1)+
	DBRA	D0,lbC001AC6

	MOVE.L	#$A1A1A1FB,(A1)+
	MOVE.L	#$FF,D0
lbC001AD8	MOVE.W	$3FF30,(A1)+
	DBRA	D0,lbC001AD8

	MOVEM.L	D2/D6/D7/A1,-(SP)
	SUB.L	#$204,A1
	MOVEQ	#-$1,D6
	MOVEQ	#-$1,D7
	MOVE.L	#$203,D2
	BSR	lbC001E0A
	MOVE.B	D6,(A1)+
	MOVE.B	D7,(A1)+
	MOVEM.L	(SP)+,D2/D6/D7/A1
	ADDQ.L	#2,A1
	MOVEQ	#9,D0
lbC001B06	MOVE.L	#$4E4E4E4E,(A1)+
	DBRA	D0,lbC001B06

	ADDQ.L	#1,D1
	MOVE.W	$3FF32,D2
	ADD.W	#1,D2
	CMP.B	D2,D1
	BNE	lbC001A80
	LEA	$39A04,A0
lbC001B28	MOVE.L	#$4E4E4E4E,(A1)+
	CMP.L	A0,A1
	BLT	lbC001B28
	LEA	$3B404,A1
	LEA	$39A04,A0
	LEA	$7226A,A2
	MOVE.L	#$19FF,D1
lbC001B4C	MOVEQ	#0,D0
	MOVE.B	-(A0),D0
	ADD.W	D0,D0
	MOVE.W	0(A2,D0.W),D0
	MOVE.W	D0,-(A1)
	DBRA	D1,lbC001B4C

	LEA	$38004,A0
	MOVE.L	#$3400,D6
	JSR	$71D4A
	LEA	$3807C,A0
	MOVEQ	#0,D0
	MOVE.W	$3FF32,D0
	SUBQ.L	#1,D0
lbC001B7E	ADD.L	#$18,A0
	MOVE.W	#$4489,(A0)+
	MOVE.W	#$4489,(A0)+
	MOVE.W	#$4489,(A0)+
	ADD.L	#$52,A0
	MOVE.W	#$4489,(A0)+
	MOVE.W	#$4489,(A0)+
	MOVE.W	#$4489,(A0)+
	ADD.L	#$456,A0
	DBRA	D0,lbC001B7E

	BSR	lbC001CCA
	MOVE.L	#$A88,D7
	BSR	lbC001CC0
	BTST	#2,$BFE001
	BEQ	lbC001A60
	BSET	#2,$BFD100
	TST.W	$3FF24
	BEQ.S	lbC001BDE
	BCLR	#2,$BFD100
lbC001BDE	BTST	#3,$BFE001
	BEQ	lbC001A1A
	MOVE.W	#2,_custom+intreq
	MOVE.L	#$38004,_custom+dskpth
	MOVE.W	#$7F00,_custom+adkcon
	MOVE.W	#$8100,_custom+adkcon
	MOVE.W	#$8210,_custom+dmacon
	MOVE.W	#$4000,_custom+dsklen
	BSR	lbC001C9C
	MOVE.W	#$D86A,_custom+dsklen
	MOVE.W	#$D86A,_custom+dsklen
	BSR	lbC001D20
	MOVE.W	#$4000,_custom+dsklen
	MOVE.W	$3FF22,D1
	MOVE.W	$73FF0,D0
	CMP.W	D0,D1
	BNE	lbC001C56
	MOVE.W	#$FFFF,$73FF0
lbC001C56	MOVEQ	#0,D0
	RTS

lbC001C5A	MOVE.L	D0,-(SP)
	MOVE.W	#$FFF,D0
lbC001C60	MOVE.W	_custom+vhposr,_custom+color2
	DBRA	D0,lbC001C60

	MOVE.W	#foreground,_custom+color2
	MOVE.L	(SP)+,D0
	RTS

lbC001C7A	MOVEM.L	D0/D1,-(SP)
	MOVE.L	#$7FFF,D1
lbC001C84	MOVE.W	D0,_custom+color0
	DBRA	D1,lbC001C84

	MOVE.W	#$666,_custom+color0
	MOVEM.L	(SP)+,D0/D1
	RTS

lbC001C9C	MOVE.B	#$20,$BFDD00
	BTST	#4,$BFDD00
	BNE.S	lbC001C9C
	MOVE.W	#$7D00,D0
lbC001CB2	BTST	#4,$BFDD00
	DBNE	D0,lbC001CB2

	RTS

lbC001CC0	SUB.L	#1,D7
	BNE.S	lbC001CC0
	RTS

lbC001CCA	MOVE.W	$3FF22,D0
	LEA	$3FF34,A0
	LEA	0(A0,D0.W),A0
lbC001CDA	MOVE.W	$3FF26,D1
	BSET	#1,$BFD100
	CMP.B	(A0),D1
	BEQ	lbC0014F0
	BLS.S	lbC001CFA
	BCLR	#1,$BFD100
	ADDQ.B	#2,(A0)
lbC001CFA	SUBQ.B	#1,(A0)
	BCLR	#0,$BFD100
	NOP
	NOP
	NOP
	NOP
	BSET	#0,$BFD100
	MOVE.L	#$A88,D7
	BSR	lbC001CC0
	BRA.S	lbC001CDA

lbC001D20	MOVE.L	#$7A120,D7
lbC001D26	MOVE.W	_custom+intreqr,D0
	BTST	#1,D0
	BNE.S	lbC001D3E
	SUBQ.L	#1,D7
	BNE.S	lbC001D26
	MOVE.L	#$FFFFFFFF,D0
	RTS

lbC001D3E	MOVE.W	#2,_custom+intreq
	MOVEQ	#0,D0
	RTS

	MOVE.W	#$40,_custom+intreq
	MOVE.W	#$5555,_custom+bltcdat
	MOVE.L	A0,-(SP)
	ADD.L	#$40,D6
	AND.L	#$FFFFFFE0,D6
	ADD.L	D6,A0
	OR.W	#$20,D6
	SUBQ.L	#2,A0
	MOVE.L	A0,_custom+bltapth
	MOVE.W	#0,_custom+bltamod
	MOVE.W	#$FFFF,_custom+bltafwm
	MOVE.W	#$FFFF,_custom+bltalwm
	MOVE.L	A0,_custom+bltbpth
	MOVE.L	A0,_custom+bltdpth
	MOVE.W	#0,_custom+bltbmod
	MOVE.W	#0,_custom+bltdmod
	MOVE.W	#$1002,_custom+bltcon1
	MOVE.W	#$DB1,_custom+bltcon0
	MOVE.W	D6,_custom+bltsize
	BSR	lbC001DF4
	MOVE.L	(SP)+,A0
	MOVE.L	A0,_custom+bltapth
	MOVE.L	A0,_custom+bltbpth
	MOVE.L	A0,_custom+bltdpth
	MOVE.W	#0,_custom+bltcon1
	MOVE.W	#$1D8C,_custom+bltcon0
	MOVE.W	D6,_custom+bltsize
	BSR	lbC001DF4
	RTS

lbC001DF4	MOVE.W	_custom+intreqr,D3
	BTST	#6,D3
	BEQ.S	lbC001DF4
	MOVE.W	#$40,_custom+intreq
	RTS

lbC001E0A	MOVEM.L	D4/D5/A6,-(SP)
	LEA	$7246A,A6
	MOVE.L	A6,D4
	MOVEQ	#0,D5
lbC001E18	MOVE.B	(A1)+,D5
	MOVE.L	D4,A6
	EOR.B	D6,D5
	ADD.W	D5,A6
	MOVE.B	(A6),D6
	EOR.B	D7,D6
	MOVE.B	$100(A6),D7
	DBRA	D2,lbC001E18

	MOVEM.L	(SP)+,D4/D5/A6
	RTS

lbC001E32	MOVEM.L	D0-D3,-(SP)
	SUBQ.B	#1,$71EDE
	BNE	lbC001ED8
	MOVE.B	#$32,$71EDE
	MOVE.B	$7FC21,D0
	MOVE.B	$7FC23,D1
	BSR	lbC001EE0
	MOVE.B	D0,$7FC21
	MOVE.B	D1,$7FC23
	CMP.B	#$3C,D2
	BNE	lbC001ED8
	CLR.B	$7FC21
	CLR.B	$7FC23
	MOVE.B	$7FC25,D0
	MOVE.B	$7FC27,D1
	BSR	lbC001EE0
	MOVE.B	D0,$7FC25
	MOVE.B	D1,$7FC27
	CMP.B	#$3C,D2
	BNE	lbC001ED8
	CLR.B	$7FC25
	CLR.B	$7FC27
	MOVE.B	$7FC29,D0
	MOVE.B	$7FC2B,D1
	BSR	lbC001EE0
	MOVE.B	D0,$7FC29
	MOVE.B	D1,$7FC2B
	CMP.B	#$19,D2
	BNE	lbC001ED8
	CLR.B	$7FC29
	CLR.B	$7FC2B
lbC001ED8	MOVEM.L	(SP)+,D0-D3
	RTS

	MOVE.W	D0,D1
lbC001EE0	LSL.B	#4,D1
	OR.B	D1,D0
	ADDQ.B	#1,D0
	MOVE.B	D0,D1
	MOVE.B	D0,D2
	LSR.B	#4,D1
	AND.B	#15,D0
	RTS

BIOSKEYS	MOVEQ	#0,D0
	MOVEQ	#0,D1
	MOVEQ	#0,D2
	MOVE.B	$7FC2F,D1
	MOVE.B	$7FC31,D2
	LSL.B	#4,D2
	OR.B	D2,D1
	AND.L	#$1F,D1
	OR.W	D1,D0
	MOVE.B	$7FC33,D1
	MOVE.B	$7FC35,D2
	LSL.B	#4,D2
	OR.B	D2,D1
	AND.L	#15,D1
	LSL.L	#5,D1
	OR.W	D1,D0
	MOVE.B	$7FC37,D1
	MOVE.B	$7FC39,D2
	LSL.B	#4,D2
	OR.B	D2,D1
	AND.L	#$7F,D1
	LSL.L	#8,D1
	LSL.L	#1,D1
	OR.W	D1,D0
	SWAP	D0
	MOVE.B	$7FC21,D1
	MOVE.B	$7FC23,D2
	LSL.B	#4,D2
	OR.B	D2,D1
	LSR.B	#1,D1
	AND.L	#$1F,D1
	OR.W	D1,D0
	MOVE.B	$7FC25,D1
	MOVE.B	$7FC27,D2
	LSL.B	#4,D2
	OR.B	D2,D1
	AND.L	#$3F,D1
	LSL.L	#5,D1
	OR.W	D1,D0
	MOVE.B	$7FC29,D1
	MOVE.B	$7FC2B,D2
	LSL.B	#4,D2
	OR.B	D2,D1
	AND.L	#$1F,D1
	LSL.L	#8,D1
	LSL.L	#3,D1
	OR.W	D1,D0
	MOVEQ	#0,D1
	MOVEQ	#0,D2
	RTS

XGETTIME	MOVE.L	4(SP),D0
	CMP.W	#2,D0
	BGE	lbC001FAE
	BRA	lbC002014

lbC001FAE	MOVE.L	D0,D1
	AND.L	#$1F,D1
	MOVE.L	D1,D2
	LSR.B	#4,D2
	AND.B	#15,D1
	AND.B	#15,D2
	MOVE.B	D1,$7FC21
	MOVE.B	D2,$7FC23
	MOVE.L	D0,D1
	LSR.L	#5,D1
	AND.L	#$3F,D1
	MOVE.L	D1,D2
	LSR.B	#4,D2
	AND.B	#15,D1
	AND.B	#15,D2
	MOVE.B	D1,$7FC25
	MOVE.B	D2,$7FC27
	MOVE.L	D0,D1
	LSR.L	#8,D1
	LSR.L	#3,D1
	AND.L	#$1F,D1
	MOVE.L	D1,D2
	LSR.B	#4,D2
	AND.B	#15,D1
	AND.B	#15,D2
	MOVE.B	D1,$7FC29
	MOVE.B	D2,$7FC2B
lbC002014	SWAP	D0
	MOVE.W	D0,D1
	AND.L	#$1F,D1
	MOVE.L	D1,D2
	LSR.B	#4,D2
	MOVE.B	D1,$7FC2F
	MOVE.B	D2,$7FC31
	MOVE.L	D0,D1
	LSR.L	#5,D1
	AND.L	#15,D1
	MOVE.L	D1,D2
	LSR.B	#4,D2
	MOVE.B	D1,$7FC33
	MOVE.B	D2,$7FC35
	MOVE.L	D0,D1
	LSR.L	#8,D1
	LSR.L	#1,D1
	AND.L	#$7F,D1
	MOVE.L	D1,D2
	LSR.B	#4,D2
	MOVE.B	D1,$7FC37
	MOVE.B	D2,$7FC39
	MOVEQ	#0,D1
	MOVEQ	#0,D2
	RTS

	dc.l	$100010
	dc.l	$20302030
	dc.l	$100010
	dc.l	$20302030
	dc.l	$40504050
	dc.l	$60706070
	dc.l	$40504050
	dc.l	$60706070
	dc.l	$100010
	dc.l	$20302030
	dc.l	$100010
	dc.l	$20302030
	dc.l	$40504050
	dc.l	$60706070
	dc.l	$40504050
	dc.l	$60706070
	dc.l	$80908090
	dc.l	$A0B0A0B0
	dc.l	$80908090
	dc.l	$A0B0A0B0
	dc.l	$C0D0C0D0
	dc.l	$E0F0E0F0
	dc.l	$C0D0C0D0
	dc.l	$E0F0E0F0
	dc.l	$80908090
	dc.l	$A0B0A0B0
	dc.l	$80908090
	dc.l	$A0B0A0B0
	dc.l	$C0D0C0D0
	dc.l	$E0F0E0F0
	dc.l	$C0D0C0D0
	dc.l	$E0F0E0F0
	dc.l	$100010
	dc.l	$20302030
	dc.l	$100010
	dc.l	$20302030
	dc.l	$40504050
	dc.l	$60706070
	dc.l	$40504050
	dc.l	$60706070
	dc.l	$100010
	dc.l	$20302030
	dc.l	$100010
	dc.l	$20302030
	dc.l	$40504050
	dc.l	$60706070
	dc.l	$40504050
	dc.l	$60706070
	dc.l	$80908090
	dc.l	$A0B0A0B0
	dc.l	$80908090
	dc.l	$A0B0A0B0
	dc.l	$C0D0C0D0
	dc.l	$E0F0E0F0
	dc.l	$C0D0C0D0
	dc.l	$E0F0E0F0
	dc.l	$80908090
	dc.l	$A0B0A0B0
	dc.l	$80908090
	dc.l	$A0B0A0B0
	dc.l	$C0D0C0D0
	dc.l	$E0F0E0F0
	dc.l	$C0D0C0D0
	dc.l	$E0F0E0F0
	dc.l	$10001
	dc.l	$2030203
	dc.l	$10001
	dc.l	$2030203
	dc.l	$4050405
	dc.l	$6070607
	dc.l	$4050405
	dc.l	$6070607
	dc.l	$10001
	dc.l	$2030203
	dc.l	$10001
	dc.l	$2030203
	dc.l	$4050405
	dc.l	$6070607
	dc.l	$4050405
	dc.l	$6070607
	dc.l	$8090809
	dc.l	$A0B0A0B
	dc.l	$8090809
	dc.l	$A0B0A0B
	dc.l	$C0D0C0D
	dc.l	$E0F0E0F
	dc.l	$C0D0C0D
	dc.l	$E0F0E0F
	dc.l	$8090809
	dc.l	$A0B0A0B
	dc.l	$8090809
	dc.l	$A0B0A0B
	dc.l	$C0D0C0D
	dc.l	$E0F0E0F
	dc.l	$C0D0C0D
	dc.l	$E0F0E0F
	dc.l	$10001
	dc.l	$2030203
	dc.l	$10001
	dc.l	$2030203
	dc.l	$4050405
	dc.l	$6070607
	dc.l	$4050405
	dc.l	$6070607
	dc.l	$10001
	dc.l	$2030203
	dc.l	$10001
	dc.l	$2030203
	dc.l	$4050405
	dc.l	$6070607
	dc.l	$4050405
	dc.l	$6070607
	dc.l	$8090809
	dc.l	$A0B0A0B
	dc.l	$8090809
	dc.l	$A0B0A0B
	dc.l	$C0D0C0D
	dc.l	$E0F0E0F
	dc.l	$C0D0C0D
	dc.l	$E0F0E0F
	dc.l	$8090809
	dc.l	$A0B0A0B
	dc.l	$8090809
	dc.l	$A0B0A0B
	dc.l	$C0D0C0D
	dc.l	$E0F0E0F
	dc.l	$C0D0C0D
	dc.l	$E0F0E0F
	dc.l	1
	dc.l	$40005
	dc.l	$100011
	dc.l	$140015
	dc.l	$400041
	dc.l	$440045
	dc.l	$500051
	dc.l	$540055
	dc.l	$1000101
	dc.l	$1040105
	dc.l	$1100111
	dc.l	$1140115
	dc.l	$1400141
	dc.l	$1440145
	dc.l	$1500151
	dc.l	$1540155
	dc.l	$4000401
	dc.l	$4040405
	dc.l	$4100411
	dc.l	$4140415
	dc.l	$4400441
	dc.l	$4440445
	dc.l	$4500451
	dc.l	$4540455
	dc.l	$5000501
	dc.l	$5040505
	dc.l	$5100511
	dc.l	$5140515
	dc.l	$5400541
	dc.l	$5440545
	dc.l	$5500551
	dc.l	$5540555
	dc.l	$10001001
	dc.l	$10041005
	dc.l	$10101011
	dc.l	$10141015
	dc.l	$10401041
	dc.l	$10441045
	dc.l	$10501051
	dc.l	$10541055
	dc.l	$11001101
	dc.l	$11041105
	dc.l	$11101111
	dc.l	$11141115
	dc.l	$11401141
	dc.l	$11441145
	dc.l	$11501151
	dc.l	$11541155
	dc.l	$14001401
	dc.l	$14041405
	dc.l	$14101411
	dc.l	$14141415
	dc.l	$14401441
	dc.l	$14441445
	dc.l	$14501451
	dc.l	$14541455
	dc.l	$15001501
	dc.l	$15041505
	dc.l	$15101511
	dc.l	$15141515
	dc.l	$15401541
	dc.l	$15441545
	dc.l	$15501551
	dc.l	$15541555
	dc.l	$40004001
	dc.l	$40044005
	dc.l	$40104011
	dc.l	$40144015
	dc.l	$40404041
	dc.l	$40444045
	dc.l	$40504051
	dc.l	$40544055
	dc.l	$41004101
	dc.l	$41044105
	dc.l	$41104111
	dc.l	$41144115
	dc.l	$41404141
	dc.l	$41444145
	dc.l	$41504151
	dc.l	$41544155
	dc.l	$44004401
	dc.l	$44044405
	dc.l	$44104411
	dc.l	$44144415
	dc.l	$44404441
	dc.l	$44444445
	dc.l	$44504451
	dc.l	$44544455
	dc.l	$45004501
	dc.l	$45044505
	dc.l	$45104511
	dc.l	$45144515
	dc.l	$45404541
	dc.l	$45444545
	dc.l	$45504551
	dc.l	$45544555
	dc.l	$50005001
	dc.l	$50045005
	dc.l	$50105011
	dc.l	$50145015
	dc.l	$50405041
	dc.l	$50445045
	dc.l	$50505051
	dc.l	$50545055
	dc.l	$51005101
	dc.l	$51045105
	dc.l	$51105111
	dc.l	$51145115
	dc.l	$51405141
	dc.l	$51445145
	dc.l	$51505151
	dc.l	$51545155
	dc.l	$54005401
	dc.l	$54045405
	dc.l	$54105411
	dc.l	$54145415
	dc.l	$54405441
	dc.l	$54445445
	dc.l	$54505451
	dc.l	$54545455
	dc.l	$55005501
	dc.l	$55045505
	dc.l	$55105511
	dc.l	$55145515
	dc.l	$55405541
	dc.l	$55445545
	dc.l	$55505551
	dc.l	$55545555
	dc.l	$102030
	dc.l	$40506070
	dc.l	$8191A1B1
	dc.l	$C1D1E1F1
	dc.l	$12023222
	dc.l	$52427262
	dc.l	$9383B3A3
	dc.l	$D3C3F3E3
	dc.l	$24340414
	dc.l	$64744454
	dc.l	$A5B58595
	dc.l	$E5F5C5D5
	dc.l	$36261606
	dc.l	$76665646
	dc.l	$B7A79787
	dc.l	$F7E7D7C7
	dc.l	$48586878
	dc.l	$8182838
	dc.l	$C9D9E9F9
	dc.l	$8999A9B9
	dc.l	$5A4A7A6A
	dc.l	$1A0A3A2A
	dc.l	$DBCBFBEB
	dc.l	$9B8BBBAB
	dc.l	$6C7C4C5C
	dc.l	$2C3C0C1C
	dc.l	$EDFDCDDD
	dc.l	$ADBD8D9D
	dc.l	$7E6E5E4E
	dc.l	$3E2E1E0E
	dc.l	$FFEFDFCF
	dc.l	$BFAF9F8F
	dc.l	$9181B1A1
	dc.l	$D1C1F1E1
	dc.l	$10003020
	dc.l	$50407060
	dc.l	$8393A3B3
	dc.l	$C3D3E3F3
	dc.l	$2122232
	dc.l	$42526272
	dc.l	$B5A59585
	dc.l	$F5E5D5C5
	dc.l	$34241404
	dc.l	$74645444
	dc.l	$A7B78797
	dc.l	$E7F7C7D7
	dc.l	$26360616
	dc.l	$66764656
	dc.l	$D9C9F9E9
	dc.l	$9989B9A9
	dc.l	$58487868
	dc.l	$18083828
	dc.l	$CBDBEBFB
	dc.l	$8B9BABBB
	dc.l	$4A5A6A7A
	dc.l	$A1A2A3A
	dc.l	$FDEDDDCD
	dc.l	$BDAD9D8D
	dc.l	$7C6C5C4C
	dc.l	$3C2C1C0C
	dc.l	$EFFFCFDF
	dc.l	$AFBF8F9F
	dc.l	$6E7E4E5E
	dc.l	$2E3E0E1E
	dc.l	$214263
	dc.l	$84A5C6E7
	dc.l	$8294A6B
	dc.l	$8CADCEEF
	dc.l	$31107352
	dc.l	$B594F7D6
	dc.l	$39187B5A
	dc.l	$BD9CFFDE
	dc.l	$62432001
	dc.l	$E6C7A485
	dc.l	$6A4B2809
	dc.l	$EECFAC8D
	dc.l	$53721130
	dc.l	$D7F695B4
	dc.l	$5B7A1938
	dc.l	$DFFE9DBC
	dc.l	$C4E586A7
	dc.l	$40610223
	dc.l	$CCED8EAF
	dc.l	$48690A2B
	dc.l	$F5D4B796
	dc.l	$71503312
	dc.l	$FDDCBF9E
	dc.l	$79583B1A
	dc.l	$A687E4C5
	dc.l	$22036041
	dc.l	$AE8FECCD
	dc.l	$2A0B6849
	dc.l	$97B6D5F4
	dc.l	$13325170
	dc.l	$9FBEDDFC
	dc.l	$1B3A5978
	dc.l	$88A9CAEB
	dc.l	$C2D4E6F
	dc.l	$80A1C2E3
	dc.l	$4254667
	dc.l	$B998FBDA
	dc.l	$3D1C7F5E
	dc.l	$B190F3D2
	dc.l	$35147756
	dc.l	$EACBA889
	dc.l	$6E4F2C0D
	dc.l	$E2C3A081
	dc.l	$66472405
	dc.l	$DBFA99B8
	dc.l	$5F7E1D3C
	dc.l	$D3F291B0
	dc.l	$57761534
	dc.l	$4C6D0E2F
	dc.l	$C8E98AAB
	dc.l	$44650627
	dc.l	$C0E182A3
	dc.l	$7D5C3F1E
	dc.l	$F9D8BB9A
	dc.l	$75543716
	dc.l	$F1D0B392
	dc.l	$2E0F6C4D
	dc.l	$AA8BE8C9
	dc.l	$26076445
	dc.l	$A283E0C1
	dc.l	$1F3E5D7C
	dc.l	$9BBAD9F8
	dc.l	$17365574
	dc.l	$93B2D1F0
	dc.l	$1234
	dc.l	$56780000
	dcb.l	$40,0
	dcb.l	$40,0
	dcb.l	$40,0
	dcb.l	$40,0
	dcb.l	$40,0
	dcb.l	$23,0
	dcb.b	3,0