Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comxseb +++|
00002 M00S00002.comxseb +++|# COMXSEB - SLAVE EXEC BUFFERS. #
00003 M00S00003.comxseb +++| CONTROL NOLIST;
00004 M00S00004.comxseb +++| CONTROL IFEQ LISTCON,1;
00005 M00S00005.comxseb +++| CONTROL LIST;
00006 M00S00006.comxseb +++| CONTROL FI;
00007 M00S00007.comxseb +++|
00008 M00S00008.comxseb +++|#
00009 M00S00009.comxseb +++|*** COMXSEB - SLAVE EXEC BUFFERS.
00010 M00S00010.comxseb +++|*
00011 M00S00011.comxseb +++|* *COMXSEB* CONTAINS INFORMATION COMMON TO THE *FASSLV* ROUTINES.
00012 M00S00012.comxseb +++|#
00013 M00S00013.comxseb +++|
00014 M00S00014.comxseb +++| BEGIN # COMXSEB #
00015 M00S00015.comxseb +++|
00016 M00S00016.comxseb +++| DEF DELAYCT #10#; # DELAY COUNT WHILE WAITING FOR
00017 M00S00017.comxseb +++| THE *STOM* OR *MTOS* FILES TO
00018 M00S00018.comxseb +++| BECOME AVAILABLE. #
00019 M00S00019.comxseb +++| DEF FLASH #"$"#; # FOR FLASHING MESSAGES #
00020 M00S00020.comxseb +++| DEF NOFLASH #" "#; # FOR NON-FLASHING MESSAGES #
00021 M00S00021.comxseb +++|
00022 M00S00022.comxseb +++|
00023 M00S00023.comxseb +++| STATUS SLVESTAT # STATUS OF SLAVE EXEC #
00024 M00S00024.comxseb +++| OK, # NO PROBLEMS #
00025 M00S00025.comxseb +++| IDLE, # IDLE FLAG WAS SET #
00026 M00S00026.comxseb +++| IDLEMTOS, # IDLE WHEN INITIALIZING *MTOS* #
00027 M00S00027.comxseb +++| IDLESTOM, # IDLE WHILE INITIALIZING *STOM* #
00028 M00S00028.comxseb +++| LASTIDLE, # END OF IDLE STATUS VALUES #
00029 M00S00029.comxseb +++| MTOSERR, # ERROR WHILE READING *MTOS* #
00030 M00S00030.comxseb +++| SETPFP, # SETPFP REQUEST FAILED #
00031 M00S00031.comxseb +++| ENDSTAT; # END OF STATUS LIST #
00032 M00S00032.comxseb +++|
00033 M00S00033.comxseb +++| COMMON XSEBCOM;
00034 M00S00034.comxseb +++|
00035 M00S00035.comxseb +++| BEGIN # XSEBCOM #
00036 M00S00036.comxseb +++| #$$#
00037 M00S00037.comxseb +++| ITEM $$XSEB$$ C(20) = "****** COMXSEB *****";
00038 M00S00038.comxseb +++| #$$#
00039 M00S00039.comxseb +++|
00040 M00S00040.comxseb +++|
00041 M00S00041.comxseb +++| ITEM MTOSBUFL U; # SIZE OF BUFFER NEEDED TO READ
00042 M00S00042.comxseb +++| THE *MTOS* FILE #
00043 M00S00043.comxseb +++| ITEM MTOS$TIME U; # TIME TO READ AND PROCESS THE
00044 M00S00044.comxseb +++| *MTOS* FILE #
00045 M00S00045.comxseb +++| ITEM PFNSTOM C(7); # PFN OF THE *STOM* FILE #
00046 M00S00046.comxseb +++| ITEM SLVEND S:SLVESTAT; # STATUS OF THE SLAVE EXEC #
00047 M00S00047.comxseb +++| ITEM STOM$TIME U; # TIME TO WRITE THE *STOM* FILE #
00048 M00S00048.comxseb +++|
00049 M00S00049.comxseb +++|#
00050 M00S00050.comxseb +++|* DATA BUFFERS AND FETS FOR THE *MTOS* AND *STOM* FILES.
00051 M00S00051.comxseb +++|#
00052 M00S00052.comxseb +++|
00053 M00S00053.comxseb +++|
00054 M00S00054.comxseb +++| BASED
00055 M00S00055.comxseb +++| ARRAY MTOSBUF [0:0] S(1);; # *MTOS* FILE BUFFER #
00056 M00S00056.comxseb +++|
00057 M00S00057.comxseb +++| ARRAY MTOSS [0:0] S(RFETL);; # FET FOR THE *MTOS* FILE #
00058 M00S00058.comxseb +++|
00059 M00S00059.comxseb +++| ARRAY STOMS [0:0] S(RFETL);; # FET FOR THE *STOM* FILE #
00060 M00S00060.comxseb +++|
00061 M00S00061.comxseb +++| ARRAY STOMSBUF [0:NUMRB] S(RBSIZE);; # BUFFER FOR THE *STOM*
00062 M00S00062.comxseb +++| FILE #
00063 M00S00063.comxseb +++|
00064 M00S00064.comxseb +++|
00065 M00S00065.comxseb +++|#
00066 M00S00066.comxseb +++|* MESSAGE BUFFERS FOR THE *SLVEXEC* AND *MTOS*/*STOM* STATUS.
00067 M00S00067.comxseb +++|#
00068 M00S00068.comxseb +++|
00069 M00S00069.comxseb +++| ARRAY MSGEXSTAT [0:0] S(3);
00070 M00S00070.comxseb +++| BEGIN
00071 M00S00071.comxseb +++| ITEM MSGE$TEXT C(00,00,28) # STATUS MESSAGE #
00072 M00S00072.comxseb +++| =[" SLVI ACTIVE, EXEC XXXXXX."];
00073 M00S00073.comxseb +++| ITEM MSGE$FLASH C(00,00,01); # FLASHING MESSAGE CONTROL #
00074 M00S00074.comxseb +++| ITEM MSGE$SINDX C(00,24,01); # I FROM *SLVI* #
00075 M00S00075.comxseb +++| ITEM MSGE$STAT C(01,54,09); # STATUS #
00076 M00S00076.comxseb +++| ITEM MSGE$EOL U(02,48,12) =[0]; # END OF LINE #
00077 M00S00077.comxseb +++| END
00078 M00S00078.comxseb +++|
00079 M00S00079.comxseb +++| ARRAY MSGSLV [0:0] S(4);
00080 M00S00080.comxseb +++| BEGIN
00081 M00S00081.comxseb +++| ITEM MSG$TEXT1 C(00,00,38) = [" SLVI, PF-NAME STATUS"];
00082 M00S00082.comxseb +++| ITEM MSG$FLASH C(00,00,01); # FLASHING MESSAGE CONTROL #
00083 M00S00083.comxseb +++| ITEM MSG$SINDX C(00,24,01); # I FROM *SLVI* #
00084 M00S00084.comxseb +++| ITEM MSG$NAME C(00,42,07); # PF-NAME #
00085 M00S00085.comxseb +++| ITEM MSG$STAT C(01,30,15); # STATUS #
00086 M00S00086.comxseb +++| ITEM MSG$END U(03,48,12) = [0]; # END OF MESSAGE #
00087 M00S00087.comxseb +++| END
00088 M00S00088.comxseb +++|
00089 M00S00089.comxseb +++|#
00090 M00S00090.comxseb +++|* ERROR MESSAGES.
00091 M00S00091.comxseb +++|#
00092 M00S00092.comxseb +++|
00093 M00S00093.comxseb +++| ARRAY ABTMSG [0:0] S(3); # ABNORMAL ERROR MESSAGE #
00094 M00S00094.comxseb +++| BEGIN
00095 M00S00095.comxseb +++| ITEM ABT$TEXT C(00,00,28) # BASIC MESSAGE #
00096 M00S00096.comxseb +++| =[" SLVI ABNORMAL, XXXXXXX."];
00097 M00S00097.comxseb +++| ITEM ABT$SINDX C(00,24,01); # I FROM *SLVI* #
00098 M00S00098.comxseb +++| ITEM ABT$PROC C(01,36,07); # PROCEDURE NAME #
00099 M00S00099.comxseb +++| ITEM ABT$EOL U(02,48,12) =[0]; # END OF LINE #
00100 M00S00100.comxseb +++| END
00101 M00S00101.comxseb +++|
00102 M00S00102.comxseb +++| ARRAY ERRTERM [0:0] S(4); # ERROR TERMINATION #
00103 M00S00103.comxseb +++| BEGIN
00104 M00S00104.comxseb +++| ITEM ERR$TEXT C(00,00,38) # BASIC TEXT #
00105 M00S00105.comxseb +++| =[" SLVI - ERROR TERMINATION (N)."];
00106 M00S00106.comxseb +++| ITEM ERR$SINDX C(00,24,01); # I FROM *SLVI* #
00107 M00S00107.comxseb +++| ITEM ERR$NUM C(02,42,01); # VALUE OF (N) #
00108 M00S00108.comxseb +++| ITEM ERR$EOL U(03,48,12) =[0]; # END OF LINE #
00109 M00S00109.comxseb +++| END
00110 M00S00110.comxseb +++|
00111 M00S00111.comxseb +++|#
00112 M00S00112.comxseb +++|* NORMAL TERMINATION MESSAGE.
00113 M00S00113.comxseb +++|#
00114 M00S00114.comxseb +++|
00115 M00S00115.comxseb +++| ARRAY IDLETERM [0:0] S(3); # NORMAL TERMINATION #
00116 M00S00116.comxseb +++| BEGIN
00117 M00S00117.comxseb +++| ITEM IDLE$TEXT C(00,00,28) # TEXT #
00118 M00S00118.comxseb +++| =[" SLVI - IDLED DOWN."];
00119 M00S00119.comxseb +++| ITEM IDLE$SINDX C(00,24,01); # I FROM *SLVI* #
00120 M00S00120.comxseb +++| ITEM IDLE$EOL U(02,48,12) =[0]; # END OF LINE #
00121 M00S00121.comxseb +++| END
00122 M00S00122.comxseb +++|
00123 M00S00123.comxseb +++|#
00124 M00S00124.comxseb +++|* PARAMETER WORD FOR THE *MEMORY* REQUEST.
00125 M00S00125.comxseb +++|#
00126 M00S00126.comxseb +++|
00127 M00S00127.comxseb +++| ARRAY MEMREQ [0:0] S(1);
00128 M00S00128.comxseb +++| BEGIN
00129 M00S00129.comxseb +++| ITEM MEM$AMT U(00,00,30); # REQUEST *FL* #
00130 M00S00130.comxseb +++| ITEM MEM$ZRO U(00,30,30) = [0]; # ZERO FILL #
00131 M00S00131.comxseb +++| END
00132 M00S00132.comxseb +++|
00133 M00S00133.comxseb +++| END # XSEBCOM #
00134 M00S00134.comxseb +++|
00135 M00S00135.comxseb +++| END # COMXSEB #
00136 M00S00136.comxseb +++|
00137 M00S00137.comxseb +++| CONTROL LIST;