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 |