/CCLTBL MAIN DISPATCH TABLE FOR CCL / / / /COPYRIGHT (C) 1979,1982 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=V3B (D.H.) /10 CCL INTERNAL TABLES FOR OS/78 .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 /IN CCLSB2, REQSUB,CANSUB .EXTERNAL MOVRT,KILRT,RENRT .EXTERNAL EXSUB .EXTERNAL 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 L1=LEN+4 L2=LEN+2 ;.LIST ME / STARS[1:L1] / *SPACES[1:L2]* / * COM * / *SPACES[1:L2]* / STARS[1:L1] 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=%12.;7643+YY;ZZ=XX- QQ=1 .REPT 12.-ZZ&17 QQ=QQ^2 .ENDR ;QQ> .IF NBL SWITCH[2]< XX="SWITCH[2]&77;YY=%12.;7643+YY;ZZ=XX- 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 ;.. .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 FIXDIR,FI,0, 0, FIXDIR .ENDQ .CMD BASIC,BAS,0, BASUB, BASIC .ENDQ .CMD FORMAT,FORMAT,4001, STAR, , 0, FORMAT .QUAL D,D .QUAL R,R .QUAL S,S .QUAL Z,0 .QUAL O,1 .ENDQ .CMD BOOT,BO,0, 0, BOOT .ENDQ .CMD COMPARE,COMPA,4001, EXTNUL, , SETTTY, SRCCOM .QUAL B,B .QUAL C,C .QUAL S,S .QUAL T,T .QUAL X,X .ENDQ .CMD COM,COM,5033, EXTCOM, , EXSUB, PAL8 .QUAL B,B .QUAL G,G .QUAL L,L .QUAL N,N .QUAL Q,Q .ENDQ .CMD COPY,COP,4001, STAR, L, MOVRT, FOTP .QUAL C,C,LSTOPT .QUAL F,F .QUAL N,N .QUAL O,O .QUAL P,P .QUAL Q,Q .QUAL R,R .QUAL T,T .QUAL U,U .QUAL V,V .QUAL W,W .ENDQ .CMD MEMORY,MEM,0, DETCOR, .ENDQ .CMD EDIT,ED,5220, EXTNUL, , EDSUB, EDIT .QUAL P,P .ENDQ /CREATE .CMD CREAT,CREA,4400, EXTNUL, , CRSUB, EDIT .QUAL P,P .ENDQ .CMD CREF,CREF,4002, EXTCF, C, 0, PAL8 .QUAL A,A .QUAL M,M .QUAL P,P .QUAL U,U .QUAL X,X .ENDQ .CMD DATE,DA,0, DATE, .ENDQ .CMD DELETE,DEL,4001, STAR, LD, KILRT, FOTP,LSTOPT .QUAL C,C .QUAL N,N .QUAL O,O .QUAL Q,Q .QUAL V,V .QUAL W,W .ENDQ .CMD DEASSIGN,DE,0, DEASSIG, .ENDQ .CMD DIRECT,DIR,4001, STAR, ,COLSET, DIRECT .QUAL A,A .QUAL B,B .QUAL C,C .QUAL E,E .QUAL F,F .QUAL M,M .QUAL O,O .QUAL R,R .QUAL U,U .QUAL V,V .QUAL W,W .ENDQ / MUST BE BEFORE SET COMMAND .CMD SETU,SETU,0, 0, SETUP .ENDQ .CMD HELP,HE,4001, STAR, T, SETTTY, HELP .QUAL L,L .ENDQ //ADDED FOR OS78 V4 .CMD FUTIL,FU,0, 0, FUTIL .ENDQ .CMD RTFLOP,RT,0, 0, RTFLOP .ENDQ .CMD LIST,LI,4001, STAR, U, SETLPT, FOTP,LSTOPT .QUAL C,C .QUAL O,O .QUAL Q,Q .QUAL U,U .QUAL V,V .ENDQ .CMD LOAD,LO,5031, EXTLO, , EXSUB, ABSLDR .QUAL F,F .QUAL G,G .QUAL I,I .QUAL R,R .QUAL S,S .QUAL E,8 .QUAL N,9 .ENDQ .CMD MAKE,MAK,0, MAKSUB, TECO .ENDQ .CMD MAP,MAP,4001, EXTBN, , SETTTY, BITMAP .QUAL N,N .QUAL R,R .QUAL S,S .ENDQ .CMD MUNG,MUNG,0, MNGSUB, TECO .ENDQ .CMD PAL,PAL,5033, EXTPA, , EXSUB, PAL8 .QUAL B,B .QUAL C,C .QUAL E,E .QUAL F,F .QUAL G,G .QUAL H,H .QUAL J,J .QUAL K,K .QUAL L,L .QUAL N,N .QUAL O,O .QUAL S,S .QUAL T,T .QUAL W,W .ENDQ .CMD PIP,PI,4001, EXTNUL, , SETTTY, PIP .QUAL O,O .QUAL S,S .QUAL V,V .QUAL X,X .QUAL Y,Y .QUAL Z,Z .ENDQ .CMD RENAME,REN,4001, STAR, LR,RENRT,FOTP,LSTOPT .QUAL C,C .QUAL O,O .QUAL T,T .QUAL V,V .QUAL W,W .ENDQ .CMD WPFLOP,WP,4001,STAR, , 0, WPFLOP .QUAL C,C .QUAL O,O .QUAL V,V .QUAL W,W .ENDQ .CMD SET,SET,0, 0, SET .QUAL L,L .ENDQ .CMD SQUISH,SQ,4001, EXTNUL, S, SQSUB, PIP .QUAL O,O .QUAL S,S .QUAL V,V .QUAL Z,Z .ENDQ .CMD SUBMIT,SU,4000, EXTBI, , 0, BATCH .QUAL E,E .QUAL H,H .QUAL Q,Q .QUAL T,T .QUAL U,U .QUAL V,V .ENDQ .CMD TECO,TE,10, TECSUB, TECO .ENDQ .CMD TYPE,TY,4001, STAR, U, SETTTY, FOTP,LSTOPT .QUAL C,C .QUAL O,O .QUAL Q,Q .QUAL U,U .QUAL V,V .QUAL W,W .ENDQ .CMD LINK,LIN,5033, EXTLI, , EXSUB, LINK .ENDQ .CMD MAC,MAC,5033, EXTMA, , EXSUB, MACREL .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 READ,RE,4001,STAR, , 0, READ .QUAL V,V .ENDQ .CMD MENU,ME,0, 0, MENU .ENDQ .CMD MOUNT,MO,0, 0, MOUNT .QUAL L,L .ENDQ ..=. 0;YAT;0 .DSECT PTBL .. 0;0 .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; 0 0; 0 EXTPA, 'PA; YPAL8 0; YPAL8 EXTBN, 'BN; 0 0; 0 //V4: OS78 V3 USED TO BE ABSLDR //ALLOWS FILENAME.GARBAGE IF FILE IS TRULY BINARY. EXTNUL, 0; 0 EXTLO, 'BN; YABSLDR 'RL; LO1,YLOAD /**** EXTLI, 'RB; 0 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 10 EXTCOM, 'PA; YPAL8 'FT; F2,YF4 /**** 'MA; YMACREL 'BA; YBCOMP // 'RA; YRALF // 'SB; YSABR 0; 0 ZBLOCK 6 .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 YSET, FILENAME SET.SV *.-1 YBASIC, FILENAME BASIC.SV *.-1 YVERFY, FILENAME VERIFY.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 YRTFLOP,FILENAME RTFLOP.SV *.-1 YFUTIL,FILENAME FUTIL.SV *.-1 YDATE, FILENAME DATE.SV *.-1 YWPFLOP,FILENAME WPFLOP.SV *.-1 YFORMAT,FILENAME FORMAT.SV *.-1 YMACREL,FILENAME MACREL.SV *.-1 YLINK, FILENAME LINK.SV *.-1 YREAD, FILENAME VERIFY.SV *.-1 YMOUNT, FILENAME MOUNT.SV *.-1 YFIXDIR,FILENAME FIXDIR.SV *.-1 YMENU, FILENAME MENU.SV *.-1 YSETUP, FILENAME SETUP.SV *.-1