Harrier Attack: Routine at 739D

739D: Routine at 739D

Used by the routines at 72CA and 78B0.
739D	PUSH AF
739E	CALL $60F6
73A1	LD A,(DE)
73A2	CP $24
73A4	JR NZ,$73AC
73A6	LD (IX+$05),$00
73AA	POP AF
73AB	RET
73AC	XOR $05
73AE	LD (DE),A
73AF	CALL ScreenBufferAddress
73B2	POP AF
73B3	CALL Address_UDG
73B6	LD H,B
73B7	LD L,C
73B8	LD B,$08
73BA	LD A,(DE)
73BB	XOR (HL)
73BC	LD (HL),A
73BD	INC DE
73BE	INC H
73BF	DJNZ $73BA
73C1	RET
73C2	NOP
73C3	NOP
73C4	LD C,B
73C5	RST $38
73C6	LD BC,$0A01
73C9	NOP
73CA	NOP
73CB	LD C,C
73CC	NOP
73CD	LD (BC),A
73CE	LD BC,$000F
73D1	NOP
73D2	LD C,D
73D3	RST $38
73D4	LD (BC),A
73D5	LD BC,$0014
73D8	NOP
73D9	LD C,B
73DA	LD BC,$0102
73DD	LD C,$00
73DF	NOP
73E0	LD C,C
73E1	NOP
73E2	LD BC,$1901
73E5	NOP
73E6	NOP
73E7	LD C,D
73E8	RST $38
73E9	LD BC,$0701
73EC	NOP
73ED	NOP
73EE	LD C,B
73EF	NOP
73F0	LD (BC),A
73F1	LD BC,$000D
73F4	NOP
73F5	LD C,C
73F6	LD BC,$0102
73F9	INC D
73FA	NOP
73FB	NOP
73FC	LD C,D
73FD	LD (BC),A
73FE	LD BC,$0901
7401	OR (HL)
7402	DEC HL
7403	JR NZ,$7448
7405	LD D,B
7406	JR NZ,$7454
7408	DEC C
7409	RET NZ
740A	DEC HL
740B	JR NZ,$7457
740D	LD D,D
740E	JR NZ,$746A
7410	INC L
7411	LD C,L
7412	LD D,H
7413	DEC (HL)
7414	DEC C
7415	JP Z,$1B2A
7418	LD E,E
7419	ADD A,L
741A	LD L,A
741B	JR NC,$741E
741D	INC H
741E	LD ($5B1B),HL
7421	PUSH HL
7422	LD BC,$061A
7425	CALL $0DD9
7428	LD A,$07
742A	LD ($5C8F),A
742D	POP BC
742E	CALL $1A1B
7431	LD A,$30
7433	RST $10
7434	RET
This entry point is used by the routine at 7554.
7435	LD HL,$5C78
7438	LD A,(HL)
7439	ADD A,$07
743B	CP (HL)
743C	JR NZ,$743B
743E	CALL $6FD8
7441	CALL $70A8
7444	LD A,($5B0B)
7447	LD HL,($5B20)
744A	DEC A
744B	JR NZ,$7454
744D	INC H
744E	LD ($5B20),HL
7451	DEC H
7452	JR $74B0
7454	LD A,($5B06)
7457	OR A
7458	JR NZ,$744D
745A	PUSH HL
745B	LD HL,$5C78
745E	LD A,(HL)
745F	ADD A,$07
7461	CP (HL)
7462	JR NZ,$7461
7464	CALL $70A8
7467	POP HL
7468	LD BC,$F7FE
746B	IN A,(C)
746D	LD BC,$EFFE
7470	LD E,A
7471	IN A,(C)
7473	ADD A,A
7474	ADD A,A
7475	XOR E
7476	BIT 4,A
7478	JR Z,$7482
747A	BIT 4,E
747C	JR Z,$7481
747E	INC L
747F	JR $7482
7481	DEC L
7482	IN A,(C)
7484	LD E,A
7485	ADD A,A
7486	XOR E
7487	BIT 4,A
7489	JR Z,$7493
748B	BIT 4,E
748D	JR Z,$7492
748F	DEC H
7490	JR $7493
7492	INC H
7493	LD A,L
7494	OR A
7495	JR NZ,$7498
7497	INC L
7498	CP $1E
749A	JR NZ,$749D
749C	DEC L
749D	LD A,H
749E	OR A
749F	JR NZ,$74A2
74A1	INC H
74A2	LD DE,($5B20)
74A6	PUSH DE
74A7	LD ($5B20),HL
74AA	OR A
74AB	SBC HL,DE
74AD	POP HL
74AE	JR Z,$7435
74B0	XOR A
74B1	LD C,$2D
74B3	PUSH HL
74B4	CALL $6114
74B7	POP HL
74B8	XOR A
74B9	LD C,$2D
74BB	PUSH HL
74BC	INC L
74BD	CALL $6114
74C0	LD HL,($5B20)
74C3	CALL $60F6
74C6	LD A,(DE)
74C7	CP $2D
74C9	JR Z,$74E0
74CB	CP $2F
74CD	JR Z,$74E0
74CF	LD A,($5B06)
74D2	DEC A
74D3	LD A,$64
74D5	CALL Z,$7416
74D8	LD A,$4D
74DA	LD ($5B46),A
74DD	POP HL
74DE	JR $74ED
74E0	INC DE
74E1	LD A,(DE)
74E2	CP $2D
74E4	JR Z,$74EA
74E6	CP $2F
74E8	JR NZ,$74CF
74EA	LD A,$2F
74EC	POP DE
74ED	PUSH HL
74EE	PUSH AF
74EF	LD C,$28
74F1	CALL $6114
74F4	LD C,$28
74F6	POP AF
74F7	INC A
74F8	POP HL
74F9	PUSH HL
74FA	INC L
74FB	CALL $6114
74FE	POP HL
74FF	LD A,($5B46)
7502	OR A
7503	JR NZ,$7533
7505	LD A,($5B0B)
7508	DEC A
7509	JP Z,$7435
750C	LD A,($5B06)
750F	OR A
7510	JP NZ,$7435
7513	LD A,H
7514	CP $0E
7516	JP NZ,$7435
7519	LD A,L
751A	SUB $0D
751C	JP C,$7435
751F	CP $03
7521	JP NC,$7435
7524	LD A,$C8
7526	CALL $7416
7529	CALL $7890
752C	CALL $7890
752F	CALL $7890
7532	RET