cdc:nos2.source:opl.opl871:common:comxseb
Common COMXSEB
Library Member Format: MODIFY
Source
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;
cdc/nos2.source/opl.opl871/common/comxseb.txt · Last modified: (external edit)