Prev: 37261 Up: Map Next: 37414
37268: Routine at 9194
Used by the routine at Initialise_SubGame.
37268 LD DE,6 DE=0006.
37271 LD HL,(39373) HL=*39373.
37274 LD IX,25152 IX=25152.
37278 LD A,(HL) A=*HL.
37279 LD B,A B=A.
37280 SRL B Shift B right two positions.
37282 SRL B
37284 JR Z,37302 Jump to 37302 if HL is zero.
37286 AND %00000011 Keep only bits 0-1.
37288 LD C,A C=A.
37289 SRL C Shift C right.
37291 RLA RLA.
37292 AND %00000011 Keep only bits 0-1.
37294 OR %00000100 Set bits 2.
37296 CALL 37403 Call 37403.
37299 INC HL Increment HL by one.
37300 JR 37278 Jump to 37278.
37302 LD IX,24576 IX=ShadowBuffer.
37306 LD C,7 C=7.
37308 LD A,1 A=1.
37310 LD B,96 B=96.
37312 CALL 37403 Call 37403.
37315 LD IX,28608 IX=28608.
37319 LD B,96 B=96.
37321 CALL 37403 Call 37403.
37324 LD B,18 B=18.
37326 LD IX,25152 IX=25152.
37330 LD DE,192 DE=0192.
37333 LD (IX+0),5 Write 5 to *IX+0.
37337 LD (IX+1),7 Write 7 to *IX+1.
37341 ADD IX,DE IX+=DE.
37343 LD (IX-6),5 Write 5 to *IX+250.
37347 LD (IX-5),7 Write 7 to *IX+251.
37351 DJNZ 37333 Decrease counter by one and loop back to 37333 until counter is zero.
37353 LD IX,28422 IX=28422.
37357 LD BC,4638 BC=4638.
37360 LD DE,65344 DE=65344.
37363 PUSH BC Stash BC on the stack.
37364 PUSH IX Stash IX on the stack.
37366 LD A,6 A=6.
37368 BIT 0,(IX+1) Test bit 0 of *IX+1.
37372 JR NZ,37395 Jump to 37395 if HL is not zero.
37374 LD A,0 A=0.
37376 LD (IX+1),A Write A to *IX+1.
37379 ADD IX,DE IX+=DE.
37381 DJNZ 37368 Decrease counter by one and loop back to 37368 until counter is zero.
37383 POP IX Restore IX from the stack.
37385 LD BC,6 BC=0006.
37388 ADD IX,BC IX+=BC.
37390 POP BC Restore BC from the stack.
37391 DEC C Decrease C by one.
37392 JR NZ,37363 Jump to 37363 if C is not zero.
37394 RET Return.
37395 CP 6 Compare A with 6.
37397 JR Z,37376 Jump to 37376 if A is zero.
37399 ADD A,1 A+=1.
37401 JR 37376 Jump to 37376.
37403 LD (IX+0),A Write A to *IX+0.
37406 LD (IX+1),C Write C to *IX+1.
37409 ADD IX,DE IX+=DE.
37411 DJNZ 37403 Decrease counter by one and loop back to 37403 until counter is zero.
37413 RET Return.
Prev: 37261 Up: Map Next: 37414