Routines
Prev: 44915 Up: Map Next: 45419
44981: Routine at AFB5
Used by the routine at Animation_OpponentThrowing.
44981 XOR A Write 0 to *46103.
44982 LD (46103),A
44985 LD HL,(46090) HL=*46090.
44988 LD BC,110 BC=0110.
44991 AND A Set flags.
44992 SBC HL,BC HL-=BC.
44994 ADD HL,BC HL+=BC.
44995 JR C,45014 Jump to 45014 if ?? is less than A.
44997 LD A,20 A=20.
44999 LD BC,(46129) IX=*46129 (using the stack).
45003 PUSH BC
45004 POP IX
45006 LD C,255 C=255.
45008 CALL 45724 Call 45724.
45011 JP 45242 Jump to 45242.
45014 LD A,L Jump to 45160 if L is less than 50.
45015 CP 50
45017 JP C,45160
45020 LD A,255 Write 255 to *46102.
45022 LD (46102),A
45025 LD A,(46106) B=*46106.
45028 LD B,A
45029 LD A,L Jump to 45148 if L is equal to B.
45030 CP B
45031 JR Z,45148
45033 SUB 50 A-=50.
45035 CP 21 Jump to 45054 if A is greater than or equal to 21.
45037 JR NC,45054
45039 LD BC,(46131) IX=*46131 (using the stack).
45043 PUSH BC
45044 POP IX
45046 LD C,0 C=0.
45048 CALL 45724 Call 45724.
45051 JP 45242 Jump to 45242.
45054 LD D,A Jump to 45078 if D is greater than or equal to 41.
45055 CP 41
45057 JR NC,45078
45059 BIT 0,A Test bit 0 of A.
45061 JR NZ,45078 Jump to 45078 if A is not equal to 41.
45063 SRL A Shift A right.
45065 LD BC,(46135) IX=*46135 (using the stack).
45069 PUSH BC
45070 POP IX
45072 CALL 45890 Call 45890.
45075 JP 45242 Jump to 45242.
45078 LD D,A D=A.
45079 LD C,0 C=0.
45081 SUB 3 A-=3.
45083 INC C Increment C by one.
45084 SUB 3 A-=3.
45086 JR Z,45092 Jump to 45092 if C is equal to 0.
45088 JR C,45109 Jump to 45109 if C is less than 0.
45090 JR 45083 Jump to 45083.
45092 INC C Increment C by one.
45093 LD A,C A=C.
45094 LD BC,(46129) IX=*46129 (using the stack).
45098 PUSH BC
45099 POP IX
45101 LD C,255 C=255.
45103 CALL 45724 Call 45724.
45106 JP 45242 Jump to 45242.
45109 LD A,D A=D.
45110 BIT 0,A Test bit 0 of A.
45112 JR NZ,45131 Jump to 45131 if C is not equal to 255.
45114 LD A,20 A=20.
45116 LD BC,(46129) IX=*46129 (using the stack).
45120 PUSH BC
45121 POP IX
45123 LD C,255 C=255.
45125 CALL 45724 Call 45724.
45128 JP 45242 Jump to 45242.
45131 LD A,19 A=19.
45133 LD BC,(46129) IX=*46129 (using the stack).
45137 PUSH BC
45138 POP IX
45140 LD C,255 C=255.
45142 CALL 45724 Call 45724.
45145 JP 45242 Jump to 45242.
45148 LD BC,(46137) IX=*46137 (using the stack).
45152 PUSH BC
45153 POP IX
45155 CALL 46006 Call 46006.
45158 JR 45242 Jump to 45242.
45160 LD A,L Jump to 45171 if L is less than 41.
45161 CP 41
45163 JR C,45171
45165 BIT 0,A Test bit 0 of A.
45167 JR Z,45210 Jump to 45210 if A is equal to 41.
45169 JR 45177 Jump to 45177.
45171 BIT 0,A Test bit 0 of A.
45173 JR Z,45226 Jump to 45226 if A is equal to 41.
45175 JR 45194 Jump to 45194.
45177 LD A,19 A=19.
45179 LD BC,(46131) IX=*46131 (using the stack).
45183 PUSH BC
45184 POP IX
45186 LD C,0 C=0.
45188 CALL 45724 Call 45724.
45191 JP 45242 Jump to 45242.
45194 LD A,1 A=1.
45196 LD BC,(46131) IX=*46131 (using the stack).
45200 PUSH BC
45201 POP IX
45203 LD C,0 C=0.
45205 CALL 45724 Call 45724.
45208 JR 45242 Jump to 45242.
45210 LD A,20 A=20.
45212 LD BC,(46131) IX=*46131 (using the stack).
45216 PUSH BC
45217 POP IX
45219 LD C,0 C=0.
45221 CALL 45724 Call 45724.
45224 JR 45242 Jump to 45242.
45226 LD A,L A=L.
45227 SRL A Shift A right.
45229 LD BC,(46135) IX=*46135 (using the stack).
45233 PUSH BC
45234 POP IX
45236 CALL 45890 Call 45890.
45239 JP 45242 Jump to 45242.
45242 LD A,(46102) A=*46102.
45245 BIT 0,A Test bit 0 of A.
45247 JR Z,45276 Jump to 45276 if A is equal to 0.
45249 LD A,L Jump to 45265 if L is greater than or equal to 127.
45250 CP 127
45252 JR NC,45265
45254 CP 2 Jump to 45276 if L is greater than or equal to 2.
45256 JR NC,45276
45258 LD A,(46098) A=*46098.
45261 BIT 0,A Test bit 0 of A.
45263 JR NZ,45280 Jump to 45280 if A is not equal to 2.
45265 LD HL,(46094) Write *46094 to *46090.
45268 LD (46090),HL
45271 LD A,1 Write 1 to *46103.
45273 LD (46103),A
45276 XOR A Write 0 to *46098.
45277 LD (46098),A
45280 PUSH HL Stash HL on the stack.
45281 LD A,(46101) A=*46101.
45284 INC A Increment A by one.
45285 CP 3 Jump to 45293 if A is not equal to 3.
45287 JR NZ,45293
45289 LD (46094),HL Write HL to *46094.
45292 XOR A Write 0 to *46101.
45293 LD (46101),A
45296 POP HL Restore HL from the stack.
45297 LD DE,44278 DE=Current_Total.
45300 LD (46090),HL Write HL to *46090.
45303 CALL 44784 Call 44784.
45306 LD DE,44302 DE=44302.
45309 LD A,(46096) A=*46096.
45312 LD H,0 H=0.
45314 LD L,A L=A.
45315 CALL 44784 Call 44784.
45318 LD DE,44342 DE=44342.
45321 LD A,(46092) A=*46092.
45324 LD L,A L=A.
45325 LD H,0 H=0.
45327 CALL 44784 Call 44784.
45330 LD DE,44405 DE=44405.
45333 LD A,(46097) A=*46097.
45336 LD H,0 H=0.
45338 LD L,A L=A.
45339 CALL 44784 Call 44784.
45342 LD B,3 B=3.
45344 LD HL,44278 HL=Current_Total.
45347 LD A,(HL) A=*HL.
45348 CP 32 Jump to 45355 if A is equal to 32.
45350 JR Z,45355
45352 ADD A,48 A+=48.
45354 LD (HL),A Write A to *HL.
45355 INC HL Increment HL by one.
45356 DJNZ 45347 Decrease counter by one and loop back to 45347 until counter is zero.
45358 LD B,3 B=3.
45360 LD HL,44302 HL=44302.
45363 LD A,(HL) A=*HL.
45364 CP 32 Jump to 45371 if A is equal to 32.
45366 JR Z,45371
45368 ADD A,48 A+=48.
45370 LD (HL),A Write A to *HL.
45371 INC HL Increment HL by one.
45372 DJNZ 45363 Decrease counter by one and loop back to 45363 until counter is zero.
45374 LD B,3 B=3.
45376 LD HL,44342 HL=44342.
45379 LD A,(HL) A=*HL.
45380 CP 32 Jump to 45387 if A is equal to 32.
45382 JR Z,45387
45384 ADD A,48 A+=48.
45386 LD (HL),A Write A to *HL.
45387 INC HL Increment HL by one.
45388 DJNZ 45379 Decrease counter by one and loop back to 45379 until counter is zero.
45390 LD B,3 B=3.
45392 LD HL,44405 HL=44405.
45395 LD A,(HL) A=*HL.
45396 CP 32 Jump to 45403 if A is equal to 32.
45398 JR Z,45403
45400 ADD A,48 A+=48.
45402 LD (HL),A Write A to *HL.
45403 INC HL Increment HL by one.
45404 DJNZ 45395 Decrease counter by one and loop back to 45395 until counter is zero.
45406 LD A,(46104) Write *46104 to *44302.
45409 LD (44302),A
45412 LD A,(46105) Write *46105 to *44405.
45415 LD (44405),A
45418 RET Return.
Prev: 44915 Up: Map Next: 45419