4 /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
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.
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.
18 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
19 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
27 \f/2 CCL INDIRECT COMMAND FILE PROCESSOR
31 .EXTERNAL BEGLN,GETSPC,ASSIGN,SETEXT,EXTCM
33 .EXTERNAL DEFALT,LOOKUP,ASADR,LNAME
35 .EXTERNAL OUTSW,OUTLIM
67 JMP I (ATERR /IF NO FILESPEC AFTER @, ERROR
69 TAD I (LNAME /GET BLOCK NUMBER
74 NWB, BFR+200 /INTO BUFFER
76 BLN, 0 /FROM THIS BLOCK
77 JMP I (ATERR / I/O ERROR
110 / JMP I (LEAVE /LEAVE BECAUSE LINE NOW EMPTY
112 DCA I (OUTSW /LOAD HANDLER
125 DONB, 0 /USED AS A FLAG
131 JMP CTZ /END AT 0 OR ^Z
135 TAD (32-16 /IGNORE CR,LF,FF,VT
140 TAD (212 /FORCE 8-BIT
151 DCA LXR /INCASE @ GOES TO EOL
152 JMS I (GLXR /SEARCH FOR EOL
161 TAD (BFR /GET LENGTH OF INSERTED STUFF
164 TAD I ATEND /GET NEXT CHAR AFTER FILESPEC
167 SZA CLA /IS IT AN APOSTROPHE?
170 ISZ ATEND /MAKE IT GO AWAY
172 JMS I (MOVE /MOVE REST OF LINE UP
174 ATEND, 0 /FIRST CHAR POSITION AFTER @ SPEC
177 TAD NEWLEN /IF 0, 'MOVE' WILL IGNORE IT
178 JMS I (MOVE /MOVE IN NEW STUFF
193 JMS I (MOVE /MOVE BACK END
197 NEWEND, 0 /FIRST POSITION AFTER NEW STUFF
198 JMP I (ATMORE /LOOK FOR MORE
201 \fATOVER, JMS I (PRMESG
203 ENDLEN, 0 /- NO. OF CHARS AT END INCLUDING 0
204 NEWLEN, 0 /- NO. OF CHARS BEING INSERTED
210 \fATIO, TEXT /#BAD FILENAME OR ERROR READING INDIRECT FILE/
211 OVFLOW, TEXT /#COMMAND LINE OVERFLOW/