mirror of
https://github.com/historicalsource/checkpoint
synced 2024-04-26 14:09:25 +03:00
83 lines
1.8 KiB
Plaintext
83 lines
1.8 KiB
Plaintext
|
|
;COMPARISON OF PS:<SWG>CLOCK.ZAP.1 AND PS:<SWG>CLOCK.ZAP.3
|
|
;OPTIONS ARE /1
|
|
|
|
**** FILE PS:<SWG>CLOCK.ZAP.1, 1-12 (180)
|
|
?PRG1: EQUAL? C,E \?ELS5
|
|
**** FILE PS:<SWG>CLOCK.ZAP.3, 1-12 (180)
|
|
?PRG1: EQUAL? C,E \?ELS4
|
|
***************
|
|
|
|
**** FILE PS:<SWG>CLOCK.ZAP.1, 1-17 (295)
|
|
?ELS5: GET C,C-RTN
|
|
**** FILE PS:<SWG>CLOCK.ZAP.3, 1-17 (295)
|
|
?ELS4: GET C,C-RTN
|
|
***************
|
|
|
|
**** FILE PS:<SWG>CLOCK.ZAP.1, 1-29 (523)
|
|
IGRTR? 'MOVES,59 \?CND5
|
|
**** FILE PS:<SWG>CLOCK.ZAP.3, 1-29 (523)
|
|
IGRTR? 'MOVES,59 \?CND3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>CLOCK.ZAP.1, 1-31 (564)
|
|
IGRTR? 'SCORE,23 \?CND5
|
|
**** FILE PS:<SWG>CLOCK.ZAP.3, 1-31 (564)
|
|
IGRTR? 'SCORE,23 \?CND3
|
|
***************
|
|
|
|
**** FILE PS:<SWG>CLOCK.ZAP.1, 1-33 (605)
|
|
?CND5: PUSH C-INTS
|
|
**** FILE PS:<SWG>CLOCK.ZAP.3, 1-33 (605)
|
|
?CND3: PUSH C-INTS
|
|
***************
|
|
|
|
**** FILE PS:<SWG>CLOCK.ZAP.1, 1-36 (676)
|
|
?PRG16: EQUAL? C,E \?ELS20
|
|
**** FILE PS:<SWG>CLOCK.ZAP.3, 1-36 (676)
|
|
?PRG10: EQUAL? C,E \?ELS13
|
|
***************
|
|
|
|
**** FILE PS:<SWG>CLOCK.ZAP.1, 1-38 (717)
|
|
?ELS20: GET C,C-ENABLED?
|
|
ZERO? STACK /?CND18
|
|
**** FILE PS:<SWG>CLOCK.ZAP.3, 1-38 (717)
|
|
?ELS13: GET C,C-ENABLED?
|
|
ZERO? STACK /?CND12
|
|
***************
|
|
|
|
**** FILE PS:<SWG>CLOCK.ZAP.1, 1-41 (786)
|
|
ZERO? TICK \?ELS25
|
|
JUMP ?CND18
|
|
?ELS25: SUB TICK,1
|
|
**** FILE PS:<SWG>CLOCK.ZAP.3, 1-41 (786)
|
|
ZERO? TICK \?ELS16
|
|
JUMP ?CND12
|
|
?ELS16: SUB TICK,1
|
|
***************
|
|
|
|
**** FILE PS:<SWG>CLOCK.ZAP.1, 1-45 (862)
|
|
GRTR? TICK,1 /?CND23
|
|
**** FILE PS:<SWG>CLOCK.ZAP.3, 1-45 (862)
|
|
GRTR? TICK,1 /?CND15
|
|
***************
|
|
|
|
**** FILE PS:<SWG>CLOCK.ZAP.1, 1-48 (917)
|
|
ZERO? VAL /?CND23
|
|
ZERO? FLG /?THN36
|
|
EQUAL? VAL,M-FATAL \?CND18
|
|
?THN36: SET 'FLG,VAL
|
|
?CND23:
|
|
?CND18: ADD C,C-INTLEN >C
|
|
JUMP ?PRG16
|
|
**** FILE PS:<SWG>CLOCK.ZAP.3, 1-48 (917)
|
|
ZERO? VAL /?CND15
|
|
ZERO? FLG /?THN21
|
|
EQUAL? VAL,M-FATAL \?CND12
|
|
?THN21: SET 'FLG,VAL
|
|
?CND15:
|
|
?CND12: ADD C,C-INTLEN >C
|
|
JUMP ?PRG10
|
|
***************
|
|
|