PROCEDURE ,010005 ;+ ; Copyright (c) 1976 ; Digital Equipment Corporation, Maynard, Mass. ; ; This software is furnished under a license for use only on a ; single computer system and may be copied only with the inclu- ; sion of the above copyright notice. This software, or any ; other copies thereof, may not be provided or otherwise made ; available to any other person except for use on such system ; and to one who agrees to these license terms. Title to and ; ownership of the software shall at all times remain in DEC. ; ; The information in this software is subject to change without ; notice and should not be construed as a commitment by Digital ; Equipment Corporation. ; ; DEC assumes no responsibility for the use or reliability of its ; software on equipment which is not supplied by DEC. ; ; Written: 15-Feb-76, -0.0.0-, D.N. Cutler ; ; Modified: 12-Jan-80, -1.0.0-, Henry R. Tumblin ; Produced Duke supported version ; ; Verified: 12-Jan-80, -1.0.0-, Henry R. Tumblin .IF DF A$$RAP ; ; Modified 26-Aug-80, -1.0.1-, John D. Leonard ; Added SETSS commandto allow sub/superscripts to move ; 1/8 line increments. ; ; Modified: 02-Oct-80, -1.0.2-, John D. Leonard ; Changed so spacing command does not cause a break ; ; Modified: 08-Oct-80, -1.0.3-, John D. Leonard ; Added .NNPL, .OP, .OPJ, OB, .TM, .EQ, .EEQ ; ; Modified: 05-Nov-80, -1.0.4-, John D. Leonard ; Added .SUBD/.SUB , substitute string delimited, substitute string, command ; ; Modified: 06-Jan-81, -1.0.5-, John D. Leonard ; Removed relative argument modifier from .CENTER command. .ENDC ;- .SBTTL RUNOFF COMMAND TABLE .GLOBL LOOKUP ; command lookup table index ; equated symbols ; command flag byte definitions ; NOTF=1 ; note processing active FOTF=2 ; footnote processing active RELF=4 ; relative number conversion (1=yes) 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 PDATA STRING $$$=. .ASCII ^NAM^ PDATA DSPTCH .WORD EP,$$$ .PSECT .ENDM .MACRO POINTE,NAME,INDIC .IF NB INDIC .IF IDN ,INDIC .GLOBL NAME .ENDC .ENDC PDATA DSPTCH NAME: .PSECT .ENDM .SBTTL COMMAND TABLE PDATA DSPTCH CMTAB:: POINTER A CM AUTOP,,BRKF CM APNDX,,BRKF!FOTF!NOTF CM AUTOP,,BRKF CM APNDX,,BRKF!FOTF!NOTF POINTER B CM LINSKP,,BRKF CM BGBAR, CM BGBAR, .IF DF R$$SCR CM LINSKP,,BRKF .ENDC ;R$$SCR CM LINSKP,,BRKF CM BREAK,
,BRKF CM BREAK,,BRKF POINTER C CM CENTER,,BRKF!FPGF .IF DF R$$SCR CM CENTER,,BRKF!FPGF .ENDC ;R$$SCR CM CENTER,
,BRKF!FPGF CM CENTER,,BRKF!FPGF CM CHPTR,,BRKF!FOTF!NOTF .IF DF R$$SCR CM CHANG, .ENDC ;R$$SCR CM CHANG, CM CHPTR,,BRKF!FOTF!NOTF CM CHR,,BRKF!FOTF!NOTF .IF DF R$$SCR CM COMNT, .ENDC ;R$$SCR CM COMNT, POINTER D CM DATE, CM DATET, CM DSCBR, CM DSCBR, CM DOINX,,BRKF!FOTF!FPGF CM DOINX,,BRKF!FOTF!FPGF CM DOINX,,BRKF!FOTF!FPGF POINTER E CM ENBAR, CM ENCBR, .IF DF A$$RAP CM EQOFF,,BRKF!RELF .ENDC POINTER ELCMD,GLOBAL CM ELTRL,,BRKF!ENDF POINTER ELSTC,GLOBAL CM ELIST,,BRKF!ENDF POINTER ENOTE,GLOBAL CM ENOTC,,BRKF!ENDF CM ENCBR, CM ENBAR, CM ELIST,,BRKF!ENDF CM ELTRL,,BRKF!ENDF CM ENOTC,,BRKF!ENDF .IF NDF A$$RAP CM CPAGE,,BRKF!FOTF .IFF CM PAGEC,,BRKF!FOTF .ENDC CM ELIST,,BRKF!ENDF CM ELTRL,,BRKF!ENDF CM ENOTC,,BRKF!ENDF .IF NDF A$$RAP CM CPAGE,,BRKF!FOTF .IFF CM PAGEC,,BRKF!FOTF CM PAGEC,,BRKF!FOTF CM EQON,,BRKF!RELF .ENDC POINTER F CM FILLN,,BRKF CM FIGURE,,FOTF!FPGF CM FIGUR,,BRKF!FOTF!FPGF CM FILLN,,BRKF CM FIGUR,
,BRKF!FOTF!FPGF CM FILLN,,BRKF CM FTITL,,FOTF CM FTITL,,FOTF CM ENCFL, CM ENHFL, CM ENCFL, CM ENHFL, CM ENCFL, CM ENHFL, CM FOOTN,,FOTF CM FOOTN,,FOTF CM FTITL,,FOTF POINTER H CM HEADP,,FOTF CM HEADR,
,BRKF!FOTF!FPGF!NOTF CM HEADP,
,FOTF CM HEADR,,BRKF!FOTF!FPGF!NOTF CM HEADR,,BRKF!FOTF!FPGF!NOTF CM HYPHN,,BRKF CM HYPHN,,BRKF POINTER I CM INDENT,,BRKF .IF DF R$$SCR CM INDENT,,BRKF .ENDC ;R$$SCR CM INHDR,,BRKF!FOTF!FPGF!NOTF CM INDIRC,,FOTF ; include files CM INDIRC,,FOTF ; include files CM INDENT,,BRKF CM INDEXO, ; ... CM INDEX,,FPGF .IF DF R$$SCR CM INDEXO, CM INDEXO, .ENDC ;R$$SCR CM INDEXO, ; index offset .IF DF R$$SCR CM INDEX,,FPGF .ENDC ;R$$SCR POINTER J CM JUSTN,,BRKF .IF DF R$$SCR CM JUSTN,,BRKF .ENDC ;R$$SCR CM JUSTN,,BRKF POINTER L CM LSTELA,,BRKF CM LWCAS, CM LSTEL,,BRKF CM LSTELB,,BRKF CM LSTC,,BRKF CM SETLM,,BRKF!RELF CM SETLM,,BRKF!RELF CM LSTL,,BRKF CM LSTELN,,BRKF CM LSTR,,BRKF CM STPGTP,,FOTF CM LSTEL,,BRKF CM LISTC,,BRKF CM LSTEL,,BRKF CM LITRL,,BRKF CM LITRL,,BRKF CM SETLM,,BRKF!RELF CM LWCAS, CM LWCAS, CM LISTC,,BRKF .IF DF R$$SCR CM LITRL,,BRKF .ENDC ;R$$SCR POINTER M CM PRNTLN, CM PRNTLN, POINTER N CM NAUTO, CM NCHPT, CM FILOF,,BRKF CM DSCFL, CM DSHFL, CM DSAFL, CM NHEAD,,FOTF CM NHYPH,,BRKF CM JUSOF,,BRKF CM NUMON, CM NUMOF, .IF DF A$$RAP CM NUMLWO, .ENDC CM NAUTO, CM FILOF,,BRKF CM DSCFL, CM DSHFL, CM DSAFL, CM NHEAD,,FOTF CM NHYPH,,BRKF CM JUSOF,,BRKF CM NUMOF, CM NPERS, CM NAUTO, CM FILOF,,BRKF CM DSCFL, CM DSHFL, CM DSAFL, CM NHEAD,,FOTF CM NHYPH,,BRKF CM JUSOF,,BRKF CM NUMOF, CM NPERS, CM NOTE,,BRKF!FPGF!NOTF CM NUMLW, CM NPERS, CM NOTE,,BRKF!FPGF!NOTF CM NOTEC,,BRKF!FPGF!NOTF CM NAPDX, CM NCHPT, CM NUMON, CM NAPDX, CM NCHPT, .IF DF R$$SCR CM NAPDX, .ENDC ;R$$SCR .IF DF A$$RAP POINTER O CM OVERB,,BRKF!FPGF CM OVERP,FPGF CM OVERPJ,FPGF .ENDC POINTER P CM PARAG,

