* 07/05/77 -- 12:00
* MODULE NAME: CMDTBL
* NUMBER: 77
* PURPOSE:CONTAINS ALL UTS/TEXT COMMAND DEFINITIONS INCLUDING A
*         LIST OF FIRST CHARACTERS THAT POINT AT THE ACTUAL
*         DEFINITIONS.
*
*
*
         DEF      FCL,CMDTBL
*
         REF      C03CLEAR,C04D,C05E,C02END,C03QM
         REF      C06FIND,C04GET,C03CLP,C05MOVE
         REF      C05N,C08PRINT,C08PR,C15READ,C13REPOR,C04STORE
         REF      C03TF,E08TF,C03TU,E08TU,C03TUF,E09TUF,C03TUH,E09TUH
         REF      C06STBLK
         REF      C06TAG,E37TAG,C12TABLE,E12TABLE
         REF      E37SKIP,E37STKT,E37EKT,E37BLANK,C03WIDTH
         REF      C13XO,C08XP,C13XT,C13XR,C03TABS,C05PLUS,C05MINUS
         REF      C05LN,E31SPCH,C05INSLN
         REF      C03TE,C03TC,C03TEND,C03TSTKT,C03TEKT
         REF      E39STBLK,E39EBLK,E39CBLK
         REF      C16INDEX
         REF      C03CRED
         REF      C60MRGN
         REF      E60TX
         REF      C08VP
         REF      C13DSMNT
         REF      C60FGEN
         REF      E60TXON,E60TXOFF
         REF      E60TFONT,C60FONT  'TFONT' AND 'FONT' COMMANDS
         REF      C60VIDEO          ASSOCIATE VIDEO FILE
         REF      C45TSTOP,E45TSTOP
         REF      C45FORM
         REF      E60TFIG
         REF      C11DISP           CRT EDIT FACILITY
         REF      C11CRT            CRT PROFILE TABLE
         REF      C04FILE           FILE OUTPUT COMMAND
         REF      C37LP             LINE PRINTER TO QUEUE
         REF      C05IEND           INSERT END
         REF      E37TS             TEMPORARY SPACING
         REF      C03TW,E03TW       TEMPORARY WIDTH
         REF      C11TERM           TERMINAL DEFINITION COMMAND
         REF      E37TK             PHRASE KEEP-TOGETHER
         REF      C42COL,E42COL     DEFINE COLUMNAR PRINT
         REF      C40ULP            UPPER/LOWER CASE PRINT
*
*
         PAGE
*
*
         DEF      77P
77P      CSECT    1
         DATA     X'77'             MODULE NUMBER
         DATA     X'070577'         DATE
         DATA     X'1200'           TIME
*
*
         SYSTEM   CMDDEF
         INVDSCR
*
FCLST    CSECT    1
FCL      EQU      %
CDEF     CSECT    1
CMDTBL   EQU      %
*
         TITLE    '** CMDTBL(77) **'
*
* QUESTION MARK -- PRINT TERMINAL STATUS
*
*        ATTN ?                     PRINT STATUS
         SCMD,N   X'6F',C03QM
*
* CLEAR COMMAND -- CLEAR WORKING STORAGE AND/OR AUX FILES
*
*
         SCMD     'CLEAR',C03CLEAR
         OPTN,M   ';'
         OPTN,NR,L ('D',1),('S',2),('X',3)
*
*
* CRT -- ASSOCIATE CRT PROFILE TABLE
*
         SCMD     'CRT',C11CRT
         OPTN,R   ';'
         OPTN,R,L GD
*
*
         PAGE
*
*
* DISMOUNT -- DISMOUNT MAGNETIC TAPE COMMAND
*
         SCMD,N   'DISMOUNT',C13DSMNT
*
*
*
* DELETE COMMAND -- DELETE FILE FROM PERMANENT STORAGE
*
*
         SCMD    'D',C04D
         OPTN,R   ';'
         OPTN,R,L GD
*
*
* DISPLAY -- CRT EDIT FACILITY
*
         SCMD     'DISPLAY',C11DISP
         OPTN,NR  RN1
         OPTN,M   ';'
         OPTN,NR  (S1,1)
         OPTN,S1,L  'ADD'
*
*
         PAGE
*
* ERASE COMMAND -- ERASE LINE(S) FROM WORKING STORAGE
*
*
         SCMD     'E',C05E
         OPTN,R,L  RN1
