File: CCLAT.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/CCL INDIRECT COMMANDS FOR KBM V MACREL-V2C TUE 02-JUN-92 PAGE 1
FILE # 1
1 /CCL INDIRECT COMMANDS FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
8 /
9 /
10 /
11 /
12 /
13 /
14 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
15 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
16 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
17 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
18 /
19 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
20 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
21 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
22 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
23 /
24 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
25 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
26 /DIGITAL.
27 /
28 /
29 /
30
/CCL INDIRECT COMMANDS FOR KBM V MACREL-V2C TUE 02-JUN-92 PAGE 2
FILE # 1
31
32
33 /2 CCL INDIRECT COMMAND FILE PROCESSOR
34 / VERSION=5A
35
36 .ENTRY AT
37
38 .EXTERNAL SAVL,FUDG
39 .EXTERNAL GETSPC,ASSIGN,SETEXT,EXTCM
40 .EXTERNAL LOOKUP,ASADR,LNAME
41 .EXTERNAL ERROR,MOVE
42
145
146 0000 .RSECT AT1
147 0001 FIELD 1
148
149 10000 0000 AT, 0
150 10001 1377 ATMORE, TAD (BEGLN-1
151 10002 3034 DCA LXR
152 10003 4776 ATLOOP, JMS I (GLXR
153 10004 7450 SNA
154 10005 5600 JMP I AT
155 10006 1375 TAD (-300
156 10007 7640 SZA CLA
157 10010 5203 JMP ATLOOP
158 10011 1034 TAD LXR
159 10012 3774 DCA I (SAVL
160 10013 4773 JMS I (FUDG
161 10014 4772 JMS I (GETSPC
162 10015 4771 JMS I (ASSIGN
163 10016 3770 DCA I (SETEXT
164 10017 1367 TAD (EXTCM
165 10020 3766 DCA I (DEFALT
166 10021 4765 JMS I (LOOKUP
167 10022 7640 SZA CLA /V3C
168 10023 1764 TAD I (ASADR
169 10024 7450 SNA
170 10025 5763 JMP I (ATERR /IF NO FILESPEC AFTER @, ERROR
171 10026 3020 DCA T
172 10027 1762 TAD I (LNAME /GET BLOCK NUMBER
173 10030 3235 DCA BLN
174 10031 6202 CIF 0
175 10032 4420 JMS I T
176 10033 0200 200 /READ 2 PAGES
177 10034 3200 NWB, BFR+200 /INTO BUFFER
178 COUNT,
179 10035 0000 BLN, 0 /FROM THIS BLOCK
180 10036 5763 JMP I (ATERR / I/O ERROR
181 10037 1361 TAD (-200
182 10040 3235 DCA COUNT
183 10041 1360 TAD (BFR-1
184 10042 3016 DCA XR
185 10043 1234 TAD NWB
186 10044 3020 DCA T
187 10045 6201 CDF 0
188 10046 1420 L$: TAD I T
189 10047 4277 JMS P
190 10050 7112 CLL RTR
191 10051 7012 RTR
192 10052 3270 DCA TEMP$
193 10053 2020 ISZ T
194 10054 1420 TAD I T
195 10055 4277 JMS P
196 10056 7106 CLL RTL
197 10057 7006 RTL
198 10060 7004 RAL
199 10061 1270 TAD TEMP$
/CCL INDIRECT COMMANDS FOR KBM V MACREL-V2C TUE 02-JUN-92 PAGE 3-1
FILE # 1
200 10062 4277 JMS P
201 10063 7200 CLA
202 10064 2020 ISZ T
203 10065 2235 ISZ COUNT
204 10066 5246 JMP L$
205 10067 5757 JMP I (ATOVER
206
207 10070 0000 TEMP$: 0
208
209 /ATFIN, TAD LXR
210 / TAD (-BEGLN
211 / SZA CLA
212 / JMP I AT /LEAVE
213 / JMP I (LEAVE /LEAVE BECAUSE LINE NOW EMPTY
/CCL INDIRECT COMMANDS FOR KBM V MACREL-V2C TUE 02-JUN-92 PAGE 4
FILE # 1
214
215
216 10071 0000 GLXR, 0
217 10072 6201 CDF 0
218 10073 2034 ISZ LXR
219 10074 1434 TAD I LXR
220 10075 6211 CDF 10
221 10076 5671 JMP I GLXR
222
223 10077 0000 P, 0
224 10100 0356 AND (177
225 10101 7450 SNA
226 10102 5755 JMP I (CTZ /END AT 0 OR ^Z
227 10103 1354 TAD (-32
228 10104 7450 SNA
229 10105 5755 JMP I (CTZ
230 10106 1353 TAD (32-16 /IGNORE CR,LF,FF,VT
231 10107 7100 CLL
232 10110 1352 TAD (16-12
233 10111 7430 SZL
234 10112 5315 JMP 1$
235 10113 1351 TAD (212 /FORCE 8-BIT
236 10114 3416 DCA I XR
237 10115 7200 1$: CLA
238 10116 1420 TAD I T
239 10117 0350 AND (7400
240 10120 5677 JMP I P
------
10150 7400
10151 0212
10152 0004
10153 0014
10154 7746
10155 0200 +
10156 0177
10157 0272 +
10160 2777
10161 7600
10162 0000 *
10163 0274 +
10164 0000 *
10165 0000 *
10166 0033
10167 0000 *
10170 0000 *
10171 0000 *
10172 0000 *
10173 0000 *
10174 0000 *
10175 7500
10176 0071 +
10177 0777
241 0200 PAGE
/CCL INDIRECT COMMANDS FOR KBM V MACREL-V2C TUE 02-JUN-92 PAGE 5
FILE # 1
242
243
244 10200 6211 CTZ, CDF 10
245 10201 1034 TAD LXR
246 10202 3234 DCA ATEND
247 10203 7240 STA
248 10204 1034 TAD LXR
249 10205 3034 DCA LXR /INCASE @ GOES TO EOL
250 10206 4777 JMS I (GLXR /SEARCH FOR EOL
251 10207 7640 SZA CLA
252 10210 5206 JMP .-2
253 10211 1034 TAD LXR
254 10212 7040 CMA
255 10213 1234 TAD ATEND
256 10214 3270 DCA ENDLEN
257 10215 1016 TAD XR
258 10216 7040 CMA
259 10217 1376 TAD (BFR /GET LENGTH OF INSERTED STUFF
260 10220 3271 DCA NEWLEN
261 10221 6201 CDF 0
262 10222 1634 TAD I ATEND /GET NEXT CHAR AFTER FILESPEC
263 10223 6211 CDF 10 /V3C
264 10224 1375 TAD (-"'
265 10225 7640 SZA CLA /IS IT AN APOSTROPHE?
266 10226 5231 JMP .+3 /NO
267 10227 2270 ISZ ENDLEN /YES
268 10230 2234 ISZ ATEND /MAKE IT GO AWAY
269 10231 1270 TAD ENDLEN
270 10232 4774 JMS I (MOVE /MOVE REST OF LINE UP
271 10233 6201 CDF 0
272 10234 0000 ATEND, 0 /FIRST CHAR POSITION AFTER @ SPEC
273 10235 6201 CDF 0
274 10236 2000 BEGLN+1000
275 10237 1773 TAD I (SAVL
276 10240 3246 DCA XSAVL
277 10241 1271 TAD NEWLEN /IF 0, 'MOVE' WILL IGNORE IT
278 10242 4774 JMS I (MOVE /MOVE IN NEW STUFF
279 10243 6201 CDF 0
280 10244 3000 BFR
281 10245 6201 CDF 0
282 10246 0000 XSAVL, 0 /POINTS TO @
283 10247 1271 TAD NEWLEN
284 10250 7041 CIA
285 10251 1773 TAD I (SAVL
286 10252 3265 DCA NEWEND
287 10253 7100 CLL
288 10254 1265 TAD NEWEND
289 10255 1267 TAD MB
290 10256 7630 SZL CLA
291 10257 5272 JMP ATOVER
292 10260 1270 TAD ENDLEN
293 10261 4774 JMS I (MOVE /MOVE BACK END
294 10262 6201 CDF 0
295 10263 2000 BEGLN+1000
296 10264 6201 CDF 0
/CCL INDIRECT COMMANDS FOR KBM V MACREL-V2C TUE 02-JUN-92 PAGE 5-1
FILE # 1
297 10265 0000 NEWEND, 0 /FIRST POSITION AFTER NEW STUFF
298 10266 5772 JMP I (ATMORE /LOOK FOR MORE
299
300 10267 6000 MB, -BEGLN-1000
/CCL INDIRECT COMMANDS FOR KBM V MACREL-V2C TUE 02-JUN-92 PAGE 6
FILE # 1
301
302
303 10270 0000 ENDLEN, 0 /- NO. OF CHARS AT END INCLUDING 0
304 10271 0000 NEWLEN, 0 /- NO. OF CHARS BEING INSERTED
305
306 10272 4771 ATOVER, JMS I (ERROR
307 10273 0017 15. /#Command line overflow
308 10274 4771 ATERR, JMS I (ERROR
309 10275 0020 16. /#Bad filename or error reading indirect file
------
10371 0000 *
10372 0001 +
10373 0000 *
10374 0000 *
10375 7531
10376 3000
10377 0071 +
310 0400 PAGE
/CCL INDIRECT COMMANDS FOR KBM V MACREL-V2C TUE 02-JUN-92 PAGE 7
SYMBOL TABLE
AMFLAG 0017 GLINE 1200 TT 0021
ASADR X **** GLXR 0071+ AT1 USR 0200
ASSIGN X **** HNDLR 4400 XFERV G 0070
AT E 0000+ AT1 JSBITS 7746 XR 0016
ATEND 0234+ AT1 KEYMON 0403 XR2 0015
ATERR 0274+ AT1 KMNTRY 0400 XSAVL 0246+ AT1
ATLOOP 0003+ AT1 LNAME X ****
ATMORE 0001+ AT1 LONGTB 5000
ATOVER 0272+ AT1 LOOKUP X ****
AT1 0400 RSECT LXR 0034
BATBUF 4400 MB 0267+ AT1
BATCCL 7777 MDATE 7666
BATERR 7000 MIFILE 7617
BATIN 5400 MMISC 7777
BATOUT 7400 MOFILE 7600
BATSPL 7200 MONLOD 7605
BATTBL 6600 MONSAV 7600
BATVFY 5600 MOVE X ****
BEGLN 1000 MPARAM 7643
BFR 3000 MREAD 7757
BLN 0035+ AT1 MSOVL2 0055
CCLBLK 0067 NAME1 0023
CCLDEV 0001 NAME2 0024
CCLHND 0000 NAME3 0025
CCLINC 0054 NAME4 0026
CCLNUM 0265 NAME5 0027
CCLSW 0435 NEWEND 0265+ AT1
CCLTAB 0265 NEWLEN 0271+ AT1
CCLVER 0301 NMBASE 0037
CLXR 0035 NWB 0034+ AT1
COUNT 0035+ AT1 OS78BI 7771
CTRLCK 1241 OV 1375
CTZ 0200+ AT1 P 0077+ AT1
DEASAD 0427 PRMES 0330
DEF 0022 PRQMRK 1357
DEFALT 0033 PTR 0036
DELIM 0032 REMBLO 0065
DEV1 0030 REMSPA 4000
DEV2 0031 REST 5000
DOLFLG 7776 SAVL X ****
DVHNDL 7647 SBLOCK 7776
ENDLEN 0270+ AT1 SCOPE 7726
ERRET 0033 SETEXT X ****
ERROR X **** SHNDLR 7607
EXTCM X **** SM8 6254
EXTTBL 6600 SOFSET 7747
FILDMY 0002 SPLNUM 7777
FILETB 7000 SWSTBL 7360
FLD: 0 0200 ASECT SYBLKN 7774
FUDG X **** SYCNT 7775
F0STUF 7200 SYSTEM 0022
GETCCL 1362 T 0020
GETSPC X **** TBLTBL 6100
GIOT 6770 TESBUF 2000