User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1mb

Deck 1MB

13 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1mb     +++|          IDENT  1MB,/1MB/MEP
00002  M01S00002.1mb     +++|          PERIPH
00003  M01S00003.1mb     +++|          BASE   MIXED
00004  M01S00004.1mb     +++|          SST    SSCP
00005  M01S00005.1mb     +++|*COMMENT  1MB - HARDWARE ERROR PROCESSOR.
Line S00006 Modification History
M01 (Added by) 1mb
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1984.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.1mb     +++|          TITLE  1MB - HARDWARE ERROR PROCESSOR.
00009  M01S00008.1mb     +++|          SPACE  4,10
00010  M01S00009.1mb     +++|***       1MB - HARDWARE ERROR PROCESSOR.
00011  M01S00010.1mb     +++|*         J. D. LANGE.  74/05/10.
00012  M01S00011.1mb     +++|*         C. R. LUND.  80/01/07.
00013  M01S00012.1mb     +++|*         P. J. ENGLE.  84/09/10.
00014  M01S00013.1mb     +++|*         M. S. PESCHMAN  85/07/24.
00015  M01S00014.1mb     +++|          SPACE  4,30
00016  M01S00015.1mb     +++|***              EITHER *1MB* OR *1SC* IS CALLED BY THE SYSTEM MONITOR
00017  M01S00016.1mb     +++|*         TO PERFORM FUNCTIONS WHICH CAN NOT BE PROCESSED BY THE
00018  M01S00017.1mb     +++|*         MONITOR.
00019  M01S00018.1mb     +++|*               FOR MAINFRAMES WITH MAINTENANCE REGISTERS, ERRORS  ARE
00020  M01S00019.1mb     +++|*         PROCESSED  BY  *1MB*  IN  ROUTINE  *MEP*.   CORRECTED MEMORY
00021  M01S00020.1mb     +++|*         ERRORS ARE HANDLED COMPLETELY BY *1MB* WHO BUILDS THE  TABLE
00022  M01S00021.1mb     +++|*         OF UNIQUE ID-S AS IS DONE FOR SECDED ERRORS.
00023  M01S00022.1mb     +++|*                *1SC* PERFORMS SCR PROCESSING ON FATAL SCR ERRORS
00024  M01S00023.1mb     +++|*         AND ON UNIQUE SECDED ERRORS ONLY.  *1SC* FIRST CHECKS FOR
00025  M01S00024.1mb     +++|*         FATAL ERRORS, AND (IF NONE HAVE OCCURRED) THEN INCREMENTS
00026  M01S00025.1mb     +++|*         THE APPROPRIATE COUNTER IN CM WORD *SCRL* FOR UNIQUE
00027  M01S00026.1mb     +++|*         SECDED ERRORS, CLEARS THE ERROR BIT IN THE SCR, AND DROPS
00028  M01S00027.1mb     +++|*         THE PP.  IF MONITOR HAS DETERMINED THAT A SECDED ERROR
00029  M01S00028.1mb     +++|*         WAS NOT UNIQUE (I.E. - THE ERROR WAS CAUSED BY THE SAME
00030  M01S00029.1mb     +++|*         MEMORY LOCATION PREVIOUSLY THAT HOUR), MONITOR WILL
00031  M01S00030.1mb     +++|*         INCREMENT THE APPROPRIATE COUNTERS IF THOSE COUNTERS HAVE
00032  M01S00031.1mb     +++|*         NOT EXCEEDED THEIR THRESHOLDS.  WHEN MONITOR HAS
00033  M01S00032.1mb     +++|*         FINISHED PROCESSING NON-UNIQUE ERRORS, IT WILL CLEAR
00034  M01S00033.1mb     +++|*         THE SECDED ERROR BIT AND CONTINUE IN ITS PROCESSING LOOP.
00035  M01S00034.1mb     +++|*                IN A SYSTEM EXPERIENCING FREQUENT SINGLE BIT SECDED
00036  M01S00035.1mb     +++|*         ERRORS, THIS PROCESS OF CHECKING FOR ERROR UNIQUENESS IN
00037  M01S00036.1mb     +++|*         MONITOR WILL REDUCE THE NUMBER OF CALLS TO *1SC* TO A
00038  M01S00037.1mb     +++|*         MAXIMUM OF *UIDL* PER HOUR (SEE *COMSSCR*).
00039  M01S00038.1mb     +++|*                FOR CYBER 176 MACHINES, LCME SINGLE BIT SECDED
00040  M01S00039.1mb     +++|*         ERRORS ARE PROCESSED IN A SIMILAR MANNER.
00041  M01S00040.1mb     +++|*                FOR MAINFRAMES WITH AN ESM MAINTENANCE PORT
00042  M01S00041.1mb     +++|*         DEFINED, *2TH* WILL LOG THE CONTENTS OF THE ESM
00043  M01S00042.1mb     +++|*         SECDED LOG TO THE BML AT THE END OF EVERY HOUR.
00044  M01S00043.1mb     +++|*                SCR PROCESSING AND TERMINOLOGY IS ALSO USED TO
00045  M01S00044.1mb     +++|*         REFER TO CYBER 170 - 865/875 MAINTENANCE REGISTERS.
00046  M01S00045.1mb     +++|          SPACE  4,10
00047  M01S00046.1mb     +++|****      DIRECT LOCATION ASSIGNMENTS.
00048  M01S00047.1mb     +++|
00049  M01S00048.1mb     +++|
00050  M01S00049.1mb     +++| T8       EQU    16          TEMPORARY
00051  M01S00050.1mb     +++| T9       EQU    17          TEMPORARY
00052  M01S00051.1mb     +++| CN       EQU    20 - 24     CM BUFFER (5 LOCATIONS)
00053  M01S00001.ns2769  +++| WB       EQU    CN - CN+4   FOR *COMPIMB* COMPATIBILITY
00054  M01S00052.1mb     +++| MF       EQU    25          MACHINE FLAG
00055  M01S00053.1mb     +++| NB       EQU    26          NUMBER OF PP BYTES IN *BML* MESSAGE
00056  M01S00054.1mb     +++| PN       EQU    27          PP NUMBER * 100B
00057  M01S00055.1mb     +++| SC       EQU    30 - 34     S/C PARAMETER WORD *SCRL* (5 LOCATIONS)
00058  M01S00056.1mb     +++| MI       EQU    60 - 64     MAINFRAME IDENTIFICATION
00059  M01S00057.1mb     +++| EM       EQU    65          LAST MASS STORAGE EST ORDINAL + 1
00060  M01S00058.1mb     +++|
00061  M01S00059.1mb     +++|
00062  M01S00060.1mb     +++|**        DIRECT CELLS FOR STATUS AND CONTROL REGISTER PROCESSING.
00063  M01S00061.1mb     +++|
00064  M01S00062.1mb     +++|          QUAL   1SC
00065  M01S00063.1mb     +++| CH       EQU    40 - 41     S/C REGISTER CHANNELS
00066  M01S00064.1mb     +++| ER       EQU    42          NUMBER OF S/C REGISTER ERRORS
00067  M01S00065.1mb     +++| NP       EQU    43          NUMBER OF PP-S IN SYSTEM
00068  M01S00066.1mb     +++| NW       EQU    44          NUMBER OF CM WORDS IN *BML* MESSAGE
00069  M01S00067.1mb     +++|          QUAL   *
00070  M01S00068.1mb     +++|
00071  M01S00069.1mb     +++|
00072  M01S00070.1mb     +++|**        DIRECT CELLS FOR MAINTENANCE REGISTER PROCESSING.
00073  M01S00071.1mb     +++|
00074  M01S00072.1mb     +++|          QUAL   1MB
00075  M01S00073.1mb     +++| BP       EQU    40          NEXT WORD IN *BML* MESSAGE TO USE
00076  M01S00074.1mb     +++| EC       EQU    41          ELEMENT ACCESS CODE
00077  M01S00075.1mb     +++| MB       EQU    42 - 43     M/R BUFFER CONTROL WORD ADDRESS
00078  M01S00076.1mb     +++| MS       EQU    44 - 45     M/R BUFFER ADDRESS
00079  M01S00077.1mb     +++| RN       EQU    46          REGISTER NUMBER
00080  M01S00078.1mb     +++| DC       EQU    60 - 64     *DFT* CONTROL WORD
00081  M01S00079.1mb     +++|          QUAL   *
00082  M01S00080.1mb     +++|****
00083  M01S00081.1mb     +++|          SPACE  4,10
00084  M01S00082.1mb     +++|*         ASSEMBLY CONSTANTS.
00085  M01S00083.1mb     +++|
00086  M01S00084.1mb     +++|
00087  M01S00085.1mb     +++| QUAL$    EQU    0           DO NOT QUALIFY COMMON DECKS
00088  M01S00086.1mb     +++|
00089  M01S00087.1mb     +++| MF70     EQU    0           CYBER 70
00090  M01S00088.1mb     +++|          ERRNZ  MF70        CODE DEPENDS ON ZERO VALUE
00091  M01S00089.1mb     +++| MF170    EQU    1           CYBER 170
00092  M01S00090.1mb     +++| MF700    EQU    2           CYBER 170 - 700 SERIES
00093  M01S00091.1mb     +++| MF865    EQU    3           CYBER 170 - 865
00094  M01S00092.1mb     +++| MF875    EQU    4           CYBER 170 - 875
00095  M01S00093.1mb     +++| MF180    EQU    5           CYBER 180 CLASS MACHINE
00096  M01S00094.1mb     +++| MF176A   EQU    6           CYBER 176 LEVEL A
00097  M01S00095.1mb     +++| MF176B   EQU    7           CYBER 176 LEVEL B
00098  M01S00096.1mb     +++| MFMAX    EQU    10B         MAXIMUM MAINFRAME TYPE + 1
00099  M01S00097.1mb     +++|          TITLE  COMMON SUBROUTINES.
00100  M01S00098.1mb     +++| COMMON   SPACE  4,10
00101  M01S00099.1mb     +++|**        COMMON - COMMON CODE FOR *1MB* AND *1SC*.
00102  M01S00100.1mb     +++|*
00103  M01S00101.1mb     +++|*         THIS MACRO PROVIDES SIMILAR CODE FOR *1MB* AND *1SC*.
00104  M01S00102.1mb     +++|
00105  M01S00103.1mb     +++|
00106  M01S00104.1mb     +++| COMMON   MACRO
00107  M01S00105.1mb     +++| COMMON   RMT
00108  M01S00106.1mb     +++| CKC      SPACE  4,10
00109  M01S00107.1mb     +++|**        CKC - CHECK FOR *1CK* COMPLETE.
00110  M01S00108.1mb     +++|*
00111  M01S00109.1mb     +++|*         ENTRY  (SC+2) = *1CK* IR ADDRESS.
00112  M01S00110.1mb     +++|*
00113  M01S00111.1mb     +++|*         EXIT   *1CK* COMPLETE.
00114  M01S00112.1mb     +++|*
00115  M01S00113.1mb     +++|*         USES   CM - CM+4.
00116  M01S00114.1mb     +++|
00117  M01S00115.1mb     +++|
00118  M01S00116.1mb     +++| CKC      SUBR               ENTRY/EXIT
00119  M01S00117.1mb     +++| CKC1     LDD    SC+2        READ *1CK* IR
00120  M01S00118.1mb     +++|          CRD    CM
00121  M01S00119.1mb     +++|          LDD    CM+1
00122  M01S00120.1mb     +++|          SCN    77
00123  M01S00121.1mb     +++|          SHN    6
00124  M01S00122.1mb     +++|          LMD    CM
00125  M01S00123.1mb     +++|          LMC    3RK1C
00126  M01S00124.1mb     +++|          NJN    CKCX        IF *1CK* COMPLETE
00127  M01S00125.1mb     +++|          UJN    CKC1        LOOP
00128  M01S00126.1mb     +++| CKP      SPACE  4,15
00129  M01S00127.1mb     +++|**        CKP - CHECKPOINT SYSTEM.
00130  M01S00128.1mb     +++|*
00131  M01S00129.1mb     +++|*         ENTRY  (SC+2) = *1CK* IR ADDRESS.
00132  M01S00130.1mb     +++|*
00133  M01S00131.1mb     +++|*         EXIT   EXITS TO *1CK* ON INITIAL CALL.
00134  M01S00132.1mb     +++|*                CHECKPOINT IN PROGRESS BIT SET IN *EICB*.
00135  M01S00133.1mb     +++|*
00136  M01S00134.1mb     +++|*         USES   CM - CM+4, SC+2.
00137  M01S00135.1mb     +++|*
00138  M01S00136.1mb     +++|*         CALLS  /1MB/DSP, *1CK*.
00139  M01S00137.1mb     +++|*
00140  M01S00138.1mb     +++|*         MACROS EXECUTE.
00141  M01S00139.1mb     +++|
00142  M01S00140.1mb     +++|
00143  M01S00141.1mb     +++| CKP      SUBR               ENTRY/EXIT
00144  M01S00142.1mb     +++|          LDD    SC+2        CHECK FOR *1CK* ALREADY CALLED
00145  M01S00143.1mb     +++|          NJN    CKPX        IF *1CK* ALREADY CALLED
00146  M01S00144.1mb     +++| .A       IFC    EQ,/"QUAL"/1MB/
00147  M01S00145.1mb     +++|          RJM    /1MB/DSP    GET *EICB* POINTER
00148  M01S00146.1mb     +++|          ZJN    CKP1        IF NO *EICB*
00149  M01S00147.1mb     +++|          ADN    D7ST
00150  M01S00148.1mb     +++|          CRD    CM          READ STATUS WORD
00151  M01S00149.1mb     +++|          LDD    CM
00152  M01S00150.1mb     +++|          SCN    4
00153  M01S00151.1mb     +++|          LMN    4           SET CHECKPOINT IN PROGRESS
00154  M01S00152.1mb     +++|          STD    CM
00155  M01S00153.1mb     +++|          RJM    /1MB/DSP
00156  M01S00154.1mb     +++|          ADN    D7ST
00157  M01S00155.1mb     +++|          CWD    CM
00158  M01S00156.1mb     +++| .A       ENDIF
00159  M01S00157.1mb     +++| CKP1     EXECUTE 1CK,=
00160  M01S00158.1mb     +++|          LDD    IA          CALL *1CK*
00161  M01S00159.1mb     +++|          CWM    CKPA,ON
00162  M01S00160.1mb     +++|          SCN    7
00163  M01S00161.1mb     +++|          STD    SC+2
00164  M01S00162.1mb     +++|          LDM    CKPA+2
00165  M01S00163.1mb     +++|          LMN    10
Line S00164 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00164.ns2660  ---| CKP2     ZJP    DPP2        IF TO RECALL *1MB*
00167  M01S00001.ns2660  +++| CKP2     ZJP    DPP3        IF TO RECALL *1MB*
00168  M01S00165.1mb     +++|          LMN    11&10
00169  M01S00166.1mb     +++|          ZJN    CKP2        IF TO RECALL *1MB*
00170  M01S00001.ns2593  +++|          LMN    13&11
00171  M01S00002.ns2593  +++|          ZJN    CKP2        IF TO RECALL *1MB*
Line S00167 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00167.ns2660  ---|          LJM    DPP1        EXIT TO *1CK* AND ENABLE *1MB* CALL
00173  M01S00002.ns2660  +++|          LJM    DPP2        EXIT TO *1CK* AND ENABLE *1MB* CALL
00174  M01S00168.1mb     +++|
00175  M01S00169.1mb     +++| CKPA     VFD    18/0L1CK,6/0,12/1,24/0  SYSTEM CHECKPOINT CALL
00176  M01S00170.1mb     +++| CSH      SPACE  4,10
00177  M01S00171.1mb     +++|**        CSH - CHECKPOINT SYSTEM, SET STEP, AND HANG.
00178  M01S00172.1mb     +++|*
00179  M01S00173.1mb     +++|*         ENTRY  AT *CSH1* FOR CYBER 176 DOUBLE BIT *SECDED* ERROR.
00180  M01S00174.1mb     +++|*
00181  M01S00175.1mb     +++|*         CALLS  CKC, CKP, RSM.
00182  M01S00176.1mb     +++|
00183  M01S00177.1mb     +++|
00184  M01S00178.1mb     +++| CSH      SUBR               ENTRY (DOES NOT RETURN)
00185  M01S00179.1mb     +++| .A       IFC    EQ,/"QUAL"/1MB/
00186  M01S00180.1mb     +++|          RJM    /1MB/DPR    DUMP PP REGISTERS
00187  M01S00181.1mb     +++| .A       ENDIF
00188  M01S00182.1mb     +++|          RJM    CKP         ATTEMPT SYSTEM CHECKPOINT
00189  M01S00183.1mb     +++|          LDD    CP
00190  M01S00184.1mb     +++|          ADN    MS2W        DISPLAY * FATAL ERROR.* MESSAGE
00191  M01S00185.1mb     +++|          CWM    CSHM,TR
00192  M01S00186.1mb     +++| CSHA     EQU    *-1         (MESSAGE ADDRESS)
00193  M01S00187.1mb     +++|          RJM    CKC         WAIT FOR *1CK* TO FINISH
00194  M01S00188.1mb     +++| .A       IFC    EQ,/"QUAL"/1MB/
00195  M01S00189.1mb     +++|          RJM    /1MB/DPR    DUMP PP REGISTERS
00196  M01S00190.1mb     +++| .A       ENDIF
00197  M01S00191.1mb     +++| CSH1     RJM    RSM         STEP SYSTEM
00198  M01S00192.1mb     +++| CSH2     LDD    CP          DISPLAY *FATAL ERROR* MESSAGE AGAIN
00199  M01S00193.1mb     +++|          ADN    MS2W
00200  M01S00194.1mb     +++|          CWM    CSHM,TR
00201  M01S00195.1mb     +++| CSHB     EQU    *-1         (MESSAGE ADDRESS)
Line S00196 Modification History
M01 (Added by) 1mb
M02 (Updated by) 1mb35
Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00196.1mb35   ---| CSH3     DELAY
Line S00197 Modification History
M01 (Added by) 1mb
M02 (Updated by) 1mb35
Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00197.1mb35   ---|          LDD    CP          CHECK IF MESSAGE PRESENT
Line S00198 Modification History
M01 (Added by) 1mb
M02 (Updated by) 1mb35
Seq #  *Modification Id* Act 
----------------------------+
00204  M02S00198.1mb35   ---|          ADN    MS2W
Line S00199 Modification History
M01 (Added by) 1mb
M02 (Updated by) 1mb35
Seq #  *Modification Id* Act 
----------------------------+
00205  M02S00199.1mb35   ---|          CRD    CN
Line S00200 Modification History
M01 (Added by) 1mb
M02 (Updated by) 1mb35
Seq #  *Modification Id* Act 
----------------------------+
00206  M02S00200.1mb35   ---|          LDD    CN
Line S00201 Modification History
M01 (Added by) 1mb
M02 (Updated by) 1mb35
Seq #  *Modification Id* Act 
----------------------------+
00207  M02S00201.1mb35   ---|          ZJN    CSH2        IF NO MESSAGE AT SYSTEM CONTROL POINT
Line S00202 Modification History
M01 (Added by) 1mb
M02 (Updated by) 1mb35
Seq #  *Modification Id* Act 
----------------------------+
00208  M02S00202.1mb35   ---|          UJN    CSH3        CONTINUE CHECKING
00209  M01S00001.1mb35   +++|          DELAY  5*8D        DELAY 5 SECONDS (FOR OTHER MESSAGES)
00210  M01S00002.1mb35   +++|          UJN    CSH2        DISPLAY MESSAGE AGAIN
00211  M01S00203.1mb     +++| DPP      SPACE  4,20
00212  M01S00204.1mb     +++|**        DPP - DROP PP.
00213  M01S00205.1mb     +++|*
00214  M01S00206.1mb     +++|*         ENTRY  (SC - SC+4) = *SCRL* WORD WITH MONITOR LOCK-OUT BIT
00215  M01S00207.1mb     +++|*                              SET.
00216  M01S00208.1mb     +++|*
00217  M01S00209.1mb     +++|*         EXIT   (SC - SC+4) = *SCRL* WORD WITH MONITOR LOCK-OUT BIT
00218  M01S00210.1mb     +++|*                              CLEARED.
00219  M01S00211.1mb     +++|*                            = WRITTEN TO CENTRAL MEMORY.
00220  M01S00212.1mb     +++|*                PP DROPPED.
00221  M01S00213.1mb     +++|*                16-BIT INSTRUCTIONS CLEARED, IF PRESENT.
00222  M01S00214.1mb     +++|*                EXIT TO *PPR*.
00223  M01S00215.1mb     +++|*
00224  M01S00216.1mb     +++|*         NOTE   THE *DPPM* FUNCTION IN THIS ROUTINE IS
00225  M01S00217.1mb     +++|*                EXECUTED OUT OF NORMAL ORDER TO PREVENT
00226  M01S00218.1mb     +++|*                PP SATURATION WHEN *1MB* IS STEPPED
00227  M01S00219.1mb     +++|*                ON A *DPPM*.
00228  M01S00220.1mb     +++|
00229  M01S00221.1mb     +++|
00230  M01S00003.ns2660  +++| .A       IFC    EQ,/"QUAL"/1MB/
00231  M01S00004.ns2660  +++| DPP5     LJM    LED         RELOAD DFT FOR SECOND TOP OF HOUR
00232  M01S00005.ns2660  +++| .A       ENDIF
00233  M01S00006.ns2660  +++|
00234  M01S00222.1mb     +++| DPP      MONITOR DPPM       DROP PP
Line S00223 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00223.ns2660  ---| DPP0     LDN    0           CLEAR *1CK* IR ADDRESS
00236  M01S00007.ns2660  +++| DPPA     EQU    DPP
00237  M01S00008.ns2660  +++|*         UJN    DPP5        (SECOND PASS TOP OF HOUR)
00238  M01S00009.ns2660  +++| DPP1     LDN    0           CLEAR *1CK* IR ADDRESS
00239  M01S00224.1mb     +++|          STD    SC+2
Line S00225 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00225.ns2660  ---| DPP1     LDD    SC          CLEAR MONITOR LOCK-OUT BIT
00241  M01S00010.ns2660  +++| DPP2     LDD    SC          CLEAR MONITOR LOCK-OUT BIT
00242  M01S00226.1mb     +++|          LPC    3777
00243  M01S00227.1mb     +++|          STD    SC
Line S00228 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00228.ns2660  ---| DPP2     LDC    SCRL        UPDATE *SCRL*
00245  M01S00011.ns2660  +++| DPP3     LDC    SCRL        UPDATE *SCRL*
00246  M01S00229.1mb     +++|          CWD    SC
00247  M01S00230.1mb     +++| .A       IFC    EQ,/"QUAL"/1MB/
Line S00231 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00231.ns2660  ---| DPPA     LDN    0
00249  M01S00012.ns2660  +++| DPPB     LDN    0
00250  M01S00232.1mb     +++|*         LDN    1           (16-BIT INSTRUCTIONS PRESENT)
Line S00233 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00251  M02S00233.ns2660  ---|          ZJN    DPP3        IF NO 16-BIT INSTRUCTIONS
00252  M01S00013.ns2660  +++|          ZJN    DPP4        IF NO 16-BIT INSTRUCTIONS
00253  M01S00234.1mb     +++|          RJM    CPM         CLEAR PP MEMORY
00254  M01S00235.1mb     +++|          LDC    400000B+LINS  ADDRESS OF INSTRUCTION TABLE
00255  M01S00236.1mb     +++|          RJM    DLI         CLEAR 16-BIT INSTRUCTIONS
00256  M01S00237.1mb     +++| .A       ENDIF
Line S00238 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00238.ns2660  ---| DPP3     LJM    PPR         EXIT TO PP RESIDENT
00258  M01S00014.ns2660  +++| DPP4     LJM    PPR         EXIT TO PP RESIDENT
00259  M01S00239.1mb     +++| IBM      SPACE  4,10
00260  M01S00240.1mb     +++|**        *BML* MESSAGE BUFFER.
00261  M01S00241.1mb     +++|
00262  M01S00242.1mb     +++|
00263  M01S00243.1mb     +++| IBMF     VFD    12/0,12/0,6/0,6/0,24/0  MESSAGE ID/SYMPTOM CODE
00264  M01S00244.1mb     +++| IBMG     VFD    12/0,9/0,1/0,2/0,36/0  MESSAGE CONTINUATION BIT
00265  M01S00245.1mb     +++| IBMH     VFD    60/0        BML MESSAGE BUFFER (4 CM WORDS)
00266  M01S00246.1mb     +++|          VFD    60/0
00267  M01S00247.1mb     +++|          VFD    60/0
00268  M01S00248.1mb     +++|          VFD    60/0
00269  M01S00249.1mb     +++| IBMHL    EQU    *           END OF BML BUFFER
00270  M01S00250.1mb     +++| RSM      SPACE  4,10
00271  M01S00251.1mb     +++|**        RSM - REQUEST STEP MODE.
00272  M01S00252.1mb     +++|*
00273  M01S00253.1mb     +++|*         ENTRY  (SC - SC+4) = (SCRL).
00274  M01S00254.1mb     +++|*
00275  M01S00255.1mb     +++|*         EXIT   STEP MODE SET.
00276  M01S00256.1mb     +++|*
00277  M01S00257.1mb     +++|*         USES   CM - CM+4, SC - SC+4.
00278  M01S00258.1mb     +++|*
00279  M01S00259.1mb     +++|*         MACROS MONITOR.
00280  M01S00260.1mb     +++|
00281  M01S00261.1mb     +++|
00282  M01S00262.1mb     +++| RSM      SUBR               ENTRY/EXIT
00283  M01S00263.1mb     +++|          LDD    SC
00284  M01S00264.1mb     +++|          SHN    21-11
00285  M01S00265.1mb     +++|          MJN    RSMX        IF STEP ALREADY REQUESTED
00286  M01S00266.1mb     +++|          LDD    TH          SET REQUEST BIT AND WRITE SCRL
00287  M01S00267.1mb     +++|          RAD    SC
00288  M01S00268.1mb     +++|          LDC    SCRL
00289  M01S00269.1mb     +++|          CWD    SC
00290  M01S00270.1mb     +++|          LDD    SC
00291  M01S00271.1mb     +++|          SHN    21-10
00292  M01S00272.1mb     +++|          MJN    RSMX        IF STEP SET
00293  M01S00273.1mb     +++|          LDN    0           CLEAR EJT ORDINAL
00294  M01S00274.1mb     +++|          STD    CM+2
00295  M01S00275.1mb     +++|          LDN    DPPM        STEP ON DROP PP
00296  M01S00276.1mb     +++|          STD    CM+3
00297  M01S00277.1mb     +++|          LMD    TH
00298  M01S00278.1mb     +++|          STD    CM+4
Line S00279 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2726
Seq #  *Modification Id* Act 
----------------------------+
00299  M02S00279.ns2726  ---|          LDN    3           SET EMERGENCY STEP SUBFUNCTION
00300  M01S00001.ns2726  +++|          LDN    ESPS        SET EMERGENCY STEP SUBFUNCTION
00301  M01S00280.1mb     +++|          STD    CM+1
00302  M01S00281.1mb     +++|          MONITOR DSRM       SET STEP MODE
00303  M01S00282.1mb     +++|          LDC    SCRL        READ *SCRL*
00304  M01S00283.1mb     +++|          CRD    SC
00305  M01S00284.1mb     +++|          UJN    RSMX        RETURN
00306  M01S00285.1mb     +++|
00307  M01S00286.1mb     +++| COMMON   RMT
00308  M01S00287.1mb     +++| COMMON   ENDM
00309  M01S00288.1mb     +++|          SPACE  4,10
00310  M01S00289.1mb     +++|*         MACROS.
00311  M01S00002.ns2769  +++| TBLM     SPACE  4,10
00312  M01S00003.ns2769  +++|**        TBLM - CREATE TABLE ENTRY MACRO.
00313  M01S00004.ns2769  +++|*
00314  M01S00005.ns2769  +++|*NAM      TBLM
00315  M01S00006.ns2769  +++|*
00316  M01S00007.ns2769  +++|*         ENTRY  NAM = TABLE NAME.
00317  M01S00008.ns2769  +++|*
00318  M01S00009.ns2769  +++|*         EXIT   NAM_E MACRO DEFINED.
00319  M01S00010.ns2769  +++|
00320  M01S00011.ns2769  +++|
00321  M01S00012.ns2769  +++|          PURGMAC  TBLM
00322  M01S00013.ns2769  +++|
00323  M01S00014.ns2769  +++|          MACRO  TBLM,NAM
00324  M01S00015.ns2769  +++|          PURGMAC  NAM_E
00325  M01S00016.ns2769  +++| NAM_E    MACRO  ADDR
00326  M01S00017.ns2769  +++|          LOCAL  A
00327  M01S00018.ns2769  +++|          MACREF NAM_E
00328  M01S00019.ns2769  +++|          NOREF  A
00329  M01S00020.ns2769  +++| A        EQU    ADDR
00330  M01S00021.ns2769  +++| T_NAM    RMT
00331  M01S00022.ns2769  +++|          CON    A
00332  M01S00023.ns2769  +++|          RMT
00333  M01S00024.ns2769  +++| TBLM     ENDM
00334  M01S00025.ns2769  +++| EMBE     SPACE  4,10
00335  M01S00026.ns2769  +++|**        EMBE - ERROR MESSAGE TABLE ENTRY.
00336  M01S00027.ns2769  +++|*
00337  M01S00028.ns2769  +++|*         THIS MACRO GENERATES AN ENTRY IN REMOTE LIST *TEMB*
00338  M01S00029.ns2769  +++|*         THAT CONTAINS THE ADDRESS OF AN INSTRUCTION WHICH
00339  M01S00030.ns2769  +++|*         REQUIRES THE FWA OF THE ERROR MESSAGE TABLE.
00340  M01S00031.ns2769  +++|*
00341  M01S00032.ns2769  +++|*         EMBE   ADDR
00342  M01S00033.ns2769  +++|*
00343  M01S00034.ns2769  +++|*         ENTRY  (ADDR) = ADDRESS OF INSTRUCTION.
00344  M01S00035.ns2769  +++|*
00345  M01S00036.ns2769  +++|*         EXIT   ADDRESS IS ADDED TO THE REMOTE BLOCK *TEMB*.
00346  M01S00037.ns2769  +++|
00347  M01S00038.ns2769  +++|
00348  M01S00039.ns2769  +++| EMB      TBLM
00349  M01S00040.ns2769  +++|          SPACE  4,10
00350  M01S00290.1mb     +++| RPTR     SPACE  4,15
00351  M01S00291.1mb     +++|**        RPTR - CONVERT ADDRESS FROM R-REGISTER FORMAT.
00352  M01S00292.1mb     +++|*
00353  M01S00293.1mb     +++|*         RPTR   DC,ADDR
00354  M01S00294.1mb     +++|*
00355  M01S00295.1mb     +++|*         ENTRY  *DC* = DIRECT CELL LOCATION OF R-REGISTER FORMAT
00356  M01S00296.1mb     +++|*                       ADDRESS (R-UPPER IN *DC*+1 IS ASSUMED = 0).
00357  M01S00297.1mb     +++|*                *ADDR* = LOCATION TO STORE CONVERTED ADDRESS.
00358  M01S00298.1mb     +++|*
00359  M01S00299.1mb     +++|*         EXIT   (ADDR - ADDR+1) = CONVERTED ADDRESS.
00360  M01S00300.1mb     +++|*                (A) = CONVERTED ADDRESS, IF *ADDR* NOT SPECIFIED.
00361  M01S00301.1mb     +++|
00362  M01S00302.1mb     +++|
00363  M01S00303.1mb     +++|          PURGMAC  RPTR
00364  M01S00304.1mb     +++|
00365  M01S00305.1mb     +++| RPTR     MACRO  D,A
00366  M01S00306.1mb     +++|          LDD    D+2         R-LOWER
00367  M01S00307.1mb     +++|          SHN    6
00368  M01S00308.1mb     +++|          LMD    D           OFFSET
00369  M01S00309.1mb     +++| .A       IFC    NE,$A$$
00370  M01S00310.1mb     +++|          STM    A+1
00371  M01S00311.1mb     +++|          SHN    -14
00372  M01S00312.1mb     +++|          RAM    A
00373  M01S00313.1mb     +++| .A       ENDIF
00374  M01S00314.1mb     +++| RPTR     ENDM
Line S00315 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00375  M02S00315.ns2769  ---|          SPACE  4,10
00376  M01S00316.1mb     +++|**        COMMON DECKS.
00377  M01S00317.1mb     +++|
00378  M01S00318.1mb     +++|
00379  M01S00319.1mb     +++|*CALL     COMPMAC
00380  M01S00320.1mb     +++| RICHI$   BSS    0
00381  M01S00321.1mb     +++|*CALL     COMPCHI
00382  M01S00322.1mb     +++|*CALL     COMPIOU
00383  M01S00323.1mb     +++|*CALL     COMPMRM
00384  M01S00324.1mb     +++|*CALL     COMSCPS
00385  M01S00325.1mb     +++|*CALL     COMSDFS
00386  M01S00326.1mb     +++|          LIST   X
00387  M01S00327.1mb     +++|*CALL     COMSDFT
00388  M01S00328.1mb     +++|          LIST   *
00389  M01S00329.1mb     +++|          QUAL   DSL
00390  M01S00330.1mb     +++|*CALL     COMSDSL
00391  M01S00331.1mb     +++|          QUAL   *
00392  M01S00332.1mb     +++|*CALL     COMSDST
00393  M01S00333.1mb     +++|*CALL     COMSEVT
00394  M01S00334.1mb     +++|*CALL     COMSIOU
00395  M01S00335.1mb     +++|*CALL     COMSMSC
00396  M01S00001.272l774 +++|          QUAL   MSP
00397  M01S00336.1mb     +++|*CALL     COMSMSP
00398  M01S00002.272l774 +++|          QUAL   *
00399  M01S00337.1mb     +++|*CALL     COMSMST
00400  M01S00338.1mb     +++|*CALL     COMSPIM
00401  M01S00339.1mb     +++|*CALL     COMSREM
00402  M01S00340.1mb     +++|          QUAL   SSD
00403  M01S00341.1mb     +++|*CALL     COMSSSD
00404  M01S00342.1mb     +++|          QUAL   *
00405  M01S00343.1mb     +++|          LIST   X
00406  M01S00344.1mb     +++|*CALL     COMSSCR
00407  M01S00345.1mb     +++|          LIST   *
00408  M01S00346.1mb     +++|          QUAL   1DS
00409  M01S00347.1mb     +++|*CALL     COMS1DS
00410  M01S00348.1mb     +++|          QUAL   *
00411  M01S00349.1mb     +++|          TITLE  MAINTENANCE REGISTER PROCESSING.
00412  M01S00350.1mb     +++|***       MEP - MAINTENANCE CHANNEL ERROR PROCESSOR.
00413  M01S00351.1mb     +++|*
00414  M01S00352.1mb     +++|*         *MEP* IS THE MAIN DRIVER THAT PROCESSES THE LOGGING OF ERRORS
00415  M01S00353.1mb     +++|*         THAT WERE DETECTED BY *DFT*.  *1MB* IS CALLED BY *MTR* TO
00416  M01S00354.1mb     +++|*         LOAD *DFT* IN THE NON-DEDICATED CASE.  *1MB* WILL REACT TO
00417  M01S00355.1mb     +++|*         THE OS ACTION CODES SUPPLIED BY *DFT* AND LOG THE MAINTENANCE
00418  M01S00356.1mb     +++|*         REGISTERS TO THE *BML*.
00419  M01S00357.1mb     +++|          SPACE  4,10
00420  M01S00358.1mb     +++|***       DAYFILE MESSAGES.
00421  M01S00359.1mb     +++|*
00422  M01S00360.1mb     +++|*
00423  M01S00361.1mb     +++|*         * 1MB - CALL ERROR.* = *1MB* WAS CALLED WITH AN ILLEGAL
00424  M01S00362.1mb     +++|*         FUNCTION BIT CODE.
00425  M01S00363.1mb     +++|          SPACE  4,20
00426  M01S00364.1mb     +++|***       SYSTEM CONTROL POINT MESSAGES.
00427  M01S00365.1mb     +++|*
00428  M01S00366.1mb     +++|*
00429  M01S00367.1mb     +++|*         HH.MM.SS ERR=DEMMXXXXXXXX
00430  M01S00368.1mb     +++|*
00431  M01S00369.1mb     +++|*         HH.MM.SS = TIME THE ERROR WAS DETECTED, IF VERSION 4 OR ABOVE
00432  M01S00370.1mb     +++|*                    *DFT* AND THE TIME WAS AVAILABLE FROM THE WALL
00433  M01S00371.1mb     +++|*                    CLOCK CHIP.
00434  M01S00372.1mb     +++|*                  = TIME THE ERROR WAS LOGGED BY *1MB*, IF *DFT*
00435  M01S00373.1mb     +++|*                    VERSION 3, OR THE TIME WAS NOT AVAILABLE TO *DFT*.
00436  M01S00374.1mb     +++|*
00437  M01S00375.1mb     +++|*         E = ELEMENT SPECIFIER.
00438  M01S00376.1mb     +++|*           = C, FOR PROCESSOR 0.
00439  M01S00377.1mb     +++|*           = D, FOR PROCESSOR 1.
00440  M01S00378.1mb     +++|*           = I, FOR IOU 0.
00441  M01S00379.1mb     +++|*           = J, FOR IOU 1.
00442  M01S00380.1mb     +++|*           = M, FOR MEMORY.
00443  M01S00381.1mb     +++|*           = A, FOR *DFT* INTERNAL ERROR.
00444  M01S00382.1mb     +++|*
00445  M01S00383.1mb     +++|*         MM = MODEL NUMBER OF THE SPECIFIED ELEMENT.
00446  M01S00384.1mb     +++|*              THIS FIELD IS NOT PRESENT IF THE ELEMENT SPECIFIER IS
00447  M01S00385.1mb     +++|*              *A*.
00448  M01S00386.1mb     +++|*
00449  M01S00387.1mb     +++|*         XXXXXXXX = MODEL DEPENDENT DATA FURTHER DESCRIBING THE ERROR.
00450  M01S00388.1mb     +++|*                    THIS NORMALLY CONSISTS OF THE THREE CHARACTER
00451  M01S00389.1mb     +++|*                    *DFT* ANALYSIS CODE.
00452  M01S00390.1mb     +++|*
00453  M01S00391.1mb     +++|*
00454  M01S00392.1mb     +++|*         IN THE FOLLOWING MESSAGES, THE HEXADECIMAL NUMBER IN THE
00455  M01S00393.1mb     +++|*         MESSAGE IS THE *DFT* ANALYSIS CODE WHICH CAUSED THE MESSAGE.
00456  M01S00394.1mb     +++|*
00457  M01S00395.1mb     +++|*         *(204) FATAL CPU ERROR*
00458  M01S00396.1mb     +++|*         *(215) FATAL MCH ERROR*
00459  M01S00397.1mb     +++|*
00460  M01S00398.1mb     +++|*         THE FOLLOWING MESSAGE IS POSTED WHEN A POWER OR ENVIRONMENT
00461  M01S00399.1mb     +++|*         WARNING HAS CLEARED.
00462  M01S00400.1mb     +++|*
00463  M01S00401.1mb     +++|*         *POWER/ENVIRONMENT NORMAL*
00464  M01S00402.1mb     +++|          SPACE  4,10
00465  M01S00403.1mb     +++|          ORG    PPFW
00466  M01S00404.1mb     +++|          QUAL   1MB
00467  M01S00405.1mb     +++|
00468  M01S00406.1mb     +++| MEP      BSS    0           ENTRY
00469  M01S00407.1mb     +++|          LJM    MEP1        PRESET
00470  M01S00408.1mb     +++|
00471  M01S00409.1mb     +++|*         GLOBAL STORAGE.
00472  M01S00410.1mb     +++|
00473  M01S00411.1mb     +++| DFTV     CON    0           *DFT* VERSION (0 = VERSION 3)
00474  M01S00412.1mb     +++| SSCW     CON    0,0         SUPPORTIVE STATUS CONTROL WORD ADDRESS
00475  M01S00413.1mb     +++|          SPACE  4,10
00476  M01S00414.1mb     +++|**        COMMON SUBROUTINES.
00477  M01S00415.1mb     +++|
00478  M01S00416.1mb     +++|
00479  M01S00417.1mb     +++|          COMMON
00480  M01S00418.1mb     +++|
00481  M01S00419.1mb     +++|          LIST   D
00482  M01S00420.1mb     +++| COMMON   HERE
00483  M01S00421.1mb     +++|          LIST   *
00484  M01S00422.1mb     +++|          SPACE  4,10
00485  M01S00423.1mb     +++|*         COMMON DECKS WITH NO 16-BIT INSTRUCTIONS.
00486  M01S00424.1mb     +++|
00487  M01S00425.1mb     +++|
00488  M01S00426.1mb     +++|*CALL     COMPMRA
00489  M01S00427.1mb     +++|*CALL     COMPACS
00490  M01S00428.1mb     +++|*CALL     COMT8AD
00491  M01S00429.1mb     +++|          SPACE  4,10
00492  M01S00430.1mb     +++|*         SYSTEM CONTROL POINT MESSAGES.
00493  M01S00431.1mb     +++|
00494  M01S00432.1mb     +++|
00495  M01S00433.1mb     +++| MSFS     DATA   28C HH.MM.SS.ERR=XXXXXXXXXXXX
00496  M01S00434.1mb     +++| CSHM     EQU    MSFS        DEFAULT *CSHM* MESSAGE
00497  M01S00435.1mb     +++| MSCP     DATA   C*(204) FATAL CPU ERROR*
00498  M01S00436.1mb     +++| MSME     DATA   C*(215) FATAL MCH ERROR*
00499  M01S00437.1mb     +++| MSPN     DATA   C*POWER/ENVIRONMENT NORMAL*
00500  M01S00438.1mb     +++| TOSC     SPACE  4,10
00501  M01S00439.1mb     +++|**        TABLE OF OS ACTION CODES.
00502  M01S00440.1mb     +++|
00503  M01S00441.1mb     +++| TOSC     INDEX
00504  M01S00442.1mb     +++|          INDEX  EWAC,ENW    ENVIRONMENT WARNING
00505  M01S00443.1mb     +++|          INDEX  LPAC,LPW    LONG POWER WARNING
00506  M01S00444.1mb     +++|          INDEX  SPAC,SPW    SHORT POWER WARNING
00507  M01S00445.1mb     +++|          INDEX  WCAC,WCL    WARNING CLEAR
00508  M01S00446.1mb     +++|          INDEX  FIAC,FIE    FATAL IOU ERROR
00509  M01S00447.1mb     +++|          INDEX  NVAC,NIE    NOS/VE IOU ERROR
00510  M01S00448.1mb     +++|          INDEX  UMAC,MEP6   FATAL CM ERROR
00511  M01S00449.1mb     +++|          INDEX  MBAC,MOB    MULTIPLE ODD BIT ERROR
00512  M01S00450.1mb     +++|          INDEX  UPAC,MEP6   FATAL CPU ERROR
00513  M01S00451.1mb     +++|          INDEX  UIAC,FIE    UNCORRECTED IOU ERROR
00514  M01S00452.1mb     +++|          INDEX  MXAC
00515  M01S00453.1mb     +++| TDFA     SPACE  4,10
00516  M01S00454.1mb     +++|**        TDFA - TABLE OF *DFT* ANALYSIS CODES.
00517  M01S00455.1mb     +++|*
00518  M01S00456.1mb     +++|*T        12/ *DFT* CODE, 12/ ACTION, 12/ ROUTINE
Figure