*
* END COMMAND -- SIGN-OFF FROM TERMINAL SESSION
*
         SCMD,N   'END',C02END
*
         PAGE
*
* FIND COMMAND -- FIND OR REPLACE PHRASE, TAG, OR BLOCK NAME
*
*
         SCMD     'F',C06FIND
         OPTN,NR  ('G',1),('I',2),('T',3),('B',4)
         OPTN,NR  ('A',5),('F',8)
         OPTN,NR  ('D',7)
         OPTN,NR  RN1
         OPTN,M   ';'
         OPTN,NR  CS3
         OPTN,M   (';',6)
         OPTN,NR,L  CS2
*
*
* FILE -- FILE OUTPUT COMMAND
*
         SCMD     'FILE',C04FILE
         OPTN,NR  ('X',1)
         OPTN,R   ';'
         OPTN,R,L SD
*
*
* FIGURE -- INSERT FIGURE COMMAND
*
         ECMD     'TFIG'
         OPTN,R,L DS1
         PCMD     'TFIG',E60TFIG
*
*
         PAGE
*
* FORM LETTER COMMAND
*
*
         SCMD     'FORM',C45FORM
         OPTN,NR  ('X',1)
         OPTN,M   ';'
         OPTN,NR,L  (GD,2)
*
*
* FORMGEN -- SPECIFY FORMS GENERATION FOR XGP
*
*
         SCMD     'FORMGEN',C60FGEN
         OPTN,R   ';'
         OPTN,R   (S1,1),(S2,2),(S3,3)
         OPTN,S1  'NONE'
         OPTN,S2  'SPEC'
         OPTN,S3,L  '-11'
         PAGE
*
*
* MARGIN -- SET LEFT AND TOP MARGINS FOR XGP
*
         SCMD     'MARGIN',C60MRGN
         OPTN,NR  (DS1,1)
         OPTN,M   ';'
         OPTN,NR,L  (DS2,2)
*
*
*
*
* GET COMMAND -- MOVE DOCUMENT TO WORKING STORAGE
*
*
         SCMD     'G',C04GET
         OPTN,NR  ('X',1)
         OPTN,R   ';'
         OPTN,R,L GD
*
*
         PAGE
*
* INDEX COMMAND -- PRINT INDEX OF DOCUMENT
*
*
         SCMD     'INDEX',C16INDEX
         OPTN,R   ';'
         OPTN,R   (S1,1),(S2,2),(S3,3),(S4,4)
         OPTN,M   ';'
         OPTN,NR  (S5,5),S6
         OPTN,NR  DS1
         OPTN,S1  'FULL'
         OPTN,S2  'BLOCK'
         OPTN,S3  'TAG'
         OPTN,S4  'TITLE'
         OPTN,S5  'LINE'
         OPTN,S6,L  'PAGE'
         PAGE
*
* INSERT COMMAND -- INSERT NEW LINE
*
*
         SCMD     'I',C05INSLN
         OPTN,R   LN
         OPTN,M   ';'
         OPTN,NR,L  RN1
*
*
* IEND -- INSERT END COMMAND
*
         SCMD,N   'IEND',C05IEND
*
*
         PAGE
*
* CLP COMMAND -- SET CLP AT A SPECIFIC LINE NUMBER
*
*
         SCMD     'CLP',C03CLP
         OPTN,M   ';'
         OPTN,NR,L (LN,1),('R',2)
*
*
* LP -- LINE PRINTER TO SYMBIONT QUEUE COMMAND
*
         SCMD     'LP',C37LP
         OPTN,M   ';'
         OPTN,NR  (S1,1)
         OPTN,S1,L  'AUTO'
*
*
         PAGE
*
*
* MOVE COMMAND -- MOVE LINE(S) IN WORKING STORAGE
*
         SCMD     'M',C05MOVE
         OPTN,NR  ('K',1)
         OPTN,R   LN
         OPTN,M   ';'
         OPTN,NR,L  RN1
*
* N COMMAND -- PRINT NEXT LINE NUMBER
*
         SCMD,N   'N',C05N
*
*
         PAGE
*
* PRINT COMMAND -- PRINT A DOCUMENT AT THE TERMINAL
*
*
         SCMD     'P',C08PRINT
         OPTN,NR  ('A',1),('J',2)
         OPTN,NR  ('N',3)
         OPTN,NR  ('W',4)
         OPTN,NR  ('D',5),('T',6)
         OPTN,NR  ('C',7)
         OPTN,NR  RN2
         OPTN,M   ';'
         OPTN,NR  CS1
         OPTN,M   ';'
         OPTN,NR,L  DS1
