Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.mdd +++| IDENT MDD,MDD
00002 M01S00002.mdd +++| PERIPH
00003 M01S00003.mdd +++| BASE MIXED
00004 M01S00004.mdd +++| SST DLYA,RDS,SSCP
00005 M01S00005.mdd +++| TITLE MDD - TWO PORT MUX MAINTENANCE DISPLAY.
00006 M01S00006.mdd +++|*COMMENT MDD - LEVEL=11.
| Line S00007 Modification History |
M01 (Added by) | mdd |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M01S00008.mdd +++| MDD SPACE 4,10
00010 M01S00009.mdd +++|*** MDD - MAINTENANCE CHANNEL DISPLAY PREPROCESSOR.
00011 M01S00010.mdd +++|*
00012 M01S00011.mdd +++|* B. R. HANSON. 81/02/29.
00013 M01S00012.mdd +++|* R. A. ANDERSON. 85/09/18.
00014 M01S00013.mdd +++|* K. A. PRIEVE. 87/06/10.
00015 M01S00014.mdd +++| SPACE 4,10
00016 M01S00015.mdd +++|*** THIS IS THE NOS OPERATING SYSTEM DEPENDENT RESIDENT
00017 M01S00016.mdd +++|* OVERLAY. THIS PROGRAM DETERMINES WHETHER THERE IS ALREADY A
00018 M01S00017.mdd +++|* COPY OF *SCI* RUNNING IN A PP. IF SO, IT TURNS ON *MDD* MODE
00019 M01S00018.mdd +++|* FOR THAT COPY (UNLESS NOS/VE IS RUNNING IN WHICH CASE *MDD*
00020 M01S00019.mdd +++|* MUST BE INITIATED FROM NOS/VE). IF *SCI* IS NOT CURRENTLY
00021 M01S00020.mdd +++|* EXECUTING, PP RESIDENT IS SAVED AND *SCI* IS LOADED FROM THE
00022 M01S00021.mdd +++|* CIP LIBRARY. THIS PROGRAM ALSO HANDLES THE UNIQUE *MDD*
00023 M01S00022.mdd +++|* STARTUP AND TERMINATION REQUIREMENTS FOR NOS.
00024 M01S00023.mdd +++|*
00025 M01S00024.mdd +++|* THIS VERSION OF *MDD* REQUIRES CIP TO BE AT LEVEL 9 OR
00026 M01S00025.mdd +++|* GREATER.
00027 M01S00026.mdd +++| SPACE 4,10
00028 M01S00027.mdd +++|*** ERROR LOG MESSAGES.
00029 M01S00028.mdd +++|*
00030 M01S00029.mdd +++|* * MDD - ALREADY LOADED.*
00031 M01S00030.mdd +++|* *MDD* IS ALREADY RUNNING IN A PP. ONLY ONE COPY
00032 M01S00031.mdd +++|* CAN RUN AT A TIME.
00033 M01S00032.mdd +++|* MDD PP WILL DROP OUT.
00034 M01S00033.mdd +++|* ALERT STATUS IS SET.
00035 M01S00034.mdd +++|*
00036 M01S00035.mdd +++|* * MDD - BYE COMMAND EXECUTED.*
00037 M01S00036.mdd +++|* THE USER OF MDD HAS ENTERED THE BY COMMAND DIRECTING
00038 M01S00037.mdd +++|* MDD TO DROP OUT.
00039 M01S00038.mdd +++|*
00040 M01S00039.mdd +++|* * MDD - CONSOLE MUST BE UNLOCKED.*
00041 M01S00040.mdd +++|* AN ATTEMPT WAS MADE TO BRING MDD UP WITH THE CONSOLE
00042 M01S00041.mdd +++|* IN A LOCKED STATE.
00043 M01S00042.mdd +++|* MDD PP WILL DROP OUT.
00044 M01S00043.mdd +++|* ALERT STATUS IS SET.
00045 M01S00044.mdd +++|*
00046 M01S00045.mdd +++|* * MDD - IMPROPER ACCESS ATTEMPT.*
00047 M01S00046.mdd +++|* MDD WAS NOT INITIATED FROM EITHER A SYSTEM CONTROL POINT
00048 M01S00047.mdd +++|* OR WITH ENGINEERING ACCESS.
00049 M01S00048.mdd +++|* MDD WILL DROP OUT.
00050 M01S00049.mdd +++|*
00051 M01S00050.mdd +++|* * MDD - MR ERROR.*
00052 M01S00051.mdd +++|* A MAINTENANCE REGISTER ERROR WAS DETECTED DURING MDD
00053 M01S00052.mdd +++|* INITIALIZATION.
00054 M01S00053.mdd +++|* MDD WILL DROP OUT.
00055 M01S00054.mdd +++|*
00056 M01S00055.mdd +++|* * MDD - MUST BE INITIATED FROM NOS/VE.*
00057 M01S00056.mdd +++|* WHEN NOS/VE IS EXECUTING, *MDD* MUST BE INITIATED FROM
00058 M01S00057.mdd +++|* THE NOS/VE SIDE.
00059 M01S00058.mdd +++|* MDD PP WILL DROP OUT.
00060 M01S00059.mdd +++|* ALERT STATUS IS SET.
00061 M01S00060.mdd +++|*
00062 M01S00061.mdd +++|* * MDD - NOT ALLOWED ON THIS MAINFRAME.*
00063 M01S00062.mdd +++|* THE MAINFRAME DOES NOT HAVE NECESSARY HARDWARE TO
00064 M01S00063.mdd +++|* SUPPORT MDD.
00065 M01S00064.mdd +++|* MDD WILL DROP OUT.
00066 M01S00065.mdd +++|* ALERT STATUS IS SET.
00067 M01S00066.mdd +++|*
00068 M01S00067.mdd +++|* * MDD - NOT FOUND IN CIP DIRECTORY.*
00069 M01S00068.mdd +++|* MDD HAS SEARCHED THE CENTRAL MEMORY CTI DIRECTORY
00070 M01S00069.mdd +++|* AND NOT FOUND THE RESIDENT VERSION OF MDD.
00071 M01S00070.mdd +++|* MDD WILL DROP OUT.
00072 M01S00071.mdd +++|* ALERT STATUS IS SET.
00073 M01S00072.mdd +++|*
00074 M01S00073.mdd +++|* * MDD - VALIDATED.*
00075 M01S00074.mdd +++|* MDD HAS SUCCESSFULLY VALIDATED ITSELF AND HAS BEGUN
00076 M01S00075.mdd +++|* OPERATION.
00077 M01S00076.mdd +++| SPACE 4,10
00078 M01S00077.mdd +++|* COMMON DECKS.
00079 M01S00078.mdd +++|
00080 M01S00079.mdd +++|
00081 M01S00080.mdd +++|*CALL COMPMAC
00082 M01S00081.mdd +++|*CALL COMPIOU
00083 M01S00082.mdd +++|*CALL COMSCPS
00084 M01S00083.mdd +++|*CALL COMSDST
00085 M01S00084.mdd +++|*CALL COMSEVT
00086 M01S00085.mdd +++|*CALL COMSIOU
00087 M01S00086.mdd +++|*CALL COMSPIM
00088 M01S00087.mdd +++| SPACE 4,10
00089 M01S00088.mdd +++|**** DIRECT LOCATION ASSIGNMENTS.
00090 M01S00089.mdd +++|*
00091 M01S00090.mdd +++|* THE DIRECT CELLS *SM* THROUGH *CD+2* AND *SF* (27-36, 70)
00092 M01S00091.mdd +++|* CONTAIN HANDOFF DATA FOR *SCI*. THEY MUST NOT BE MOVED.
00093 M01S00092.mdd +++|* SEE NOS/VE DEVELOPMENT FOR ANY ADJUSTMENTS THAT MUST BE
00094 M01S00093.mdd +++|* MADE TO ENSURE COMPATIBILITY WITH *SCI*.
00095 M01S00094.mdd +++|
00096 M01S00095.mdd +++|
00097 M01S00096.mdd +++| SM EQU 27 *SCI* PP NUMBER AND *X.MDD* FLAG
00098 M01S00097.mdd +++| MD EQU 30 - 32 *SCI* ADDRESS A AND R-REGISTER
00099 M01S00098.mdd +++| UF EQU 33 UTILITY MODE FLAG
00100 M01S00099.mdd +++| CD EQU 34 - 36 CIP DIRECTORY POINTER
00101 M01S00100.mdd +++| CN EQU 40 - 44 SCRATCH BUFFER
00102 M01S00101.mdd +++| RN EQU 45 REGISTER NUMBER (COMPMRA)
00103 M01S00102.mdd +++| PP EQU 46 PP NUMBER
00104 M01S00103.mdd +++| PT EQU 47 PORT NUMBER
00105 M01S00104.mdd +++| W0 EQU 60 WORKING STORAGE
00106 M01S00105.mdd +++| W1 EQU 61 WORKING STORAGE
00107 M01S00106.mdd +++| W2 EQU 62 WORKING STORAGE
00108 M01S00107.mdd +++| W3 EQU 63 WORKING STORAGE
00109 M01S00108.mdd +++| W4 EQU 64 WORKING STORAGE
00110 M01S00109.mdd +++| W5 EQU 65 WORKING STORAGE
00111 M01S00110.mdd +++| W6 EQU 66 WORKING STORAGE
00112 M01S00111.mdd +++| W7 EQU 67 WORKING STORAGE
00113 M01S00112.mdd +++| SF EQU 70 *SCI* INITIATED BY *SDA* FLAG
00114 M01S00113.mdd +++| SPACE 4,10
00115 M01S00114.mdd +++|** ASSEMBLY CONSTANTS.
00116 M01S00115.mdd +++|*
00117 M01S00116.mdd +++|
00118 M01S00117.mdd +++|
00119 M01S00118.mdd +++| RR EQU 400000 CONSTANT VALUE FOR R REGISTER
00120 M01S00119.mdd +++| TITLE RESIDENT NOS DEPENDENT OVERLAY.
00121 M01S00120.mdd +++| ORG PPFW
00122 M01S00121.mdd +++| MDD SPACE 4,10
00123 M01S00122.mdd +++|** MDD - MONITOR DISPLAY DRIVER PREPROCESSOR.
00124 M01S00123.mdd +++|*
00125 M01S00124.mdd +++|* ENTRY (IR+4) = DESIRED PORT.
00126 M01S00125.mdd +++|
00127 M01S00126.mdd +++|
00128 M01S00127.mdd +++| MDD BSS 0 ENTRY
00129 M01S00128.mdd +++| RJM PRS PRESET
00130 M01S00129.mdd +++| RJM GSA
00131 M01S00130.mdd +++| ZJP MDD2 IF NO *SCI* PARAMETER TABLE
00132 M01S00131.mdd +++| RJM GSI GET *SCI* PARAMETER TABLE INTERLOCK
00133 M01S00132.mdd +++| RJM GSA CHECK IF *MDD* ACTIVE
00134 M01S00133.mdd +++| CRD CN
00135 M01S00134.mdd +++| LDD CN+4
00136 M01S00135.mdd +++| SHN 21-13
00137 M01S00136.mdd +++| PJN MDD1 IF *MDD* NOT ALREADY ACTIVE
00138 M01S00137.mdd +++| RJM CPN CHECK PORT NUMBER
00139 M01S00138.mdd +++| LJM MDD6 CLEAR MEMORY AND DROP PP
00140 M01S00139.mdd +++|
00141 M01S00140.mdd +++| MDD1 LDD CN+1 CHECK IF *SCI* ACTIVE
00142 M01S00141.mdd +++| LPN 77
00143 M01S00142.mdd +++| ZJN MDD3 IF *SCI* NOT ACTIVE
00144 M01S00143.mdd +++| RJM GEA CHECK IF NOS/VE ACTIVE
00145 M01S00144.mdd +++| ADN D8TY
00146 M01S00145.mdd +++| CRD W0
00147 M01S00146.mdd +++| LDD W0+3
00148 M01S00147.mdd +++| LPN 77
00149 M01S00148.mdd +++| SBN 2
00150 M01S00149.mdd +++| ZJN MDD5 IF NOS/VE ACTIVE
00151 M01S00150.mdd +++| RJM AMB ACTIVATE *MDD* BITS
00152 M01S00151.mdd +++| RJM SMF SET C170 *MDD* FLAG
00153 M01S00152.mdd +++| RJM GSA GET *SCI* PARAMETER TABLE ADDRESS
00154 M01S00153.mdd +++| CWD CN WRITE FIRST WORD AND CLEAR INTERLOCK
00155 M01S00154.mdd +++| UJN MDD6 CLEAR MEMORY AND DROP PP
00156 M01S00155.mdd +++|
00157 M01S00156.mdd +++| MDD2 RJM GEA CHECK IF ANOTHER *MDD* ACTIVE
00158 M01S00157.mdd +++| ADN D7RS
00159 M01S00158.mdd +++| CRD W0
00160 M01S00159.mdd +++| LDD W0+1
00161 M01S00160.mdd +++| LPN 77
00162 M01S00161.mdd +++| NJN MDD4 IF *MDD* ALREADY ACTIVE
00163 M01S00162.mdd +++| MDD3 LDC ELM3+ERLN * MDD - VALIDATED.*
00164 M01S00163.mdd +++| RJM DFM
00165 M01S00164.mdd +++| LJM LSC LOAD *SCI* (DOES NOT RETURN)
00166 M01S00165.mdd +++|
00167 M01S00166.mdd +++| MDD4 LDC ELM11+ERLN * MDD - ALREADY ACTIVE.*
00168 M01S00167.mdd +++| UJN ERR ISSUE MESSAGE AND DROP PP
00169 M01S00168.mdd +++|
00170 M01S00169.mdd +++| MDD5 RJM CSI CLEAR *SCI* PARAMETER TABLE INTERLOCK
00171 M01S00170.mdd +++| LDC ELM10+ERLN * MDD - MUST BE INITIATED FROM NOS/VE.*
00172 M01S00171.mdd +++|* UJN ERR ISSUE MESSAGE AND DROP PP
00173 M01S00172.mdd +++|
00174 M01S00173.mdd +++|* PROCESS FATAL *MDD* ERROR.
00175 M01S00174.mdd +++|
00176 M01S00175.mdd +++| ERR STM SASA INFORM ALERT ROUTINE
00177 M01S00176.mdd +++| RJM DFM ISSUE MESSAGE
00178 M01S00177.mdd +++| RJM SAS SET ALERT STATUS
00179 M01S00178.mdd +++|
00180 M01S00179.mdd +++| MDD6 MONITOR DPPM DROP PP
00181 M01S00180.mdd +++| LDC CPMA CLEAR LONG INSTRUCTIONS
00182 M01S00181.mdd +++| RJM CPM
00183 M01S00182.mdd +++| LJM PPR EXIT TO PP RESIDENT
00184 M01S00183.mdd +++| MRER SPACE 4,10
00185 M01S00184.mdd +++|* PROCESS FATAL MAINTENANCE REGISTER ERROR.
00186 M01S00185.mdd +++|
00187 M01S00186.mdd +++| MRER LDC ELM1+ERLN * MDD - MR ERROR.*
00188 M01S00187.mdd +++| UJN ERR PROCESS FATAL ERROR
00189 M01S00188.mdd +++| TITLE MDD - SUBROUTINES.
00190 M01S00189.mdd +++| AMB SPACE 4,10
00191 M01S00190.mdd +++|** AMB - ACTIVATE *MDD* BITS.
00192 M01S00191.mdd +++|*
00193 M01S00192.mdd +++|* ENTRY (PT) = PORT NUMBER.
00194 M01S00193.mdd +++|* (CN - CN+4) = *SCI* PARAMETER TABLE WORD ONE.
00195 M01S00194.mdd +++|*
00196 M01S00195.mdd +++|* EXIT *MDD* ACTIVE BITS SET AND INTERLOCK CLEARED
00197 M01S00196.mdd +++|* IN *CN - CN+4*.
00198 M01S00197.mdd +++|
00199 M01S00198.mdd +++|
00200 M01S00199.mdd +++| AMB SUBR ENTRY/EXIT
00201 M01S00200.mdd +++| LDD PT SET PORT NUMBER
00202 M01S00201.mdd +++| SHN 6
00203 M01S00202.mdd +++| ADC 1S11+1000 SET *MDD* ACTIVE AND REAL STATE BITS
00204 M01S00203.mdd +++| STD CN+4
00205 M01S00204.mdd +++| LDD CN+1 SET SECONDARY BYTE CHANGED FLAG
00206 M01S00205.mdd +++| LPC 5377 AND CLEAR INTERLOCK BIT
00207 M01S00206.mdd +++| LMC 2000
00208 M01S00207.mdd +++| STD CN+1
00209 M01S00208.mdd +++| UJN AMBX RETURN
00210 M01S00209.mdd +++| CPM SPACE 4,10
00211 M01S00210.mdd +++|** CPM - CLEAR PP MEMORY.
00212 M01S00211.mdd +++|*
00213 M01S00212.mdd +++|* ENTRY (A) = FIRST WORD TO CLEAR.
00214 M01S00213.mdd +++|*
00215 M01S00214.mdd +++|* EXIT PP MEMORY CLEARED.
00216 M01S00215.mdd +++|*
00217 M01S00216.mdd +++|* USES T0.
00218 M01S00217.mdd +++|
00219 M01S00218.mdd +++|
00220 M01S00219.mdd +++| CPM SUBR ENTRY/EXIT
00221 M01S00220.mdd +++| STD T0 FIRST ADDRESS TO CLEAR
00222 M01S00221.mdd +++| LDN 0
00223 M01S00222.mdd +++| CPM1 STI T0
00224 M01S00223.mdd +++| AOD T0
00225 M01S00224.mdd +++| SHN -14
00226 M01S00225.mdd +++| ZJN CPM1 IF MORE MEMORY TO CLEAR
00227 M01S00226.mdd +++| UJN CPMX RETURN
00228 M01S00227.mdd +++| SPACE 4,10
00229 M01S00228.mdd +++|* BEFORE DROPPING THE PP, MEMORY MUST BE CLEARED OF LONG
00230 M01S00229.mdd +++|* INSTRUCTIONS. NO LONG INSTRUCTIONS CAN BE ADDED BEFORE
00231 M01S00230.mdd +++|* THIS ADDRESS.
00232 M01S00231.mdd +++|
00233 M01S00232.mdd +++| CPMA EQU * CLEAR PP MEMORY ADDRESS
00234 M01S00233.mdd +++| CPN SPACE 4,15
00235 M01S00234.mdd +++|** CPN - CHECK PORT NUMBER.
00236 M01S00235.mdd +++|*
00237 M01S00236.mdd +++|* ENTRY (CN - CN+4) = *SCI* PARAMETER TABLE WORD ONE.
00238 M01S00237.mdd +++|* *SCI* PARAMETER TABLE INTERLOCKED.
00239 M01S00238.mdd +++|*
00240 M01S00239.mdd +++|* EXIT REQUESTED PORT SET IN *SCI* PARAMETER TABLE.
00241 M01S00240.mdd +++|* *SCI* PARAMETER TABLE INTERLOCK CLEARED.
00242 M01S00241.mdd +++|*
00243 M01S00242.mdd +++|* USES T1.
00244 M01S00243.mdd +++|*
00245 M01S00244.mdd +++|* CALLS GSA.
00246 M01S00245.mdd +++|
00247 M01S00246.mdd +++|
00248 M01S00247.mdd +++| CPN SUBR ENTRY/EXIT
00249 M01S00248.mdd +++|
00250 M01S00249.mdd +++|* CHANGE PORT NUMBER IF DIFFERENT PORT REQUESTED.
00251 M01S00250.mdd +++|
00252 M01S00251.mdd +++| LDD CN+4 GET CURRENT PORT
00253 M01S00252.mdd +++| SHN -6
00254 M01S00253.mdd +++| LPN 7
00255 M01S00254.mdd +++| LMD PT
00256 M01S00255.mdd +++| NJN CPN1 IF NOT CURRENTLY USING REQUESTED PORT
00257 M01S00256.mdd +++| LDD CN+1 CLEAR INTERLOCK
00258 M01S00257.mdd +++| LPC 7377
00259 M01S00258.mdd +++| UJN CPN2 WRITE FIRST WORD
00260 M01S00259.mdd +++|
00261 M01S00260.mdd +++| CPN1 LDD PT SET NEW PORT NUMBER
00262 M01S00261.mdd +++| SHN 6
00263 M01S00262.mdd +++| STD T1
00264 M01S00263.mdd +++| LDD CN+4
00265 M01S00264.mdd +++| LPC 7077 CLEAR OLD PORT
00266 M01S00265.mdd +++| LMD T1 ADD NEW PORT
00267 M01S00266.mdd +++| STD CN+4
00268 M01S00267.mdd +++| LDD CN+1 SET SECONDARY BYTE CHANGED FLAG
00269 M01S00268.mdd +++| LPC 5377 AND CLEAR INTERLOCK BIT
00270 M01S00269.mdd +++| LMC 2000
00271 M01S00270.mdd +++| CPN2 STD CN+1
00272 M01S00271.mdd +++| RJM GSA GET *SCI* PARAMETER TABLE ADDRESS
00273 M01S00272.mdd +++| CWD CN WRITE FIRST WORD AND CLEAR INTERLOCK
00274 M01S00273.mdd +++| UJN CPNX RETURN
00275 M01S00274.mdd +++| CSI SPACE 4,10
00276 M01S00275.mdd +++|** CSI - CLEAR *SCI* PARAMETER TABLE INTERLOCK.
00277 M01S00276.mdd +++|*
00278 M01S00277.mdd +++|* EXIT INTERLOCK CLEARED.
00279 M01S00278.mdd +++|*
00280 M01S00279.mdd +++|* USES W0 - W0+3.
00281 M01S00280.mdd +++|*
00282 M01S00281.mdd +++|* CALLS GSA.
00283 M01S00282.mdd +++|
00284 M01S00283.mdd +++|
00285 M01S00284.mdd +++| CSI SUBR ENTRY/EXIT
00286 M01S00285.mdd +++| LDC 0#FFFF
00287 M01S00286.mdd +++| STDL W0
00288 M01S00287.mdd +++| STDL W0+2
00289 M01S00288.mdd +++| STDL W0+3
00290 M01S00289.mdd +++| LDC 0#EFFF MASK FOR CLEAR INTERLOCK
00291 M01S00290.mdd +++| STDL W0+1
00292 M01S00291.mdd +++| RJM GSA GET *SCI* PARAMETER TABLE ADDRESS
00293 M01S00292.mdd +++| RDCL W0 CLEAR INTERLOCK
00294 M01S00293.mdd +++| UJN CSIX RETURN
00295 M01S00294.mdd +++| GEA SPACE 4,10
00296 M01S00295.mdd +++|** GEA - GET *EICB* ADDRESS.
00297 M01S00296.mdd +++|*
00298 M01S00297.mdd +++|* EXIT (A) = *EICB* FWA.
00299 M01S00298.mdd +++|
00300 M01S00299.mdd +++|
00301 M01S00300.mdd +++| GEA SUBR ENTRY/EXIT
00302 M01S00301.mdd +++| LDC **
00303 M01S00302.mdd +++| GEAA EQU *-2 (*EICB* FWA)
00304 M01S00303.mdd +++| UJN GEAX RETURN
00305 M01S00304.mdd +++| GPS SPACE 4,10
00306 M01S00305.mdd +++|** GPS - GET *PPR* SAVE AREA ADDRESS.
00307 M01S00306.mdd +++|*
00308 M01S00307.mdd +++|* EXIT (A) = *PPR* SAVE AREA FWA.
00309 M01S00308.mdd +++|
00310 M01S00309.mdd +++|
00311 M01S00310.mdd +++| GPS SUBR ENTRY/EXIT
00312 M01S00311.mdd +++| LDC **
00313 M01S00312.mdd +++| GPSA EQU *-2 (*PPR* SAVE AREA ADDRESS)
00314 M01S00313.mdd +++| UJN GPSX RETURN
00315 M01S00314.mdd +++| GSA SPACE 4,10
00316 M01S00315.mdd +++|** GSA - GET *SCI* PARAMETER TABLE ADDRESS.
00317 M01S00316.mdd +++|*
00318 M01S00317.mdd +++|* EXIT (A) = *SCI* PARAMETER TABLE ADDRESS.
00319 M01S00318.mdd +++|* = 0 IF TABLE NOT DEFINED.
00320 M01S00319.mdd +++|
00321 M01S00320.mdd +++|
00322 M01S00321.mdd +++| GSA SUBR ENTRY/EXIT
00323 M01S00322.mdd +++| LDC **
00324 M01S00323.mdd +++| GSAA EQU *-2 (*SCI* PARAMETER TABLE ADDRESS)
00325 M01S00324.mdd +++| UJN GSAX RETURN
00326 M01S00325.mdd +++| GSI SPACE 4,10
00327 M01S00326.mdd +++|** GSI - GET *SCI* PARAMETER TABLE INTERLOCK.
00328 M01S00327.mdd +++|*
00329 M01S00328.mdd +++|* EXIT INTERLOCK SET.
00330 M01S00329.mdd +++|*
00331 M01S00330.mdd +++|* USES W0 - W0+3.
00332 M01S00331.mdd +++|*
00333 M01S00332.mdd +++|* CALLS GSA.
00334 M01S00333.mdd +++|
00335 M01S00334.mdd +++|
00336 M01S00335.mdd +++| GSI SUBR ENTRY/EXIT
00337 M01S00336.mdd +++| GSI1 LDN ZERL
00338 M01S00337.mdd +++| CRDL W0
00339 M01S00338.mdd +++| LDC 10000 INTERLOCK BIT
00340 M01S00339.mdd +++| STDL W0+1
00341 M01S00340.mdd +++| RJM GSA GET *SCI* PARAMETER TABLE ADDRESS
00342 M01S00341.mdd +++| RDSL W0 SET INTERLOCK
00343 M01S00342.mdd +++| LDDL W0+1
00344 M01S00343.mdd +++| LPC 10000
00345 M01S00344.mdd +++| NJN GSI1 IF INTERLOCK WAS ALREADY SET
00346 M01S00345.mdd +++| UJN GSIX RETURN
00347 M01S00346.mdd +++| LSC SPACE 4,10
00348 M01S00347.mdd +++|** LSC - LOAD *SCI*.
00349 M01S00348.mdd +++|*
00350 M01S00349.mdd +++|* ENTRY (CN - CN+4) = *SCI* PARAMETER TABLE WORD ONE.
00351 M01S00350.mdd +++|* *SCI* PARAMETER TABLE INTERLOCKED.
00352 M01S00351.mdd +++|*
00353 M01S00352.mdd +++|* EXIT NO EXIT. LOADS *SCI* ON TOP OF *MDD* BOOT.
00354 M01S00353.mdd +++|*
00355 M01S00354.mdd +++|* CALLS AMB, GSA, SPD, SPP, SSH.
00356 M01S00355.mdd +++|
00357 M01S00356.mdd +++|
00358 M01S00357.mdd +++| LSC BSS 0 ENTRY
00359 M01S00358.mdd +++|
00360 M01S00359.mdd +++|* PREPARE FOR *SCI* LOAD.
00361 M01S00360.mdd +++|
00362 M01S00361.mdd +++| RJM SPD SET PP/PORT NUMBERS IN *D7RS*
00363 M01S00362.mdd +++| RJM GSA
00364 M01S00363.mdd +++| ZJN LSC1 IF NO *SCI* PARAMETER TABLE
00365 M01S00364.mdd +++| RJM AMB ACTIVATE *MDD* BITS AND CLEAR INTERLOCK
00366 M01S00365.mdd +++| LDD PP SET PP NUMBER
00367 M01S00366.mdd +++| RAD CN+1
00368 M01S00367.mdd +++| RJM GSA WRITE WORD ONE AND CLEAR INTERLOCK
00369 M01S00368.mdd +++| CWD CN
00370 M01S00369.mdd +++| LSC1 RJM SPP SAVE *PPR*
00371 M01S00370.mdd +++| RJM SSH SET *SCI* HANDOFF DATA
00372 M01S00371.mdd +++|
00373 M01S00372.mdd +++|* CHANGE *MDD* TO *SCI* IN INPUT REGISTER.
00374 M01S00373.mdd +++|
00375 M01S00374.mdd +++| LDD IA GET CURRENT INPUT REGISTER
00376 M01S00375.mdd +++| CRD CM
00377 M01S00376.mdd +++| LDC 2RSC
00378 M01S00377.mdd +++| STD CM
00379 M01S00378.mdd +++| LDD CM+1
00380 M01S00379.mdd +++| LPN 77
00381 M01S00380.mdd +++| LMC 1RI*100
00382 M01S00381.mdd +++| STD CM+1
00383 M01S00382.mdd +++| LDD IA
00384 M01S00383.mdd +++| CWD CM
00385 M01S00384.mdd +++|
00386 M01S00385.mdd +++|* PLUG LONG INSTRUCTION IN BOOT CODE. *COMPDLI* DOES
00387 M01S00386.mdd +++|* NOT HANDLE LONG INSTRUCTIONS WITHIN *LOC* DIRECTIVES
00388 M01S00387.mdd +++|* WELL, SO THIS ONE IS PLUGGED EXPLICITLY.
00389 M01S00388.mdd +++|
00390 M01S00389.mdd +++| LDM LSCA+BTSA-1
00391 M01S00390.mdd +++| LMC 1S15 CONVERT TO 16 BIT INSTRUCTION
00392 M01S00391.mdd +++| STML LSCA+BTSA-1
00393 M01S00392.mdd +++|
00394 M01S00393.mdd +++|* MOVE CODE SO *SCI* DOES NOT OVERWRITE IT.
00395 M01S00394.mdd +++|
00396 M01S00395.mdd +++| LDN 1 READ DIRECTORY ENTRY
00397 M01S00396.mdd +++| STD CM
00398 M01S00397.mdd +++| LRD MD+1
00399 M01S00398.mdd +++| LDD MD
00400 M01S00399.mdd +++| ADC RR
00401 M01S00400.mdd +++| CRML LSCA+T3,CM
00402 M01S00401.mdd +++| LDN LSCAL/4 MOVE BOOT
00403 M01S00402.mdd +++| STD CM
00404 M01S00403.mdd +++| LDD MA
00405 M01S00404.mdd +++| CWML LSCA,CM
00406 M01S00405.mdd +++| LDD MA
00407 M01S00406.mdd +++| CRML 0,CM
00408 M01S00407.mdd +++|
00409 M01S00408.mdd +++|* BOOT CODE FOR LOADING *SCI*.
00410 M01S00409.mdd +++|
00411 M01S00410.mdd +++| LSCA BSS 0
00412 M01S00411.mdd +++| LOC 0
00413 M01S00412.mdd +++| CON BTS-1
00414 M01S00413.mdd +++| BSS 2
00415 M01S00414.mdd +++| T3 CON 0,0,0,0
00416 M01S00415.mdd +++| BTS LDD T3
00417 M01S00416.mdd +++| STD BTSA
00418 M01S00417.mdd +++| LDD MD
00419 M01S00418.mdd +++| ADC RR+1
00420 M01S00419.mdd +++| LRD MD+1
00421 M01S00420.mdd +++| CRM **,T3+1
00422 M01S00421.mdd +++| BTSA EQU *-1
00423 M01S00422.mdd +++|* CRML **,T3+1 (CONVERTED TO LONG EXPLICITLY)
00424 M01S00423.mdd +++| LJM 100 START EXECUTING *SCI*
00425 M01S00424.mdd +++| LSCAL EQU *+3
00426 M01S00425.mdd +++| ERRPL LSCAL-30 BOOT OVERWRITES HANDOFF DATA
00427 M01S00426.mdd +++| LOC *O
00428 M01S00427.mdd +++| SAS SPACE 4,10
00429 M01S00428.mdd +++|** SAS - SET ALERT STATUS.
00430 M01S00429.mdd +++|*
00431 M01S00430.mdd +++|* ENTRY (SASA) = MESSAGE ADDRESS.
00432 M01S00431.mdd +++|*
00433 M01S00432.mdd +++|* EXIT ALERT STATUS SET IF PROPER MESSAGE SENT.
00434 M01S00433.mdd +++|*
00435 M01S00434.mdd +++|* USES CM - CM+4.
00436 M01S00435.mdd +++|*
00437 M01S00436.mdd +++|* MACROS MONITOR.
00438 M01S00437.mdd +++|
00439 M01S00438.mdd +++|
00440 M01S00439.mdd +++| SAS SUBR ENTRY/EXIT
00441 M01S00440.mdd +++| LDC **
00442 M01S00441.mdd +++| SASA EQU *-1 (ADDRESS OF MESSAGE)
00443 M01S00442.mdd +++| ADC -ALERT
00444 M01S00443.mdd +++| MJN SASX IF NO ALERT NEEDED
00445 M01S00444.mdd +++| LDN ZERL ISSUE ERROR LOG ALERT EVENT
00446 M01S00445.mdd +++| CRD CM
00447 M01S00446.mdd +++| ERRNZ EEVS CODE ASSUMES *EEVS* IS ZERO
00448 M01S00447.mdd +++| LDN ELAE
00449 M01S00448.mdd +++| STD CM+4
00450 M01S00449.mdd +++| MONITOR EATM
00451 M01S00450.mdd +++| UJN SASX RETURN
00452 M01S00451.mdd +++| SMF SPACE 4,10
00453 M01S00452.mdd +++|** SMF - SET C170 *MDD* FLAG.
00454 M01S00453.mdd +++|*
00455 M01S00454.mdd +++|* USES W0 - W0+4.
00456 M01S00455.mdd +++|*
00457 M01S00456.mdd +++|* CALLS GEA.
00458 M01S00457.mdd +++|
00459 M01S00458.mdd +++|
00460 M01S00459.mdd +++| SMF SUBR ENTRY/EXIT
00461 M01S00460.mdd +++| RJM GEA
00462 M01S00461.mdd +++| ADN D7RS
00463 M01S00462.mdd +++| CRD W0
00464 M01S00463.mdd +++| LDD W0+1
00465 M01S00464.mdd +++| LPC 6777
00466 M01S00465.mdd +++| LMC 1000
00467 M01S00466.mdd +++| STD W0+1
00468 M01S00467.mdd +++| RJM GEA REWRITE *D7RS*
00469 M01S00468.mdd +++| ADN D7RS
00470 M01S00469.mdd +++| CWD W0
00471 M01S00470.mdd +++| UJN SMFX RETURN
00472 M01S00471.mdd +++| SPD SPACE 4,15
00473 M01S00472.mdd +++|** SPD - SET PP/PORT NUMBERS IN *D7RS*.
00474 M01S00473.mdd +++|*
00475 M01S00474.mdd +++|* ENTRY (PP) = PP NUMBER.
00476 M01S00475.mdd +++|* (PT) = PORT NUMBER.
00477 M01S00476.mdd +++|*
00478 M01S00477.mdd +++|* EXIT TO *MDD4* IF *MDD* ALREADY ACTIVE.
00479 M01S00478.mdd +++|* IN THIS CASE, THE *SCI* PARAMETER TABLE INTERLOCK IS
00480 M01S00479.mdd +++|* CLEARED.
00481 M01S00480.mdd +++|*
00482 M01S00481.mdd +++|* USES CM - CM+4.
00483 M01S00482.mdd +++|*
00484 M01S00483.mdd +++|* CALLS CSI, GEA, GSA.
00485 M01S00484.mdd +++|*
00486 M01S00485.mdd +++|* MACROS MONITOR.
00487 M01S00486.mdd +++|
00488 M01S00487.mdd +++|
00489 M01S00488.mdd +++| SPD SUBR ENTRY/EXIT
00490 M01S00489.mdd +++| RJM GEA GET *EICB* ADDRESS
00491 M01S00490.mdd +++| ADN D7RS
00492 M01S00491.mdd +++| STD CM+4
00493 M01S00492.mdd +++| SHN -14
00494 M01S00493.mdd +++| STD CM+3
00495 M01S00494.mdd +++| LDN 2 SET NUMBER OF REQUESTS
00496 M01S00495.mdd +++| STD CM+1
00497 M01S00496.mdd +++| LDN 10 SET C170 *MDD* FLAG
00498 M01S00497.mdd +++| LMD PT GET PORT NUMBER
00499 M01S00498.mdd +++| SHN 6
00500 M01S00499.mdd +++| LMD PP GET PP NUMBER
00501 M01S00500.mdd +++| STM SPDB+4
00502 M01S00501.mdd +++| LDD MA WRITE REQUESTS TO MESSAGE BUFFER
00503 M01S00502.mdd +++| CWM SPDA,CM+1
00504 M01S00503.mdd +++| MONITOR UTEM
00505 M01S00504.mdd +++| LDD CM+1
00506 M01S00505.mdd +++| ZJN SPDX IF OPERATION COMPLETE
00507 M01S00506.mdd +++| RJM GSA
00508 M01S00507.mdd +++| ZJN SPD1 IF NO *SCI* PARAMETER TABLE
00509 M01S00508.mdd +++| RJM CSI CLEAR *SCI* PARAMETER TABLE INTERLOCK
00510 M01S00509.mdd +++| SPD1 LJM MDD4 ISSUE ALREADY ACTIVE MESSAGE
00511 M01S00510.mdd +++|
00512 M01S00511.mdd +++|
00513 M01S00512.mdd +++| SPDA VFD 1/1,5/0,6/12D,6/36D,42/0
00514 M01S00513.mdd +++| SPDB VFD 1/0,5/0,6/12D,6/36D,42/0
00515 M01S00514.mdd +++| SPP SPACE 4,10
00516 M01S00515.mdd +++|** SPP - SAVE PP RESIDENT.
00517 M01S00516.mdd +++|*
00518 M01S00517.mdd +++|* EXIT *PPR* WRITTEN TO SAVE AREA.
00519 M01S00518.mdd +++|*
00520 M01S00519.mdd +++|* USES T0, W6, W7.
00521 M01S00520.mdd +++|*
00522 M01S00521.mdd +++|* CALLS GPS.
00523 M01S00522.mdd +++|*
00524 M01S00523.mdd +++|* MACROS SETMS.
00525 M01S00524.mdd +++|
00526 M01S00525.mdd +++|
00527 M01S00526.mdd +++| SPP SUBR ENTRY/EXIT
00528 M01S00527.mdd +++| SETMS NODRIVER CLEAR DRIVER PRESENT FLAG
00529 M01S00528.mdd +++| LDC ** SET WORD COUNT TO SAVE
00530 M01S00529.mdd +++| SPPA EQU *-1
00531 M01S00530.mdd +++| SBN 1
00532 M01S00531.mdd +++| STD W7
00533 M01S00532.mdd +++|
00534 M01S00533.mdd +++|* MOVE UNBOOT TO DRIVER AREA.
00535 M01S00534.mdd +++|
00536 M01S00535.mdd +++| LDC .SPPCL/5 GET UNBOOT LENGTH
00537 M01S00536.mdd +++| STD W6
00538 M01S00537.mdd +++| RJM GPS GET *PPR* SAVE AREA ADDRESS
00539 M01S00538.mdd +++| CWM SPPC,W6
00540 M01S00539.mdd +++| RJM GPS GET *PPR* SAVE AREA ADDRESS
00541 M01S00540.mdd +++| CRM MSFW,W6
00542 M01S00541.mdd +++|
00543 M01S00542.mdd +++|* WRITE *PPR*.
00544 M01S00543.mdd +++|
00545 M01S00544.mdd +++| LDC MSFW-1 SET EXECUTION ADDRESS ON RETURN
00546 M01S00545.mdd +++| STD T0
00547 M01S00546.mdd +++| RJM GPS GET *PPR* SAVE AREA ADDRESS
00548 M01S00547.mdd +++| CWD T0 WRITE FIRST WORD OF *PPR*
00549 M01S00548.mdd +++| ADN 1
00550 M01S00549.mdd +++| CWM 5,W7 WRITE REMAINDER OF *PPR*
00551 M01S00550.mdd +++| UJN SPPX RETURN
00552 M01S00551.mdd +++| SPACE 4,10
00553 M01S00552.mdd +++|* BOOTSTRAP USED TO RELOAD PP RESIDENT (UNBOOT).
00554 M01S00553.mdd +++|
00555 M01S00554.mdd +++| SPPC BSS 0
00556 M01S00555.mdd +++| LOC MSFW
00557 M01S00556.mdd +++|
00558 M01S00557.mdd +++|* CLEAR PP NUMBER AND C170 *MDD* FLAG FROM *D7RS*.
00559 M01S00558.mdd +++|
00560 M01S00559.mdd +++| LDK EIBP
00561 M01S00560.mdd +++| CRD CM
00562 M01S00561.mdd +++| LDD CM+3
00563 M01S00562.mdd +++| SHN 14
00564 M01S00563.mdd +++| LMD CM+4
00565 M01S00564.mdd +++| ADN D7RS
00566 M01S00565.mdd +++| CRD CN
00567 M01S00566.mdd +++| LDD CN+1 CLEAR PP NUMBER, C170 *MDD* FLAG
00568 M01S00567.mdd +++| LPC 6000
00569 M01S00568.mdd +++| STD CN+1
00570 M01S00569.mdd +++| LDD CM+3 REWRITE *D7RS*
00571 M01S00570.mdd +++| SHN 14
00572 M01S00571.mdd +++| LMD CM+4
00573 M01S00572.mdd +++| ADN D7RS
00574 M01S00573.mdd +++| CWD CN
00575 M01S00574.mdd +++|
00576 M01S00575.mdd +++|* CLEAR PP MEMORY.
00577 M01S00576.mdd +++|
00578 M01S00577.mdd +++| LDC PPFW
00579 M01S00578.mdd +++| STD CM
00580 M01S00579.mdd +++| LDN 0
00581 M01S00580.mdd +++| BTS1 STI CM
00582 M01S00581.mdd +++| AOD CM
00583 M01S00582.mdd +++| SHN -14
00584 M01S00583.mdd +++| ZJN BTS1 IF MORE TO CLEAR
00585 M01S00584.mdd +++| MONITOR DPPM DROP PP
00586 M01S00585.mdd +++| LJM PPR EXIT TO PP RESIDENT
00587 M01S00586.mdd +++| LOC *O
00588 M01S00587.mdd +++| .SPPCL EQU *-SPPC+4
00589 M01S00588.mdd +++| ERRNG PPFW-MSFW-.SPPCL BOOTSTRAP IS TOO LONG
00590 M01S00589.mdd +++| SSH SPACE 4,10
00591 M01S00590.mdd +++|** SSH - SET *SCI* HANDOFF DATA.
00592 M01S00591.mdd +++|*
00593 M01S00592.mdd +++|* EXIT (27) = PP NUMBER PLUS 2000.
00594 M01S00593.mdd +++|* (33) = 0, NOT UTILITY MODE.
00595 M01S00594.mdd +++|* (70) = 1, *SCI* NOT INITIATED BY *SDA*.
00596 M01S00595.mdd +++|
00597 M01S00596.mdd +++|
00598 M01S00597.mdd +++| SSH SUBR ENTRY/EXIT
00599 M01S00598.mdd +++| LDN 0 SET UTILITY MODE
00600 M01S00599.mdd +++| STD UF
00601 M01S00600.mdd +++| LDN 1 SET NOT *SDA* INITIATED FLAG
00602 M01S00601.mdd +++| STD SF
00603 M01S00602.mdd +++| LDD PP SET PP NUMBER
00604 M01S00603.mdd +++| LMC 2000 ADD *MDD* INITIATED FLAG
00605 M01S00604.mdd +++| STD SM
00606 M01S00605.mdd +++| UJN SSHX RETURN
00607 M01S00606.mdd +++| SPACE 4,10
00608 M01S00607.mdd +++|* ERROR LOG MESSAGES.
00609 M01S00608.mdd +++|
00610 M01S00609.mdd +++|
00611 M01S00610.mdd +++| ELM1 DATA C* MDD - MR ERROR.*
00612 M01S00611.mdd +++| ELM3 DATA C* MDD - VALIDATED.*
00613 M01S00612.mdd +++| ELM4 DATA C* MDD - BYE COMMAND EXECUTED.*
00614 M01S00613.mdd +++| ALERT EQU * ONLY ALERT MESSAGES BELOW THIS ADDRESS
00615 M01S00614.mdd +++| ELM6 DATA C* MDD - CONSOLE MUST BE UNLOCKED.*
00616 M01S00615.mdd +++| ELM7 DATA C* MDD - NOT ALLOWED ON THIS MAINFRAME.*
00617 M01S00616.mdd +++| ELM8 DATA C* MDD - IMPROPER ACCESS ATTEMPT.*
00618 M01S00617.mdd +++| ELM9 DATA C* MDD - SCI NOT FOUND IN CIP DIRECTORY.*
00619 M01S00618.mdd +++| ELM10 DATA C* MDD - MUST BE INITIATED FROM NOS/VE.*
00620 M01S00619.mdd +++| ELM11 DATA C* MDD - ALREADY ACTIVE.*
00621 M01S00620.mdd +++| TITLE MDD PRESET.
00622 M01S00621.mdd +++| PRS SPACE 4,20
00623 M01S00622.mdd +++|** PRS - PRESET *MDD* BOOT.
00624 M01S00623.mdd +++|*
00625 M01S00624.mdd +++|* EXIT (MD - MD+2) = R-REGISTER FORMAT OF FIRST WORD OF
00626 M01S00625.mdd +++|* *SCI* IN CENTRAL MEMORY.
00627 M01S00626.mdd +++|* (PP) = PP NUMBER.
00628 M01S00627.mdd +++|* (PT) = PORT NUMBER.
00629 M01S00628.mdd +++|* (SPPA) = *PPR* LENGTH IN CM WORDS.
00630 M01S00629.mdd +++|* (GEAA - GEAA+1) = *EICB* FWA.
00631 M01S00630.mdd +++|* (GPSA - GPSA+1) = *PPR* SAVE AREA ADDRESS.
00632 M01S00631.mdd +++|* (GSAA - GSAA+1) = *SCI* PARAMETER TABLE ADDRESS.
00633 M01S00632.mdd +++|*
| Line S00633 Modification History |
M01 (Added by) | mdd |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00634 M02S00633.273l780 ---|* USES CM - CM+4, W0 - W4.
00635 M01S00001.273l780 +++|* USES PT, CM - CM=4, W0 - W4.
00636 M01S00634.mdd +++|*
| Line S00635 Modification History |
M01 (Added by) | mdd |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00637 M02S00635.273l780 ---|* CALLS CUA, CKV, DLI, FCM, GEA, GPN.
00638 M01S00002.273l780 +++|* CALLS CKV, DLI, FCM, GEA, GPN.
00639 M01S00636.mdd +++|*
00640 M01S00637.mdd +++|* MACROS MONITOR.
00641 M01S00638.mdd +++|
00642 M01S00639.mdd +++|
00643 M01S00640.mdd +++| PRS SUBR ENTRY/EXIT
00644 M01S00641.mdd +++| LDK NCPL MOVE TO SYSTEM CONTROL POINT
00645 M01S00642.mdd +++| CRD CM
00646 M01S00643.mdd +++| AOD CM+1
| Line S00644 Modification History |
M01 (Added by) | mdd |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00647 M02S00644.273l780 ---| SHN 7
| Line S00645 Modification History |
M01 (Added by) | mdd |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act
----------------------------+
00648 M02S00645.273l780 ---| STD CP
00649 M01S00646.mdd +++| MONITOR CCAM MOVE TO SYSTEM CONTROL POINT
00650 M01S00647.mdd +++| RJM GPN GET PP NUMBER
00651 M01S00648.mdd +++| RJM CKV CHECK VALIDATIONS
00652 M01S00649.mdd +++| LDC PLIB
00653 M01S00650.mdd +++| RJM DLI DEFINE LONG INSTRUCTIONS
00654 M01S00651.mdd +++| LDK EIBP SAVE *EICB* FWA
00655 M01S00652.mdd +++| CRD W0
00656 M01S00653.mdd +++| LDD W0+3
00657 M01S00654.mdd +++| RAM GEAA
00658 M01S00655.mdd +++| LDD W0+4
00659 M01S00656.mdd +++| STM GEAA+1
00660 M01S00657.mdd +++| LDC =C*SCI*
00661 M01S00658.mdd +++| RJM FCM FIND ADDRESS OF *SCI*
00662 M01S00659.mdd +++| LDD IR+4 CHECK PORT PARAMETER
00663 M01S00660.mdd +++| SBN 1
00664 M01S00661.mdd +++| ZJN PRS1 IF PORT ZERO REQUESTED
00665 M01S00662.mdd +++| LDN 1 OTHERWISE PORT ONE
00666 M01S00663.mdd +++| PRS1 STD PT SAVE PORT NUMBER
00667 M01S00664.mdd +++| RJM GEA GET *EICB* ADDRESS
00668 M01S00665.mdd +++| ADN D7RS READ *PPR* SAVE AREA ADDRESS
00669 M01S00666.mdd +++| CRD W0
00670 M01S00667.mdd +++| ADN D7RS+2-D7RS *SCI* PARAMETER TABLE ADDRESS
00671 M01S00668.mdd +++| CRD CM
00672 M01S00669.mdd +++| LDD W0+2 SAVE *PPR* WORD COUNT
00673 M01S00670.mdd +++| STM SPPA
00674 M01S00671.mdd +++| LDD W0+3 SAVE *PPR* BUFFER ADDRESS
00675 M01S00672.mdd +++| RAM GPSA
00676 M01S00673.mdd +++| LDD W0+4
00677 M01S00674.mdd +++| STM GPSA+1
00678 M01S00675.mdd +++| LDD CM+3 SAVE *SCI* PARAMETER TABLE ADDRESS
00679 M01S00676.mdd +++| RAM GSAA
00680 M01S00677.mdd +++| LDD CM+4
00681 M01S00678.mdd +++| STM GSAA+1
00682 M01S00679.mdd +++| LJM PRSX RETURN
00683 M01S00680.mdd +++| CKV SPACE 4,10
00684 M01S00681.mdd +++|** CKV - CHECK FOR PROPER VALIDATIONS.
00685 M01S00682.mdd +++|*
00686 M01S00683.mdd +++|* EXIT TO *ERR* IF *MDD* USE NOT ALLOWED.
00687 M01S00684.mdd +++|*
00688 M01S00685.mdd +++|* USES CM - CM+4.
00689 M01S00686.mdd +++|*
00690 M01S00687.mdd +++|* CALLS CUA.
00691 M01S00688.mdd +++|
00692 M01S00689.mdd +++|
00693 M01S00690.mdd +++| CKV SUBR ENTRY/EXIT
00694 M01S00691.mdd +++| LDK MABL CHECK MAINFRAME TYPE
00695 M01S00692.mdd +++| CRD CM
00696 M01S00693.mdd +++| LDD CM+1
00697 M01S00694.mdd +++| SHN 21-13
00698 M01S00695.mdd +++| MJN CKV3 IF NOT CYBER 180
00699 M01S00696.mdd +++| LDN SSTL CHECK CONSOLE STATUS
00700 M01S00697.mdd +++| CRD CM
00701 M01S00698.mdd +++| LDD CM
00702 M01S00699.mdd +++| SHN 21-11
00703 M01S00700.mdd +++| PJN CKV4 IF CONSOLE IS NOT UNLOCKED
00704 M01S00701.mdd +++| RJM CUA CHECK USER ACCESS
00705 M01S00702.mdd +++| NJN CKV1 IF SYSTEM ACCESS NOT ALLOWED
00706 M01S00703.mdd +++| LDD CM
00707 M01S00704.mdd +++| PJN CKVX IF MAINTENANCE ACCESS ALLOWED
00708 M01S00705.mdd +++|
00709 M01S00706.mdd +++| CKV1 LDC ELM8+ERLN * MDD - IMPROPER ACCESS ATTEMPT.*
00710 M01S00707.mdd +++| CKV2 LJM ERR ISSUE MESSAGE AND DROP *MDD*
00711 M01S00708.mdd +++|
00712 M01S00709.mdd +++| CKV3 LDC ELM7+ERLN * MDD - NOT ALLOWED ON THIS MAINFRAME.*
00713 M01S00710.mdd +++| UJN CKV2 ISSUE MESSAGE AND DROP *MDD*
00714 M01S00711.mdd +++|
00715 M01S00712.mdd +++| CKV4 LDC ELM6+ERLN * MDD - CONSOLE MUST BE UNLOCKED.*
00716 M01S00713.mdd +++| UJN CKV2 ISSUE MESSAGE AND DROP *MDD*
00717 M01S00714.mdd +++| FCM SPACE 4,15
00718 M01S00715.mdd +++|** FCM - FIND CIP MODULE.
00719 M01S00716.mdd +++|*
00720 M01S00717.mdd +++|* ENTRY (A) = ADDRESS OF THREE CHARACTER DISPLAY CODE NAME.
00721 M01S00718.mdd +++|*
00722 M01S00719.mdd +++|* EXIT (A) = OFFSET FROM R-REGISTER OF MODULE HEADER.
00723 M01S00720.mdd +++|* (R) = ADDRESS/100B OF MODULE HEADER.
00724 M01S00721.mdd +++|* (CD - CD+2) = A AND R-REGISTER FORMAT OF CIP
00725 M01S00722.mdd +++|* DIRECTORY.
00726 M01S00723.mdd +++|* TO *ERR* IF *SCI* NOT FOUND.
00727 M01S00724.mdd +++|*
00728 M01S00725.mdd +++|* USES T1, CM - CM+3, W0 - W3.
00729 M01S00726.mdd +++|*
00730 M01S00727.mdd +++|* CALLS GEA.
00731 M01S00728.mdd +++|
00732 M01S00729.mdd +++|
00733 M01S00730.mdd +++| FCM4 LDDL CM RETURN WITH ADDRESS
00734 M01S00731.mdd +++| ADN 1 SKIP CIP IDENTIFIER WORD
00735 M01S00732.mdd +++| SRD MD+1 SAVE R REGISTER
00736 M01S00733.mdd +++| STDL MD SAVE A REGISTER
00737 M01S00734.mdd +++|
00738 M01S00735.mdd +++| FCM SUBR ENTRY/EXIT
00739 M01S00736.mdd +++| STD T1 SAVE ADDRESS OF MODULE TO FIND
00740 M01S00737.mdd +++| RJM GEA GET *EICB* ADDRESS
00741 M01S00738.mdd +++| ADN DSCM+2
00742 M01S00739.mdd +++| CRDL CM READ CIP POINTER
00743 M01S00740.mdd +++| LRD CM+1 SAVE CIP DIRECTORY POINTER
00744 M01S00741.mdd +++| SRD CD+1
00745 M01S00742.mdd +++| LDDL CM
00746 M01S00743.mdd +++| STDL CD
00747 M01S00744.mdd +++| FCM1 STDL CM
00748 M01S00745.mdd +++| LRD CM+1
00749 M01S00746.mdd +++| LMC RR ACTIVATE R REGISTER
00750 M01S00747.mdd +++| CRDL W0
00751 M01S00748.mdd +++| LDD W0
00752 M01S00749.mdd +++| ADD W1
00753 M01S00750.mdd +++| ZJN FCM3 IF END OF DIRECTORY
00754 M01S00751.mdd +++| LDD W0
00755 M01S00752.mdd +++| LMI T1
00756 M01S00753.mdd +++| NJN FCM2 IF NO MATCH
00757 M01S00754.mdd +++| LDD W1
00758 M01S00755.mdd +++| LMM 1,T1
00759 M01S00756.mdd +++| ZJN FCM4 IF MATCH
00760 M01S00757.mdd +++|
00761 M01S00758.mdd +++| FCM2 LDDL W3 OFFSET TO NEXT MODULE HEADER
00762 M01S00759.mdd +++| RADL CM
00763 M01S00760.mdd +++| SHN -6
00764 M01S00761.mdd +++| RAD CM+2
00765 M01S00762.mdd +++| SHN -14
00766 M01S00763.mdd +++| RAD CM+1
00767 M01S00764.mdd +++| LDD CM
00768 M01S00765.mdd +++| LPN 77
00769 M01S00766.mdd +++| UJN FCM1 FETCH NEXT ENTRY
00770 M01S00767.mdd +++|
00771 M01S00768.mdd +++| FCM3 LDC ELM9+ERLN * MDD - SCI NOT FOUND IN CIP DIRECTORY.*
00772 M01S00769.mdd +++| LJM ERR RETURN PP
00773 M01S00770.mdd +++| GPN SPACE 4,10
00774 M01S00771.mdd +++|** GPN - GET LOGICAL PP NUMBER.
00775 M01S00772.mdd +++|*
00776 M01S00773.mdd +++|* EXIT (PP) = LOGICAL PP NUMBER.
00777 M01S00774.mdd +++|*
00778 M01S00775.mdd +++|* USES T1 - T5.
00779 M01S00776.mdd +++|
00780 M01S00777.mdd +++|
00781 M01S00778.mdd +++| GPN SUBR ENTRY/EXIT
00782 M01S00779.mdd +++| LDK PPCP
00783 M01S00780.mdd +++| CRD T1
00784 M01S00781.mdd +++| LDD IA
00785 M01S00782.mdd +++| SBD T1+4
00786 M01S00783.mdd +++| SHN -3
00787 M01S00784.mdd +++| STD PP
00788 M01S00785.mdd +++| SBN 12
00789 M01S00786.mdd +++| MJN GPNX IF NOT UPPER BARREL
00790 M01S00787.mdd +++| LDN 6
00791 M01S00788.mdd +++| RAD PP
00792 M01S00789.mdd +++| UJN GPNX RETURN
00793 M01S00790.mdd +++| SPACE 4,10
00794 M01S00791.mdd +++|* COMMON DECKS.
00795 M01S00792.mdd +++|
00796 M01S00793.mdd +++|
00797 M01S00794.mdd +++|*CALL COMPCUA
00798 M01S00795.mdd +++|*CALL COMPDLI
00799 M01S00796.mdd +++|*CALL COMPMRA
00800 M01S00797.mdd +++| PLIB SPACE 4,10
00801 M01S00798.mdd +++| PLIB LIST16 LIST OF 16 BIT INSTRUCTIONS
00802 M01S00799.mdd +++| SPACE 4
00803 M01S00800.mdd +++| END