-
Notifications
You must be signed in to change notification settings - Fork 14
/
Copy pathclock.cmp
82 lines (70 loc) · 1.84 KB
/
clock.cmp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
;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
***************