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/1 CCL SEMICOLON CODE
31 .EXTERNAL PRMESG,YBATCH,ZOW,BEGLN
43 DCA I (7617 /'CCBTCH' IS ON SYS:
46 TAD (20 / ALSO /H (HUSH) OPTION
49 JMP I (ZOW /CHAIN TO BATCH
52 TAD (-42 /AC MAY BE NON-0
56 DCA I XR /ZERO THE COMMAND DECODER OUTPUT AREA
61 \fSEMSG1, TEXT /? ENTER ERROR/
62 SEMSG2, TEXT \?I/O ERROR\
63 SEMSG3, TEXT /?DEVICE FULL/
64 SEMSG4, TEXT /?CLOSE ERROR/
66 \f BATBUF=4400 /LOCATION OF ONE BLOCK BATCH TEMP BUFFER
68 GLINE=1200 /LOCATION FROM KBM
69 CTRLCK=1241 /LOC FROM KBM, PTS TO PLACE TO BRANCH ON ^C
81 BLKLEN, 0 /NEG OF LENGTH
82 JMP SEMER1 /ENTER ERROR
88 DCA I (CTRLCK /FORCE ^C TO GLINE TO GO TO 7600
105 TAD (-"; /LOOK AT LAST CHAR
106 SZA CLA /WAS IT SEMICOLON?
107 JMP BATEND /NO, END OF TEMP BATCH STREAM
109 JMS I (GLIN /YES, READ NEW LINE FROM KEYBOARD
110 /**** WHAT IF WE'RE RUNNING UNDER BATCH ****
134 JMS BATWRIT /WRITE OUT BUFFER IF FULL
142 JMP SEMER2 / I/O ERROR
143 ISZ BATBLK /POINT TO NEXT BLOCK
144 ISZ BATLEN /BUMP LENGTH
147 JMP SEMER3 /DEVICE FULL
160 BATLEN, 0 /LENGTH OF TEMPORARY FILE
161 JMP SEMER4 /CLOSE ERROR
176 SEMER1, JMS I (PRMESG
178 SEMER2, JMS I (PRMESG
180 SEMER3, JMS I (PRMESG
182 SEMER4, JMS I (PRMESG
197 BATHED, TEXT "$JOB"<215><212>"."
198 BATAIL, TEXT ".R FOTP"<215><212>"*SYS:CCBTCH.TM/D$"<215><212>"$END"<215><212><32>
199 TEMNAM, FILENAME CCBTCH.TM