Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | / |
2 | / | |
3 | / | |
4 | /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION | |
5 | / | |
6 | / | |
7 | / | |
8 | /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE | |
9 | /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT | |
10 | /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY | |
11 | /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. | |
12 | / | |
13 | /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER | |
14 | /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED | |
15 | /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH | |
16 | /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. | |
17 | / | |
18 | /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE | |
19 | /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY | |
20 | /DIGITAL. | |
21 | / | |
22 | / | |
23 | / | |
24 | ||
25 | \f | |
26 | /VERSION=V3A (D.H.) | |
27 | \f/1 CCL RUN COMMAND | |
28 | ||
29 | .RSECT CCLRUN | |
30 | FIELD 1 | |
31 | ||
32 | .ENTRY MONFIX,MONRES | |
33 | .EXTERNAL RDMON,PRMESG | |
34 | .EXTERNAL F1,F2,LO1,LO2 | |
35 | .EXTERNAL YLOAD,YLOADER,YF4,YFORT | |
36 | .EXTERNAL LOOK | |
37 | .EXTERNAL BLK,IOERR | |
38 | PRQMRK==1357 | |
39 | CCLBLK=67 | |
40 | DEASADR=427 | |
41 | CCLSW=435 | |
42 | GETCCL=1362 | |
43 | .EXTERNAL YCCL | |
44 | OS78BIT=7771 | |
45 | ||
46 | MONFIX, JMS I (RDMON | |
47 | CDF 0 | |
48 | TAD I ZERO | |
49 | TAD (-7607 | |
50 | SNA CLA | |
51 | JMP I (CCER3 /ALWAYS WRITE OUT CCL BLOCK | |
52 | CDF 10 | |
53 | CIF 0 | |
54 | JMS I L7607 | |
55 | 4200 /WRITE 1 RECORD FROM FIELD 0 | |
56 | 400 /LOCATIONS 400-777 | |
57 | CCLBLK /INTO THE SYSTEM'S CCL BLOCK | |
58 | JMP I (IOERR | |
59 | CDF 0 | |
60 | TAD I (2000+CCLSW | |
61 | TAD XXX | |
62 | SNA | |
63 | JMP OK$ | |
64 | TAD XXX2 | |
65 | SZA CLA | |
66 | JMP I (CCER3 | |
67 | / CIF CDF 0 | |
68 | / JMP I L7605 | |
69 | OK$: TAD (GETCCL | |
70 | DCA I (2000+CCLSW | |
71 | STA | |
72 | DCA I (2000+DEASADR /DELETE DEASSIGN | |
73 | JMS WRMON | |
74 | IFZERO 1 < | |
75 | JMS I (LOOK | |
76 | YFORT /LOOK FOR FORT.SV | |
77 | TAD XXX3 /NOT FOUND, USE F4 | |
78 | TAD (YFORT /FOUND USE IT | |
79 | DCA I (F1 | |
80 | TAD I (F1 | |
81 | DCA I (F2 | |
82 | TAD I (F1 | |
83 | TAD MYFORT | |
84 | SZA CLA | |
85 | TAD XXX4 | |
86 | TAD (YLOADER | |
87 | DCA I (LO1 | |
88 | TAD I (LO1 | |
89 | DCA I (LO2 | |
90 | JMS I (LOOK | |
91 | YCCL | |
92 | JMP I (IOERR /CCL.SV NOT FOUND | |
93 | TAD I (BLK | |
94 | TAD (4 /*3400 IS 4TH BLOCK OF CCL NOT COUNTING CCB | |
95 | DCA B$ | |
96 | CDF 10 | |
97 | CIF 0 | |
98 | JMS I (7607 | |
99 | 4210 /WRITE 1 RECORD FROM FIELD 1 | |
100 | 3400 /LOCS 3400-3777 | |
101 | B$: 0 | |
102 | JMP I (IOERR | |
103 | > | |
104 | CIF CDF 0 | |
105 | JMP I (7605 | |
106 | ||
107 | XXX, -PRQMRK | |
108 | XXX2, PRQMRK-GETCCL | |
109 | IFZERO 1 < | |
110 | MYFORT, -YFORT | |
111 | XXX3, YF4-YFORT | |
112 | XXX4, YLOAD-YLOADER | |
113 | > | |
114 | \fWRMON, 0 | |
115 | CDF 10 | |
116 | CIF 0 | |
117 | JMS I L7607 | |
118 | 4200 | |
119 | 2400 | |
120 | 10 | |
121 | JMP I (IOERR | |
122 | JMP I WRMON | |
123 | ||
124 | ZERO, 0 | |
125 | L7607, 7607 | |
126 | \fMONRES, 0 | |
127 | CDF 0 | |
128 | TAD I (OS78BIT | |
129 | CDF 10 | |
130 | AND (200 | |
131 | SZA CLA | |
132 | JMP ERR | |
133 | JMS I (RDMON | |
134 | CDF 0 | |
135 | TAD (PRQMRK | |
136 | DCA I (2000+CCLSW | |
137 | TAD (-405 | |
138 | DCA I (2000+DEASADR | |
139 | JMS WRMON | |
140 | JMP I MONRES | |
141 | ||
142 | ERR, JMS I (PRMESG | |
143 | .+1 | |
144 | TEXT "#CCL IS THE CONCISE COMMAND LANGUAGE FOR OS/78" | |
145 | \fCCER3, CDF 10 | |
146 | JMS I (PRMESG | |
147 | BADMON | |
148 | BADMON, TEXT /#BAD MONITOR/ | |
149 | PAGE | |
150 | \f |