--- /dev/null
+/
+/
+/
+/COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
+/
+/
+/
+/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
+/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
+/CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
+/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
+/
+/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
+/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
+/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
+/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
+/
+/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
+/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
+/DIGITAL.
+/
+/
+/
+
+\f
+/VERSION=V3A (D.H.)
+\f/10 CCL INTERNAL TABLES FOR OS/78
+
+ .NOLIST ME
+ .GLOBAL EXTCM
+ .GLOBAL YBATCH,YDATE,YTERMIN
+ .GLOBAL F1,F2,LO1,LO2
+ .EXTERNAL SETLPT,SETTTY,SETPTP,COLSET
+ .EXTERNAL TECSUB,MAKSUB,MNGSUB
+ .EXTERNAL YF4,YLOAD
+ .EXTERNAL USRSUB,REQSUB,CANSUB
+ .EXTERNAL MOVRT,KILRT,RENRT
+ .EXTERNAL EXSUB
+ .EXTERNAL TRMSUB,BASUB,MONRES,DETCOR,DATE,DEASSIGN,SQSUB,VERTN,ZERSUB
+ .EXTERNAL YAT
+ .EXTERNAL CRSUB,EDSUB
+ .DSECT PTBL
+ FIELD 0
+ .ASECT SWS
+ *7300
+ .ASECT LONGS
+ *5000
+
+ .MACRO .BOX COM,SPACES,STARS
+ LEN=.NCHARS COM
+ .PUSH .LISTWD
+ L1=LEN+4
+ L2=LEN+2
+ ;.LIST ME
+
+/ STARS[1:L1]
+/ *SPACES[1:L2]*
+/ * COM *
+/ *SPACES[1:L2]*
+/ STARS[1:L1]
+ .POP .LISTWD
+ EJECT CCL COMMANDS
+ .ENDM .BOX
+
+ .MACRO .EXT
+ .ENDM
+ .MACRO .CMD COMAND,ABBREV,CODE,EXTEN,SWITCH,SUBR,PROGRM,LABEL
+ .BOX COMAND," ","****************"
+ .SBTTL COMAND
+ ..=.
+ .DSECT PTBL
+ ;..
+ .SECT *
+X'ABBREV, CODE
+ IFNZRO CODE&4000 <
+ ;EXTEN
+ .IF NBL SWITCH[1]<
+ XX="SWITCH[1]&77;YY=<XX-1>%12.;7643+YY;ZZ=XX-<YY^12.>
+ QQ=1
+ .REPT 12.-ZZ&17
+ QQ=QQ^2
+ .ENDR
+ ;QQ>
+ .IF NBL SWITCH[2]<
+ XX="SWITCH[2]&77;YY=<XX-1>%12.;7643+YY;ZZ=XX-<YY^12.>
+ QQ=1
+ .REPT 12.-ZZ&17
+ QQ=QQ^2
+ .ENDR
+ ;QQ>
+ ;0
+ .ASECT SWS
+ ..=.
+ .SECT *
+ .IF BL LABEL <;.. > /REMOVE IF DON'T WANT MULTIPLE CHARACTER SWITCHES
+ .IF NB LABEL <;LABEL>
+ ;SUBR
+ .IF NB PROGRM<
+ ;Y'PROGRM>
+ .IF BL PROGRM<
+ ;0>
+ >
+ IFZERO CODE&4000 <
+ ;EXTEN
+ .IF NB SWITCH<
+ ;Y'SWITCH>
+ .IF BL SWITCH<
+ ;0>
+ >
+ .ENDM
+ .MACRO .QUAL LONG,SHORT,NAME
+ .ASECT LONGS
+ ..=.
+ ;TEXT "LONG[1:6]";"SHORT
+ .SECT *
+ .ASECT SWS
+ .IF NB NAME <NAME=.>
+ ;..
+ .SECT *
+ .ENDM
+ .MACRO .ENDQ
+ .ASECT SWS
+ ;0
+ .SECT *
+ EJECT CCL COMMANDS
+ .ENDM
+ .ASECT TABLES
+ FIELD 0
+ *6200
+\f .CMD EXECUTE,EX,5033, EXTEXE, G, EXSUB, PAL8 /MUST BE FIRST FOR TECO EG
+ .ENDQ
+ .CMD BACKSPACE,BA,0, TRMSUB, CAMP
+ .ENDQ
+ .CMD BASIC,BAS,0, BASUB, BASIC
+ .ENDQ
+ .CMD DUPLIC,DU,4001, STAR, , 0, RXCOP
+ .QUAL NOCOPY,M
+ .QUAL NOMATCH,N
+ .QUAL PAUSE,P
+ .QUAL READONLY,R
+ .QUAL VERSION,V
+ .ENDQ
+ .CMD BOOT,BO,0, 0, BOOT
+ .ENDQ
+ .CMD CCL,CCL,0, MONRES,
+ .ENDQ
+ .CMD COMPARE,COMPA,4001, EXTNUL, , SETTTY, SRCCOM
+ .QUAL NOCOMMENTS,C
+ .QUAL NOSPACES,S
+ .QUAL TABS,T
+ .QUAL BLANKS,B
+ .QUAL NOPRINTCOMMENTS,X
+ .ENDQ
+ .CMD COM,COM,5033, EXTCOM, , EXSUB, PAL8
+ .QUAL NOISN,N
+ .QUAL OPTIMIZE,Q
+ .QUAL GO,G
+ .ENDQ
+ .CMD COPY,COP,4001, STAR, L, MOVRT, FOTP
+ .QUAL NOCOPY,D
+ .QUAL NOPREDELETE,N
+ .QUAL RENAME,R
+ .QUAL FAILSAFE,F
+ .QUAL CURRENT,C,LSTOPT
+ .QUAL LOG,L
+ .QUAL OTHER,O
+ .QUAL QUERY,Q
+ .QUAL INQUIRE,Q
+ .QUAL INSPECT,Q
+ .QUAL TODAY,T
+ .QUAL UGLY,U
+ .QUAL INDEPENDENTLY,U
+ .QUAL INVERT,V
+ .QUAL EXCEPT,V
+ .QUAL VERSION,W
+ .QUAL V,V
+ .ENDQ
+ .CMD MEMORY,MEM,0, DETCOR,
+ .ENDQ
+ .CMD CREATE,CREA,4400, EXTNUL, , CRSUB, EDIT
+ .QUAL SPACES,B
+ .ENDQ
+ .CMD CREF,CREF,4002, EXTCF, C, 0, PAL8
+ .QUAL NOLIST,P
+ .QUAL NOSYMTAB,U
+ .QUAL RALF,R
+ .QUAL SABR,S
+ .QUAL NOLITERALS,X
+ .QUAL KEEP,E
+ .QUAL MAMMOTH,M
+ .QUAL MOBY,M
+ .ENDQ
+ .CMD DATE,DA,0, DATE,
+ .ENDQ
+ .CMD DELETE,DEL,4001, STAR, LD, KILRT, FOTP,LSTOPT
+ .CMD DEASSIGN,DE,0, DEASSIG,
+ .ENDQ
+ .CMD DIRECT,DIR,4001, STAR, ,COLSET, DIRECT
+ .QUAL BLOCKS,B
+ .QUAL CURRENT,C
+ .QUAL EXTENDED,E
+ .QUAL FAST,F
+ .QUAL BRIEF,F
+ .QUAL ADDITIONAL,I
+ .QUAL EMPTIES,M
+ .QUAL FREE,M
+/ .QUAL INDEPENDENTLY,U
+ .QUAL OTHER,O
+ .QUAL REMAINDER,R
+ .QUAL UGLY,U
+ .QUAL INVERT,V
+ .QUAL EXCEPT,V
+ .QUAL VERSION,W
+ .QUAL V,V
+ .QUAL COLUMNS,Z /DUMMY
+ .ENDQ
+ .CMD EDIT,ED,5220, EXTNUL, , EDSUB, EDIT
+ .QUAL SPACES,B
+ .QUAL PREDELETE,D
+ .QUAL DELETE,D
+ .ENDQ
+\f/ .CMD EOF,EO,0, 0, CAMP
+/ .ENDQ
+ .CMD HELP,HE,4001, STAR, T, SETTTY, HELP
+ .ENDQ
+ .CMD LINK,LIN,5033, EXTLI, , EXSUB, LINK
+ .QUAL GO,G
+ .QUAL HALTS,H
+ .QUAL JUMPS,J
+ .QUAL JMPS,J
+ .QUAL CORE,K
+ .QUAL MEMORY,K
+ .QUAL VERSION,V
+ .QUAL START,S
+ .QUAL JSW,W
+ .QUAL M,M
+ .ENDQ
+ .CMD MAC,MAC,5033, EXTMA, , EXSUB, MACREL
+ .QUAL BLOCK,B
+ .QUAL HEADING,B
+ .QUAL HDR,B
+ .QUAL CREF,C
+ .QUAL KREF,C
+ .QUAL GO,G
+ .QUAL NOCONDITIONALS,J
+ .QUAL LINK,L
+ .QUAL PERM,M
+ .QUAL NOLIST,N
+ .QUAL OMIT,O
+ .QUAL NOMACROS,O
+ .QUAL RESET,P
+ .QUAL EAE,Q
+ .QUAL REMOVE,R
+ .QUAL REDUNDANT,R
+ .QUAL DESTROY,Z
+ .QUAL NOBATCH,Z
+ .QUAL EXTENDED,X
+ .QUAL K,K
+ .QUAL P,P
+ .ENDQ
+ .CMD LIST,LI,4001, STAR, U, SETLPT, FOTP,LSTOPT
+ .CMD LOAD,LO,5031, EXTLO, , EXSUB, ABSLDR
+ .QUAL IMAGE,I
+ .QUAL MULTIPLE,S
+ .QUAL SLURP,S
+ .QUAL GO,G
+/ /8 /9 /START:N /FIELD:F /P
+ .ENDQ
+ .CMD MAKE,MAK,0, MAKSUB, TECO
+ .ENDQ
+ .CMD MAP,MAP,4001, EXTBN, , SETTTY, BITMAP
+ .QUAL MULTIPLE,S
+ .QUAL SLURP,S
+ .QUAL INVERT,T
+/ FIELD:N
+ .ENDQ
+ .CMD MUNG,MUNG,0, MNGSUB, TECO
+ .ENDQ
+ .CMD PAL,PAL,5033, EXTPA, , EXSUB, PAL8
+ .QUAL SHIFT,B
+ .QUAL CREF,C
+ .QUAL DDT,D
+ .QUAL NOLINKS,E
+ .QUAL NOFILL,F
+ .QUAL GO,G
+ .QUAL NONPAGINATED,H
+ .QUAL NOCONDITIONALS,J
+ .QUAL LOAD,L
+ .QUAL NOLIST,N
+ .QUAL NOORIG,O
+ .QUAL NOSYMTAB,S
+ .QUAL NOREMEMBERLITERALS,W
+ .QUAL WIDE,7
+ .QUAL W,W
+ .ENDQ
+/ /K /T
+ .CMD PRINT,PRI,4000, STAR, , SETLPT, LPTSPL
+ .ENDQ
+ .CMD PUNCH,PU,4001, EXTNUL, , SETPTP, PIP
+/ .QUAL ASCII,A
+/ .QUAL BINARY,B
+/ .QUAL ELIMINATE,C
+/ .QUAL PREDELETE,D
+/ .QUAL DELETE,D
+/ .QUAL IGNORE,G
+/ .QUAL IMAGE,I
+/ .QUAL TABS,T
+/ .QUAL VERSION,V
+/ .QUAL V,V
+ .ENDQ
+ .CMD RENAME,REN,4001, STAR, LR,RENRT,FOTP,LSTOPT
+ .CMD RESOURCES,RES,4001, EXTSY, , SETTTY, RESORC
+ .QUAL DETAILED,E
+ .QUAL EXTENDED,E
+ .QUAL BRIEF,F
+ .QUAL FAST,F
+ .ENDQ
+/ .CMD REWIND,REW,0, 0, CAMP
+/ .ENDQ
+ .CMD CANCEL,CA,0,CANSUB,
+ .ENDQ
+ .CMD SET,SET,0, 0, SET
+ .ENDQ
+ .CMD SKIP,SK,0, 0, CAMP
+ .ENDQ
+ .CMD SQUISH,SQ,4001, EXTNUL, S, SQSUB, PIP
+ .QUAL OK,O
+ .QUAL NOCONFIRM,O
+ .ENDQ
+ .CMD SUBMIT,SU,4000, EXTBI, , 0, BATCH
+ .QUAL CARDS,C
+ .QUAL NONFATAL,E
+ .QUAL PAPERTAPE,P
+ .QUAL QUIET,Q
+ .QUAL HUSH,H
+ .QUAL TERMINAL,T
+ .QUAL TTY,T
+ .QUAL UNATTENDED,U
+ .QUAL VERSION,V
+ .QUAL 026,6
+ .ENDQ
+ .CMD TECO,TE,10, TECSUB, TECO
+ .ENDQ
+ .CMD TYPE,TY,4001, STAR, U, SETTTY, FOTP,LSTOPT
+/ .CMD UNLOAD,UN,0, 0, CAMP
+/ .ENDQ
+ .CMD REQUEST,REQ,4000,EXTSV,,REQSUB,
+ .ENDQ
+ .CMD QUEUE,Q,4000,STAR,,0,QUEUE
+ .QUAL LIST,L
+ .QUAL KILL,K
+ .QUAL STOP,S
+ .QUAL GO,G
+ .QUAL START,G
+ .QUAL NOH,H
+ .QUAL DELETE,D
+ .QUAL COPIES,C
+ .ENDQ
+ .CMD UA,UA,40, USRSUB,
+ .ENDQ
+ .CMD UB,UB,50, USRSUB,
+ .ENDQ
+ .CMD UC,UC,60, USRSUB,
+ .ENDQ
+ .CMD VERSION,VE,0, VERTN,
+ .ENDQ
+ .CMD ZERO,ZERO,4401, EXTNUL, Z, ZERSUB, PIP
+ .ENDQ
+/ .CMD @,@,0, YAT,
+/ .ENDQ
+ ..=.
+ 0;YAT;0
+ .DSECT PTBL
+ ..
+ 0;0
+\f/PTBL, XEXE
+/ XBAC
+/ XBAS
+/ XDUPL
+/ XBOO
+/ XCCL
+/ XCOMPA
+/ XCOMPI
+/ XCOP
+/ XCOR
+/ XCREA
+/ XCREF
+/ XDAT
+/ XDEL
+/ XDEA
+/ XDIR
+/ XEDI
+/ XEOF
+/ XHEL
+/ XLINK
+/ XMAC
+/ XLIS
+/ XLOA
+/ XMAK
+/ XMAP
+/ XMUN
+/ XPAL
+/ XPRI
+/ XPUN
+/ XREN
+/ XRES
+/ XREW
+/ XSET
+/ XSKI
+/ XSQU
+/ XSUB
+/ XTEC
+/ XTYP
+/ XUNL
+/ XUA
+/ XUB
+/ XUC
+/ XVER
+/ XZER
+/ XAT
+ .EXT ALG=AL
+ .EXT BAK=BK
+ .EXT BAS=BA
+ .EXT BIN=BN
+ .EXT BUG=BG
+ .EXT CMD=CM
+ .EXT COM=CM
+ .EXT CRF=CF
+ .EXT CTL=CM
+ .EXT DAT=DA
+ .EXT DIR=DI
+ .EXT DOC=DC
+ .EXT HLP=HL
+ .EXT INI=IN
+ .EXT LOG=LG
+ .EXT LPT=LP
+ .EXT LST=LS
+ .EXT MAC=MA
+ .EXT MAN=MN
+ .EXT MAP=MP
+ .EXT MEM=ME
+ .EXT OLD=OL
+ .EXT PAL=PA
+ .EXT REL=RL
+ .EXT RIM=RM
+ .EXT RNO=RO
+ .EXT SAV=SV
+ .EXT EXE=SV
+ .EXT SNO=SN
+ .EXT SRC=SR
+ .EXT SYS=SY
+ .EXT TEC=TE
+ .EXT TEM=TM
+ .EXT TMP=TM
+ .EXT TXT=TX
+ .EXT BAT=BI
+ .EXT FOR=FT
+ .EXT RLF=RA
+ .EXT OBJ=RB
+ .EXT SBR=SB
+ .EXT FTN=FT
+\f .ASECT EXTNS
+ FIELD 0
+ *6600
+STAR, 5200; 0
+ 0; 0
+
+
+EXTSY, 'SY; 0
+ 0; 0
+EXTBI, 'BI; 0
+ 0; 0
+EXTCF, 'PA; YPAL8
+ 0; YPAL8
+EXTMA, 'MA; YMACREL
+ 0; YMACREL
+EXTPA, 'PA; YPAL8
+ 0; YPAL8
+EXTBN, 'BN; 0
+ 0; YABSLDR
+EXTNUL, 0; 0
+EXTLO, 'BN; YABSLDR
+ 'RL; LO1,YLOAD /****
+EXTLI, 'RB; YLINK
+ 0; 0
+EXTCM, 'CM; 0
+ 0; 0
+EXTSV, 'SM; 0
+ 'SV; 0
+ 0; 0
+\fEXTEXE, 'PA; YPAL8
+ 'FT; F1,YF4 /****
+ 'BA; YBCOMP
+ 'MA; YMACREL
+ 'BN; YABSLDR
+ 'RL; LO2,YLOAD /****
+ 'RA; YRALF
+ 'SB; YSABR
+ 'RB; YLINK
+ 'LD; YFRTS
+ 'BI; YBATCH
+ 0; 0
+ ZBLOCK 4
+EXTCOM, 'PA; YPAL8
+ 'FT; F2,YF4 /****
+ 'MA; YMACREL
+ 'BA; YBCOMP
+ 'RA; YRALF
+ 'SB; YSABR
+ 0; 0
+ ZBLOCK 4
+\f .ASECT FNAMES
+ FIELD 0
+ *7000
+YEDIT, FILENAME EDIT.SV
+ *.-1
+YBOOT, FILENAME BOOT.SV
+ *.-1
+YBITMAP,FILENAME BITMAP.SV
+ *.-1
+YSRCCOM,FILENAME SRCCOM.SV
+ *.-1
+YBCOMP, FILENAME BCOMP.SV
+ *.-1
+YPAL8, FILENAME PAL8.SV
+ *.-1
+YFOTP, FILENAME FOTP.SV
+ *.-1
+YDIRECT,FILENAME DIRECT.SV
+ *.-1
+\fYPIP, FILENAME PIP.SV
+ *.-1
+YABSLDR,FILENAME ABSLDR.SV
+ *.-1
+YTECO, FILENAME TECO.SV
+ *.-1
+YLPTSPL,FILENAME LPTSPL.SV
+ *.-1
+YCAMP, FILENAME CAMP.SV
+ *.-1
+YSET, FILENAME SET.SV
+ *.-1
+YBASIC, FILENAME BASIC.SV
+ *.-1
+YRXCOP, FILENAME RXCOPY.SV
+ *.-1
+YRESORC,FILENAME RESORC.SV
+ *.-1
+YBATCH, FILENAME BATCH.SV
+ *.-1
+YRALF, FILENAME RALF.SV
+ *.-1
+YSABR, FILENAME SABR.SV
+ *.-1
+YFRTS, FILENAME FRTS.SV
+ *.-1
+YHELP, FILENAME HELP.SV
+ *.-1
+YMACREL,FILENAME MACREL.SV
+ *.-1
+YLINK, FILENAME LINK.SV
+ *.-1
+YDATE, FILENAME DATE.SV
+ *.-1
+YTERMIN,FILENAME TERMIN.SV
+ *.-1
+YQUEUE, FILENAME QUEUE.SV
+ *.-1
+YCANCEL,FILENAME CANCEL.SV
+ *.-1
+\f