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/10 CCL INTERNAL TABLES FOR OS/78
31 .GLOBAL YBATCH,YDATE,YTERMIN
33 .EXTERNAL SETLPT,SETTTY,SETPTP,COLSET
34 .EXTERNAL TECSUB,MAKSUB,MNGSUB
36 .EXTERNAL USRSUB,REQSUB,CANSUB
37 .EXTERNAL MOVRT,KILRT,RENRT
39 .EXTERNAL TRMSUB,BASUB,MONRES,DETCOR,DATE,DEASSIGN,SQSUB,VERTN,ZERSUB
49 .MACRO .BOX COM,SPACES,STARS
67 .MACRO .CMD COMAND,ABBREV,CODE,EXTEN,SWITCH,SUBR,PROGRM,LABEL
68 .BOX COMAND," ","****************"
78 XX="SWITCH[1]&77;YY=<XX-1>%12.;7643+YY;ZZ=XX-<YY^12.>
85 XX="SWITCH[2]&77;YY=<XX-1>%12.;7643+YY;ZZ=XX-<YY^12.>
95 .IF BL LABEL <;.. > /REMOVE IF DON'T WANT MULTIPLE CHARACTER SWITCHES
111 .MACRO .QUAL LONG,SHORT,NAME
114 ;TEXT "LONG[1:6]";"SHORT
130 \f .CMD EXECUTE,EX,5033, EXTEXE, G, EXSUB, PAL8 /MUST BE FIRST FOR TECO EG
132 .CMD BACKSPACE,BA,0, TRMSUB, CAMP
134 .CMD BASIC,BAS,0, BASUB, BASIC
136 .CMD DUPLIC,DU,4001, STAR, , 0, RXCOP
143 .CMD BOOT,BO,0, 0, BOOT
145 .CMD CCL,CCL,0, MONRES,
147 .CMD COMPARE,COMPA,4001, EXTNUL, , SETTTY, SRCCOM
152 .QUAL NOPRINTCOMMENTS,X
154 .CMD COM,COM,5033, EXTCOM, , EXSUB, PAL8
159 .CMD COPY,COP,4001, STAR, L, MOVRT, FOTP
164 .QUAL CURRENT,C,LSTOPT
172 .QUAL INDEPENDENTLY,U
178 .CMD MEMORY,MEM,0, DETCOR,
180 .CMD CREATE,CREA,4400, EXTNUL, , CRSUB, EDIT
183 .CMD CREF,CREF,4002, EXTCF, C, 0, PAL8
193 .CMD DATE,DA,0, DATE,
195 .CMD DELETE,DEL,4001, STAR, LD, KILRT, FOTP,LSTOPT
196 .CMD DEASSIGN,DE,0, DEASSIG,
198 .CMD DIRECT,DIR,4001, STAR, ,COLSET, DIRECT
207 / .QUAL INDEPENDENTLY,U
215 .QUAL COLUMNS,Z /DUMMY
217 .CMD EDIT,ED,5220, EXTNUL, , EDSUB, EDIT
222 \f/ .CMD EOF,EO,0, 0, CAMP
224 .CMD HELP,HE,4001, STAR, T, SETTTY, HELP
226 .CMD LINK,LIN,5033, EXTLI, , EXSUB, LINK
238 .CMD MAC,MAC,5033, EXTMA, , EXSUB, MACREL
245 .QUAL NOCONDITIONALS,J
261 .CMD LIST,LI,4001, STAR, U, SETLPT, FOTP,LSTOPT
262 .CMD LOAD,LO,5031, EXTLO, , EXSUB, ABSLDR
267 / /8 /9 /START:N /FIELD:F /P
269 .CMD MAKE,MAK,0, MAKSUB, TECO
271 .CMD MAP,MAP,4001, EXTBN, , SETTTY, BITMAP
277 .CMD MUNG,MUNG,0, MNGSUB, TECO
279 .CMD PAL,PAL,5033, EXTPA, , EXSUB, PAL8
287 .QUAL NOCONDITIONALS,J
292 .QUAL NOREMEMBERLITERALS,W
297 .CMD PRINT,PRI,4000, STAR, , SETLPT, LPTSPL
299 .CMD PUNCH,PU,4001, EXTNUL, , SETPTP, PIP
311 .CMD RENAME,REN,4001, STAR, LR,RENRT,FOTP,LSTOPT
312 .CMD RESOURCES,RES,4001, EXTSY, , SETTTY, RESORC
318 / .CMD REWIND,REW,0, 0, CAMP
320 .CMD CANCEL,CA,0,CANSUB,
322 .CMD SET,SET,0, 0, SET
324 .CMD SKIP,SK,0, 0, CAMP
326 .CMD SQUISH,SQ,4001, EXTNUL, S, SQSUB, PIP
330 .CMD SUBMIT,SU,4000, EXTBI, , 0, BATCH
342 .CMD TECO,TE,10, TECSUB, TECO
344 .CMD TYPE,TY,4001, STAR, U, SETTTY, FOTP,LSTOPT
345 / .CMD UNLOAD,UN,0, 0, CAMP
347 .CMD REQUEST,REQ,4000,EXTSV,,REQSUB,
349 .CMD QUEUE,Q,4000,STAR,,0,QUEUE
359 .CMD UA,UA,40, USRSUB,
361 .CMD UB,UB,50, USRSUB,
363 .CMD UC,UC,60, USRSUB,
365 .CMD VERSION,VE,0, VERTN,
367 .CMD ZERO,ZERO,4401, EXTNUL, Z, ZERSUB, PIP
515 YEDIT, FILENAME EDIT.SV
517 YBOOT, FILENAME BOOT.SV
519 YBITMAP,FILENAME BITMAP.SV
521 YSRCCOM,FILENAME SRCCOM.SV
523 YBCOMP, FILENAME BCOMP.SV
525 YPAL8, FILENAME PAL8.SV
527 YFOTP, FILENAME FOTP.SV
529 YDIRECT,FILENAME DIRECT.SV
531 \fYPIP, FILENAME PIP.SV
533 YABSLDR,FILENAME ABSLDR.SV
535 YTECO, FILENAME TECO.SV
537 YLPTSPL,FILENAME LPTSPL.SV
539 YCAMP, FILENAME CAMP.SV
541 YSET, FILENAME SET.SV
543 YBASIC, FILENAME BASIC.SV
545 YRXCOP, FILENAME RXCOPY.SV
547 YRESORC,FILENAME RESORC.SV
549 YBATCH, FILENAME BATCH.SV
551 YRALF, FILENAME RALF.SV
553 YSABR, FILENAME SABR.SV
555 YFRTS, FILENAME FRTS.SV
557 YHELP, FILENAME HELP.SV
559 YMACREL,FILENAME MACREL.SV
561 YLINK, FILENAME LINK.SV
563 YDATE, FILENAME DATE.SV
565 YTERMIN,FILENAME TERMIN.SV
567 YQUEUE, FILENAME QUEUE.SV
569 YCANCEL,FILENAME CANCEL.SV