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/2 CCL SUBROUTINES PART 2 | |
28 | .ENTRY TRMSUB,REQSUB,CANSUB | |
29 | OS78BIT=7771 | |
30 | .EXTERNAL PRMESG,LOOK,CHAIN,YTERMIN,PRINT,LEAVE | |
31 | ||
32 | .RSECT CCLSB2 | |
33 | FIELD 1 | |
34 | .SBTTL TERMINATE COMMAND | |
35 | ||
36 | TRMSUB, 0 | |
37 | CDF 0 | |
38 | TAD I (OS78BIT | |
39 | CDF 10 | |
40 | AND (200 | |
41 | SNA CLA | |
42 | JMP I TRMSUB /BACKSPACE, NOT TERMINATE | |
43 | JMS I (LOOK /LOOKUP TERMIN.SV | |
44 | YTERMIN | |
45 | SKP CLA | |
46 | JMP I (CHAIN | |
47 | 6073 | |
48 | 6002 | |
49 | CLA STL RAR /JUST IN CASE WE'RE NOT ON A VT-78 | |
50 | JMS I (PRINT | |
51 | BADEV | |
52 | JMP I (LEAVE | |
53 | \fCANSUB, 0 | |
54 | TAD I (7726 | |
55 | AND (4 | |
56 | SNA CLA | |
57 | JMP FOO4 | |
58 | TAD I (7726 | |
59 | AND (7773 | |
60 | DCA I (7726 /TURN OFF SYMBIONT BIT | |
61 | CDF 0 | |
62 | TAD I (7777 | |
63 | RTL | |
64 | SZL CLA | |
65 | JMP 3$ | |
66 | TAD I (7777 | |
67 | AND (7707 | |
68 | DCA I (7777 | |
69 | 3$: CDF 10 | |
70 | STL CLA RAR | |
71 | JMS I (PRINT | |
72 | OFFMSG | |
73 | STL CLA RAR | |
74 | JMS I (PRINT | |
75 | ME2MSG | |
76 | CIF CDF 30 | |
77 | JMP I (3 /GO TO MAGIC SPOT IN SYMBIONT LAND | |
78 | ||
79 | FOO3, STL CLA RAR | |
80 | JMS I (PRINT | |
81 | ALRACT | |
82 | JMP I (LEAVE | |
83 | FOO4, STL CLA RAR | |
84 | JMS I (PRINT | |
85 | NOTACT | |
86 | JMP I (LEAVE | |
87 | PAGE | |
88 | \f .SBTTL REQUEST COMMAND | |
89 | ||
90 | REQSUB, 0 | |
91 | TAD I (7617 | |
92 | AND (17 | |
93 | TAD (7647-1 | |
94 | DCA T | |
95 | TAD I T | |
96 | TAD (-7607 | |
97 | SZA CLA | |
98 | JMP FOO /*** FILE NOT ON SYS: | |
99 | TAD I (7620 | |
100 | DCA BLK | |
101 | CDF 0 | |
102 | TAD I (7777 | |
103 | AND (70 | |
104 | TAD (-20 | |
105 | SNA CLA | |
106 | JMP 1$ | |
107 | RTL | |
108 | SZL CLA | |
109 | JMP FOO2 | |
110 | TAD I (7777 | |
111 | AND (7707 | |
112 | TAD (20 | |
113 | DCA I (7777 | |
114 | 1$: CDF 10 | |
115 | TAD I (7726 | |
116 | AND (4 | |
117 | SZA CLA | |
118 | JMP FOO3 | |
119 | TAD I (7726 | |
120 | AND (7773 | |
121 | TAD (4 | |
122 | DCA I (7726 | |
123 | STL CLA RAR | |
124 | JMS I (PRINT | |
125 | ONMSG | |
126 | STL CLA RAR | |
127 | JMS I (PRINT | |
128 | MEMMSG | |
129 | JMS I (200 /CHAIN TO IT | |
130 | 6 | |
131 | BLK, 0 | |
132 | ||
133 | T, 0 | |
134 | \fFOO, STL CLA RAR | |
135 | JMS I (PRINT | |
136 | SYSMSG | |
137 | JMP I (LEAVE | |
138 | ||
139 | FOO2, CDF 10 | |
140 | STL CLA RAR | |
141 | JMS I (PRINT | |
142 | BATMSG | |
143 | JMP I (LEAVE | |
144 | PAGE | |
145 | \f .ENABLE ASCII | |
146 | SYSMSG, TEXT "#Symbiont must be on SYS:" | |
147 | BATMSG, TEXT "#Cannot start symbiont from BATCH" | |
148 | ONMSG, TEXT "[Starting symbiont]" | |
149 | BADEV, TEXT "#Illegal OS/8 command" | |
150 | OFFMSG, TEXT "[Shutting down symbiont]" | |
151 | NOTACT, TEXT "%No symbiont is active" | |
152 | ALRACT, TEXT "#Request denied - symbiont already running" | |
153 | MEMMSG, TEXT "[12K Memory]" | |
154 | ME2MSG, TEXT "[16K Memory] | |
155 | .ENABLE SIXBIT |