Harrier Attack: Routine at 7554

7554: Game Entry Point


7554	CALL $78B0	Call 78B0 three times.
7557	CALL $78B0
755A	CALL $78B0
755D	LD A,$08	A=FLAGS2 set CAPS LOCK on.
755F	LD ($5C6A),A	A=FLAGS2 set CAPS LOCK on.
7562	LD A,$02	CHAN_OPEN (open upper screen channel).
7564	CALL $1601	CHAN_OPEN (open upper screen channel).
7567	LD DE,$753E	DE=753E
756A	LD BC,$0007	BC=Characters to print.
756D	CALL $203C	Call PR_STRING.
7570	LD DE,$7862	DE=TEXT_SKILL_LEVEL
7573	LD BC,$0020	BC=Characters to print.
7576	CALL $203C	Call PR_STRING.
7579	LD HL,$5B00	HL=5B00
757C	LD B,$5A
757E	LD (HL),$00
7580	INC HL
7581	DJNZ $757E
7583	LD A,($5C05)	A=#2 KSTATE call counter.
7586	OR A	If A is zero jump back to 7583.
7587	JR Z,$7583	If A is zero jump back to 7583.
7589	LD A,($5C08)	A=LAST-K (last key pressed).
758C	SUB $31	Subtract 31.
758E	JR C,$7583	If there is carry jump back to 7583.
7590	CP $05	Is the result 05?
7592	JR NC,$7583	If there is no carry jump back to 7583.
7594	INC A	Increment A by one.
7595	LD ($5B27),A	Store A at A.
7598	LD HL,($5C78)	HL=FRAMES as a random number seed.
759B	LD ($5B35),HL
759E	LD HL,$0E08
75A1	LD ($5B20),HL
75A4	LD DE,$5B0A	Copy 0F bytes of data from 7545 to 5B0A.
75A7	LD HL,$7545
75AA	LD BC,$000F
75AD	LDIR
75AF	LD A,($5B27)
75B2	LD B,A
75B3	ADD A,$03
75B5	LD ($5B14),A
75B8	LD ($5B17),A
75BB	SRL A
75BD	LD ($5B0F),A
75C0	LD ($5B12),A
75C3	LD A,($5B27)
75C6	ADD A,A
75C7	LD B,A
75C8	LD A,$19
75CA	SUB B
75CB	LD ($5B2F),A
75CE	CALL $7162
75D1	LD HL,$5C78	HL=FRAMES as a random number seed.
75D4	LD A,(HL)
75D5	ADD A,$08
75D7	CP (HL)
75D8	JR NZ,$75D7
75DA	LD A,($5B00)
75DD	CP $03
75DF	JR NZ,$75CE
75E1	LD A,($5C05)	A=#2 KSTATE call counter.
75E4	OR A
75E5	JR Z,$75E1
75E7	LD A,($5C08)	A=LAST-K (last key pressed).
75EA	CP $37
75EC	JR NZ,$75E1
75EE	XOR A
75EF	LD ($5B00),A
75F2	LD HL,$0E08
75F5	LD C,$2D
75F7	PUSH HL
75F8	CALL $6114
75FB	POP HL
75FC	INC L
75FD	XOR A
75FE	LD C,$2D
7600	CALL $6114
Todo...
7603	CALL $6000	Call 6000.
7606	CALL $72CA	Call 72CA.
7609	LD A,($5B00)	A=5B00
760C	CP $0D
760E	JR Z,$7619
7610	LD A,($5B22)
7613	CP $03
7615	JR C,$7603
7617	JR $763A
7619	LD A,($5B22)
761C	OR A
761D	JR NZ,$7610
761F	CALL $7435
7622	LD A,($5B06)
7625	OR A
7626	JR Z,$763A
7628	CP $03
762A	JR NC,$763A
762C	CALL $70A8
762F	LD HL,$5C78	HL=FRAMES as a random number seed.
7632	LD A,(HL)
7633	ADD A,$08
7635	CP (HL)
7636	JR NZ,$7635
7638	JR $7622
763A	LD HL,$5C78	HL=FRAMES as a random number seed.
763D	LD A,(HL)
763E	ADD A,$32
7640	CP (HL)
7641	JR NZ,$7640
7643	CALL $76C1
7646	JP $7579	Jump back to 7579.