Routines
Prev: 25752 Up: Map Next: 26160
25887: Routine at 651F
25887 CALL StoreEntity
25890 LD A,(IX+4)
25893 BIT 2,A
25895 JP NZ,26012
25898 BIT 1,A
25900 JR NZ,25976
25902 BIT 0,A
25904 JR Z,25931
25906 CALL MeteorUpdate_4
25909 DEC E
25910 JR Z,25946
25912 CALL 30237
25915 BIT 2,E
25917 JR NZ,25925
25919 INC (IX+2) Drop IX+$02 (fuel Y co-ordinate) by two pixels
25922 INC (IX+2)
25925 CALL 29290
25928 JP ColouriseSprite
25931 LD A,(24048)
25934 RRCA
25935 AND 6
25937 CALL 25829
25940 CALL 29339
25943 JP ColouriseSprite
25946 SET 1,(IX+4)
25950 CALL 29349
25953 LD BC,256
25956 CALL AddPointsToScore
25959 CALL SoundsPickupFuel
25962 LD HL,(23809)
25965 LD (IX+1),L
25968 LD (IX+2),H
25971 CALL StoreEntity
25974 JR 25925
25976 LD HL,(23809)
25979 LD (IX+1),L
25982 LD (IX+2),H
25985 LD A,(23857)
25988 SUB (IX+1)
25991 JP P,25996
25994 NEG
25996 CP 6
25998 JR NC,25925
26000 SET 2,(IX+4)
26004 LD A,(23857)
26007 LD (IX+1),A
26010 JR 25925
26012 LD A,(IX+6)
26015 CP 24
26017 JR Z,26062
26019 SLA A
26021 ADD A,(IX+2)
26024 CP 183
26026 JP C,25919
26029 LD A,(23868)
26032 OR 1
26034 LD (23868),A
26037 LD A,(23860)
26040 INC A
26041 LD (23860),A
26044 LD A,(IX+6)
26047 ADD A,8
26049 CALL MeteorUpdate_23
26052 CALL 29349
26055 LD (IX+0),0
26059 JP SoundsRocketBuild
26062 LD A,(IX+2) A=(IX+$02) (fuel Y co-ordinate)
26065 CP 176 Is A=$B0? (has the fuel reached the ship yet?)
26067 JP C,25919 If not, jump back to 25919
26070 LD A,(23861) Fuel pod deposited correctly; increase ActivePlayerNum_Fuel_Pods by one
26073 INC A
26074 LD (23861),A
26077 JR 26052 Jump to 26052
This entry point is used by the routine at 26981.
26079 LD A,(23808) If JETMAN_FRAME is &$3F then return...
26082 AND 63
26084 RET Z
26085 CP 3 Return if JETMAN_FRAME is greater than (or equal to) $03
26087 RET NC
26088 LD HL,24632 HL Source address: $6038
26091 LD DE,23872 DE Target address: ITEM_VISIBILITY
26094 LD BC,8 BC=loop counter
26097 LD A,(DE) A=(DE)
26098 AND A
26099 RET NZ
26100 LD A,(24012)
26103 AND 127
26105 RET NZ
26106 LDIR Action! Copy source to target, decrease counter, repeat until zero
26108 CALL 26130
26111 LD (23873),A
26114 LD A,R
26116 AND 14
26118 BIT 3,A
26120 JR Z,26124
26122 AND 8
26124 OR 32
26126 LD (23878),A
26129 RET
This entry point is used by the routine at DropFuelPod.
26130 LD HL,26144
26133 LD A,(24014)
26136 AND 15
26138 LD C,A
26139 LD B,0
26141 ADD HL,BC
26142 LD A,(HL)
26143 RET
26144 EX AF,AF'
26145 JR NZ,DropFuelPod_0
26147 JR NC,26205
26149 LD B,B
26150 LD E,B
26151 LD H,B
26152 LD A,B
26153 ADD A,B
26154 ADC A,B
26155 RET NZ
26156 RET PO
26157 EX AF,AF'
26158 LD E,B
26159 LD H,B
Prev: 25752 Up: Map Next: 26160