Prev: 90E2 Up: Map Next: 9229
910C: Routine at 910C
Used by the routine at StartGame.
910C DI Disable interrupts.
910D LD IX,$90B4 IX=90B4.
9111 LD HL,$B7EE HL=B7EE.
9114 LD DE,$90E2 DE=90E2.
9117 LD B,$03 B=03.
9119 LD A,(HL) A=*HL.
911A RRA RRA.
911B RRA RRA.
911C RRA RRA.
911D RRA RRA.
911E AND %00001111 Keep only bits 0-3.
9120 LD (DE),A Write A to *DE.
9121 INC DE Increment DE by one.
9122 LD A,(HL) A=*HL.
9123 AND %00001111 Keep only bits 0-3.
9125 LD (DE),A Write A to *DE.
9126 INC DE Increment DE by one.
9127 DEC HL Decrease HL by one.
9128 DJNZ $9119 Decrease counter by one and loop back to 9119 until counter is zero.
912A LD IY,$90E2 IY=90E2.
912E LD D,$0B D=0B.
9130 LD B,$06 B=06.
9132 PUSH IY Stash IY on the stack.
9134 PUSH IX Stash IX on the stack.
9136 LD A,(IX+$00) A=*IX+00.
9139 CP (IY+$00)
913C JR C,$9150 Jump to 9150 if {} is lower.
913E JR NZ,$9146 Jump to 9146 if {} is not zero.
9140 INC IX Increment IX by one.
9142 INC IY Increment IY by one.
9144 DJNZ $9136 Decrease counter by one and loop back to 9136 until counter is zero.
9146 POP IX Restore IX from the stack.
9148 POP IY Restore IY from the stack.
914A LD A,D A=D.
914B CP $0B Return if A equals 0B.
914D RET Z
914E JR $915E Jump to 915E.
9150 DEC D Decrease D by one.
9151 POP IX Restore IX from the stack.
9153 POP IY Restore IY from the stack.
9155 LD BC,$FFEE BC=FFEE.
9158 ADD IX,BC IX+=BC.
915A LD A,D A=D.
915B DEC A Decrease A by one.
915C JR NZ,$9130 Jump to 9130 if A is not zero.
915E LD A,$0A A=0A.
9160 SUB D A-=D.
9161 JR Z,$9179 Jump to 9179 if A is zero.
9163 LD DE,$90C1 DE=90C1.
9166 LD HL,$90AF HL=90AF.
9169 LD BC,$000E BC=000E.
916C LDDR LDDR.
916E DEC HL Decrease HL by four.
916F DEC HL
9170 DEC HL
9171 DEC HL
9172 DEC DE Decrease DE by four.
9173 DEC DE
9174 DEC DE
9175 DEC DE
9176 DEC A Decrease A by one.
9177 JR NZ,$9169 Jump to 9169 until A is zero.
9179 LD DE,$0012 DE=0012.
917C ADD IX,DE IX+=DE.
917E PUSH IX Stash IX on the stack.
9180 POP DE Restore DE from the stack.
9181 LD HL,$90E2 HL=90E2.
9184 LD BC,$0006 BC=0006.
9187 LDIR LDIR.
9189 LD C,$26 C=26.
918B LD (IX+$09),$0A Write 09 to *IX+09.
918F LD (IX+$0A),C Write C to *IX+0A.
9192 LD (IX+$0B),C Write C to *IX+0B.
9195 LD (IX+$0C),C Write C to *IX+0C.
9198 LD (IX+$0D),C Write C to *IX+0D.
919B CALL $97AD Call 97AD.
919E CALL $97BC Call 97BC.
91A1 CALL $926B Call 926B.
91A4 LD A,($B7E6) A=*B7E6.
91A7 INC A Increment A by one.
91A8 LD ($90F5),A Write A to *90F5.
91AB LD DE,$90E8 DE=90E8.
91AE CALL PrintLine Call PrintLine.
91B1 CALL PrintLine Call PrintLine.
91B4 PUSH IX Stash IX on the stack.
91B6 POP HL Restore HL from the stack.
91B7 DEC HL Decrease HL by four.
91B8 DEC HL
91B9 DEC HL
91BA DEC HL
91BB LD ($9229),HL Write HL to *9229.
91BE LD B,$05 B=05.
91C0 LD C,$0A C=0A.
91C2 PUSH BC Stash BC on the stack.
91C3 CALL $A1DB Call A1DB.
91C6 LD A,($8ED9) A=*8ED9.
91C9 AND %00010011 Keep only bits 0-1, 4.
91CB JR Z,$91C3 Jump to 91C3 if A is zero.
91CD BIT 4,A Jump to 91FF if bit 4 of A is set.
91CF JR NZ,$91FF
91D1 CP $03 Jump to 91C3 if A is equal to 03.
91D3 JR Z,$91C3
91D5 POP BC Restore BC from the stack.
91D6 RRA RRA.
91D7 JR NC,$91E3 Jump to 91E3 if {} is higher.
91D9 INC C Increment C by one.
91DA LD A,C A=C.
91DB CP $28 Jump to 91EA if A is not equal to 28.
91DD JR NZ,$91EA
91DF LD C,$00 C=00.
91E1 JR $91EA Jump to 91EA.
91E3 DEC C Decrease C by one.
91E4 BIT 7,C Jump to 91EA if bit 7 of C is not set.
91E6 JR Z,$91EA
91E8 LD C,$27 C=27.
91EA LD (IX+$09),C Write C to *IX+09.
91ED PUSH BC Stash BC on the stack.
91EE LD DE,($9229) DE=*9229.
91F2 CALL PrintLine Call PrintLine.
91F5 CALL $C159 Call C159.
91F8 LD D,$20 D=20.
91FA CALL $97D3 Call 97D3.
91FD JR $91C3 Jump to 91C3.
91FF CALL $C168 Call C168.
9202 POP BC Restore BC from the stack.
9203 DEC B Decrease B by one.
9204 JR Z,$9221 Jump to 9221 if B is zero.
9206 INC IX Increment IX by one.
9208 LD (IX+$09),$0A Write 09 to *IX+09.
920C PUSH BC Stash BC on the stack.
920D LD DE,($9229) DE=*9229.
9211 CALL PrintLine Call PrintLine.
9214 CALL $A1DB Call A1DB.
9217 LD A,($8ED9) A=*8ED9.
921A AND %00010000 Keep only bits 4.
921C JR NZ,$9214 Jump to 9214 if A is not zero.
921E POP BC Restore BC from the stack.
921F JR $91C0 Jump to 91C0.
9221 CALL $926B Call 926B.
9224 LD B,$0A B=0A.
9226 JP $B7DC Jump to B7DC.
Prev: 90E2 Up: Map Next: 9229