Routines
Prev: 26190 Up: Map Next: 26361
26192: Routine at 6650
Used by the routines at 27308, 27648 and 28184.
26192 LD HL,(30743) HL=*30743.
26195 LD A,(30745) Jump to 26215 if *30745 is not zero.
26198 AND A
26199 JR NZ,26215
26201 LD A,L Jump to 26209 if L is not zero.
26202 AND A
26203 JR NZ,26209
26205 LD A,H H-=5.
26206 SUB 5
26208 LD H,A
26209 DEC L Decrease L by one.
26210 LD (30743),HL Write HL to *30743.
26213 LD A,8 A=8.
26215 DEC A Decrease A by one.
26216 LD (30745),A Write A to *30745.
26219 LD D,H D=H.
26220 LD E,L E=L.
26221 LD B,255 B=255.
26223 CALL 25956 Call 25956.
26226 LD HL,16384 HL=16384 (screen buffer).
26229 LD D,H D=H.
26230 LD E,L E=L.
26231 EXX Switch to the shadow registers.
26232 LD A,(DE) A=*DE.
26233 INC E Increment E by one.
26234 LD L,A L=A.
26235 LD H,31 H=31.
26237 ADD HL,HL HL+=HL.
26238 ADD HL,HL HL+=HL.
26239 EXX Switch to the shadow registers.
26240 LD B,4 B=4.
26242 EXX Switch to the shadow registers.
26243 LD A,(HL) A=*HL.
26244 INC L Increment L by one.
26245 EXX Switch to the shadow registers.
26246 RRD RRD.
26248 INC L Increment L by one.
26249 RRD RRD.
26251 INC L Increment L by one.
26252 RRD RRD.
26254 INC L Increment L by one.
26255 RRD RRD.
26257 INC L Increment L by one.
26258 RRD RRD.
26260 INC L Increment L by one.
26261 RRD RRD.
26263 INC L Increment L by one.
26264 RRD RRD.
26266 INC L Increment L by one.
26267 RRD RRD.
26269 INC L Increment L by one.
26270 RRD RRD.
26272 INC L Increment L by one.
26273 RRD RRD.
26275 INC L Increment L by one.
26276 RRD RRD.
26278 INC L Increment L by one.
26279 RRD RRD.
26281 INC L Increment L by one.
26282 RRD RRD.
26284 INC L Increment L by one.
26285 RRD RRD.
26287 INC L Increment L by one.
26288 RRD RRD.
26290 INC L Increment L by one.
26291 RRD RRD.
26293 INC L Increment L by one.
26294 RRD RRD.
26296 INC L Increment L by one.
26297 RRD RRD.
26299 INC L Increment L by one.
26300 RRD RRD.
26302 INC L Increment L by one.
26303 RRD RRD.
26305 INC L Increment L by one.
26306 RRD RRD.
26308 INC L Increment L by one.
26309 RRD RRD.
26311 INC L Increment L by one.
26312 RRD RRD.
26314 INC L Increment L by one.
26315 RRD RRD.
26317 INC L Increment L by one.
26318 RRD RRD.
26320 INC L Increment L by one.
26321 RRD RRD.
26323 INC L Increment L by one.
26324 RRD RRD.
26326 INC L Increment L by one.
26327 RRD RRD.
26329 INC L Increment L by one.
26330 RRD RRD.
26332 INC L Increment L by one.
26333 RRD RRD.
26335 INC L Increment L by one.
26336 RRD RRD.
26338 INC L Increment L by one.
26339 RRD RRD.
26341 LD L,E L=E.
26342 INC H Increment H by two.
26343 INC H
26344 DJNZ 26242 Decrease counter by one and loop back to 26242 until counter is zero.
26346 LD A,32 E+=32.
26348 ADD A,E
26349 LD E,A
26350 LD L,A L=A.
26351 JR NC,26355 Jump to 26355 if {} is higher.
26353 LD D,72 D=72.
26355 LD H,D H=D.
26356 EXX Switch to the shadow registers.
26357 DJNZ 26232 Decrease counter by one and loop back to 26232 until counter is zero.
26359 EXX Switch to the shadow registers.
26360 RET Return.
Prev: 26190 Up: Map Next: 26361