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/3 CCL SIMPLE COMMAND SUBROUTINES
29 .EXTERNAL REMD,REGO,FLAG,FOREVER,REMEM,PRMESG
31 .GLOBAL USRSUB,BASUB,DEASSIGN
32 .EXTERNAL ASSIGN,FUDG,DVICE,LOOK,PRINT
33 .ENTRY VERTN /CALLED INDEPENDENTLY BY CCL
34 .GLOBAL CRSUB,EDSUB,ZERSUB
35 .GLOBAL TECSUB,MAKSUB,MNGSUB
36 .GLOBAL SQSUB,KILRT,RENRT,MOVRT
37 .EXTERNAL CDER2,GETSPC,GCH,ZEROCD,LBEGIN
55 \f .SBTTL UA,UB,UC COMMANDS
64 JMP I (REGO /REMEMBERED A NEW LINE
69 TAD (-1 /IN THIS REM-LINE
71 JMS I (FOREVER /NO DATE
75 \f .SBTTL BASIC COMMAND
78 TAD (200 /SET /Q SWITCH
81 \f .SBTTL VERSION COMMAND
84 JMS I (RDMON /READ MONITOR
86 TAD I (2031 /GET PATCH LEVEL
91 TAD I (2000 /GET VERSION #
94 KK7600: 7600 /"0" MEANS OLD
112 \f .SBTTL DEASSIGN COMMAND
114 /ALLOW DEASSIGN FOO ?
138 JMP I CHKSUP /CAN'T SUP IF NO FILENAME
140 JMS I (LOOK /LOOK UP FILE
142 JMP I CHKSUP /NOT FOUND (GOOD)
146 \f .SBTTL ZERO COMMAND
149 SNA CLA /WAS FILENAME SPECIFIED ON ZERO CMD?
150 TAD I KK7600 /OR WAS NO OUT DEVICE SPECIFIED?
152 JMP I (CDER2 /YES... ERROR
153 JMP I ZERSUB /NO, OKAY.
155 CMDERR, JMS I (PRMESG /NOT A LEGAL KEYWORD
158 RENMES, TEXT /FILES RENAMED:/
168 ;TEXT <ALTMODE>"TXT[2:0]"
179 \f .SBTTL MAKE COMMAND
185 "P;"A /KEEP HERE TO MAKE EASY TO PATCH
191 JMP I (CMDERR /DON'T ALLOW MAKE <CR>
209 TAD (-5 /ZERO OPTION TABLE TOO
215 /PUT FOLLOWING CHARS INTO TECO BUFFER VIA TXR
227 \f/MOVE CHARS FROM FIELD 0 LINE BUFFER
228 /FROM SAVLXR+1 TO LXR-1 INCLUSIVE
229 /INTO TECO LINE BUFFER AT 17600
238 JMP I (CDER2 /NO FILE SPEC
249 \f .SBTTL TECO COMMAND
257 TAD (-"< /ALLOW "_" AS WELL AS "<"
265 DCA I LXR /CHANGE < TO 0
288 \f .SBTTL MUNG COMMAND
291 AND (177 /TECO LIKES 7-BIT
295 TAD (-7646 /CHECK FOR OVERFLOW OF CD AREA
315 L$: STL CLA RAR /PREVENT 'GCH' FROM HANDLING SPACE AND /
317 AND (177 /GET RID OF HIGH ORDER BIT
322 F$: PUT "$MY" /MACRO GETS CALLED WITH POINTER PAST CHARS
325 \f/SET DEFAULT EXTENSION
332 DCA 2$ /FALL THRU 2ND EXT
338 TAD I TYR /GET LAST CHAR (NO EXT)
339 TAD (-56 /WAS IT A DOT?
342 JMS I (TECPUT /NO, USE DEFAULT EXTENSION
375 TOOLNG, TEXT /#COMMAND TOO LONG/
376 \fCCSUB, 0 /USED TO FORCE THIS OVERLAY IN
379 \f .SBTTL CREATE COMMAND
383 SNA CLA /BETTER BE NO INPUT
384 TAD I K7600 /ANYTHING THERE?
386 JMP I (CDER2 /NO OUTPUT OR YES INPUT
387 JMS EDSUB /REMOVE BACK-ARROW AND REMEMBER CREATE LINE
389 \f .SBTTL EDIT COMMAND
393 DCA I ARLOC /REPLACE ARROW BY NULL
395 JMS I (REMEM /REMEMBER NEW COMMAND LINE
399 ARLOC, . /LOCATION OF BACK-ARROW IN COMMAND LINE
400 /'.' IS HARMLESS POINTER IN CASE NO ARROW
401 \f .SBTTL SQUISH COMMAND
409 JMS I (BATCH /IS BATCH RUNNING?
411 K7600, 7600 /YES (CLEAR AC)
413 TAD (7647-1 /POINT INTO DEVICE HANDLER RESIDENCY TABLE
415 TAD I T$ /GET HANDLER STARTING ADDRESS
417 SZA CLA /IS SQUISHED DEVICE SYS:?
420 SQWARN /YES, WARN USER
423 \f .SBTTL COPY, MOVE, AND DELETE COMMANDS
426 STL CLA RAR /4000 MEANS NOT PACKED
440 \fVMES, TEXT \OS/8 - KBM V3A - CCL V1A\
444 CCLNUM&77^100+<CCLVER&77>
446 LOVMES, TEXT /NOT WAR?/
447 SUP, TEXT /%SUPERSEDING/
448 ERRCMD, TEXT /#ERROR IN COMMAND/
449 SQWARN, TEXT /%BATCH SQUISHING SYS:!/
450 MOVMES, TEXT /FILES COPIED:/
452 KILMES, TEXT /Files deleted:/