Tranz Am: Routine at 61E0

61E0: Routine at 61E0

Used by the routine at 6CB6.
61E0	LD A,($5E3E)
61E3	BIT 1,A
61E5	JR NZ,$6188
61E7	LD B,$02
61E9	LD A,$FB
61EB	OUT ($FD),A
61ED	IN A,($FE)
61EF	AND $1F
61F1	CP $1F
61F3	JR NZ,$61FB
61F5	LD A,$DF
61F7	DJNZ $61EB
61F9	JR $61BF
61FB	LD A,$F7
61FD	RET
61FE	CALL $6253
6201	LD A,$0C
6203	SUB H
6204	JR C,$624D
6206	JR $622A
6208	CALL $6253
620B	LD A,$0E
620D	SUB H
620E	JR C,$624D
6210	JR $6245
This entry point is used by the routine at 625C.
6212	LD HL,($5E05)
6215	SLA L
6217	RL H
6219	AND A
621A	SBC HL,BC
621C	JR NC,$61FE
621E	CALL $6BF6
6221	CALL $6253
6224	LD A,$0C
6226	CP H
6227	JR C,$624D
6229	ADD A,H
622A	LD (IX+$02),A
622D	LD HL,($5E08)
6230	SLA L
6232	RL H
6234	AND A
6235	SBC HL,DE
6237	JR NC,$6208
6239	CALL $6BF6
623C	CALL $6253
623F	LD A,$0E
6241	CP H
6242	JR C,$624D
6244	ADD A,H
6245	NEG
6247	ADD A,$1C
6249	LD (IX+$03),A
624C	RET
This entry point is used by the routine at 625C.
624D	XOR A
624E	LD (IX+$02),A
6251	JR $6249
This entry point is used by the routine at 625C.
6253	LD B,$02
6255	RL L
6257	RL H
6259	DJNZ $6255
625B	RET