Harrier Attack: Routine at 30036

30036: Game Entry Point


30036	CALL 30896	Call 30036 three times.
30039	CALL 30896
30042	CALL 30896
30045	LD A,8	A=FLAGS2 set CAPS LOCK on.
30047	LD (23658),A	A=FLAGS2 set CAPS LOCK on.
30050	LD A,2	CHAN_OPEN (open upper screen channel).
30052	CALL 5633	CHAN_OPEN (open upper screen channel).
30055	LD DE,30014	DE=30014
30058	LD BC,7	BC=Characters to print.
30061	CALL 8252	Call PR_STRING.
30064	LD DE,30818	DE=TEXT_SKILL_LEVEL
30067	LD BC,32	BC=Characters to print.
30070	CALL 8252	Call PR_STRING.
30073	LD HL,23296	HL=23296
30076	LD B,90
30078	LD (HL),0
30080	INC HL
30081	DJNZ 30078
30083	LD A,(23557)	A=#2 KSTATE call counter.
30086	OR A	If A is zero jump back to 30083.
30087	JR Z,30083	If A is zero jump back to 30083.
30089	LD A,(23560)	A=LAST-K (last key pressed).
30092	SUB 49	Subtract 49.
30094	JR C,30083	If there is carry jump back to 30083.
30096	CP 5	Is the result 5?
30098	JR NC,30083	If there is no carry jump back to 30083.
30100	INC A	Increment A by one.
30101	LD (23335),A	Store A at A.
30104	LD HL,(23672)	HL=FRAMES as a random number seed.
30107	LD (23349),HL
30110	LD HL,3592
30113	LD (23328),HL
30116	LD DE,23306	Copy 15 bytes of data from 30021 to 23306.
30119	LD HL,30021
30122	LD BC,15
30125	LDIR
30127	LD A,(23335)
30130	LD B,A
30131	ADD A,3
30133	LD (23316),A
30136	LD (23319),A
30139	SRL A
30141	LD (23311),A
30144	LD (23314),A
30147	LD A,(23335)
30150	ADD A,A
30151	LD B,A
30152	LD A,25
30154	SUB B
30155	LD (23343),A
30158	CALL 29026
30161	LD HL,23672	HL=FRAMES as a random number seed.
30164	LD A,(HL)
30165	ADD A,8
30167	CP (HL)
30168	JR NZ,30167
30170	LD A,(23296)
30173	CP 3
30175	JR NZ,30158
30177	LD A,(23557)	A=#2 KSTATE call counter.
30180	OR A
30181	JR Z,30177
30183	LD A,(23560)	A=LAST-K (last key pressed).
30186	CP 55
30188	JR NZ,30177
30190	XOR A
30191	LD (23296),A
30194	LD HL,3592
30197	LD C,45
30199	PUSH HL
30200	CALL 24852
30203	POP HL
30204	INC L
30205	XOR A
30206	LD C,45
30208	CALL 24852
Todo...
30211	CALL 24576	Call 24576.
30214	CALL 29386	Call 29386.
30217	LD A,(23296)	A=23296
30220	CP 13
30222	JR Z,30233
30224	LD A,(23330)
30227	CP 3
30229	JR C,30211
30231	JR 30266
30233	LD A,(23330)
30236	OR A
30237	JR NZ,30224
30239	CALL 29749
30242	LD A,(23302)
30245	OR A
30246	JR Z,30266
30248	CP 3
30250	JR NC,30266
30252	CALL 28840
30255	LD HL,23672	HL=FRAMES as a random number seed.
30258	LD A,(HL)
30259	ADD A,8
30261	CP (HL)
30262	JR NZ,30261
30264	JR 30242
30266	LD HL,23672	HL=FRAMES as a random number seed.
30269	LD A,(HL)
30270	ADD A,50
30272	CP (HL)
30273	JR NZ,30272
30275	CALL 30401
30278	JP 30073	Jump back to 30073.