*COMDECK  COMBLNK 
          USE    //          BLANK COMMON 
  
 COM1ST   EQU    *           DEFINE FWA OF BLANK COMMON FOR SIZE CHECK
  
*         RESERVED WORDS FOR BEGIN - SHARED BY SDO
  
 BGERR    BSS    1           STORE BEGIN ERROR CONDITIONS 
 BGHMD    BSS    1           1 = HELP MODE (LINE DIALOGUES) 
 BGODT    BSS    1           OFFSET OF .DIRECTIVE TEXT (IN PVT) 
 BGPHRN   BSS    1           PROCEDURE HELP RECORD NUMBER 
 BGPNAM   BSS    1           PNAME FROM PROCEDURE HEADER
 BGPNML   BSS    1           LENGTH OF PROCEDURE NAME (PNAME) 
 BGPWPL   BSS    1           POSITION WITHIN PARAMETER LIST 
 BGURPN   BSS    1           UNRECOGNIZED PARAMETER NAME
 BGURPL   BSS    1           UNRECOGNIZED PARAMETER LENGTH
 BGUTPC   BSS    1           UNTERMINATED PROCEDURE CALL INDICATOR
  
*         RESERVED WORD FOR MINIMUM SIZE VALUE SYMBOL FLAG. 
  
 DISTIME  BSS    1           INDICATES TIME SYMBOL FOUND BY CCLEVX
  
*         INTERACTIVE PROCESSING RESERVED WORDS AND FLAGS 
  
 IACDSF   BSS    1           PROCESS DESCRIPTION STRING (STRANS)
 IACERR   BSS    1           ADDRESS OF ERR MSG 
 IACEX    BSS    1           1 = .EX COMMAND STORED IN EXBUF
 IACEXP   BSS    1           0 = EXPAND 1 = DO NOT EXPAND PROC BODY 
 IACSUB   BSS    1           SUBSTITUTION- 0 = IMPLICIT, 1 = EXPLICIT 
 IACICF   BSS    1           1 = INTERACTIVE CALL 
 IACIMP   BSS    1           1 = INTERACTIVE MENU PROCESSING
 IACIDP   BSS    1           INTERACTIVE DIALOGUE IN PROGRESS 
 IACIPF   BSS    1           INTERACTIVE PROCESSING FLAG
 IACLCP   BSS    1           LONGEST CHECKLIST PATTERN OVERALL
 IACLPE   BSS    1           LAST PVT OFFSET
 IACNOTE  BSS    1           PVT OFFSET OF .NOTE DIRECTIVE TEXT 
 IACNPV   BSS    1           NEXT PVT OFFSET
 IACPRE   BSS    1           PREVIOUS PVT OFFSET
 IACPVID  BSS    1           BUILD PVT CONTROL WORDS
  
 OSSC2    IFNE   HOST,SC2 
 SDMODE   BSS    1           0 = LINE  1 = SCREEN MODE
 SDTACN   BSS    1           NO. OF 12BIT CHARACTERS STORED BY STRTASC
 OSSC2    ENDIF 
  
 SDOVL    IFNE   IP.SDO,0 
  
**************************************************************************
  
  
*         SCREEN DIALOGUE RESERVED WORDS AND FLAGS
  
 CLOSTAT  BSS    1           CLOSE STATUS FOR PANELS
 SDENTRY  BSS    1           ENTRY POINT ADDRESS FROM OVERLAY CALL
 SDLS     BSS    1           LONGEST SELECTION IN MENU
 SDMODL   BSS    1           TERMINAL MODEL 
 SDNCLE   BSS    1           LENGTH OF .NOCLR MESSAGE 
 SDNCOF   BSS    1           PVT OFFSET OF .NOCLR MESSAGE 
 SDTOP    BSS    1           PPT OFFSET FOR CURRENT TOP OF PAGE 
  
