File: CCLTBL.MA of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/CCL INTERNAL TABLES FOR KBM V50 / / / / / / / CCL INTERNAL TABLES FOR KBM V50 / VERSION=5A .NOLIST .INCLUDE IN: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,MONRES .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 / LAYOUT: / ASECT LONGS 5000 5566 / ASECT TABLES 6100 6567 / ASECT EXTNS 6600 6732 / ASECT FNAMES 7000 7155 / ASECT CORF0 7200 7356 / ASECT SWS 7360 7571 / 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 .IF DF GERMAN < .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 TEXT,S .ENDQ .CMD COM,COM,5013, EXTCOM, , EXSUB, PAL8 .QUAL KISN,N .QUAL OPTIMIZE,Q .QUAL STARTE,G .ENDQ .CMD COPY,COP,4001, STAR, L, MOVRT, FOTP .QUAL LOESCHE,D .QUAL SICHER,N .QUAL FORTSETZUNG,F .QUAL HEUTE,C,LSTOPT .QUAL NHEUTE,O .QUAL FRAGE,Q .QUAL DATUM,T .QUAL REIHENFOLGE,U .QUAL ANDERE,V .QUAL RUHIG,H .ENDQ .CMD CREF,CREF,4002, EXTCF, C, 0, PAL8 .QUAL CREF,U .QUAL RALF,R .QUAL KLITERALS,X .QUAL GROSS,M .ENDQ .CMD CREATE,CRE,4400,EXTNUL, , CRSUB, EDIT .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 HEUTE,C .QUAL DATUM,D .QUAL VOLLSTA,E .QUAL KURZ,F .QUAL LOECHER,M .QUAL NHEUTE,O .QUAL SEITE,P .QUAL REST,R .QUAL NEUE,T .QUAL ANDERE,V .QUAL ZUSATZ,X .ENDQ .EXTRA DRUCKEN,LI .CMD DUPLIC,DU,4001, STAR, , 0, RXCOP .QUAL NKOPIEREN,M .QUAL PAUSE,P .QUAL LESEN,R .ENDQ .CMD EDIT,ED,5230, EXTNUL, , EDSUB, EDIT .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 HALTS,H .QUAL SPEICHER,K .QUAL START,S .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 STARTE,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 CREF,C .QUAL STARTE,G .QUAL LINK,L .QUAL PERMANENT,M .QUAL NLISTEN,N .QUAL EAE,Q .QUAL KBATCH,Z .QUAL FEHLER,X .ENDQ .CMD MAP,MAP,4001, EXTBN, , SETTTY, BITMAP .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 CREF,C .QUAL DDT,D .QUAL LGFEHLER,E .QUAL KFILLER,F .QUAL STARTE,G .QUAL KSEITEN,H .QUAL LADE,L .QUAL SYMBOLEN,N .QUAL KSYMBOLEN,S .QUAL VERGESSE,W .QUAL BREIT,7 .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 KFEHLER,E .QUAL RUHIG,H .QUAL DRUCKER,L .QUAL KBEDIENUNG,U .QUAL SUBROUTINE,S .QUAL 026,6 .ENDQ .CMD SYSTEM,SY,4001,EXTSY, , SETTTY, RESORC .QUAL ALLES,E .QUAL KURZ,L .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 > .IF NDF GERMAN < .ASECT TABLES FIELD 0 *6100 .CMD EXECUTE,EX,5013,EXTEXE, G, EXSUB, PAL8 /EXECUTE MUST BE FIRST FOR TECO EG .ENDQ .CMD BASIC,BA,0, BASUB, BASIC .ENDQ .CMD BOOT,BO,0, 0, BOOT .ENDQ .CMD CCL,CCL,0, MONRES, .ENDQ .CMD CLOSE,CL,4004, STAR, , CLOSUB, .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,5013, 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 OTHER,O .QUAL QUERY,Q .QUAL TODAY,T .QUAL UGLY,U .QUAL INVERT,V /.QUAL VERSION,W /.QUAL RUHIG,H .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 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 BLOCKS,B .QUAL CURRENT,C .QUAL DATUM,D .QUAL EXTENDED,E .QUAL FAST,F /.QUAL ADDITIONAL,I .QUAL EMPTIES,M .QUAL OTHER,O /.QUAL SEITE,P .QUAL REMAINDER,R /.QUAL NEUE,T .QUAL UGLY,U .QUAL INVERT,V /.QUAL VERSION,W /.QUAL V,V .QUAL COLUMNS,Z /DUMMY /.QUAL ZUSATZ,X .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 EDIT,ED,5230, EXTNUL, , EDSUB, EDIT /.QUAL SPACES,B /.QUAL PREDELETE,D .ENDQ .CMD FOCAL,FO,4071, STAR, , FOSUB, DPF .QUAL NOFUNC,N /.QUAL NOPRECISION,6 .QUAL WRITE,W .QUAL START,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 .CMD LAUF,LAU,4000, EXTBI, HS, 0, BATCH, SUBOPT .CMD LINK,LIN,5023, EXTLI, , LOSUB, LINK .QUAL GO,G .QUAL HALTS,H /.QUAL JUMPS,J .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 .CMD LOGIN,LOGI,0, LGISUB, BATCH .ENDQ .CMD LOGOUT,LOGO,0, LGOSUB, BATCH .ENDQ .CMD LOAD,LO,5023, EXTLO, , LOSUB, ABSLDR .QUAL CONTINUE,C .QUAL IMAGE,I .QUAL MULTIPLE,S .QUAL GO,G / /8 /9 /START:N /FIELD:F /P .ENDQ .CMD MAKE,MACE,0, MAKSUB, TECO .ENDQ .CMD MAC,MAC,5013, EXTMA, , EXSUB, MACREL .QUAL BLOCK,B .QUAL CREF,C .QUAL GO,G /.QUAL NOCONDITIONALS,J .QUAL LINK,L .QUAL PERMANENT,M .QUAL NOLIST,N /.QUAL NOMACROS,O /.QUAL RESET,P .QUAL EAE,Q /.QUAL REMOVE,R /.QUAL REDUNDANT,R .QUAL NOBATCH,Z .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 .CMD OCOMP,OC,4001, STAR, TH, 0, OCOMP .QUAL SUCHE,S .QUAL SV,I .QUAL CCB,C .ENDQ .CMD OPEN,OP,4004, STAR, , OPNSUB, .ENDQ .CMD PAL,PA,5013, 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 PIP,PIP,4001, EXTNUL, , 0, PIP .ENDQ .CMD PRINT,PR,4000, STAR, , SETLPT, LPTSPL .ENDQ .CMD PUNCH,PU,4001, EXTNUL, , SETPTP, PIP .ENDQ .CMD RENAME,REN,4001,STAR, LR, RENRT, FOTP, LSTOPT .EXTRA RES,SY .CMD SET,SET,0, 0, SET .ENDQ .CMD SHSAVE,SH,4001, STAR, , 0, SHSAVE .ENDQ .CMD SQUISH,SQ,4001, EXTNUL, S, SQSUB, PIP .QUAL OK,O .QUAL QUIET,H .ENDQ .CMD SUBMIT,SU,4000, EXTBI, , 0, BATCH .QUAL CARDS,C,SUBOPT .QUAL NONFATAL,E /.QUAL PAPERTAPE,P /.QUAL QUIET,Q .QUAL HUSH,H .QUAL DRUCKER,L /.QUAL TERMINAL,T .QUAL UNATTENDED,U .QUAL SUBROUTINE,S /.QUAL VERSION,V .QUAL 026,6 .ENDQ .CMD SYSTEM,SY,4001,EXTSY, , SETTTY, RESORC .QUAL EXTENDED,E .QUAL KURZ,L .QUAL FAST,F .ENDQ .CMD TALK,TA,0, TLKSUB, .ENDQ .CMD TECO,TE,30, TECSUB, TECO .ENDQ .CMD TTL,TT,0, TTSUB, 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 .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 > .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=5A .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