Jetpac: Routine at 63DA

63DA: Routine at 63DA


63DA	LD HL,$5DCB
63DD	INC (HL)
63DE	CALL $6CE7
63E1	LD A,(IX+$04)
63E4	LD HL,$0000
63E7	BIT 1,A
63E9	JR NZ,$6423
63EB	CALL $6408
63EE	LD A,($5D02)
63F1	SUB $0C
63F3	CP (IX+$02)
63F6	CALL Z,$640E
63F9	LD A,($5DCC)
63FC	AND $40
63FE	JR Z,$6404
6400	INC H
6401	INC H
6402	INC H
6403	INC H
6404	DEC H
6405	DEC H
6406	JR $643D
6408	LD A,($5DCE)
640B	AND $1F
640D	RET NZ
640E	SET 1,(IX+$04)
6412	LD C,A
6413	LD A,($5DCC)
6416	ADD A,C
6417	AND $7F
6419	OR $20
641B	LD (IX+$05),A
641E	LD (IX+$03),$47
6422	RET
6423	DEC (IX+$05)
6426	JR Z,$6481
6428	LD A,$04
642A	BIT 6,(IX+$00)
642E	JR Z,$6432
6430	NEG
6432	LD L,A
6433	LD A,($5D02)
6436	CP (IX+$02)
6439	JR C,$6404
643B	JR $6400
643D	LD A,(IX+$00)
6440	AND $C0
6442	OR $03
6444	LD (IX+$00),A
6447	LD A,(IX+$01)
644A	ADD A,L
644B	LD (IX+$01),A
644E	LD A,(IX+$02)
6451	ADD A,H
6452	LD (IX+$02),A
6455	CALL CLEAR_PIXELS_15
6458	CALL CLEAR_PIXELS_2
645B	LD A,(IX+$02)
645E	CP $28
6460	JR C,$6481
6462	CALL $6E52
6465	BIT 0,C
6467	JR NZ,$6481
6469	CALL CLEAR_PIXELS_80
646C	BIT 2,E
646E	JR NZ,$6481
6470	CALL $6E20
6473	DEC E
6474	JR Z,$648D
6476	LD A,(IX+$00)
6479	AND $C0
647B	OR $07
647D	LD (IX+$00),A
6480	RET
6481	LD BC,$0055
6484	CALL ACTIVE_PLAYER_LIVES_0
6487	CALL $67ED
648A	JP $6894
648D	CALL $6894
6490	LD A,$01
6492	CALL $6834
6495	JP $6875
6498	CALL MOVE_JETMAN_POS
649B	CALL CLEAR_PIXELS_80
649E	BIT 2,E
64A0	JR NZ,$64A8
64A2	INC (IX+$02)
64A5	INC (IX+$02)
64A8	CALL $6E20
64AB	DEC E
64AC	JR NZ,$64C2
64AE	XOR A
64AF	CALL $64E5
64B2	CALL CLEAR_PIXELS_19
64B5	LD (IX+$00),$00
64B9	LD BC,$0250
64BC	CALL ACTIVE_PLAYER_LIVES_0
64BF	JP $6809
64C2	LD A,(IX+$06)
64C5	AND $0F
64C7	LD HL,$64CD
64CA	JP $6369
64CD	RST $10
64CE	LD H,H
64CF	LD SP,HL
64D0	LD H,H
64D1	LD SP,HL
64D2	LD H,H
64D3	DI
64D4	LD H,H
64D5	LD C,$65
64D7	LD (IX+$03),$46
64DB	XOR A
64DC	CALL $64E5
64DF	CALL CLEAR_PIXELS_14
64E2	JP CLEAR_PIXELS_2
64E5	ADD A,(IX+$06)
64E8	LD HL,$67C3
64EB	LD C,A
64EC	LD B,$00
64EE	ADD HL,BC
64EF	LD E,(HL)
64F0	INC HL
64F1	LD D,(HL)
64F2	RET
64F3	LD (IX+$03),$44
64F7	JR $64DB
64F9	LD A,($5DCC)
64FC	AND $1F
64FE	CP $18
6500	JR NC,$6508
6502	LD (IX+$03),$00
6506	JR $64DB
6508	LD (IX+$03),$45
650C	JR $64DB
650E	LD A,($5DCC)
6511	RRCA
6512	RRCA
6513	AND $07
6515	JR NZ,$6518
6517	INC A
6518	OR $40
651A	LD (IX+$03),A
651D	JR $64DB
651F	CALL MOVE_JETMAN_POS
6522	LD A,(IX+$04)
6525	BIT 2,A
6527	JP NZ,$659C
652A	BIT 1,A
652C	JR NZ,$6578
652E	BIT 0,A
6530	JR Z,$654B
6532	CALL $6E20
6535	DEC E
6536	JR Z,$655A
6538	CALL CLEAR_PIXELS_80
653B	BIT 2,E
653D	JR NZ,$6545
653F	INC (IX+$02)	Drop IX+$02 (fuel Y co-ordinate) by two pixels
6542	INC (IX+$02)	Drop IX+$02 (fuel Y co-ordinate) by two pixels
6545	CALL CLEAR_PIXELS_15
6548	JP CLEAR_PIXELS_2
654B	LD A,($5DF0)
654E	RRCA
654F	AND $06
6551	CALL $64E5
6554	CALL CLEAR_PIXELS_18
6557	JP CLEAR_PIXELS_2
655A	SET 1,(IX+$04)
655E	CALL CLEAR_PIXELS_20
6561	LD BC,$0100
6564	CALL ACTIVE_PLAYER_LIVES_0
6567	CALL $6803
656A	LD HL,($5D01)
656D	LD (IX+$01),L
6570	LD (IX+$02),H
6573	CALL MOVE_JETMAN_POS
6576	JR $6545
6578	LD HL,($5D01)
657B	LD (IX+$01),L
657E	LD (IX+$02),H
6581	LD A,($5D31)
6584	SUB (IX+$01)
6587	JP P,$658C
658A	NEG
658C	CP $06
658E	JR NC,$6545
6590	SET 2,(IX+$04)
6594	LD A,($5D31)
6597	LD (IX+$01),A
659A	JR $6545
659C	LD A,(IX+$06)
659F	CP $18
65A1	JR Z,$65CE
65A3	SLA A
65A5	ADD A,(IX+$02)
65A8	CP $B7
65AA	JP C,$653F
65AD	LD A,($5D3C)
65B0	OR $01
65B2	LD ($5D3C),A
65B5	LD A,($5D34)
65B8	INC A
65B9	LD ($5D34),A
65BC	LD A,(IX+$06)
65BF	ADD A,$08
65C1	CALL $6EF9
65C4	CALL CLEAR_PIXELS_20
65C7	LD (IX+$00),$00
65CB	JP $67FD
65CE	LD A,(IX+$02)	A=(IX+$02) (fuel Y co-ordinate)
65D1	CP $B0	Is A=$B0? (has the fuel reached the ship yet?)
65D3	JP C,$653F	If not, jump back to 653F
65D6	LD A,($5D35)	Fuel pod deposited correctly; increase NUM_FUEL_PODS by one
65D9	INC A
65DA	LD ($5D35),A
65DD	JR $65C4	Jump to 65C4
65DF	LD A,($5D00)	If JETMAN_FRAME is &$3F then return...
65E2	AND $3F
65E4	RET Z
65E5	CP $03	Return if JETMAN_FRAME is greater than (or equal to) $03
65E7	RET NC	Return if JETMAN_FRAME is greater than (or equal to) $03
65E8	LD HL,$6038	HL Source address: $6038
65EB	LD DE,$5D40	DE Target address: ITEM_VISIBILITY
65EE	LD BC,$0008	BC=loop counter
65F1	LD A,(DE)	A=(DE)
65F2	AND A
65F3	RET NZ
65F4	LD A,($5DCC)
65F7	AND $7F
65F9	RET NZ
65FA	LDIR	Action! Copy source to target, decrease counter, repeat until zero
65FC	CALL $6612
65FF	LD ($5D41),A
6602	LD A,R
6604	AND $0E
6606	BIT 3,A
6608	JR Z,$660C
660A	AND $08
660C	OR $20
660E	LD ($5D46),A
6611	RET
6612	LD HL,$6620
6615	LD A,($5DCE)
6618	AND $0F
661A	LD C,A
661B	LD B,$00
661D	ADD HL,BC
661E	LD A,(HL)
661F	RET
6620	EX AF,AF'
6621	JR NZ,$664B
6623	JR NC,$665D
6625	LD B,B
6626	LD E,B
6627	LD H,B
6628	LD A,B
6629	ADD A,B
662A	ADC A,B
662B	RET NZ
662C	RET PO
662D	EX AF,AF'
662E	LD E,B
662F	LD H,B
6630	LD A,($5D00)
6633	AND $3F
6635	RET Z
6636	CP $03
6638	RET NC
6639	LD HL,$6030	HL=$6030
663C	LD DE,$5D38	DE=5D38
663F	LD BC,$0008	BC=$0008
6642	LD A,(DE)	A=(DE)
6643	AND A
6644	RET NZ
6645	LD A,($5D35)	Check if NUM_FUEL_PODS is $06? Is the ship full of fuel?
6648	CP $06	Check if NUM_FUEL_PODS is $06? Is the ship full of fuel?
664A	RET NC
664B	LD A,($5DCC)
664E	CPL
664F	AND $0F
6651	RET NZ
6652	LDIR
6654	CALL $6612
6657	LD ($5D39),A
665A	RET	Return
665B	LD HL,$5D38	HL=5D38
665E	LD B,$0C	B=$0C
This entry point is used by the routine at LEVEL_INIT.
6660	LD DE,$0008	DE=$0008
6663	LD (HL),$00	Reset the memory held at location HL (set to $00)
6665	ADD HL,DE	Increase HL by $08
6666	DJNZ $6663	Decrease B by one, and loop back to 6663 until zero
6668	RET	Return
6669	LD A,(IX+$02)
666C	ADD A,$15
666E	LD (IX+$02),A
6671	LD HL,$5DC1
6674	LD A,(HL)
6675	ADD A,$15
6677	LD (HL),A
6678	LD A,(IX+$02)
667B	CP $B8
667D	JR Z,$66B8
667F	JR NC,$66A3
6681	LD A,($5DCC)
6684	AND $04
6686	JR NZ,$66B3
6688	LD DE,$7FAF
668B	PUSH DE
668C	LD DE,$7F8C
668F	CALL CLEAR_PIXELS_19
6692	LD DE,$7FAF
6695	CALL CLEAR_PIXELS_19
6698	POP DE
6699	CALL CLEAR_PIXELS_18
669C	LD (IX+$03),$42
66A0	CALL CLEAR_PIXELS_2
66A3	LD A,(IX+$02)
66A6	SUB $15
66A8	LD (IX+$02),A
66AB	LD HL,$5DC1
66AE	LD A,(HL)
66AF	SUB $15
66B1	LD (HL),A
66B2	RET
66B3	LD DE,$7F8C
66B6	JR $668B
66B8	LD DE,$7F8C
66BB	CALL CLEAR_PIXELS_19
66BE	LD DE,$7FAF
66C1	CALL CLEAR_PIXELS_19
66C4	JP $66A3
66C7	CALL MOVE_JETMAN_POS
66CA	DEC (IX+$02)
66CD	CALL $67ED
66D0	CALL $6669
66D3	LD A,(IX+$02)
66D6	CP $28
66D8	JR NC,$6733
66DA	LD HL,$5DF0
66DD	INC (HL)
66DE	CALL $665B
66E1	INC (IX+$00)
66E4	LD (IX+$05),$00
66E8	JP LEVEL_INIT_1
66EB	CALL MOVE_JETMAN_POS
66EE	INC (IX+$02)
66F1	CALL $67ED
66F4	CALL $6669
66F7	LD A,(IX+$02)
66FA	CP $B7
66FC	JR C,$6733
66FE	LD (IX+$00),$09
6702	CALL LEVEL_INIT_16
6705	JR $6733
6707	CALL MOVE_JETMAN_POS
670A	CALL $6E20
670D	DEC E
670E	JR NZ,$6733
6710	LD A,(IX+$05)
6713	CP $06
6715	JR C,$6733
6717	INC (IX+$00)
671A	PUSH IX	Store IX on the stack
671C	LD IX,$5D00	IX=JETMAN_FRAME
6720	CALL MOVE_JETMAN_POS
6723	CALL CLEAR_PIXELS_20
6726	LD (IX+$00),$00
672A	POP IX
672C	LD HL,$5DF1
672F	INC (HL)
6730	JP $70A4
6733	LD L,(IX+$01)
6736	LD H,(IX+$02)
6739	PUSH HL
673A	LD A,(IX+$04)
673D	LD B,A
673E	LD C,$00
6740	PUSH BC
6741	LD A,($5DF0)
6744	RRCA
6745	RRCA
6746	AND $03
6748	OR C
6749	SLA A
674B	CALL $64E8
674E	CALL CLEAR_PIXELS_14
6751	POP BC
6752	LD A,(IX+$02)
6755	SUB $10
6757	LD (IX+$02),A
675A	LD A,($5DC1)
675D	SUB $10
675F	LD ($5DC1),A
6762	LD A,C
6763	ADD A,$04
6765	LD C,A
6766	DJNZ $6740	Decrease B by one, and loop back to 6740 until zero
6768	LD A,$02
676A	LD ($5DC4),A
676D	XOR A
676E	LD ($5DC3),A
6771	POP HL
6772	LD (IX+$02),H
6775	LD ($5DCF),HL
6778	LD B,(IX+$04)
677B	SLA B
677D	LD A,B
677E	CP $06
6780	JR C,$67A9
6782	LD A,(IX+$05)
6785	AND A
6786	JR Z,$67A9
6788	CP $06
678A	PUSH AF
678B	LD A,($5DCC)
678E	RRCA
678F	RRCA
6790	AND $04
6792	OR $43
6794	LD C,A
6795	POP AF
6796	LD A,C
6797	JR NC,$67AB
6799	LD B,(IX+$05)
679C	LD (IX+$03),$43
67A0	CALL $67B1
67A3	LD A,$06
67A5	SUB (IX+$05)
67A8	LD B,A
67A9	LD A,$47
67AB	LD (IX+$03),A
67AE	JP $67B1
67B1	PUSH BC
67B2	CALL CLEAR_PIXELS_2
67B5	POP BC
67B6	LD HL,($5DCF)
67B9	LD A,H
67BA	SUB $08
67BC	LD H,A
67BD	LD ($5DCF),HL
67C0	DJNZ $67B1	Decrease B by one, and loop back to 67B1 until zero
67C2	RET
67C3	ADC A,$7C
67C5	SCF
67C6	LD A,L
67C7	LD H,L
67C8	LD A,H
67C9	AND B
67CA	LD A,L
67CB	POP AF
67CC	LD A,H
67CD	LD E,D
67CE	LD A,L
67CF	ADC A,B
67D0	LD A,H
67D1	JP $147D
67D4	LD A,L
67D5	LD A,L
67D6	LD A,L
67D7	XOR E
67D8	LD A,H
67D9	AND $7D
67DB	INC E
67DC	LD A,(HL)
67DD	INC E
67DE	LD A,(HL)
67DF	INC E
67E0	LD A,(HL)
67E1	INC E
67E2	LD A,(HL)
67E3	ADD HL,BC
67E4	LD A,(HL)
67E5	DEC (HL)
67E6	LD A,(HL)
67E7	LD C,(HL)
67E8	LD A,(HL)
67E9	LD L,E
67EA	LD A,(HL)
67EB	ADD A,B
67EC	LD A,(HL)
67ED	LD A,(IX+$02)
67F0	RRCA
67F1	RRCA
67F2	RRCA
67F3	RRCA
67F4	AND $7F
67F6	OR $40
67F8	LD D,A
67F9	LD C,$10
67FB	JR $6812
67FD	LD D,$20
67FF	LD C,$50
6801	JR $6812
6803	LD D,$50
6805	LD C,$28
6807	JR $6812
This entry point is used by the routine at CLEAR_PIXELS.
6809	LD D,$30
680B	LD C,$40
680D	LD A,$10
680F	OUT ($FE),A
6811	LD B,D
6812	DJNZ $6812	Decrease B by one, and loop back to 6812 until zero
6814	XOR A
6815	OUT ($FE),A
6817	LD B,D
6818	DJNZ $6818	Decrease B by one, and loop back to 6818 until zero
681A	DEC C
681B	JR NZ,$680D
681D	RET
681E	LD C,$08
6820	LD B,C
6821	DJNZ $6821	Decrease B by one, and loop back to 6821 until zero
6823	LD A,$10
6825	OUT ($FE),A
6827	LD B,C
6828	DJNZ $6828	Decrease B by one, and loop back to 6828 until zero
682A	XOR A
682B	OUT ($FE),A
682D	INC C
682E	LD A,C
682F	CP $38
6831	JR NZ,$6820
6833	RET
6834	LD C,A
6835	SLA C
6837	LD B,$00
6839	LD DE,$5D28
683C	LD HL,$6847
683F	ADD HL,BC
6840	LD A,(HL)
6841	LD (DE),A
6842	INC HL
6843	INC DE
6844	LD A,(HL)
6845	LD (DE),A
6846	RET
6847	INC C
6848	INC B
6849	DEC C
684A	INC B
684B	DEC (IX+$01)
684E	JR Z,$6870
6850	LD C,$10
6852	JR $685F
6854	DEC (IX+$01)
6857	JR Z,$6870
6859	LD A,(IX+$01)
685C	ADD A,$18
685E	LD C,A
685F	LD A,$10
6861	OUT ($FE),A
6863	LD B,C
6864	DJNZ $6864	Decrease B by one, and loop back to 6864 until zero
6866	XOR A
6867	OUT ($FE),A
6869	LD B,C
686A	DJNZ $686A	Decrease B by one, and loop back to 686A until zero
686C	DEC C
686D	JR NZ,$685F
686F	RET
6870	LD (IX+$00),$00
6874	RET
6875	PUSH IX
6877	LD IX,$5D80
687B	LD HL,$5D00
687E	LD C,(HL)
687F	INC HL
6880	LD A,(HL)
6881	LD (IX+$01),A
6884	INC HL
6885	LD A,(HL)
6886	LD (IX+$02),A
6889	LD A,C
688A	CALL $68AB
688D	POP IX
688F	XOR A
6890	LD ($5D00),A
6893	RET
This entry point is used by the routine at CLEAR_PIXELS.
6894	LD A,(IX+$00)
6897	AND $C0
6899	OR $03
689B	LD (IX+$05),$00
689F	LD (IX+$06),A
68A2	LD (IX+$00),$08
68A6	LD (IX+$04),$00
68AA	RET
68AB	LD (IX+$05),$01
68AF	JR $689F
68B1	LD HL,$5DCB
68B4	INC (HL)
68B5	LD C,(IX+$04)
68B8	LD B,(IX+$05)
68BB	LD A,($5DCC)
68BE	AND B
68BF	JR NZ,$68C4
68C1	INC (IX+$04)
68C4	LD A,C
68C5	SLA C
68C7	LD B,$00
68C9	LD HL,$690F
68CC	ADD HL,BC
68CD	LD E,(HL)
68CE	INC HL
68CF	LD D,(HL)
68D0	LD L,(IX+$01)
68D3	LD H,(IX+$02)
68D6	CP $06
68D8	JR NC,$68EE
68DA	CP $03
68DC	JR NC,$6909
68DE	CALL CLEAR_PIXELS_18
68E1	LD A,($5DCE)
68E4	AND $07
68E6	OR $42
68E8	LD (IX+$03),A
68EB	JP CLEAR_PIXELS_2
68EE	LD A,(IX+$06)
68F1	LD (IX+$00),A
68F4	CALL MOVE_JETMAN_POS
68F7	CALL CLEAR_PIXELS_20
68FA	LD (IX+$00),$00
68FE	LD A,(IX+$06)
6901	AND $3F
6903	CP $03
6905	JP C,LEVEL_INIT_4
6908	RET
6909	CALL CLEAR_PIXELS_10
690C	JP CLEAR_PIXELS_21
690F	LD ($FF7C),A
6912	LD A,E
6913	CALL Z,$327B
6916	LD A,H
6917	RST $38
6918	LD A,E
6919	CALL Z,$3A7B
691C	PUSH DE
691D	LD E,L
691E	AND A
691F	RET NZ
6920	LD HL,$00C0	HL=$00C0
6923	DEC HL	Decrease HL by one
6924	LD A,L
6925	OR H
6926	JR NZ,$6923
6928	RET	Return
This entry point is used by the routine at LEVEL_INIT.
6929	LD HL,$6945	HL=6945
692C	LD A,($5DF0)	A=CURRENT_LEVEL
692F	RLCA
6930	RLCA
6931	AND $1C
6933	LD E,A
6934	LD D,$00
6936	ADD HL,DE
6937	PUSH HL
6938	LD DE,$5E00
693B	CALL $6F26
693E	POP HL
693F	LD DE,$5E66
6942	JP $6F4D
6945	SBC A,(HL)
6946	LD A,E
6947	OR L
6948	LD A,E
6949	SBC A,E
694A	LD A,(HL)
694B	CP B
694C	LD A,(HL)
694D	PUSH AF
694E	LD A,(HL)
694F	LD D,$7F
6951	PUSH DE
6952	LD A,(HL)
6953	PUSH DE
6954	LD A,(HL)
6955	CALL PO,$E47E
6958	LD A,(HL)
6959	INC SP
695A	LD A,A
695B	INC SP
695C	LD A,A
695D	LD D,D
695E	LD A,A
695F	LD D,D
6960	LD A,A
6961	LD L,A
6962	LD A,A
6963	LD L,A
6964	LD A,A
This entry point is used by the routine at 630F.
6965	DI
6966	LD A,($5C78)
6969	LD ($5DD4),A
696C	LD A,$01
696E	LD ($5DD5),A
6971	PUSH IX
6973	LD HL,$5D30
6976	LD ($69B5),HL
6979	LD A,$C3
697B	LD ($69D3),A
697E	LD HL,$699D
6981	LD ($69D4),HL
6984	LD IX,$5D00
6988	JP $6351
This entry point is used by the routine at 630F.
698B	LD HL,$5D88	HL=5D88
698E	LD ($69B5),HL	Push HL to $69B5
6991	LD A,$3A	A=$3A
6993	LD ($69D3),A	Push A to 69D3
6996	LD HL,$0244	HL=$0244
6999	LD ($69D4),HL	Push HL to $69D4
699C	RET	Return
699D	CALL $698B
69A0	POP IX
69A2	XOR A
69A3	LD ($5DD5),A
69A6	EI
69A7	RET
69A8	LD HL,$5DCE
69AB	INC (HL)
69AC	LD DE,$0008
69AF	ADD IX,DE
69B1	PUSH IX
69B3	POP HL
69B4	LD BC,$5D88
69B7	AND A
69B8	SBC HL,BC
69BA	JP C,$6351
69BD	LD A,$FE
69BF	OUT ($FD),A
69C1	IN A,($FE)
69C3	BIT 0,A
69C5	JR Z,$69BD
69C7	LD HL,($5DCC)
69CA	INC HL
69CB	LD ($5DCC),HL
69CE	LD H,$00
69D0	LD A,R
69D2	LD C,A
69D3	LD A,($5DCE)
69D6	ADD A,(HL)
69D7	ADD A,C
69D8	LD ($5DCE),A
69DB	EX AF,AF'
69DC	LD A,($5DCB)
69DF	CP $03
69E1	JR C,$69EF
69E3	EX AF,AF'
69E4	AND $1F
69E6	JR NZ,$6A10
69E8	LD A,($5DCB)
69EB	CP $06
69ED	JR NC,$6A10
69EF	LD A,($5DD7)
69F2	AND A
69F3	JR NZ,$6A10
69F5	LD A,($5D00)
69F8	AND $3F
69FA	DEC A
69FB	JR Z,$6A00
69FD	DEC A
69FE	JR NZ,$6A10
6A00	LD HL,$5D50	HL=5D50
6A03	LD B,$06	B=$06
6A05	LD DE,$0008	DE=$0008
6A08	LD A,(HL)	A=(HL)
6A09	AND A
6A0A	JP Z,$6A19	If zero jump back to 6A19
6A0D	ADD HL,DE	Add DE to HL
6A0E	DJNZ $6A08	Decrease B by one, and loop back to 6A08 until zero
6A10	CALL $6630
6A13	CALL $65DF
6A16	JP $6345	Jump to 6345
6A19	PUSH HL
6A1A	EX DE,HL
6A1B	LD HL,$6DCB
6A1E	LD BC,$0008
6A21	LDIR
6A23	POP IX
6A25	LD A,($5DCC)
6A28	LD E,A
6A29	AND $40
6A2B	LD (IX+$04),A
6A2E	LD (IX+$00),A
6A31	LD A,E
6A32	AND $7F
6A34	ADD A,$28
6A36	LD (IX+$02),A
6A39	PUSH IX
6A3B	POP BC
6A3C	LD A,C
6A3D	RRA
6A3E	RRA
6A3F	RRA
6A40	AND $03
6A42	INC A
6A43	INC A
6A44	LD (IX+$03),A
6A47	AND $01
6A49	LD (IX+$06),A
6A4C	LD HL,$6A64
6A4F	LD A,($5DF0)
6A52	AND $07
6A54	LD E,A
6A55	LD D,$00
6A57	ADD HL,DE
6A58	LD A,(IX+$00)
6A5B	AND $C0
6A5D	OR (HL)
6A5E	LD (IX+$00),A
6A61	JP $6A10
6A64	INC BC
6A65	LD DE,$0706
6A68	RRCA
6A69	DEC B
6A6A	INC BC
6A6B	RRCA
6A6C	LD HL,$5DCB
6A6F	INC (HL)
6A70	CALL $6CE7
6A73	CALL $6E52
6A76	DEC C
6A77	JP Z,$6AE6
6A7A	CALL $6E20
6A7D	DEC E
6A7E	JP Z,$648D
6A81	XOR A
6A82	LD ($5DC9),A
6A85	CALL CLEAR_PIXELS_80
6A88	BIT 2,E
6A8A	JR Z,$6AA1
6A8C	BIT 7,E
6A8E	JR NZ,$6ACA
6A90	BIT 4,E
6A92	JR NZ,$6AD0
6A94	LD A,E
6A95	AND $40
6A97	LD E,A
6A98	LD A,(IX+$04)
6A9B	AND $BF
6A9D	OR E
6A9E	LD (IX+$04),A
6AA1	BIT 6,(IX+$04)
6AA5	LD A,(IX+$01)
6AA8	JR Z,$6AD6
6AAA	ADD A,$02
6AAC	LD (IX+$01),A
6AAF	BIT 7,(IX+$04)
6AB3	LD A,(IX+$02)
6AB6	JR Z,$6ADA
6AB8	ADD A,$02
6ABA	LD (IX+$02),A
6ABD	LD A,($5DC9)
6AC0	AND A
6AC1	JP NZ,$6D7A
6AC4	INC A
6AC5	LD ($5DC9),A
6AC8	JR $6A85
6ACA	RES 7,(IX+$04)
6ACE	JR $6AA1
6AD0	SET 7,(IX+$04)
6AD4	JR $6AA1
6AD6	SUB $02
6AD8	JR $6AAC
6ADA	SUB $02
6ADC	CP $24
6ADE	JR NC,$6ABA
6AE0	SET 7,(IX+$04)
6AE4	JR $6ABA
6AE6	LD BC,$0080
6AE9	CALL ACTIVE_PLAYER_LIVES_0
6AEC	JP $6C28
6AEF	LD HL,$5DCB
6AF2	INC (HL)
6AF3	CALL $6CE7
6AF6	CALL $6E52
6AF9	DEC C
6AFA	JP Z,$6C22
6AFD	CALL $6E20
6B00	DEC E
6B01	JP Z,$648D
6B04	XOR A
6B05	LD ($5DC9),A
6B08	CALL CLEAR_PIXELS_80
6B0B	BIT 2,E
6B0D	JR Z,$6B28
6B0F	BIT 7,E
6B11	JP NZ,$6C04
6B14	BIT 4,E
6B16	JP NZ,$6C0B
6B19	LD A,E
6B1A	AND $40
6B1C	XOR $40
6B1E	LD E,A
6B1F	LD A,(IX+$04)
6B22	AND $BF
6B24	OR E
6B25	LD (IX+$04),A
6B28	LD A,(IX+$05)
6B2B	LD B,A
6B2C	AND $0F
6B2E	LD C,A
6B2F	LD A,B
6B30	AND $F0
6B32	LD B,A
6B33	LD A,($5D01)
6B36	SUB (IX+$01)
6B39	JP P,$6BAB
6B3C	BIT 6,(IX+$04)
6B40	JP Z,$6BCD
6B43	LD A,C
6B44	CP $0F
6B46	JR NC,$6B49
6B48	INC A
6B49	LD C,A
6B4A	LD H,(IX+$01)
6B4D	CALL $6C12
6B50	AND A
6B51	SBC HL,DE
6B53	LD (IX+$01),H
6B56	LD A,L
6B57	AND $F0
6B59	OR C
6B5A	LD (IX+$05),A
6B5D	LD A,(IX+$06)
6B60	LD B,A
6B61	AND $0F
6B63	LD C,A
6B64	LD A,B
6B65	AND $F0
6B67	LD B,A
6B68	LD A,($5D02)
6B6B	SUB (IX+$02)
6B6E	JP P,$6BD9
6B71	BIT 7,(IX+$04)
6B75	JP Z,$6BFA
6B78	LD A,C
6B79	DEC A
6B7A	JR NZ,$6BE5
6B7C	RES 7,(IX+$04)
6B80	LD C,A
6B81	LD H,(IX+$02)
6B84	CALL $6C12
6B87	AND A
6B88	SBC HL,DE
6B8A	LD A,H
6B8B	CP $28
6B8D	JR NC,$6B93
6B8F	SET 7,(IX+$04)
6B93	LD (IX+$02),A
6B96	LD A,L
6B97	AND $F0
6B99	OR C
6B9A	LD (IX+$06),A
6B9D	LD A,($5DC9)
6BA0	AND A
6BA1	JP NZ,$6D7A
6BA4	INC A
6BA5	LD ($5DC9),A
6BA8	JP $6B08
6BAB	BIT 6,(IX+$04)
6BAF	JR Z,$6BC5
6BB1	LD A,C
6BB2	DEC A
6BB3	JP NZ,$6B49
6BB6	RES 6,(IX+$04)
6BBA	LD C,A
6BBB	LD H,(IX+$01)
6BBE	CALL $6C12
6BC1	ADD HL,DE
6BC2	JP $6B53
6BC5	LD A,C
6BC6	CP $0F
6BC8	JR NC,$6BBA
6BCA	INC A
6BCB	JR $6BBA
6BCD	LD A,C
6BCE	DEC A
6BCF	JP NZ,$6BBA
6BD2	SET 6,(IX+$04)
6BD6	JP $6B49
6BD9	BIT 7,(IX+$04)
6BDD	JR Z,$6BF0
6BDF	LD A,C
6BE0	CP $0F
6BE2	JR NC,$6BE5
6BE4	INC A
6BE5	LD C,A
6BE6	LD H,(IX+$02)
6BE9	CALL $6C12
6BEC	ADD HL,DE
6BED	JP $6B8A
6BF0	LD A,C
6BF1	DEC A
6BF2	JR NZ,$6B80
6BF4	SET 7,(IX+$04)
6BF8	JR $6BE5
6BFA	LD A,C
6BFB	CP $0F
6BFD	JP NC,$6B80
6C00	INC A
6C01	JP $6B80
6C04	RES 7,(IX+$04)
6C08	JP $6B28
6C0B	SET 7,(IX+$04)
6C0F	JP $6B28
6C12	LD L,B
6C13	LD A,C
6C14	RLA
6C15	RLA
6C16	RLA
6C17	RLA
6C18	AND $F0
6C1A	LD E,A
6C1B	LD D,$00
6C1D	SLA E
6C1F	RL D
6C21	RET
6C22	LD BC,$0050
6C25	CALL ACTIVE_PLAYER_LIVES_0
6C28	CALL $6894
6C2B	XOR A
6C2C	JP $6834
6C2F	LD HL,$5DCB
6C32	INC (HL)
6C33	CALL $6CE7
6C36	XOR A
6C37	LD ($5DC9),A
6C3A	CALL $6E52
6C3D	DEC C
6C3E	LD BC,$0040
6C41	JP Z,$6D93
6C44	CALL $6E20
6C47	DEC E
6C48	JP Z,$648D
6C4B	CALL CLEAR_PIXELS_80
6C4E	BIT 2,E
6C50	JR Z,$6C67
6C52	BIT 7,E
6C54	JR NZ,$6CCB
6C56	BIT 4,E
6C58	JR NZ,$6CD1
6C5A	LD A,E
6C5B	AND $40
6C5D	LD E,A
6C5E	LD A,(IX+$04)
6C61	AND $BF
6C63	OR E
6C64	LD (IX+$04),A
6C67	BIT 0,(IX+$04)
6C6B	JR NZ,$6C92
6C6D	LD A,($5DCE)
6C70	LD E,A
6C71	AND $0F
6C73	JR NZ,$6C92
6C75	SET 0,(IX+$04)
6C79	LD A,($5DCC)
6C7C	AND $1F
6C7E	ADD A,$10
6C80	LD (IX+$06),A
6C83	LD A,E
6C84	AND $80
6C86	LD E,A
6C87	LD A,(IX+$04)
6C8A	AND $7F
6C8C	OR E
6C8D	LD (IX+$04),A
6C90	JR $6C4B
6C92	BIT 0,(IX+$04)
6C96	JR Z,$6CAF
6C98	LD A,(IX+$02)
6C9B	BIT 7,(IX+$04)
6C9F	JR Z,$6CD7
6CA1	ADD A,$02
6CA3	LD (IX+$02),A
6CA6	DEC (IX+$06)
6CA9	JR NZ,$6CAF
6CAB	RES 0,(IX+$04)
6CAF	LD A,(IX+$01)
6CB2	BIT 6,(IX+$04)
6CB6	JR Z,$6CE3
6CB8	ADD A,$02
6CBA	LD (IX+$01),A
6CBD	LD A,($5DC9)
6CC0	AND A
6CC1	JP NZ,$6D7A
6CC4	INC A
6CC5	LD ($5DC9),A
6CC8	JP $6C4B
6CCB	RES 7,(IX+$04)
6CCF	JR $6C67
6CD1	SET 7,(IX+$04)
6CD5	JR $6C67
6CD7	SUB $02
6CD9	CP $28
6CDB	JR NC,$6CA3
6CDD	SET 7,(IX+$04)
6CE1	JR $6CA3
6CE3	SUB $02
6CE5	JR $6CBA
6CE7	CALL MOVE_JETMAN_POS
6CEA	LD A,(IX+$00)
6CED	AND $C0
6CEF	OR $03
6CF1	LD ($5DC2),A
6CF4	RET
6CF5	CALL $6CE7
6CF8	LD HL,$5DCB
6CFB	INC (HL)
6CFC	CALL $6E52
6CFF	DEC C
6D00	JP Z,$6D90
6D03	CALL $6E20
6D06	DEC E
6D07	JP Z,$648D
6D0A	XOR A
6D0B	LD ($5DC9),A
6D0E	CALL CLEAR_PIXELS_80
6D11	BIT 2,E
6D13	JR Z,$6D2E
6D15	BIT 7,E
6D17	JP NZ,$6D9E
6D1A	BIT 4,E
6D1C	JP NZ,$6DAD
6D1F	LD A,E
6D20	AND $40
6D22	XOR $40
6D24	LD E,A
6D25	LD A,(IX+$04)
6D28	AND $BF
6D2A	OR E
6D2B	LD (IX+$04),A
6D2E	BIT 6,(IX+$04)
6D32	LD A,(IX+$01)
6D35	JP NZ,$6DB4
6D38	ADD A,$02
6D3A	LD (IX+$01),A
6D3D	LD H,$00
6D3F	LD L,(IX+$06)
6D42	ADD HL,HL
6D43	LD D,(IX+$02)
6D46	LD E,(IX+$05)
6D49	BIT 7,(IX+$04)
6D4D	JR Z,$6DC4
6D4F	ADD HL,DE
6D50	LD (IX+$05),L
6D53	LD (IX+$02),H
6D56	LD A,H
6D57	CP $28
6D59	JR NC,$6D5F
6D5B	SET 7,(IX+$04)
6D5F	BIT 7,(IX+$04)
6D63	JR Z,$6DB9
6D65	INC (IX+$06)
6D68	JR NZ,$6D6E
6D6A	LD (IX+$06),$FF
6D6E	LD A,($5DC9)
6D71	AND A
6D72	JR NZ,$6D7A
6D74	INC A
6D75	LD ($5DC9),A
6D78	JR $6D0E
6D7A	LD A,(IX+$00)
6D7D	PUSH AF
6D7E	AND $C0
6D80	OR $03
6D82	LD (IX+$00),A
6D85	CALL CLEAR_PIXELS_15
6D88	CALL CLEAR_PIXELS_2
6D8B	POP AF
6D8C	LD (IX+$00),A
6D8F	RET
6D90	LD BC,$0060
6D93	CALL ACTIVE_PLAYER_LIVES_0
6D96	CALL $6894
6D99	LD A,$01
6D9B	JP $6834
6D9E	RES 7,(IX+$04)
6DA2	LD A,($5DCE)
6DA5	ADD A,$08
6DA7	LD (IX+$06),A
6DAA	JP $6D2E
6DAD	SET 7,(IX+$04)
6DB1	JP $6D2E
6DB4	SUB $02
6DB6	JP $6D3A
6DB9	DEC (IX+$06)
6DBC	JR NZ,$6D6E
6DBE	SET 7,(IX+$04)
6DC2	JR $6D6E
6DC4	AND A
6DC5	EX DE,HL
6DC6	SBC HL,DE
6DC8	JP $6D50
6DCB	INC BC
6DCC	NOP
6DCD	NOP
6DCE	LD B,D
6DCF	ADD A,B
6DD0	INC B
6DD1	NOP
6DD2	INC E
6DD3	CALL MOVE_JETMAN_POS
6DD6	LD HL,$5DCB	HL=$5DCB
6DD9	INC (HL)
6DDA	LD A,(IX+$01)
6DDD	BIT 6,(IX+$04)
6DE1	JR NZ,$6E1B
6DE3	ADD A,(IX+$05)
6DE6	LD (IX+$01),A
6DE9	LD A,(IX+$02)
6DEC	ADD A,(IX+$06)
6DEF	LD (IX+$02),A
6DF2	CALL CLEAR_PIXELS_15
6DF5	CALL CLEAR_PIXELS_2
6DF8	CALL CLEAR_PIXELS_80
6DFB	BIT 2,E
6DFD	JR NZ,$6E14
6DFF	CALL $6E52
6E02	LD A,C
6E03	AND A
6E04	JR NZ,$6E0E
6E06	CALL $6E20
6E09	DEC E
6E0A	JP Z,$648D
6E0D	RET
6E0E	LD BC,$0025
6E11	CALL ACTIVE_PLAYER_LIVES_0
6E14	CALL $6894
6E17	XOR A
6E18	JP $6834
6E1B	SUB (IX+$05)
6E1E	JR $6DE6
6E20	LD HL,$5D00
6E23	LD E,$00
6E25	LD A,(HL)
6E26	AND $3F
6E28	DEC A
6E29	JR Z,$6E2D
6E2B	DEC A
6E2C	RET NZ
6E2D	INC HL
6E2E	LD A,(HL)
6E2F	SUB (IX+$01)
6E32	JP P,$6E37
6E35	NEG
6E37	CP $0C
6E39	RET NC
6E3A	INC HL
6E3B	LD A,(HL)
6E3C	SUB (IX+$02)
6E3F	JP P,$6E4B
6E42	NEG
6E44	LD D,(IX+$07)
6E47	ADD A,$0E
6E49	JR $6E4D
6E4B	LD D,$15
6E4D	CP D
6E4E	RET NC
6E4F	LD E,$01
6E51	RET
6E52	LD DE,$0008
6E55	LD HL,$5D08
6E58	LD B,$04
6E5A	PUSH HL
6E5B	LD A,(HL)
6E5C	AND A
6E5D	JR Z,$6E96
6E5F	INC HL
6E60	INC HL
6E61	INC HL
6E62	LD A,(HL)
6E63	DEC HL
6E64	BIT 2,A
6E66	JR Z,$6E96
6E68	AND $F8
6E6A	SUB (IX+$01)
6E6D	JP P,$6E76
6E70	NEG
6E72	LD C,$08
6E74	JR $6E78
6E76	LD C,$20
6E78	CP C
6E79	JR NC,$6E96
6E7B	DEC HL
6E7C	LD A,(HL)
6E7D	SUB (IX+$02)
6E80	NEG
6E82	JP M,$6E96
6E85	ADD A,$0C
6E87	CP (IX+$07)
6E8A	JP NC,$6E96
6E8D	LD C,$01
6E8F	INC HL
6E90	LD A,(HL)
6E91	AND $F8
6E93	LD (HL),A
6E94	POP HL
6E95	RET
6E96	POP HL
6E97	ADD HL,DE
6E98	DJNZ $6E5A	Decrease B by one, and loop back to 6E5A until zero
6E9A	LD C,$00
6E9C	RET
6E9D	LD A,B
6E9E	EX AF,AF'
6E9F	LD E,$00
6EA1	LD C,(HL)
6EA2	INC HL
6EA3	LD D,(HL)
6EA4	INC HL
6EA5	LD A,B
6EA6	AND A
6EA7	RET Z
6EA8	SRL C
6EAA	RR D
6EAC	RR E
6EAE	DJNZ $6EA8	Decrease B by one, and loop back to 6EA8 until zero
6EB0	EX AF,AF'
6EB1	LD B,A
6EB2	RET
6EB3	PUSH BC
6EB4	LD B,$08
6EB6	RRCA
6EB7	RL C
6EB9	DJNZ $6EB6	Decrease B by one, and loop back to 6EB6 until zero
6EBB	LD A,C
6EBC	POP BC
6EBD	RET
6EBE	LD A,B
6EBF	EX AF,AF'
6EC0	LD C,$00
6EC2	LD A,(HL)
6EC3	CALL $6EB3
6EC6	LD E,A
6EC7	INC HL
6EC8	LD A,(HL)
6EC9	CALL $6EB3
6ECC	LD D,A
6ECD	INC HL
6ECE	LD A,B
6ECF	AND A
6ED0	RET Z
6ED1	SLA E
6ED3	RL D
6ED5	RL C
6ED7	DJNZ $6ED1	Decrease B by one, and loop back to 6ED1 until zero
6ED9	EX AF,AF'
6EDA	LD B,A
6EDB	RET
6EDC	EXX
6EDD	LD A,($5DD2)
6EE0	AND A
6EE1	JR Z,$6EF4
6EE3	CALL $6EBE
6EE6	PUSH DE
6EE7	PUSH BC
6EE8	EXX
6EE9	POP DE
6EEA	LD (HL),E
6EEB	INC HL
6EEC	POP DE
6EED	LD (HL),D
6EEE	INC HL
6EEF	LD (HL),E
6EF0	INC HL
6EF1	DJNZ $6EDC	Decrease B by one, and loop back to 6EDC until zero
6EF3	RET
6EF4	CALL $6E9D
6EF7	JR $6EE6
This entry point is used by the routine at LEVEL_INIT.
6EF9	LD C,A
6EFA	LD A,($5DF0)	A=CURRENT_LEVEL
6EFD	RRCA
6EFE	AND $06
6F00	OR C
6F01	LD C,A
6F02	LD B,$00
6F04	LD HL,$67C3
6F07	ADD HL,BC
6F08	LD DE,$5ECC
6F0B	LD A,$02
6F0D	LD ($5DD3),A
6F10	XOR A
6F11	LD ($5DD2),A
6F14	LD C,$04
6F16	XOR A
6F17	PUSH BC
6F18	LD B,A
6F19	LD C,$01
6F1B	CALL $6F42
6F1E	LD A,B
6F1F	POP BC
6F20	DEC HL
6F21	DEC HL
6F22	DEC C
6F23	JR NZ,$6F17
6F25	RET
6F26	LD BC,$0002
6F29	LD A,$04
6F2B	LD ($5DD3),A
6F2E	XOR A
6F2F	JR $6F57
6F31	LD BC,$0004
6F34	LD A,$02
6F36	LD ($5DD3),A
6F39	JR $6F2E
6F3B	LD BC,$0004
6F3E	LD A,$02
6F40	JR $6F52
6F42	PUSH HL
6F43	PUSH DE
6F44	PUSH BC
6F45	LD A,(HL)
6F46	INC HL
6F47	LD H,(HL)
6F48	LD L,A
6F49	INC HL
6F4A	INC HL
6F4B	JR $6F61
6F4D	LD BC,$0002
6F50	LD A,$04
6F52	LD A,($5DD3)
6F55	LD A,$01
6F57	LD ($5DD2),A
6F5A	PUSH HL
6F5B	PUSH DE
6F5C	PUSH BC
6F5D	LD A,(HL)
6F5E	INC HL
6F5F	LD H,(HL)
6F60	LD L,A
6F61	PUSH HL
6F62	EX DE,HL
6F63	EXX
6F64	POP HL
6F65	POP BC
6F66	PUSH BC
6F67	LD A,(HL)
6F68	EX AF,AF'
6F69	INC HL
6F6A	EXX
6F6B	LD (HL),$00
6F6D	INC HL
6F6E	LD (HL),$03
6F70	INC HL
6F71	EX AF,AF'
6F72	CP $11
6F74	JR C,$6F78
6F76	LD A,$10
6F78	LD (HL),A
6F79	INC HL
6F7A	LD B,A
6F7B	CALL $6EDC
6F7E	POP BC
6F7F	POP HL
6F80	LD DE,$0033
6F83	ADD HL,DE
6F84	POP DE
6F85	EX DE,HL
6F86	INC HL
6F87	INC HL
6F88	LD A,($5DD3)
6F8B	ADD A,B
6F8C	LD B,A
6F8D	DEC C
6F8E	JR NZ,$6F5A
6F90	RET
This entry point is used by the routine at CLEAR_PIXELS.
6F91	LD A,($5C78)	A=FRAME_COUNTER
6F94	AND $03
6F96	RET NZ
6F97	LD HL,$5D08
6F9A	LD DE,$0008
6F9D	LD B,$04
6F9F	LD A,(HL)
6FA0	AND A
6FA1	JR Z,$6FA7
6FA3	ADD HL,DE
6FA4	DJNZ $6F9F	Decrease B by one, and loop back to 6F9F until zero
6FA6	RET
6FA7	LD (HL),$10
6FA9	INC HL
6FAA	LD DE,$5D00
6FAD	LD A,(DE)
6FAE	LD B,A
6FAF	INC DE
6FB0	LD A,(DE)
6FB1	AND $F8
6FB3	OR $05
6FB5	LD C,A
6FB6	BIT 6,B
6FB8	JR Z,$6FED
6FBA	SUB $08
6FBC	LD C,A
6FBD	INC DE
6FBE	LD A,(DE)
6FBF	SUB $0D
6FC1	LD (HL),A
6FC2	INC HL
6FC3	LD B,$03
6FC5	LD (HL),C
6FC6	LD A,C
6FC7	AND $FB
6FC9	INC HL
6FCA	LD (HL),A
6FCB	DJNZ $6FC9	Decrease B by one, and loop back to 6FC9 until zero
6FCD	INC HL
6FCE	LD A,($5DCE)
6FD1	AND $38
6FD3	OR $84
6FD5	LD (HL),A
6FD6	INC HL
6FD7	EX DE,HL
6FD8	LD HL,$6FE9
6FDB	LD A,($5DCE)
6FDE	AND $03
6FE0	LD C,A
6FE1	LD B,$00
6FE3	ADD HL,BC
6FE4	LD A,(HL)
6FE5	LD (DE),A
6FE6	JP $681E
6FE9	LD B,A
6FEA	LD B,E
6FEB	LD B,E
6FEC	LD B,L
6FED	LD A,(DE)
6FEE	AND $07
6FF0	LD A,C
6FF1	JR Z,$6FF5
6FF3	ADD A,$08
6FF5	ADD A,$10
6FF7	AND $FE
6FF9	LD C,A
6FFA	JR $6FBD
6FFC	LD D,(IX+$01)
6FFF	LD A,(IX+$02)
7002	BIT 2,A
7004	JR Z,$703E
7006	LD L,A
7007	LD A,$08
7009	BIT 0,L
700B	JR Z,$700F
700D	NEG
700F	ADD A,L
7010	LD E,A
7011	LD H,D
7012	PUSH HL
7013	CALL CLEAR_PIXELS_28
7016	LD A,(IX+$01)
7019	CP $80
701B	JR NC,$7021
701D	LD A,(HL)
701E	AND A
701F	JR NZ,$7063
7021	LD (IX+$02),E
7024	LD (HL),$FF
7026	POP HL
7027	CALL CLEAR_PIXELS_7
702A	LD A,(IX+$07)
702D	LD (HL),A
702E	LD A,(IX+$06)
7031	SUB $08
7033	LD (IX+$06),A
7036	AND $F8
7038	JR NZ,$703E
703A	RES 2,(IX+$02)
703E	EXX
703F	LD BC,$031C
7042	LD E,$E0
7044	EXX
7045	LD E,$03
7047	PUSH IX
7049	POP BC
704A	INC BC
704B	INC BC
704C	INC BC
704D	LD A,(BC)
704E	XOR (IX+$02)
7051	AND $F8
7053	JR NZ,$7066
7055	EXX
7056	LD A,B
7057	LD B,C
7058	LD C,E
7059	EXX
705A	INC BC
705B	DEC E
705C	JR NZ,$704D
705E	LD (IX+$00),$00
7062	RET
7063	POP HL
7064	JR $703A
7066	LD A,(BC)
7067	BIT 2,A
7069	JR NZ,$7086
706B	DEC (IX+$06)
706E	LD A,(IX+$06)	A=(IX+$06) 5D0E
7071	AND $07
7073	RET NZ
7074	LD A,($5DCE)
7077	AND $03
7079	OR $04
707B	OR (IX+$06)
707E	LD (IX+$06),A
7081	LD A,(BC)
7082	OR $04
7084	LD (BC),A
7085	RET
7086	LD A,(BC)
7087	LD L,A
7088	LD A,$08
708A	BIT 0,L
708C	JR Z,$7090
708E	NEG
7090	ADD A,L
7091	LD (BC),A
7092	LD H,D
7093	CALL CLEAR_PIXELS_28
7096	EXX
7097	LD A,B
7098	LD B,C
7099	LD C,E
709A	EXX
709B	CPL
709C	AND (HL)
709D	LD (HL),A
709E	INC BC
709F	DEC E
70A0	JP NZ,$704D
70A3	RET
This entry point is used by the routine at LEVEL_INIT.
70A4	LD HL,$0040	HL=$0040
70A7	CALL CLEAR_PIXELS_28	Call the routine at CLEAR_PIXELS_28
70AA	CALL ACTIVE_PLAYER_LIVES	Call the routine at ACTIVE_PLAYER_LIVES
70AD	AND A
70AE	JR Z,$70CC
70B0	CALL $70BF
70B3	LD HL,$00B0
70B6	CALL CLEAR_PIXELS_28
70B9	CALL INACTIVE_PLAYER_LIVES
70BC	AND A
70BD	JR Z,$70D1
70BF	ADD A,$30
70C1	CALL DISPLAY_1UP_SCORE_0
70C4	LD DE,$70DB
70C7	PUSH BC
70C8	PUSH DE
70C9	JP DISPLAY_1UP_SCORE_1
70CC	CALL $70D1
70CF	JR $70B3
70D1	LD A,$20
70D3	CALL DISPLAY_1UP_SCORE_0
70D6	LD A,$20
70D8	JP DISPLAY_1UP_SCORE_0