cdc:nos2.source:opl.opl871:deck:mdd
Deck MDD
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.mdd +++| IDENT MDD,MDD 00002 M00S00002.mdd +++| PERIPH 00003 M00S00003.mdd +++| BASE MIXED 00004 M00S00004.mdd +++| SST DLYA,RDS,SSCP 00005 M00S00005.mdd +++| TITLE MDD - TWO PORT MUX MAINTENANCE DISPLAY. 00006 M00S00006.mdd +++|*COMMENT MDD - LEVEL=11.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1985.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.mdd +++| MDD SPACE 4,10 00010 M00S00009.mdd +++|*** MDD - MAINTENANCE CHANNEL DISPLAY PREPROCESSOR. 00011 M00S00010.mdd +++|* 00012 M00S00011.mdd +++|* B. R. HANSON. 81/02/29. 00013 M00S00012.mdd +++|* R. A. ANDERSON. 85/09/18. 00014 M00S00013.mdd +++|* K. A. PRIEVE. 87/06/10. 00015 M00S00014.mdd +++| SPACE 4,10 00016 M00S00015.mdd +++|*** THIS IS THE NOS OPERATING SYSTEM DEPENDENT RESIDENT 00017 M00S00016.mdd +++|* OVERLAY. THIS PROGRAM DETERMINES WHETHER THERE IS ALREADY A 00018 M00S00017.mdd +++|* COPY OF *SCI* RUNNING IN A PP. IF SO, IT TURNS ON *MDD* MODE 00019 M00S00018.mdd +++|* FOR THAT COPY (UNLESS NOS/VE IS RUNNING IN WHICH CASE *MDD* 00020 M00S00019.mdd +++|* MUST BE INITIATED FROM NOS/VE). IF *SCI* IS NOT CURRENTLY 00021 M00S00020.mdd +++|* EXECUTING, PP RESIDENT IS SAVED AND *SCI* IS LOADED FROM THE 00022 M00S00021.mdd +++|* CIP LIBRARY. THIS PROGRAM ALSO HANDLES THE UNIQUE *MDD* 00023 M00S00022.mdd +++|* STARTUP AND TERMINATION REQUIREMENTS FOR NOS. 00024 M00S00023.mdd +++|* 00025 M00S00024.mdd +++|* THIS VERSION OF *MDD* REQUIRES CIP TO BE AT LEVEL 9 OR 00026 M00S00025.mdd +++|* GREATER. 00027 M00S00026.mdd +++| SPACE 4,10 00028 M00S00027.mdd +++|*** ERROR LOG MESSAGES. 00029 M00S00028.mdd +++|* 00030 M00S00029.mdd +++|* * MDD - ALREADY LOADED.* 00031 M00S00030.mdd +++|* *MDD* IS ALREADY RUNNING IN A PP. ONLY ONE COPY 00032 M00S00031.mdd +++|* CAN RUN AT A TIME. 00033 M00S00032.mdd +++|* MDD PP WILL DROP OUT. 00034 M00S00033.mdd +++|* ALERT STATUS IS SET. 00035 M00S00034.mdd +++|* 00036 M00S00035.mdd +++|* * MDD - BYE COMMAND EXECUTED.* 00037 M00S00036.mdd +++|* THE USER OF MDD HAS ENTERED THE BY COMMAND DIRECTING 00038 M00S00037.mdd +++|* MDD TO DROP OUT. 00039 M00S00038.mdd +++|* 00040 M00S00039.mdd +++|* * MDD - CONSOLE MUST BE UNLOCKED.* 00041 M00S00040.mdd +++|* AN ATTEMPT WAS MADE TO BRING MDD UP WITH THE CONSOLE 00042 M00S00041.mdd +++|* IN A LOCKED STATE. 00043 M00S00042.mdd +++|* MDD PP WILL DROP OUT. 00044 M00S00043.mdd +++|* ALERT STATUS IS SET. 00045 M00S00044.mdd +++|* 00046 M00S00045.mdd +++|* * MDD - IMPROPER ACCESS ATTEMPT.* 00047 M00S00046.mdd +++|* MDD WAS NOT INITIATED FROM EITHER A SYSTEM CONTROL POINT 00048 M00S00047.mdd +++|* OR WITH ENGINEERING ACCESS. 00049 M00S00048.mdd +++|* MDD WILL DROP OUT. 00050 M00S00049.mdd +++|* 00051 M00S00050.mdd +++|* * MDD - MR ERROR.* 00052 M00S00051.mdd +++|* A MAINTENANCE REGISTER ERROR WAS DETECTED DURING MDD 00053 M00S00052.mdd +++|* INITIALIZATION. 00054 M00S00053.mdd +++|* MDD WILL DROP OUT. 00055 M00S00054.mdd +++|* 00056 M00S00055.mdd +++|* * MDD - MUST BE INITIATED FROM NOS/VE.* 00057 M00S00056.mdd +++|* WHEN NOS/VE IS EXECUTING, *MDD* MUST BE INITIATED FROM 00058 M00S00057.mdd +++|* THE NOS/VE SIDE. 00059 M00S00058.mdd +++|* MDD PP WILL DROP OUT. 00060 M00S00059.mdd +++|* ALERT STATUS IS SET. 00061 M00S00060.mdd +++|* 00062 M00S00061.mdd +++|* * MDD - NOT ALLOWED ON THIS MAINFRAME.* 00063 M00S00062.mdd +++|* THE MAINFRAME DOES NOT HAVE NECESSARY HARDWARE TO 00064 M00S00063.mdd +++|* SUPPORT MDD. 00065 M00S00064.mdd +++|* MDD WILL DROP OUT. 00066 M00S00065.mdd +++|* ALERT STATUS IS SET. 00067 M00S00066.mdd +++|* 00068 M00S00067.mdd +++|* * MDD - NOT FOUND IN CIP DIRECTORY.* 00069 M00S00068.mdd +++|* MDD HAS SEARCHED THE CENTRAL MEMORY CTI DIRECTORY 00070 M00S00069.mdd +++|* AND NOT FOUND THE RESIDENT VERSION OF MDD. 00071 M00S00070.mdd +++|* MDD WILL DROP OUT. 00072 M00S00071.mdd +++|* ALERT STATUS IS SET. 00073 M00S00072.mdd +++|* 00074 M00S00073.mdd +++|* * MDD - VALIDATED.* 00075 M00S00074.mdd +++|* MDD HAS SUCCESSFULLY VALIDATED ITSELF AND HAS BEGUN 00076 M00S00075.mdd +++|* OPERATION. 00077 M00S00076.mdd +++| SPACE 4,10 00078 M00S00077.mdd +++|* COMMON DECKS. 00079 M00S00078.mdd +++| 00080 M00S00079.mdd +++| 00081 M00S00080.mdd +++|*CALL COMPMAC 00082 M00S00081.mdd +++|*CALL COMPIOU 00083 M00S00082.mdd +++|*CALL COMSCPS 00084 M00S00083.mdd +++|*CALL COMSDST 00085 M00S00084.mdd +++|*CALL COMSEVT 00086 M00S00085.mdd +++|*CALL COMSIOU 00087 M00S00086.mdd +++|*CALL COMSPIM 00088 M00S00087.mdd +++| SPACE 4,10 00089 M00S00088.mdd +++|**** DIRECT LOCATION ASSIGNMENTS. 00090 M00S00089.mdd +++|* 00091 M00S00090.mdd +++|* THE DIRECT CELLS *SM* THROUGH *CD+2* AND *SF* (27-36, 70) 00092 M00S00091.mdd +++|* CONTAIN HANDOFF DATA FOR *SCI*. THEY MUST NOT BE MOVED. 00093 M00S00092.mdd +++|* SEE NOS/VE DEVELOPMENT FOR ANY ADJUSTMENTS THAT MUST BE 00094 M00S00093.mdd +++|* MADE TO ENSURE COMPATIBILITY WITH *SCI*. 00095 M00S00094.mdd +++| 00096 M00S00095.mdd +++| 00097 M00S00096.mdd +++| SM EQU 27 *SCI* PP NUMBER AND *X.MDD* FLAG 00098 M00S00097.mdd +++| MD EQU 30 - 32 *SCI* ADDRESS A AND R-REGISTER 00099 M00S00098.mdd +++| UF EQU 33 UTILITY MODE FLAG 00100 M00S00099.mdd +++| CD EQU 34 - 36 CIP DIRECTORY POINTER 00101 M00S00100.mdd +++| CN EQU 40 - 44 SCRATCH BUFFER 00102 M00S00101.mdd +++| RN EQU 45 REGISTER NUMBER (COMPMRA) 00103 M00S00102.mdd +++| PP EQU 46 PP NUMBER 00104 M00S00103.mdd +++| PT EQU 47 PORT NUMBER 00105 M00S00104.mdd +++| W0 EQU 60 WORKING STORAGE 00106 M00S00105.mdd +++| W1 EQU 61 WORKING STORAGE 00107 M00S00106.mdd +++| W2 EQU 62 WORKING STORAGE 00108 M00S00107.mdd +++| W3 EQU 63 WORKING STORAGE 00109 M00S00108.mdd +++| W4 EQU 64 WORKING STORAGE 00110 M00S00109.mdd +++| W5 EQU 65 WORKING STORAGE 00111 M00S00110.mdd +++| W6 EQU 66 WORKING STORAGE 00112 M00S00111.mdd +++| W7 EQU 67 WORKING STORAGE 00113 M00S00112.mdd +++| SF EQU 70 *SCI* INITIATED BY *SDA* FLAG 00114 M00S00113.mdd +++| SPACE 4,10 00115 M00S00114.mdd +++|** ASSEMBLY CONSTANTS. 00116 M00S00115.mdd +++|* 00117 M00S00116.mdd +++| 00118 M00S00117.mdd +++| 00119 M00S00118.mdd +++| RR EQU 400000 CONSTANT VALUE FOR R REGISTER 00120 M00S00119.mdd +++| TITLE RESIDENT NOS DEPENDENT OVERLAY. 00121 M00S00120.mdd +++| ORG PPFW 00122 M00S00121.mdd +++| MDD SPACE 4,10 00123 M00S00122.mdd +++|** MDD - MONITOR DISPLAY DRIVER PREPROCESSOR. 00124 M00S00123.mdd +++|* 00125 M00S00124.mdd +++|* ENTRY (IR+4) = DESIRED PORT. 00126 M00S00125.mdd +++| 00127 M00S00126.mdd +++| 00128 M00S00127.mdd +++| MDD BSS 0 ENTRY 00129 M00S00128.mdd +++| RJM PRS PRESET 00130 M00S00129.mdd +++| RJM GSA 00131 M00S00130.mdd +++| ZJP MDD2 IF NO *SCI* PARAMETER TABLE 00132 M00S00131.mdd +++| RJM GSI GET *SCI* PARAMETER TABLE INTERLOCK 00133 M00S00132.mdd +++| RJM GSA CHECK IF *MDD* ACTIVE 00134 M00S00133.mdd +++| CRD CN 00135 M00S00134.mdd +++| LDD CN+4 00136 M00S00135.mdd +++| SHN 21-13 00137 M00S00136.mdd +++| PJN MDD1 IF *MDD* NOT ALREADY ACTIVE 00138 M00S00137.mdd +++| RJM CPN CHECK PORT NUMBER 00139 M00S00138.mdd +++| LJM MDD6 CLEAR MEMORY AND DROP PP 00140 M00S00139.mdd +++| 00141 M00S00140.mdd +++| MDD1 LDD CN+1 CHECK IF *SCI* ACTIVE 00142 M00S00141.mdd +++| LPN 77 00143 M00S00142.mdd +++| ZJN MDD3 IF *SCI* NOT ACTIVE 00144 M00S00143.mdd +++| RJM GEA CHECK IF NOS/VE ACTIVE 00145 M00S00144.mdd +++| ADN D8TY 00146 M00S00145.mdd +++| CRD W0 00147 M00S00146.mdd +++| LDD W0+3 00148 M00S00147.mdd +++| LPN 77 00149 M00S00148.mdd +++| SBN 2 00150 M00S00149.mdd +++| ZJN MDD5 IF NOS/VE ACTIVE 00151 M00S00150.mdd +++| RJM AMB ACTIVATE *MDD* BITS 00152 M00S00151.mdd +++| RJM SMF SET C170 *MDD* FLAG 00153 M00S00152.mdd +++| RJM GSA GET *SCI* PARAMETER TABLE ADDRESS 00154 M00S00153.mdd +++| CWD CN WRITE FIRST WORD AND CLEAR INTERLOCK 00155 M00S00154.mdd +++| UJN MDD6 CLEAR MEMORY AND DROP PP 00156 M00S00155.mdd +++| 00157 M00S00156.mdd +++| MDD2 RJM GEA CHECK IF ANOTHER *MDD* ACTIVE 00158 M00S00157.mdd +++| ADN D7RS 00159 M00S00158.mdd +++| CRD W0 00160 M00S00159.mdd +++| LDD W0+1 00161 M00S00160.mdd +++| LPN 77 00162 M00S00161.mdd +++| NJN MDD4 IF *MDD* ALREADY ACTIVE 00163 M00S00162.mdd +++| MDD3 LDC ELM3+ERLN * MDD - VALIDATED.* 00164 M00S00163.mdd +++| RJM DFM 00165 M00S00164.mdd +++| LJM LSC LOAD *SCI* (DOES NOT RETURN) 00166 M00S00165.mdd +++| 00167 M00S00166.mdd +++| MDD4 LDC ELM11+ERLN * MDD - ALREADY ACTIVE.* 00168 M00S00167.mdd +++| UJN ERR ISSUE MESSAGE AND DROP PP 00169 M00S00168.mdd +++| 00170 M00S00169.mdd +++| MDD5 RJM CSI CLEAR *SCI* PARAMETER TABLE INTERLOCK 00171 M00S00170.mdd +++| LDC ELM10+ERLN * MDD - MUST BE INITIATED FROM NOS/VE.* 00172 M00S00171.mdd +++|* UJN ERR ISSUE MESSAGE AND DROP PP 00173 M00S00172.mdd +++| 00174 M00S00173.mdd +++|* PROCESS FATAL *MDD* ERROR. 00175 M00S00174.mdd +++| 00176 M00S00175.mdd +++| ERR STM SASA INFORM ALERT ROUTINE 00177 M00S00176.mdd +++| RJM DFM ISSUE MESSAGE 00178 M00S00177.mdd +++| RJM SAS SET ALERT STATUS 00179 M00S00178.mdd +++| 00180 M00S00179.mdd +++| MDD6 MONITOR DPPM DROP PP 00181 M00S00180.mdd +++| LDC CPMA CLEAR LONG INSTRUCTIONS 00182 M00S00181.mdd +++| RJM CPM 00183 M00S00182.mdd +++| LJM PPR EXIT TO PP RESIDENT 00184 M00S00183.mdd +++| MRER SPACE 4,10 00185 M00S00184.mdd +++|* PROCESS FATAL MAINTENANCE REGISTER ERROR. 00186 M00S00185.mdd +++| 00187 M00S00186.mdd +++| MRER LDC ELM1+ERLN * MDD - MR ERROR.* 00188 M00S00187.mdd +++| UJN ERR PROCESS FATAL ERROR 00189 M00S00188.mdd +++| TITLE MDD - SUBROUTINES. 00190 M00S00189.mdd +++| AMB SPACE 4,10 00191 M00S00190.mdd +++|** AMB - ACTIVATE *MDD* BITS. 00192 M00S00191.mdd +++|* 00193 M00S00192.mdd +++|* ENTRY (PT) = PORT NUMBER. 00194 M00S00193.mdd +++|* (CN - CN+4) = *SCI* PARAMETER TABLE WORD ONE. 00195 M00S00194.mdd +++|* 00196 M00S00195.mdd +++|* EXIT *MDD* ACTIVE BITS SET AND INTERLOCK CLEARED 00197 M00S00196.mdd +++|* IN *CN - CN+4*. 00198 M00S00197.mdd +++| 00199 M00S00198.mdd +++| 00200 M00S00199.mdd +++| AMB SUBR ENTRY/EXIT 00201 M00S00200.mdd +++| LDD PT SET PORT NUMBER 00202 M00S00201.mdd +++| SHN 6 00203 M00S00202.mdd +++| ADC 1S11+1000 SET *MDD* ACTIVE AND REAL STATE BITS 00204 M00S00203.mdd +++| STD CN+4 00205 M00S00204.mdd +++| LDD CN+1 SET SECONDARY BYTE CHANGED FLAG 00206 M00S00205.mdd +++| LPC 5377 AND CLEAR INTERLOCK BIT 00207 M00S00206.mdd +++| LMC 2000 00208 M00S00207.mdd +++| STD CN+1 00209 M00S00208.mdd +++| UJN AMBX RETURN 00210 M00S00209.mdd +++| CPM SPACE 4,10 00211 M00S00210.mdd +++|** CPM - CLEAR PP MEMORY. 00212 M00S00211.mdd +++|* 00213 M00S00212.mdd +++|* ENTRY (A) = FIRST WORD TO CLEAR. 00214 M00S00213.mdd +++|* 00215 M00S00214.mdd +++|* EXIT PP MEMORY CLEARED. 00216 M00S00215.mdd +++|* 00217 M00S00216.mdd +++|* USES T0. 00218 M00S00217.mdd +++| 00219 M00S00218.mdd +++| 00220 M00S00219.mdd +++| CPM SUBR ENTRY/EXIT 00221 M00S00220.mdd +++| STD T0 FIRST ADDRESS TO CLEAR 00222 M00S00221.mdd +++| LDN 0 00223 M00S00222.mdd +++| CPM1 STI T0 00224 M00S00223.mdd +++| AOD T0 00225 M00S00224.mdd +++| SHN -14 00226 M00S00225.mdd +++| ZJN CPM1 IF MORE MEMORY TO CLEAR 00227 M00S00226.mdd +++| UJN CPMX RETURN 00228 M00S00227.mdd +++| SPACE 4,10 00229 M00S00228.mdd +++|* BEFORE DROPPING THE PP, MEMORY MUST BE CLEARED OF LONG 00230 M00S00229.mdd +++|* INSTRUCTIONS. NO LONG INSTRUCTIONS CAN BE ADDED BEFORE 00231 M00S00230.mdd +++|* THIS ADDRESS. 00232 M00S00231.mdd +++| 00233 M00S00232.mdd +++| CPMA EQU * CLEAR PP MEMORY ADDRESS 00234 M00S00233.mdd +++| CPN SPACE 4,15 00235 M00S00234.mdd +++|** CPN - CHECK PORT NUMBER. 00236 M00S00235.mdd +++|* 00237 M00S00236.mdd +++|* ENTRY (CN - CN+4) = *SCI* PARAMETER TABLE WORD ONE. 00238 M00S00237.mdd +++|* *SCI* PARAMETER TABLE INTERLOCKED. 00239 M00S00238.mdd +++|* 00240 M00S00239.mdd +++|* EXIT REQUESTED PORT SET IN *SCI* PARAMETER TABLE. 00241 M00S00240.mdd +++|* *SCI* PARAMETER TABLE INTERLOCK CLEARED. 00242 M00S00241.mdd +++|* 00243 M00S00242.mdd +++|* USES T1. 00244 M00S00243.mdd +++|* 00245 M00S00244.mdd +++|* CALLS GSA. 00246 M00S00245.mdd +++| 00247 M00S00246.mdd +++| 00248 M00S00247.mdd +++| CPN SUBR ENTRY/EXIT 00249 M00S00248.mdd +++| 00250 M00S00249.mdd +++|* CHANGE PORT NUMBER IF DIFFERENT PORT REQUESTED. 00251 M00S00250.mdd +++| 00252 M00S00251.mdd +++| LDD CN+4 GET CURRENT PORT 00253 M00S00252.mdd +++| SHN -6 00254 M00S00253.mdd +++| LPN 7 00255 M00S00254.mdd +++| LMD PT 00256 M00S00255.mdd +++| NJN CPN1 IF NOT CURRENTLY USING REQUESTED PORT 00257 M00S00256.mdd +++| LDD CN+1 CLEAR INTERLOCK 00258 M00S00257.mdd +++| LPC 7377 00259 M00S00258.mdd +++| UJN CPN2 WRITE FIRST WORD 00260 M00S00259.mdd +++| 00261 M00S00260.mdd +++| CPN1 LDD PT SET NEW PORT NUMBER 00262 M00S00261.mdd +++| SHN 6 00263 M00S00262.mdd +++| STD T1 00264 M00S00263.mdd +++| LDD CN+4 00265 M00S00264.mdd +++| LPC 7077 CLEAR OLD PORT 00266 M00S00265.mdd +++| LMD T1 ADD NEW PORT 00267 M00S00266.mdd +++| STD CN+4 00268 M00S00267.mdd +++| LDD CN+1 SET SECONDARY BYTE CHANGED FLAG 00269 M00S00268.mdd +++| LPC 5377 AND CLEAR INTERLOCK BIT 00270 M00S00269.mdd +++| LMC 2000 00271 M00S00270.mdd +++| CPN2 STD CN+1 00272 M00S00271.mdd +++| RJM GSA GET *SCI* PARAMETER TABLE ADDRESS 00273 M00S00272.mdd +++| CWD CN WRITE FIRST WORD AND CLEAR INTERLOCK 00274 M00S00273.mdd +++| UJN CPNX RETURN 00275 M00S00274.mdd +++| CSI SPACE 4,10 00276 M00S00275.mdd +++|** CSI - CLEAR *SCI* PARAMETER TABLE INTERLOCK. 00277 M00S00276.mdd +++|* 00278 M00S00277.mdd +++|* EXIT INTERLOCK CLEARED. 00279 M00S00278.mdd +++|* 00280 M00S00279.mdd +++|* USES W0 - W0+3. 00281 M00S00280.mdd +++|* 00282 M00S00281.mdd +++|* CALLS GSA. 00283 M00S00282.mdd +++| 00284 M00S00283.mdd +++| 00285 M00S00284.mdd +++| CSI SUBR ENTRY/EXIT 00286 M00S00285.mdd +++| LDC 0#FFFF 00287 M00S00286.mdd +++| STDL W0 00288 M00S00287.mdd +++| STDL W0+2 00289 M00S00288.mdd +++| STDL W0+3 00290 M00S00289.mdd +++| LDC 0#EFFF MASK FOR CLEAR INTERLOCK 00291 M00S00290.mdd +++| STDL W0+1 00292 M00S00291.mdd +++| RJM GSA GET *SCI* PARAMETER TABLE ADDRESS 00293 M00S00292.mdd +++| RDCL W0 CLEAR INTERLOCK 00294 M00S00293.mdd +++| UJN CSIX RETURN 00295 M00S00294.mdd +++| GEA SPACE 4,10 00296 M00S00295.mdd +++|** GEA - GET *EICB* ADDRESS. 00297 M00S00296.mdd +++|* 00298 M00S00297.mdd +++|* EXIT (A) = *EICB* FWA. 00299 M00S00298.mdd +++| 00300 M00S00299.mdd +++| 00301 M00S00300.mdd +++| GEA SUBR ENTRY/EXIT 00302 M00S00301.mdd +++| LDC ** 00303 M00S00302.mdd +++| GEAA EQU *-2 (*EICB* FWA) 00304 M00S00303.mdd +++| UJN GEAX RETURN 00305 M00S00304.mdd +++| GPS SPACE 4,10 00306 M00S00305.mdd +++|** GPS - GET *PPR* SAVE AREA ADDRESS. 00307 M00S00306.mdd +++|* 00308 M00S00307.mdd +++|* EXIT (A) = *PPR* SAVE AREA FWA. 00309 M00S00308.mdd +++| 00310 M00S00309.mdd +++| 00311 M00S00310.mdd +++| GPS SUBR ENTRY/EXIT 00312 M00S00311.mdd +++| LDC ** 00313 M00S00312.mdd +++| GPSA EQU *-2 (*PPR* SAVE AREA ADDRESS) 00314 M00S00313.mdd +++| UJN GPSX RETURN 00315 M00S00314.mdd +++| GSA SPACE 4,10 00316 M00S00315.mdd +++|** GSA - GET *SCI* PARAMETER TABLE ADDRESS. 00317 M00S00316.mdd +++|* 00318 M00S00317.mdd +++|* EXIT (A) = *SCI* PARAMETER TABLE ADDRESS. 00319 M00S00318.mdd +++|* = 0 IF TABLE NOT DEFINED. 00320 M00S00319.mdd +++| 00321 M00S00320.mdd +++| 00322 M00S00321.mdd +++| GSA SUBR ENTRY/EXIT 00323 M00S00322.mdd +++| LDC ** 00324 M00S00323.mdd +++| GSAA EQU *-2 (*SCI* PARAMETER TABLE ADDRESS) 00325 M00S00324.mdd +++| UJN GSAX RETURN 00326 M00S00325.mdd +++| GSI SPACE 4,10 00327 M00S00326.mdd +++|** GSI - GET *SCI* PARAMETER TABLE INTERLOCK. 00328 M00S00327.mdd +++|* 00329 M00S00328.mdd +++|* EXIT INTERLOCK SET. 00330 M00S00329.mdd +++|* 00331 M00S00330.mdd +++|* USES W0 - W0+3. 00332 M00S00331.mdd +++|* 00333 M00S00332.mdd +++|* CALLS GSA. 00334 M00S00333.mdd +++| 00335 M00S00334.mdd +++| 00336 M00S00335.mdd +++| GSI SUBR ENTRY/EXIT 00337 M00S00336.mdd +++| GSI1 LDN ZERL 00338 M00S00337.mdd +++| CRDL W0 00339 M00S00338.mdd +++| LDC 10000 INTERLOCK BIT 00340 M00S00339.mdd +++| STDL W0+1 00341 M00S00340.mdd +++| RJM GSA GET *SCI* PARAMETER TABLE ADDRESS 00342 M00S00341.mdd +++| RDSL W0 SET INTERLOCK 00343 M00S00342.mdd +++| LDDL W0+1 00344 M00S00343.mdd +++| LPC 10000 00345 M00S00344.mdd +++| NJN GSI1 IF INTERLOCK WAS ALREADY SET 00346 M00S00345.mdd +++| UJN GSIX RETURN 00347 M00S00346.mdd +++| LSC SPACE 4,10 00348 M00S00347.mdd +++|** LSC - LOAD *SCI*. 00349 M00S00348.mdd +++|* 00350 M00S00349.mdd +++|* ENTRY (CN - CN+4) = *SCI* PARAMETER TABLE WORD ONE. 00351 M00S00350.mdd +++|* *SCI* PARAMETER TABLE INTERLOCKED. 00352 M00S00351.mdd +++|* 00353 M00S00352.mdd +++|* EXIT NO EXIT. LOADS *SCI* ON TOP OF *MDD* BOOT. 00354 M00S00353.mdd +++|* 00355 M00S00354.mdd +++|* CALLS AMB, GSA, SPD, SPP, SSH. 00356 M00S00355.mdd +++| 00357 M00S00356.mdd +++| 00358 M00S00357.mdd +++| LSC BSS 0 ENTRY 00359 M00S00358.mdd +++| 00360 M00S00359.mdd +++|* PREPARE FOR *SCI* LOAD. 00361 M00S00360.mdd +++| 00362 M00S00361.mdd +++| RJM SPD SET PP/PORT NUMBERS IN *D7RS* 00363 M00S00362.mdd +++| RJM GSA 00364 M00S00363.mdd +++| ZJN LSC1 IF NO *SCI* PARAMETER TABLE 00365 M00S00364.mdd +++| RJM AMB ACTIVATE *MDD* BITS AND CLEAR INTERLOCK 00366 M00S00365.mdd +++| LDD PP SET PP NUMBER 00367 M00S00366.mdd +++| RAD CN+1 00368 M00S00367.mdd +++| RJM GSA WRITE WORD ONE AND CLEAR INTERLOCK 00369 M00S00368.mdd +++| CWD CN 00370 M00S00369.mdd +++| LSC1 RJM SPP SAVE *PPR* 00371 M00S00370.mdd +++| RJM SSH SET *SCI* HANDOFF DATA 00372 M00S00371.mdd +++| 00373 M00S00372.mdd +++|* CHANGE *MDD* TO *SCI* IN INPUT REGISTER. 00374 M00S00373.mdd +++| 00375 M00S00374.mdd +++| LDD IA GET CURRENT INPUT REGISTER 00376 M00S00375.mdd +++| CRD CM 00377 M00S00376.mdd +++| LDC 2RSC 00378 M00S00377.mdd +++| STD CM 00379 M00S00378.mdd +++| LDD CM+1 00380 M00S00379.mdd +++| LPN 77 00381 M00S00380.mdd +++| LMC 1RI*100 00382 M00S00381.mdd +++| STD CM+1 00383 M00S00382.mdd +++| LDD IA 00384 M00S00383.mdd +++| CWD CM 00385 M00S00384.mdd +++| 00386 M00S00385.mdd +++|* PLUG LONG INSTRUCTION IN BOOT CODE. *COMPDLI* DOES 00387 M00S00386.mdd +++|* NOT HANDLE LONG INSTRUCTIONS WITHIN *LOC* DIRECTIVES 00388 M00S00387.mdd +++|* WELL, SO THIS ONE IS PLUGGED EXPLICITLY. 00389 M00S00388.mdd +++| 00390 M00S00389.mdd +++| LDM LSCA+BTSA-1 00391 M00S00390.mdd +++| LMC 1S15 CONVERT TO 16 BIT INSTRUCTION 00392 M00S00391.mdd +++| STML LSCA+BTSA-1 00393 M00S00392.mdd +++| 00394 M00S00393.mdd +++|* MOVE CODE SO *SCI* DOES NOT OVERWRITE IT. 00395 M00S00394.mdd +++| 00396 M00S00395.mdd +++| LDN 1 READ DIRECTORY ENTRY 00397 M00S00396.mdd +++| STD CM 00398 M00S00397.mdd +++| LRD MD+1 00399 M00S00398.mdd +++| LDD MD 00400 M00S00399.mdd +++| ADC RR 00401 M00S00400.mdd +++| CRML LSCA+T3,CM 00402 M00S00401.mdd +++| LDN LSCAL/4 MOVE BOOT 00403 M00S00402.mdd +++| STD CM 00404 M00S00403.mdd +++| LDD MA 00405 M00S00404.mdd +++| CWML LSCA,CM 00406 M00S00405.mdd +++| LDD MA 00407 M00S00406.mdd +++| CRML 0,CM 00408 M00S00407.mdd +++| 00409 M00S00408.mdd +++|* BOOT CODE FOR LOADING *SCI*. 00410 M00S00409.mdd +++| 00411 M00S00410.mdd +++| LSCA BSS 0 00412 M00S00411.mdd +++| LOC 0 00413 M00S00412.mdd +++| CON BTS-1 00414 M00S00413.mdd +++| BSS 2 00415 M00S00414.mdd +++| T3 CON 0,0,0,0 00416 M00S00415.mdd +++| BTS LDD T3 00417 M00S00416.mdd +++| STD BTSA 00418 M00S00417.mdd +++| LDD MD 00419 M00S00418.mdd +++| ADC RR+1 00420 M00S00419.mdd +++| LRD MD+1 00421 M00S00420.mdd +++| CRM **,T3+1 00422 M00S00421.mdd +++| BTSA EQU *-1 00423 M00S00422.mdd +++|* CRML **,T3+1 (CONVERTED TO LONG EXPLICITLY) 00424 M00S00423.mdd +++| LJM 100 START EXECUTING *SCI* 00425 M00S00424.mdd +++| LSCAL EQU *+3 00426 M00S00425.mdd +++| ERRPL LSCAL-30 BOOT OVERWRITES HANDOFF DATA 00427 M00S00426.mdd +++| LOC *O 00428 M00S00427.mdd +++| SAS SPACE 4,10 00429 M00S00428.mdd +++|** SAS - SET ALERT STATUS. 00430 M00S00429.mdd +++|* 00431 M00S00430.mdd +++|* ENTRY (SASA) = MESSAGE ADDRESS. 00432 M00S00431.mdd +++|* 00433 M00S00432.mdd +++|* EXIT ALERT STATUS SET IF PROPER MESSAGE SENT. 00434 M00S00433.mdd +++|* 00435 M00S00434.mdd +++|* USES CM - CM+4. 00436 M00S00435.mdd +++|* 00437 M00S00436.mdd +++|* MACROS MONITOR. 00438 M00S00437.mdd +++| 00439 M00S00438.mdd +++| 00440 M00S00439.mdd +++| SAS SUBR ENTRY/EXIT 00441 M00S00440.mdd +++| LDC ** 00442 M00S00441.mdd +++| SASA EQU *-1 (ADDRESS OF MESSAGE) 00443 M00S00442.mdd +++| ADC -ALERT 00444 M00S00443.mdd +++| MJN SASX IF NO ALERT NEEDED 00445 M00S00444.mdd +++| LDN ZERL ISSUE ERROR LOG ALERT EVENT 00446 M00S00445.mdd +++| CRD CM 00447 M00S00446.mdd +++| ERRNZ EEVS CODE ASSUMES *EEVS* IS ZERO 00448 M00S00447.mdd +++| LDN ELAE 00449 M00S00448.mdd +++| STD CM+4 00450 M00S00449.mdd +++| MONITOR EATM 00451 M00S00450.mdd +++| UJN SASX RETURN 00452 M00S00451.mdd +++| SMF SPACE 4,10 00453 M00S00452.mdd +++|** SMF - SET C170 *MDD* FLAG. 00454 M00S00453.mdd +++|* 00455 M00S00454.mdd +++|* USES W0 - W0+4. 00456 M00S00455.mdd +++|* 00457 M00S00456.mdd +++|* CALLS GEA. 00458 M00S00457.mdd +++| 00459 M00S00458.mdd +++| 00460 M00S00459.mdd +++| SMF SUBR ENTRY/EXIT 00461 M00S00460.mdd +++| RJM GEA 00462 M00S00461.mdd +++| ADN D7RS 00463 M00S00462.mdd +++| CRD W0 00464 M00S00463.mdd +++| LDD W0+1 00465 M00S00464.mdd +++| LPC 6777 00466 M00S00465.mdd +++| LMC 1000 00467 M00S00466.mdd +++| STD W0+1 00468 M00S00467.mdd +++| RJM GEA REWRITE *D7RS* 00469 M00S00468.mdd +++| ADN D7RS 00470 M00S00469.mdd +++| CWD W0 00471 M00S00470.mdd +++| UJN SMFX RETURN 00472 M00S00471.mdd +++| SPD SPACE 4,15 00473 M00S00472.mdd +++|** SPD - SET PP/PORT NUMBERS IN *D7RS*. 00474 M00S00473.mdd +++|* 00475 M00S00474.mdd +++|* ENTRY (PP) = PP NUMBER. 00476 M00S00475.mdd +++|* (PT) = PORT NUMBER. 00477 M00S00476.mdd +++|* 00478 M00S00477.mdd +++|* EXIT TO *MDD4* IF *MDD* ALREADY ACTIVE. 00479 M00S00478.mdd +++|* IN THIS CASE, THE *SCI* PARAMETER TABLE INTERLOCK IS 00480 M00S00479.mdd +++|* CLEARED. 00481 M00S00480.mdd +++|* 00482 M00S00481.mdd +++|* USES CM - CM+4. 00483 M00S00482.mdd +++|* 00484 M00S00483.mdd +++|* CALLS CSI, GEA, GSA. 00485 M00S00484.mdd +++|* 00486 M00S00485.mdd +++|* MACROS MONITOR. 00487 M00S00486.mdd +++| 00488 M00S00487.mdd +++| 00489 M00S00488.mdd +++| SPD SUBR ENTRY/EXIT 00490 M00S00489.mdd +++| RJM GEA GET *EICB* ADDRESS 00491 M00S00490.mdd +++| ADN D7RS 00492 M00S00491.mdd +++| STD CM+4 00493 M00S00492.mdd +++| SHN -14 00494 M00S00493.mdd +++| STD CM+3 00495 M00S00494.mdd +++| LDN 2 SET NUMBER OF REQUESTS 00496 M00S00495.mdd +++| STD CM+1 00497 M00S00496.mdd +++| LDN 10 SET C170 *MDD* FLAG 00498 M00S00497.mdd +++| LMD PT GET PORT NUMBER 00499 M00S00498.mdd +++| SHN 6 00500 M00S00499.mdd +++| LMD PP GET PP NUMBER 00501 M00S00500.mdd +++| STM SPDB+4 00502 M00S00501.mdd +++| LDD MA WRITE REQUESTS TO MESSAGE BUFFER 00503 M00S00502.mdd +++| CWM SPDA,CM+1 00504 M00S00503.mdd +++| MONITOR UTEM 00505 M00S00504.mdd +++| LDD CM+1 00506 M00S00505.mdd +++| ZJN SPDX IF OPERATION COMPLETE 00507 M00S00506.mdd +++| RJM GSA 00508 M00S00507.mdd +++| ZJN SPD1 IF NO *SCI* PARAMETER TABLE 00509 M00S00508.mdd +++| RJM CSI CLEAR *SCI* PARAMETER TABLE INTERLOCK 00510 M00S00509.mdd +++| SPD1 LJM MDD4 ISSUE ALREADY ACTIVE MESSAGE 00511 M00S00510.mdd +++| 00512 M00S00511.mdd +++| 00513 M00S00512.mdd +++| SPDA VFD 1/1,5/0,6/12D,6/36D,42/0 00514 M00S00513.mdd +++| SPDB VFD 1/0,5/0,6/12D,6/36D,42/0 00515 M00S00514.mdd +++| SPP SPACE 4,10 00516 M00S00515.mdd +++|** SPP - SAVE PP RESIDENT. 00517 M00S00516.mdd +++|* 00518 M00S00517.mdd +++|* EXIT *PPR* WRITTEN TO SAVE AREA. 00519 M00S00518.mdd +++|* 00520 M00S00519.mdd +++|* USES T0, W6, W7. 00521 M00S00520.mdd +++|* 00522 M00S00521.mdd +++|* CALLS GPS. 00523 M00S00522.mdd +++|* 00524 M00S00523.mdd +++|* MACROS SETMS. 00525 M00S00524.mdd +++| 00526 M00S00525.mdd +++| 00527 M00S00526.mdd +++| SPP SUBR ENTRY/EXIT 00528 M00S00527.mdd +++| SETMS NODRIVER CLEAR DRIVER PRESENT FLAG 00529 M00S00528.mdd +++| LDC ** SET WORD COUNT TO SAVE 00530 M00S00529.mdd +++| SPPA EQU *-1 00531 M00S00530.mdd +++| SBN 1 00532 M00S00531.mdd +++| STD W7 00533 M00S00532.mdd +++| 00534 M00S00533.mdd +++|* MOVE UNBOOT TO DRIVER AREA. 00535 M00S00534.mdd +++| 00536 M00S00535.mdd +++| LDC .SPPCL/5 GET UNBOOT LENGTH 00537 M00S00536.mdd +++| STD W6 00538 M00S00537.mdd +++| RJM GPS GET *PPR* SAVE AREA ADDRESS 00539 M00S00538.mdd +++| CWM SPPC,W6 00540 M00S00539.mdd +++| RJM GPS GET *PPR* SAVE AREA ADDRESS 00541 M00S00540.mdd +++| CRM MSFW,W6 00542 M00S00541.mdd +++| 00543 M00S00542.mdd +++|* WRITE *PPR*. 00544 M00S00543.mdd +++| 00545 M00S00544.mdd +++| LDC MSFW-1 SET EXECUTION ADDRESS ON RETURN 00546 M00S00545.mdd +++| STD T0 00547 M00S00546.mdd +++| RJM GPS GET *PPR* SAVE AREA ADDRESS 00548 M00S00547.mdd +++| CWD T0 WRITE FIRST WORD OF *PPR* 00549 M00S00548.mdd +++| ADN 1 00550 M00S00549.mdd +++| CWM 5,W7 WRITE REMAINDER OF *PPR* 00551 M00S00550.mdd +++| UJN SPPX RETURN 00552 M00S00551.mdd +++| SPACE 4,10 00553 M00S00552.mdd +++|* BOOTSTRAP USED TO RELOAD PP RESIDENT (UNBOOT). 00554 M00S00553.mdd +++| 00555 M00S00554.mdd +++| SPPC BSS 0 00556 M00S00555.mdd +++| LOC MSFW 00557 M00S00556.mdd +++| 00558 M00S00557.mdd +++|* CLEAR PP NUMBER AND C170 *MDD* FLAG FROM *D7RS*. 00559 M00S00558.mdd +++| 00560 M00S00559.mdd +++| LDK EIBP 00561 M00S00560.mdd +++| CRD CM 00562 M00S00561.mdd +++| LDD CM+3 00563 M00S00562.mdd +++| SHN 14 00564 M00S00563.mdd +++| LMD CM+4 00565 M00S00564.mdd +++| ADN D7RS 00566 M00S00565.mdd +++| CRD CN 00567 M00S00566.mdd +++| LDD CN+1 CLEAR PP NUMBER, C170 *MDD* FLAG 00568 M00S00567.mdd +++| LPC 6000 00569 M00S00568.mdd +++| STD CN+1 00570 M00S00569.mdd +++| LDD CM+3 REWRITE *D7RS* 00571 M00S00570.mdd +++| SHN 14 00572 M00S00571.mdd +++| LMD CM+4 00573 M00S00572.mdd +++| ADN D7RS 00574 M00S00573.mdd +++| CWD CN 00575 M00S00574.mdd +++| 00576 M00S00575.mdd +++|* CLEAR PP MEMORY. 00577 M00S00576.mdd +++| 00578 M00S00577.mdd +++| LDC PPFW 00579 M00S00578.mdd +++| STD CM 00580 M00S00579.mdd +++| LDN 0 00581 M00S00580.mdd +++| BTS1 STI CM 00582 M00S00581.mdd +++| AOD CM 00583 M00S00582.mdd +++| SHN -14 00584 M00S00583.mdd +++| ZJN BTS1 IF MORE TO CLEAR 00585 M00S00584.mdd +++| MONITOR DPPM DROP PP 00586 M00S00585.mdd +++| LJM PPR EXIT TO PP RESIDENT 00587 M00S00586.mdd +++| LOC *O 00588 M00S00587.mdd +++| .SPPCL EQU *-SPPC+4 00589 M00S00588.mdd +++| ERRNG PPFW-MSFW-.SPPCL BOOTSTRAP IS TOO LONG 00590 M00S00589.mdd +++| SSH SPACE 4,10 00591 M00S00590.mdd +++|** SSH - SET *SCI* HANDOFF DATA. 00592 M00S00591.mdd +++|* 00593 M00S00592.mdd +++|* EXIT (27) = PP NUMBER PLUS 2000. 00594 M00S00593.mdd +++|* (33) = 0, NOT UTILITY MODE. 00595 M00S00594.mdd +++|* (70) = 1, *SCI* NOT INITIATED BY *SDA*. 00596 M00S00595.mdd +++| 00597 M00S00596.mdd +++| 00598 M00S00597.mdd +++| SSH SUBR ENTRY/EXIT 00599 M00S00598.mdd +++| LDN 0 SET UTILITY MODE 00600 M00S00599.mdd +++| STD UF 00601 M00S00600.mdd +++| LDN 1 SET NOT *SDA* INITIATED FLAG 00602 M00S00601.mdd +++| STD SF 00603 M00S00602.mdd +++| LDD PP SET PP NUMBER 00604 M00S00603.mdd +++| LMC 2000 ADD *MDD* INITIATED FLAG 00605 M00S00604.mdd +++| STD SM 00606 M00S00605.mdd +++| UJN SSHX RETURN 00607 M00S00606.mdd +++| SPACE 4,10 00608 M00S00607.mdd +++|* ERROR LOG MESSAGES. 00609 M00S00608.mdd +++| 00610 M00S00609.mdd +++| 00611 M00S00610.mdd +++| ELM1 DATA C* MDD - MR ERROR.* 00612 M00S00611.mdd +++| ELM3 DATA C* MDD - VALIDATED.* 00613 M00S00612.mdd +++| ELM4 DATA C* MDD - BYE COMMAND EXECUTED.* 00614 M00S00613.mdd +++| ALERT EQU * ONLY ALERT MESSAGES BELOW THIS ADDRESS 00615 M00S00614.mdd +++| ELM6 DATA C* MDD - CONSOLE MUST BE UNLOCKED.* 00616 M00S00615.mdd +++| ELM7 DATA C* MDD - NOT ALLOWED ON THIS MAINFRAME.* 00617 M00S00616.mdd +++| ELM8 DATA C* MDD - IMPROPER ACCESS ATTEMPT.* 00618 M00S00617.mdd +++| ELM9 DATA C* MDD - SCI NOT FOUND IN CIP DIRECTORY.* 00619 M00S00618.mdd +++| ELM10 DATA C* MDD - MUST BE INITIATED FROM NOS/VE.* 00620 M00S00619.mdd +++| ELM11 DATA C* MDD - ALREADY ACTIVE.* 00621 M00S00620.mdd +++| TITLE MDD PRESET. 00622 M00S00621.mdd +++| PRS SPACE 4,20 00623 M00S00622.mdd +++|** PRS - PRESET *MDD* BOOT. 00624 M00S00623.mdd +++|* 00625 M00S00624.mdd +++|* EXIT (MD - MD+2) = R-REGISTER FORMAT OF FIRST WORD OF 00626 M00S00625.mdd +++|* *SCI* IN CENTRAL MEMORY. 00627 M00S00626.mdd +++|* (PP) = PP NUMBER. 00628 M00S00627.mdd +++|* (PT) = PORT NUMBER. 00629 M00S00628.mdd +++|* (SPPA) = *PPR* LENGTH IN CM WORDS. 00630 M00S00629.mdd +++|* (GEAA - GEAA+1) = *EICB* FWA. 00631 M00S00630.mdd +++|* (GPSA - GPSA+1) = *PPR* SAVE AREA ADDRESS. 00632 M00S00631.mdd +++|* (GSAA - GSAA+1) = *SCI* PARAMETER TABLE ADDRESS. 00633 M00S00632.mdd +++|*
| Line S00633 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00634 M01S00633.273l780 ---|* USES CM - CM+4, W0 - W4.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00635 M01S00001.273l780 +++|* USES PT, CM - CM=4, W0 - W4. 00636 M00S00634.mdd +++|*
| Line S00635 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00637 M01S00635.273l780 ---|* CALLS CUA, CKV, DLI, FCM, GEA, GPN.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00638 M01S00002.273l780 +++|* CALLS CKV, DLI, FCM, GEA, GPN. 00639 M00S00636.mdd +++|* 00640 M00S00637.mdd +++|* MACROS MONITOR. 00641 M00S00638.mdd +++| 00642 M00S00639.mdd +++| 00643 M00S00640.mdd +++| PRS SUBR ENTRY/EXIT 00644 M00S00641.mdd +++| LDK NCPL MOVE TO SYSTEM CONTROL POINT 00645 M00S00642.mdd +++| CRD CM 00646 M00S00643.mdd +++| AOD CM+1
| Line S00644 Modification History | |
|---|---|
M01 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00647 M01S00644.273l780 ---| SHN 7 00648 M01S00645.273l780 ---| STD CP 00649 M00S00646.mdd +++| MONITOR CCAM MOVE TO SYSTEM CONTROL POINT 00650 M00S00647.mdd +++| RJM GPN GET PP NUMBER 00651 M00S00648.mdd +++| RJM CKV CHECK VALIDATIONS 00652 M00S00649.mdd +++| LDC PLIB 00653 M00S00650.mdd +++| RJM DLI DEFINE LONG INSTRUCTIONS 00654 M00S00651.mdd +++| LDK EIBP SAVE *EICB* FWA 00655 M00S00652.mdd +++| CRD W0 00656 M00S00653.mdd +++| LDD W0+3 00657 M00S00654.mdd +++| RAM GEAA 00658 M00S00655.mdd +++| LDD W0+4 00659 M00S00656.mdd +++| STM GEAA+1 00660 M00S00657.mdd +++| LDC =C*SCI* 00661 M00S00658.mdd +++| RJM FCM FIND ADDRESS OF *SCI* 00662 M00S00659.mdd +++| LDD IR+4 CHECK PORT PARAMETER 00663 M00S00660.mdd +++| SBN 1 00664 M00S00661.mdd +++| ZJN PRS1 IF PORT ZERO REQUESTED 00665 M00S00662.mdd +++| LDN 1 OTHERWISE PORT ONE 00666 M00S00663.mdd +++| PRS1 STD PT SAVE PORT NUMBER 00667 M00S00664.mdd +++| RJM GEA GET *EICB* ADDRESS 00668 M00S00665.mdd +++| ADN D7RS READ *PPR* SAVE AREA ADDRESS 00669 M00S00666.mdd +++| CRD W0 00670 M00S00667.mdd +++| ADN D7RS+2-D7RS *SCI* PARAMETER TABLE ADDRESS 00671 M00S00668.mdd +++| CRD CM 00672 M00S00669.mdd +++| LDD W0+2 SAVE *PPR* WORD COUNT 00673 M00S00670.mdd +++| STM SPPA 00674 M00S00671.mdd +++| LDD W0+3 SAVE *PPR* BUFFER ADDRESS 00675 M00S00672.mdd +++| RAM GPSA 00676 M00S00673.mdd +++| LDD W0+4 00677 M00S00674.mdd +++| STM GPSA+1 00678 M00S00675.mdd +++| LDD CM+3 SAVE *SCI* PARAMETER TABLE ADDRESS 00679 M00S00676.mdd +++| RAM GSAA 00680 M00S00677.mdd +++| LDD CM+4 00681 M00S00678.mdd +++| STM GSAA+1 00682 M00S00679.mdd +++| LJM PRSX RETURN 00683 M00S00680.mdd +++| CKV SPACE 4,10 00684 M00S00681.mdd +++|** CKV - CHECK FOR PROPER VALIDATIONS. 00685 M00S00682.mdd +++|* 00686 M00S00683.mdd +++|* EXIT TO *ERR* IF *MDD* USE NOT ALLOWED. 00687 M00S00684.mdd +++|* 00688 M00S00685.mdd +++|* USES CM - CM+4. 00689 M00S00686.mdd +++|* 00690 M00S00687.mdd +++|* CALLS CUA. 00691 M00S00688.mdd +++| 00692 M00S00689.mdd +++| 00693 M00S00690.mdd +++| CKV SUBR ENTRY/EXIT 00694 M00S00691.mdd +++| LDK MABL CHECK MAINFRAME TYPE 00695 M00S00692.mdd +++| CRD CM 00696 M00S00693.mdd +++| LDD CM+1 00697 M00S00694.mdd +++| SHN 21-13 00698 M00S00695.mdd +++| MJN CKV3 IF NOT CYBER 180 00699 M00S00696.mdd +++| LDN SSTL CHECK CONSOLE STATUS 00700 M00S00697.mdd +++| CRD CM 00701 M00S00698.mdd +++| LDD CM 00702 M00S00699.mdd +++| SHN 21-11 00703 M00S00700.mdd +++| PJN CKV4 IF CONSOLE IS NOT UNLOCKED 00704 M00S00701.mdd +++| RJM CUA CHECK USER ACCESS 00705 M00S00702.mdd +++| NJN CKV1 IF SYSTEM ACCESS NOT ALLOWED 00706 M00S00703.mdd +++| LDD CM 00707 M00S00704.mdd +++| PJN CKVX IF MAINTENANCE ACCESS ALLOWED 00708 M00S00705.mdd +++| 00709 M00S00706.mdd +++| CKV1 LDC ELM8+ERLN * MDD - IMPROPER ACCESS ATTEMPT.* 00710 M00S00707.mdd +++| CKV2 LJM ERR ISSUE MESSAGE AND DROP *MDD* 00711 M00S00708.mdd +++| 00712 M00S00709.mdd +++| CKV3 LDC ELM7+ERLN * MDD - NOT ALLOWED ON THIS MAINFRAME.* 00713 M00S00710.mdd +++| UJN CKV2 ISSUE MESSAGE AND DROP *MDD* 00714 M00S00711.mdd +++| 00715 M00S00712.mdd +++| CKV4 LDC ELM6+ERLN * MDD - CONSOLE MUST BE UNLOCKED.* 00716 M00S00713.mdd +++| UJN CKV2 ISSUE MESSAGE AND DROP *MDD* 00717 M00S00714.mdd +++| FCM SPACE 4,15 00718 M00S00715.mdd +++|** FCM - FIND CIP MODULE. 00719 M00S00716.mdd +++|* 00720 M00S00717.mdd +++|* ENTRY (A) = ADDRESS OF THREE CHARACTER DISPLAY CODE NAME. 00721 M00S00718.mdd +++|* 00722 M00S00719.mdd +++|* EXIT (A) = OFFSET FROM R-REGISTER OF MODULE HEADER. 00723 M00S00720.mdd +++|* (R) = ADDRESS/100B OF MODULE HEADER. 00724 M00S00721.mdd +++|* (CD - CD+2) = A AND R-REGISTER FORMAT OF CIP 00725 M00S00722.mdd +++|* DIRECTORY. 00726 M00S00723.mdd +++|* TO *ERR* IF *SCI* NOT FOUND. 00727 M00S00724.mdd +++|* 00728 M00S00725.mdd +++|* USES T1, CM - CM+3, W0 - W3. 00729 M00S00726.mdd +++|* 00730 M00S00727.mdd +++|* CALLS GEA. 00731 M00S00728.mdd +++| 00732 M00S00729.mdd +++| 00733 M00S00730.mdd +++| FCM4 LDDL CM RETURN WITH ADDRESS 00734 M00S00731.mdd +++| ADN 1 SKIP CIP IDENTIFIER WORD 00735 M00S00732.mdd +++| SRD MD+1 SAVE R REGISTER 00736 M00S00733.mdd +++| STDL MD SAVE A REGISTER 00737 M00S00734.mdd +++| 00738 M00S00735.mdd +++| FCM SUBR ENTRY/EXIT 00739 M00S00736.mdd +++| STD T1 SAVE ADDRESS OF MODULE TO FIND 00740 M00S00737.mdd +++| RJM GEA GET *EICB* ADDRESS 00741 M00S00738.mdd +++| ADN DSCM+2 00742 M00S00739.mdd +++| CRDL CM READ CIP POINTER 00743 M00S00740.mdd +++| LRD CM+1 SAVE CIP DIRECTORY POINTER 00744 M00S00741.mdd +++| SRD CD+1 00745 M00S00742.mdd +++| LDDL CM 00746 M00S00743.mdd +++| STDL CD 00747 M00S00744.mdd +++| FCM1 STDL CM 00748 M00S00745.mdd +++| LRD CM+1 00749 M00S00746.mdd +++| LMC RR ACTIVATE R REGISTER 00750 M00S00747.mdd +++| CRDL W0 00751 M00S00748.mdd +++| LDD W0 00752 M00S00749.mdd +++| ADD W1 00753 M00S00750.mdd +++| ZJN FCM3 IF END OF DIRECTORY 00754 M00S00751.mdd +++| LDD W0 00755 M00S00752.mdd +++| LMI T1 00756 M00S00753.mdd +++| NJN FCM2 IF NO MATCH 00757 M00S00754.mdd +++| LDD W1 00758 M00S00755.mdd +++| LMM 1,T1 00759 M00S00756.mdd +++| ZJN FCM4 IF MATCH 00760 M00S00757.mdd +++| 00761 M00S00758.mdd +++| FCM2 LDDL W3 OFFSET TO NEXT MODULE HEADER 00762 M00S00759.mdd +++| RADL CM 00763 M00S00760.mdd +++| SHN -6 00764 M00S00761.mdd +++| RAD CM+2 00765 M00S00762.mdd +++| SHN -14 00766 M00S00763.mdd +++| RAD CM+1 00767 M00S00764.mdd +++| LDD CM 00768 M00S00765.mdd +++| LPN 77 00769 M00S00766.mdd +++| UJN FCM1 FETCH NEXT ENTRY 00770 M00S00767.mdd +++| 00771 M00S00768.mdd +++| FCM3 LDC ELM9+ERLN * MDD - SCI NOT FOUND IN CIP DIRECTORY.* 00772 M00S00769.mdd +++| LJM ERR RETURN PP 00773 M00S00770.mdd +++| GPN SPACE 4,10 00774 M00S00771.mdd +++|** GPN - GET LOGICAL PP NUMBER. 00775 M00S00772.mdd +++|* 00776 M00S00773.mdd +++|* EXIT (PP) = LOGICAL PP NUMBER. 00777 M00S00774.mdd +++|* 00778 M00S00775.mdd +++|* USES T1 - T5. 00779 M00S00776.mdd +++| 00780 M00S00777.mdd +++| 00781 M00S00778.mdd +++| GPN SUBR ENTRY/EXIT 00782 M00S00779.mdd +++| LDK PPCP 00783 M00S00780.mdd +++| CRD T1 00784 M00S00781.mdd +++| LDD IA 00785 M00S00782.mdd +++| SBD T1+4 00786 M00S00783.mdd +++| SHN -3 00787 M00S00784.mdd +++| STD PP 00788 M00S00785.mdd +++| SBN 12 00789 M00S00786.mdd +++| MJN GPNX IF NOT UPPER BARREL 00790 M00S00787.mdd +++| LDN 6 00791 M00S00788.mdd +++| RAD PP 00792 M00S00789.mdd +++| UJN GPNX RETURN 00793 M00S00790.mdd +++| SPACE 4,10 00794 M00S00791.mdd +++|* COMMON DECKS. 00795 M00S00792.mdd +++| 00796 M00S00793.mdd +++| 00797 M00S00794.mdd +++|*CALL COMPCUA 00798 M00S00795.mdd +++|*CALL COMPDLI 00799 M00S00796.mdd +++|*CALL COMPMRA 00800 M00S00797.mdd +++| PLIB SPACE 4,10 00801 M00S00798.mdd +++| PLIB LIST16 LIST OF 16 BIT INSTRUCTIONS 00802 M00S00799.mdd +++| SPACE 4 00803 M00S00800.mdd +++| END
cdc/nos2.source/opl.opl871/deck/mdd.txt · Last modified: (external edit)