cdc:nos2.source:opl.opl871:common:compimb
Common COMPIMB
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.compimb +++| CTEXT COMPIMB - ISSUE MESSAGE TO BUFFER. 00002 M01S00002.compimb +++| IMB SPACE 4 00003 M01S00003.compimb +++| BASE M 00004 M01S00004.compimb +++| IF -DEF,QUAL$,1 00005 M01S00005.compimb +++| QUAL COMPIMB 00006 M01S00006.compimb +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 00007 M01S00007.compimb +++| IMB SPACE 4 00008 M01S00008.compimb +++|*** COMPIMB - ISSUE MESSAGE TO BUFFER. 00009 M01S00009.compimb +++|* R.E. DUNBAR. 94/01/21. 00010 M01S00010.compimb +++| IMB SPACE 4,20 00011 M01S00011.compimb +++|*** COMPIMB - ISSUE MESSAGE TO BUFFER. 00012 M01S00012.compimb +++|* 00013 M01S00013.compimb +++|* COMPIMB CONTAINS THE SUBROUTINES NEEDED TO ALLOW 00014 M01S00014.compimb +++|* BUFFERED I/O DRIVERS TO PLACE MESSAGES IN THE CENTRAL 00015 M01S00015.compimb +++|* MEMORY ERROR MESSAGE BUFFER (*EMB*) FOR ISSUANCE BY 00016 M01S00016.compimb +++|* *1MD* TO THE APPROPRIATE SYSTEM DAYFILE. EACH MESSAGE 00017 M01S00017.compimb +++|* TO BE ISSUED BEGINS WITH A HEADER WORD AS FOLLOWS- 00018 M01S00018.compimb +++|* 00019 M01S00019.compimb +++|* VFD 24/ , 12/ INFO, 12/ MSGL, 1/ D819, 11/ DFTY 00020 M01S00020.compimb +++|* 00021 M01S00021.compimb +++|* INFO DATA UNIQUE TO THE PARTICULAR TYPE OF MESSAGE. 00022 M01S00022.compimb +++|* MAINTENANCE LOG MESSAGE - RESIDUAL BYTE COUNT. 00023 M01S00023.compimb +++|* ERROR LOG MESSAGE - ERROR LOG ALERT FLAG. 00024 M01S00024.compimb +++|* MSGL LENGTH OF MESSAGE IN *CM* WORDS INCLUDING HEADER. 00025 M01S00025.compimb +++|* IF THIS BYTE IS ZERO, THIS HEADER WORD IS A BUFFER 00026 M01S00026.compimb +++|* TERMINATOR. THE NEXT MESSAGE IS AT THE BEGINNING 00027 M01S00027.compimb +++|* OF THE BUFFER. 00028 M01S00028.compimb +++|* D819 819 DRIVER FLAG - SET FOR 819 DRIVER MESSAGES ONLY. 00029 M01S00029.compimb +++|* DFTY CODE IDENTIFYING THE DAYFILE TO RECEIVE THE MESSAGE. 00030 M01S00030.compimb +++|* 00031 M01S00031.compimb +++|* THE *EMB* IS MANAGED AS A CIRCULAR BUFFER, WITH A TWO-WORD 00032 M01S00032.compimb +++|* HEADER CONTAINING FLAGS AND THE OFFSETS FOR *IN*, *OUT* AND 00033 M01S00033.compimb +++|* *LIMIT*. *FIRST* IS ALWAYS ZERO, WITH ALL OFFSETS RELATIVE 00034 M01S00034.compimb +++|* TO *EMB* FWA+2. SEE *NOSTEXT* FOR THE *EMB* HEADER FORMAT. 00035 M01S00035.compimb +++|* ALTHOUGH THE *EMB* IS A CIRCULAR BUFFER, INDIVIDUAL MESSAGES 00036 M01S00036.compimb +++|* DO NOT WRAP AROUND. IF A MESSAGE WOULD OTHERWISE WRAP THE 00037 M01S00037.compimb +++|* BUFFER, AN *END OF BUFFER* MARKER WITH A ZERO MESSAGE LENGTH 00038 M01S00038.compimb +++|* IS PLACED IN THE BUFFER, THE *IN* POINTER IS RESET, AND THE 00039 M01S00039.compimb +++|* MESSAGE IS PLACED AT THE HEAD OF THE BUFFER. 00040 M01S00040.compimb +++|* 00041 M01S00041.compimb +++|* DRIVERS (AND *1MB*) PUT MESSAGES INTO THE *EMB* AND *1MD* 00042 M01S00042.compimb +++|* REMOVES THEM. MESSAGES ARE PLACED INTO THE *EMB* BY CALLING 00043 M01S00043.compimb +++|* SUBROUTINE *IMB* WITH THE MESSAGE ADDRESS IN THE A REGISTER. 00044 M01S00044.compimb +++|* *IMB* INTERLOCKS THE *EMB*, TRANSFERS THE MESSAGE TO THE 00045 M01S00045.compimb +++|* BUFFER AND CALLS *1MD* VIA SUBROUTINE *IMD*, IF IT IS NOT 00046 M01S00046.compimb +++|* ALREADY ACTIVE. *1MD* WRITES THE MESSAGE TO THE DESIGNATED 00047 M01S00047.compimb +++|* DAYFILE, REMOVING IT FROM THE *EMB*. 00048 M01S00048.compimb +++|* 00049 M01S00001.ns2777 +++|* IF *COMPIMB* CANNOT IMMEDIATELY PLACE ITS MESSAGE IN THE 00050 M01S00002.ns2777 +++|* *EMB* BUFFER, IT CALLS *1MD* TO EMPTY THE BUFFER. IF THE 00051 M01S00003.ns2777 +++|* *MESSAGES LOST* FLAG IS ALREADY SET, IT THEN ABANDONS THE 00052 M01S00004.ns2777 +++|* MESSAGE AND RETURNS. OTHERWISE, IT RECHECKS THE BUFFER AT 00053 M01S00005.ns2777 +++|* ONE MILLISECOND INTERVALS TO SEE IF THERE IS NOW ENOUGH 00054 M01S00006.ns2777 +++|* SPACE FOR THE MESSAGE. IF, AFTER 512 MILLISECONDS, THERE 00055 M01S00007.ns2777 +++|* IS STILL NO SPACE IN THE BUFFER, *COMPIMB* THEN SETS THE 00056 M01S00008.ns2777 +++|* *MESSAGES LOST* FLAG AND RETURNS. IF *1MD* CANNOT BE 00057 M01S00009.ns2777 +++|* CALLED DUE TO PP SATURATION, *COMPIMB* IMMEDIATELY SETS THE 00058 M01S00010.ns2777 +++|* *MESSAGES LOST* FLAG AND RETURNS. 00059 M01S00011.ns2777 +++|* 00060 M01S00049.compimb +++|* *IMB* CAN BE USED IN BOTH 4K AND 8K PPS. THE SYMBOL *M8K$* 00061 M01S00050.compimb +++|* MUST BE DEFINED IF 16-BIT INSTRUCTIONS ARE TO BE USED FOR 00062 M01S00051.compimb +++|* HANDLING MESSAGE AND OTHER ADDRESSES. IF *M8K$* IS NOT 00063 M01S00052.compimb +++|* DEFINED, 12-BIT INSTRUCTIONS WILL BE USED. 00064 M01S00053.compimb +++|* 00065 M01S00054.compimb +++|* THE *EMBE* MACRO MUST BE DEFINED IN THE CALLING PROGRAM. 00066 M01S00055.compimb +++|* AT PRESET TIME THE PROGRAM MUST ADD THE *EMB* *FWA* INTO 00067 M01S00056.compimb +++|* EACH LOCATION REFERENCED IN THE TABLE GENERATED BY *EMBE* 00068 M01S00057.compimb +++|* MACRO INSTANCES CONTAINED IN THE CODE. AN EXAMPLE OF THIS 00069 M01S00058.compimb +++|* CAN BE SEEN BY EXAMINING A LISTING OF PROGRAM *1MB*.
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00070 M02S00059.ns2777 ---| TITLE COMPIMB - ISSUE MESSAGE TO BUFFER. 00071 M01S00060.compimb +++| IMB SPACE 4,20 00072 M01S00061.compimb +++|** IMB - ISSUE MESSAGE TO BUFFER. 00073 M01S00062.compimb +++|* 00074 M01S00063.compimb +++|* *IMB* PLACES A MESSAGE IN THE *EMB* FOR *1MD* TO PROCESS. 00075 M01S00064.compimb +++|* 00076 M01S00065.compimb +++|* ENTRY (A) = ADDRESS OF MESSAGE TO BE ISSUED TO *EMB*. 00077 M01S00066.compimb +++|* 00078 M01S00067.compimb +++|* EXIT MESSAGE ISSUED TO BUFFER IF POSSIBLE. 00079 M01S00068.compimb +++|* (WB+1) INCREMENTED IF MESSAGE LOST. 00080 M01S00069.compimb +++|*
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00081 M02S00070.ns2777 ---|* USES CM - CM+4, WB - WB+4. 00082 M01S00012.ns2777 +++|* USES T2, CM - CM+4, WB - WB+4. 00083 M01S00071.compimb +++|* 00084 M01S00072.compimb +++|* CALLS IMD. 00085 M01S00073.compimb +++|* 00086 M01S00074.compimb +++|* MACROS DELAY, EMBE, MONITOR. 00087 M01S00075.compimb +++| 00088 M01S00076.compimb +++| 00089 M01S00077.compimb +++| IMB SUBR ENTRY/EXIT 00090 M01S00078.compimb +++| M8K IF -DEF,M8K$
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00091 M02S00079.ns2777 ---| STM IMBB 00092 M01S00013.ns2777 +++| STM IMBB LOCATION OF MESSAGE HEADER 00093 M01S00014.ns2777 +++| ADN 3 00094 M01S00015.ns2777 +++| STM IMBA LOCATION OF MESSAGE LENGTH 00095 M01S00080.compimb +++| M8K ELSE
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00096 M02S00081.ns2777 ---| STML IMBB 00097 M01S00016.ns2777 +++| STML IMBB LOCATION OF MESSAGE HEADER 00098 M01S00017.ns2777 +++| ADN 3 00099 M01S00018.ns2777 +++| STML IMBA LOCATION OF MESSAGE LENGTH 00100 M01S00082.compimb +++| M8K ENDIF
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00101 M02S00083.ns2777 ---| ADN 3
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00102 M02S00084.ns2777 ---| M8K IF -DEF,M8K$
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00103 M02S00085.ns2777 ---| STM IMBA LOCATION OF MESSAGE LENGTH
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00104 M02S00086.ns2777 ---| M8K ELSE
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00105 M02S00087.ns2777 ---| STML IMBA LOCATION OF MESSAGE LENGTH
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00106 M02S00088.ns2777 ---| M8K ENDIF 00107 M01S00019.ns2777 +++| LDD TH SET MAXIMUM RETRY COUNTER 00108 M01S00020.ns2777 +++| STD T2 00109 M01S00089.compimb +++| 00110 M01S00090.compimb +++|* TRY TO OBTAIN THE *EMB* INTERLOCK. 00111 M01S00091.compimb +++| 00112 M01S00092.compimb +++| IMB1 LDN ZERL 00113 M01S00093.compimb +++| CRD CM PRESET *UTEM* REQUEST 00114 M01S00094.compimb +++| EMBE * 00115 M01S00095.compimb +++| LDC 0 00116 M01S00096.compimb +++| STD CM+4 SET ADDRESS OF INTERLOCK WORD 00117 M01S00097.compimb +++| SHN -14 00118 M01S00098.compimb +++| STD CM+3 00119 M01S00099.compimb +++| MONITOR UTEM GET *EMB* INTERLOCK 00120 M01S00100.compimb +++| LDD CM+1 00121 M01S00101.compimb +++| ZJN IMB3 IF INTERLOCK OBTAINED
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00122 M02S00102.ns2777 ---| IMB2 DELAY 00123 M01S00021.ns2777 +++| IMB2 DELAY 10 DELAY 1 MILLISECOND 00124 M01S00103.compimb +++| UJN IMB1 RETRY INTERLOCK ATTEMPT 00125 M01S00104.compimb +++| 00126 M01S00105.compimb +++|* *EMB* INTERLOCKED - GET *EMB* HEADER WORDS. 00127 M01S00106.compimb +++| 00128 M01S00107.compimb +++| EMBE * 00129 M01S00108.compimb +++| IMB3 LDC 0 GET *EMB* HEADER 1 (FLAGS, *IN*) 00130 M01S00109.compimb +++| CRD WB 00131 M01S00110.compimb +++| ADN 1 GET *EMB* HEADER 2 (*OUT*, *LIMIT*) 00132 M01S00111.compimb +++| CRD CM
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00133 M02S00112.ns2777 ---| SOD WB+4 CLEAR *EMB* INTERLOCK BIT 00134 M01S00113.compimb +++| 00135 M01S00114.compimb +++|* SEE IF MESSAGE WILL FIT IN THE BUFFER. 00136 M01S00115.compimb +++|
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00137 M02S00116.ns2769b ---| IMB4 LDM ** GET MESSAGE LENGTH 00138 M01S00001.ns2769b +++| LDM ** GET MESSAGE LENGTH 00139 M01S00117.compimb +++| IMBA EQU *-1 (MESSAGE LENGTH ADDRESS) 00140 M01S00118.compimb +++| STD CM
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00141 M02S00119.ns2769b ---| ADD WB+3 *IN*
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00142 M02S00120.ns2769b ---| SBD CM+3 *OUT*
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00143 M02S00121.ns2769b ---| MJN IMB7 IF WILL FIT BETWEEN *IN* AND *OUT*
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00144 M02S00122.ns2769b ---| SBD CM+4 *LIMIT*
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00145 M02S00123.ns2769b ---| MJN IMB6 IF WILL FIT BUT *OUT*.LE.*IN*
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00146 M02S00124.ns2769b ---| RJM IMD CALL *1MD*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2769b |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00147 M02S00002.ns2777 ---| LDD WB+3 *IN*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2769b |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00148 M02S00003.ns2777 ---| IMB4 SBD CM+3 *OUT* 00149 M01S00022.ns2777 +++| IMB4 LDD WB+3 *IN* 00150 M01S00023.ns2777 +++| SBD CM+3 *OUT* 00151 M01S00004.ns2769b +++| PJN IMB6 IF *IN* .GE. *OUT* 00152 M01S00005.ns2769b +++| ADD CM MESSAGE LENGTH
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2769b |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00153 M02S00006.ns2777 ---| MJN IMB7 IF MESSAGE FITS BETWEEN *IN* AND *OUT* 00154 M01S00024.ns2777 +++| MJN IMB6.1 IF MESSAGE FITS BETWEEN *IN* AND *OUT* 00155 M01S00007.ns2769b +++| IMB4.1 RJM IMD CALL *1MD*
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00156 M02S00125.ns2777 ---| ZJN IMB5 IF UNABLE TO CALL *1MD* 00157 M01S00025.ns2777 +++| ZJN IMB6.2 IF UNABLE TO CALL *1MD* 00158 M01S00026.ns2777 +++| LDD WB+1 00159 M01S00027.ns2777 +++| NJN IMB6.2 IF *MESSAGES LOST* IS ALREADY SET 00160 M01S00028.ns2777 +++| SOD T2 00161 M01S00029.ns2777 +++| ZJN IMB6.2 IF MAXIMUM RETRY COUNT EXCEEDED 00162 M01S00030.ns2777 +++| SOD WB+4 CLEAR INTERLOCK 00163 M01S00126.compimb +++| EMBE *
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00164 M02S00127.ns2777 ---| LDC ** CLEAR INTERLOCK 00165 M01S00031.ns2777 +++| LDC 0 00166 M01S00128.compimb +++| CWD WB 00167 M01S00129.compimb +++| UJN IMB2 RETRY 00168 M01S00130.compimb +++|
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00169 M02S00131.ns2777 ---| IMB5 AOD WB+1 SET MESSAGE LOST FLAG
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00170 M02S00132.ns2777 ---| UJN IMB9 CLEAR INTERLOCK AND EXIT
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00171 M02S00133.ns2777 ---| 00172 M01S00134.compimb +++|* SEE IF MESSAGE WILL FIT BETWEEN *IN* AND *LIMIT*. 00173 M01S00135.compimb +++|
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00174 M02S00136.ns2769b ---| IMB6 ADD CM+3 *OUT*
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00175 M02S00137.ns2769b ---| MJN IMB7 IF LOOSE FIT BETWEEN *IN* AND *LIMIT*
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00176 M02S00138.ns2769b ---| ZJN IMB7 IF EXACT FIT BETWEEN *IN* AND *LIMIT* 00177 M01S00008.ns2769b +++| IMB6 LDD CM MESSAGE LENGTH 00178 M01S00009.ns2769b +++| ADD WB+3 *IN* 00179 M01S00010.ns2769b +++| SBD CM+4 *LIMIT*
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2769b |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00180 M02S00011.ns2777 ---| MJN IMB7 IF MESSAGE FITS BETWEEN *IN* AND *LIMIT* 00181 M01S00032.ns2777 +++| IMB6.1 MJN IMB7 IF MESSAGE FITS BETWEEN *IN* AND *LIMIT* 00182 M01S00012.ns2769b +++| LDD CM+3 *OUT* 00183 M01S00013.ns2769b +++| ZJN IMB4.1 IF *OUT* .EQ. *FIRST* - DO NOT RESET *IN* 00184 M01S00139.compimb +++| EMBE * 00185 M01S00140.compimb +++| LDC 2 SET TERMINATOR IN *EMB* 00186 M01S00141.compimb +++| ADD WB+3 00187 M01S00142.compimb +++| CWM IMDA,ON 00188 M01S00143.compimb +++| LDN 0 RESET *IN* 00189 M01S00144.compimb +++| STD WB+3
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00190 M02S00145.ns2777 ---| UJN IMB4 RECHECK MESSAGE FIT 00191 M01S00033.ns2777 +++| EMBE * 00192 M01S00034.ns2777 +++| LDC 0 UPDATE HEADER 00193 M01S00035.ns2777 +++| CWD WB 00194 M01S00036.ns2777 +++| UJP IMB4 RECHECK MESSAGE FIT 00195 M01S00037.ns2777 +++| 00196 M01S00038.ns2777 +++|* MAXIMUM RETRY COUNT EXCEEDED - SET *MESSAGES LOST* AND EXIT. 00197 M01S00039.ns2777 +++| 00198 M01S00040.ns2777 +++| IMB6.2 AOD WB+1 SET *MESSAGES LOST* FLAG 00199 M01S00041.ns2777 +++| UJN IMB9 CLEAR INTERLOCK AND EXIT 00200 M01S00146.compimb +++| 00201 M01S00147.compimb +++|* MESSAGE WILL FIT - PUT IT IN THE *EMB*. 00202 M01S00148.compimb +++| 00203 M01S00149.compimb +++| EMBE * 00204 M01S00150.compimb +++| IMB7 LDC 2 WRITE MESSAGE TO *EMB* 00205 M01S00151.compimb +++| ADD WB+3 ADD *IN* 00206 M01S00152.compimb +++| CWM **,CM 00207 M01S00153.compimb +++| IMBB EQU *-1 (MESSAGE ADDRESS) 00208 M01S00154.compimb +++| LDD CM UPDATE *IN* 00209 M01S00155.compimb +++| RAD WB+3
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00210 M02S00156.ns2777 ---| SBD CM+4 *LIMIT*
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00211 M02S00157.ns2777 ---| NJN IMB8 IF NOT AT *LIMIT*
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00212 M02S00158.ns2777 ---| STD WB+3 RESET *IN*
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00213 M02S00159.ns2777 ---| IMB8 RJM IMD CALL *1MD* 00214 M01S00042.ns2777 +++| RJM IMD CALL *1MD* 00215 M01S00043.ns2777 +++| IMB9 SOD WB+4 CLEAR INTERLOCK AND UPDATE HEADER 00216 M01S00160.compimb +++| EMBE *
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00217 M02S00161.ns2777 ---| IMB9 LDC 0 CLEAR INTERLOCK AND UPDATE HEADER 00218 M01S00044.ns2777 +++| LDC 0 00219 M01S00162.compimb +++| CWD WB 00220 M01S00163.compimb +++| LJM IMBX RETURN 00221 M01S00164.compimb +++| IMD SPACE 4,20 00222 M01S00165.compimb +++|** IMD - INITIATE *1MD*. 00223 M01S00166.compimb +++|* 00224 M01S00167.compimb +++|* ENTRY (WB - WB+4) = *EMB* HEADER 1. 00225 M01S00168.compimb +++|* 00226 M01S00169.compimb +++|* EXIT (A) .EQ. 0 IF UNABLE TO CALL *1MD*. 00227 M01S00170.compimb +++|* .NE. 0 IF *1MD* HAS BEEN CALLED.
| Line S00171 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00228 M02S00171.ns2777 ---|* *1MD* CALLED FLAG IS SET IN CELL *WB+4* IF *1MD* WAS
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00229 M02S00172.ns2777 ---|* CALLED. 00230 M01S00045.ns2777 +++|* *1MD CALLED* FLAG IS SET IN *WB+4* IF *1MD* CALLED. 00231 M01S00173.compimb +++|*
| Line S00174 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00232 M02S00174.ns2777 ---|* USES T2, WB+4, CM - CM+4. 00233 M01S00046.ns2777 +++|* USES WB+4, CM - CM+4. 00234 M01S00175.compimb +++|*
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00235 M02S00176.ns2777 ---|* CALLS 1MD. 00236 M01S00047.ns2777 +++|* CALLS *1MD*. 00237 M01S00177.compimb +++|* 00238 M01S00178.compimb +++|* MACROS EXECUTE, MONITOR. 00239 M01S00179.compimb +++| 00240 M01S00180.compimb +++|
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00241 M02S00181.ns2777 ---| IMD2 LDN 2 SET *1MD* CALLED FLAG
| Line S00182 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00242 M02S00182.ns2777 ---| RAD WB+4
| Line S00183 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00243 M02S00183.ns2777 ---| 00244 M01S00184.compimb +++| IMD SUBR ENTRY/EXIT 00245 M01S00185.compimb +++| LDD WB+4 00246 M01S00186.compimb +++| LPN 2 00247 M01S00187.compimb +++| NJN IMDX IF *1MD* ALREADY CALLED
| Line S00188 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00248 M02S00188.ns2777 ---| STD T2 CLEAR RETRY COUNT 00249 M01S00189.compimb +++| LDD MA 00250 M01S00190.compimb +++| CWM IMDA,ON
| Line S00191 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00251 M02S00191.ns2777 ---| IMD1 LDK ZERL 00252 M01S00048.ns2777 +++| LDK ZERL 00253 M01S00192.compimb +++| CRD CM 00254 M01S00193.compimb +++| LDN 10 FORCE SYSTEM CONTROL POINT 00255 M01S00194.compimb +++| STD CM+1 00256 M01S00195.compimb +++| EXECUTE 1MD,= 00257 M01S00196.compimb +++| MONITOR RPPM 00258 M01S00197.compimb +++| LDD CM+1
| Line S00198 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00259 M02S00198.ns2777 ---| NJN IMD2 IF PP ASSIGNED
| Line S00199 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00260 M02S00199.ns2777 ---| AOD T2 INCREMENT *RPPM* RETRY COUNT
| Line S00200 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00261 M02S00200.ns2777 ---| LMN 10D
| Line S00201 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00262 M02S00201.ns2777 ---| ZJN IMDX IF RETRY LIMIT
| Line S00202 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00263 M02S00202.ns2777 ---| DELAY 10D*8D DELAY FOR 10 MILLISECONDS
| Line S00203 Modification History | |
|---|---|
M01 (Added by) | compimb |
M02 (Updated by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00264 M02S00203.ns2777 ---| UJN IMD1 RETRY *RPPM* 00265 M01S00049.ns2777 +++| ZJN IMDX IF *RPPM* UNSUCCESSFUL 00266 M01S00050.ns2777 +++| LDN 2 SET *1MD CALLED* FLAG 00267 M01S00051.ns2777 +++| RAD WB+4 00268 M01S00052.ns2777 +++| UJN IMDX RETURN 00269 M01S00204.compimb +++| 00270 M01S00205.compimb +++| 00271 M01S00206.compimb +++| IMDA VFD 18/3L1MD,42/1 *1MD* CALL/BUFFER TERMINATOR 00272 M01S00207.compimb +++| SPACE 4 00273 M01S00208.compimb +++| QUAL$ IF -DEF,QUAL$ 00274 M01S00209.compimb +++| QUAL * 00275 M01S00210.compimb +++| IMB EQU /COMPIMB/IMB 00276 M01S00211.compimb +++| QUAL$ ENDIF 00277 M01S00212.compimb +++| BASE * 00278 M01S00213.compimb +++| IMB ENDX
cdc/nos2.source/opl.opl871/common/compimb.txt · Last modified: by 127.0.0.1