Tranz Am: Routine at 6CB6

6CB6: Routine at 6CB6

Used by the routines at 5FEF and 68A0.
6CB6	LD HL,$400D
6CB9	LD DE,$5E4C
6CBC	JR $6CC4
This entry point is used by the routine at 68A0.
6CBE	LD HL,$4018	HL=4018.
6CC1	LD DE,$5E49	DE=5E49.
6CC4	LD B,$03
6CC6	LD A,(DE)
6CC7	RRCA
6CC8	RRCA
6CC9	RRCA
6CCA	RRCA
6CCB	AND %00001111	Keep only bits 0-3.
6CCD	ADD A,$30
6CCF	CALL PrintScreen	Call PrintScreen.
This entry point is used by the routine at 63FF.
6CD2	LD A,(DE)
6CD3	AND %00001111	Keep only bits 0-3.
6CD5	ADD A,$30
6CD7	CALL PrintScreen	Call PrintScreen.
6CDA	INC DE
6CDB	DJNZ $6CC6
6CDD	RET
This entry point is used by the routine at 68A0.
6CDE	LD HL,$4061	HL=4061.
6CE1	LD DE,$5E2D	DE=5E2D.
6CE4	LD B,$03
6CE6	CALL $6CC6	Call 6CC6.
6CE9	LD HL,$4021	HL=4021.
This entry point is used by the routine at 63FF.
6CEC	LD DE,$5E31	DE=5E31.
6CEF	LD B,$02
6CF1	CALL $6CD2	Call 6CD2.
6CF4	LD DE,$5E33	DE=5E33.
6CF7	INC HL
6CF8	LD B,$01
6CFA	JP $6CC6	Jump to 6CC6.
This entry point is used by the routine at 63FF.
6CFD	LD B,$02
6CFF	CALL $6CD2
6D02	LD DE,$5E02
6D05	JR $6CF7
6D07	LD A,($5E0D)
6D0A	ADD A,$04
6D0C	CP $C0
6D0E	JR NC,$6D76
6D10	JR $6D73
This entry point is used by the routine at 68A0.
6D12	LD C,$00
6D14	LD A,($5E0D)
6D17	RLA
6D18	RL C
6D1A	RLA
6D1B	RL C
6D1D	LD HL,$5E30
6D20	ADD A,(HL)
6D21	LD (HL),A
6D22	LD A,C
6D23	LD B,$03
6D25	DEC HL
6D26	ADC A,(HL)
6D27	DAA
6D28	LD (HL),A
6D29	LD A,$00
6D2B	DJNZ $6D25
6D2D	LD A,($5E74)
6D30	LD L,A
6D31	LD A,($5E2E)
6D34	CP L
6D35	JR Z,$6D40
6D37	LD ($5E74),A
6D3A	LD BC,$0010
6D3D	CALL $6046
6D40	LD HL,($5E05)
6D43	LD A,($5E0B)
6D46	AND A
6D47	JR NZ,$6D56
6D49	LD A,($5E0D)
6D4C	CP $33
6D4E	JR C,$6D5D
6D50	DEC A
6D51	LD ($5E0D),A
6D54	JR $6D64
6D56	LD A,($5E0C)
6D59	CP $A0
6D5B	JR NC,$6D49
6D5D	CALL $61E0
6D60	BIT 3,A
6D62	JR Z,$6D07
6D64	CALL $61C2
6D67	BIT 2,A
6D69	JR NZ,$6D76
6D6B	LD A,($5E0D)
6D6E	SUB $10
6D70	JR NC,$6D73
6D72	XOR A
6D73	LD ($5E0D),A
6D76	LD A,($5E0D)
6D79	LD HL,$49E2
6D7C	CALL $6EDE
6D7F	LD A,($5E11)
6D82	INC A
6D83	LD C,A
6D84	LD A,($5E10)
6D87	RRA
6D88	RRA
6D89	RRA
6D8A	AND $1F
6D8C	BIT 0,C
6D8E	JR NZ,$6D92
6D90	XOR $1F
6D92	LD E,A
6D93	LD D,$00
6D95	PUSH DE
6D96	LD HL,$7F6B
6D99	ADD HL,DE
6D9A	LD A,($5E0D)
6D9D	LD E,A
6D9E	LD D,$00
6DA0	PUSH DE
6DA1	LD A,(HL)
6DA2	CALL $6F2F
6DA5	LD A,($5E09)
6DA8	LD DE,($5E07)
6DAC	CALL $6EC2
6DAF	BIT 1,C
6DB1	JR NZ,$6DEF
6DB3	ADD HL,DE
6DB4	ADC A,$00
6DB6	CP $0C
6DB8	JR NC,$6E00
6DBA	LD ($5E09),A
6DBD	LD ($5E07),HL
6DC0	POP HL
6DC1	POP DE
6DC2	PUSH HL
6DC3	LD HL,$7F8A
6DC6	AND A
6DC7	SBC HL,DE
6DC9	LD A,(HL)
6DCA	POP DE
6DCB	CALL $6F2F
6DCE	LD A,($5E06)
6DD1	LD DE,($5E04)
6DD5	CALL $6EC2
6DD8	DEC C
6DD9	BIT 1,C
6DDB	JR NZ,$6E32
6DDD	ADD HL,DE
6DDE	ADC A,$00
6DE0	CP $18
6DE2	JR NC,$6E19
6DE4	LD ($5E04),HL
6DE7	LD ($5E06),A
6DEA	CALL $6C2D
6DED	JR $6E43
6DEF	EX DE,HL
6DF0	AND A
6DF1	SBC HL,DE
6DF3	SBC A,$00
6DF5	JR NZ,$6DBA
6DF7	EX AF,AF'
6DF8	LD A,H
6DF9	CP $80
6DFB	JR C,$6E00
6DFD	EX AF,AF'
6DFE	JR $6DBA
6E00	LD A,($5E11)
6E03	XOR $01
6E05	LD ($5E11),A
6E08	LD A,($5E10)
6E0B	CPL
6E0C	LD ($5E10),A
6E0F	LD A,$05
6E11	LD ($5E45),A
6E14	CALL $60E3
6E17	JR $6DC0
6E19	LD A,($5E11)
6E1C	XOR $03
6E1E	LD ($5E11),A
6E21	LD A,($5E10)
6E24	CPL
6E25	LD ($5E10),A
6E28	LD A,$05
6E2A	LD ($5E45),A
6E2D	CALL $60E3
6E30	JR $6DEA
6E32	EX DE,HL
6E33	AND A
6E34	SBC HL,DE
6E36	SBC A,$00
6E38	JR NZ,$6DE4
6E3A	EX AF,AF'
6E3B	LD A,H
6E3C	CP $80
6E3E	JR C,$6E19
6E40	EX AF,AF'
6E41	JR $6DE4
6E43	LD A,($5E45)
6E46	AND A
6E47	JR Z,$6E54
6E49	DEC A
6E4A	LD ($5E45),A
6E4D	JR Z,$6E51
6E4F	LD A,$02
6E51	LD ($5E47),A
6E54	CALL $618C
6E57	LD HL,($5E10)
6E5A	LD E,$18
6E5C	BIT 1,A
6E5E	JP Z,$6E76
6E61	BIT 0,A
6E63	JP Z,$6E6C
6E66	LD E,$00
6E68	JR $6E7E
6E6A	LD E,$18
6E6C	LD D,$00
6E6E	ADD HL,DE
6E6F	LD ($5E10),HL
6E72	JR $6E7E
6E74	LD E,$18
6E76	LD D,$00
6E78	AND A
6E79	SBC HL,DE
6E7B	LD ($5E10),HL
6E7E	LD A,($5E29)
6E81	AND $03
6E83	JR NZ,$6E9B
6E85	LD A,($5E0D)
6E88	LD C,A
6E89	LD B,$00
6E8B	LD HL,($5E0A)
6E8E	SBC HL,BC
6E90	JR C,$6E95
6E92	LD ($5E0A),HL
6E95	CP $B0
6E97	JR NC,$6EAF
6E99	CP $60
6E9B	LD A,($5E0C)
6E9E	JR C,$6EBC
6EA0	LD HL,$5162
6EA3	CALL $6EDE
6EA6	LD A,($5E0B)
6EA9	LD HL,$5122
6EAC	JP $6EDE
6EAF	LD A,($5E0C)
6EB2	CP $C0
6EB4	JR NC,$6EA0
6EB6	INC A
6EB7	LD ($5E0C),A
6EBA	JR $6EA0
6EBC	AND A
6EBD	JR Z,$6EA0
6EBF	DEC A
6EC0	JR $6EB7
6EC2	LD B,$05
6EC4	SRL H
6EC6	RR L
6EC8	DJNZ $6EC4
6ECA	RET
This entry point is used by the routines at 68A0 and 6F10.
6ECB	DEC H
6ECC	LD A,H
6ECD	CPL
6ECE	AND $07
6ED0	RET NZ
6ED1	LD A,L
6ED2	SUB $20
6ED4	LD L,A
6ED5	CPL
6ED6	AND $E0
6ED8	RET Z
6ED9	LD A,H
6EDA	ADD A,$08
6EDC	LD H,A
6EDD	RET
6EDE	SRL A
6EE0	SRL A
6EE2	LD C,A
6EE3	LD A,C
6EE4	SUB $08
6EE6	JR C,$6EF0
6EE8	LD C,A
6EE9	LD A,$FF
6EEB	CALL $6EFD
6EEE	JR $6EE3
6EF0	LD B,$00
6EF2	PUSH HL
6EF3	LD HL,$6F07
6EF6	ADD HL,BC
6EF7	LD A,(HL)
6EF8	POP HL
6EF9	CALL $6EFD
6EFC	XOR A
6EFD	PUSH HL
6EFE	LD B,$07
6F00	LD (HL),A
6F01	INC H
6F02	DJNZ $6F00
6F04	POP HL
6F05	INC L
6F06	RET
6F07	DEFB $00,$80,$C0,$E0,$F0,$F8,$FC,$FE
6F0F	DEFB $FF