Routines
Prev: B112 Up: Map Next: B496
B113: Handler: Jerusalem
Handler_Jerusalem B113 LD A,$00 Write 00 to *99AA.
B115 LD ($99AA),A
B118 LD A,($7207) Return if *7207 is zero.
B11B CP $00
B11D RET Z
B11E CALL $9619 Call 9619.
B121 LD A,($99A5) A=*99A5.
B124 LD HL,$77FE HL=77FE.
B127 AND %00001111 Keep only bits 0-3.
B129 CP (HL) Compare A with *HL.
B12A LD E,$00 E=00.
B12C JR NC,Handler_Jerusalem_0 Jump to Handler_Jerusalem_0 if A is higher.
B12E LD E,$01 E=01.
Handler_Jerusalem_0 B130 LD HL,($99E3) HL=*99E3.
B133 LD BC,$0038 HL+=0038.
B136 ADD HL,BC
B137 LD A,$77 Jump to Handler_Jerusalem_1 if H is not equal to 77.
B139 CP H
B13A JR NZ,Handler_Jerusalem_1
B13C LD HL,$7240 HL=7240.
Handler_Jerusalem_1 B13F LD ($99E3),HL Write HL to *99E3.
B142 BIT 7,(HL) Test bit 7 of *HL.
B144 JP NZ,Handler_Jerusalem_8 Jump to Handler_Jerusalem_8 if A is not zero.
B147 LD A,($77FF) A=*77FF.
B14A CP $07 Compare A with 07.
B14C JR Z,Handler_Jerusalem_0 Jump to Handler_Jerusalem_0 if A is zero.
B14E BIT 0,E Test bit 0 of E.
B150 JR Z,Handler_Jerusalem_2 Jump to Handler_Jerusalem_2 if A is zero.
B152 BIT 1,(HL) Test bit 1 of *HL.
B154 JR Z,Handler_Jerusalem_0 Jump to Handler_Jerusalem_0 if A is zero.
B156 LD (HL),$81 Write 81 to *HL.
B158 CALL $994D Call 994D.
B15B LD HL,($99E3) HL=*99E3.
B15E CALL $9439 Call 9439.
B161 LD HL,$77FF HL=77FF.
B164 INC (HL) Increment *HL by one.
B165 LD HL,$77FE HL=77FE.
B168 DEC (HL) Decrease *HL by one.
B169 LD IX,($99E3) IX=*99E3.
B16D LD E,$08 E=08.
B16F JP Handler_Jerusalem_16 Jump to Handler_Jerusalem_16.
Handler_Jerusalem_2 B172 BIT 1,(HL) Test bit 1 of *HL.
B174 JR NZ,Handler_Jerusalem_0 Jump to Handler_Jerusalem_0 if *HL is not zero.
B176 LD (HL),$84 Write 84 to *HL.
B178 CALL $9439 Call 9439.
B17B LD HL,$77FF HL=77FF.
B17E INC (HL) Increment *HL by one.
Handler_Jerusalem_3 B17F CALL $9619 Call 9619.
B182 LD A,($99A5) A=*99A5.
B185 BIT 0,A Test bit 0 of A.
B187 LD IX,($99E3) IX=*99E3.
B18B JR Z,Handler_Jerusalem_5 Jump to Handler_Jerusalem_5 if *HL is zero.
B18D LD E,$18 E=18.
B18F LD HL,$7DC0 HL=7DC0.
B192 AND %00111110 Keep only bits 1-5.
B194 JR NZ,Handler_Jerusalem_4 Jump to Handler_Jerusalem_4 if *HL is not zero.
B196 ADD A,$20 A+=20.
B198 JR Handler_Jerusalem_7 Jump to Handler_Jerusalem_7.
Handler_Jerusalem_4 B19A CP $3E Compare A with 3E.
B19C JR NZ,Handler_Jerusalem_7 Jump to Handler_Jerusalem_7 if A is not zero.
B19E SUB $20 A-=20.
B1A0 JR Handler_Jerusalem_7 Jump to Handler_Jerusalem_7.
Handler_Jerusalem_5 B1A2 BIT 5,A Test bit 5 of A.
B1A4 LD HL,$7C3E HL=7C3E.
B1A7 LD E,$10 E=10.
B1A9 JR NZ,Handler_Jerusalem_6 Jump to Handler_Jerusalem_6 if A is not zero.
B1AB LD L,$00 L=00.
B1AD LD E,$00 E=00.
Handler_Jerusalem_6 B1AF AND %11000000 Keep only bits 6-7.
Handler_Jerusalem_7 B1B1 LD C,A C=A.
B1B2 LD B,$00 B=00.
B1B4 ADD HL,BC HL+=BC.
B1B5 LD (IX+$04),L Write L to *IX+04.
B1B8 LD (IX+$05),H Write H to *IX+05.
B1BB LD B,(HL) B=*HL.
B1BC INC HL Increment HL by one.
B1BD LD C,(HL) C=*HL.
B1BE LD A,(BC) A=*BC.
B1BF AND %01100010 Keep only bits 1, 5-6.
B1C1 JR NZ,Handler_Jerusalem_3 Jump to Handler_Jerusalem_3 if HL is not zero.
B1C3 LD (IX+$06),E Write E to *IX+06.
B1C6 LD A,($99A5) A=*99A5.
B1C9 AND %00001111 Keep only bits 0-3.
B1CB ADD A,$08 A+=08.
B1CD LD (IX+$07),A Write A to *IX+07.
B1D0 JP $9929 Jump to 9929.
Handler_Jerusalem_8 B1D3 CALL $9439 Call 9439.
B1D6 LD IX,($99E3) IX=*99E3.
B1DA BIT 5,(IX+$03) Test bit 5 of *IX+03.
B1DE JR Z,Handler_Jerusalem_9 Jump to Handler_Jerusalem_9 if HL is zero.
B1E0 RES 5,(IX+$06) Reset bit 5 of *IX+06.
B1E4 JP Handler_Jerusalem_17 Jump to Handler_Jerusalem_17.
Handler_Jerusalem_9 B1E7 LD L,(IX+$01) L=*IX+01.
B1EA LD H,(IX+$02) H=*IX+02.
B1ED BIT 2,(IX+$00) Test bit 2 of *IX+00.
B1F1 RES 2,(IX+$00) Reset bit 2 of *IX+00.
B1F5 JR NZ,Handler_Jerusalem_10 Jump to Handler_Jerusalem_10 if HL is not zero.
B1F7 CALL $9604 Call 9604.
B1FA JR NZ,Handler_Jerusalem_10 Jump to Handler_Jerusalem_10 if HL is not zero.
B1FC LD (IX+$00),$00 Write 00 to *IX+00.
B200 CALL $9942 Call 9942.
B203 JP Handler_Jerusalem_13 Jump to Handler_Jerusalem_13.
Handler_Jerusalem_10 B206 DEC (IX+$07) Decrease *IX+07 by one.
B209 JP Z,Handler_Jerusalem_14 Jump to Handler_Jerusalem_14 if HL is zero.
B20C CALL $9375 Call 9375.
B20F LD E,A E=A.
B210 AND %01100010 Keep only bits 1, 5-6.
B212 JR NZ,Handler_Jerusalem_11 Jump to Handler_Jerusalem_11 if HL is not zero.
B214 LD (IX+$04),L Write L to *IX+04.
B217 LD (IX+$05),H Write H to *IX+05.
B21A SET 5,(IX+$06) Set bit 5 of *IX+06.
B21E BIT 3,(IX+$00) Test bit 3 of *IX+00.
B222 JR Z,Handler_Jerusalem_17 Jump to Handler_Jerusalem_17 if HL is zero.
B224 LD A,($99A5) A=*99A5.
B227 AND %00000111 Keep only bits 0-2.
B229 CP $06 Compare A with 06.
B22B JR NZ,Handler_Jerusalem_17 Jump to Handler_Jerusalem_17 if A is not zero.
B22D LD A,$03 A=03.
B22F AND E Merge the bits from E.
B230 CP $01 Compare A with 01.
B232 JR Z,Handler_Jerusalem_17 Jump to Handler_Jerusalem_17 if A is zero.
B234 RES 3,(IX+$00) Reset bit 3 of *IX+00.
B238 CALL $994D Call 994D.
B23B JR Handler_Jerusalem_17 Jump to Handler_Jerusalem_17.
Handler_Jerusalem_11 B23D AND %01000000 Keep only bits 6.
B23F JR Z,Handler_Jerusalem_12 Jump to Handler_Jerusalem_12 if A is zero.
B241 LD HL,$7200 HL=7200.
B244 SET 4,(HL) Set bit 4 of *HL.
Handler_Jerusalem_12 B246 BIT 0,(IX+$00) Test bit 0 of *IX+00.
B24A JR NZ,Handler_Jerusalem_14 Jump to Handler_Jerusalem_14 if A is not zero.
B24C LD A,$7A Jump to Handler_Jerusalem_14 if *IX+05 is not equal to 7A.
B24E CP (IX+$05)
B251 JR NZ,Handler_Jerusalem_14
B253 LD (IX+$00),$02 Write 02 to *IX+00.
B257 LD HL,$77FE HL=77FE.
B25A INC (HL) Increment *HL by one.
Handler_Jerusalem_13 B25B LD HL,$77FF HL=77FF.
B25E DEC (HL) Decrease *HL by one.
B25F JP Handler_Jerusalem Jump to Handler_Jerusalem.
Handler_Jerusalem_14 B262 BIT 3,(IX+$06) Test bit 3 of *IX+06.
B266 JR NZ,Handler_Jerusalem_15 Jump to Handler_Jerusalem_15 if *HL is not zero.
B268 LD E,$08 E=08.
B26A BIT 0,(IX+$00) Test bit 0 of *IX+00.
B26E JR NZ,Handler_Jerusalem_16 Jump to Handler_Jerusalem_16 if *HL is not zero.
B270 LD E,$18 E=18.
B272 JR Handler_Jerusalem_16 Jump to Handler_Jerusalem_16.
Handler_Jerusalem_15 B274 LD A,($99A5) A=*99A5.
B277 BIT 4,A Test bit 4 of A.
B279 LD E,$00 E=00.
B27B JR NZ,Handler_Jerusalem_16 Jump to Handler_Jerusalem_16 if *HL is not zero.
B27D LD E,$10 Write 10 to *IX+06.
Handler_Jerusalem_16 B27F LD (IX+$06),E
B282 LD A,($99A5) A=*99A5.
B285 AND %00001111 Keep only bits 0-3.
B287 ADD A,$08 A+=08.
B289 LD (IX+$07),A Write A to *IX+07.
Handler_Jerusalem_17 B28C JP $9926 Jump to 9926.
B28F DEFB $1F,$17,$16,$17,$16,$11,$16,$17
B297 DEFB $16,$11,$16,$11,$16,$1F,$17,$16
B29F DEFB $1E,$11,$16,$1F,$17,$16,$11,$16
B2A7 DEFB $11,$16,$11,$16,$1F,$17,$16,$2F
B2AF DEFB $15,$14,$15,$13,$12,$14,$15,$13
B2B7 DEFB $12,$13,$12,$1C,$14,$15,$14,$13
B2BF DEFB $12,$1C,$14,$15,$13,$12,$13,$12
B2C7 DEFB $13,$12,$1C,$14,$15,$1C,$3F,$11
B2CF DEFB $16,$11,$16,$11,$16,$11,$16,$11
B2D7 DEFB $16,$2E,$11,$16,$11,$16,$11,$16
B2DF DEFB $11,$16,$17,$16,$10,$17,$16,$1E
B2E7 DEFB $11,$16,$17,$2F,$13,$12,$13,$12
B2EF DEFB $13,$12,$13,$12,$13,$12,$24,$13
B2F7 DEFB $12,$13,$12,$13,$12,$13,$12,$14
B2FF DEFB $15,$1C,$14,$15,$14,$13,$12,$14
B307 DEFB $15,$2F,$11,$16,$17,$16,$1E,$17
B30F DEFB $16,$1E,$11,$16,$11,$16,$11,$16
B317 DEFB $1E,$17,$16,$17,$16,$10,$17,$16
B31F DEFB $1E,$17,$16,$17,$16,$1E,$11,$16
B327 DEFB $2F,$12,$14,$15,$24,$15,$14,$13
B32F DEFB $12,$13,$12,$13,$12,$24,$15,$14
B337 DEFB $15,$1C,$14,$15,$24,$15,$14,$15
B33F DEFB $14,$13,$12,$4F,$11,$1F,$11,$1F
B347 DEFB $11,$1F,$11,$1F,$11,$1F,$11,$1F
B34F DEFB $11,$1F,$11,$1F,$21,$1F,$11,$1F
B357 DEFB $21,$1F,$11,$1F,$11,$1F,$11,$2F
B35F DEFB $13,$12,$13,$12,$13,$12,$13,$12
B367 DEFB $13,$12,$13,$12,$13,$12,$13,$12
B36F DEFB $13,$22,$13,$12,$13,$22,$13,$12
B377 DEFB $13,$12,$13,$12,$FF,$FF,$FF,$FF
B37F DEFB $9F,$1A,$1F,$1B,$FF,$3F,$1A,$1F
B387 DEFB $1B,$8F,$3D,$FF,$3F,$3D,$8F,$19
B38F DEFB $1D,$18,$FF,$3F,$19,$1D,$18,$8F
B397 DEFB $1A,$1F,$1B,$FF,$3F,$1A,$1F,$1B
B39F DEFB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
B3A7 DEFB $CF,$00,$98,$F0,$70,$A8,$30,$12
B3AF DEFB $50,$12,$80,$12,$20,$12,$A8,$F0
B3B7 DEFB $12,$80,$88,$E0,$12,$70,$A8,$B0
B3BF DEFB $12,$C0,$88,$A0,$12,$B0,$A8,$F0
B3C7 DEFB $70,$A8,$F0,$70,$AC,$F4,$74,$AC
B3CF DEFB $F4,$74,$5C,$3D,$2C,$F4,$14,$35
B3D7 DEFB $34,$5C,$3B,$2C,$F4,$14,$33,$34
B3DF DEFB $AC,$F4,$74,$AC,$F4,$74,$AC,$F4
B3E7 DEFB $74,$AC,$F4,$74,$AC,$F4,$74,$AC
B3EF DEFB $F4,$84,$00,$FD,$FD,$FD,$FD,$11
B3F7 DEFB $FC,$14,$0E,$48,$0E,$20,$0E,$48
B3FF DEFB $0E,$20,$0F,$48,$0F,$FC,$FC,$98
B407 DEFB $00,$70,$77,$74,$58,$78,$5F,$00
B40F DEFB $00,$30,$37,$34,$18,$38,$1F,$18
B417 DEFB $08,$0C,$18,$18,$24,$08,$00,$A0
B41F DEFB $90,$20,$10,$20,$00,$10,$00,$10
B427 DEFB $00,$10,$20,$10,$30,$B0,$60,$00
B42F DEFB $00,$00,$00,$00,$00,$00,$05,$01
B437 DEFB $00,$02,$01,$06,$05,$1B,$D4,$00
B43F DEFB $80,$80,$80,$00,$00,$80,$D0,$B6
B447 DEFB $00,$00,$00,$00,$00,$00,$00,$3D
B44F DEFB $40,$80,$80,$00,$80,$80,$80,$01
B457 DEFB $01,$01,$01,$01,$01,$01,$FF,$80
B45F DEFB $80,$80,$80,$80,$80,$80,$FF,$80
B467 DEFB $80,$80,$00,$00,$00,$00,$00,$01
B46F DEFB $01,$01,$00,$00,$00,$00,$00,$00
B477 DEFB $00,$00,$00,$49,$35,$AE,$FF,$00
B47F DEFB $00,$00,$00,$00,$00,$00,$FF,$77
B487 DEFB $40,$80,$80,$80,$00,$00,$80,$00
B48F DEFB $00,$00,$00,$00,$00,$00,$00
Prev: B112 Up: Map Next: B496