mirror of
https://github.com/historicalsource/checkpoint
synced 2024-04-27 06:29:25 +03:00
184 lines
4.3 KiB
Plaintext
184 lines
4.3 KiB
Plaintext
|
|
;COMPARISON OF PS:<SWG>PLACES.ZAP.1 AND PS:<SWG>PLACES.ZAP.3
|
|
;OPTIONS ARE /1
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-21 (330)
|
|
FIRST? RM >O /?KLU14
|
|
?KLU14: GETP WINNER,P?CAR >CAR
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-21 (330)
|
|
FIRST? RM >O /?KLU8
|
|
?KLU8: GETP WINNER,P?CAR >CAR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-25 (444)
|
|
FSET? O,FLAG \?ELS7
|
|
EQUAL? O,EXCLUDED /?ELS7
|
|
ZERO? STA? \?THN10
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-25 (442)
|
|
FSET? O,FLAG \?ELS5
|
|
EQUAL? O,EXCLUDED /?ELS5
|
|
ZERO? STA? \?THN6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-29 (529)
|
|
EQUAL? STACK,CAR \?ELS7
|
|
?THN10: RETURN O
|
|
?ELS7: NEXT? O >O /?KLU15
|
|
?KLU15: JUMP ?PRG1
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-29 (526)
|
|
EQUAL? STACK,CAR \?ELS5
|
|
?THN6: RETURN O
|
|
?ELS5: NEXT? O >O /?PRG1
|
|
JUMP ?PRG1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-36 (661)
|
|
FIRST? RM >O /?KLU12
|
|
?KLU12:
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-36 (649)
|
|
FIRST? RM >O /?KLU7
|
|
?KLU7:
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-39 (717)
|
|
FSET? O,FLAG \?ELS7
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-39 (703)
|
|
FSET? O,FLAG \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-41 (754)
|
|
EQUAL? STACK,CAR \?ELS7
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-41 (740)
|
|
EQUAL? STACK,CAR \?ELS5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-43 (791)
|
|
?ELS7: NEXT? O >O /?KLU13
|
|
?KLU13: JUMP ?PRG1
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-43 (777)
|
|
?ELS5: NEXT? O >O /?PRG1
|
|
JUMP ?PRG1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-50 (933)
|
|
PTSIZE TBL
|
|
DIV STACK,2
|
|
SUB STACK,1 >SIZE
|
|
?PRG6: GET TBL,CNT >O
|
|
FSET? O,FLAG \?ELS10
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-50 (911)
|
|
CALL RMGL-SIZE,TBL >SIZE
|
|
?PRG5: CALL GET-OBJ,TBL,CNT >O
|
|
FSET? O,FLAG \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-56 (1037)
|
|
?ELS10: IGRTR? 'CNT,SIZE \?PRG6
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-54 (1003)
|
|
?ELS8: IGRTR? 'CNT,SIZE \?PRG5
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-61 (1138)
|
|
FIRST? HERE >O /?KLU14
|
|
?KLU14: GETP WINNER,P?CAR >CAR
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-59 (1103)
|
|
FIRST? HERE >O /?KLU8
|
|
?KLU8: GETP WINNER,P?CAR >CAR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-65 (1256)
|
|
FSET? O,FLAG \?ELS7
|
|
EQUAL? O,NOT1,NOT2 /?ELS7
|
|
ZERO? STA? \?THN10
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-63 (1219)
|
|
FSET? O,FLAG \?ELS5
|
|
EQUAL? O,NOT1,NOT2 /?ELS5
|
|
ZERO? STA? \?THN6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-69 (1342)
|
|
EQUAL? STACK,CAR \?ELS7
|
|
?THN10: RETURN O
|
|
?ELS7: NEXT? O >O /?KLU15
|
|
?KLU15: JUMP ?PRG1
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-67 (1304)
|
|
EQUAL? STACK,CAR \?ELS5
|
|
?THN6: RETURN O
|
|
?ELS5: NEXT? O >O /?PRG1
|
|
JUMP ?PRG1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-76 (1494)
|
|
FIRST? HERE >O /?KLU14
|
|
?KLU14: GETP WINNER,P?CAR >CAR
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-74 (1447)
|
|
FIRST? HERE >O /?KLU8
|
|
?KLU8: GETP WINNER,P?CAR >CAR
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-80 (1612)
|
|
FSET? O,FLAG \?ELS7
|
|
FSET? O,NFLAG /?ELS7
|
|
EQUAL? O,NOT2 /?ELS7
|
|
ZERO? STA? \?THN10
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-78 (1563)
|
|
FSET? O,FLAG \?ELS5
|
|
FSET? O,NFLAG /?ELS5
|
|
EQUAL? O,NOT2 /?ELS5
|
|
ZERO? STA? \?THN6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-85 (1716)
|
|
EQUAL? STACK,CAR \?ELS7
|
|
?THN10: RETURN O
|
|
?ELS7: NEXT? O >O /?KLU15
|
|
?KLU15: JUMP ?PRG1
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-83 (1666)
|
|
EQUAL? STACK,CAR \?ELS5
|
|
?THN6: RETURN O
|
|
?ELS5: NEXT? O >O /?PRG1
|
|
JUMP ?PRG1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-95 (1898)
|
|
EQUAL? PTS,UEXIT \?ELS10
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-93 (1839)
|
|
EQUAL? PTS,UEXIT \?ELS8
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-98 (1950)
|
|
?ELS10: EQUAL? PTS,NEXIT /FALSE
|
|
EQUAL? PTS,FEXIT \?ELS14
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-96 (1890)
|
|
?ELS8: EQUAL? PTS,NEXIT /FALSE
|
|
EQUAL? PTS,FEXIT \?ELS10
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-103 (2051)
|
|
?ELS14: EQUAL? PTS,CEXIT \?ELS16
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-101 (1990)
|
|
?ELS10: EQUAL? PTS,CEXIT \?ELS11
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-109 (2165)
|
|
?ELS16: EQUAL? PTS,DEXIT \FALSE
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-107 (2104)
|
|
?ELS11: EQUAL? PTS,DEXIT \FALSE
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-132 (2559)
|
|
EQUAL? L,DEXIT \?PRG1
|
|
GET TBL,DEXITOBJ >O
|
|
FSET? O,OPENBIT \?PRG1
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-130 (2498)
|
|
EQUAL? L,DEXIT \?CND6
|
|
CALL GET-DOOR-OBJ,TBL >O
|
|
FSET? O,OPENBIT \?CND6
|
|
***************
|
|
|
|
**** FILE PS:<SWG>PLACES.ZAP.1, 1-139 (2713)
|
|
**** FILE PS:<SWG>PLACES.ZAP.3, 1-136 (2655)
|
|
?CND6: JUMP ?PRG1
|
|
***************
|
|
|