Harrier Attack: Routine at 604D

604D: Routine at 604D


604D	LD BC,$00FF	Copies the byte contained at 5900 to the following FF bytes.
6050	LD HL,$5901
6053	LD DE,$5900
6056	LDIR
6058	LD BC,$07FF	Copies the byte contained at 4800 to the following 07FF bytes.
605B	LD HL,$4801
605E	LD DE,$4800
6061	LDIR
6063	BIT 3,A	Check if D3 of A is set?
6065	CALL NZ,$6D09
6068	CALL $6E0E
606B	LD B,$10
606D	LD HL,$001F
6070	PUSH BC
6071	PUSH HL
6072	XOR A
6073	LD C,$2D
6075	CALL $6114
6078	POP HL
6079	INC H
607A	POP BC
607B	DJNZ $6070
607D	LD BC,$001F
6080	LD HL,$5001
6083	LD DE,$5000
6086	LDIR
6088	CALL $60B6
608B	LD A,L
608C	LD ($65D0),A
608F	LD A,H
6090	LD ($501F),A
6093	CALL $6148
6096	LD HL,($5B2C)
6099	INC HL
609A	LD ($5B2C),HL
609D	CALL $61C4
60A0	CALL $69A8
60A3	CALL $6A24
60A6	CALL $6ADA
60A9	CALL $6F9E
60AC	CALL $6FD8
60AF	CALL $6FFD
60B2	CALL $70A8
60B5	RET
This entry point is used by the routine at 7162.
60B6	LD HL,($5B35)
60B9	LD D,H
60BA	LD E,L
60BB	ADD HL,HL
60BC	ADD HL,HL
60BD	ADD HL,HL
60BE	ADD HL,HL
60BF	PUSH HL
60C0	ADD HL,HL
60C1	EX (SP),HL
60C2	OR A
60C3	SBC HL,DE
60C5	POP BC
60C6	ADD HL,BC
60C7	ADD HL,HL
60C8	ADD HL,HL
60C9	ADD HL,HL
60CA	ADD HL,DE
60CB	ADD HL,HL
60CC	ADD HL,HL
60CD	ADD HL,DE
60CE	LD DE,$0029
60D1	ADD HL,DE
60D2	LD ($5B35),HL
60D5	RET