File: CCLTBL.MA of Tape: OS8/OS8-V40/v40-6
(Source file text)
/CCL INTERNAL TABLES FOR KBM V40 / / / / / / / / /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION / AND 1979 DATAPLAN GMBH / / /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. / / / / / / / / /10 CCL INTERNAL TABLES FOR KBM V40 /VERSION=V4A (WVDM) .NOLIST .INCLUDE OUT:CCLDEF .LIST .LIST MEB .GLOBAL GLIN .GLOBAL SWTCHS .GLOBAL EXTCM .GLOBAL YBATCH,YDATE,YTERMIN .GLOBAL YCCL,FNAME1 .GLOBAL CORE,CORSIZ .GLOBAL LPTDEV,TTYDEV,PTPDEV .EXTERNAL NMOVE,DONB,UNKN .EXTERNAL SETDEV .EXTERNAL SETLPT,SETTTY,SETPTP,COLSET .EXTERNAL TECSUB,MAKSUB,MNGSUB .EXTERNAL USRSUB,REQSUB,CANSUB .EXTERNAL MOVRT,KILRT,RENRT .EXTERNAL EXSUB,LOSUB,FOSUB,GTOSUB .EXTERNAL TRMSUB,BASUB,MONRES,DETCOR,DATE,DEASSIGN,SQSUB,VERTN,ZERSUB .EXTERNAL YAT .EXTERNAL CRSUB,EDSUB .EXTERNAL TLKSUB,OPNSUB,CLOSUB,LGISUB,LGOSUB .DSECT PTBL FIELD 0 .ASECT SWS *7360 .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 .ENDM .BOX .MACRO .EXT .ENDM .MACRO .CMD COMAND,ABBREV,CODE,EXTEN,SWITCH,SUBR,PROGRM,LABEL .BOX 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 .EXTRA COMAND,ABBREV .BOX COMAND," ","##################" .DSECT PTBL ;X'ABBREV .SECT * .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 *6100 .CMD EXECUTE,EX,5013,EXTEXE, G, EXSUB, PAL8 /MUST BE FIRST FOR TECO EG .ENDQ .CMD BASIC,BA,0, BASUB, BASIC .ENDQ .CMD BOOT,BO,0, 0, BOOT .ENDQ .CMD CANCEL,CA,0, CANSUB .ENDQ .CMD CCL,CC,0, MONRES .ENDQ .CMD CLOSE,CL,0, CLOSUB, XCL .ENDQ .CMD COMPARE,COMPA,4001, EXTNUL, , SETTTY, SRCCOM .QUAL NKOMMENTAR,C /.QUAL NOCOMMENTS,C .QUAL TEXT,S /.QUAL NOSPACES,S /.QUAL TABS,T /.QUAL BLANKS,B /.QUAL NOPRINTCOMMENTS,X .ENDQ .CMD COM,COM,5013, EXTCOM, , EXSUB, PAL8 .QUAL KISN,N /.QUAL NOISN,N .QUAL OPTIMIZE,Q .QUAL STARTE,G /.QUAL GO,G .ENDQ .CMD COPY,COP,4001, STAR, L, MOVRT, FOTP /.QUAL NOCOPY,D .QUAL SICHER,N /.QUAL NOPREDELETE,N /.QUAL RENAME,R .QUAL FORTSETZUNG,F /.QUAL FAILSAFE,F .QUAL HEUTE,C,LSTOPT /.QUAL CURRENT,C,LSTOPT .QUAL NHEUTE,O /.QUAL OTHER,O .QUAL FRAGE,Q /.QUAL QUERY,Q .QUAL DATUM,T /.QUAL TODAY,T .QUAL REIHENFOLGE,U /.QUAL UGLY,U .QUAL ANDERE,V /.QUAL INVERT,V /.QUAL VERSION,W .ENDQ .CMD CREF,CREF,4002, EXTCF, C, 0, PAL8 /.QUAL NOLIST,P .QUAL CREF,U /.QUAL NOSYMTAB,U .QUAL RALF,R /.QUAL SABR,S .QUAL KLITERALS,X /.QUAL NOLITERALS,X .QUAL GROSS,M /.QUAL MAMMOTH,M .ENDQ .CMD CREATE,CRE,4400,EXTNUL, , CRSUB, EDIT /.QUAL SPACES,B .ENDQ .CMD DATE,DA,0, DATE, .ENDQ .CMD DEASSIGN,DEA,0, DEASSIG, .ENDQ .CMD DELETE,DEL,4001,STAR, LD, KILRT, FOTP, LSTOPT .CMD DIRECT,DI,4001, STAR, , COLSET, DIRECT .QUAL ALPHAB,A .QUAL BLOECKE,B /.QUAL BLOCKS,B .QUAL HEUTE,C /.QUAL CURRENT,C .QUAL DATUM,D .QUAL VOLLSTA,E /.QUAL EXTENDED,E .QUAL KURZ,F /.QUAL FAST,F /.QUAL ADDITIONAL,I .QUAL LOECHER,M /.QUAL EMPTIES,M .QUAL NHEUTE,O /.QUAL OTHER,O .QUAL SEITE,P .QUAL REST,R /.QUAL REMAINDER,R .QUAL NEUE,T /.QUAL UGLY,U .QUAL ANDERE,V /.QUAL INVERT,V /.QUAL VERSION,W /.QUAL V,V /.QUAL COLUMNS,Z /DUMMY .QUAL ZUSATZ,X .ENDQ .EXTRA DRUCKEN,LI .CMD DUPLIC,DU,4001, STAR, , 0, RXCOP .QUAL NKOPIEREN,M /.QUAL NOCOPY,M /.QUAL NOMATCH,N .QUAL PAUSE,P .QUAL LESEN,R /.QUAL READONLY,R /.QUAL VERSION,V .ENDQ .CMD EDIT,ED,5230, EXTNUL, , EDSUB, EDIT /.QUAL SPACES,B /.QUAL PREDELETE,D .ENDQ .CMD FOCAL,FO,4071, STAR, , FOSUB, DPF .QUAL KFUNKTION,N .QUAL UNGENAU,6 .QUAL SCHREIBE,W .QUAL STARTE,G .ENDQ .CMD FUTIL,FU,4401, EXTSV, , 0, FUTIL .ENDQ .CMD GOTO,G,0, GTOSUB .ENDQ .CMD HELP,H,4001, STAR, T, SETTTY, HELP .ENDQ .EXTRA INHALT,DI .CMD LAUF,LAU,4000, EXTBI, HS, 0, BATCH, SUBOPT .EXTRA LADE,LO .CMD LINK,LIN,5023, EXTLI, , LOSUB, LINK .QUAL STARTE,G /.QUAL GO,G .QUAL HALTS,H /.QUAL JUMPS,J .QUAL SPEICHER,K /.QUAL MEMORY,K /.QUAL VERSION,V .QUAL START,S /.QUAL JSW,W /.QUAL M,M .ENDQ .CMD LIST,LI,4001, STAR, U, SETLPT, FOTP, LSTOPT .EXTRA LOESCHE,DEL .CMD LOGIN,LOGI,0, LGISUB, XCL .ENDQ .CMD LOGOUT,LOGO,0, LGOSUB, XCL .ENDQ .CMD LOAD,LO,5021, EXTLO, , LOSUB, ABSLDR .QUAL FORTSETZUNG,C .QUAL IMAGE,I .QUAL ALLESYMBOLE,S /.QUAL MULTIPLE,S ALSO ALLES .QUAL STARTE,G /.QUAL GO,G / /8 /9 /START:N /FIELD:F /P .ENDQ .CMD MAKE,MACE,0, MAKSUB, TECO .ENDQ .EXTRA MACHE,MACE .CMD MAC,MAC,5013, EXTMA, , EXSUB, MACREL .QUAL KOPF,B /.QUAL BLOCK,B .QUAL CREF,C .QUAL STARTE,G /.QUAL GO,G /.QUAL NOCONDITIONALS,J .QUAL LINK,L .QUAL PERMANENT,M .QUAL NLISTEN,N /.QUAL NOLIST,N /.QUAL NOMACROS,O /.QUAL RESET,P .QUAL EAE,Q /.QUAL REMOVE,R /.QUAL REDUNDANT,R .QUAL KBATCH,Z /.QUAL NOBATCH,Z .QUAL FEHLER,X /.QUAL EXTENDED,X /.QUAL K,K /.QUAL P,P .ENDQ .CMD MAP,MAP,4001, EXTBN, , SETTTY, BITMAP /.QUAL MULTIPLE,S /.QUAL INVERT,T /FIELD:N .ENDQ .CMD MEMORY,ME,0, DETCOR, .ENDQ .CMD MUNG,MU,0, MNGSUB, TECO .ENDQ .EXTRA NAME,REN .EXTRA OEFFNE,OP .CMD OPEN,OP,0, OPNSUB, XCL .ENDQ .CMD PAL,PA,5013, EXTPA, , EXSUB, PAL8 /.QUAL SHIFT,B .QUAL CREF,C .QUAL DDT,D .QUAL LGFEHLER,E /.QUAL NOLINKS,E .QUAL KFILLER,F /.QUAL NOFILL,F .QUAL STARTE,G /.QUAL GO,G .QUAL KSEITEN,H /.QUAL NONPAGINATED,H /.QUAL NOCONDITIONALS,J .QUAL LADE,L /.QUAL LOAD,L .QUAL SYMBOLEN,N /.QUAL NOLIST,N /.QUAL NOORIG,O .QUAL KSYMBOLEN,S /.QUAL NOSYMTAB,S .QUAL VERGESSE,W /.QUAL NOREMEMBERLITERALS,W .QUAL BREIT,7 /.QUAL WIDE,7 /.QUAL W,W .ENDQ / /K /T .CMD PRINT,PR,4000, STAR, , SETLPT, LPTSPL .ENDQ .CMD QUEUE,Q,4000, STAR, , 0, QUEUE .QUAL ZEIGE,L /.QUAL LIST,L .QUAL ABBRUCH,K /.QUAL KILL,K .QUAL WARTE,S .QUAL WEITER,G /.QUAL GO,G .QUAL KKOPF,H /.QUAL NOH,H .QUAL ENTFERNE,D /.QUAL DELETE,D .QUAL ANZAHL,C /.QUAL COPIES,C .ENDQ .CMD RENAME,REN,4001,STAR, LR, RENRT, FOTP, LSTOPT .CMD REQUEST,REQ,4000,EXTRQ, , REQSUB, .ENDQ .EXTRA SCHLIESSE,CL .EXTRA SENDE,TA .CMD SET,SET,0, 0, SET .ENDQ .EXTRA SPEICHER,ME .CMD SQUISH,SQ,4001, EXTNUL, S, SQSUB, PIP .QUAL OK,O .ENDQ .CMD SUBMIT,SU,4000, EXTBI, , 0, BATCH .QUAL KARTEN,C,SUBOPT /.QUAL CARDS,C .QUAL KFEHLER,E /.QUAL NONFATAL,E /.QUAL PAPERTAPE,P /.QUAL QUIET,Q .QUAL RUHIG,H /.QUAL HUSH,H .QUAL DRUCKER,L /.QUAL TERMINAL,T .QUAL KBEDIENUNG,U /.QUAL UNATTENDED,U .QUAL SUBROUTINE,S /.QUAL VERSION,V .QUAL 026,6 .ENDQ .CMD SYSTEM,SY,4001,EXTSY, , SETTTY, RESORC .QUAL ALLES,E /.QUAL EXTENDED,E .QUAL KURZ,L /.QUAL FAST,F .ENDQ .CMD TALK,TA,0, TLKSUB, .ENDQ .CMD TEXT,TEX,5011, EXTAC, , EXSUB, ACID .QUAL KVERZEICHNIS,N .ENDQ .CMD TECO,TE,30, TECSUB, TECO .ENDQ .CMD TYPE,TY,4001, STAR, U, SETTTY, FOTP, LSTOPT .CMD UA,UA,40, USRSUB, .ENDQ .CMD UB,UB,50, USRSUB, .ENDQ .CMD UC,UC,60, USRSUB, .ENDQ .CMD UX,UX,0, USRSUB, .ENDQ .EXTRA VERDICHT,SQ .EXTRA VERGLEICH,COMPA .CMD VERSION,VE,0, VERTN, .ENDQ .EXTRA ZEIGE,TY .CMD ZERO,ZERO,4401, EXTNUL, Z, ZERSUB, PIP .ENDQ / .CMD @,@,0, YAT, / .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 EXTAC, 'AC; 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; YLOAD EXTLI, 'RB; YLINK 0; 0 EXTCM, 'CM; 0 0; 0 EXTRQ, 'SM; 0 EXTSV, 'SV; 0 'LD; 0 0; 0 EXTEXE, 'PA; YPAL8 'FT; YF4 'BA; YBCOMP 'MA; YMACREL 'BN; YABSLDR 'RL; YLOAD 'RA; YRALF 'SB; YSABR 'RB; YLINK 'LD; YFRTS 'BI; YBATCH 0; 0 ZBLOCK 4 EXTCOM, 'PA; YPAL8 'FT; 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 YDPF, FILENAME DPF.SV *.-1 YACID, FILENAME ACID.SV *.-1 YFUTIL, FILENAME FUTIL.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 YCCL, FILENAME CCL.SV *.-1 YXCL, FILENAME XCL.SV *.-1 YF4, FILENAME F4.SV *.-1 YLOAD, FILENAME LOAD.SV *.-1 EJECT CCL CORE SIZE / VERSION=4A .ASECT CORF0 LXM=6200 FIELD 0 *7200 CORLOC, CORX CORV, 1400 CORSIZ, 1 CORE, 0 TAD T7000 /SETS KT8A IF PRESENT LXM /LXM INSTRUCTION CLA /LXM ACTS AS NOP IF NO KT8A CORE2, CDF 0 TAD CORSIZ /ADJUST FIELDS FOR CDF CLL RTR RTR BSW SZL TAD T4 AND COR174 TAD COREX DCA .+1 COR1, CDF TAD I CORLOC COR2, NOP DCA COR1 TAD COR2 DCA I CORLOC COR174, 174 TAD I CORLOC CORX, 7400 TAD CORX TAD CORV SZA CLA JMP COREX TAD COR1 DCA I CORLOC ISZ CORSIZ JMP CORE2 COREX, CDF 0 LXM /NEUTRALIZES KT8A TAD CORSIZ CLL RTL TAD M10 CIF CDF 10 JMP I CORE /RETURN M10, -10 T4, 4 T7000, 7000 GLIN, 0 /FOR SEMICOLON LINKAGE JMS I PGLINE CIF CDF 10 JMP I GLIN PGLINE, GLINE LPTDEV, DEVICE LPT TVDEV, DEVICE TV TTYDEV, DEVICE TTY PTPDEV, DEVICE PTP DMPDEV, DEVICE DBL /DIABLO PRINTER NULDEV, DEVICE NULL FNAME1, ZBLOCK 5 EJECT CCL SWITCHES / VERSION=4A SWTCHS, 1423; P1 /LS 1602; P2 /NB 1520; P3 /MP 1400; P4 /L 2400; P5 /T 2300; P6 /S 2000; P7 /P 0400; P8 /D 1600; P9 /N 0000; P10 /UNKNOWN P1, NMOVE 7605 P2, DONB 0 P3, NMOVE 7612 P4, SETDEV LPTDEV P5, SETDEV TTYDEV P6, SETDEV TVDEV P7, SETDEV PTPDEV P8, SETDEV DMPDEV P9, SETDEV NULDEV P10, UNKN 0