section fred,code_c

m
	BSR.S	L50014
L50002	BTST	#6,$BFE001
	BNE.S	L50002
	BSR	L500BA
	MOVEQ	#0,D0
	RTS

L50014	MOVE.L	#module,m+$56A
	MOVEA.L	m+$56A,A0
	ADDA.L	#$1D8,A0
	MOVE.L	#$80,D0
	CLR.L	D1
L50032	MOVE.L	D1,D2
	SUBQ.W	#1,D0
L50036	MOVE.B	(A0)+,D1
	CMP.B	D2,D1
	BGT.S	L50032
	DBF	D0,L50036
	ADDQ.B	#1,D2
	MOVEA.L	m+$56A,A0
	LEA	L504E4(PC),A1
	LSL.L	#8,D2
	LSL.L	#2,D2
	ADDI.L	#$258,D2
	ADD.L	A0,D2
	MOVEQ	#$E,D0
L5005A	MOVE.L	D2,(A1)+
	CLR.L	D1
	MOVE.W	$2A(A0),D1
	LSL.L	#1,D1
	ADD.L	D1,D2
	ADDA.L	#$1E,A0
	DBF	D0,L5005A
	CLR.W	$DFF0A8
	CLR.W	$DFF0B8
	CLR.W	$DFF0C8
	CLR.W	$DFF0D8
	CLR.W	m+$57A
	CLR.L	m+$56E
	CLR.L	m+$572
	MOVEA.L	m+$56A,A0
	MOVE.B	$1D6(A0),m+$577
	MOVE.L	$6C.W,L500E8
	MOVE.L	#L500E4,$6C.W
	RTS

L500BA	MOVE.L	L500E8,$6C.W
	CLR.W	$DFF0A8
	CLR.W	$DFF0B8
	CLR.W	$DFF0C8
	CLR.W	$DFF0D8
	MOVE.W	#$F,$DFF096
	RTS

L500E4	BSR.S	L500EC	;Vbi routine
l500e8	equ *+2
	JMP	0

L500EC	MOVEM.L	D0-d7/A0-a6,-(A7)
	ADDQ.W	#1,m+$57A
	CMPI.W	#6,m+$57A
	BEQ	L50296
	LEA	L5047C(PC),A6
	TST.B	3(A6)
	BEQ.S	L50114
	LEA	$DFF0A0,A5
	BSR.S	L50150
L50114	LEA	L50494(PC),A6
	TST.B	3(A6)
	BEQ.S	L50126
	LEA	$DFF0B0,A5
	BSR.S	L50150
L50126	LEA	L504AC(PC),A6
	TST.B	3(A6)
	BEQ.S	L50138
	LEA	$DFF0C0,A5
	BSR.S	L50150
L50138	LEA	L504C4(PC),A6
	TST.B	3(A6)
	BEQ.S	L5014A
	LEA	$DFF0D0,A5
	BSR.S	L50150
L5014A	MOVEM.L	(A7)+,D0-d7/A0-a6
	RTS
L50150	MOVE.B	2(A6),D0
	ANDI.B	#$F,D0
	TST.B	D0
	BEQ.S	L50186
	CMPI.B	#1,D0
	BEQ	L50214
	CMPI.B	#2,D0
	BEQ	L501F6
	CMPI.B	#$C,D0
	BEQ	L50232
	CMPI.B	#$E,D0
	BEQ	L5023A
	CMPI.B	#$F,D0
	BEQ	L50254
	RTS
L50186	CMPI.W	#1,m+$57A
	BEQ.S	L501BA
	CMPI.W	#2,m+$57A
	BEQ.S	L501C4
	CMPI.W	#3,m+$57A
	BEQ.S	L501D0
	CMPI.W	#4,m+$57A
	BEQ.S	L501BA
	CMPI.W	#5,m+$57A
	BEQ.S	L501C4
	RTS
L501BA	CLR.L	D0
	MOVE.B	3(A6),D0
	LSR.B	#4,D0
	BRA.S	L501D6
L501C4	CLR.L	D0
	MOVE.B	3(A6),D0
	ANDI.B	#$F,D0
	BRA.S	L501D6
L501D0	MOVE.W	$10(A6),D2
	BRA.S	L501F0
L501D6	LSL.W	#1,D0
	CLR.L	D1
	MOVE.W	$10(A6),D1
	LEA	m+$520,A0
L501E4	MOVE.W	0(A0,D0.W),D2
	CMP.W	(A0),D1
	BEQ.S	L501F0
	ADDQ.L	#2,A0
	BRA.S	L501E4
L501F0	MOVE.W	D2,6(A5)
	RTS
L501F6	BSR.S	L50266
	CLR.L	D0
	MOVE.B	3(A6),D0
	ANDI.B	#$F,D0
	ADD.W	D0,(A4)
	CMPI.W	#$358,(A4)
	BMI.S	L5020E
	MOVE.W	#$358,(A4)
L5020E	MOVE.W	(A4),6(A5)
	RTS
L50214	BSR.S	L50266
	CLR.L	D0
	MOVE.B	3(A6),D0
	ANDI.B	#$F,D0
	SUB.W	D0,(A4)
	CMPI.W	#$71,(A4)
	BPL.S	L5022C
	MOVE.W	#$71,(A4)
L5022C	MOVE.W	(A4),6(A5)
	RTS
L50232	MOVE.B	3(A6),8(A5)
	RTS
L5023A	MOVE.B	3(A6),D0
	ANDI.B	#1,D0
	LSL.B	#1,D0
	ANDI.B	#$FD,$BFE001
	OR.B	D0,$BFE001
	RTS
L50254	CLR.L	D0
	MOVE.B	3(A6),D0
	ANDI.B	#$F,D0
	MOVE.W	D0,m+$0F8
	RTS
