*COMDECK ENVIRON
*      ******      BEGINNING OF COMMON DECK ENVIRON      ****** 
 OS$LEVEL EQU    34          3.4 IS ONLY CHOICE FOR SCOPE...
ABSENT    EQU    0
PRESENT   EQU    1
INTERCOM  SET    PRESENT     IF INTERCOM IS SET TO PRESENT, CODE WILL 
                             BE ASSEMBLED TO HANDLE BOTH BATCH MODE 
                             AND INTERCOM MODE OF OPERATION.
                             IF SET TO ABSENT, IT MEANS THAT THE
                             INSTALLATION DOES NOT HAVE INTERCOM IN 
                             THE SYSTEM, AND INTERCOM MODE CODE WILL
                             NOT BE ASSEMBLED.
          USE      /ENVIRON/
ENVIRON   BSS    0
DATE      BSS      1         DATE OF EXECUTION
TIME      BSS      1         TIME OF BEGINNING OF EXECUTION 
TERMINAL  BSS      1         0 = BATCH MODE OF OPERATION
                             1 = INTERCOM MODE, TTY TERMINAL
                             2 = INTERCOM MODE, CRT TERMINAL
NBLINES   BSS      1         NUMBER OF LINES PER OUTPUT 
                             (7777B FOR BATCH AND TTY)
CHPLIN    BSS      1         NUMBER OF CHARACTERS PER LINE FOR TERMINAL 
SEPAR     BSS    1           LITERAL DELIMITOR
 ITEMSIZ  BSS    1
 SEPAR1   BSS    1
READFROM  BSS    1           DIRECTIVES INPUT 
 FULLSYNT BSS    1
 RECORD   BSS    1           DIRECTIVE RECORDING FLAG.
 CURRSES  BSS    1
 CURRDIR  BSS    1
 PROMPDI  BSS    1
PRIMARY   BSS    1         LEVEL OF PRIMARY OVERLAY CURRENTLY LOADED
 SECONDA  BSS    0           ALTERNATE 7 CHAR NAME FOR SECONDARY
SECONDY   BSS    1         LEVEL OF SECONDARY OVERLAY CURRENTLY LOADED
HIGHEST   BSS    1           HIGHEST AVAILABLE ADDRESS FOR BUFFERS
OLD65     BSS    1           LWA+1 OF LAST COMPLETED LOAD 
BASEX0    BSS    1           FWA OF PRIMARY LEVEL OVERLAYS
BASE1X    BSS    1           FWA OF 1,X SECONDARY LEVEL OVERLAYS
FLAGS     BSS    1           LIBRARY BIT, SCOPE LEVEL, DEBUG BIT, ETC 
 SSECOND  BSS      1
 WDIRFLA  BSS      1
 INSAVED  BSS    1
 LXBEGIN  BSS    1
 OLDLEX   BSS    1
 PERDUM   BSS    1
 OLDKEY   BSS    1
 STKFLAG  BSS      1
 OLDTYPE  BSS    1                 SAVE OLD TYPEALOW
 IFFAIL   BSS    1
 CURSEAT  BSS    2
 DATEATT  BSS    2
 TIMEATT  BSS    2
          BSS    2
 CT100    BSS    1
 PLACEFL  BSS    1                                                      002280
 PROCEXF  BSS    1
 PERVETO  BSS    1
 VETOFLA  BSS    1
 PERFLG   BSS    1                 TRUE IF DOING A PERFORM
 SCHFLAG  BSS    1
 NEXTXM   BSS    1
 FSIZE    BSS    1
 TYPET    BSS    1
 DIRLEXI  BSS    1                                                      001210
 INTUSID  BSS    1
 NOTRMX   BSS    1                                                      000680
 CURRSOU  BSS       1 
 USERID   BSS    1           USER-ID REGISTER 
 UIATTR   BSS    2           USER-ID ATTRIBUTES 
 BATCHMD  BSS    1           FLAG FOR RUNNING IN BATCH MODE 
ENVIRON.  BSS    0
          USE 
*      ******            END OF COMMON DECK ENVIRON      ****** 
