Jason's Gem: Routine at C3FB

C3FB: Routine at C3FB

Used by the routine at BC48.
C3FB	LD HL,$412C
C3FE	LD ($5B7C),HL
C401	LD ($5B87),HL
C404	LD A,($5B95)
C407	LD ($5BA6),A
C40A	LD HL,$65D6
C40D	LD ($5BA2),HL
C410	XOR A
C411	LD ($5BA1),A
C414	LD A,$80
C416	LD ($5B89),A
C419	LD ($5B7E),A
C41C	LD HL,$797C
C41F	LD ($5B6F),HL
C422	LD A,$A0
C424	LD ($5B71),A
C427	LD A,$03
C429	LD ($5B72),A
C42C	LD A,$01
C42E	LD ($5B81),A
C431	LD ($5B7F),A
C434	LD A,$32
C436	LD ($5B8C),A
C439	LD ($5B8D),A
C43C	XOR A
C43D	LD ($5B80),A
C440	LD ($5B8A),A
C443	LD ($5B7B),A
C446	LD A,$05
C448	LD ($5B91),A
C44B	LD HL,$FF58
C44E	LD ($5C7B),HL
C451	CALL $C0AA
C454	CALL $C39B
C457	CALL $CDB9
C45A	LD HL,$565A
C45D	LD A,($5B95)
C460	LD B,A
C461	CALL $C994
C464	LD A,$0B
C466	LD ($5B94),A
This entry point is used by the routine at CA6F.
C469	JP $C4C0
C46C	CALL $C557
C46F	CALL $C74B
C472	LD A,($5B8B)
C475	AND A
C476	JP NZ,$C765
C479	HALT
C47A	HALT
C47B	HALT
C47C	HALT
C47D	CALL $CDDA
C480	CALL $CD59
C483	LD A,($5B8A)
C486	AND A
C487	JP NZ,$C6AE
C48A	LD A,$FB
C48C	IN A,($FE)
C48E	AND $01
C490	JP Z,$D002
C493	LD A,($5B82)
This entry point is used by the routine at CA6F.
C496	AND A
C497	CALL NZ,$C625
C49A	LD A,($5BA8)
C49D	CP $01
C49F	JP NZ,$CF0C
C4A2	LD A,$FE
C4A4	IN A,($FE)
C4A6	AND $02
This entry point is used by the routine at CA6F.
C4A8	CALL Z,$C5A9
C4AB	LD A,$FE
C4AD	IN A,($FE)
C4AF	AND $04
C4B1	CALL Z,$C5C1
C4B4	LD A,$7F
C4B6	IN A,($FE)
C4B8	AND $01
C4BA	CALL Z,$C5D9
C4BD	JP $C469
C4C0	LD HL,($5B7C)
C4C3	CALL $BDE4
C4C6	LD ($5B7C),HL
C4C9	LD A,($5B80)
C4CC	INC A
C4CD	LD ($5B80),A
C4D0	CP $87
C4D2	JP Z,$C4DB
This entry point is used by the routine at CA6F.
C4D5	CALL $C39B
C4D8	JP $C46C
C4DB	LD HL,($5B6F)
C4DE	LD DE,$003C
C4E1	ADD HL,DE
C4E2	LD ($5B6F),HL
C4E5	CALL $CD78
C4E8	XOR A
C4E9	LD ($5B82),A
C4EC	LD A,$01
C4EE	LD ($5B80),A
C4F1	LD A,($5B91)
C4F4	ADD A,$05
C4F6	LD ($5B91),A
C4F9	CALL BonusPrint
C4FC	LD A,($5B81)
C4FF	INC A
C500	LD ($5B81),A
C503	CP $06
C505	RET Z
C506	CALL $C0AA
C509	LD A,($5B81)
C50C	CP $05
C50E	CALL Z,$C73D
C511	LD HL,$565A
C514	LD A,($5B95)
C517	LD B,A
C518	CALL $C994
C51B	CALL $CDB9
C51E	LD HL,($5B7C)
C521	LD B,$86
C523	CALL $BE0E
C526	DJNZ $C523
C528	LD ($5B7C),HL
C52B	LD ($5B87),HL
C52E	LD A,($5B95)
C531	LD ($5BA6),A
C534	LD A,($5B7E)
C537	LD ($5B89),A
C53A	LD A,($5B8C)
C53D	LD ($5B8D),A
C540	JP $C469
C543	LD A,H
C544	SBC A,$58
C546	SLA A
C548	SLA A
C54A	SLA A
C54C	ADD A,$40
C54E	LD H,A
C54F	LD B,$40
C551	CALL $BDE4
C554	DJNZ $C551
C556	RET
This entry point is used by the routine at CA6F.
C557	LD HL,($5B7C)
C55A	LD B,$03
C55C	CALL $BDE4
C55F	DJNZ $C55C
C561	LD B,$0E
C563	LD A,($5B7E)
C566	LD C,A
C567	LD A,(HL)
C568	AND C
C569	JP NZ,$C594
C56C	CALL $BDE4
C56F	DJNZ $C567
C571	CALL $BE0E
C574	LD B,$0F
C576	LD A,(HL)
C577	AND C
C578	JP NZ,$C594
C57B	RRC C
C57D	CALL C,$C5A7
C580	DJNZ $C576
C582	RLC C
C584	CALL C,$C5A5
C587	LD B,$0E
C589	LD A,(HL)
C58A	AND C
C58B	JP NZ,$C594
C58E	CALL $BE0E
C591	DJNZ $C589
C593	RET
C594	LD A,($5B90)
C597	DEC A
C598	LD ($5B90),A
C59B	LD A,$01
C59D	LD ($5B8A),A
C5A0	XOR A
C5A1	LD ($5B82),A
C5A4	RET
C5A5	DEC HL
C5A6	RET
C5A7	INC HL
C5A8	RET
This entry point is used by the routine at CA6F.
C5A9	LD HL,($5B7C)
C5AC	LD A,($5B7E)
C5AF	RLCA
C5B0	LD ($5B7E),A
C5B3	CALL C,$C5A5
C5B6	LD ($5B7C),HL
C5B9	LD A,($5B8C)
C5BC	DEC A
C5BD	LD ($5B8C),A
C5C0	RET
This entry point is used by the routine at CA6F.
C5C1	LD HL,($5B7C)
C5C4	LD A,($5B7E)
C5C7	RRCA
C5C8	LD ($5B7E),A
C5CB	CALL C,$C5A7
C5CE	LD ($5B7C),HL
C5D1	LD A,($5B8C)
C5D4	INC A
C5D5	LD ($5B8C),A
C5D8	RET
This entry point is used by the routine at CA6F.
C5D9	LD A,($5B82)
C5DC	AND A
C5DD	RET NZ
C5DE	LD A,($5B80)
C5E1	CP $87
C5E3	RET NC
C5E4	CALL $C6FC
C5E7	LD HL,($5B7C)
C5EA	LD B,$14
C5EC	CALL $BDE4
C5EF	DJNZ $C5EC
C5F1	LD B,$07
C5F3	LD A,($5B7E)
C5F6	RRCA
C5F7	CALL C,$C5A7
C5FA	DJNZ $C5F6
C5FC	LD ($5B83),HL
C5FF	LD ($5B85),A
C602	LD A,$01
C604	LD ($5B82),A
C607	LD A,($5B80)
C60A	ADD A,$14
C60C	LD ($5B86),A
C60F	CALL $C613
C612	RET
C613	LD HL,($5B83)
C616	LD A,($5B85)
C619	LD C,A
C61A	LD B,$05
C61C	LD A,(HL)
C61D	XOR C
C61E	LD (HL),A
C61F	CALL $BDE4
C622	DJNZ $C61C
C624	RET
C625	LD A,($5B86)
C628	INC A
C629	INC A
C62A	INC A
C62B	INC A
C62C	INC A
C62D	LD ($5B86),A
C630	CP $8E
C632	PUSH AF
C633	CALL $C613
C636	POP AF
C637	JP NC,$C656
C63A	LD HL,($5B83)
C63D	CALL $BDE4
C640	CALL $BDE4
C643	CALL $BDE4
C646	CALL $BDE4
C649	CALL $BDE4
C64C	LD ($5B83),HL
C64F	CALL $C613
C652	CALL $C65B
C655	RET
C656	XOR A
C657	LD ($5B82),A
C65A	RET
C65B	LD HL,($5B83)
C65E	LD B,$05
C660	CALL $BDE4
C663	DJNZ $C660
C665	CALL $C146
C668	LD A,(HL)
C669	AND $07
C66B	CP $06
C66D	JP C,$C67F
C670	LD HL,($5B83)
C673	CALL $C146
C676	LD A,(HL)
C677	AND $07
C679	CP $06
This entry point is used by the routine at CA6F.
C67B	JP C,$C67F
C67E	RET
C67F	LD A,$0F
C681	LD (HL),A
C682	CALL $C543
C685	PUSH HL
C686	CALL $C613
C689	POP HL
C68A	LD B,$08
C68C	LD (HL),$00
C68E	CALL $BDE4
C691	DJNZ $C68C
C693	CALL $C722
C696	LD HL,($5B8E)
C699	INC HL
C69A	INC HL
C69B	INC HL
C69C	LD ($5B8E),HL
C69F	CALL $C865
C6A2	JP $C656
C6A5	LD HL,$5A90
C6A8	CALL $C543
C6AB	LD (HL),$FF
C6AD	RET
C6AE	CALL $C2B5
C6B1	CALL WhoopsPrint
C6B4	LD A,($5B90)
C6B7	AND A
C6B8	JP Z,$CA20
C6BB	CALL $C0AA
C6BE	LD A,($5BA6)
C6C1	LD ($5B95),A
C6C4	LD HL,$565A
C6C7	LD A,($5B95)
C6CA	LD B,A
C6CB	CALL $C994
C6CE	CALL $CDB9
C6D1	CALL $CD91
C6D4	LD A,($5B81)
C6D7	CP $05
C6D9	CALL Z,$C73D
C6DC	LD HL,($5B87)
C6DF	LD ($5B7C),HL
C6E2	LD A,($5B89)
C6E5	LD ($5B7E),A
C6E8	XOR A
C6E9	LD ($5B8A),A
C6EC	LD ($5B82),A
C6EF	INC A
C6F0	LD ($5B80),A
C6F3	LD A,($5B8D)
C6F6	LD ($5B8C),A
C6F9	JP $C469
C6FC	PUSH HL
C6FD	PUSH DE
C6FE	PUSH AF
C6FF	PUSH BC
C700	LD HL,$0000
C703	LD B,$14
C705	PUSH BC
C706	PUSH HL
C707	LD A,(HL)
C708	OR $01
C70A	LD L,A
C70B	LD H,$00
C70D	LD A,B
C70E	OR $01
C710	AND $07
C712	LD E,A
C713	LD D,$00
C715	CALL $03B5
C718	POP HL
C719	INC HL
C71A	POP BC
C71B	DJNZ $C705
C71D	POP BC
C71E	POP AF
C71F	POP DE
C720	POP HL
C721	RET
C722	PUSH HL
C723	PUSH DE
C724	PUSH BC
C725	PUSH AF
C726	LD B,$14
C728	PUSH BC
C729	LD A,B
C72A	OR $01
C72C	LD L,A
C72D	LD E,A
C72E	LD H,$00
C730	LD D,$00
C732	CALL $03B5
C735	POP BC
C736	DJNZ $C728
C738	POP AF
C739	POP BC
C73A	POP DE
C73B	POP HL
C73C	RET
C73D	LD HL,$5A4B
C740	LD DE,$5A4C
C743	LD BC,$0002
C746	LD (HL),$96
C748	LDIR
C74A	RET
C74B	LD HL,($5B7C)
C74E	LD B,$11
C750	PUSH BC
C751	CALL $BDE4
C754	POP BC
C755	DJNZ $C750
C757	INC HL
C758	CALL $C146
C75B	LD A,(HL)
C75C	CP $96
C75E	RET NZ
C75F	LD A,$01
C761	LD ($5B8B),A
C764	RET
C765	XOR A
C766	LD ($5B8B),A
C769	LD A,($5B82)
C76C	AND A
C76D	CALL NZ,$C613
C770	XOR A
C771	LD ($5B82),A
C774	LD HL,($5B7C)
C777	INC HL
C778	INC HL
C779	CALL $BDE4
C77C	LD ($5B68),HL
C77F	LD A,($5B7E)
C782	LD ($5B6A),A
C785	LD A,$01
C787	LD ($5B6D),A
C78A	LD HL,$6D60
C78D	LD ($5B6B),HL
C790	LD A,($5B8C)
C793	LD B,A
C794	PUSH BC
C795	CALL $BDA5
C798	HALT
C799	HALT
C79A	LD A,($5B6A)
C79D	RRCA
C79E	LD ($5B6A),A
C7A1	CALL C,$C7B5
C7A4	CALL $C7BD
C7A7	CALL $BDA5
C7AA	POP BC
C7AB	LD A,$6D
C7AD	INC B
C7AE	CP B
C7AF	JP NZ,$C794
C7B2	JP $C7DD
C7B5	LD HL,($5B68)
C7B8	INC HL
C7B9	LD ($5B68),HL
C7BC	RET
C7BD	LD HL,($5B6B)
C7C0	LD DE,$0010
C7C3	ADD HL,DE
C7C4	LD ($5B6B),HL
C7C7	LD A,($5B6D)
C7CA	INC A
C7CB	LD ($5B6D),A
C7CE	CP $05
C7D0	RET NZ
C7D1	LD HL,$6D60
C7D4	LD ($5B6B),HL
C7D7	LD A,$01
C7D9	LD ($5B6D),A
C7DC	RET
C7DD	LD HL,($5B68)
C7E0	LD B,$10
C7E2	CALL $BDE4
C7E5	DJNZ $C7E2
C7E7	LD B,$08
C7E9	PUSH BC
C7EA	PUSH HL
C7EB	LD B,$08
C7ED	PUSH BC
C7EE	PUSH HL
C7EF	LD A,(HL)
C7F0	SRL A
C7F2	LD (HL),A
C7F3	PUSH HL
C7F4	CALL $C146
C7F7	LD (HL),$0F
C7F9	POP HL
C7FA	INC HL
C7FB	LD A,(HL)
C7FC	SRL A
C7FE	LD (HL),A
C7FF	CALL $C146
C802	LD (HL),$0F
C804	POP HL
C805	CALL $BDE4
C808	POP BC
C809	DJNZ $C7ED
C80B	CALL $C816
C80E	POP HL
C80F	POP BC
C810	HALT
C811	DJNZ $C7E9
C813	JP $C82B
C816	LD B,$0F
C818	PUSH BC
C819	LD A,B
C81A	OR $01
C81C	RLCA
C81D	RLCA
C81E	LD H,$00
C820	LD L,A
C821	LD DE,$000A
C824	CALL $03B5
C827	POP BC
C828	DJNZ $C818
C82A	RET
C82B	LD HL,($5B68)
C82E	LD B,$10
C830	PUSH BC
C831	CALL $BDA5
C834	HALT
C835	HALT
C836	LD HL,($5B68)
C839	CALL $BDE4
C83C	LD ($5B68),HL
C83F	POP BC
C840	DJNZ $C830
C842	CALL BonusPrint
C845	JP $BC74
C848	LD (DE),A
C849	NOP
C84A	LD DE,$1600
C84D	LD BC,$101A
C850	DEC B
C851	LD D,E
C852	LD B,E
C853	LD C,A
C854	LD D,D
C855	LD B,L
C856	LD D,$02
C858	LD A,(DE)
C859	LD D,$03
C85B	LD A,(DE)
C85C	DJNZ $C862
C85E	LD B,D
C85F	LD B,L
C860	LD D,E
C861	LD D,H
C862	LD D,$04
C864	LD A,(DE)
This entry point is used by the routines at BF85, C98F and CA6F.
C865	LD DE,$C848
C868	LD BC,$0011
C86B	CALL $203C
C86E	LD HL,($5B8E)
C871	LD A,H
C872	AND A
C873	JP NZ,$C87B
C876	LD A,L
C877	AND A
C878	JP Z,$C883
C87B	PUSH HL
C87C	POP BC
C87D	CALL $2D2B
C880	CALL $2DE3
C883	LD A,$30
C885	RST $10
C886	LD DE,$C859
C889	LD BC,$000C
C88C	CALL $203C
C88F	LD HL,($5BA4)
C892	LD A,H
C893	AND A
C894	JP NZ,$C89C
C897	LD A,L
C898	AND A
C899	JP Z,$C8A4
C89C	PUSH HL
C89D	POP BC
C89E	CALL $2D2B
C8A1	CALL $2DE3
C8A4	LD A,$30
C8A6	RST $10
C8A7	RET