cdc:nos2.source:opl.opl871:common:compimb
Common COMPIMB
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.compimb +++| CTEXT COMPIMB - ISSUE MESSAGE TO BUFFER. 00002 M00S00002.compimb +++| IMB SPACE 4 00003 M00S00003.compimb +++| BASE M 00004 M00S00004.compimb +++| IF -DEF,QUAL$,1 00005 M00S00005.compimb +++| QUAL COMPIMB 00006 M00S00006.compimb +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 00007 M00S00007.compimb +++| IMB SPACE 4 00008 M00S00008.compimb +++|*** COMPIMB - ISSUE MESSAGE TO BUFFER. 00009 M00S00009.compimb +++|* R.E. DUNBAR. 94/01/21. 00010 M00S00010.compimb +++| IMB SPACE 4,20 00011 M00S00011.compimb +++|*** COMPIMB - ISSUE MESSAGE TO BUFFER. 00012 M00S00012.compimb +++|* 00013 M00S00013.compimb +++|* COMPIMB CONTAINS THE SUBROUTINES NEEDED TO ALLOW 00014 M00S00014.compimb +++|* BUFFERED I/O DRIVERS TO PLACE MESSAGES IN THE CENTRAL 00015 M00S00015.compimb +++|* MEMORY ERROR MESSAGE BUFFER (*EMB*) FOR ISSUANCE BY 00016 M00S00016.compimb +++|* *1MD* TO THE APPROPRIATE SYSTEM DAYFILE. EACH MESSAGE 00017 M00S00017.compimb +++|* TO BE ISSUED BEGINS WITH A HEADER WORD AS FOLLOWS- 00018 M00S00018.compimb +++|* 00019 M00S00019.compimb +++|* VFD 24/ , 12/ INFO, 12/ MSGL, 1/ D819, 11/ DFTY 00020 M00S00020.compimb +++|* 00021 M00S00021.compimb +++|* INFO DATA UNIQUE TO THE PARTICULAR TYPE OF MESSAGE. 00022 M00S00022.compimb +++|* MAINTENANCE LOG MESSAGE - RESIDUAL BYTE COUNT. 00023 M00S00023.compimb +++|* ERROR LOG MESSAGE - ERROR LOG ALERT FLAG. 00024 M00S00024.compimb +++|* MSGL LENGTH OF MESSAGE IN *CM* WORDS INCLUDING HEADER. 00025 M00S00025.compimb +++|* IF THIS BYTE IS ZERO, THIS HEADER WORD IS A BUFFER 00026 M00S00026.compimb +++|* TERMINATOR. THE NEXT MESSAGE IS AT THE BEGINNING 00027 M00S00027.compimb +++|* OF THE BUFFER. 00028 M00S00028.compimb +++|* D819 819 DRIVER FLAG - SET FOR 819 DRIVER MESSAGES ONLY. 00029 M00S00029.compimb +++|* DFTY CODE IDENTIFYING THE DAYFILE TO RECEIVE THE MESSAGE. 00030 M00S00030.compimb +++|* 00031 M00S00031.compimb +++|* THE *EMB* IS MANAGED AS A CIRCULAR BUFFER, WITH A TWO-WORD 00032 M00S00032.compimb +++|* HEADER CONTAINING FLAGS AND THE OFFSETS FOR *IN*, *OUT* AND 00033 M00S00033.compimb +++|* *LIMIT*. *FIRST* IS ALWAYS ZERO, WITH ALL OFFSETS RELATIVE 00034 M00S00034.compimb +++|* TO *EMB* FWA+2. SEE *NOSTEXT* FOR THE *EMB* HEADER FORMAT. 00035 M00S00035.compimb +++|* ALTHOUGH THE *EMB* IS A CIRCULAR BUFFER, INDIVIDUAL MESSAGES 00036 M00S00036.compimb +++|* DO NOT WRAP AROUND. IF A MESSAGE WOULD OTHERWISE WRAP THE 00037 M00S00037.compimb +++|* BUFFER, AN *END OF BUFFER* MARKER WITH A ZERO MESSAGE LENGTH 00038 M00S00038.compimb +++|* IS PLACED IN THE BUFFER, THE *IN* POINTER IS RESET, AND THE 00039 M00S00039.compimb +++|* MESSAGE IS PLACED AT THE HEAD OF THE BUFFER. 00040 M00S00040.compimb +++|* 00041 M00S00041.compimb +++|* DRIVERS (AND *1MB*) PUT MESSAGES INTO THE *EMB* AND *1MD* 00042 M00S00042.compimb +++|* REMOVES THEM. MESSAGES ARE PLACED INTO THE *EMB* BY CALLING 00043 M00S00043.compimb +++|* SUBROUTINE *IMB* WITH THE MESSAGE ADDRESS IN THE A REGISTER. 00044 M00S00044.compimb +++|* *IMB* INTERLOCKS THE *EMB*, TRANSFERS THE MESSAGE TO THE 00045 M00S00045.compimb +++|* BUFFER AND CALLS *1MD* VIA SUBROUTINE *IMD*, IF IT IS NOT 00046 M00S00046.compimb +++|* ALREADY ACTIVE. *1MD* WRITES THE MESSAGE TO THE DESIGNATED 00047 M00S00047.compimb +++|* DAYFILE, REMOVING IT FROM THE *EMB*. 00048 M00S00048.compimb +++|*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00049.compimb +++|* *IMB* CAN BE USED IN BOTH 4K AND 8K PPS. THE SYMBOL *M8K$* 00061 M00S00050.compimb +++|* MUST BE DEFINED IF 16-BIT INSTRUCTIONS ARE TO BE USED FOR 00062 M00S00051.compimb +++|* HANDLING MESSAGE AND OTHER ADDRESSES. IF *M8K$* IS NOT 00063 M00S00052.compimb +++|* DEFINED, 12-BIT INSTRUCTIONS WILL BE USED. 00064 M00S00053.compimb +++|* 00065 M00S00054.compimb +++|* THE *EMBE* MACRO MUST BE DEFINED IN THE CALLING PROGRAM. 00066 M00S00055.compimb +++|* AT PRESET TIME THE PROGRAM MUST ADD THE *EMB* *FWA* INTO 00067 M00S00056.compimb +++|* EACH LOCATION REFERENCED IN THE TABLE GENERATED BY *EMBE* 00068 M00S00057.compimb +++|* MACRO INSTANCES CONTAINED IN THE CODE. AN EXAMPLE OF THIS 00069 M00S00058.compimb +++|* CAN BE SEEN BY EXAMINING A LISTING OF PROGRAM *1MB*.
| Line S00059 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00070 M01S00059.ns2777 ---| TITLE COMPIMB - ISSUE MESSAGE TO BUFFER. 00071 M00S00060.compimb ---| IMB SPACE 4,20 00072 M00S00061.compimb ---|** IMB - ISSUE MESSAGE TO BUFFER. 00073 M00S00062.compimb ---|* 00074 M00S00063.compimb ---|* *IMB* PLACES A MESSAGE IN THE *EMB* FOR *1MD* TO PROCESS. 00075 M00S00064.compimb ---|* 00076 M00S00065.compimb ---|* ENTRY (A) = ADDRESS OF MESSAGE TO BE ISSUED TO *EMB*. 00077 M00S00066.compimb ---|* 00078 M00S00067.compimb ---|* EXIT MESSAGE ISSUED TO BUFFER IF POSSIBLE. 00079 M00S00068.compimb ---|* (WB+1) INCREMENTED IF MESSAGE LOST. 00080 M00S00069.compimb ---|* 00081 M01S00070.ns2777 ---|* USES CM - CM+4, WB - WB+4.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00082 M01S00012.ns2777 +++|* USES T2, CM - CM+4, WB - WB+4. 00083 M00S00071.compimb +++|* 00084 M00S00072.compimb +++|* CALLS IMD. 00085 M00S00073.compimb +++|* 00086 M00S00074.compimb +++|* MACROS DELAY, EMBE, MONITOR. 00087 M00S00075.compimb +++| 00088 M00S00076.compimb +++| 00089 M00S00077.compimb +++| IMB SUBR ENTRY/EXIT 00090 M00S00078.compimb +++| M8K IF -DEF,M8K$
| Line S00079 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00091 M01S00079.ns2777 ---| STM IMBB
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00092 M01S00013.ns2777 +++| STM IMBB LOCATION OF MESSAGE HEADER 00093 M01S00014.ns2777 +++| ADN 3 00094 M01S00015.ns2777 +++| STM IMBA LOCATION OF MESSAGE LENGTH 00095 M00S00080.compimb +++| M8K ELSE
| Line S00081 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00096 M01S00081.ns2777 ---| STML IMBB
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00097 M01S00016.ns2777 +++| STML IMBB LOCATION OF MESSAGE HEADER 00098 M01S00017.ns2777 +++| ADN 3 00099 M01S00018.ns2777 +++| STML IMBA LOCATION OF MESSAGE LENGTH 00100 M00S00082.compimb +++| M8K ENDIF
| Line S00083 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00101 M01S00083.ns2777 ---| ADN 3 00102 M01S00084.ns2777 ---| M8K IF -DEF,M8K$ 00103 M01S00085.ns2777 ---| STM IMBA LOCATION OF MESSAGE LENGTH 00104 M01S00086.ns2777 ---| M8K ELSE 00105 M01S00087.ns2777 ---| STML IMBA LOCATION OF MESSAGE LENGTH 00106 M01S00088.ns2777 ---| M8K ENDIF
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00107 M01S00019.ns2777 +++| LDD TH SET MAXIMUM RETRY COUNTER 00108 M01S00020.ns2777 +++| STD T2 00109 M00S00089.compimb +++| 00110 M00S00090.compimb +++|* TRY TO OBTAIN THE *EMB* INTERLOCK. 00111 M00S00091.compimb +++| 00112 M00S00092.compimb +++| IMB1 LDN ZERL 00113 M00S00093.compimb +++| CRD CM PRESET *UTEM* REQUEST 00114 M00S00094.compimb +++| EMBE * 00115 M00S00095.compimb +++| LDC 0 00116 M00S00096.compimb +++| STD CM+4 SET ADDRESS OF INTERLOCK WORD 00117 M00S00097.compimb +++| SHN -14 00118 M00S00098.compimb +++| STD CM+3 00119 M00S00099.compimb +++| MONITOR UTEM GET *EMB* INTERLOCK 00120 M00S00100.compimb +++| LDD CM+1 00121 M00S00101.compimb +++| ZJN IMB3 IF INTERLOCK OBTAINED
| Line S00102 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00122 M01S00102.ns2777 ---| IMB2 DELAY
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00123 M01S00021.ns2777 +++| IMB2 DELAY 10 DELAY 1 MILLISECOND 00124 M00S00103.compimb +++| UJN IMB1 RETRY INTERLOCK ATTEMPT 00125 M00S00104.compimb +++| 00126 M00S00105.compimb +++|* *EMB* INTERLOCKED - GET *EMB* HEADER WORDS. 00127 M00S00106.compimb +++| 00128 M00S00107.compimb +++| EMBE * 00129 M00S00108.compimb +++| IMB3 LDC 0 GET *EMB* HEADER 1 (FLAGS, *IN*) 00130 M00S00109.compimb +++| CRD WB 00131 M00S00110.compimb +++| ADN 1 GET *EMB* HEADER 2 (*OUT*, *LIMIT*) 00132 M00S00111.compimb +++| CRD CM
| Line S00112 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00133 M01S00112.ns2777 ---| SOD WB+4 CLEAR *EMB* INTERLOCK BIT 00134 M00S00113.compimb ---| 00135 M00S00114.compimb ---|* SEE IF MESSAGE WILL FIT IN THE BUFFER. 00136 M00S00115.compimb ---|
| Line S00116 Modification History | |
|---|---|
M01 (Removed by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00137 M01S00116.ns2769b ---| IMB4 LDM ** GET MESSAGE LENGTH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00138 M01S00001.ns2769b +++| LDM ** GET MESSAGE LENGTH 00139 M00S00117.compimb +++| IMBA EQU *-1 (MESSAGE LENGTH ADDRESS) 00140 M00S00118.compimb +++| STD CM
| Line S00119 Modification History | |
|---|---|
M01 (Removed by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00141 M01S00119.ns2769b ---| ADD WB+3 *IN* 00142 M01S00120.ns2769b ---| SBD CM+3 *OUT* 00143 M01S00121.ns2769b ---| MJN IMB7 IF WILL FIT BETWEEN *IN* AND *OUT* 00144 M01S00122.ns2769b ---| SBD CM+4 *LIMIT* 00145 M01S00123.ns2769b ---| MJN IMB6 IF WILL FIT BUT *OUT*.LE.*IN* 00146 M01S00124.ns2769b ---| RJM IMD CALL *1MD*
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2769b |
M02 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00147 M02S00002.ns2777 ---| LDD WB+3 *IN* 00148 M02S00003.ns2777 ---| IMB4 SBD CM+3 *OUT*
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00149 M01S00022.ns2777 +++| IMB4 LDD WB+3 *IN* 00150 M01S00023.ns2777 +++| SBD CM+3 *OUT*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00153 M02S00006.ns2777 ---| MJN IMB7 IF MESSAGE FITS BETWEEN *IN* AND *OUT*
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00154 M01S00024.ns2777 +++| MJN IMB6.1 IF MESSAGE FITS BETWEEN *IN* AND *OUT*
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00155 M01S00007.ns2769b +++| IMB4.1 RJM IMD CALL *1MD*
| Line S00125 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00156 M01S00125.ns2777 ---| ZJN IMB5 IF UNABLE TO CALL *1MD*
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00126.compimb +++| EMBE *
| Line S00127 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00164 M01S00127.ns2777 ---| LDC ** CLEAR INTERLOCK
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00165 M01S00031.ns2777 +++| LDC 0 00166 M00S00128.compimb +++| CWD WB 00167 M00S00129.compimb +++| UJN IMB2 RETRY 00168 M00S00130.compimb +++|
| Line S00131 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00169 M01S00131.ns2777 ---| IMB5 AOD WB+1 SET MESSAGE LOST FLAG 00170 M01S00132.ns2777 ---| UJN IMB9 CLEAR INTERLOCK AND EXIT 00171 M01S00133.ns2777 ---| 00172 M00S00134.compimb ---|* SEE IF MESSAGE WILL FIT BETWEEN *IN* AND *LIMIT*. 00173 M00S00135.compimb ---|
| Line S00136 Modification History | |
|---|---|
M01 (Removed by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00174 M01S00136.ns2769b ---| IMB6 ADD CM+3 *OUT* 00175 M01S00137.ns2769b ---| MJN IMB7 IF LOOSE FIT BETWEEN *IN* AND *LIMIT* 00176 M01S00138.ns2769b ---| ZJN IMB7 IF EXACT FIT BETWEEN *IN* AND *LIMIT*
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00180 M02S00011.ns2777 ---| MJN IMB7 IF MESSAGE FITS BETWEEN *IN* AND *LIMIT*
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00181 M01S00032.ns2777 +++| IMB6.1 MJN IMB7 IF MESSAGE FITS BETWEEN *IN* AND *LIMIT*
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2769b |
Seq # *Modification Id* Act ----------------------------+ 00182 M01S00012.ns2769b +++| LDD CM+3 *OUT* 00183 M01S00013.ns2769b +++| ZJN IMB4.1 IF *OUT* .EQ. *FIRST* - DO NOT RESET *IN* 00184 M00S00139.compimb +++| EMBE * 00185 M00S00140.compimb +++| LDC 2 SET TERMINATOR IN *EMB* 00186 M00S00141.compimb +++| ADD WB+3 00187 M00S00142.compimb +++| CWM IMDA,ON 00188 M00S00143.compimb +++| LDN 0 RESET *IN* 00189 M00S00144.compimb +++| STD WB+3
| Line S00145 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00190 M01S00145.ns2777 ---| UJN IMB4 RECHECK MESSAGE FIT
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00146.compimb +++| 00201 M00S00147.compimb +++|* MESSAGE WILL FIT - PUT IT IN THE *EMB*. 00202 M00S00148.compimb +++| 00203 M00S00149.compimb +++| EMBE * 00204 M00S00150.compimb +++| IMB7 LDC 2 WRITE MESSAGE TO *EMB* 00205 M00S00151.compimb +++| ADD WB+3 ADD *IN* 00206 M00S00152.compimb +++| CWM **,CM 00207 M00S00153.compimb +++| IMBB EQU *-1 (MESSAGE ADDRESS) 00208 M00S00154.compimb +++| LDD CM UPDATE *IN* 00209 M00S00155.compimb +++| RAD WB+3
| Line S00156 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00210 M01S00156.ns2777 ---| SBD CM+4 *LIMIT* 00211 M01S00157.ns2777 ---| NJN IMB8 IF NOT AT *LIMIT* 00212 M01S00158.ns2777 ---| STD WB+3 RESET *IN* 00213 M01S00159.ns2777 ---| IMB8 RJM IMD CALL *1MD*
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00214 M01S00042.ns2777 +++| RJM IMD CALL *1MD* 00215 M01S00043.ns2777 +++| IMB9 SOD WB+4 CLEAR INTERLOCK AND UPDATE HEADER 00216 M00S00160.compimb +++| EMBE *
| Line S00161 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00217 M01S00161.ns2777 ---| IMB9 LDC 0 CLEAR INTERLOCK AND UPDATE HEADER
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00218 M01S00044.ns2777 +++| LDC 0 00219 M00S00162.compimb +++| CWD WB 00220 M00S00163.compimb +++| LJM IMBX RETURN 00221 M00S00164.compimb +++| IMD SPACE 4,20 00222 M00S00165.compimb +++|** IMD - INITIATE *1MD*. 00223 M00S00166.compimb +++|* 00224 M00S00167.compimb +++|* ENTRY (WB - WB+4) = *EMB* HEADER 1. 00225 M00S00168.compimb +++|* 00226 M00S00169.compimb +++|* EXIT (A) .EQ. 0 IF UNABLE TO CALL *1MD*. 00227 M00S00170.compimb +++|* .NE. 0 IF *1MD* HAS BEEN CALLED.
| Line S00171 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00228 M01S00171.ns2777 ---|* *1MD* CALLED FLAG IS SET IN CELL *WB+4* IF *1MD* WAS 00229 M01S00172.ns2777 ---|* CALLED.
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00230 M01S00045.ns2777 +++|* *1MD CALLED* FLAG IS SET IN *WB+4* IF *1MD* CALLED. 00231 M00S00173.compimb +++|*
| Line S00174 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00232 M01S00174.ns2777 ---|* USES T2, WB+4, CM - CM+4.
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00233 M01S00046.ns2777 +++|* USES WB+4, CM - CM+4. 00234 M00S00175.compimb +++|*
| Line S00176 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00235 M01S00176.ns2777 ---|* CALLS 1MD.
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00236 M01S00047.ns2777 +++|* CALLS *1MD*. 00237 M00S00177.compimb +++|* 00238 M00S00178.compimb +++|* MACROS EXECUTE, MONITOR. 00239 M00S00179.compimb +++| 00240 M00S00180.compimb +++|
| Line S00181 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00241 M01S00181.ns2777 ---| IMD2 LDN 2 SET *1MD* CALLED FLAG 00242 M01S00182.ns2777 ---| RAD WB+4 00243 M01S00183.ns2777 ---| 00244 M00S00184.compimb ---| IMD SUBR ENTRY/EXIT 00245 M00S00185.compimb ---| LDD WB+4 00246 M00S00186.compimb ---| LPN 2 00247 M00S00187.compimb ---| NJN IMDX IF *1MD* ALREADY CALLED 00248 M01S00188.ns2777 ---| STD T2 CLEAR RETRY COUNT 00249 M00S00189.compimb ---| LDD MA 00250 M00S00190.compimb ---| CWM IMDA,ON 00251 M01S00191.ns2777 ---| IMD1 LDK ZERL
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00252 M01S00048.ns2777 +++| LDK ZERL 00253 M00S00192.compimb +++| CRD CM 00254 M00S00193.compimb +++| LDN 10 FORCE SYSTEM CONTROL POINT 00255 M00S00194.compimb +++| STD CM+1 00256 M00S00195.compimb +++| EXECUTE 1MD,= 00257 M00S00196.compimb +++| MONITOR RPPM 00258 M00S00197.compimb +++| LDD CM+1
| Line S00198 Modification History | |
|---|---|
M01 (Removed by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 00259 M01S00198.ns2777 ---| NJN IMD2 IF PP ASSIGNED 00260 M01S00199.ns2777 ---| AOD T2 INCREMENT *RPPM* RETRY COUNT 00261 M01S00200.ns2777 ---| LMN 10D 00262 M01S00201.ns2777 ---| ZJN IMDX IF RETRY LIMIT 00263 M01S00202.ns2777 ---| DELAY 10D*8D DELAY FOR 10 MILLISECONDS 00264 M01S00203.ns2777 ---| UJN IMD1 RETRY *RPPM*
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | ns2777 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00204.compimb +++| 00270 M00S00205.compimb +++| 00271 M00S00206.compimb +++| IMDA VFD 18/3L1MD,42/1 *1MD* CALL/BUFFER TERMINATOR 00272 M00S00207.compimb +++| SPACE 4 00273 M00S00208.compimb +++| QUAL$ IF -DEF,QUAL$ 00274 M00S00209.compimb +++| QUAL * 00275 M00S00210.compimb +++| IMB EQU /COMPIMB/IMB 00276 M00S00211.compimb +++| QUAL$ ENDIF 00277 M00S00212.compimb +++| BASE * 00278 M00S00213.compimb +++| IMB ENDX
cdc/nos2.source/opl.opl871/common/compimb.txt · Last modified: (external edit)