Directory of image this file is from
This file as a plain text file
/ / / /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. / / /
/VERSION=V3A (D.H.)
/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
.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
/ .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
/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
.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
EXTEXE, '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
.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
YPIP, 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