Lunar Jetman: Routine at AD36

AD36: Routine at AD36

Used by the routines at 9EDC and ABA9.
AD36	LD HL,($607A)	HL=607A.
This entry point is used by the routine at AC39.
AD39	LD C,(IX+$02)
AD3C	LD B,(IX+$03)
This entry point is used by the routines at 9020 and B731.
AD3F	AND A
AD40	SBC HL,BC
AD42	LD A,H
AD43	AND A
AD44	JP M,$AD4E
AD47	LD BC,$1000
AD4A	AND A
AD4B	SBC HL,BC
AD4D	RET
AD4E	CALL $8947
AD51	LD BC,$1000
AD54	AND A
AD55	SBC HL,BC
AD57	CCF
AD58	RET
AD59	LD E,$14
AD5B	CALL $B2A4
AD5E	CALL C,$B2D7
AD61	LD A,($607A)
AD64	SUB (IX+$02)
AD67	NEG
AD69	AND $07
AD6B	ADD A,$68
AD6D	LD (IX+$00),A
AD70	CALL $8787
AD73	LD A,($5E58)
AD76	SUB $08
AD78	LD ($5E58),A
AD7B	CALL $8733
AD7E	LD A,($5E6C)
AD81	AND A
AD82	JR NZ,$AD89
AD84	LD A,(IX+$15)
AD87	AND A
AD88	RET Z
AD89	CALL $864F
AD8C	LD A,$C0
AD8E	LD ($6168),A
AD91	LD ($6180),A
AD94	LD HL,($6182)
AD97	LD BC,$FFF8
AD9A	CALL $A002
AD9D	LD ($6182),HL
ADA0	LD HL,$6188
ADA3	LD B,$08
ADA5	LD (HL),$00
ADA7	INC HL
ADA8	DJNZ $ADA5
ADAA	RET
ADAB	CALL $B2A2
ADAE	JR C,$ADDE
ADB0	BIT 0,(IX+$10)
ADB4	JR NZ,$ADE1
ADB6	LD L,(IX+$02)
ADB9	LD H,(IX+$03)
ADBC	LD B,$00
ADBE	LD A,(IX+$05)
ADC1	LD C,A
ADC2	AND A
ADC3	JP P,$ADC7
ADC6	DEC B
ADC7	ADD HL,BC
ADC8	LD (IX+$02),L
ADCB	LD (IX+$03),H
ADCE	LD A,(IX+$04)
ADD1	ADD A,(IX+$06)
ADD4	LD (IX+$04),A
ADD7	CP $3C
ADD9	JR C,$ADE7
ADDB	JP $ABB4
ADDE	CALL $B2D7	Call B2D7.
Destroying the missile adds 0500 points. TBC is this the decoy missile?
ADE1	LD BC,$0500	BC=0500.
ADE4	CALL AddPointsToScore	Call AddPointsToScore.
ADE7	JP $A76B	Jump to A76B.
ADEA	LD A,($6138)
ADED	CP $80
ADEF	JR NZ,$AE2F
ADF1	LD HL,($613A)
ADF4	LD BC,$0014
ADF7	ADD HL,BC
ADF8	LD A,H
ADF9	AND $1F
ADFB	LD H,A
ADFC	LD (IX+$02),L
ADFF	LD (IX+$03),H
AE02	LD A,($613C)
AE05	ADD A,$10
AE07	LD (IX+$04),A
AE0A	LD A,(IX+$00)
AE0D	XOR $01
AE0F	LD (IX+$00),A
AE12	LD A,(IX+$07)
AE15	XOR $04
AE17	LD (IX+$07),A
AE1A	JP $ABB4
AE1D	LD A,($6138)
AE20	CP $84
AE22	JR NZ,$AE2F
AE24	LD HL,($613A)
AE27	LD BC,$0010
AE2A	AND A
AE2B	SBC HL,BC
AE2D	JR $ADF8
AE2F	CALL $8640
AE32	LD (IX+$00),$00
AE36	RET
AE37	JP $ABB4
AE3A	LD E,$18
AE3C	CALL $B2A4
AE3F	CALL C,$B2D7
AE42	CALL $ABB4
AE45	LD A,($5E42)
AE48	AND $07
AE4A	RET NZ
AE4B	INC (IX+$00)
AE4E	LD A,(IX+$00)
AE51	AND $03
AE53	CP $03
AE55	CALL Z,$AE78
AE58	RET
AE59	LD E,$18
AE5B	CALL $B2A4
AE5E	CALL C,$B2D7
AE61	CALL $ABB4
AE64	LD A,($5E42)
AE67	AND $03
AE69	RET NZ
AE6A	INC (IX+$00)
AE6D	LD A,(IX+$00)
AE70	AND $03
AE72	CP $03
AE74	CALL Z,$AEB7
AE77	RET
AE78	LD HL,$AEBC
AE7B	LD DE,$6108
AE7E	LD BC,$0030
AE81	LDIR
AE83	LD L,(IX+$02)
AE86	LD H,(IX+$03)
AE89	LD ($610A),HL
AE8C	LD A,(IX+$04)
AE8F	SUB $0C
AE91	LD ($610C),A
AE94	LD A,($5EA0)
AE97	ADD A,$08
AE99	CP $63
AE9B	JR C,$AE9F
AE9D	LD A,$63
AE9F	LD ($611E),A
AEA2	LD A,($6172)
AEA5	AND A
AEA6	RET NZ
AEA7	LD A,($5EA1)
AEAA	AND A
AEAB	JP NZ,$B52E
AEAE	LD A,($6078)
AEB1	CP $2A
AEB3	RET NC
AEB4	JP $B52E
AEB7	LD HL,$AEEC
AEBA	JR $AE7B
AEBC	DEFB $A0,$00,$00,$00,$00,$FD,$00,$46
AEC4	DEFB $00,$00,$00,$00,$00,$00,$00,$00
AECC	DEFB $00,$00,$00,$00,$00,$00,$00,$00
AED4	DEFB $A2,$00,$00,$00,$00,$00,$00,$42
AEDC	DEFB $00,$00,$00,$00,$00,$00,$00,$00
AEE4	DEFB $00,$00,$00,$00,$00,$00,$00,$00
AEEC	DEFB $A4,$00,$00,$00,$00,$03,$00,$46
AEF4	DEFB $00,$00,$00,$00,$00,$00,$00,$00
AEFC	DEFB $00,$00,$00,$00,$00,$00,$00,$00
AF04	DEFB $A6,$00,$00,$00,$00,$00,$00,$42
AF0C	DEFB $00,$00,$00,$00,$00,$00,$00,$00
AF14	DEFB $00,$00,$00,$00,$00,$00,$00,$00
AF1C	CALL $B2A2
AF1F	JP C,$AFAE
AF22	CALL $AD36
AF25	JR NC,$AF35
AF27	CALL $AD17
AF2A	LD HL,$587B
AF2D	CALL Handler_Colour2x2
AF30	LD HL,$587D
AF33	JR $AF41
AF35	CALL $AD17
AF38	LD HL,$587D
AF3B	CALL Handler_Colour2x2
AF3E	LD HL,$587B
AF41	LD A,$42
AF43	CALL Handler_Colour2x2
AF46	LD A,($5E42)
AF49	AND $01
AF4B	JR NZ,$AF61
AF4D	LD A,(IX+$07)
AF50	CP $46
AF52	JR Z,$AF61
AF54	LD A,($5E40)
AF57	AND $07
AF59	JR NZ,$AF5C
AF5B	INC A
AF5C	OR $40
AF5E	LD (IX+$07),A
AF61	BIT 0,(IX+$10)
AF65	JR Z,$AF7D
Take one hit off the missile hit count total.
AF67	DEC (IX+$16)	Decrease IX+16 by one.
AF6A	JR Z,$AFB1	Jump to AFB1 if the missile has been destroyed.
AF6C	CALL SoundsLaserMissileHit	Call SoundsLaserMissileHit.
Each missile hit adds 0100 points.
AF6F	LD BC,$0100	BC=0100.
AF72	CALL AddPointsToScore	Call AddPointsToScore.
AF75	LD (IX+$07),$42
AF79	LD (IX+$10),$00
AF7D	LD L,(IX+$02)
AF80	LD H,(IX+$03)
AF83	LD C,(IX+$05)
AF86	LD B,$00
AF88	LD A,C
AF89	AND A
AF8A	JP P,$AF8E
AF8D	DEC B
AF8E	ADD HL,BC
AF8F	LD A,H
AF90	AND $1F
AF92	LD H,A
AF93	LD (IX+$02),L
AF96	LD (IX+$03),H
AF99	CALL $B0D1
AF9C	JR C,$AFE9
AF9E	LD A,H
AF9F	CP $02
AFA1	JR C,$AFDD
AFA3	CP $10
AFA5	JR C,$AFD6
AFA7	CP $20
AFA9	JR C,$AFC5
AFAB	JP $ABB4
AFAE	CALL $B2D7	Call B2D7.
AFB1	LD A,$01	Write 01 to 6195.
AFB3	LD ($6195),A	Write 01 to 6195.
Destroying the missile adds 0500 points. TBC is this the decoy missile?
AFB6	LD BC,$0500	BC=0500.
AFB9	CALL AddPointsToScore	Call AddPointsToScore.
AFBC	LD DE,$BAA8
AFBF	CALL $B9BC
AFC2	JP $A76B
AFC5	LD A,(IX+$04)
AFC8	CP $50
AFCA	JR Z,$AFAB
AFCC	JR NC,$AFD0
AFCE	INC A
AFCF	INC A
AFD0	DEC A
AFD1	LD (IX+$04),A
AFD4	JR $AFAB
AFD6	LD A,(IX+$04)
AFD9	CP $80
AFDB	JR $AFCA
AFDD	LD A,(IX+$04)
AFE0	CP $A7
AFE2	JR Z,$AFAB
AFE4	INC A
AFE5	CP $A7
AFE7	JR $AFCA
AFE9	LD A,$01
AFEB	LD ($5E6C),A
AFEE	LD A,$C0
AFF0	LD ($60D8),A
AFF3	LD ($60A8),A
AFF6	LD ($60C0),A
AFF9	LD A,($60F0)
AFFC	AND A
AFFD	JR Z,$B004
AFFF	LD A,$5C
B001	LD ($60F0),A
B004	LD A,($6198)
B007	AND A
B008	JR Z,$B00F
B00A	LD A,$C0
B00C	LD ($6198),A
B00F	LD HL,$61B0
B012	LD DE,$0018
B015	LD B,$06
B017	LD A,(HL)
B018	AND A
B019	JR Z,$B031
B01B	AND $FE
B01D	CP $5A
B01F	JR Z,$B037
B021	CP $B6
B023	JR Z,$B037
B025	AND $FC
B027	CP $64
B029	JR Z,$B031
B02B	CP $C8
B02D	JR Z,$B037
B02F	LD (HL),$5C
B031	ADD HL,DE
B032	DJNZ $B017
B034	JP $A76B
B037	LD (HL),$64
B039	JR $B031
This entry point is used by the routine at 9EDC.
B03B	LD A,($6078)
B03E	SUB $12
B040	CP $08
B042	LD BC,$E004
B045	JR C,$B056
B047	LD A,B
B048	LD ($6090),A
B04B	LD A,C
B04C	LD ($6098),A
B04F	LD DE,$6092
B052	CALL $B4C2
B055	RET
B056	LD A,B
B057	LD ($6078),A
B05A	LD A,C
B05B	LD ($6080),A
B05E	LD DE,$607A
B061	CALL $B4C2
B064	RET
B065	LD A,($6108)
B068	CP $A4
B06A	JR NZ,$B0C9
B06C	LD A,(IX+$00)
B06F	XOR $01
B071	LD (IX+$00),A
B074	LD A,(IX+$07)
B077	XOR $04
B079	LD (IX+$07),A
B07C	LD A,($610C)
B07F	LD (IX+$04),A
B082	LD HL,($610A)
B085	LD BC,$0018
B088	AND A
B089	SBC HL,BC
B08B	LD A,H
B08C	AND $1F
B08E	LD H,A
B08F	LD (IX+$02),L
B092	LD (IX+$03),H
B095	JP $ABB4
B098	LD A,($6108)
B09B	CP $A0
B09D	JR NZ,$B0C9
B09F	LD A,(IX+$00)
B0A2	XOR $01
B0A4	LD (IX+$00),A
B0A7	LD A,(IX+$07)
B0AA	XOR $04
B0AC	LD (IX+$07),A
B0AF	LD A,($610C)
B0B2	LD (IX+$04),A
B0B5	LD HL,($610A)
B0B8	LD BC,$0014
B0BB	ADD HL,BC
B0BC	LD A,H
B0BD	AND $1F
B0BF	LD H,A
B0C0	LD (IX+$02),L
B0C3	LD (IX+$03),H
B0C6	JP $ABB4
B0C9	CALL $8640
B0CC	LD (IX+$00),$00
B0D0	RET
B0D1	LD A,($6078)
B0D4	SUB $12
B0D6	CP $08
B0D8	JR C,$B112
B0DA	LD A,($6090)
B0DD	SUB $1A
B0DF	CP $10
B0E1	JR NC,$B11B
B0E3	LD HL,($6092)
B0E6	LD A,($6094)
B0E9	LD C,A
B0EA	ADD HL,HL
B0EB	ADD HL,HL
B0EC	ADD HL,HL
B0ED	LD E,(IX+$02)
B0F0	LD D,(IX+$03)
B0F3	EX DE,HL
B0F4	ADD HL,HL
B0F5	ADD HL,HL
B0F6	ADD HL,HL
B0F7	AND A
B0F8	SBC HL,DE
B0FA	LD A,H
B0FB	AND A
B0FC	JP P,$B102
B0FF	CALL $8947
B102	LD DE,$00C0
B105	AND A
B106	SBC HL,DE
B108	RET NC
B109	LD A,(IX+$04)
B10C	SUB C
B10D	NEG
B10F	CP $20
B111	RET
B112	LD HL,($607A)
B115	LD A,($607C)
B118	LD C,A
B119	JR $B0EA
B11B	AND A
B11C	RET
B11D	LD A,$5C
B11F	LD ($6108),A
B122	LD ($6138),A
B125	JP $AFE9
B128	CALL $B0D1
B12B	JP C,$B11D
B12E	CALL $B2A2
B131	CALL C,$B2D7
B134	CALL $A53A
B137	LD A,(IX+$00)
B13A	INC A
B13B	AND $07
B13D	ADD A,$90
B13F	LD (IX+$00),A
B142	CALL $8701
B145	LD L,(IX+$01)
B148	LD H,(IX+$04)
B14B	CALL AttributeAddress
B14E	LD D,(IX+$07)
B151	LD C,$02
B153	LD A,($5E57)
B156	AND A
B157	RET Z
B158	LD B,A
B159	CALL $8750
B15C	LD A,($5E42)
B15F	RRCA
B160	RRCA
B161	RRCA
B162	AND $07
B164	JR NZ,$B167
B166	INC A
B167	OR $40
B169	LD D,A
B16A	LD C,$01
B16C	JP $8750
This entry point is used by the routines at ABA9 and B810.
B16F	LD A,($6108)
B172	AND A
B173	JR Z,$B17A
B175	LD A,$C0
B177	LD ($6108),A
B17A	LD A,($6138)
B17D	AND A
B17E	JR Z,$B185
B180	LD A,$C0
B182	LD ($6138),A
B185	LD A,($6120)
B188	SUB $C8
B18A	CP $04
B18C	JR NC,$B193
B18E	LD A,$64
B190	LD ($6120),A
B193	LD A,($6150)
B196	SUB $C8
B198	CP $04
B19A	JR NC,$B1A1
B19C	LD A,$64
B19E	LD ($6150),A
B1A1	JP $B960