File: CCLTBL.MA of Tape: OS8/OS8-Latest/new-9
(Source file text)
/CCL INTERNAL TABLES FOR KBM V40 / / / / / / / CCL INTERNAL TABLES FOR KBM V40 / VERSION=4B .NOLIST .INCLUDE OUT:CCLDEF .LIST .LIST MEB .GLOBAL GLIN .GLOBAL SWTCHS .GLOBAL EXTCM .GLOBAL YBATCH,YDATE .GLOBAL YFRTS,YF4 .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,TTSUB .EXTERNAL USRSUB .EXTERNAL MOVRT,KILRT,RENRT .EXTERNAL EXSUB,LOSUB,FOSUB,GTOSUB .EXTERNAL BASUB,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 / FORMAT OF CCL TABLE /ENTRY PURPOSE / TABLE WIDTH=7 (BUT VARIES) /0 FLAG WORD /BIT MEANING IF ON /0 PERFORM CD (IF 0, OMIT ENTRIES 1-6) /1 DON'T PERMIT SPOOLING /2 ALLOW .LS, .NB, .MP SWITCHES /3 ADD _ TO END OF COMMAND STRING /4 SET OUTPUT EXTENSION = INPUT EXTENSION (IF BIT 2 ON) /5 RESERVED /6-8 SPECIFIES AUTOMATIC INPUT REMEMBERING (REM LINE MINUS 1) / 0 MEANS NONE. 7 RESERVED FOR SPECIAL USE. /9 OPEN/CLOSE SPECIAL (ALLOW NON-EXISTING DEVS) /10 CAUSE -L, ETC. TO GO TO 2ND OUTPUT FILE & COPIES NAME /11 WANT DEFAULT ALTMODE (COMPL IF AMFLAG=1) /1 PTR TO DEFAULT EXTENSION LIST FOR INPUT FILES. / IF PTS TO 0, NONE. IF PTS TO 5200, USE SPECIAL MODE. /2-4 DEFAULT SWITCHES TO BE OR'ED INTO THOSE / EXPLICITLY GIVEN. /5 ADDRESS OF SUBROUTINE TO BE CALLED / AFTER C.D. HAS BEEN DONE. 0 IF NONE. /6 PTR TO FILENAME OF PROGRAM / TO BE CHAINED TO. 0 IF NONE. .MACRO .BOX COM,SPACES,STARS LEN=.NCHARS COM .PUSH .LISTWD L1=LEN+4 L2=LEN+2 ;.LIST ME / STARS[1:L1] / STARS[1]SPACES[1:L2]STARS[1] / STARS[1] COM STARS[1] / STARS[1]SPACES[1:L2]STARS[1] / 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 * .ENDM .ASECT TABLES FIELD 0 *6100 .CMD EXECUTE,EX,5013,EXTEXE, G, EXSUB, PAL8 /EXECUTE MUST BE FIRST FOR TECO EG .ENDQ .CMD ACID,AC,5011, EXTAC, , EXSUB, ACID .QUAL KINHALT,N,ACOPT .QUAL TRENNUNG,L .ENDQ .CMD BASIC,BA,0, BASUB, BASIC .ENDQ .CMD BOOT,BO,0, 0, BOOT .ENDQ .CMD TTL,TT,0, TTSUB, TECO .ENDQ .CMD CLOSE,CL,4004, STAR, , CLOSUB, .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 LOESCHE,D /.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 .QUAL RUHIG,H .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, BATCH .ENDQ .CMD LOGOUT,LOGO,0, LGOSUB, BATCH .ENDQ .CMD LOAD,LO,5023, 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 .CMD OCOMP,OC,4001, STAR, TH, 0, OCOMP .QUAL SUCHE,S .QUAL SV,I .QUAL CCB,C .ENDQ .EXTRA OEFFNE,OP .CMD OPEN,OP,4004, STAR, , OPNSUB, .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 PIP,PIP,4001, EXTNUL, , 0, PIP .ENDQ .CMD PRINT,PR,4000, STAR, , SETLPT, LPTSPL .ENDQ .CMD RENAME,REN,4001,STAR, LR, RENRT, FOTP, LSTOPT .CMD RTES,RT,5011, EXTAC, , EXSUB, RTES, ACOPT .EXTRA SCHLIESSE,CL .EXTRA SENDE,TA .CMD SET,SET,0, 0, SET .ENDQ .CMD SHSAVE,SH,4001, STAR, , 0, SHSAVE .ENDQ .EXTRA SPEICHER,ME .CMD SQUISH,SQ,4001, EXTNUL, S, SQSUB, PIP .QUAL OK,O .QUAL RUHIG,H .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 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 .CMD USERA,USA,4001, EXTNUL, , 0, USERA .ENDQ .CMD USERB,USB,4001, EXTNUL, , 0, USERB .ENDQ .CMD USERC,USC,4001, EXTNUL, , 0, USERC .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 EXTSV, 'SV; 0 'LD; 0 0; 0 EXTEXE, 'LD; YFRTS 'BN; YABSLDR 'RL; YLOAD 'RB; YLINK 'PA; YPAL8 'FT; YF4 'BA; YBCOMP 'MA; YMACREL 'RA; YRALF 'SB; YSABR 'BI; YBATCH 0; 0 EXTCOM, 'PA; YPAL8 'FT; YF4 'BA; YBCOMP 'MA; YMACREL 'RA; YRALF 'SB; YSABR 0; 0 .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 YRTES, FILENAME RTES.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 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 YHELP, FILENAME HELP.SV *.-1 YMACREL,FILENAME MACREL.SV *.-1 YLINK, FILENAME LINK.SV *.-1 YDATE, FILENAME DATE.SV *.-1 YCCL, FILENAME CCL.SV *.-1 YFRTS, FILENAME FRTS.SV /** *.-1 YF4, FILENAME F4.SV /** THESE THREE MUST BE TOGETHER !!! *.-1 YLOAD, FILENAME LOAD.SV /** *.-1 YOCOMP, FILENAME OCOMP.SV *.-1 YSHSAVE,FILENAME SHSAVE.SV *.-1 YUSERA, FILENAME USERA.SV *.-1 YUSERB, FILENAME USERB.SV *.-1 YUSERC, FILENAME USERC.SV *.-1 EJECT CCL CORE SIZE / VERSION=4A .ASECT CORF0 LXM=6200 FIELD 0 *7200 CORLOC, CORX CORV, 1400 CORRES, -7000-1400 CORSIZ, 1 CORE, 0 TAD T7000 /SETS KT8A IF PRESENT LXM /LXM INSTRUCTION CLA IAC /LXM ACTS AS NOP IF NO KT8A DCA CORSIZ /INITIALIZE CORSIZ TO 1 TAD CORRES DCA CORX /SET WRAPPER LOC 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