COMXSEB 
COMMON
  
#     COMXSEB - SLAVE EXEC BUFFERS.                                   # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
# 
***   COMXSEB - SLAVE EXEC BUFFERS. 
* 
*     *COMXSEB* CONTAINS INFORMATION COMMON TO THE *FASSLV* ROUTINES. 
# 
  
      BEGIN  # COMXSEB #
  
      DEF DELAYCT #10#;              # DELAY COUNT WHILE WAITING FOR
                                       THE *STOM* OR *MTOS* FILES TO
                                       BECOME AVAILABLE. #
      DEF FLASH      #"$"#;          # FOR FLASHING MESSAGES #
      DEF NOFLASH    #" "#;          # FOR NON-FLASHING MESSAGES #
  
  
      STATUS SLVESTAT                # STATUS OF SLAVE EXEC # 
        OK,                          # NO PROBLEMS #
        IDLE,                        # IDLE FLAG WAS SET #
        IDLEMTOS,                    # IDLE WHEN INITIALIZING *MTOS* #
        IDLESTOM,                    # IDLE WHILE INITIALIZING *STOM* # 
        LASTIDLE,                    # END OF IDLE STATUS VALUES #
        MTOSERR,                     # ERROR WHILE READING *MTOS* # 
        SETPFP,                      # SETPFP REQUEST FAILED #
        ENDSTAT;                     # END OF STATUS LIST # 
  
      COMMON XSEBCOM; 
  
        BEGIN  # XSEBCOM #
                                                      #$$#
              ITEM $$XSEB$$ C(20) = "****** COMXSEB *****"; 
                                                      #$$#
  
  
        ITEM MTOSBUFL   U;           # SIZE OF BUFFER NEEDED TO READ
                                       THE *MTOS* FILE #
        ITEM MTOS$TIME  U;           # TIME TO READ AND PROCESS THE 
                                       *MTOS* FILE #
        ITEM PFNSTOM    C(7);        # PFN OF THE *STOM* FILE # 
        ITEM SLVEND     S:SLVESTAT;  # STATUS OF THE SLAVE EXEC # 
        ITEM STOM$TIME  U;           # TIME TO WRITE THE *STOM* FILE #
  
# 
*     DATA BUFFERS AND FETS FOR THE *MTOS* AND *STOM* FILES.
# 
  
  
        BASED 
        ARRAY MTOSBUF [0:0] S(1);;   # *MTOS* FILE BUFFER # 
  
        ARRAY MTOSS [0:0] S(RFETL);;  # FET FOR THE *MTOS* FILE # 
  
        ARRAY STOMS [0:0] S(RFETL);;  # FET FOR THE *STOM* FILE # 
  
        ARRAY STOMSBUF [0:NUMRB] S(RBSIZE);;  # BUFFER FOR THE *STOM* 
                                                FILE #
  
  
# 
*     MESSAGE BUFFERS FOR THE *SLVEXEC* AND *MTOS*/*STOM* STATUS. 
# 
  
        ARRAY MSGEXSTAT [0:0] S(3); 
          BEGIN 
          ITEM MSGE$TEXT  C(00,00,28)  # STATUS MESSAGE # 
            =[" SLVI ACTIVE, EXEC XXXXXX."];
        ITEM MSGE$FLASH  C(00,00,01);  # FLASHING MESSAGE CONTROL # 
          ITEM MSGE$SINDX C(00,24,01);  # I FROM *SLVI* # 
          ITEM MSGE$STAT  C(01,54,09);  # STATUS #
          ITEM MSGE$EOL   U(02,48,12) =[0];  # END OF LINE #
          END 
  
        ARRAY MSGSLV [0:0] S(4);
          BEGIN 
          ITEM MSG$TEXT1  C(00,00,38) = [" SLVI, PF-NAME STATUS"];
          ITEM MSG$FLASH  C(00,00,01);  # FLASHING MESSAGE CONTROL #
          ITEM MSG$SINDX  C(00,24,01);  # I FROM *SLVI* # 
          ITEM MSG$NAME   C(00,42,07);  # PF-NAME # 
          ITEM MSG$STAT   C(01,30,15);  # STATUS #
          ITEM MSG$END    U(03,48,12) = [0];  # END OF MESSAGE #
          END 
  
# 
*     ERROR MESSAGES. 
# 
  
        ARRAY ABTMSG [0:0] S(3);     # ABNORMAL ERROR MESSAGE # 
          BEGIN 
          ITEM ABT$TEXT   C(00,00,28)  # BASIC MESSAGE #
            =[" SLVI ABNORMAL, XXXXXXX."];
          ITEM ABT$SINDX  C(00,24,01);  # I FROM *SLVI* # 
          ITEM ABT$PROC   C(01,36,07);  # PROCEDURE NAME #
          ITEM ABT$EOL    U(02,48,12) =[0];  # END OF LINE #
          END 
  
        ARRAY ERRTERM [0:0] S(4);    # ERROR TERMINATION #
          BEGIN 
          ITEM ERR$TEXT   C(00,00,38)  # BASIC TEXT # 
            =[" SLVI - ERROR TERMINATION (N)."];
          ITEM ERR$SINDX  C(00,24,01);  # I FROM *SLVI* # 
          ITEM ERR$NUM    C(02,42,01);  # VALUE OF (N) #
          ITEM ERR$EOL    U(03,48,12) =[0];  # END OF LINE #
          END 
  
# 
*     NORMAL TERMINATION MESSAGE. 
# 
  
        ARRAY IDLETERM [0:0] S(3);   # NORMAL TERMINATION # 
          BEGIN 
          ITEM IDLE$TEXT  C(00,00,28)  # TEXT # 
            =[" SLVI - IDLED DOWN."]; 
          ITEM IDLE$SINDX  C(00,24,01);  # I FROM *SLVI* #
          ITEM IDLE$EOL   U(02,48,12) =[0];  # END OF LINE #
          END 
  
# 
*     PARAMETER WORD FOR THE *MEMORY* REQUEST.
# 
  
        ARRAY MEMREQ [0:0] S(1);
          BEGIN 
          ITEM MEM$AMT    U(00,00,30);  # REQUEST *FL* #
          ITEM MEM$ZRO    U(00,30,30) = [0];  # ZERO FILL # 
          END 
  
        END  # XSEBCOM #
  
      END  # COMXSEB #
  
                                               CONTROL LIST;
