Routines
Prev: 47926 Up: Map Next: 48278
47987: Routine at BB73
Used by the routine at StartGame.
47987 LD IX,(49783) IX=*49783.
47991 BIT 2,(IX+33) Call 48132 if bit 2 of *IX+33 is set.
47995 CALL NZ,48132
47998 BIT 3,(IX+33) Call 48078 if bit 3 of *IX+33 is set.
48002 CALL NZ,48078
48005 LD DE,12 DE=0012.
48008 ADD IX,DE IX+=DE.
48010 BIT 2,(IX+33) Call 48132 if bit 2 of *IX+33 is set.
48014 CALL NZ,48132
48017 BIT 3,(IX+33) Call 48078 if bit 3 of *IX+33 is set.
48021 CALL NZ,48078
48024 LD A,(50057) A=*50057.
48027 XOR %00000010 Flip bit 1.
48029 BIT 1,A Test bit 1 of A.
48031 LD (50057),A Write A to *50057.
48034 RET NZ Return if bit 1 of A is set.
48035 LD HL,50056 HL=50056.
48038 DEC (HL) Decrease *HL by one.
48039 JR Z,48075 Jump to 48075 if *HL is not set.
48041 LD A,1 A=1.
48043 CP (HL) Return if A is not equal to *HL.
48044 RET NZ
48045 LD HL,55313 HL=55313.
48048 CALL Print_BonusMessaging Call Print_BonusMessaging.
48051 LD IX,(49783) IX=49783.
48055 SET 3,(IX+33) Set bit 3 of *IX+33.
48059 CALL 48078 Call 48078.
48062 LD DE,12 DE=0012.
48065 ADD IX,DE IX+=DE.
48067 SET 3,(IX+33) Set bit 3 of *IX+33.
48071 CALL 48078 Call 48078.
48074 RET Return.
48075 LD (HL),1 Write 1 to *HL.
48077 RET Return.
48078 BIT 4,(IX+33) Return if bit 4 of *IX+33 is not set.
48082 RET Z
48083 RES 4,(IX+33) Reset bit 4 of *IX+33.
48087 RES 1,(IX+33) Reset bit 1 of *IX+33.
48091 LD HL,50057 HL=50057.
48094 RES 0,(HL) Reset bit 0 of *HL.
48096 LD L,(IX+34) L=*IX+34.
48099 LD H,(IX+35) H=*IX+35.
48102 CALL 49476 Call 49476.
48105 INC HL Increment HL by one.
48106 RES 3,(HL) Reset bit 3 of *HL.
48108 LD DE,64 DE=0064.
48111 ADD HL,DE HL+=DE.
48112 RES 3,(HL) Reset bit 3 of *HL.
48114 LD HL,50054 HL=50054.
48117 BIT 0,(HL) Return if bit 0 of *HL is not set.
48119 RET Z
48120 LD HL,(50058) HL=*50058.
48123 LD A,(HL) A=*HL.
48124 LD (49807),A Write A to *49807.
48127 INC HL Increment HL by one.
48128 LD (50058),HL Write HL to *50058.
48131 RET Return.
48132 LD L,(IX+34) L=*IX+34.
48135 LD H,(IX+35) H=*IX+35.
48138 CALL 49476 Call 49476.
48141 INC HL Increment HL by one.
48142 SET 3,(HL) Set bit 3 of *HL.
48144 LD DE,64 DE=0064.
48147 ADD HL,DE HL+=DE.
48148 SET 3,(HL) Set bit 3 of *HL.
48150 SET 4,(IX+33) Set bit 4 of *IX+33.
48154 LD A,(50054) A=*50054.
48157 BIT 0,A Jump to 48201 if bit 0 of A is set.
48159 JR NZ,48201
48161 LD HL,50057 HL=50057.
48164 BIT 0,(HL) Return if bit 0 of *HL is set.
48166 RET NZ
48167 SET 0,(HL) Set bit 0 of *HL.
48169 LD L,(IX+24) L=*IX+24.
48172 LD H,(IX+25) H=*IX+25.
48175 LD DE,576 HL+=0576.
48178 ADD HL,DE
48179 LD A,(HL) A=*HL.
48180 INC HL Increment HL by one.
48181 LD H,(HL) H=*HL.
48182 LD L,A L=A.
48183 LD A,(49637) A=*49637.
48186 AND %00011000 Keep only bits 3-4.
48188 LD D,0 D=0.
48190 LD E,A E=A.
48191 ADD HL,DE HL+=DE.
48192 CALL Handler_BonusMessaging Call Handler_BonusMessaging.
48195 LD HL,52285 HL=52285.
48198 SET 2,(HL) Set bit 2 of *HL.
48200 RET Return.
48201 RES 0,A Reset bit 0 of A.
48203 LD (50054),A Write A to *50054.
48206 LD L,(IX+24) L=*IX+24.
48209 LD H,(IX+25) H=*IX+25.
48212 PUSH HL Stash HL on the stack.
48213 LD DE,39988 DE=39988.
48216 AND A Set flags.
48217 SBC HL,DE HL-=DE (with carry).
48219 POP HL Restore HL from the stack.
48220 JR Z,48259 Jump to 48259 if {} is zero.
48222 LD DE,37678 DE=37678.
48225 AND A Set flags.
48226 SBC HL,DE HL-=DE (with carry).
48228 JR Z,48240 Jump to 48240 if {} is zero.
48230 LD HL,(50058) HL=*50058.
48233 CALL 52069 Call 52069.
48236 CALL Handler_BonusMessaging Call Handler_BonusMessaging.
48239 RET Return.
48240 LD A,(49637) A=*49637.
48243 BIT 0,A Jump to 48230 if bit 0 of A is set.
48245 JR NZ,48230
48247 LD A,100 A=100.
48249 LD (49809),A Write A to *49809.
48252 LD HL,53023 HL=Messaging_WolfingThatLotDown.
48255 CALL Print_BonusMessaging Call Print_BonusMessaging.
48258 RET Return.
48259 LD A,(49637) A=*49637.
48262 BIT 0,A Jump to 48230 if bit 0 of A is set.
48264 JR NZ,48230
48266 LD A,255 Write 255 to *49810.
48268 LD (49810),A
48271 LD HL,52759 HL=Messaging_HicHic.
48274 CALL Print_BonusMessaging Call Print_BonusMessaging.
48277 RET Return.
Prev: 47926 Up: Map Next: 48278