Jetpac: Routine at 76FA

76FA: Routine at 76FA


76FA	SUB (HL)
76FB	LD (HL),A
76FC	RET
76FD	LD (HL),A
76FE	INC D
76FF	LD A,B
7700	LD E,A
7701	LD A,B
7702	LD E,E
7703	LD A,C
7704	DJNZ $777F
7706	DEFB $DD
7707	LD A,B
7708	XOR D
7709	LD A,B
770A	AND D
770B	LD A,D
770C	PUSH DE
770D	LD A,D
770E	EX AF,AF'
770F	LD A,E
7710	LD D,E
7711	LD A,E
7712	LD D,A
7713	LD A,D
7714	INC C
7715	LD A,D
7716	EXX
7717	LD A,C
7718	AND (HL)
7719	LD A,C
771A	NOP
771B	LD E,(HL)
771C	NOP
771D	LD E,(HL)
771E	INC SP
771F	LD E,(HL)
7720	INC SP
7721	LD E,(HL)
7722	SBC A,C
7723	LD E,(HL)
7724	SBC A,C
7725	LD E,(HL)
7726	LD H,(HL)
7727	LD E,(HL)
7728	LD H,(HL)
7729	LD E,(HL)
772A	CALL Z,$FF5E
772D	LD E,(HL)
772E	LD ($655F),A
7731	LD E,A
7732	LD H,L
7733	LD E,A
7734	LD ($FF5F),A
7737	LD E,(HL)
7738	CALL Z,$795E
773B	AND A
773C	JR Z,$7777
773E	DEC C
773F	PUSH BC
7740	PUSH HL
7741	LD A,(DE)
7742	CPL
7743	AND (HL)
7744	LD (HL),A
7745	INC DE
7746	INC L
7747	LD A,L
7748	AND $1F
774A	JR NZ,$7750
774C	LD A,L
774D	SUB $20
774F	LD L,A
7750	DJNZ $7741
7752	POP HL
7753	CALL CLEAR_PIXELS_27
7756	POP BC
7757	EXX
7758	LD A,C
7759	AND A
775A	JR Z,$7774
775C	DEC C
775D	PUSH BC
775E	PUSH HL
775F	LD A,(DE)
7760	OR (HL)
7761	LD (HL),A
7762	INC DE
7763	INC L
7764	LD A,L
7765	AND $1F
7767	JR NZ,$776D
7769	LD A,L
776A	SUB $20
776C	LD L,A
776D	DJNZ $775F
776F	POP HL
7770	CALL CLEAR_PIXELS_27
7773	POP BC
7774	EXX
7775	JR $773A
7777	EXX
7778	LD A,C
7779	AND A
777A	JR NZ,$775C
This entry point is used by the routine at CLEAR_PIXELS.
777C	EXX
This entry point is used by the routine at CLEAR_PIXELS.
777D	LD A,($5DC5)
7780	LD C,A
7781	LD A,($5DC6)
7784	OR C
7785	RET Z
7786	XOR A
7787	LD ($5DC5),A
778A	EXX
778B	LD A,($5DC6)
778E	LD C,A
778F	XOR A
This entry point is used by the routine at CLEAR_PIXELS.
7790	LD ($5DC6),A
7793	EXX
7794	JR $773A