User Tools

Site Tools


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