**************************************************************************
  
  
*         VARIABLE IN/OUT STRINGS 
  
 VINOUT   BSS    0
          BSS    V.SPMAX*V.CCVIO  MAXIMUM IN/OUT STRING LENGTH
 L.VIO    EQU    *-VINOUT          LENGTH OF VARIABLE IN/OUT FIELDS 
  
          BSS    1                 ZERO WORD
  
 SDOVL    ENDIF 
  
 SNVWRD   BSS                FULL WORD VALUES 
 SNVR1    BSS    1           R1 REGISTER
 SNVR2    BSS    1           R2 REGISTER
 SNVR3    BSS    1           R3 REGISTER
 SNVR1G   BSS    1           R1G REGISTER 
 SNVEF    BSS    1           ERROR FLAG 
 SNVEFG   BSS    1           GLOBAL ERROR FLAG
 SNVDSC   BSS    1           0= DO NOT PRINT SKIPPED CARDS
 SNVFL    BSS    1           CURRENT SCM FIELD LENGTH 
 SNVCMM   BSS                NOS - EQUIVALENT TO SNVMFL 
 SNVMFL   BSS    1           MAXIMUM SCM FIELD LENGTH 
 SNVFS    BSS    1           FILE SIZE IN SECTORS (FILE FUNCTION) 
 SNVSL    BSS    1           1 = SCREEN  0 = LINE 
  
 OSNOS    IFEQ   HOST,NOS 
 SNVCMN   BSS    1           NOMINAL CM FIELD LENGTH
 SNVECN   BSS    1           NOMINAL ECS FIELD LENGTH 
 SNVFNM   BSS    3           PARAMETER BLOCK GETPFP (NOS FAMILY NAME) 
 SNVPAK   EQU    SNVFNM+1    NOS PACKNAME 
 SNVUSR   EQU    SNVFNM+2    NOS USERNAME 
 SNVJSN   BSS    1           NOS JOB SEQUENCE NAME
 SNVUJN   BSS    1           NOS USER JOB NAME
 SNVDTY   BSS    1           NOS PF DEVICE TYPE 
 SNVNTN   BSS    1           NETWORK TERMINAL NAME
 SNVUIX   BSS    1           NOS USER INDEX 
 SNVVER   BSS    3           NOS SYSTEM VERSION LEVEL 
 OSNOS    ENDIF 
  
 SNVECM   BSS                NOS - EQUIVALENT TO SNVMFLL
 SNVMFLL  BSS    1           MAXIMUM LCM FIELD LENGTH 
 SNVPNL   BSS    1           PROCEDURE NESTING LEVEL
 SNVTIME  BSS    1           BINARY VALUE OF TIME OF DAY(HHMM)
 SNVDATE  BSS    1           BINARY DATE (YYMMDD) 
 SNVDATE4 BSS    1           BINARY DATE WITH 4-DIGIT YEAR (YYYYMMDD) 
 SNVYEAR  BSS    1           YEAR (YY)
 SNVYEAR4 BSS    1           4-DIGIT YEAR (YYYY)
 SNVMON   BSS    1           MONTH
 SNVDAY   BSS    1           DAY OF MONTH 
 SNVDAYS  BSS    1           DAYS SINCE JAN. 1, 1977
 SNVDOW   BSS    1           WEEKDAY (MON=1..SUN=7) 
  
  
 CCPRSK   BSS    1           PRINT SKIPPED CARDS
 EXPVAL   BSS    1           EXPRESSION VALUE 
 EXPCHR   BSS    1           EXPRESSION VALUE SIZE
 LABEL    BSS    1
 TERMT    BSS    4           TABLE FOR SKIP TERMINATORS 
  
  
*         THE CONTROL STATEMENT BUFFER IS USED TO STORE CARDS WHICH 
*         MUST BE PROCESSED BEFORE IT IS KNOWN WHETHER OR NOT 
*         THEY ARE TO BE PRINTED ON THE DAYFILE.  THIS OCCURS FOR 
*         SKIP TERMINATORS (ENDIF,ETC.) AND PROCEDURE HEADERS.
  
 CSBUFCL  EQU    9           WORDS PER ENTRY(ONE CARD)
          BSS    1           CURRENT OFFSET INTO CSBUF
 CSBUF    BSS    4*CSBUFCL   CONTROL STATEMENT BUFFER 
 CSBUFL   EQU    *-CSBUF     LENGTH OF CSBUF
 CSBUFOV  BSS    1           OVERFLOW FLAG,NON-ZERO= OVERFLOW 
  
  
 OSSC2    IFNE   HOST,SC2 
  