*
*
         PAGE
*
* ULPRINT -- UPPER/LOWER CASE LINE PRINTER
*
*
         SCMD     'ULPRINT',C40ULP
         OPTN,R   ';'
         OPTN,R   (S1,1),(S2,2)
         OPTN,S1  'ON'
         OPTN,S2,L  'OFF'
         PAGE
*
*
* VP -- VIDEO OUTPUT PRINT COMMAND
*
         SCMD     'VP',C08VP
         OPTN,NR  ('A',1),('J',2)
         OPTN,NR  ('N',3)
         OPTN,NR  ('W',4)
         OPTN,NR  ('D',5),('T',6)
         OPTN,NR  ('C',7)
         OPTN,NR  ('G',8)
         OPTN,NR  RN2
         OPTN,M   ';'
         OPTN,NR  CS1
         OPTN,M   ';'
         OPTN,NR,L  DS1
*
*
         PAGE
*
*
* VIDEO -- ASSOCIATE VIDEO FILE
*
         SCMD     'VIDEO',C60VIDEO
         OPTN,R   ';'
         OPTN,R,L GD
         PAGE
*
* REPRINT COMMAND -- REPRINT PREVIOUS PAGE
*
         SCMD,N   'PR',C08PR
*
*
*
* READ COMMAND -- READ AUXILIARY FILES
*
         SCMD     'R',C15READ
         OPTN,R   ('D',1),('S',2),('X',3)
         OPTN,R   ';'
         OPTN,R,L GD
*
*
         PAGE
*
* REPORT COMMAND -- PRINT STORAGE REPORT
*
         SCMD     'REPORT',C13REPOR
         OPTN,M   ('.',1)
         OPTN,NR,L  CS2
*
*
* STORE COMMAND -- MOVE DOCUMENT TO PERMANENT STORAGE
*
         SCMD     'S',C04STORE
         OPTN,NR  ('R',1)
         OPTN,NR  ('X',2)
         OPTN,NR  RN1
         OPTN,R   ';'
         OPTN,R,L SD
*
*
         PAGE
*
* TAG COMMAND -- DEFINE TAGS, INDEX TAGS, AND TITLE TAGS
*
         LCMD     'T',C06TAG
         OPTN,R   ('G',1),('I',2),('T',3)
         OPTN,NR  DS1
         OPTN,R   ':'
         OPTN,R,L CS2
         PCMD     'T',E37TAG
*
*
         PAGE
*
* TF COMMAND -- ENTER FORMATTED MODE
*
*
         ECMD     'TF',C03TF
         OPTN,M   ';'
         OPTN,NR,L  DS1
         PCMD     'TF',E08TF
*
*
* TU COMMAND -- ENTER UNFORMATTED MODE
*
*
         ECMD     'TU',C03TU
         OPTN,NR,L ('C',1)
         PCMD     'TU',E08TU
*
*
         PAGE
*
* TUF COMMAND -- ENTER FOOTING MODE
*
         ECMD     'TUF',C03TUF
         OPTN,NR  ('C',1),('A',2),('R',3)
         OPTN,NR,L  DS1
         PCMD     'TUF',E09TUF
*
*
* TK COMMAND - PHRASE KEEP-TOGETHER
*
         LCMD     'TK'
         OPTN,R   ':'
         OPTN,R,L CS2
         PCMD     'TK',E37TK
*
*
* TS COMMAND -- TEMPORARY SPACING COMMAND
*
         ECMD     'TS'
         OPTN,M   ';'
         OPTN,NR,L  ('S',1),('D',2),('T',3)
         PCMD     'TS',E37TS
*
*
* TW COMMAND -- TEMPORARY WIDTH COMMAND
*
         ECMD     'TW',C03TW
         OPTN,NR  ';'
         OPTN,NR,L  (DS1,1)
         PCMD     'TW',E03TW
         PAGE
*
* TB COMMAND -- START BLOCK DEFINITION
*
*
         ECMD     'TB',C06STBLK
         OPTN,R   ';'
         OPTN,R,L NM
         PCMD     'TB',E39STBLK
