Routines
Prev: 45330 Up: Map Next: 46230
45331: Handler: Jerusalem
Handler_Jerusalem 45331 LD A,0 Write 0 to *39338.
45333 LD (39338),A
45336 LD A,(29191) Return if *29191 is zero.
45339 CP 0
45341 RET Z
45342 CALL 38425 Call 38425.
45345 LD A,(39333) A=*39333.
45348 LD HL,30718 HL=30718.
45351 AND %00001111 Keep only bits 0-3.
45353 CP (HL) Compare A with *HL.
45354 LD E,0 E=0.
45356 JR NC,Handler_Jerusalem_0 Jump to Handler_Jerusalem_0 if A is higher.
45358 LD E,1 E=1.
Handler_Jerusalem_0 45360 LD HL,(39395) HL=*39395.
45363 LD BC,56 HL+=0056.
45366 ADD HL,BC
45367 LD A,119 Jump to Handler_Jerusalem_1 if H is not equal to 119.
45369 CP H
45370 JR NZ,Handler_Jerusalem_1
45372 LD HL,29248 HL=29248.
Handler_Jerusalem_1 45375 LD (39395),HL Write HL to *39395.
45378 BIT 7,(HL) Test bit 7 of *HL.
45380 JP NZ,Handler_Jerusalem_8 Jump to Handler_Jerusalem_8 if A is not zero.
45383 LD A,(30719) A=*30719.
45386 CP 7 Compare A with 7.
45388 JR Z,Handler_Jerusalem_0 Jump to Handler_Jerusalem_0 if A is zero.
45390 BIT 0,E Test bit 0 of E.
45392 JR Z,Handler_Jerusalem_2 Jump to Handler_Jerusalem_2 if A is zero.
45394 BIT 1,(HL) Test bit 1 of *HL.
45396 JR Z,Handler_Jerusalem_0 Jump to Handler_Jerusalem_0 if A is zero.
45398 LD (HL),129 Write 129 to *HL.
45400 CALL 39245 Call 39245.
45403 LD HL,(39395) HL=*39395.
45406 CALL 37945 Call 37945.
45409 LD HL,30719 HL=30719.
45412 INC (HL) Increment *HL by one.
45413 LD HL,30718 HL=30718.
45416 DEC (HL) Decrease *HL by one.
45417 LD IX,(39395) IX=*39395.
45421 LD E,8 E=8.
45423 JP Handler_Jerusalem_16 Jump to Handler_Jerusalem_16.
Handler_Jerusalem_2 45426 BIT 1,(HL) Test bit 1 of *HL.
45428 JR NZ,Handler_Jerusalem_0 Jump to Handler_Jerusalem_0 if *HL is not zero.
45430 LD (HL),132 Write 132 to *HL.
45432 CALL 37945 Call 37945.
45435 LD HL,30719 HL=30719.
45438 INC (HL) Increment *HL by one.
Handler_Jerusalem_3 45439 CALL 38425 Call 38425.
45442 LD A,(39333) A=*39333.
45445 BIT 0,A Test bit 0 of A.
45447 LD IX,(39395) IX=*39395.
45451 JR Z,Handler_Jerusalem_5 Jump to Handler_Jerusalem_5 if *HL is zero.
45453 LD E,24 E=24.
45455 LD HL,32192 HL=32192.
45458 AND %00111110 Keep only bits 1-5.
45460 JR NZ,Handler_Jerusalem_4 Jump to Handler_Jerusalem_4 if *HL is not zero.
45462 ADD A,32 A+=32.
45464 JR Handler_Jerusalem_7 Jump to Handler_Jerusalem_7.
Handler_Jerusalem_4 45466 CP 62 Compare A with 62.
45468 JR NZ,Handler_Jerusalem_7 Jump to Handler_Jerusalem_7 if A is not zero.
45470 SUB 32 A-=32.
45472 JR Handler_Jerusalem_7 Jump to Handler_Jerusalem_7.
Handler_Jerusalem_5 45474 BIT 5,A Test bit 5 of A.
45476 LD HL,31806 HL=31806.
45479 LD E,16 E=16.
45481 JR NZ,Handler_Jerusalem_6 Jump to Handler_Jerusalem_6 if A is not zero.
45483 LD L,0 L=0.
45485 LD E,0 E=0.
Handler_Jerusalem_6 45487 AND %11000000 Keep only bits 6-7.
Handler_Jerusalem_7 45489 LD C,A C=A.
45490 LD B,0 B=0.
45492 ADD HL,BC HL+=BC.
45493 LD (IX+4),L Write L to *IX+4.
45496 LD (IX+5),H Write H to *IX+5.
45499 LD B,(HL) B=*HL.
45500 INC HL Increment HL by one.
45501 LD C,(HL) C=*HL.
45502 LD A,(BC) A=*BC.
45503 AND %01100010 Keep only bits 1, 5-6.
45505 JR NZ,Handler_Jerusalem_3 Jump to Handler_Jerusalem_3 if HL is not zero.
45507 LD (IX+6),E Write E to *IX+6.
45510 LD A,(39333) A=*39333.
45513 AND %00001111 Keep only bits 0-3.
45515 ADD A,8 A+=8.
45517 LD (IX+7),A Write A to *IX+7.
45520 JP 39209 Jump to 39209.
Handler_Jerusalem_8 45523 CALL 37945 Call 37945.
45526 LD IX,(39395) IX=*39395.
45530 BIT 5,(IX+3) Test bit 5 of *IX+3.
45534 JR Z,Handler_Jerusalem_9 Jump to Handler_Jerusalem_9 if HL is zero.
45536 RES 5,(IX+6) Reset bit 5 of *IX+6.
45540 JP Handler_Jerusalem_17 Jump to Handler_Jerusalem_17.
Handler_Jerusalem_9 45543 LD L,(IX+1) L=*IX+1.
45546 LD H,(IX+2) H=*IX+2.
45549 BIT 2,(IX+0) Test bit 2 of *IX+0.
45553 RES 2,(IX+0) Reset bit 2 of *IX+0.
45557 JR NZ,Handler_Jerusalem_10 Jump to Handler_Jerusalem_10 if HL is not zero.
45559 CALL 38404 Call 38404.
45562 JR NZ,Handler_Jerusalem_10 Jump to Handler_Jerusalem_10 if HL is not zero.
45564 LD (IX+0),0 Write 0 to *IX+0.
45568 CALL 39234 Call 39234.
45571 JP Handler_Jerusalem_13 Jump to Handler_Jerusalem_13.
Handler_Jerusalem_10 45574 DEC (IX+7) Decrease *IX+7 by one.
45577 JP Z,Handler_Jerusalem_14 Jump to Handler_Jerusalem_14 if HL is zero.
45580 CALL 37749 Call 37749.
45583 LD E,A E=A.
45584 AND %01100010 Keep only bits 1, 5-6.
45586 JR NZ,Handler_Jerusalem_11 Jump to Handler_Jerusalem_11 if HL is not zero.
45588 LD (IX+4),L Write L to *IX+4.
45591 LD (IX+5),H Write H to *IX+5.
45594 SET 5,(IX+6) Set bit 5 of *IX+6.
45598 BIT 3,(IX+0) Test bit 3 of *IX+0.
45602 JR Z,Handler_Jerusalem_17 Jump to Handler_Jerusalem_17 if HL is zero.
45604 LD A,(39333) A=*39333.
45607 AND %00000111 Keep only bits 0-2.
45609 CP 6 Compare A with 6.
45611 JR NZ,Handler_Jerusalem_17 Jump to Handler_Jerusalem_17 if A is not zero.
45613 LD A,3 A=3.
45615 AND E Merge the bits from E.
45616 CP 1 Compare A with 1.
45618 JR Z,Handler_Jerusalem_17 Jump to Handler_Jerusalem_17 if A is zero.
45620 RES 3,(IX+0) Reset bit 3 of *IX+0.
45624 CALL 39245 Call 39245.
45627 JR Handler_Jerusalem_17 Jump to Handler_Jerusalem_17.
Handler_Jerusalem_11 45629 AND %01000000 Keep only bits 6.
45631 JR Z,Handler_Jerusalem_12 Jump to Handler_Jerusalem_12 if A is zero.
45633 LD HL,29184 HL=29184.
45636 SET 4,(HL) Set bit 4 of *HL.
Handler_Jerusalem_12 45638 BIT 0,(IX+0) Test bit 0 of *IX+0.
45642 JR NZ,Handler_Jerusalem_14 Jump to Handler_Jerusalem_14 if A is not zero.
45644 LD A,122 Jump to Handler_Jerusalem_14 if *IX+5 is not equal to 122.
45646 CP (IX+5)
45649 JR NZ,Handler_Jerusalem_14
45651 LD (IX+0),2 Write 2 to *IX+0.
45655 LD HL,30718 HL=30718.
45658 INC (HL) Increment *HL by one.
Handler_Jerusalem_13 45659 LD HL,30719 HL=30719.
45662 DEC (HL) Decrease *HL by one.
45663 JP Handler_Jerusalem Jump to Handler_Jerusalem.
Handler_Jerusalem_14 45666 BIT 3,(IX+6) Test bit 3 of *IX+6.
45670 JR NZ,Handler_Jerusalem_15 Jump to Handler_Jerusalem_15 if *HL is not zero.
45672 LD E,8 E=8.
45674 BIT 0,(IX+0) Test bit 0 of *IX+0.
45678 JR NZ,Handler_Jerusalem_16 Jump to Handler_Jerusalem_16 if *HL is not zero.
45680 LD E,24 E=24.
45682 JR Handler_Jerusalem_16 Jump to Handler_Jerusalem_16.
Handler_Jerusalem_15 45684 LD A,(39333) A=*39333.
45687 BIT 4,A Test bit 4 of A.
45689 LD E,0 E=0.
45691 JR NZ,Handler_Jerusalem_16 Jump to Handler_Jerusalem_16 if *HL is not zero.
45693 LD E,16 Write 16 to *IX+6.
Handler_Jerusalem_16 45695 LD (IX+6),E
45698 LD A,(39333) A=*39333.
45701 AND %00001111 Keep only bits 0-3.
45703 ADD A,8 A+=8.
45705 LD (IX+7),A Write A to *IX+7.
Handler_Jerusalem_17 45708 JP 39206 Jump to 39206.
45711 DEFB 31,23,22,23,22,17,22,23
45719 DEFB 22,17,22,17,22,31,23,22
45727 DEFB 30,17,22,31,23,22,17,22
45735 DEFB 17,22,17,22,31,23,22,47
45743 DEFB 21,20,21,19,18,20,21,19
45751 DEFB 18,19,18,28,20,21,20,19
45759 DEFB 18,28,20,21,19,18,19,18
45767 DEFB 19,18,28,20,21,28,63,17
45775 DEFB 22,17,22,17,22,17,22,17
45783 DEFB 22,46,17,22,17,22,17,22
45791 DEFB 17,22,23,22,16,23,22,30
45799 DEFB 17,22,23,47,19,18,19,18
45807 DEFB 19,18,19,18,19,18,36,19
45815 DEFB 18,19,18,19,18,19,18,20
45823 DEFB 21,28,20,21,20,19,18,20
45831 DEFB 21,47,17,22,23,22,30,23
45839 DEFB 22,30,17,22,17,22,17,22
45847 DEFB 30,23,22,23,22,16,23,22
45855 DEFB 30,23,22,23,22,30,17,22
45863 DEFB 47,18,20,21,36,21,20,19
45871 DEFB 18,19,18,19,18,36,21,20
45879 DEFB 21,28,20,21,36,21,20,21
45887 DEFB 20,19,18,79,17,31,17,31
45895 DEFB 17,31,17,31,17,31,17,31
45903 DEFB 17,31,17,31,33,31,17,31
45911 DEFB 33,31,17,31,17,31,17,47
45919 DEFB 19,18,19,18,19,18,19,18
45927 DEFB 19,18,19,18,19,18,19,18
45935 DEFB 19,34,19,18,19,34,19,18
45943 DEFB 19,18,19,18,255,255,255,255
45951 DEFB 159,26,31,27,255,63,26,31
45959 DEFB 27,143,61,255,63,61,143,25
45967 DEFB 29,24,255,63,25,29,24,143
45975 DEFB 26,31,27,255,63,26,31,27
45983 DEFB 255,255,255,255,255,255,255,255
45991 DEFB 207,0,152,240,112,168,48,18
45999 DEFB 80,18,128,18,32,18,168,240
46007 DEFB 18,128,136,224,18,112,168,176
46015 DEFB 18,192,136,160,18,176,168,240
46023 DEFB 112,168,240,112,172,244,116,172
46031 DEFB 244,116,92,61,44,244,20,53
46039 DEFB 52,92,59,44,244,20,51,52
46047 DEFB 172,244,116,172,244,116,172,244
46055 DEFB 116,172,244,116,172,244,116,172
46063 DEFB 244,132,0,253,253,253,253,17
46071 DEFB 252,20,14,72,14,32,14,72
46079 DEFB 14,32,15,72,15,252,252,152
46087 DEFB 0,112,119,116,88,120,95,0
46095 DEFB 0,48,55,52,24,56,31,24
46103 DEFB 8,12,24,24,36,8,0,160
46111 DEFB 144,32,16,32,0,16,0,16
46119 DEFB 0,16,32,16,48,176,96,0
46127 DEFB 0,0,0,0,0,0,5,1
46135 DEFB 0,2,1,6,5,27,212,0
46143 DEFB 128,128,128,0,0,128,208,182
46151 DEFB 0,0,0,0,0,0,0,61
46159 DEFB 64,128,128,0,128,128,128,1
46167 DEFB 1,1,1,1,1,1,255,128
46175 DEFB 128,128,128,128,128,128,255,128
46183 DEFB 128,128,0,0,0,0,0,1
46191 DEFB 1,1,0,0,0,0,0,0
46199 DEFB 0,0,0,73,53,174,255,0
46207 DEFB 0,0,0,0,0,0,255,119
46215 DEFB 64,128,128,128,0,0,128,0
46223 DEFB 0,0,0,0,0,0,0
Prev: 45330 Up: Map Next: 46230