01112232429 ROUTINE ACTION *DFT* CODE3035 *DFT* CODE

00519  M01S00457.1mb     +++|*
00520  M01S00458.1mb     +++|*         FOR *DFT* VERSION 4, OR ABOVE THE PROCESSING ROUTINE IS
00521  M01S00459.1mb     +++|*         SELECTED BY FINDING A TABLE ENTRY WITH A *DFT* ANALYSIS CODE
00522  M01S00460.1mb     +++|*         AND OS ACTION CODE MATCHING THOSE PASSED BY *DFT*.  IF NO
00523  M01S00461.1mb     +++|*         MATCH IS FOUND, ROUTINE *MSC* WILL BE SELECTED.  THE TABLE
00524  M01S00462.1mb     +++|*         MUST BE IN ASCENDING ORDER BY ANALYSIS CODE.
00525  M01S00463.1mb     +++|
00526  M01S00464.1mb     +++|
00527  M01S00465.1mb     +++| TDFA     BSS    0
00528  M01S00466.1mb     +++|          CON    4,S7AC,FIE      C170 UNCORRECTED IOU ERROR (NIO PP)
00529  M01S00467.1mb     +++|          CON    4,S8AC,NIE      C180 UNCORRECTED IOU ERROR (NIO PP)
00530  M01S00468.1mb     +++|          CON    6,SSAC,FIE      FATAL IOU ERROR (NIO PP)
00531  M01S00469.1mb     +++|          CON    0#8,SSAC,FIE    FATAL IOU ERROR (CIO PP)
00532  M01S00470.1mb     +++|          CON    0#9,S7AC,FIE    C170 UNCORRECTED IOU ERROR (CIO PP)
00533  M01S00471.1mb     +++|          CON    0#9,S8AC,NIE    C180 UNCORRECTED IOU ERROR (CIO PP)
00534  M01S00472.1mb     +++|          CON    0#105,SSAC,MOB  MULTIPLE ODD BIT MEMORY ERROR
00535  M01S00473.1mb     +++|          CON    0#106,SSAC,MOB  PARTIAL WRITE PARITY ERROR
00536  M01S00474.1mb     +++|          CON    0#21E,SSAC,MOB  PARTIAL WRITE PARITY ERROR (990)
00537  M01S00475.1mb     +++|          CON    0#701,ISAC,ENW  ENVIRONMENT WARNING
00538  M01S00476.1mb     +++|          CON    0#702,ISAC,LPW  LONG POWER WARNING
00539  M01S00477.1mb     +++|          CON    0#703,SSAC,SPW  SHORT POWER WARNING
00540  M01S00478.1mb     +++|          CON    0#704,RSAC,WCL  ENVIRONMENT WARNING CLEAR
00541  M01S00479.1mb     +++|          CON    0#705,RSAC,WCL  LONG POWER WARNING CLEAR
00542  M01S00480.1mb     +++|          CON    0#706,USAC,WCL  SHORT POWER WARNING CLEAR
00543  M01S00481.1mb     +++|          CON    0#FFF           END OF TABLE
00544  M01S00001.271l716 +++| CNR      SPACE  4,15
00545  M01S00002.271l716 +++|**        CNR - CHECK FOR NOS REQUEST.
00546  M01S00003.271l716 +++|*
00547  M01S00004.271l716 +++|*         THIS ROUTINE IS CALLED IF *DFT* IS IN DEDICATED MODE AND
00548  M01S00005.271l716 +++|*         THERE IS A NOS REQUEST PRESENT.  IT RESERVES THE CIP
00549  M01S00006.271l716 +++|*         CHANNEL, SETS THE REQUEST STATUS = *ACTIVE*, WAITS FOR THE
00550  M01S00007.271l716 +++|*         REQUEST TO BE PROCESSED, AND RELEASES THE CIP CHANNEL.
00551  M01S00008.271l716 +++|*
00552  M01S00009.271l716 +++|*         USES   CM - CM+4, T1 - T1+4.
00553  M01S00010.271l716 +++|*
00554  M01S00011.271l716 +++|*         CALLS  CRQ, SDA.
00555  M01S00012.271l716 +++|*
00556  M01S00013.271l716 +++|*         MACROS DCHAN, DELAY, RCHAN.
00557  M01S00014.271l716 +++|
00558  M01S00015.271l716 +++|
00559  M01S00016.271l716 +++| CNR      SUBR               ENTRY/EXIT
00560  M01S00017.271l716 +++|          RJM    SDA         READ NOS REQUEST HEADER
00561  M01S00018.271l716 +++|          CRD    T1
00562  M01S00019.271l716 +++|          LDD    T1+4        CHECK REQUEST STATUS
00563  M01S00020.271l716 +++|          LMN    STRY
00564  M01S00021.271l716 +++|          NJN    CNRX        IF NOT STATUS = *READY*
00565  M01S00022.271l716 +++|          LDN    DSAL        LOCATE CIP CHANNEL
00566  M01S00023.271l716 +++|          CRD    CM
00567  M01S00024.271l716 +++|          LDD    CM+4        RESERVE CIP CHANNEL
00568  M01S00025.271l716 +++|          LPN    77
00569  M01S00026.271l716 +++|          STM    CNRA
00570  M01S00027.271l716 +++|          RCHAN
00571  M01S00028.271l716 +++|          RJM    CRQ         CHECK REQUEST FOR SPECIAL PROCESSING
00572  M01S00029.271l716 +++|          LDN    STAC        SET STATUS = *ACTIVE*
00573  M01S00030.271l716 +++|          STD    T1+4
00574  M01S00031.271l716 +++|          RJM    SDA         REWRITE NOS REQUEST HEADER
00575  M01S00032.271l716 +++|          CWD    T1
00576  M01S00033.271l716 +++|
00577  M01S00034.271l716 +++|*         WAIT FOR REQUEST TO BE PROCESSED BY *DFT*.
00578  M01S00035.271l716 +++|
00579  M01S00036.271l716 +++| CNR1     DELAY
00580  M01S00037.271l716 +++|          RJM    SDA         READ NOS REQUEST HEADER
00581  M01S00038.271l716 +++|          CRD    T1
00582  M01S00039.271l716 +++|          LDD    T1+4
00583  M01S00040.271l716 +++|          LMN    STAC
00584  M01S00041.271l716 +++|          ZJN    CNR1        IF STATUS = *ACTIVE* STILL PRESENT
00585  M01S00042.271l716 +++|          LDC    **          RELEASE CIP CHANNEL
00586  M01S00043.271l716 +++| CNRA     EQU    *-1
00587  M01S00044.271l716 +++|          DCHAN
00588  M01S00045.271l716 +++|          LJM    CNRX        RETURN
00589  M01S00046.271l716 +++| CRQ      SPACE  4,10
00590  M01S00047.271l716 +++|**        CRQ - CHECK *DFT* REQUEST FOR SPECIAL PROCESSING.
00591  M01S00048.271l716 +++|*
00592  M01S00049.271l716 +++|*         EXIT   *UADM/FRAS* ISSUED IF NECESSARY.
00593  M01S00050.271l716 +++|*
00594  M01S00051.271l716 +++|*         CALLS  SDA.
00595  M01S00052.271l716 +++|*
00596  M01S00053.271l716 +++|*         USES   CM - CM+4.
00597  M01S00054.271l716 +++|*
00598  M01S00055.271l716 +++|*         MACROS MONITOR.
00599  M01S00056.271l716 +++|
00600  M01S00057.271l716 +++|
00601  M01S00058.271l716 +++| CRQ      SUBR               ENTRY/EXIT
00602  M01S00059.271l716 +++|
00603  M01S00060.271l716 +++|*         THE FOLLOWING CODE ASSUMES THERE IS ONLY ONE REQUEST BUFFER
00604  M01S00061.271l716 +++|*         WHICH IMMEDIATELY FOLLOWS THE REQUEST HEADER.
00605  M01S00062.271l716 +++|
00606  M01S00063.271l716 +++|          RJM    SDA         READ REQUEST
00607  M01S00064.271l716 +++|          ADN    1
00608  M01S00065.271l716 +++|          CRM    CRQA,ON
00609  M01S00066.271l716 +++|          LDM    CRQA        CHECK REQUEST
00610  M01S00067.271l716 +++|          LMN    RQSF
00611  M01S00068.271l716 +++|          NJN    CRQX        IF NO *UADM* NEEDED
00612  M01S00069.271l716 +++|          LDC    FRAS        SET *UADM* SUBFUNCTION
00613  M01S00070.271l716 +++|          STM    CRQA
00614  M01S00071.271l716 +++|          LDD    MA          WRITE REQUEST TO MESSAGE BUFFER
00615  M01S00072.271l716 +++|          CWM    CRQA,ON
00616  M01S00073.271l716 +++|          LDN    ZERL        SET *UADM* PARAMETERS
00617  M01S00074.271l716 +++|          CRD    CM
00618  M01S00075.271l716 +++|          LDN    1           SET REQUEST COUNT
00619  M01S00076.271l716 +++|          STD    CM+1
00620  M01S00077.271l716 +++|*         STD    CM+2        (NO DROP FLAG IGNORED)
00621  M01S00078.271l716 +++|          MONITOR  UADM      ALERT *CPUMTR* OF PENDING *FRC* UPDATE
00622  M01S00079.271l716 +++|          UJN    CRQX        RETURN
00623  M01S00080.271l716 +++|
00624  M01S00081.271l716 +++|
00625  M01S00082.271l716 +++| CRQA     BSS    5
00626  M01S00482.1mb     +++| MEP      SPACE  4,20
00627  M01S00483.1mb     +++|*         MAIN PROGRAM.
00628  M01S00484.1mb     +++|
00629  M01S00485.1mb     +++|**        PROGRAMMING NOTE.
00630  M01S00486.1mb     +++|*
00631  M01S00487.1mb     +++|*         WHENEVER A CALL TO *DFM* IS MADE, IT MAY BE NECESSARY FOR
00632  M01S00488.1mb     +++|*         *1DD* TO BE INVOKED TO FLUSH THE DAYFILE BUFFER.  *1DD*
00633  M01S00489.1mb     +++|*         OVERLAYS A PART OF THE PP, WHICH IT RESTORES WHEN COMPLETE.
00634  M01S00490.1mb     +++|*         HOWEVER, SINCE ONLY 12-BIT DATA CAN BE RESTORED BY THIS
00635  M01S00491.1mb     +++|*         PROCESS, *1MB* MUST NEVER DEPEND ON 16-BIT DATA BEING
00636  M01S00492.1mb     +++|*         PRESERVED ACROSS A *DFM* CALL IN THE PART OF THE PP USED BY
00637  M01S00493.1mb     +++|*         *1DD*.  FIRST, ANY *1MB* CODE CONTAINING LONG INSTRUCTIONS
00638  M01S00494.1mb     +++|*         MUST NOT START BEFORE LOCATION *DDLW*, DEFINED IN *COMSMSC*
00639  M01S00495.1mb     +++|*         AS THE LAST WORD USED BY *1DD*.  SECOND, SINCE ANY DIRECT
00640  M01S00496.1mb     +++|*         CELLS CONTAINING 16-BIT DATA WILL NOT BE INTACT AFTER *1DD*
00641  M01S00497.1mb     +++|*         IS COMPLETE, CARE SHOULD BE TAKEN EITHER TO STORE 16-BIT DATA
00642  M01S00498.1mb     +++|*         IN THE PROTECTED AREA OF *1MB*, OR TO RE-READ THE DATA FROM
00643  M01S00499.1mb     +++|*         CM AFTER THE *DFM* CALL.
00644  M01S00500.1mb     +++|
00645  M01S00501.1mb     +++|
00646  M01S00502.1mb     +++| .MEP     MAX    *,DDLW
00647  M01S00503.1mb     +++|          ORG    .MEP
00648  M01S00504.1mb     +++|
00649  M01S00505.1mb     +++| MEP1     RJM    PRS         PRESET FOR *1MB*
00650  M01S00506.1mb     +++|          LDK    EIBP        READ *EICB* POINTER
00651  M01S00507.1mb     +++|          CRD    CN
00652  M01S00508.1mb     +++|          ADN    INWL-EIBP   CHECK *MCH* ERROR BIT
00653  M01S00509.1mb     +++|          CRD    CM
00654  M01S00510.1mb     +++|          LDD    CN+3        SAVE *EICB* ADDRESS
00655  M01S00511.1mb     +++|          RAM    DSPA
00656  M01S00512.1mb     +++|          LDD    CN+4
00657  M01S00513.1mb     +++|          RAM    DSPA+1
00658  M01S00514.1mb     +++|          LDD    CM+4
00659  M01S00515.1mb     +++|          SHN    21-5
00660  M01S00516.1mb     +++|          MJP    MRER        IF MCH ERROR IN PROGRESS
00661  M01S00517.1mb     +++|          LDC    LINS        DEFINE LONG INSTRUCTIONS
00662  M01S00518.1mb     +++|          RJM    DLI
Line S00519 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00519.ns2660  ---|          AOM    DPPA
00664  M01S00015.ns2660  +++|          AOM    DPPB
00665  M01S00520.1mb     +++|          RJM    SBA         SET BUFFER ADDRESSES
00666  M01S00521.1mb     +++|          RJM    CTP         CHECK FOR TIME PROCESSING
00667  M01S00522.1mb     +++|          LDDL   DC+3
00668  M01S00523.1mb     +++|          SHN    21-DCE7
00669  M01S00524.1mb     +++|          MJN    MEP2        IF ERRORS LOGGED IN M/R BUFFER
00670  M01S00525.1mb     +++|          LJM    LED         LOAD AND EXECUTE *DFT*
00671  M01S00526.1mb     +++|
00672  M01S00527.1mb     +++| MEP2     LCN    0           CLEAR C170 ERROR PRESENT FLAG
00673  M01S00528.1mb     +++|          STDL   CN
00674  M01S00529.1mb     +++|          STDL   CN+1
00675  M01S00530.1mb     +++|          STDL   CN+2
00676  M01S00531.1mb     +++|          SCBN   DCE7
00677  M01S00532.1mb     +++|          STDL   CN+3
00678  M01S00533.1mb     +++|          RJM    DOB
00679  M01S00534.1mb     +++|          ADK    DFCW
00680  M01S00535.1mb     +++|          RDCL   CN
00681  M01S00536.1mb     +++| MEP3     LDN    1           SET INTERVAL BETWEEN CONTROL WORDS
00682  M01S00537.1mb     +++|          STD    T2
00683  M01S00083.271l716 +++|          RJM    SCA         SET ADDRESS OF CONTROL WORDS
00684  M01S00538.1mb     +++|          LDD    DC+2        SET NUMBER OF M/R BUFFER CONTROL WORDS
00685  M01S00539.1mb     +++|          LPC    377
00686  M01S00540.1mb     +++|          RJM    FOM         FIND OLDEST M/R BUFFER CONTROL WORD
00687  M01S00541.1mb     +++|          STM    FSSB        SAVE M/R CONTROL WORD OFFSET
00688  M01S00542.1mb     +++|          STM    LMRD        SET NON-REGISTER FLAG
00689  M01S00543.1mb     +++|          ZJN    MEP4        IF NO ENTRIES PRESENT
00690  M01S00544.1mb     +++|          RJM    FSS         FIND SUPPORTIVE STATUS DATA
00691  M01S00545.1mb     +++|          UJN    MEP5        DETERMINE OS ACTION
00692  M01S00546.1mb     +++|
00693  M01S00547.1mb     +++| MEP4     RJM    FNR         FIND NON-REGISTER DATA
00694  M01S00548.1mb     +++|          NJN    MEP5        IF DATA PRESENT
00695  M01S00549.1mb     +++|          LDC    **
00696  M01S00550.1mb     +++| MEPA     EQU    *-1         AUTORESTART PENDING FLAG
00697  M01S00551.1mb     +++|          ZJP    DPP         IF AUTORESTART NOT PENDING
00698  M01S00552.1mb     +++|          LDD    IA          LOAD *1DS* TO ISSUE *AUTO*
00699  M01S00553.1mb     +++|          CWM    MEPD,ON
Line S00554 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00700  M02S00554.ns2660  ---|          LJM    DPP0        CALL *1DS* AND ENABLE *1MB* CALL
00701  M01S00016.ns2660  +++|          LJM    DPP1        CALL *1DS* AND ENABLE *1MB* CALL
00702  M01S00555.1mb     +++|
00703  M01S00556.1mb     +++| MEP5     LDD    CN+1        SET SYMPTOM CODE IN *BML*
00704  M01S00557.1mb     +++|          STM    IBMF+1
00705  M01S00558.1mb     +++|          LDDL   CN+2        SET SEQUENCE NUMBER IN *BML*
00706  M01S00559.1mb     +++|          SHN    -10
00707  M01S00560.1mb     +++|          STM    IBMG+4
00708  M01S00561.1mb     +++|          RJM    DOA         DETERMINE OS ACTION
00709  M01S00562.1mb     +++|
00710  M01S00563.1mb     +++|*         OS ACTION ROUTINES WILL RETURN HERE.
00711  M01S00564.1mb     +++|
00712  M01S00565.1mb     +++| MEP6     RJM    CTH         CHECK THRESHOLD EXCEEDED
00713  M01S00566.1mb     +++|          RJM    LMR         LOG MAINTENANCE REGISTERS
00714  M01S00567.1mb     +++|
00715  M01S00568.1mb     +++|*         CLEAR C170 VALID DATA FLAG, LOGGING ACTION FLAG, INTERLOCK
00716  M01S00569.1mb     +++|*         FLAG AND THRESHOLD EXCEEDED FLAG IN M/R BUFFER CONTROL WORD.
00717  M01S00570.1mb     +++|
00718  M01S00571.1mb     +++|          LDD    MB          READ CONTROL WORD
00719  M01S00572.1mb     +++|          SHN    14
00720  M01S00573.1mb     +++|          LMD    MB+1
00721  M01S00574.1mb     +++|          CRDL   CN
00722  M01S00575.1mb     +++|          LDDL   CN+2        CLEAR FLAGS
00723  M01S00576.1mb     +++| MEPC     SCBN   (MRV7,MRIL,MRLG,MRTH)
00724  M01S00577.1mb     +++|*         SCBN   (MRV7,MRIL)  (180 LOGGING)
00725  M01S00578.1mb     +++|          STDL   CN+2
00726  M01S00579.1mb     +++|          LDD    MB          REWRITE M/R BUFFER CONTROL WORD
00727  M01S00580.1mb     +++|          SHN    14
00728  M01S00581.1mb     +++|          LMD    MB+1
00729  M01S00582.1mb     +++|          CWDL   CN
00730  M01S00583.1mb     +++|          LJM    MEP3        PROCESS NEXT M/R ENTRY
00731  M01S00584.1mb     +++|
00732  M01S00585.1mb     +++| MEPD     VFD    18/0L1DS,6/0,2/0,1/0,3/0,6//1DS/IASF,12/0,12/0
00733  M01S00586.1mb     +++|          TITLE  OS ACTION CODE PROCESSING ROUTINES.
00734  M01S00587.1mb     +++|          SPACE 4,10
00735  M01S00588.1mb     +++|***       OS ACTION CODE PROCESSING ROUTINES.
00736  M01S00589.1mb     +++|*
00737  M01S00590.1mb     +++|*         ENTRY  (MB - MB+1) = ADDRESS OF M/R CONTROL WORD.
00738  M01S00591.1mb     +++|*                (DC - DC+3) = *DFT* CONTROL WORD.
00739  M01S00592.1mb     +++|*                (CN - CN+3) = M/R BUFFER CONTROL WORD.
00740  M01S00593.1mb     +++|*
00741  M01S00594.1mb     +++|*         EXIT   TO *MEP6* TO LOG MAINTENANCE REGISTERS.
00742  M01S00595.1mb     +++|*                TO *CSH* TO CHECKPOINT AND HANG.
00743  M01S00596.1mb     +++| ENW      SPACE  4,10
00744  M01S00597.1mb     +++|**        ENW - ENVIRONMENT WARNING.
00745  M01S00598.1mb     +++|*
00746  M01S00599.1mb     +++|*         EXIT   TO *WWC* TO WAIT FOR WARNING CLEAR.
00747  M01S00600.1mb     +++|*
00748  M01S00601.1mb     +++|*         USES   CM - CM+3.
00749  M01S00602.1mb     +++|*
00750  M01S00603.1mb     +++|*         CALLS  CCI, CCM, CKC, CKP, DOB, LMR, RSM.
00751  M01S00604.1mb     +++|
00752  M01S00605.1mb     +++|
00753  M01S00606.1mb     +++| ENW      BSS    0           ENTRY
00754  M01S00607.1mb     +++|          RJM    CCM         CREATE CONSOLE MESSAGE
00755  M01S00608.1mb     +++|          LDD    SC+2
00756  M01S00609.1mb     +++|          NJN    ENW1        IF *1CK* ALREADY CALLED
00757  M01S00610.1mb     +++|          RJM    LMR         LOG MAINTENANCE REGISTERS
00758  M01S00611.1mb     +++| ENW1     LDN    ZERL        SET C170 ERROR FLAG
00759  M01S00612.1mb     +++|          CRDL   CM
00760  M01S00613.1mb     +++|          AOD    CM+3
00761  M01S00614.1mb     +++|          ERRNZ  DCE7        CODE DEPENDS ON VALUE
00762  M01S00615.1mb     +++|          RJM    DOB
00763  M01S00616.1mb     +++|          ADK    DFCW
00764  M01S00617.1mb     +++|          RDSL   CM
00765  M01S00618.1mb     +++|          RJM    CCI         CLEAR M/R CONTROL WORD INTERLOCK
Line S00619 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00766  M02S00619.ns2593  ---|          LDN    10          SET *1CK* TO RECALL *1MB*
00767  M01S00003.ns2593  +++| ENWC     LDN    10          SET *1CK* TO RECALL *1MB*
00768  M01S00004.ns2593  +++|*         LDN    13          (LONG POWER WARNING)
00769  M01S00620.1mb     +++|          STM    CKPA+2
00770  M01S00621.1mb     +++|          LDN    SPLG        SET *1MB* FUNCTION CODE
00771  M01S00622.1mb     +++|          STM    CKPA+3
00772  M01S00623.1mb     +++|          RJM    CKP         LOAD AND EXECUTE *1CK*
00773  M01S00624.1mb     +++|          RJM    CKC         WAIT FOR *1CK* TO COMPLETE
00774  M01S00625.1mb     +++|          RJM    RSM         REQUEST STEP MODE
00775  M01S00626.1mb     +++|          LDD    CP          DISPLAY OPERATOR MESSAGE
00776  M01S00627.1mb     +++|          ADN    MS2W
00777  M01S00628.1mb     +++|          CWM    MSFS,TR
00778  M01S00629.1mb     +++|          LJM    WWC         WAIT FOR WARNING CLEAR
00779  M01S00630.1mb     +++| LPW      SPACE  4,10
00780  M01S00631.1mb     +++|**        LPW - LONG POWER WARNING.
Line S00632 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00632.ns2593  ---|*
Line S00633 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00633.ns2593  ---|*         EXIT   TO *SPW* IF ALL MASS STORAGE UNITS ARE NOT *ISD*-S.
Line S00634 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00634.ns2593  ---|*                TO *ENW* IF ALL MASS STORAGE UNITS ARE *ISD*-S.
Line S00635 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00784  M02S00635.ns2593  ---|*
Line S00636 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00636.ns2593  ---|*         USES   CM - CM+4.
00786  M01S00637.1mb     +++|
00787  M01S00638.1mb     +++|
00788  M01S00639.1mb     +++| LPW      BSS    0           ENTRY
Line S00640 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00789  M02S00640.ns2593  ---|          LDK    CFGL        CHECK ALL *ISD* FLAG
Line S00641 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00641.ns2593  ---|          CRD    CM
Line S00642 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00791  M02S00642.ns2593  ---|          LDD    CM+3
Line S00643 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00643.ns2593  ---|          SHN    21-10
Line S00644 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00793  M02S00644.ns2593  ---|          PJN    SPW         IF NOT ALL *ISD*-S
00794  M01S00005.ns2593  +++|          LDN    13-10       CHANGE *1CK* CALL TO LONG POWER WARNING
00795  M01S00006.ns2593  +++|          RAM    ENWC
00796  M01S00645.1mb     +++|          LJM    ENW         PROCESS AS ENVIRONMENT WARNING
00797  M01S00646.1mb     +++| SPW      SPACE  4,10
00798  M01S00647.1mb     +++|**        SPW - SHORT POWER WARNING.
00799  M01S00648.1mb     +++|*
00800  M01S00649.1mb     +++|*         EXIT   TO *WWC* TO WAIT FOR WARNING CLEAR.
00801  M01S00650.1mb     +++|*
00802  M01S00651.1mb     +++|*         CALLS  CCM, LMR, RSM.
00803  M01S00652.1mb     +++|
00804  M01S00653.1mb     +++|
00805  M01S00654.1mb     +++| SPW      BSS    0           ENTRY
00806  M01S00655.1mb     +++|          RJM    CCM         CREATE CONSOLE MESSAGE
00807  M01S00656.1mb     +++|          RJM    LMR         LOG MAINTENANCE REGISTERS
00808  M01S00657.1mb     +++|          RJM    RSM         REQUEST STEP MODE
00809  M01S00658.1mb     +++|          LJM    WWC         WAIT FOR WARNING TO CLEAR
00810  M01S00659.1mb     +++| WCL      SPACE  4,10
00811  M01S00660.1mb     +++|**        WCL - WARNING CLEAR.
00812  M01S00661.1mb     +++|*
00813  M01S00662.1mb     +++|*         EXIT   TO *MEP6* TO LOG MAINTENANCE REGISTERS.
00814  M01S00663.1mb     +++|*                (SCRL) UPDATED.
00815  M01S00664.1mb     +++|*
00816  M01S00665.1mb     +++|*         USES   CM - CM+4, SC - SC+4.
00817  M01S00666.1mb     +++|*
00818  M01S00667.1mb     +++|*         MACROS DELAY, MONITOR.
00819  M01S00668.1mb     +++|
00820  M01S00669.1mb     +++|
00821  M01S00670.1mb     +++| WCL      LDD    CP          DISPLAY *POWER/ENVIRONMENT NORMAL*
00822  M01S00671.1mb     +++|          ADN    MS2W
00823  M01S00672.1mb     +++|          CWM    MSPN,TR
00824  M01S00673.1mb     +++|          LDN    SSTL        CHECK AUTORESTART
00825  M01S00674.1mb     +++|          CRD    CM
00826  M01S00675.1mb     +++|          LDD    CM
00827  M01S00676.1mb     +++|          SHN    21-13
00828  M01S00677.1mb     +++|          MJN    WCL2        IF AUTORESTART DISABLED
00829  M01S00678.1mb     +++|          LDD    SC
00830  M01S00679.1mb     +++|          SHN    21-11
00831  M01S00680.1mb     +++|          MJN    WCL1        IF *1MB* REQUEST BIT SET
00832  M01S00681.1mb     +++|          LDD    TH
00833  M01S00682.1mb     +++|          RAD    SC
00834  M01S00683.1mb     +++|          LDC    SCRL        STORE *SCRL* WITH REQUESTED FLAG SET
00835  M01S00684.1mb     +++|          CWD    SC
00836  M01S00685.1mb     +++| WCL1     LDN    ZERL
00837  M01S00686.1mb     +++|          CRD    CM
00838  M01S00687.1mb     +++|          LDN    4           SET *DSRM* SUBFUNCTION TO CLEAR STEP
00839  M01S00688.1mb     +++|          STD    CM+1
00840  M01S00689.1mb     +++|          STM    MEPA        SET AUTORESTART PENDING
00841  M01S00690.1mb     +++|          MONITOR DSRM
00842  M01S00691.1mb     +++| WCL2     LDC    SCRL        ENABLE *UNSTEP* COMMAND
00843  M01S00692.1mb     +++|          CRD    SC
00844  M01S00693.1mb     +++|          LDD    SC
00845  M01S00694.1mb     +++|          LPC    6777
00846  M01S00695.1mb     +++|          STD    SC
00847  M01S00696.1mb     +++|          LDC    SCRL
00848  M01S00697.1mb     +++|          CWD    SC
00849  M01S00698.1mb     +++| WCL3     DELAY
00850  M01S00699.1mb     +++|          LDC    SCRL        CHECK STEP MODE
00851  M01S00700.1mb     +++|          CRD    SC
00852  M01S00701.1mb     +++|          LDD    SC
00853  M01S00702.1mb     +++|          SHN    21-10
00854  M01S00703.1mb     +++|          MJN    WCL3        IF STEP STILL SET
00855  M01S00704.1mb     +++|          LJM    MEP6        LOG MAINTENANCE REGISTERS
00856  M01S00705.1mb     +++| FIE      SPACE  4,10
00857  M01S00706.1mb     +++|**        FIE - FATAL IOU ERROR.
00858  M01S00707.1mb     +++|*
00859  M01S00708.1mb     +++|*         EXIT   TO *CSH* TO CHECK POINT DEVICES AND THEN HANG.
00860  M01S00709.1mb     +++|*
00861  M01S00710.1mb     +++|*         USES   CM - CM+3.
00862  M01S00711.1mb     +++|*
00863  M01S00712.1mb     +++|*         CALLS  CCI, CCM, CSH, DOB.
00864  M01S00713.1mb     +++|
00865  M01S00714.1mb     +++|
00866  M01S00715.1mb     +++| FIE      BSS    0           ENTRY
00867  M01S00716.1mb     +++|          RJM    CCM         CREATE CONSOLE MESSAGE
00868  M01S00717.1mb     +++|          LDN    11          CHECK POINT DEVICES AND RECALL *1MB*
00869  M01S00718.1mb     +++|          STM    CKPA+2
00870  M01S00719.1mb     +++|          LDN    SPLG        SET *1MB* FUNCTION CODE
00871  M01S00720.1mb     +++|          STM    CKPA+3
00872  M01S00721.1mb     +++|          LDN    ZERL        SET C170 ERROR FLAG
00873  M01S00722.1mb     +++|          CRDL   CM
00874  M01S00723.1mb     +++|          AOD    CM+3
00875  M01S00724.1mb     +++|          ERRNZ  DCE7        CODE DEPENDS ON VALUE
00876  M01S00725.1mb     +++|          RJM    DOB
00877  M01S00726.1mb     +++|          ADK    DFCW
00878  M01S00727.1mb     +++|          RDSL   CM
00879  M01S00728.1mb     +++|          RJM    CCI         CLEAR M/R CONTROL WORD INTERLOCK
00880  M01S00729.1mb     +++|          RJM    CSH         CHECKPOINT AND HANG
00881  M01S00730.1mb     +++| NIE      SPACE  4,10
00882  M01S00731.1mb     +++|**        NIE - NOS/VE IOU ERROR.
00883  M01S00732.1mb     +++|*
00884  M01S00733.1mb     +++|*         EXIT   TO *MEP6* TO LOG MAINTENANCE REGISTERS.
00885  M01S00734.1mb     +++|*
00886  M01S00735.1mb     +++|*         CALLS  CCM.
00887  M01S00736.1mb     +++|
00888  M01S00737.1mb     +++|
00889  M01S00738.1mb     +++| NIE      BSS    0           ENTRY
00890  M01S00739.1mb     +++|          RJM    CCM         CREATE CONSOLE MESSAGE
00891  M01S00740.1mb     +++|          LJM    MEP6        LOG MAINTENANCE REGISTERS
00892  M01S00741.1mb     +++| MOB      SPACE  4,10
00893  M01S00742.1mb     +++|**        MOB - MULTIPLE ODD BIT ERROR.
00894  M01S00743.1mb     +++|*
00895  M01S00744.1mb     +++|*         CALLS  CCI, CCM, RSM.
00896  M01S00745.1mb     +++|
00897  M01S00746.1mb     +++| MOB      RJM    CCI         CLEAR M/R INTERLOCK
00898  M01S00747.1mb     +++|          RJM    CCM         CREATE CONSOLE MESSAGE
00899  M01S00748.1mb     +++|          RJM    RSM         REQUEST STEP MODE
00900  M01S00749.1mb     +++|          UJN    *           HANG
00901  M01S00750.1mb     +++|          TITLE  OS ACTION CODE SUBROUTINES.
00902  M01S00751.1mb     +++| CCI      SPACE  4,10
00903  M01S00752.1mb     +++|**        CCI - CLEAR M/R CONTROL WORD INTERLOCK.
00904  M01S00753.1mb     +++|*
00905  M01S00754.1mb     +++|*         ENTRY  (MB - MB+1) = ADDRESS OF OLDEST M/R CONTROL WORD.
00906  M01S00755.1mb     +++|*
00907  M01S00756.1mb     +++|*         USES   CM - CM+3.
00908  M01S00757.1mb     +++|
00909  M01S00758.1mb     +++|
00910  M01S00759.1mb     +++| CCI      SUBR               ENTRY/EXIT
00911  M01S00760.1mb     +++|          LCN    0           CLEAR M/R CONTROL WORD INTERLOCK
00912  M01S00761.1mb     +++|          STDL   CM
00913  M01S00762.1mb     +++|          STDL   CM+1
00914  M01S00763.1mb     +++|          STDL   CM+3
00915  M01S00764.1mb     +++|          SCBN   MRIL
00916  M01S00765.1mb     +++|          STDL   CM+2
00917  M01S00766.1mb     +++|          LDD    MB
00918  M01S00767.1mb     +++|          SHN    14
00919  M01S00768.1mb     +++|          LMD    MB+1
00920  M01S00769.1mb     +++|          RDCL   CM
00921  M01S00770.1mb     +++|          UJN    CCIX        RETURN
00922  M01S00771.1mb     +++| CCM      SPACE  4,15
00923  M01S00772.1mb     +++|**        CCM - CREATE CONSOLE MESSAGE.
00924  M01S00773.1mb     +++|*
00925  M01S00774.1mb     +++|*         ENTRY  (SSCW - SSCW+1) = ADDRESS OF SUPPORTIVE STATUS DATA.
00926  M01S00775.1mb     +++|*                (DFTV) = *DFT* VERSION.
00927  M01S00776.1mb     +++|*                (CN - CN+3) = M/R BUFFER CONTROL WORD.
00928  M01S00777.1mb     +++|*
00929  M01S00778.1mb     +++|*         EXIT   TIME AND FAULT SYMPTOM CODE BUILT INTO MESSAGE.
00930  M01S00779.1mb     +++|*                MESSAGE ISSUED TO SYSTEM CONTROL POINT.
00931  M01S00780.1mb     +++|*
00932  M01S00781.1mb     +++|*         CALLS  ACS, CTC, CTD, RER, SCM.
00933  M01S00782.1mb     +++|*
00934  M01S00783.1mb     +++|*         USES   T1, T3, T5, CM - CM+3.
00935  M01S00784.1mb     +++|
00936  M01S00785.1mb     +++|
00937  M01S00786.1mb     +++| CCM      SUBR               ENTRY/EXIT
00938  M01S00787.1mb     +++|          LDM    DFTV
00939  M01S00788.1mb     +++|          ZJN    CCM1        IF NOT *DFT* VERSION 4 OR ABOVE
00940  M01S00789.1mb     +++|          LDN    2
00941  M01S00790.1mb     +++|          STD    T1
00942  M01S00791.1mb     +++|          LDM    SSCW
00943  M01S00792.1mb     +++|          SHN    14
00944  M01S00793.1mb     +++|          LMM    SSCW+1
00945  M01S00794.1mb     +++|          ADN    1
00946  M01S00795.1mb     +++|          CRDL   CM          READ DATE/TIME
00947  M01S00796.1mb     +++|          ADN    1
00948  M01S00797.1mb     +++|          CRML   CCMB,T1     READ FAULT SYMPTOM CODE
00949  M01S00798.1mb     +++|          LDD    CM
00950  M01S00799.1mb     +++|          SHN    21-10
00951  M01S00800.1mb     +++|          MJN    CCM1        IF NO VALID DATA
00952  M01S00801.1mb     +++|          NJN    CCM2        IF NOT MODEL 20 IOU
00953  M01S00802.1mb     +++| CCM1     LDK    TIML        GET TIME
00954  M01S00803.1mb     +++|          CRM    MSFS,ON
00955  M01S00804.1mb     +++|          LDC    MSFS+5      SET ADDRESS FOR ASSEMBLY
00956  M01S00805.1mb     +++|          STD    T1
00957  M01S00806.1mb     +++|          LDN    0           SET END OF ASSEMBLY FOR *ACS*
00958  M01S00807.1mb     +++|          STM    MSFS+5
00959  M01S00808.1mb     +++|          UJN    CCM3        CONVERT FAULT SYMPTOM CODE
00960  M01S00809.1mb     +++|
00961  M01S00810.1mb     +++|*         CONVERT TIME FROM SUPPORTIVE STATUS DATA.
00962  M01S00811.1mb     +++|
00963  M01S00812.1mb     +++| CCM2     LDC    2L .        SET END OF STRING FOR *ACS*
00964  M01S00813.1mb     +++|          STD    T5
00965  M01S00814.1mb     +++|          LDC    2L          SET END OF ASSEMBLY FOR *ACS*
00966  M01S00815.1mb     +++|          STM    MSFS
00967  M01S00816.1mb     +++|          LDC    MSFS        SET ADDRESS FOR ASSEMBLY
00968  M01S00817.1mb     +++|          STD    T1
00969  M01S00818.1mb     +++|          LDDL   CM+2        CONVERT HOURS
00970  M01S00819.1mb     +++|          SHN    -10
00971  M01S00820.1mb     +++|          RJM    CTD
00972  M01S00821.1mb     +++|          RJM    ACS
00973  M01S00822.1mb     +++|          LDD    CM+2        CONVERT MINUTES
00974  M01S00823.1mb     +++|          LPC    377
00975  M01S00824.1mb     +++|          RJM    CTD
00976  M01S00825.1mb     +++|          RJM    ACS
00977  M01S00826.1mb     +++|          LDDL   CM+3        CONVERT SECONDS
00978  M01S00827.1mb     +++|          SHN    -10
00979  M01S00828.1mb     +++|          RJM    CTD
00980  M01S00829.1mb     +++|          RJM    ACS
00981  M01S00830.1mb     +++| CCM3     LDC    CCMA        ADD *ERR=* TO MESSAGE
00982  M01S00831.1mb     +++|          RJM    ACS
00983  M01S00832.1mb     +++|          LDM    MSFS+4
00984  M01S00833.1mb     +++|          SCN    77
00985  M01S00834.1mb     +++|          ADN    1R
00986  M01S00835.1mb     +++|          STM    MSFS+4
00987  M01S00836.1mb     +++|          LDD    CN+1
00988  M01S00837.1mb     +++|          LPC    3777
00989  M01S00838.1mb     +++|          SBK    0#707
00990  M01S00839.1mb     +++|          PJN    CCM4        IF NOT WARNING
00991  M01S00840.1mb     +++|          ADK    0#707-0#701
00992  M01S00841.1mb     +++|          PJN    CCM5        IF WARNING
00993  M01S00842.1mb     +++| CCM4     LDM    DFTV
00994  M01S00843.1mb     +++|          NJN    CCM6        IF *DFT* VERSION 4 OR ABOVE
00995  M01S00844.1mb     +++|
00996  M01S00845.1mb     +++|*         BUILD MESSAGE FOR ALL *DFT* VERSION 3 ERRORS, AND WARNING
00997  M01S00846.1mb     +++|*         ERRORS FOR *DFT* VERSION 4 AND ABOVE.
00998  M01S00847.1mb     +++|
00999  M01S00848.1mb     +++| CCM5     RJM    RER         READ *EID* REGISTER
01000  M01S00849.1mb     +++|          RJM    SCM         SET ANALYSIS CODE IN MESSAGE
01001  M01S00850.1mb     +++|          LDN    0           ADD TERMINATOR
01002  M01S00851.1mb     +++|          STM    MSFS+13
01003  M01S00852.1mb     +++|          UJN    CCM8        DISPLAY OPERATOR MESSAGE
01004  M01S00853.1mb     +++|
01005  M01S00854.1mb     +++|*         CONVERT FAULT SYMPTOM CODE DATA FOR *DFT* VERSION 4 AND
01006  M01S00855.1mb     +++|*         ABOVE (EXCEPT FOR WARNING ERRORS).
01007  M01S00856.1mb     +++|
01008  M01S00857.1mb     +++| CCM6     LDN    0           SET END OF STRING FOR *ACS*
01009  M01S00858.1mb     +++|          STD    T5
01010  M01S00859.1mb     +++|          LDC    CCMB+2      SET START OF FAULT SYMPTOM CODE
01011  M01S00860.1mb     +++|          STD    T3
01012  M01S00861.1mb     +++| CCM7     RJM    CTC         CONVERT TWO CHARACTERS
01013  M01S00862.1mb     +++|          RJM    ACS
01014  M01S00863.1mb     +++|          AOD    T3
01015  M01S00864.1mb     +++|          LMC    CCMB+10
01016  M01S00865.1mb     +++|          NJN    CCM7        IF MORE TO CONVERT
01017  M01S00866.1mb     +++| CCM8     LDD    CP          DISPLAY OPERATOR MESSAGE
01018  M01S00867.1mb     +++|          ADN    MS2W
01019  M01S00868.1mb     +++|          CWM    MSFS,TR     * HH.MM.SS ERR=XXXXXXXXXXXX*
01020  M01S00869.1mb     +++|          LJM    CCMX        RETURN
01021  M01S00870.1mb     +++|
01022  M01S00871.1mb     +++|
01023  M01S00872.1mb     +++| CCMA     DATA   C*ERR=*
01024  M01S00873.1mb     +++| CCMB     BSS    2*4         FAULT SYMPTOM CODE
01025  M01S00874.1mb     +++| CHC      SPACE  4,10
01026  M01S00875.1mb     +++|**        CHC - CONVERT HEXADECIMAL CHARACTER TO DISPLAY CODE.
01027  M01S00876.1mb     +++|*
01028  M01S00877.1mb     +++|*         ENTRY  (A) = VALUE TO CONVERT.
01029  M01S00878.1mb     +++|*
01030  M01S00879.1mb     +++|*         EXIT   (A) = DISPLAY CODE.
01031  M01S00880.1mb     +++|
01032  M01S00881.1mb     +++|
01033  M01S00882.1mb     +++| CHC1     ADN    10D+1R0     CONVERT TO DISPLAY CODE
01034  M01S00883.1mb     +++|
01035  M01S00884.1mb     +++| CHC      SUBR               ENTRY/EXIT
01036  M01S00885.1mb     +++|          LPN    17          MASK ONE CHARACTER
01037  M01S00886.1mb     +++|          SBN    10D
01038  M01S00887.1mb     +++|          MJN    CHC1        IF DECIMAL CHARACTER
01039  M01S00888.1mb     +++|          ADN    1RA         SET HEX CHARACTER
01040  M01S00889.1mb     +++|          UJN    CHCX        RETURN
01041  M01S00890.1mb     +++| CTC      SPACE  4,10
01042  M01S00891.1mb     +++|**        CTC - CONVERT TWO CHARACTERS.
01043  M01S00892.1mb     +++|*
01044  M01S00893.1mb     +++|*         ENTRY  (T3) = ADDRESS OF TWO 8-BIT ASCII CHARACTERS.
01045  M01S00894.1mb     +++|*
01046  M01S00895.1mb     +++|*         EXIT   (A) = ADDRESS OF TWO DISPLAY CODE CHARACTERS.
01047  M01S00896.1mb     +++|*                (T4 - T5) = TWO CHARACTERS PLUS ZERO TERMINATOR.
01048  M01S00897.1mb     +++|*
01049  M01S00898.1mb     +++|*         USES   T4, T6.
01050  M01S00899.1mb     +++|
01051  M01S00900.1mb     +++|
01052  M01S00901.1mb     +++| CTC      SUBR               ENTRY/EXIT
01053  M01S00902.1mb     +++|          LDIL   T3          CONVERT FIRST CHARACTER
01054  M01S00903.1mb     +++|          SHN    -10
01055  M01S00904.1mb     +++|          SBN    40
01056  M01S00905.1mb     +++|          STD    T6
01057  M01S00906.1mb     +++|          LDM    T8AD,T6
01058  M01S00907.1mb     +++|          SHN    6
01059  M01S00908.1mb     +++|          STD    T4
01060  M01S00909.1mb     +++|          LDI    T3          CONVERT SECOND CHARACTER
01061  M01S00910.1mb     +++|          LPC    377
01062  M01S00911.1mb     +++|          SBN    40
01063  M01S00912.1mb     +++|          STD    T6
01064  M01S00913.1mb     +++|          LDM    T8AD,T6
01065  M01S00914.1mb     +++|          RAD    T4
01066  M01S00915.1mb     +++|          LDN    T4          SET ADDRESS OF STRING
01067  M01S00916.1mb     +++|          UJN    CTCX        RETURN
01068  M01S00917.1mb     +++| CTD      SPACE  4,10
01069  M01S00918.1mb     +++|**        CTD - CONVERT TWO DIGITS.
01070  M01S00919.1mb     +++|*
01071  M01S00920.1mb     +++|*         ENTRY  (A) = TWO 4-BIT DIGITS.
01072  M01S00921.1mb     +++|*
01073  M01S00922.1mb     +++|*         EXIT   (A) = ADDRESS OF STRING TO ADD TO MESSAGE.
01074  M01S00923.1mb     +++|*                (T4) = STRING TO ADD TO MESSAGE.
01075  M01S00924.1mb     +++|*                       (CALLER MUST SUPPLY TERMINATOR IF NECESSARY).
01076  M01S00925.1mb     +++|*
01077  M01S00926.1mb     +++|*         USES   T3, T4.
01078  M01S00927.1mb     +++|
01079  M01S00928.1mb     +++|
01080  M01S00929.1mb     +++| CTD      SUBR               ENTRY/EXIT
01081  M01S00930.1mb     +++|          STD    T3
01082  M01S00931.1mb     +++|          SHN    -4          CONVERT FIRST CHARACTER
01083  M01S00932.1mb     +++|          ADN    1R0
01084  M01S00933.1mb     +++|          SHN    6
01085  M01S00934.1mb     +++|          STD    T4
01086  M01S00935.1mb     +++|          LDD    T3          CONVERT SECOND CHARACTER
01087  M01S00936.1mb     +++|          LPN    17
01088  M01S00937.1mb     +++|          ADN    1R0
01089  M01S00938.1mb     +++|          RAD    T4
01090  M01S00939.1mb     +++|          LDN    T4          SET ADDRESS OF STRING
01091  M01S00940.1mb     +++|          UJN    CTDX        RETURN
01092  M01S00941.1mb     +++| RER      SPACE  4,15
01093  M01S00942.1mb     +++|**        RER - READ *EID* REGISTER.
01094  M01S00943.1mb     +++|*
01095  M01S00944.1mb     +++|*         ENTRY  (CN - CN+3) = M/R BUFFER CONTROL WORD.
01096  M01S00945.1mb     +++|*                *DFT* INDICATES CPU 1 OR IOU 1 BY LOGGING ELEMENT CODE
01097  M01S00946.1mb     +++|*                 10(16) OR 12(16) IN THE *EID* REGISTER (INSTEAD OF 0
01098  M01S00947.1mb     +++|*                 OR 2).
01099  M01S00001.1mb34   +++|*                (MB - MB+1) = THE ADDRESS OF THE CURRENT NON REGISTER
01100  M01S00002.1mb34   +++|*                STATUS BUFFER (*NRSB*) ENTRY.
01101  M01S00948.1mb     +++|*
01102  M01S00949.1mb     +++|*         EXIT   ELEMENT CODE AND MODEL NUMBER SET IN MESSAGE.
01103  M01S00950.1mb     +++|*
01104  M01S00951.1mb     +++|*         USES   T1, CM - CM+3.
01105  M01S00952.1mb     +++|*
01106  M01S00953.1mb     +++|*         CALLS  CTD, MRB.
01107  M01S00954.1mb     +++|
01108  M01S00955.1mb     +++|
01109  M01S00956.1mb     +++| RER      SUBR               ENTRY/EXIT
Line S00957 Modification History
M01 (Added by) 1mb
M02 (Updated by) 1mb34
Seq #  *Modification Id* Act 
----------------------------+
01110  M02S00957.1mb34   ---|          LDN    0           INITIALIZE OFFSET
01111  M01S00003.1mb34   +++|          LDM    IBMG        CHECK FOR *DFT* VERSION 5 OR ABOVE
01112  M01S00004.1mb34   +++|          SBN    5
01113  M01S00005.1mb34   +++|          MJN    RER0        IF LESS THAN VERSION 5
01114  M01S00006.1mb34   +++|
01115  M01S00007.1mb34   +++|*         FOR *DFT* VERSION 5 OR ABOVE, GET THE ELEMENT ID (*EID*)
01116  M01S00008.1mb34   +++|*         FROM THE *NRSB* ENTRY.
01117  M01S00009.1mb34   +++|
01118  M01S00010.1mb34   +++|          LDD    MB          GET ADDRESS OF *NRSB* ENTRY
01119  M01S00011.1mb34   +++|          SHN    14
01120  M01S00012.1mb34   +++|          ADD    MB+1
01121  M01S00013.1mb34   +++|          ADN    5           OFFSET TO *EID* REGISTER ENTRY
01122  M01S00014.1mb34   +++|          CRDL   CM          READ IN *EID* REGISTER
01123  M01S00015.1mb34   +++|          UJN    RER1.1      PROCESS THE *EID*
01124  M01S00016.1mb34   +++|
01125  M01S00017.1mb34   +++| RER0     LDN    0           INITIALIZE OFFSET
01126  M01S00958.1mb     +++|          STD    T1
01127  M01S00959.1mb     +++| RER1     AOD    T1
01128  M01S00960.1mb     +++|          SBN    5
01129  M01S00961.1mb     +++|          ZJN    RER1        IF SECOND HEADER WORD
01130  M01S00962.1mb     +++|          SBN    10-5
01131  M01S00963.1mb     +++|          ZJN    RER2        IF END OF BUFFER (USE ZERO DATA)
01132  M01S00964.1mb     +++|          RJM    MRB         GET ADDRESS OF M/R BUFFERS
01133  M01S00965.1mb     +++|          ADD    CN+3        ADD OFFSET
01134  M01S00966.1mb     +++|          ADD    T1          SKIP TO NEXT WORD
01135  M01S00967.1mb     +++|          CRDL   CM          READ *EID* REGISTER
01136  M01S00968.1mb     +++|          LDDL   CM
01137  M01S00969.1mb     +++|          ADDL   CM+1
01138  M01S00970.1mb     +++|          ADDL   CM+2
01139  M01S00971.1mb     +++|          ADDL   CM+3
01140  M01S00972.1mb     +++|          ZJN    RER1        IF *EID* NOT FOUND YET
Line S00973 Modification History
M01 (Added by) 1mb
M02 (Updated by) 1mb34
Seq #  *Modification Id* Act 
----------------------------+
01141  M02S00973.1mb34   ---|          LDDL   CM+2        GET ELEMENT CODE
01142  M01S00018.1mb34   +++| RER1.1   LDDL   CM+2        GET ELEMENT CODE
01143  M01S00974.1mb     +++|          SHN    -10
01144  M01S00975.1mb     +++|          ADN    1
01145  M01S00976.1mb     +++| RER2     STD    T1
01146  M01S00977.1mb     +++|          SHN    -2          INCLUDE CPU 1/IOU 1 FLAG
01147  M01S00978.1mb     +++|          RAD    T1
01148  M01S00979.1mb     +++|          LDM    RERA,T1     GET MESSAGE CHARACTERS
01149  M01S00980.1mb     +++|          STM    MSFS+7
01150  M01S00981.1mb     +++|          LDD    CM+2        GET MODEL NUMBER
01151  M01S00982.1mb     +++|          LPC    377
01152  M01S00983.1mb     +++|          RJM    CTD         CONVERT DIGITS
01153  M01S00984.1mb     +++|          LDD    T4          ADD MODEL NUMBER TO MESSAGE
01154  M01S00985.1mb     +++|          STM    MSFS+10
01155  M01S00986.1mb     +++|          UJP    RERX        RETURN
01156  M01S00987.1mb     +++|
01157  M01S00988.1mb     +++|
01158  M01S00989.1mb     +++|**        RERA - TABLE OF MESSAGE CHARACTERS.
01159  M01S00990.1mb     +++|*
01160  M01S00991.1mb     +++|*         INDEXED BY ELEMENT CODE.
01161  M01S00992.1mb     +++|
01162  M01S00993.1mb     +++|
01163  M01S00994.1mb     +++| RERA     BSS    0
01164  M01S00995.1mb     +++|          DATA   2R00        UNKNOWN ELEMENT
01165  M01S00996.1mb     +++|          DATA   2RDC        PROCESSOR 0
01166  M01S00997.1mb     +++|          DATA   2RDM        MEMORY
01167  M01S00998.1mb     +++|          DATA   2RDI        IOU 0
01168  M01S00999.1mb     +++|          DATA   2R          UNUSED
01169  M01S01000.1mb     +++|          DATA   2RDD        PROCESSOR 1
01170  M01S01001.1mb     +++|          DATA   2R          UNUSED
01171  M01S01002.1mb     +++|          DATA   2RDJ        IOU 1
01172  M01S01003.1mb     +++|
01173  M01S01004.1mb     +++| SCM      SPACE  4,15
01174  M01S01005.1mb     +++|**        SCM - SET ANALYSIS CODE IN MESSAGE.
01175  M01S01006.1mb     +++|*
01176  M01S01007.1mb     +++|*         THE *DFT* ANALYSIS CODE FROM THE CONTROL WORD IS CONVERTED
01177  M01S01008.1mb     +++|*         TO HEXADECIMAL DISPLAY CODE AND PLACED IN THE CONSOLE
01178  M01S01009.1mb     +++|*         MESSAGE.
01179  M01S01010.1mb     +++|*
01180  M01S01011.1mb     +++|*         ENTRY  (CN - CN+3) = CONTROL WORD.
01181  M01S01012.1mb     +++|
01182  M01S01013.1mb     +++|
01183  M01S01014.1mb     +++| SCM      SUBR               ENTRY/EXIT
01184  M01S01015.1mb     +++|          LDD    CN+1        GET *DFT* ANALYSIS CODE
01185  M01S01016.1mb     +++|          RJM    CHC         CONVERT THIRD CHARACTER
01186  M01S01017.1mb     +++|          SHN    6
01187  M01S01018.1mb     +++|          STM    MSFS+12
01188  M01S01019.1mb     +++|          LDD    CN+1        CONVERT SECOND CHARACTER
01189  M01S01020.1mb     +++|          SHN    -4
01190  M01S01021.1mb     +++|          RJM    CHC
01191  M01S01022.1mb     +++|          STM    MSFS+11
01192  M01S01023.1mb     +++|          LDD    CN+1        CONVERT FIRST CHARACTER
01193  M01S01024.1mb     +++|          SHN    -10
01194  M01S01025.1mb     +++|          RJM    CHC
01195  M01S01026.1mb     +++|          SHN    6
01196  M01S01027.1mb     +++|          RAM    MSFS+11
01197  M01S01028.1mb     +++|          UJP    SCMX        RETURN
01198  M01S01029.1mb     +++| WWC      SPACE  4,10
01199  M01S01030.1mb     +++|**        WWC - WAIT FOR WARNING CLEAR.
01200  M01S01031.1mb     +++|*
01201  M01S01032.1mb     +++|*         EXIT   TO *LED* TO LOAD *DFT* IF *DFT* NOT DEDICATED.
01202  M01S01033.1mb     +++|*                TO *WCL* TO PROCESS WARNING CLEAR IF *DFT* DEDICATED.
01203  M01S01034.1mb     +++|*
01204  M01S01035.1mb     +++|*         USES   CN - CN+3.
01205  M01S01036.1mb     +++|*
01206  M01S01037.1mb     +++|*         CALLS  CCI.
01207  M01S01038.1mb     +++|*
01208  M01S01039.1mb     +++|*         MACROS DELAY.
01209  M01S01040.1mb     +++|
01210  M01S01041.1mb     +++|
01211  M01S01042.1mb     +++| WWC      RJM    CCI         CLEAR M/R CONTROL WORD INTERLOCK
01212  M01S01043.1mb     +++|          LDDL   DC+3        CHECK IF DEDICATED *DFT*
01213  M01S01044.1mb     +++|          SHN    21-DCDM
01214  M01S01045.1mb     +++|          PJN    WWC1        IF *DFT* DEDICATED
01215  M01S01046.1mb     +++|          LJM    LED         LOAD *DFT*
01216  M01S01047.1mb     +++|
01217  M01S01048.1mb     +++| WWC1     DELAY
01218  M01S01049.1mb     +++|          LDD    MB          READ M/R CONTROL WORD
01219  M01S01050.1mb     +++|          SHN    14
01220  M01S01051.1mb     +++|          LMD    MB+1
01221  M01S01052.1mb     +++|          CRDL   CN
01222  M01S01053.1mb     +++|          LDD    CN          CHECK FOR WARNING CLEAR
01223  M01S01054.1mb     +++|          LPC    377
01224  M01S01055.1mb     +++|          LMK    WCAC
01225  M01S01056.1mb     +++|          ZJN    WWC2        IF WARNING CLEAR
01226  M01S01057.1mb     +++|          LMK    RSAC&WCAC
01227  M01S01058.1mb     +++|          ZJN    WWC2        IF SYSTEM RESUME
01228  M01S01059.1mb     +++|          LMK    USAC&RSAC
01229  M01S01060.1mb     +++|          NJN    WWC1        IF NOT SYSTEM UNSTEP
01230  M01S01061.1mb     +++| WWC2     LDD    CN+1        PUT SYMPTOM CODE IN *BML*
01231  M01S01062.1mb     +++|          STM    IBMF+1
01232  M01S01063.1mb     +++|          LJM    WCL         PROCESS WARNING CLEAR
01233  M01S01064.1mb     +++|          TITLE  MAINTENANCE REGISTER PROCESSING SUBROUTINES.
01234  M01S01065.1mb     +++| CBM      SPACE  4,10
01235  M01S01066.1mb     +++|**        CBM - COMPLETE *BML* MESSAGES.
01236  M01S01067.1mb     +++|*
01237  M01S01068.1mb     +++|*         ENTRY  ALL DATA PRESENT IN *BML* BUFFER AND TRAILER WORD.
01238  M01S01069.1mb     +++|*
01239  M01S01070.1mb     +++|*         EXIT   *BML* BUFFER PADDED WITH SUFFICIENT ZERO WORDS.
01240  M01S01071.1mb     +++|*                THE BUFFER IS FLUSHED IF NECESSARY.
01241  M01S01072.1mb     +++|*                FINAL *BML* MESSAGE ISSUED.
01242  M01S01073.1mb     +++|*
01243  M01S01074.1mb     +++|*         USES   BP.
01244  M01S01075.1mb     +++|*
01245  M01S01076.1mb     +++|*         CALLS  PMB, WLB.
01246  M01S01077.1mb     +++|
01247  M01S01078.1mb     +++|
01248  M01S01079.1mb     +++| CBM      SUBR               ENTRY/EXIT
01249  M01S01080.1mb     +++|          LDN    ZERL
01250  M01S01081.1mb     +++|          CRML   BDMR,ON     USE ZERO AS REGISTER NUMBERS
01251  M01S01082.1mb     +++|          LDN    ZERL
01252  M01S01083.1mb     +++|          CRM    BCMR,ON     CLEAR M/R BUFFER
01253  M01S01084.1mb     +++|          LDN    ZERL
01254  M01S01085.1mb     +++|          CRM    BCMR+7-4,ON
01255  M01S01086.1mb     +++| CBM1     LDD    T5
01256  M01S01087.1mb     +++|          ZJN    CBM2        IF WRITE COMPLETE
01257  M01S01088.1mb     +++|          RJM    PMB         PACK AND WRITE FAKE M/R
01258  M01S01089.1mb     +++|          UJN    CBM1        CONTINUE PROCESSING
01259  M01S01090.1mb     +++|
01260  M01S01091.1mb     +++| CBM2     LDN    5           UPDATE POINTER TO *BML* BUFFER
01261  M01S01092.1mb     +++|          RAD    BP
01262  M01S01093.1mb     +++|          STM    CBMA
01263  M01S01094.1mb     +++|          ADC    -IBMHL
01264  M01S01095.1mb     +++|          PJN    CBM3        IF READ COMPLETE
01265  M01S01096.1mb     +++|          LDN    ZERL        CLEAR BUFFER
01266  M01S01097.1mb     +++|          CRM    **,ON
01267  M01S01098.1mb     +++| CBMA     EQU    *-1
01268  M01S01099.1mb     +++|          UJN    CBM2        CHECK AGAIN
01269  M01S01100.1mb     +++|
01270  M01S01101.1mb     +++| CBM3     LDN    6           SET MESSAGE LENGTH
01271  M01S01102.1mb     +++|          STD    T4
01272  M01S01103.1mb     +++|          RJM    WLB         WRITE LAST *BML* MESSAGE
01273  M01S01104.1mb     +++|          UJP    CBMX        RETURN
Line S01105 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01274  M02S01105.271l716 ---| CNR      SPACE  4,15
Line S01106 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01275  M02S01106.271l716 ---|**        CNR - CHECK FOR NOS REQUEST.
Line S01107 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01276  M02S01107.271l716 ---|*
Line S01108 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01277  M02S01108.271l716 ---|*         THIS ROUTINE IS CALLED IF *DFT* IS IN DEDICATED MODE AND
Line S01109 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01278  M02S01109.271l716 ---|*         THERE IS A NOS REQUEST PRESENT.  IT RESERVES THE CIP
Line S01110 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01279  M02S01110.271l716 ---|*         CHANNEL, SETS THE REQUEST STATUS = *ACTIVE*, WAITS FOR THE
Line S01111 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01280  M02S01111.271l716 ---|*         REQUEST TO BE PROCESSED, AND RELEASES THE CIP CHANNEL.
Line S01112 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01281  M02S01112.271l716 ---|*
Line S01113 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01282  M02S01113.271l716 ---|*         USES   CM - CM+4, T1 - T1+4.
Line S01114 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01283  M02S01114.271l716 ---|*
Line S01115 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01284  M02S01115.271l716 ---|*         CALLS  CRQ, SDA.
Line S01116 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01285  M02S01116.271l716 ---|*
Line S01117 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01286  M02S01117.271l716 ---|*         MACROS DCHAN, DELAY, RCHAN.
Line S01118 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01287  M02S01118.271l716 ---|
Line S01119 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01288  M02S01119.271l716 ---|
Line S01120 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01289  M02S01120.271l716 ---| CNR      SUBR               ENTRY/EXIT
Line S01121 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01290  M02S01121.271l716 ---|          RJM    SDA         READ NOS REQUEST HEADER
Line S01122 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01291  M02S01122.271l716 ---|          CRD    T1
Line S01123 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01292  M02S01123.271l716 ---|          LDD    T1+4        CHECK REQUEST STATUS
Line S01124 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01293  M02S01124.271l716 ---|          LMN    STRY
Line S01125 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01294  M02S01125.271l716 ---|          NJN    CNRX        IF NOT STATUS = *READY*
Line S01126 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01295  M02S01126.271l716 ---|          LDN    DSAL        LOCATE CIP CHANNEL
Line S01127 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01296  M02S01127.271l716 ---|          CRD    CM
Line S01128 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01297  M02S01128.271l716 ---|          LDD    CM+4        RESERVE CIP CHANNEL
Line S01129 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01298  M02S01129.271l716 ---|          LPN    77
Line S01130 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01299  M02S01130.271l716 ---|          STM    CNRA
Line S01131 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01300  M02S01131.271l716 ---|          RCHAN
Line S01132 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01301  M02S01132.271l716 ---|          RJM    CRQ         CHECK REQUEST FOR SPECIAL PROCESSING
Line S01133 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01302  M02S01133.271l716 ---|          LDN    STAC        SET STATUS = *ACTIVE*
Line S01134 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01303  M02S01134.271l716 ---|          STD    T1+4
Line S01135 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01304  M02S01135.271l716 ---|          RJM    SDA         REWRITE NOS REQUEST HEADER
Line S01136 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01305  M02S01136.271l716 ---|          CWD    T1
Line S01137 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01306  M02S01137.271l716 ---|
Line S01138 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01307  M02S01138.271l716 ---|*         WAIT FOR REQUEST TO BE PROCESSED BY *DFT*.
Line S01139 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01308  M02S01139.271l716 ---|
Line S01140 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01309  M02S01140.271l716 ---| CNR1     DELAY
Line S01141 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01310  M02S01141.271l716 ---|          RJM    SDA         READ NOS REQUEST HEADER
Line S01142 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01311  M02S01142.271l716 ---|          CRD    T1
Line S01143 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01312  M02S01143.271l716 ---|          LDD    T1+4
Line S01144 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01313  M02S01144.271l716 ---|          LMN    STAC
Line S01145 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01314  M02S01145.271l716 ---|          ZJN    CNR1        IF STATUS = *ACTIVE* STILL PRESENT
Line S01146 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01315  M02S01146.271l716 ---|          LDC    **          RELEASE CIP CHANNEL
Line S01147 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01316  M02S01147.271l716 ---| CNRA     EQU    *-1
Line S01148 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01317  M02S01148.271l716 ---|          DCHAN
Line S01149 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01318  M02S01149.271l716 ---|          LJM    CNRX        RETURN
Line S01150 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01319  M02S01150.271l716 ---| CRQ      SPACE  4,10
Line S01151 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01320  M02S01151.271l716 ---|**        CRQ - CHECK *DFT* REQUEST FOR SPECIAL PROCESSING.
Line S01152 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01321  M02S01152.271l716 ---|*
Line S01153 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01322  M02S01153.271l716 ---|*         EXIT   *UADM/FRAS* ISSUED IF NECESSARY.
Line S01154 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01323  M02S01154.271l716 ---|*
Line S01155 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01324  M02S01155.271l716 ---|*         CALLS  SDA.
Line S01156 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01325  M02S01156.271l716 ---|*
Line S01157 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01326  M02S01157.271l716 ---|*         USES   CM - CM+4.
Line S01158 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01327  M02S01158.271l716 ---|*
Line S01159 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01328  M02S01159.271l716 ---|*         MACROS MONITOR.
Line S01160 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01329  M02S01160.271l716 ---|
Line S01161 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01330  M02S01161.271l716 ---| CRQ      SUBR               ENTRY/EXIT
Line S01162 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01331  M02S01162.271l716 ---|
Line S01163 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01332  M02S01163.271l716 ---|*         THE FOLLOWING CODE ASSUMES THERE IS ONLY ONE REQUEST BUFFER
Line S01164 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01333  M02S01164.271l716 ---|*         WHICH IMMEDIATELY FOLLOWS THE REQUEST HEADER.
Line S01165 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01334  M02S01165.271l716 ---|
Line S01166 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01335  M02S01166.271l716 ---|          RJM    SDA         READ REQUEST
Line S01167 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01336  M02S01167.271l716 ---|          ADN    1
Line S01168 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01337  M02S01168.271l716 ---|          CRM    CRQA,ON
Line S01169 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01338  M02S01169.271l716 ---|          LDM    CRQA        CHECK REQUEST
Line S01170 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01339  M02S01170.271l716 ---|          LMN    RQSF
Line S01171 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01340  M02S01171.271l716 ---|          NJN    CRQX        IF NO *UADM* NEEDED
Line S01172 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01341  M02S01172.271l716 ---|          LDC    FRAS        SET *UADM* SUBFUNCTION
Line S01173 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01342  M02S01173.271l716 ---|          STM    CRQA
Line S01174 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01343  M02S01174.271l716 ---|          LDD    MA          WRITE REQUEST TO MESSAGE BUFFER
Line S01175 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01344  M02S01175.271l716 ---|          CWM    CRQA,ON
Line S01176 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01345  M02S01176.271l716 ---|          LDN    ZERL        SET *UADM* PARAMETERS
Line S01177 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01346  M02S01177.271l716 ---|          CRD    CM
Line S01178 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01347  M02S01178.271l716 ---|          LDN    1           SET REQUEST COUNT
Line S01179 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01348  M02S01179.271l716 ---|          STD    CM+1
Line S01180 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01349  M02S01180.271l716 ---|*         STD    CM+2        (NO DROP FLAG IGNORED)
Line S01181 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01350  M02S01181.271l716 ---|          MONITOR  UADM      ALERT *CPUMTR* OF PENDING *FRC* UPDATE
Line S01182 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01351  M02S01182.271l716 ---|          UJN    CRQX        RETURN
Line S01183 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01352  M02S01183.271l716 ---|
Line S01184 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01353  M02S01184.271l716 ---|
Line S01185 Modification History
M01 (Added by) 1mb
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01354  M02S01185.271l716 ---| CRQA     BSS    5
01355  M01S01186.1mb     +++| CPM      SPACE  4,10
01356  M01S01187.1mb     +++|**        CPM - CLEAR PP MEMORY.
01357  M01S01188.1mb     +++|*
01358  M01S01189.1mb     +++|*         ENTRY  (DC - DC+3) = *DFT* CONTROL WORD.
01359  M01S01190.1mb     +++|*
01360  M01S01191.1mb     +++|*         USES   T0.
01361  M01S01192.1mb     +++|*
01362  M01S01193.1mb     +++|*         CLEARS ALL PP MEMORY FROM LWA OF *1MB* CODE TO THE END OF
01363  M01S01194.1mb     +++|*         THE PP.  THIS INSURES THAT ALL 16-BIT INSTRUCTIONS USED BY
01364  M01S01195.1mb     +++|*         *DFT* ARE CLEARED BEFORE THE PP IS RETURNED TO NOS.
01365  M01S01196.1mb     +++|
01366  M01S01197.1mb     +++|
01367  M01S01198.1mb     +++| CPM      SUBR               ENTRY/EXIT
01368  M01S01199.1mb     +++|          LDDL   DC+3
01369  M01S01200.1mb     +++|          SHN    21-DCDM
01370  M01S01201.1mb     +++|          PJN    CPMX        IF DEDICATED *DFT*
01371  M01S01202.1mb     +++|          LDC    L1MB        FIRST WORD TO CLEAR
01372  M01S01203.1mb     +++|          STD    T0
01373  M01S01204.1mb     +++|          LDN    0
01374  M01S01205.1mb     +++| CPM1     STI    T0
01375  M01S01206.1mb     +++|          AOD    T0
01376  M01S01207.1mb     +++|          SHN    -14
01377  M01S01208.1mb     +++|          ZJN    CPM1        IF MORE MEMORY TO CLEAR
01378  M01S01209.1mb     +++|          UJN    CPMX        RETURN
01379  M01S01210.1mb     +++| CTH      SPACE  4,10
01380  M01S01211.1mb     +++|**        CTH - CHECK THRESHOLD EXCEEDED.
01381  M01S01212.1mb     +++|*
01382  M01S01213.1mb     +++|*         ENTRY  (CN - CN+3) = M/R BUFFER CONTROL WORD.
01383  M01S01214.1mb     +++|*
01384  M01S01215.1mb     +++|*         USES   CM - CM+4, T1, T2.
01385  M01S01216.1mb     +++|*
01386  M01S01217.1mb     +++|*         CALLS  DFM.
01387  M01S01218.1mb     +++|*
01388  M01S01219.1mb     +++|*         MACROS MONITOR.
01389  M01S01220.1mb     +++|
01390  M01S01221.1mb     +++|
01391  M01S01222.1mb     +++| CTH      SUBR               ENTRY/EXIT
01392  M01S01223.1mb     +++|          LDDL   CN+2
01393  M01S01224.1mb     +++|          SHN    21-MRTH
01394  M01S01225.1mb     +++|          PJN    CTHX        IF NOT THRESHOLD EXCEEDED
01395  M01S01226.1mb     +++|          LDDL   CN+1        GET *DFT* ANALYSIS CODE
01396  M01S01227.1mb     +++|          SHN    0-14
01397  M01S01228.1mb     +++|          LMN    3
01398  M01S01229.1mb     +++|          STD    T1          (1 = CORRECTED, 0 = UNCORRECTED)
01399  M01S01230.1mb     +++|          LDD    CN+1        GET TYPE OF ERROR
01400  M01S01231.1mb     +++|          SHN    0-10
01401  M01S01232.1mb     +++|          LPN    3
01402  M01S01233.1mb     +++|          SHN    1
01403  M01S01234.1mb     +++|          STD    T2          (0 = IOU, 2 = CM, 4 = CPU)
01404  M01S01235.1mb     +++|          LDM    CTHA,T2     BUILD APPROPRIATE MESSAGE TEXT
01405  M01S01236.1mb     +++|          STM    CTHB,T1
01406  M01S01237.1mb     +++|          LDM    CTHA+1,T2
01407  M01S01238.1mb     +++|          STM    CTHB+1,T1
01408  M01S01239.1mb     +++|          LDC    CTHB+ERLN   ISSUE ERROR LOG MESSAGE
01409  M01S01240.1mb     +++|          ADD    T1
01410  M01S01241.1mb     +++|          RJM    DFM
01411  M01S01242.1mb     +++|          LDN    ZERL        ISSUE OPERATOR EVENT
01412  M01S01243.1mb     +++|          CRD    CM
01413  M01S01244.1mb     +++|          LDK    ELAE
01414  M01S01245.1mb     +++|          STM    CM+4
01415  M01S01246.1mb     +++|          MONITOR  EATM
01416  M01S01247.1mb     +++|          UJP    CTHX        RETURN
01417  M01S01248.1mb     +++|
01418  M01S01249.1mb     +++| CTHA     DATA   4HIOU
01419  M01S01250.1mb     +++|          DATA   4HCM
01420  M01S01251.1mb     +++|          DATA   4HCPU
01421  M01S01252.1mb     +++| CTHB     DATA   6H    UN
01422  M01S01253.1mb     +++|          DATA   C*CORRECTED ERROR THRESHOLD EXCEEDED.*
01423  M01S01254.1mb     +++| CTP      SPACE  4,10
01424  M01S01255.1mb     +++|**        CTP - CHECK FOR TIME AND CHECKPOINT PROCESSING.
01425  M01S01256.1mb     +++|*
01426  M01S01257.1mb     +++|*         ENTRY  (IR+2) = FUNCTION CALL.
01427  M01S01258.1mb     +++|*
01428  M01S01259.1mb     +++|*         EXIT   TO *CSH* IF CHECKPOINT REQUEST.
01429  M01S01260.1mb     +++|*                TO *LED* IF TIME REQUEST AND *DFT* NOT DEDICATED.
01430  M01S01261.1mb     +++|*                TO *DPP* IF TIME REQUEST AND *DFT* DEDICATED.
01431  M01S01262.1mb     +++|*
01432  M01S01263.1mb     +++|*         USES   CM - CM+3, DC - DC+3, IR+2.
01433  M01S01264.1mb     +++|*
01434  M01S01265.1mb     +++|*         CALLS  CCO, CRC, CSH, DOB, PES, UCC, *2TH*.
01435  M01S01266.1mb     +++|*
01436  M01S01267.1mb     +++|*         MACROS EXECUTE.
01437  M01S01268.1mb     +++|
01438  M01S01269.1mb     +++|
01439  M01S01270.1mb     +++| CTP      SUBR               ENTRY/EXIT
01440  M01S01271.1mb     +++|          LDD    IR+2        CHECK FOR TIME PROCESSING
01441  M01S01272.1mb     +++|          LPN    SPCP
01442  M01S01273.1mb     +++|          NJP    CTP2        IF CHECKPOINT REQUEST
01443  M01S01274.1mb     +++|          LMD    IR+2
01444  M01S01275.1mb     +++|          LPN    SPTP
01445  M01S01276.1mb     +++|          ZJN    CTPX        IF NOT TIME PROCESSING
01446  M01S01277.1mb     +++|          RJM    UCC         UPDATE CTI CLOCK
01447  M01S01278.1mb     +++|          EXECUTE  2TH       LOAD TOP-OF-HOUR ROUTINES
01448  M01S01279.1mb     +++|          RJM    /IHD/CRC    CLEAR RELOAD COUNT IN CONTROLWARE TABLE
01449  M01S01280.1mb     +++|          RJM    /IHD/CCO    CLEAR COUNTS IN EST/MST ENTRIES
01450  M01S01281.1mb     +++|          RJM    /IHD/PES    PROCESS ESM SECDED LOGGING
01451  M01S01282.1mb     +++| CTPA     LDC    ZERL        SET LOG COUNTERS AND SECDED TABLE FLAG
01452  M01S01283.1mb     +++|*         LJM    CTPX        (IF NOS/VE LOGGING)
01453  M01S01284.1mb     +++|          CRDL   CM
01454  M01S01285.1mb     +++|          LDBC   DCZC
01455  M01S01286.1mb     +++|          STDL   CM+3
01456  M01S01287.1mb     +++|          RJM    DOB
01457  M01S01288.1mb     +++|          ADK    DFCW
01458  M01S01289.1mb     +++|          RDSL   CM
01459  M01S01290.1mb     +++|          CRDL   DC
01460  M01S01291.1mb     +++|          LDDL   DC+3        CHECK DEDICATED FLAG
01461  M01S01292.1mb     +++|          SHN    21-DCDM
01462  M01S01293.1mb     +++|          PJP    DPP         IF DEDICATED *DFT*
Line S01294 Modification History
M01 (Added by) 1mb
M02 (Updated by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
01463  M02S01294.ns2660  ---|          LDN    SPLG        SET LOGGING FUNCTION CODE
01464  M01S00017.ns2660  +++| CTP1     LDN    SPLG        SET LOGGING FUNCTION CODE
01465  M01S00018.ns2660  +++| CTPB     EQU    *-1
01466  M01S00019.ns2660  +++|*         LDN    SPTH        (IF TOP OF HOUR PART TWO)
01467  M01S01295.1mb     +++|          STD    IR+2
01468  M01S01296.1mb     +++|          LDD    IA
01469  M01S01297.1mb     +++|          CWD    IR
01470  M01S01298.1mb     +++|          LJM    LED         LOAD *DFT*
01471  M01S01299.1mb     +++|
01472  M01S01300.1mb     +++| CTP2     LDN    10          SET *1CK* TO RECALL *1MB*
01473  M01S01301.1mb     +++|          STM    CKPA+2
01474  M01S01302.1mb     +++|          LDN    SPCP        SET *1MB* FUNCTION CODE
01475  M01S01303.1mb     +++|          STM    CKPA+3
01476  M01S01304.1mb     +++|          LDC    MSCP        *(204) FATAL CPU ERROR*
01477  M01S01305.1mb     +++|          STM    CSHA
01478  M01S01306.1mb     +++|          STM    CSHB
01479  M01S01307.1mb     +++|          RJM    CSH         CHECKPOINT AND HANG
01480  M01S01308.1mb     +++| C9E      SPACE  4,15
01481  M01S01309.1mb     +++|**        C9E - CHECK SPECIAL MODEL 990 ERRORS.
01482  M01S01310.1mb     +++|*
01483  M01S01311.1mb     +++|*         ENTRY  (IBMF+1) = *DFT* ANALYSIS CODE.
01484  M01S01312.1mb     +++|*                (T4) = CURRENT OFFSET INTO M/R BUFFER.
01485  M01S01313.1mb     +++|*
01486  M01S01314.1mb     +++|*         EXIT   (A) = 0, IF SPECIAL 990 ERROR PRESENT.
01487  M01S01315.1mb     +++|*                *BML* DATA PLACED IN BUFFER, IF (A) = 0.
01488  M01S01316.1mb     +++|*
01489  M01S01317.1mb     +++|*         USES   T4, T6.
01490  M01S01318.1mb     +++|*
01491  M01S01319.1mb     +++|*         CALLS  GPB, RMR.
01492  M01S01320.1mb     +++|
01493  M01S01321.1mb     +++|
01494  M01S01322.1mb     +++| C9E      SUBR               ENTRY/EXIT
01495  M01S01323.1mb     +++|          LDM    IBMF+1
01496  M01S01324.1mb     +++|          LPC    3777        MASK MULTIPLE OCCURRANCE FLAG
01497  M01S01325.1mb     +++|          LMC    0#206
01498  M01S01326.1mb     +++|          ZJN    C9E1        IF REPAIRED ERROR
01499  M01S01327.1mb     +++|          LMK    0#207&0#206
01500  M01S01328.1mb     +++|          ZJN    C9E1        IF UNREPAIRED ERROR
01501  M01S01329.1mb     +++|          LMK    0#205&0#207
01502  M01S01330.1mb     +++|          ZJN    C9E1        IF RETRY IN PROGRESS ERROR
01503  M01S01331.1mb     +++|          LMK    0#21B&0#205
01504  M01S01332.1mb     +++|          ZJN    C9E1        IF RETRY CONVERTED TO UNCORRECTED ERROR
01505  M01S01333.1mb     +++|          LMK    0#21C&0#21B
01506  M01S01334.1mb     +++|          ZJN    C9E1        IF RETRY EXHAUSTED ERROR
01507  M01S01335.1mb     +++|          LMK    0#21D&0#21C
01508  M01S01336.1mb     +++|          NJN    C9EX        IF NOT RETRY EXHAUSTED ERROR
01509  M01S01337.1mb     +++| C9E1     LDD    T4
01510  M01S01338.1mb     +++|          SBN    5
01511  M01S01339.1mb     +++|          NJN    C9EX        IF NOT LAST M/R BUFFER
01512  M01S01340.1mb     +++|          STD    T4
01513  M01S01341.1mb     +++|          STD    T6          INITIALIZE SUMMARY STATUS FLAG
01514  M01S01342.1mb     +++|
01515  M01S01343.1mb     +++|*         PROCESS LAST BUFFER FOR SPECIAL 990 ERRORS.
01516  M01S01344.1mb     +++|
01517  M01S01345.1mb     +++|          RJM    GPB         READ DATA WORD INTO *BML* MESSAGE
01518  M01S01346.1mb     +++|          LDD    BP
01519  M01S01347.1mb     +++|          STM    C9EA
01520  M01S01348.1mb     +++|          LDD    MS
01521  M01S01349.1mb     +++|          SHN    14
01522  M01S01350.1mb     +++|          LMD    MS+1
01523  M01S01351.1mb     +++|          CRM    **,ON
01524  M01S01352.1mb     +++| C9EA     EQU    *-1
01525  M01S01353.1mb     +++|          LDC    LDNI+0      SET *RMR* TO NOT USE *STATUS SUMMARY* FLAG
01526  M01S01354.1mb     +++|          STM    RMRA
01527  M01S01355.1mb     +++|          LDN    ZERL        USE ZERO AS REGISTER NUMBERS
01528  M01S01356.1mb     +++|          CRML   BDMR,ON
01529  M01S01357.1mb     +++|          RJM    RMR         LOG FAILING ADDRESS WORDS AS REGISTERS
01530  M01S01358.1mb     +++|          LDC    LDNI+1      RESTORE *RMR* USE OF *STATUS SUMMARY* FLAG
01531  M01S01359.1mb     +++|          STM    RMRA
01532  M01S01360.1mb     +++|          LDN    0           SET EXIT FLAG
01533  M01S01361.1mb     +++|          LJM    C9EX        RETURN
01534  M01S01362.1mb     +++| DOA      SPACE  4,10
01535  M01S01363.1mb     +++|**        DOA - DETERMINE OS ACTION.
01536  M01S01364.1mb     +++|*
01537  M01S01365.1mb     +++|*         ENTRY  (CN - CN+3) = CONTROL WORD.
01538  M01S01366.1mb     +++|*
01539  M01S01367.1mb     +++|*         EXIT   TO OS ACTION ROUTINE.
01540  M01S01368.1mb     +++|*                NORMAL RETURN, IF NO OS ACTION CODE OR VERSION 3
01541  M01S01369.1mb     +++|*                 AND NO VALID OS ACTION CODE.
01542  M01S01370.1mb     +++|*
01543  M01S01371.1mb     +++|*         USES   T1, T2.
01544  M01S01372.1mb     +++|
01545  M01S01373.1mb     +++|
01546  M01S01374.1mb     +++| DOA3     LDD    T1
01547  M01S01375.1mb     +++|          SBN    MXAC
01548  M01S01376.1mb     +++|          PJN    DOAX        IF NOT A VALID ACTION CODE
01549  M01S01377.1mb     +++|          LDM    TOSC,T1     SET OS ACTION ROUTINE ADDRESS
01550  M01S01378.1mb     +++|          UJN    DOA5        EXIT TO ROUTINE
01551  M01S01379.1mb     +++|
01552  M01S01380.1mb     +++| DOA4     LDC    MOB         ROUTINE FOR NO MATCH FOUND
01553  M01S01381.1mb     +++| DOA5     STM    DOAA
01554  M01S01382.1mb     +++|          LJM    **          PROCESS OS ACTION
01555  M01S01383.1mb     +++| DOAA     EQU    *-1
01556  M01S01384.1mb     +++|
01557  M01S01385.1mb     +++| DOA      SUBR               ENTRY/EXIT
01558  M01S01386.1mb     +++|          LDD    CN
01559  M01S01387.1mb     +++|          LPC    377
01560  M01S01388.1mb     +++|          STD    T1
01561  M01S01389.1mb     +++|          ZJN    DOAX        IF NO OS ACTION CODE
01562  M01S00001.1mb33   +++|          LDD    CN+2        CHECK VALID 170 DATA FLAG
01563  M01S00002.1mb33   +++|          LPBC   MRV7
01564  M01S00003.1mb33   +++|          ZJN    DOAX        IF NO VALID 170 DATA FLAG
01565  M01S01390.1mb     +++|          LDM    DFTV
01566  M01S01391.1mb     +++|          ZJN    DOA3        IF *DFT* VERSION 3
01567  M01S01392.1mb     +++|          LDN    0
01568  M01S01393.1mb     +++|          STD    T2
01569  M01S01394.1mb     +++|          UJN    DOA2        ENTER LOOP
01570  M01S01395.1mb     +++|
01571  M01S01396.1mb     +++| DOA1     LDN    3           ADVANCE TO NEXT ENTRY
01572  M01S01397.1mb     +++|          RAD    T2
01573  M01S01398.1mb     +++| DOA2     LDD    CN+1        GET *DFT* ANALYSIS CODE
01574  M01S01399.1mb     +++|          LPC    3777
01575  M01S01400.1mb     +++|          SBM    TDFA,T2
01576  M01S01401.1mb     +++|          MJN    DOA4        IF ENTRY NOT IN TABLE
01577  M01S01402.1mb     +++|          NJN    DOA1        IF NO MATCH
01578  M01S01403.1mb     +++|          LDD    T1          GET OS ACTION CODE
01579  M01S01404.1mb     +++|          LMM    TDFA+1,T2
01580  M01S01405.1mb     +++|          NJN    DOA1        IF ACTION CODE DOES NOT MATCH
01581  M01S01406.1mb     +++|          LDM    TDFA+2,T2   SET OS ACTION CODE ADDRESS
01582  M01S01407.1mb     +++|          UJP    DOA5        EXIT TO ROUTINE
01583  M01S01408.1mb     +++| DOB      SPACE  4,10
01584  M01S01409.1mb     +++|**        DOB - GET DFT/OS BUFFER ADDRESS.
01585  M01S01410.1mb     +++|*
01586  M01S01411.1mb     +++|*         EXIT   (A) = ADDRESS OF DFT/OS BUFFER.
01587  M01S01412.1mb     +++|
01588  M01S01413.1mb     +++| DOB      SUBR               ENTRY/EXIT
01589  M01S01414.1mb     +++| DOBA     LDC    **
01590  M01S01415.1mb     +++|          UJN    DOBX        RETURN
01591  M01S01416.1mb     +++| DPR      SPACE 4,10
01592  M01S01417.1mb     +++|**        DPR - DUMP PP REGISTERS.
01593  M01S01418.1mb     +++|*
01594  M01S01419.1mb     +++|*         EXIT   A, P, Q AND K REGISTERS OF EACH PP
01595  M01S01420.1mb     +++|*                DUMPED TO *PRGB*.
01596  M01S01421.1mb     +++|*
01597  M01S01422.1mb     +++|*         USES   EC, T2, T3, T4, CM - CM+4, CN - CN+4.
01598  M01S01423.1mb     +++|*
01599  M01S01424.1mb     +++|*         MACROS EXITMR, LOCKMR, READMR, WRITMR.
01600  M01S01425.1mb     +++|
01601  M01S01426.1mb     +++|
01602  M01S01427.1mb     +++| DPR      SUBR               ENTRY/EXIT
01603  M01S01428.1mb     +++|          EXITMR DPRX        MODIFY ERROR EXIT ADDRESS
01604  M01S01429.1mb     +++|          LDK    PPUL        GET NUMBER OF PP-S
01605  M01S01430.1mb     +++|          CRD    CN
01606  M01S01431.1mb     +++|          ADK    EABL+2-PPUL GET IOU CONNECT CODE
01607  M01S01432.1mb     +++|          CRD    CM
01608  M01S01433.1mb     +++|          LDD    CM+3
01609  M01S01434.1mb     +++|          STD    EC
01610  M01S01435.1mb     +++|          READMR BCMR,,DEMR  READ EC REGISTER
01611  M01S01436.1mb     +++|          LDN    0           INITIALIZE BUFFER POINTER
01612  M01S01437.1mb     +++|          STD    T3
01613  M01S01438.1mb     +++|          STD    T4          INITIALIZE REGISTER NUMBER
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1mb.txt ยท Last modified: by 127.0.0.1