*
*
* TE COMMAND -- END BLOCK DEFINITION
*
         ECMD,N   'TE',C03TE
         PCMD     'TE',E39EBLK
*
         PAGE
*
* TUH COMMAND -- ENTER HEADING MODE
*
*
         ECMD     'TUH',C03TUH
         OPTN,NR  ('C',1),('A',2),('R',3)
         OPTN,NR,L  DS1
         PCMD     'TUH',E09TUH
*
*
         PAGE
*
* TC COMMAND -- CALLOUT BLOCK FOR PRINTING
         ECMD     'TC',C03TC
         OPTN,R   ';'
         OPTN,R   NM
         OPTN,M   ';'
         OPTN,NR    (S1,1),(S2,2),(S3,3),(S4,4)
         OPTN,S1  'UNC'
         OPTN,S2  'BOT'
         OPTN,S3  'TOP'
         OPTN,S4,L 'ANY'
         PCMD     'TC',E39CBLK
*
*
         PAGE
*
* TABLE COMMAND -- CREATE TABLE
*
         ECMD     'TABLE',C12TABLE
         OPTN,R   ';'
         OPTN,R   ('R',1),('C',2)
         OPTN,M   ';'
         OPTN,NR,L  (DS1,3)
         PCMD     'TABLE',E12TABLE
*
*
         PAGE
*
* END TABLE ROW OR COLUMN COMMAND
*
         ECMD,N   'TEND',C03TEND
         PCMD     'TEND'
*
*
         PAGE
*
* TCOL COMMAND -- DEFINE COLUMNAR PRINT
*
         ECMD     'TCOL',C42COL
         OPTN,R   (DS1,1)
         OPTN,R   ';'
         OPTN,R,L (DS2,2)
         PCMD     'TCOL',E42COL
         PAGE
*
* T+ COMMAND -- SKIP OUTPUT LINES
*
         ECMD     'T+'
         OPTN,R   DS1
         OPTN,M   ';'
         OPTN,NR  (S1,1),(S2,2),(S3,3),(S4,4),(S5,5),(S6,6)
         OPTN,S1  'UNC'
         OPTN,S2  'TOP'
         OPTN,S3  'BOT'
         OPTN,S4  'ANY'
         OPTN,S5  'NOW'
         OPTN,S6,L  'COL'
         PCMD     'T+',E37SKIP
*
*
         PAGE
*
* T( COMMAND -- START KEEP-TOGETHER
*
         ECMD     'T(',C03TSTKT
         OPTN,M   ('S',1),('D',2),('T',3)
         OPTN,NR,L  ('N',4)
         PCMD     'T(',E37STKT
*
*
         PAGE
*
* T) COMMAND -- END KEEP-TOGETHER
*
         ECMD     'T)',C03TEKT
         OPTN,NR  ('(',5)
         OPTN,M   ('S',1),('D',2),('T',3)
         OPTN,NR,L  ('N',4)
         PCMD     'T)',E37EKT
         PAGE
*
*
* T* COMMAND -- INSERT BLANK STRING
*
         LCMD     'T*'
         OPTN,R   DS1
         OPTN,NR,L  ('S',1)
         PCMD     'T*',E37BLANK
*
*
         PAGE
*
* T# COMMAND -- CALLOUT SPECIAL CHARACTER DEFINITION
*
*
         LCMD     'T#'
         OPTN,R,L  CS2
         PCMD     'T#',E31SPCH
*
*
         PAGE
*
*
* TXON,TXOFF -- BOX DRAWING CONTROL
*
         ECMD,N   'TXON'
         PCMD     'TXON',E60TXON
*
         ECMD,N   'TXOFF'
         PCMD     'TXOFF',E60TXOFF
*
*
         PAGE
*
*
* TSTOP COMMAND -- NAME/ADDRESS INSERTION
*
         LCMD     'TSTOP',C45TSTOP
         OPTN,M   ';'
         OPTN,NR  (S1,1),(S2,2),(S3,3),(S4,4),(S5,5),;
                  (S6,6),(S7,7),(S8,8),(S9,9),(S10,10),;
                  (S11,11)
         OPTN,S1  'CITY'
         OPTN,S2  'ENTRY'
         OPTN,S3  'FNAME'
         OPTN,S4  'LINE'
         OPTN,S5  'LNAME'
         OPTN,S6  'NAME'
         OPTN,S7  'PLNAME'
         OPTN,S8  'PREFIX'
         OPTN,S9  'STATE'
         OPTN,S10 'SUFFIX'
         OPTN,S11 'ZIP'
         OPTN,NR,L  (DS1,12)
         PCMD     'TSTOP',E45TSTOP
         PAGE