,BRKF!FOTF CM SETPG,,BRKF!FOTF!RELF CM CPAGE,,BRKF!FOTF CM SETPG,,BRKF!FOTF!RELF CM SETPG,,BRKF!FOTF!RELF CM SETPG,,BRKF!FOTF!RELF CM PARAG,,BRKF!FOTF CM PERSP, CM CPAGE,,BRKF!FOTF CM SELM,,BRKF!RELF CM PARAG,,BRKF!FOTF CM PERSP, CM PINDX,,BRKF!FOTF!FPGF CM PINDX,,BRKF!FOTF!FPGF CM SERM,,BRKF!RELF CM SETPG,,BRKF!FOTF!RELF CM PINDX,,BRKF!FOTF!FPGF POINTER R CM SETRM,,BRKF!RELF CM SETRM,,BRKF!RELF CM SETRM,,BRKF!RELF POINTER S CM SKIPL,,BRKF .IF DF R$$SCR CM TPAGE,,BRKF!FOTF .ENDC ;R$$SCR CM STAND,,BRKF!FOTF!RELF CM SETN, .IF DF A$$RAP CM SETSS, .ENDC CM SHDR,,BRKF!FOTF!FPGF!NOTF CM SKIPL,,BRKF CM SKIPL,,BRKF .IF NDF A$$RAP CM SSP,,BRKF CM SSP,,BRKF .IFF CM SSP, CM SSP, .ENDC CM SETSTL,,FOTF CM STAND,,BRKF!FOTF!RELF .IF DF A$$RAP CM SUBST, CM SUBSTD, .ENDC CM TPAGE,,BRKF!FOTF CM SETSTL,,FOTF CM SETSTL,,FOTF CM SWPFIL, POINTER T CM SETTL,,FOTF .IF DF R$$SCR CM SETTL,,FOTF .ENDC ;R$$SCR CM SETTAB,,FOTF!RELF CM SETTAB,,FOTF!RELF CM TSTPG,,BRKF!FOTF CM TSTPG,,BRKF!FOTF CM SETTL,,FOTF .IF DF A$$RAP CM SETTM,<TM> .ENDC CM TSTPG,<TP>,BRKF!FOTF CM SETTAB,<TS>,FOTF!RELF POINTER U CM UPCAS,<UC> CM UPCAS,<UPPER CASE> CM UPCAS,<UPPERCASE> POINTER X CM INDEX,<X>,FPGF PDATA DSPTCH ECTAB:: .PSECT .sbttl command index table PDATA LOOKUP LOOKUP: .WORD A .WORD B .WORD C .WORD D .WORD E .WORD F .WORD 0 .WORD H .WORD I .WORD J .WORD 0 .WORD L .WORD M .WORD N .WORD O .WORD P .WORD 0 .WORD R .WORD S .WORD T .WORD U .WORD 0 .WORD 0 .WORD X .WORD 0 .WORD 0 .END