PSSST: Routine at 28401

28401: Routine at 6EF1


28401	CALL StoreEntity
28404	BIT 3,(IX+4)
28408	JR Z,28416
28410	RES 3,(IX+4)
28414	JR 28457
28416	CALL ReadInput
28419	BIT 0,A
28421	JR Z,28481
28423	BIT 1,A
28425	JR Z,28535
28427	LD A,(IX+1)
28430	BIT 0,(IX+4)
28434	JR Z,28471
28436	CP 216
28438	JR NC,28457
28440	CP 36
28442	JR C,28457
28444	CALL ReadInput
28447	BIT 3,A
28449	JP Z,28586
28452	BIT 2,A
28454	JP Z,28605
28457	CALL ReadInput
28460	BIT 4,A
28462	CALL Z,27504
This entry point is used by the routines at 25850, 26524, 26542, 27023, 27288, 27600 and 28090.
28465	CALL 29931
28468	JP ColouriseSprite
28471	CP 24
28473	JR C,28457
28475	CP 204
28477	JR NC,28457
28479	JR 28444
28481	BIT 0,(IX+4)
28485	JR Z,28513
28487	LD A,(IX+1)
28490	SUB 12
28492	LD (IX+1),A
28495	LD A,(IX+9)
28498	ADD A,16
28500	LD (IX+13),A
28503	RES 0,(IX+4)
28507	RES 2,(IX+4)
28511	JR 28530
28513	LD A,(IX+1)
28516	ADD A,2
28518	CP 204
28520	JR NC,28617
28522	LD (IX+1),A
28525	LD A,(IX+9)
28528	ADD A,2
28530	LD (IX+13),A
28533	JR 28427
28535	BIT 0,(IX+4)
28539	JR NZ,28567
28541	LD A,(IX+1)
28544	ADD A,12
28546	LD (IX+1),A
28549	LD A,(IX+9)
28552	SUB 16
28554	LD (IX+13),A
28557	SET 0,(IX+4)
28561	RES 2,(IX+4)
28565	JR 28530
28567	LD A,(IX+1)
28570	SUB 2
28572	CP 36
28574	JR C,28617
28576	LD (IX+1),A
28579	LD A,(IX+9)
28582	SUB 2
28584	JR 28530
28586	LD A,(IX+2)
28589	CP 40
28591	JP C,28457
28594	SUB 2
28596	LD (IX+2),A
28599	LD (IX+14),A
28602	JP 28457
28605	LD A,(IX+2)
28608	ADD A,2
28610	CP 184
28612	JP NC,28457
28615	JR 28596
28617	CALL 28745
28620	LD A,(IX+2)
28623	LD (IX+14),A
28626	BIT 0,E
28628	JP Z,28427
28631	BIT 2,E
28633	JP NZ,28457
28636	LD A,(IX+1)
28639	BIT 1,E
28641	JR Z,28663
28643	ADD A,2
28645	CP 216
28647	JR NC,28679
28649	LD (IX+1),A
28652	LD A,(IX+9)
28655	ADD A,2
28657	LD (IX+13),A
28660	JP 28457
28663	SUB 2
28665	CP 24
28667	JR C,28679
28669	LD (IX+1),A
28672	LD A,(IX+9)
28675	SUB 2
28677	JR 28657
28679	BIT 2,(IX+4)
28683	JP NZ,28457
28686	LD A,(IX+3)
28689	AND 7
28691	OR 8
28693	LD (IX+6),A
28696	LD (HL),A
28697	SET 2,(IX+4)
28701	LD (IX+0),1
28705	LD (IX+3),71
28709	LD A,(IX+9)
28712	BIT 7,A
28714	JR NZ,28731
28716	SUB 2
28718	LD (IX+13),A
28721	LD (IX+12),1
28725	CALL 25820
28728	JP 28457
28731	ADD A,4
28733	JR 28718
28735	LD A,(IX+0)
28738	DEC A
28739	RET NZ
28740	RES 2,(IX+4)
28744	RET
This entry point is used by the routine at 28090.
28745	LD E,0
28747	LD A,(IX+2)
28750	AND 31
28752	SUB 23
28754	JP P,28759
28757	NEG
28759	CP 5
28761	JR NC,28735
28763	LD A,(IX+2)
28766	AND 224
28768	OR 23
28770	LD (IX+2),A
28773	BIT 7,(IX+1)
28777	JR Z,28811
28779	LD E,3
28781	LD A,(IX+2)
28784	RLCA
28785	RLCA
28786	RLCA
28787	AND 7
28789	DEC A
28790	BIT 7,(IX+1)
28794	JR Z,28798
28796	ADD A,5
28798	LD C,A
28799	LD B,0
28801	LD HL,24099
28804	ADD HL,BC
28805	LD A,(HL)
28806	AND A
28807	RET Z
28808	SET 2,E
28810	RET
28811	LD E,1
28813	JR 28781
This entry point is used by the routine at GameOver1UP.
28815	LD HL,(24069)
28818	LD DE,(24072)
28822	LD A,L
28823	LD L,H
28824	LD H,A
28825	LD A,E
28826	LD E,D
28827	LD D,A
28828	AND A
28829	SBC HL,DE
28831	JR C,28845
28833	JR NZ,28876
28835	LD A,(24071)
28838	LD E,A
28839	LD A,(24074)
28842	CP E
28843	JR C,28876
28845	LD HL,24072
28848	PUSH HL
28849	LD DE,24064
28852	LD B,3
28854	LD A,(DE)
28855	CP (HL)
28856	JR C,28866
28858	JR NZ,28864
28860	INC HL
28861	INC DE
28862	DJNZ 28854
28864	POP HL
28865	RET
28866	POP HL
28867	LD DE,24064
28870	LD BC,3
28873	LDIR
28875	RET
28876	LD HL,24069
28879	JR 28848