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