.TITLE CMTAB .IDENT /M3.0X/ ; RUNOFF COMMAND TABLE ; ; AUTHOR: D. N. CUTLER 15-FEB-76 ; ; MODIFIED BY ; ; C. H. Spalding, Unimation, Dec. '82 ; ; MODIFICATIONS ; ; SIG02 REARRANGE TABLE FOR PROPER LOOKUP ORDER ; chs04 Add ALTERNATING HEADER ; chs12 Add EVEN and ODD ; chs13 Add NO FLAGS entry (missing for some reason) ; chs14 Add ALTERNATING TITLE ; chs17 Ignore white space in command names/reduce command table ; (all compressed commands eliminated from table) ; chs19 Add AUTOSUBTITLE ; chs20 Add optional-text commands (added TXTF flag) ; chs23 Add RIGHT JUSTIFY ; chs31 Added "NOTF" (31a) and "FOTF" (31b) to several commands ; chs32 Allow PARAGRAPH in footnotes ; chs35 Misc. changes to tab processing ; chs39 Add LAYOUT and related switches ; chs40 Expand HEADER ; chs43 Add QUOTE CHARACTER ; chs46 Change ALTERNATING HEADER to ALTERNATE ; chs47 Allow consecutive subpages ; chs48 Have NUMBER take relative page number ; chs51a Add ENTRY ; chs51b Add [NO] FLAGS SUBINDEX ; chs54b Add FOOTNOTE LINE ; chs56 Add PAGE NAME ; chs70 Add TEST LINES ; chs74 Allow relative/default header level argument ; chs77 Eliminate FIRST TITLE ; chs78 Add BLOCK ; chs80 Add text argument to FIGURE ; ; LOCAL SYMBOLS ; ; Command flag byte definitions NOTF=1 ;NOTE PROCESSING ACTIVE FOTF=2 ;ALLOWED WHEN BLOCK/FOOTNOTE ACTIVE? (1 = NO) ;chs78a RELF=4 ;RELATIVE NUMBER CONVERSION (1=YES) TXTF=10 ;COMMAND TAKES TEXT ARG (USED BY "OPTION") ;chs20 FPGF=20 ;FLUSH PENDING PAGE (1=YES) ENDF=40 ;CORRESPONDS TO END FLAG IN TRAILING BYTE BRKF=100 ;CORRESPONDS TO BREAK FLAG IN TRAILING BYTE ; LOCAL MACRO DEFINITIONS ; ; Generate command table entry .MACRO CM EP,NAM,FLAGS .PSECT STRING,GBL,D $$$=. .ASCII ^NAM^ .PSECT DSPTCH,GBL,D .WORD EP,$$$ .ENDM ; COMMAND TABLE ; ; NOTE: Command names with the same first word (e.g., PAGE ;chs ; and PAGE SIZE) must be arranged with the short name ;chs ; LAST in this table. Otherwise the long name will ;chs ; never be found by the command scanner. ;chs .PSECT DSPTCH,GBL,D CMTAB:: CM APNDX,,BRKF!FOTF!NOTF!TXTF CM APNDX,,BRKF!FOTF!NOTF!TXTF CM AUTOP, CM AUTOP, CM NAUTO, CM NAUTO, CM CENTER,,BRKF!FPGF!RELF!TXTF CM CENTER,
,BRKF!FPGF!RELF!TXTF CM CENTER,,BRKF!FPGF!RELF!TXTF .IF NZ RTJUST ;chs23+ CM RJUST,,FPGF!RELF!TXTF ;DON'T USE "BRKF" ON CM RJUST,,FPGF!RELF!TXTF ; THIS COMMAND! .ENDC ; NZ RTJUST ;chs23- CM CHPTR,,BRKF!FOTF!NOTF!TXTF CM CHPTR,,BRKF!FOTF!NOTF!TXTF CM COMNT,,TXTF .IF NZ FIRTIT ;chs77 CM FTITL,,FOTF!NOTF!TXTF ;chs31a CM FTITL,,FOTF!NOTF!TXTF ;chs31a .ENDC ; NZ FIRTIT ;chs77 .IF NZ RELHDL ;chs74+ CM HEADR,,BRKF!RELF!FOTF!FPGF!NOTF!TXTF CM HEADR,
,BRKF!RELF!FOTF!FPGF!NOTF!TXTF .IFF ;chs74- CM HEADR,,BRKF!FOTF!FPGF!NOTF!TXTF CM HEADR,
,BRKF!FOTF!FPGF!NOTF!TXTF .ENDC ; -NZ RELHDL ;chs74 CM HEADP,,RELF!FOTF ;chs40 CM HEADP,
,RELF!FOTF ;chs40 CM NHEAD,,FOTF CM NHEAD,,FOTF .IF NZ ALTSHF ;chs46+ CM AHEAD,,RELF!FOTF CM AHEAD,,RELF!FOTF CM NAHEAD,,FOTF CM NAHEAD,,FOTF .IFF ;chs46- .IF NZ ALTHDR ;chs04+ CM AHEAD,,FOTF CM AHEAD,,FOTF CM NAHEAD,,FOTF CM NAHEAD,,FOTF .ENDC ; NZ ALTHDR ;chs04- .ENDC ; -NZ ALTSHF ;chs46 .IF NZ ALTTIT ;chs14+ CM ATITL,,FOTF CM ATITL,,FOTF CM NATITL,,FOTF CM NATITL,,FOTF .ENDC ; NZ ALTTIT ;chs14- CM INDENT,,BRKF!TXTF CM INDENT,,BRKF!TXTF .IF NZ QTCHAR ;chs43+ CM QTCH, CM QTCH, .ENDC ; NZ QTCHAR ;chs43- CM UPCAS, CM UPCAS, CM LWCAS, CM LWCAS, CM BREAK,
,BRKF CM BREAK,,BRKF .IIF NZ LAYOUT, CM LYOUT,,BRKF!FOTF!RELF ;chs39 .IF NZ PAGNAM ;chs56+ CM SETPN,,FOTF CM SETPN,,FOTF .ENDC ; NZ PAGNAM ;chs56- CM SETPG,,BRKF!FOTF!RELF CM SETPG,,BRKF!FOTF!RELF CM SETPG,,BRKF!FOTF!RELF CM CPAGE,,BRKF!FOTF ;SIG02 CM CPAGE,,BRKF!FOTF ;SIG02 CM TPAGE,,BRKF!FOTF .IF NZ SBPFIX ;chs47 CM ENDSBP,,BRKF!FOTF .IFF ;chs47 CM CPAGE,,BRKF!FOTF .ENDC ; -NZ SBPFIX ;chs47 .IF NZ EVNODD ;chs12+ CM EPAGE,,BRKF!FOTF!TXTF CM OPAGE,,BRKF!FOTF!TXTF .ENDC ; NZ EVNODD ;chs12- CM SETTL,,FOTF!TXTF CM SETTL,,FOTF!TXTF CM SETSTL,<ST>,FOTF!TXTF CM SETSTL,<SUBTTL>,FOTF!TXTF CM SETSTL,<SUBTITLE>,FOTF!TXTF .IF NZ ATOSUB ;chs19+ CM ASUBT,<AS>,FOTF!RELF CM ASUBT,<AUTOSUBTITLE>,FOTF!RELF .ENDC ; NZ ATOSUB ;chs19- CM SETRM,<RM>,BRKF!RELF CM SETRM,<RIGHT MARGIN>,BRKF!RELF CM SETLM,<LM>,BRKF!RELF CM SETLM,<LEFT MARGIN>,BRKF!RELF .IF NZ PARFN ;chs32+ CM PARAG,<P>,BRKF CM PARAG,<PARAGRAPH>,BRKF .IFF CM PARAG,<P>,BRKF!FOTF CM PARAG,<PARAGRAPH>,BRKF!FOTF .ENDC ; -NZ PARFN ;chs32- CM SSP,<SP>,BRKF CM SSP,<SPACING>,BRKF CM SKIPL,<S>,BRKF CM SKIPL,<SK>,BRKF CM SKIPL,<SKIP>,BRKF CM LINSKP,<B>,BRKF CM LINSKP,<BLANK>,BRKF CM JUSTN,<J>,BRKF CM JUSTN,<JUSTIFY>,BRKF CM JUSOF,<NJ>,BRKF CM JUSOF,<NO JUSTIFY>,BRKF .IF NZ RELTAB ;chs35c+ CM SETTAB,<TS>,FOTF!RELF CM SETTAB,<TAB STOPS>,FOTF!RELF .IFF ;chs35c- CM SETTAB,<TS>,FOTF CM SETTAB,<TAB STOPS>,FOTF .ENDC ; -NZ RELTAB ;chs35c CM FILLN,<F>,BRKF CM FILLN,<FILL>,BRKF CM FILOF,<NF>,BRKF CM FILOF,<NO FILL>,BRKF CM TSTPG,<TP>,BRKF!FOTF CM TSTPG,<TEST PAGE>,BRKF!FOTF .IF NZ TSTLIN ;chs70+ CM TSTLN,<TL>,BRKF!FOTF CM TSTLN,<TEST LINES>,BRKF!FOTF .ENDC ; NZ TSTLIN ;chs70- .IF NZ FIGCAP ;chs80+ CM FIGUR,<FG>,BRKF!FPGF!TXTF CM FIGUR,<FIGURE>,BRKF!FPGF!TXTF .IFF ;chs80- CM FIGUR,<FG>,BRKF!FOTF!FPGF CM FIGUR,<FIGURE>,BRKF!FOTF!FPGF .ENDC ; -NZ FIGCAP ;chs80 CM INDEX,<X>,FPGF!TXTF CM INDEX,<INDEX>,FPGF!TXTF .IF NZ XENTRY ;chs51a+ CM ENTRY,<Y>,FPGF!TXTF CM ENTRY,<ENTRY>,FPGF!TXTF .ENDC ; NZ XENTRY ;chs51a- CM PERSP,<PR> CM PERSP,<PERIOD> CM NPERS,<NPR> CM NPERS,<NO PERIOD> CM DOINX,<DX>,BRKF!FOTF!NOTF!FPGF!TXTF ;chs31a+ CM DOINX,<DO INDEX>,BRKF!FOTF!NOTF!FPGF!TXTF CM PINDX,<PX>,BRKF!FOTF!NOTF!FPGF CM PINDX,<PRINT INDEX>,BRKF!FOTF!NOTF!FPGF ;chs31a- .IF NZ AUTOFN ;chs54b+ CM FOOTL,<FNL>,FOTF CM FOOTL,<FOOTNOTE LINE>,FOTF .ENDC ; NZ AUTOFN ;chs54b- CM FOOTN,<FN>,FOTF CM FOOTN,<FOOTNOTE>,FOTF .IIF NZ BLKCMD, CM BLOCK,<BLOCK>,FOTF ;chs78a CM NAPDX,<NUMBER APPENDIX>,FOTF ;chs31b CM NCHPT,<NUMBER CHAPTER>,FOTF ;chs31b .IF NZ NUMREL ;chs48b+ CM NUMON,<NM>,FOTF!RELF CM NUMON,<NUMBER>,FOTF!RELF .IFF ;chs48b- CM NUMON,<NM>,FOTF ;chs31b CM NUMON,<NUMBER>,FOTF ;chs31b .ENDC ; -NZ NUMREL ;chs48b CM NUMOF,<NNM>,FOTF ;chs31b CM NUMOF,<NO NUMBER>,FOTF ;chs31b CM LITRL,<LIT>,BRKF CM LITRL,<LITERAL>,BRKF ELCMD:: CM ELTRL,<ELI>,BRKF!ENDF CM ELTRL,<END LITERAL>,BRKF!ENDF CM NOTE,<NT>,BRKF!FPGF!NOTF!TXTF CM NOTE,<NOTE>,BRKF!FPGF!NOTF!TXTF ENOTE:: CM ENOTC,<EN>,BRKF!ENDF CM ENOTC,<END NOTE>,BRKF!ENDF CM STAND,<SD>,BRKF!FOTF!RELF CM STAND,<STANDARD>,BRKF!FOTF!RELF CM LSTEL,<LE>,BRKF!TXTF CM LSTEL,<LIST ELEMENT>,BRKF!TXTF CM LISTC,<LS>,BRKF ;SIG02 CM LISTC,<LIST>,BRKF ;SIG02 ELSTC:: CM ELIST,<ELS>,BRKF!ENDF CM ELIST,<END LIST>,BRKF!ENDF .IF NZ OPTTXT ;chs20+ CM INCLUD,<IN> CM INCLUD,<INCLUDE> CM EXCLUD,<EX> CM EXCLUD,<EXCLUDE> CM OPTION,<OPT> CM OPTION,<OPTION> ELSEC:: CM ELSE,<ELSE> EOPTC:: CM ENDOPT,<ENDO> CM ENDOPT,<END OPTION> .ENDC ; NZ OPTTXT ;chs20- CM DSCFL,<NFC> CM DSCFL,<NO FLAGS CAPITALIZE> CM DSHFL,<NFH> CM DSHFL,<NO FLAGS HYPHENATE> .IF NZ SUBIDX ;chs51b+ CM DSSFL,<NFS> CM DSSFL,<NO FLAGS SUBINDEX> .ENDC ; NZ SUBIDX ;chs51b- CM DSAFL,<NFL> CM DSAFL,<NO FLAGS> ;chs13 CM ENCFL,<FL CAPITALIZE> CM ENCFL,<FLAGS CAPITALIZE> CM ENHFL,<FL HYPHENATE> CM ENHFL,<FLAGS HYPHENATE> .IF NZ SUBIDX ;chs51b+ CM ENSFL,<FL SUBINDEX> CM ENSFL,<FLAGS SUBINDEX> .ENDC ; NZ SUBIDX ;chs51b- CM HYPHN,<HY>,BRKF CM HYPHN,<HYPHENATION>,BRKF CM NHYPH,<NHY>,BRKF CM NHYPH,<NO HYPHENATION>,BRKF .PSECT DSPTCH,GBL,D ECTAB:: .PSECT .END