cdc:nos2.source:opl.opl871:deck:mdd
Deck MDD
2 Modifications
Source
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
cdc/nos2.source/opl.opl871/deck/mdd.txt · Last modified: by 127.0.0.1