L50266	CMPA.L	#L5047C,A6
	BNE.S	L50274
	LEA	L504DC(PC),A4
	RTS
L50274	CMPA.L	#L50494,A6
	BNE.S	L50282
	LEA	m+$4DE(PC),A4
	RTS
L50282	CMPA.L	#L504AC,A6
	BNE.S	L50290
	LEA	m+$4E0(PC),A4
	RTS
L50290	LEA	m+$4E2(PC),A4
	RTS
L50296	CLR.W	m+$57A
	MOVEA.L	m+$56A,A0
	MOVEA.L	A0,A3
	ADDA.L	#$C,A3
	MOVEA.L	A0,A2
	ADDA.L	#$1D8,A2
	ADDA.L	#$258,A0
	CLR.L	D1
	MOVE.L	m+$56E,D0
	MOVE.B	0(A2,D0.L),D1
	LSL.L	#8,D1
	LSL.L	#2,D1
	ADD.L	m+$572,D1
	CLR.W	m+$578
	LEA	$DFF0A0,A5
	LEA	L5047C(PC),A6
	BSR	L503C2
	LEA	$DFF0B0,A5
	LEA	L50494(PC),A6
	BSR	L503C2
	LEA	$DFF0C0,A5
	LEA	L504AC(PC),A6
	BSR	L503C2
	LEA	$DFF0D0,A5
	LEA	L504C4(PC),A6
	BSR	L503C2
	MOVE.W	#$190,D0
L50310	DBF	D0,L50310
	MOVE.W	#$8000,D0
	OR.W	m+$578,D0
	MOVE.W	D0,$DFF096
	CMPI.W	#1,m+$48A
	BNE.S	L5033C
	CLR.W	m+$48A
	MOVE.W	#1,$DFF0A4
L5033C	CMPI.W	#1,m+$4A2
	BNE.S	L50354
	CLR.W	m+$4A2
	MOVE.W	#1,$DFF0B4
L50354	CMPI.W	#1,m+$4BA
	BNE.S	L5036C
	CLR.W	m+$4BA
	MOVE.W	#1,$DFF0C4
L5036C	CMPI.W	#1,m+$4D2
	BNE.S	L50384
	CLR.W	m+$4D2
	MOVE.W	#1,$DFF0D4
L50384	ADDI.L	#$10,m+$572
	CMPI.L	#$400,m+$572
	BNE.S	L503BC
	CLR.L	m+$572
	ADDQ.L	#1,m+$56E
	CLR.L	D0
	MOVE.W	m+$576,D0
	CMP.L	m+$56E,D0
	BNE.S	L503BC
	CLR.L	m+$56E
L503BC	MOVEM.L	(A7)+,D0-d7/A0-a6
	RTS
L503C2	MOVE.L	0(A0,D1.L),(A6)
	ADDQ.L	#4,D1
	CLR.L	D2
	MOVE.B	2(A6),D2
	LSR.B	#4,D2
	BEQ.S	L50438
	MOVE.L	D2,D4
	LSL.L	#2,D2
	MULU	#$1E,D4
	LEA	m+$4E0(PC),A1
	MOVE.L	0(A1,D2.L),4(A6)
	MOVE.W	0(A3,D4.L),8(A6)
	MOVE.W	2(A3,D4.L),$12(A6)
	MOVE.L	D0,-(A7)
	MOVE.B	2(A6),D0
	ANDI.B	#$F,D0
	CMPI.B	#$C,D0
	BNE.S	L50408
	MOVE.B	3(A6),8(A5)
	BRA.S	L5040E
L50408	MOVE.W	2(A3,D4.L),8(A5)
L5040E	MOVE.L	(A7)+,D0
	CLR.L	D3
	MOVE.W	4(A3,D4.L),D3
	ADD.L	4(A6),D3
	MOVE.L	D3,$A(A6)
	MOVE.W	6(A3,D4.L),$E(A6)
	CMPI.W	#1,$E(A6)
	BEQ.S	L50438
	MOVE.L	$A(A6),4(A6)
	MOVE.W	6(A3,D4.L),8(A6)
L50438	TST.W	(A6)
	BEQ.S	L5047A
	MOVE.W	$16(A6),$DFF096
	TST.W	$E(A6)
	BNE.S	L50450
	MOVE.W	#1,$E(A6)
L50450	BSR	L50266
	MOVE.W	(A6),(A4)
	MOVE.W	(A6),$10(A6)
	MOVE.L	4(A6),0(A5)
	MOVE.W	8(A6),4(A5)
	MOVE.W	(A6),6(A5)
	MOVE.W	$16(A6),D0
	OR.W	D0,m+$578
	MOVE.W	$12(A6),$14(A6)
L5047A	RTS

L5047C	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,1
L50494	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,2
L504AC	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,4
L504C4	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,8
L504DC	DC.B	0,0,0,0,0,0,0,0
L504E4	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,3,$58,3,$28
	DC.B	2,$FA,2,$D0,2,$A6,2,$80
	DC.B	2,$5C,2,$3A,2,$1A,1,$FC
	DC.B	1,$E0,1,$C5,1,$AC,1,$94
	DC.B	1,$7D,1,$68,1,$53,1,$40
	DC.B	1,$2E,1,$1D,1,$D,0,$FE
	DC.B	0,$F0,0,$E2,0,$D6,0,$CA
	DC.B	0,$BE,0,$B4,0,$AA,0,$A0
	DC.B	0,$97,0,$8F,0,$87,0,$7F
	DC.B	0,$78,0,$71,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
	DC.B	0,0,0,0,0,0,0,0
module	;incbin df0:theme2.mod

.