*         BUFFER FOR STORING COMMAND FROM .EX DIRECTIVE 
  
 EXBUF    BSS    V.CCCW      BUFFER FOR .EX COMMAND 
 EXBUFL   EQU    *-EXBUF     LENGTH OF EXBUF
  
 OSSC2    ENDIF 
*         STORAGE FOR INDEX FROM PC FILE
 PCINDX   BSS    6           WSA FOR FILEPC INDEX 
  
*         HPBUF IS USED TO WRITE AND READ THE HELP TEXT FILE
  
 HPBUF    BSS    V.CCCW      HELP TEXT BUFFER 
 HPBUFL   EQU    *-HPBUF     LENGTH OF HPBUF
 HPBUFOV  BSS    1           HPBUF OVERFLOW 
  
  
*         RBUF IS USED FOR READING CONNECTED INPUT DURING 
*         INTERACTIVE DIALOGUE. 
  
  
 RBUF     BSS    9           TERMINAL INPUT BUFFER
 RBUFL    EQU    *-RBUF      LENGTH OF READ WORKING BUFFER
 RBUFOV   BSS    1           READ BUFFER OVERFLOW 
  
  
*         WBUF IS USED FOR WRITING CONNECTED OUTPUT DURING
*         THE INTERACTIVE DIALOGUE. 
  
 WBUF     BSS    V.CCCW      TERMINAL OUTPUT BUFFER 
 WBUFL    EQU    *-WBUF      LENGTH OF WBUF 
 WBUFOV   BSS    1           OVERFLOW - NZ IS OVERFLOW
  
 SCATBF1  BSS    1+V.SBSIZ   HEADER AND SCATTER BUFFER
  
 SCATX    BSS    1+V.SBSIZ   SCRATCH SCATTER BUFFER AND HEADER
  
*         EXPRESSION PROCESSING SYMBOLS -- USED IN CCLEVX 
  
 EVXOSNE  BSS    1           NUMBER OF ENTRIES IN OPERATOR STACK
 EVXOS    BSS    V.EVXSL     OPERATOR STACK BUFFER AREA 
  
 EVXVSNE  BSS    1           NUMBER OF ENTRIES IN VALUE STACK 
 EVXVS    BSS    V.EVXSL     VALUE STACK (OPERAND STACK) BUFFER AREA
 FNIN     BSS    1           PARAMETER WORD - CONNECT INTERCOM IN 
 FNOU     BSS    1           PARAMETER WORD - CONNECT INTERCOM OUT
  
  
  
*         THE FOLLOWING DATA IS SET BY STRANS AS IT ASSEMBLES 
*         THE NEXT STRING.  THE CHARACTERISTICS OF THE STRING ARE 
*         FOUND BY EXAMINING THIS DATA. 
  
          USE    //          BLANK COMMON 
 ANSCHR   BSS    1           NUMBER OF CHARACTERS IN STRING 
 ANSEVL   BSS    9           EVALUATED LITERAL
 ANSEVLC  BSS    1           CHARACTERS IN EVAL. LITERAL
 ANSEVN   BSS    1           VALUE OF EVALUATED NUMERIC 
 ANSHBA   BSS    1           HEADER BEFORE LAST ASSEMBLY
 ANSLIT   BSS    1           BOOLEAN, 1= STRING IS A LITERAL
 ANSMDE   BSS    1           MODE, 0=CONTROL STATEMENT - IGNORE 
                                BLANKS AND IDENTIFY LITERALS. 
                                1= ALL NON-ALPHANUMERIC ARE SEPARATOR 
 ANSNUM   BSS    1           1= FIRST CHAR. OF ANSSTR IS NUMERIC
 ANSPSP   BSS    1           PREVIOUS SEPARATOR 
 ANSSEP   BSS    1           FOLLOWING SEPARATOR, SIGN BIT SET
                               IF NO FOLLOWING SEPARATOR. 
 ANSSTR   BSS    V.CCCW      THE ASSEMBLED STRING LEFT
*                            JUSTIFIED ZERO FILLED
 ANSVRB   BSS    1           VERB FROM CCLASV 
  
  
 MSGBUF   BSS    10          SCRATCH AREA FOR MESSAGES
 MSGBUF2  BSS    1           ANOTHER 1 WORD MESSAGE BUFFER
