Tranz Am: Routine at 60E2

60E2: Routine at 60E2


60E2	XOR (HL)
This entry point is used by the routine at 6CB6.
60E3	LD HL,$0000
60E6	LD C,$08
60E8	LD E,$04
60EA	LD A,(HL)
60EB	INC HL
60EC	AND $7F
60EE	OR $80
60F0	LD D,A
60F1	CALL $614B
60F4	DEC E
60F5	JR NZ,$60F1
60F7	DEC C
60F8	JR NZ,$60E8
60FA	RET
60FB	LD A,($5E47)
60FE	XOR $10
6100	LD ($5E47),A
6103	OUT ($FE),A
6105	RET
This entry point is used by the routine at 653E.
6106	LD HL,$0000
6109	LD BC,$0400
610C	LD A,(HL)
610D	INC HL
610E	AND $10
6110	JR Z,$6115
6112	CALL $60FB
6115	DEC BC
6116	LD A,B
6117	OR C
6118	JR NZ,$610C
611A	RET
This entry point is used by the routine at 68A0.
611B	LD A,($5E29)
611E	AND $01
6120	RET NZ
6121	LD HL,$5E46
6124	LD A,(HL)
6125	BIT 7,A
6127	JR NZ,$613E
6129	AND A
612A	RET Z
612B	DEC A
612C	LD (HL),A
612D	RET Z
612E	RLCA
612F	RLCA
6130	AND $1C
6132	OR $20
6134	LD D,A
6135	LD C,$20
6137	CALL $614B
613A	DEC C
613B	JR NZ,$6137
613D	RET
613E	AND $7F
6140	RET Z
6141	DEC A
6142	OR $80
6144	LD (HL),A
6145	AND $7F
6147	RET Z
6148	CPL
6149	JR $612E
614B	CALL $60FB
614E	LD B,D
614F	DJNZ $614F
6151	CALL $60FB
6154	LD B,D
6155	DJNZ $6155
6157	RET
This entry point is used by the routine at 68A0.
6158	LD A,($5E0D)
615B	AND A
615C	RET Z
615D	RRCA
615E	RRCA
615F	CPL
6160	AND $3F
6162	LD D,A
6163	LD C,$04
6165	LD A,($5E80)
6168	CP $03
616A	JR Z,$616E
616C	LD B,$0C
616E	CALL $614B
6171	DEC C
6172	JR NZ,$616E
6174	RET