*
* CREDIT -- AUTOMATIC 'TEXT' CREDIT SWITCH
*
*
         SCMD     'CREDIT',C03CRED
         OPTN,R   ';'
         OPTN,R   (S1,1),(S2,2)
         OPTN,S1  'ON'
         OPTN,S2,L  'OFF'
         PAGE
*
* WIDTH COMMAND -- DEFINE WIDTH, DEPTH AND C-F DEPTH
*
         SCMD     'W',C03WIDTH
         OPTN,NR  (DS1,1)
         OPTN,M   ';'
         OPTN,NR  (DS2,2)
         OPTN,M   ';'
         OPTN,NR,L (DS3,3)
*
*
         PAGE
*
* XO COMMAND -- TRANSMIT MESSAGE TO COMPUTER CENTER OPERATOR
*
         SCMD     'XO',C13XO
         OPTN,R   ';'
         OPTN,R,L CS2
*
*
         PAGE
*
* XP COMMAND -- PRINT DOCUMENT ON LINE PRINTER
*
         SCMD     'XP',C08XP
         OPTN,NR  ('A',1),('J',2)
         OPTN,NR  ('N',3)
         OPTN,NR  ('W',4)
         OPTN,NR  ('D',5),('T',6)
         OPTN,NR  ('C',7)
         OPTN,NR  RN2
         OPTN,M   ';'
         OPTN,NR  CS1
         OPTN,M   ';'
         OPTN,NR,L  DS1
*
*
         PAGE
*
* XT COMMAND -- TRANSFER DOCUMENT TO TAPE
*
         SCMD     'XT',C13XT
         OPTN,NR  ('A',1)
         OPTN,R   ':'
         OPTN,R   NM
         OPTN,R   ';'
         OPTN,R   ('G',2),('S',3)
         OPTN,R   ';'
         OPTN,R,L GD
*
*
         PAGE
*
*
* XREPORT COMMAND -- PRINT STORAGE REPORT ON LINE PRINTER
*
         SCMD     'XREPORT',C13XR
         OPTN,M   ('.',1)
         OPTN,NR,L  CS2
*
*
         PAGE
*
*
* XTERM -- TERMINAL DEFINITION COMMAND
*
         SCMD     'XTERM',C11TERM
         OPTN,R   ';'
         OPTN,R   (S1,1),(S2,2),(S3,3),(S4,4)
         OPTN,S1  '3010'
         OPTN,S2  'TTY'
         OPTN,S3  '2741'
         OPTN,S4,L  '1200'
         PAGE
*
* TABS COMMAND -- SET SYSTEM TABS
*
         SCMD     '-T',C03TABS
         OPTN,NR,L  CS2
         SCMD     '--',C03TABS
         OPTN,NR,L  CS2
*
*
         PAGE
*
* EDIT COMMANDS -- LINE NUMBER OR OFFSET
*
         SCMD     '+',C05PLUS
         OPTN,R   DS1
         OPTN,NR  '-'
         OPTN,NR  LN
         OPTN,M   ';'
         OPTN,NR  (CS3,1)
         OPTN,M   (';',2)
         OPTN,NR,L CS2
*
*
         PAGE
*
*
         SCMD     '-',C05MINUS
         OPTN,R   DS1
         OPTN,NR  '-'
         OPTN,NR  LN
         OPTN,M   ';'
         OPTN,NR  (CS3,1)
         OPTN,M   (';',2)
         OPTN,NR,L CS2
*
*
         PAGE
*
*
         SCMD     '0',C05LN
         OPTN,R   RN2
         OPTN,M   ';'
         OPTN,NR  (CS3,1)
         OPTN,M   (';',2)
         OPTN,NR,L CS2
*
*
         PAGE
*
* FONT,TFONT -- SPECIFY AND CHANGE FONTS
*
         SCMD     'FONT',C60FONT
         OPTN,R   DS1
         OPTN,R   ';'
         OPTN,R,L GD
*
*
         LCMD     'TFONT'
         OPTN,R   ';'
         OPTN,R,L DS1
         PCMD     'TFONT',E60TFONT
*
*
         PAGE
*
*
         LSTCMD
         END
