48915: Routine at BF13
48915 |
LD A,(43602) |
48918 |
LD L,A |
48919 |
LD H,0 |
48921 |
LD (50213),HL |
48924 |
LD A,(43609) |
48927 |
LD (50205),A |
48930 |
LD A,(43608) |
48933 |
LD (50206),A |
48936 |
LD A,(43607) |
48939 |
LD (50208),A |
48942 |
LD A,(43538) |
48945 |
LD L,A |
48946 |
LD H,0 |
48948 |
LD (50211),HL |
48951 |
LD A,(43545) |
48954 |
LD (50203),A |
48957 |
LD A,(43544) |
48960 |
LD (50204),A |
48963 |
LD A,(43543) |
48966 |
LD (50207),A |
48969 |
LD HL,(50211) |
48972 |
SLA L |
48974 |
RL H |
48976 |
LD DE,50240 |
48979 |
ADD HL,DE |
48980 |
LD E,(HL) |
48981 |
INC HL |
48982 |
LD D,(HL) |
48983 |
LD HL,17612 |
48986 |
ADD HL,DE |
48987 |
LD (50216),HL |
48990 |
LD HL,(50213) |
48993 |
SLA L |
48995 |
RL H |
48997 |
LD DE,50240 |
49000 |
ADD HL,DE |
49001 |
LD E,(HL) |
49002 |
INC HL |
49003 |
LD D,(HL) |
49004 |
LD HL,17612 |
49007 |
ADD HL,DE |
49008 |
LD (50218),HL |
49011 |
LD A,(50203) |
49014 |
LD D,A |
49015 |
LD A,(50220) |
49018 |
LD E,A |
49019 |
CALL 49654 |
49022 |
LD A,D |
49023 |
LD (50228),A |
49026 |
LD IX,(50216) |
49030 |
LD D,(IX+1) |
49033 |
LD A,(50203) |
49036 |
ADD A,D |
49037 |
LD E,A |
49038 |
LD A,(50221) |
49041 |
LD D,A |
49042 |
CALL 49654 |
49045 |
LD A,E |
49046 |
LD (50229),A |
49049 |
LD A,(50204) |
49052 |
LD D,A |
49053 |
LD A,(50222) |
49056 |
LD E,A |
49057 |
CALL 49654 |
49060 |
LD A,D |
49061 |
LD (50230),A |
49064 |
LD D,(IX+2) |
49067 |
LD A,(50204) |
49070 |
ADD A,D |
49071 |
LD E,A |
49072 |
LD A,(50223) |
49075 |
LD D,A |
49076 |
CALL 49654 |
49079 |
LD A,E |
49080 |
LD A,190 |
49082 |
LD (50231),A |
49085 |
LD A,(50205) |
49088 |
LD D,A |
49089 |
LD A,(50224) |
49092 |
LD E,A |
49093 |
CALL 49654 |
49096 |
LD A,D |
49097 |
LD (50232),A |
49100 |
LD IY,(50218) |
49104 |
LD D,(IY+1) |
49107 |
LD A,(50205) |
49110 |
ADD A,D |
49111 |
LD E,A |
49112 |
LD A,(50225) |
49115 |
LD D,A |
49116 |
CALL 49654 |
49119 |
LD A,E |
49120 |
LD (50233),A |
49123 |
LD A,(50206) |
49126 |
LD D,A |
49127 |
LD A,(50226) |
49130 |
LD E,A |
49131 |
CALL 49654 |
49134 |
LD A,D |
49135 |
LD (50234),A |
49138 |
LD D,(IY+2) |
49141 |
LD A,(50206) |
49144 |
ADD A,D |
49145 |
LD E,A |
49146 |
LD A,(50227) |
49149 |
LD D,A |
49150 |
CALL 49654 |
49153 |
LD A,E |
49154 |
LD A,190 |
49156 |
LD (50235),A |
49159 |
LD A,(50203) |
49162 |
LD (50220),A |
49165 |
LD D,(IX+1) |
49168 |
ADD A,D |
49169 |
LD (50221),A |
49172 |
LD A,(50204) |
49175 |
LD (50222),A |
49178 |
LD D,(IX+2) |
49181 |
ADD A,D |
49182 |
LD (50223),A |
49185 |
LD A,(50205) |
49188 |
LD (50224),A |
49191 |
LD D,(IY+1) |
49194 |
ADD A,D |
49195 |
LD (50225),A |
49198 |
LD A,(50206) |
49201 |
LD (50226),A |
49204 |
LD D,(IY+2) |
49207 |
ADD A,D |
49208 |
LD (50227),A |
49211 |
LD A,(50228) |
49214 |
LD B,A |
49215 |
LD A,(50233) |
49218 |
ADD A,11 |
49220 |
CP B |
49221 |
JP C,49409 |
49224 |
LD A,(50232) |
49227 |
LD B,A |
49228 |
LD A,(50229) |
49231 |
ADD A,11 |
49233 |
CP B |
49234 |
JP C,49409 |
49237 |
LD A,(50228) |
49240 |
LD D,A |
49241 |
LD A,(50232) |
49244 |
LD E,A |
49245 |
CALL 49654 |
49248 |
LD A,D |
49249 |
LD (50228),A |
49252 |
LD A,(50229) |
49255 |
LD D,A |
49256 |
LD A,(50233) |
49259 |
LD E,A |
49260 |
CALL 49654 |
49263 |
LD A,E |
49264 |
LD (50229),A |
49267 |
LD A,(50230) |
49270 |
LD D,A |
49271 |
LD A,(50234) |
49274 |
LD E,A |
49275 |
CALL 49654 |
49278 |
LD A,D |
49279 |
LD (50230),A |
49282 |
LD A,(50231) |
49285 |
LD D,A |
49286 |
LD A,(50235) |
49289 |
LD E,A |
49290 |
CALL 49654 |
49293 |
LD A,E |
49294 |
LD (50231),A |
49297 |
LD A,(50228) |
49300 |
LD D,A |
49301 |
LD A,(50229) |
49304 |
SUB D |
49305 |
SRL A |
49307 |
SRL A |
49309 |
ADD A,2 |
49311 |
LD H,A |
49312 |
LD (50186),A |
49315 |
LD (50191),A |
49318 |
LD A,(50230) |
49321 |
LD D,A |
49322 |
LD A,(50231) |
49325 |
SUB D |
49326 |
LD L,A |
49327 |
LD (50185),A |
49330 |
LD A,(50228) |
49333 |
AND 252 |
49335 |
LD B,A |
49336 |
LD A,(50230) |
49339 |
LD C,A |
49340 |
LD (50202),A |
49343 |
LD C,72 |
49345 |
SUB C |
49346 |
LD C,A |
49347 |
CALL 49716 |
49350 |
LD A,(50228) |
49353 |
LD (50232),A |
49356 |
LD A,(50230) |
49359 |
LD (50234),A |
49362 |
LD A,(50215) |
49365 |
AND A |
49366 |
JP Z,49378 |
49369 |
CALL 49570 |
49372 |
CALL 49612 |
49375 |
JP 49384 |
49378 |
CALL 49612 |
49381 |
CALL 49570 |
49384 |
LD A,(50230) |
49387 |
CALL Screen_Calc |
49390 |
LD A,(50228) |
49393 |
SRL A |
49395 |
SRL A |
49397 |
LD E,A |
49398 |
LD D,0 |
49400 |
ADD HL,DE |
49401 |
EX DE,HL |
49402 |
LD HL,63280 |
49405 |
CALL 50148 |
49408 |
RET |