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 APPE;Vr#(+CRs\ fAsW5k;3*~S*~#3\17%2?(w\1fA3WP2\17H7K\14sW\ 23&\ 17\12\ 37\ f\ 2r?(3w\10wSQ6\ f8v\17(\0 \10RNISHED TO THE PURCHASER | |
12 | /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED | |
13 | /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH | |
14 | /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. | |
15 | / | |
16 | /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE | |
17 | /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY | |
18 | /DIGITAL. | |
19 | / | |
20 | / | |
21 | / | |
22 | ||
23 | \f | |
24 | /VERSION=V3A (D.H.) | |
25 | \f/2 CCL MESSAGE PRINTER | |
26 | .EXTERNAL TWAIT,BATCH | |
27 | ||
28 | T=20 | |
29 | BATOUT=7400 /JMS HERE TO PRINT ON BATCH LOG | |
30 | BATERR=7000 /JMP HERE TO ABORT BATCH | |
31 | NAME1=23 | |
32 | NAME2=24 | |
33 | NAME3=25 | |
34 | NAME4=26 | |
35 | NAME5=27 | |
36 | ||
37 | .GLOBAL PRMESG,PRWD,PRNAME,PRINT,CRLF | |
38 | .GLOBAL LEAVE | |
39 | \f .RSECT CCLMSG | |
40 | ||
41 | FIELD 1 | |
42 | ||
43 | PRMESG, 0 | |
44 | CLA | |
45 | TAD I PRMESG | |
46 | DCA TE2 | |
47 | JMS PRINT | |
48 | TE2, HLT | |
49 | LEAVE, JMS I (TWAIT | |
50 | /V3D TCF | |
51 | CIF CDF 0 | |
52 | TAD FATALFLG | |
53 | SNA CLA | |
54 | JMP I (7605 | |
55 | FATALFLG,0 /CIF CDF BATCH FIELD IF WANT TO ABORT | |
56 | JMP I (BATERR | |
57 | ||
58 | PRWD, 0 | |
59 | DCA T | |
60 | TAD T | |
61 | TTY212, RTR | |
62 | RTR | |
63 | RTR | |
64 | JMS PCHAR | |
65 | TAD T | |
66 | JMS PCHAR | |
67 | JMP I PRWD | |
68 | ||
69 | PCHAR, 0 | |
70 | AND (77 | |
71 | TNOP, SNA | |
72 | JMP I PCHAR /IGNORE NULLS | |
73 | TAD (240 | |
74 | AND (77 | |
75 | TAD (240 /CAN'T USE 'TTY240' | |
76 | JMS TYPE | |
77 | JMP I PCHAR | |
78 | \fTE, | |
79 | PRNAME, 0 | |
80 | TAD NAME1 | |
81 | JMS PRWD | |
82 | TAD NAME2 | |
83 | JMS PRWD | |
84 | TAD NAME3 | |
85 | JMS PRWD | |
86 | TAD NAME4 | |
87 | SNA CLA | |
88 | JMP I PRNAME | |
89 | TAD (256 | |
90 | JMS PCHAR | |
91 | TAD NAME4 | |
92 | JMS PRWD | |
93 | / TAD NAME5 | |
94 | / SZA | |
95 | / JMS PRWD | |
96 | JMP I PRNAME | |
97 | \fTYPE, 0 | |
98 | / SNA | |
99 | / JMP I TYPE /CAN REMOVE IF NEED ROOM | |
100 | DCA TE2 | |
101 | JMS I (BATCH | |
102 | JMP TTYOUT | |
103 | DCA CIFB | |
104 | CIFB, HLT /REPLACED BY CIF BATCH FIELD | |
105 | TAD TE2 | |
106 | JMS I (BATOUT | |
107 | TAD TE2 | |
108 | TAD (-"# | |
109 | SZA CLA | |
110 | JMP I TYPE | |
111 | TAD CIFB | |
112 | IAC /CONVERT CIF TO CIF CDF | |
113 | DCA FATALFLG | |
114 | JMP I TYPE | |
115 | ||
116 | TTYOUT, TAD TE2 | |
117 | TAD (-"# /DON'T TYPE #'S | |
118 | SNA CLA | |
119 | JMP I TYPE | |
120 | TAD T7600 | |
121 | KRS | |
122 | TAD (-7603 | |
123 | SNA | |
124 | JMP LEAVE | |
125 | TAD (203-217 | |
126 | SNA CLA | |
127 | JMP I TYPE | |
128 | TAD TE2 | |
129 | TJUMP, JMP .+3 | |
130 | TSF | |
131 | JMP .-1 | |
132 | TLS | |
133 | T7600, 7600 | |
134 | TAD TNOP | |
135 | DCA TJUMP | |
136 | JMP I TYPE | |
137 | \fPRINT, 0 | |
138 | DCA CRLF /AC NON-0 MEANS DON'T CRLF | |
139 | TAD I PRINT | |
140 | ISZ PRINT | |
141 | DCA TE | |
142 | TAD CRLF | |
143 | SPA CLA | |
144 | TAD (TYPE-PRWD | |
145 | TAD (PRWD | |
146 | DCA PROUT | |
147 | 1$: TAD I TE | |
148 | JMS I PROUT | |
149 | TAD I TE | |
150 | ISZ TE | |
151 | AND (77 | |
152 | SZA CLA | |
153 | JMP 1$ | |
154 | CLA IAC | |
155 | AND CRLF | |
156 | SNA CLA | |
157 | JMS CRLF | |
158 | JMP I PRINT | |
159 | ||
160 | PROUT, PRWD | |
161 | \fCRLF, 0 | |
162 | TAD (215 | |
163 | JMS TYPE | |
164 | TAD TTY212 | |
165 | JMS TYPE | |
166 | JMP I CRLF | |
167 | PAGE | |
168 | \f |