Tranz Am: Routine at 625C

625C: Routine at 625C

Used by the routine at 68A0.
625C	LD HL,$6513
625F	LD BC,$0202
6262	CALL $6991
6265	LD IX,$5E68
6269	LD BC,($5E90)
626D	LD DE,($5E92)
6271	CALL $6212
6274	LD BC,$0004
6277	ADD IX,BC
6279	LD BC,($5E9C)
627D	LD DE,($5E9E)
6281	CALL $6212
6284	LD BC,$0004
6287	ADD IX,BC
6289	CALL $62DA
628C	LD IX,$5E68
6290	LD C,$03
6292	LD B,$02
6294	LD L,(IX+$00)
6297	LD H,(IX+$01)
629A	LD A,L
629B	OR H
629C	JR Z,$62D5
629E	LD A,L
629F	ADD A,$07
62A1	LD L,A
62A2	LD A,H
62A3	ADD A,$57
62A5	LD H,A
62A6	DEC B
62A7	PUSH BC
62A8	JR NZ,$62C6
62AA	LD BC,$0202
62AD	CALL $6991
62B0	POP BC
62B1	LD A,(IX+$02)
62B4	LD (IX+$00),A
62B7	LD A,(IX+$03)
62BA	LD (IX+$01),A
62BD	LD DE,$0004
62C0	ADD IX,DE
62C2	DEC C
62C3	JR NZ,$6292
62C5	RET
62C6	LD BC,$0202
62C9	CALL $6998
62CC	POP BC
62CD	LD L,(IX+$02)
62D0	LD H,(IX+$03)
62D3	JR $629A
62D5	DEC B
62D6	JR Z,$62B1
62D8	JR $62CD
62DA	LD HL,($5E05)
62DD	SLA L
62DF	RL H
62E1	CALL $6253
62E4	LD C,H
62E5	LD HL,$721F
62E8	LD B,$08
62EA	LD E,(HL)
62EB	INC HL
62EC	LD D,(HL)
62ED	INC HL
62EE	INC DE
62EF	INC DE
62F0	LD A,(DE)
62F1	CP $20
62F3	JR NZ,$6301
62F5	DEC DE
62F6	DEC DE
62F7	LD A,(DE)
62F8	SUB C
62F9	JR NC,$62FD
62FB	NEG
62FD	CP $0C
62FF	JR C,$6306
6301	DJNZ $62EA
6303	JP $624D
6306	LD A,(DE)
6307	INC DE
6308	LD H,A
6309	LD A,(DE)
630A	LD D,A
630B	CALL $6B30
630E	EX DE,HL
630F	CALL $6B2B
6312	EX DE,HL
6313	LD B,H
6314	LD C,L
6315	JP $6212
6318	LD A,(IX+$0B)
631B	LD (IX+$00),A
631E	CALL $71ED
6321	CALL $6557
6324	DEC (IX+$04)
6327	JR Z,$6353
6329	LD A,(IX+$04)
632C	AND $03
632E	JR NZ,$6340
6330	BIT 2,(IX+$04)
6334	JR Z,$633C
6336	LD (IX+$0B),$21
633A	JR $6340
633C	LD (IX+$0B),$22
6340	LD A,(IX+$0B)
6343	LD (IX+$00),A
6346	CALL $7101
6349	LD (IX+$00),$03
634D	LD A,$01
634F	LD ($5E0D),A
6352	RET
6353	CALL $7139
6356	CALL $617F
6359	LD A,R
635B	AND $01
635D	JR Z,$6362
635F	CALL $6175
6362	LD HL,$5E3D
6365	DEC (HL)
6366	JP P,$63A7
6369	LD (HL),$00
636B	POP HL
636C	CALL $605B
636F	CALL $6175
6372	CALL $68A0
6375	LD HL,$5878
6378	LD DE,$63DA
637B	CALL $5F97
637E	LD B,$04
6380	CALL $6386
6383	JP SecurityCheck_0
This entry point is used by the routines at 63FF and 68A0.
6386	LD HL,$0000
6389	DEC HL
638A	LD A,L
638B	OR H
638C	JR NZ,$6389
638E	DJNZ $6389
6390	RET
This entry point is used by the routine at 5FEF.
6391	LD A,$03
6393	LD ($5E3D),A
This entry point is used by the routine at 63FF.
6396	XOR A
6397	LD ($5E3C),A
639A	CALL $6498
639D	LD HL,$5E2D
63A0	LD B,$07
63A2	LD (HL),$00
63A4	INC HL
63A5	DJNZ $63A2
63A7	CALL $68A0
63AA	CALL $653E
63AD	CALL $656E
63B0	CALL $6BFE
63B3	CALL $6A09
63B6	LD HL,$C000
63B9	LD ($5E0A),HL
63BC	LD H,$00
63BE	LD ($5E0C),HL
63C1	LD ($5E0E),HL
63C4	LD ($5E10),HL
63C7	LD HL,$0C40
63CA	LD ($5E05),HL
63CD	LD HL,$0640
63D0	LD ($5E08),HL
63D3	XOR A
63D4	LD ($5E4F),A
63D7	JP $6BFE