User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1mb

Deck 1MB

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.1mb     +++|          IDENT  1MB,/1MB/MEP
00002  M00S00002.1mb     +++|          PERIPH
00003  M00S00003.1mb     +++|          BASE   MIXED
00004  M00S00004.1mb     +++|          SST    SSCP
00005  M00S00005.1mb     +++|*COMMENT  1MB - HARDWARE ERROR PROCESSOR.
Line S00006 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1984.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.1mb     +++|          TITLE  1MB - HARDWARE ERROR PROCESSOR.
00009  M00S00008.1mb     +++|          SPACE  4,10
00010  M00S00009.1mb     +++|***       1MB - HARDWARE ERROR PROCESSOR.
00011  M00S00010.1mb     +++|*         J. D. LANGE.  74/05/10.
00012  M00S00011.1mb     +++|*         C. R. LUND.  80/01/07.
00013  M00S00012.1mb     +++|*         P. J. ENGLE.  84/09/10.
00014  M00S00013.1mb     +++|*         M. S. PESCHMAN  85/07/24.
00015  M00S00014.1mb     +++|          SPACE  4,30
00016  M00S00015.1mb     +++|***              EITHER *1MB* OR *1SC* IS CALLED BY THE SYSTEM MONITOR
00017  M00S00016.1mb     +++|*         TO PERFORM FUNCTIONS WHICH CAN NOT BE PROCESSED BY THE
00018  M00S00017.1mb     +++|*         MONITOR.
00019  M00S00018.1mb     +++|*               FOR MAINFRAMES WITH MAINTENANCE REGISTERS, ERRORS  ARE
00020  M00S00019.1mb     +++|*         PROCESSED  BY  *1MB*  IN  ROUTINE  *MEP*.   CORRECTED MEMORY
00021  M00S00020.1mb     +++|*         ERRORS ARE HANDLED COMPLETELY BY *1MB* WHO BUILDS THE  TABLE
00022  M00S00021.1mb     +++|*         OF UNIQUE ID-S AS IS DONE FOR SECDED ERRORS.
00023  M00S00022.1mb     +++|*                *1SC* PERFORMS SCR PROCESSING ON FATAL SCR ERRORS
00024  M00S00023.1mb     +++|*         AND ON UNIQUE SECDED ERRORS ONLY.  *1SC* FIRST CHECKS FOR
00025  M00S00024.1mb     +++|*         FATAL ERRORS, AND (IF NONE HAVE OCCURRED) THEN INCREMENTS
00026  M00S00025.1mb     +++|*         THE APPROPRIATE COUNTER IN CM WORD *SCRL* FOR UNIQUE
00027  M00S00026.1mb     +++|*         SECDED ERRORS, CLEARS THE ERROR BIT IN THE SCR, AND DROPS
00028  M00S00027.1mb     +++|*         THE PP.  IF MONITOR HAS DETERMINED THAT A SECDED ERROR
00029  M00S00028.1mb     +++|*         WAS NOT UNIQUE (I.E. - THE ERROR WAS CAUSED BY THE SAME
00030  M00S00029.1mb     +++|*         MEMORY LOCATION PREVIOUSLY THAT HOUR), MONITOR WILL
00031  M00S00030.1mb     +++|*         INCREMENT THE APPROPRIATE COUNTERS IF THOSE COUNTERS HAVE
00032  M00S00031.1mb     +++|*         NOT EXCEEDED THEIR THRESHOLDS.  WHEN MONITOR HAS
00033  M00S00032.1mb     +++|*         FINISHED PROCESSING NON-UNIQUE ERRORS, IT WILL CLEAR
00034  M00S00033.1mb     +++|*         THE SECDED ERROR BIT AND CONTINUE IN ITS PROCESSING LOOP.
00035  M00S00034.1mb     +++|*                IN A SYSTEM EXPERIENCING FREQUENT SINGLE BIT SECDED
00036  M00S00035.1mb     +++|*         ERRORS, THIS PROCESS OF CHECKING FOR ERROR UNIQUENESS IN
00037  M00S00036.1mb     +++|*         MONITOR WILL REDUCE THE NUMBER OF CALLS TO *1SC* TO A
00038  M00S00037.1mb     +++|*         MAXIMUM OF *UIDL* PER HOUR (SEE *COMSSCR*).
00039  M00S00038.1mb     +++|*                FOR CYBER 176 MACHINES, LCME SINGLE BIT SECDED
00040  M00S00039.1mb     +++|*         ERRORS ARE PROCESSED IN A SIMILAR MANNER.
00041  M00S00040.1mb     +++|*                FOR MAINFRAMES WITH AN ESM MAINTENANCE PORT
00042  M00S00041.1mb     +++|*         DEFINED, *2TH* WILL LOG THE CONTENTS OF THE ESM
00043  M00S00042.1mb     +++|*         SECDED LOG TO THE BML AT THE END OF EVERY HOUR.
00044  M00S00043.1mb     +++|*                SCR PROCESSING AND TERMINOLOGY IS ALSO USED TO
00045  M00S00044.1mb     +++|*         REFER TO CYBER 170 - 865/875 MAINTENANCE REGISTERS.
00046  M00S00045.1mb     +++|          SPACE  4,10
00047  M00S00046.1mb     +++|****      DIRECT LOCATION ASSIGNMENTS.
00048  M00S00047.1mb     +++|
00049  M00S00048.1mb     +++|
00050  M00S00049.1mb     +++| T8       EQU    16          TEMPORARY
00051  M00S00050.1mb     +++| T9       EQU    17          TEMPORARY
00052  M00S00051.1mb     +++| CN       EQU    20 - 24     CM BUFFER (5 LOCATIONS)
Line S00001 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00053  M01S00001.ns2769  +++| WB       EQU    CN - CN+4   FOR *COMPIMB* COMPATIBILITY
00054  M00S00052.1mb     +++| MF       EQU    25          MACHINE FLAG
00055  M00S00053.1mb     +++| NB       EQU    26          NUMBER OF PP BYTES IN *BML* MESSAGE
00056  M00S00054.1mb     +++| PN       EQU    27          PP NUMBER * 100B
00057  M00S00055.1mb     +++| SC       EQU    30 - 34     S/C PARAMETER WORD *SCRL* (5 LOCATIONS)
00058  M00S00056.1mb     +++| MI       EQU    60 - 64     MAINFRAME IDENTIFICATION
00059  M00S00057.1mb     +++| EM       EQU    65          LAST MASS STORAGE EST ORDINAL + 1
00060  M00S00058.1mb     +++|
00061  M00S00059.1mb     +++|
00062  M00S00060.1mb     +++|**        DIRECT CELLS FOR STATUS AND CONTROL REGISTER PROCESSING.
00063  M00S00061.1mb     +++|
00064  M00S00062.1mb     +++|          QUAL   1SC
00065  M00S00063.1mb     +++| CH       EQU    40 - 41     S/C REGISTER CHANNELS
00066  M00S00064.1mb     +++| ER       EQU    42          NUMBER OF S/C REGISTER ERRORS
00067  M00S00065.1mb     +++| NP       EQU    43          NUMBER OF PP-S IN SYSTEM
00068  M00S00066.1mb     +++| NW       EQU    44          NUMBER OF CM WORDS IN *BML* MESSAGE
00069  M00S00067.1mb     +++|          QUAL   *
00070  M00S00068.1mb     +++|
00071  M00S00069.1mb     +++|
00072  M00S00070.1mb     +++|**        DIRECT CELLS FOR MAINTENANCE REGISTER PROCESSING.
00073  M00S00071.1mb     +++|
00074  M00S00072.1mb     +++|          QUAL   1MB
00075  M00S00073.1mb     +++| BP       EQU    40          NEXT WORD IN *BML* MESSAGE TO USE
00076  M00S00074.1mb     +++| EC       EQU    41          ELEMENT ACCESS CODE
00077  M00S00075.1mb     +++| MB       EQU    42 - 43     M/R BUFFER CONTROL WORD ADDRESS
00078  M00S00076.1mb     +++| MS       EQU    44 - 45     M/R BUFFER ADDRESS
00079  M00S00077.1mb     +++| RN       EQU    46          REGISTER NUMBER
00080  M00S00078.1mb     +++| DC       EQU    60 - 64     *DFT* CONTROL WORD
00081  M00S00079.1mb     +++|          QUAL   *
00082  M00S00080.1mb     +++|****
00083  M00S00081.1mb     +++|          SPACE  4,10
00084  M00S00082.1mb     +++|*         ASSEMBLY CONSTANTS.
00085  M00S00083.1mb     +++|
00086  M00S00084.1mb     +++|
00087  M00S00085.1mb     +++| QUAL$    EQU    0           DO NOT QUALIFY COMMON DECKS
00088  M00S00086.1mb     +++|
00089  M00S00087.1mb     +++| MF70     EQU    0           CYBER 70
00090  M00S00088.1mb     +++|          ERRNZ  MF70        CODE DEPENDS ON ZERO VALUE
00091  M00S00089.1mb     +++| MF170    EQU    1           CYBER 170
00092  M00S00090.1mb     +++| MF700    EQU    2           CYBER 170 - 700 SERIES
00093  M00S00091.1mb     +++| MF865    EQU    3           CYBER 170 - 865
00094  M00S00092.1mb     +++| MF875    EQU    4           CYBER 170 - 875
00095  M00S00093.1mb     +++| MF180    EQU    5           CYBER 180 CLASS MACHINE
00096  M00S00094.1mb     +++| MF176A   EQU    6           CYBER 176 LEVEL A
00097  M00S00095.1mb     +++| MF176B   EQU    7           CYBER 176 LEVEL B
00098  M00S00096.1mb     +++| MFMAX    EQU    10B         MAXIMUM MAINFRAME TYPE + 1
00099  M00S00097.1mb     +++|          TITLE  COMMON SUBROUTINES.
00100  M00S00098.1mb     +++| COMMON   SPACE  4,10
00101  M00S00099.1mb     +++|**        COMMON - COMMON CODE FOR *1MB* AND *1SC*.
00102  M00S00100.1mb     +++|*
00103  M00S00101.1mb     +++|*         THIS MACRO PROVIDES SIMILAR CODE FOR *1MB* AND *1SC*.
00104  M00S00102.1mb     +++|
00105  M00S00103.1mb     +++|
00106  M00S00104.1mb     +++| COMMON   MACRO
00107  M00S00105.1mb     +++| COMMON   RMT
00108  M00S00106.1mb     +++| CKC      SPACE  4,10
00109  M00S00107.1mb     +++|**        CKC - CHECK FOR *1CK* COMPLETE.
00110  M00S00108.1mb     +++|*
00111  M00S00109.1mb     +++|*         ENTRY  (SC+2) = *1CK* IR ADDRESS.
00112  M00S00110.1mb     +++|*
00113  M00S00111.1mb     +++|*         EXIT   *1CK* COMPLETE.
00114  M00S00112.1mb     +++|*
00115  M00S00113.1mb     +++|*         USES   CM - CM+4.
00116  M00S00114.1mb     +++|
00117  M00S00115.1mb     +++|
00118  M00S00116.1mb     +++| CKC      SUBR               ENTRY/EXIT
00119  M00S00117.1mb     +++| CKC1     LDD    SC+2        READ *1CK* IR
00120  M00S00118.1mb     +++|          CRD    CM
00121  M00S00119.1mb     +++|          LDD    CM+1
00122  M00S00120.1mb     +++|          SCN    77
00123  M00S00121.1mb     +++|          SHN    6
00124  M00S00122.1mb     +++|          LMD    CM
00125  M00S00123.1mb     +++|          LMC    3RK1C
00126  M00S00124.1mb     +++|          NJN    CKCX        IF *1CK* COMPLETE
00127  M00S00125.1mb     +++|          UJN    CKC1        LOOP
00128  M00S00126.1mb     +++| CKP      SPACE  4,15
00129  M00S00127.1mb     +++|**        CKP - CHECKPOINT SYSTEM.
00130  M00S00128.1mb     +++|*
00131  M00S00129.1mb     +++|*         ENTRY  (SC+2) = *1CK* IR ADDRESS.
00132  M00S00130.1mb     +++|*
00133  M00S00131.1mb     +++|*         EXIT   EXITS TO *1CK* ON INITIAL CALL.
00134  M00S00132.1mb     +++|*                CHECKPOINT IN PROGRESS BIT SET IN *EICB*.
00135  M00S00133.1mb     +++|*
00136  M00S00134.1mb     +++|*         USES   CM - CM+4, SC+2.
00137  M00S00135.1mb     +++|*
00138  M00S00136.1mb     +++|*         CALLS  /1MB/DSP, *1CK*.
00139  M00S00137.1mb     +++|*
00140  M00S00138.1mb     +++|*         MACROS EXECUTE.
00141  M00S00139.1mb     +++|
00142  M00S00140.1mb     +++|
00143  M00S00141.1mb     +++| CKP      SUBR               ENTRY/EXIT
00144  M00S00142.1mb     +++|          LDD    SC+2        CHECK FOR *1CK* ALREADY CALLED
00145  M00S00143.1mb     +++|          NJN    CKPX        IF *1CK* ALREADY CALLED
00146  M00S00144.1mb     +++| .A       IFC    EQ,/"QUAL"/1MB/
00147  M00S00145.1mb     +++|          RJM    /1MB/DSP    GET *EICB* POINTER
00148  M00S00146.1mb     +++|          ZJN    CKP1        IF NO *EICB*
00149  M00S00147.1mb     +++|          ADN    D7ST
00150  M00S00148.1mb     +++|          CRD    CM          READ STATUS WORD
00151  M00S00149.1mb     +++|          LDD    CM
00152  M00S00150.1mb     +++|          SCN    4
00153  M00S00151.1mb     +++|          LMN    4           SET CHECKPOINT IN PROGRESS
00154  M00S00152.1mb     +++|          STD    CM
00155  M00S00153.1mb     +++|          RJM    /1MB/DSP
00156  M00S00154.1mb     +++|          ADN    D7ST
00157  M00S00155.1mb     +++|          CWD    CM
00158  M00S00156.1mb     +++| .A       ENDIF
00159  M00S00157.1mb     +++| CKP1     EXECUTE 1CK,=
00160  M00S00158.1mb     +++|          LDD    IA          CALL *1CK*
00161  M00S00159.1mb     +++|          CWM    CKPA,ON
00162  M00S00160.1mb     +++|          SCN    7
00163  M00S00161.1mb     +++|          STD    SC+2
00164  M00S00162.1mb     +++|          LDM    CKPA+2
00165  M00S00163.1mb     +++|          LMN    10
Line S00164 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00166  M01S00164.ns2660  ---| CKP2     ZJP    DPP2        IF TO RECALL *1MB*
Line S00001 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00167  M01S00001.ns2660  +++| CKP2     ZJP    DPP3        IF TO RECALL *1MB*
00168  M00S00165.1mb     +++|          LMN    11&10
00169  M00S00166.1mb     +++|          ZJN    CKP2        IF TO RECALL *1MB*
Line S00001 Modification History
M01 (Added by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00170  M01S00001.ns2593  +++|          LMN    13&11
00171  M01S00002.ns2593  +++|          ZJN    CKP2        IF TO RECALL *1MB*
Line S00167 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00172  M01S00167.ns2660  ---|          LJM    DPP1        EXIT TO *1CK* AND ENABLE *1MB* CALL
Line S00002 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00173  M01S00002.ns2660  +++|          LJM    DPP2        EXIT TO *1CK* AND ENABLE *1MB* CALL
00174  M00S00168.1mb     +++|
00175  M00S00169.1mb     +++| CKPA     VFD    18/0L1CK,6/0,12/1,24/0  SYSTEM CHECKPOINT CALL
00176  M00S00170.1mb     +++| CSH      SPACE  4,10
00177  M00S00171.1mb     +++|**        CSH - CHECKPOINT SYSTEM, SET STEP, AND HANG.
00178  M00S00172.1mb     +++|*
00179  M00S00173.1mb     +++|*         ENTRY  AT *CSH1* FOR CYBER 176 DOUBLE BIT *SECDED* ERROR.
00180  M00S00174.1mb     +++|*
00181  M00S00175.1mb     +++|*         CALLS  CKC, CKP, RSM.
00182  M00S00176.1mb     +++|
00183  M00S00177.1mb     +++|
00184  M00S00178.1mb     +++| CSH      SUBR               ENTRY (DOES NOT RETURN)
00185  M00S00179.1mb     +++| .A       IFC    EQ,/"QUAL"/1MB/
00186  M00S00180.1mb     +++|          RJM    /1MB/DPR    DUMP PP REGISTERS
00187  M00S00181.1mb     +++| .A       ENDIF
00188  M00S00182.1mb     +++|          RJM    CKP         ATTEMPT SYSTEM CHECKPOINT
00189  M00S00183.1mb     +++|          LDD    CP
00190  M00S00184.1mb     +++|          ADN    MS2W        DISPLAY * FATAL ERROR.* MESSAGE
00191  M00S00185.1mb     +++|          CWM    CSHM,TR
00192  M00S00186.1mb     +++| CSHA     EQU    *-1         (MESSAGE ADDRESS)
00193  M00S00187.1mb     +++|          RJM    CKC         WAIT FOR *1CK* TO FINISH
00194  M00S00188.1mb     +++| .A       IFC    EQ,/"QUAL"/1MB/
00195  M00S00189.1mb     +++|          RJM    /1MB/DPR    DUMP PP REGISTERS
00196  M00S00190.1mb     +++| .A       ENDIF
00197  M00S00191.1mb     +++| CSH1     RJM    RSM         STEP SYSTEM
00198  M00S00192.1mb     +++| CSH2     LDD    CP          DISPLAY *FATAL ERROR* MESSAGE AGAIN
00199  M00S00193.1mb     +++|          ADN    MS2W
00200  M00S00194.1mb     +++|          CWM    CSHM,TR
00201  M00S00195.1mb     +++| CSHB     EQU    *-1         (MESSAGE ADDRESS)
Line S00196 Modification History
M01 (Removed by) 1mb35
Seq #  *Modification Id* Act 
----------------------------+
00202  M01S00196.1mb35   ---| CSH3     DELAY
00203  M01S00197.1mb35   ---|          LDD    CP          CHECK IF MESSAGE PRESENT
00204  M01S00198.1mb35   ---|          ADN    MS2W
00205  M01S00199.1mb35   ---|          CRD    CN
00206  M01S00200.1mb35   ---|          LDD    CN
00207  M01S00201.1mb35   ---|          ZJN    CSH2        IF NO MESSAGE AT SYSTEM CONTROL POINT
00208  M01S00202.1mb35   ---|          UJN    CSH3        CONTINUE CHECKING
Line S00001 Modification History
M01 (Added by) 1mb35
Seq #  *Modification Id* Act 
----------------------------+
00209  M01S00001.1mb35   +++|          DELAY  5*8D        DELAY 5 SECONDS (FOR OTHER MESSAGES)
00210  M01S00002.1mb35   +++|          UJN    CSH2        DISPLAY MESSAGE AGAIN
00211  M00S00203.1mb     +++| DPP      SPACE  4,20
00212  M00S00204.1mb     +++|**        DPP - DROP PP.
00213  M00S00205.1mb     +++|*
00214  M00S00206.1mb     +++|*         ENTRY  (SC - SC+4) = *SCRL* WORD WITH MONITOR LOCK-OUT BIT
00215  M00S00207.1mb     +++|*                              SET.
00216  M00S00208.1mb     +++|*
00217  M00S00209.1mb     +++|*         EXIT   (SC - SC+4) = *SCRL* WORD WITH MONITOR LOCK-OUT BIT
00218  M00S00210.1mb     +++|*                              CLEARED.
00219  M00S00211.1mb     +++|*                            = WRITTEN TO CENTRAL MEMORY.
00220  M00S00212.1mb     +++|*                PP DROPPED.
00221  M00S00213.1mb     +++|*                16-BIT INSTRUCTIONS CLEARED, IF PRESENT.
00222  M00S00214.1mb     +++|*                EXIT TO *PPR*.
00223  M00S00215.1mb     +++|*
00224  M00S00216.1mb     +++|*         NOTE   THE *DPPM* FUNCTION IN THIS ROUTINE IS
00225  M00S00217.1mb     +++|*                EXECUTED OUT OF NORMAL ORDER TO PREVENT
00226  M00S00218.1mb     +++|*                PP SATURATION WHEN *1MB* IS STEPPED
00227  M00S00219.1mb     +++|*                ON A *DPPM*.
00228  M00S00220.1mb     +++|
00229  M00S00221.1mb     +++|
Line S00003 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00222.1mb     +++| DPP      MONITOR DPPM       DROP PP
Line S00223 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00235  M01S00223.ns2660  ---| DPP0     LDN    0           CLEAR *1CK* IR ADDRESS
Line S00007 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00224.1mb     +++|          STD    SC+2
Line S00225 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00240  M01S00225.ns2660  ---| DPP1     LDD    SC          CLEAR MONITOR LOCK-OUT BIT
Line S00010 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00241  M01S00010.ns2660  +++| DPP2     LDD    SC          CLEAR MONITOR LOCK-OUT BIT
00242  M00S00226.1mb     +++|          LPC    3777
00243  M00S00227.1mb     +++|          STD    SC
Line S00228 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00244  M01S00228.ns2660  ---| DPP2     LDC    SCRL        UPDATE *SCRL*
Line S00011 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00245  M01S00011.ns2660  +++| DPP3     LDC    SCRL        UPDATE *SCRL*
00246  M00S00229.1mb     +++|          CWD    SC
00247  M00S00230.1mb     +++| .A       IFC    EQ,/"QUAL"/1MB/
Line S00231 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00248  M01S00231.ns2660  ---| DPPA     LDN    0
Line S00012 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00249  M01S00012.ns2660  +++| DPPB     LDN    0
00250  M00S00232.1mb     +++|*         LDN    1           (16-BIT INSTRUCTIONS PRESENT)
Line S00233 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00251  M01S00233.ns2660  ---|          ZJN    DPP3        IF NO 16-BIT INSTRUCTIONS
Line S00013 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00252  M01S00013.ns2660  +++|          ZJN    DPP4        IF NO 16-BIT INSTRUCTIONS
00253  M00S00234.1mb     +++|          RJM    CPM         CLEAR PP MEMORY
00254  M00S00235.1mb     +++|          LDC    400000B+LINS  ADDRESS OF INSTRUCTION TABLE
00255  M00S00236.1mb     +++|          RJM    DLI         CLEAR 16-BIT INSTRUCTIONS
00256  M00S00237.1mb     +++| .A       ENDIF
Line S00238 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00257  M01S00238.ns2660  ---| DPP3     LJM    PPR         EXIT TO PP RESIDENT
Line S00014 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00258  M01S00014.ns2660  +++| DPP4     LJM    PPR         EXIT TO PP RESIDENT
00259  M00S00239.1mb     +++| IBM      SPACE  4,10
00260  M00S00240.1mb     +++|**        *BML* MESSAGE BUFFER.
00261  M00S00241.1mb     +++|
00262  M00S00242.1mb     +++|
00263  M00S00243.1mb     +++| IBMF     VFD    12/0,12/0,6/0,6/0,24/0  MESSAGE ID/SYMPTOM CODE
00264  M00S00244.1mb     +++| IBMG     VFD    12/0,9/0,1/0,2/0,36/0  MESSAGE CONTINUATION BIT
00265  M00S00245.1mb     +++| IBMH     VFD    60/0        BML MESSAGE BUFFER (4 CM WORDS)
00266  M00S00246.1mb     +++|          VFD    60/0
00267  M00S00247.1mb     +++|          VFD    60/0
00268  M00S00248.1mb     +++|          VFD    60/0
00269  M00S00249.1mb     +++| IBMHL    EQU    *           END OF BML BUFFER
00270  M00S00250.1mb     +++| RSM      SPACE  4,10
00271  M00S00251.1mb     +++|**        RSM - REQUEST STEP MODE.
00272  M00S00252.1mb     +++|*
00273  M00S00253.1mb     +++|*         ENTRY  (SC - SC+4) = (SCRL).
00274  M00S00254.1mb     +++|*
00275  M00S00255.1mb     +++|*         EXIT   STEP MODE SET.
00276  M00S00256.1mb     +++|*
00277  M00S00257.1mb     +++|*         USES   CM - CM+4, SC - SC+4.
00278  M00S00258.1mb     +++|*
00279  M00S00259.1mb     +++|*         MACROS MONITOR.
00280  M00S00260.1mb     +++|
00281  M00S00261.1mb     +++|
00282  M00S00262.1mb     +++| RSM      SUBR               ENTRY/EXIT
00283  M00S00263.1mb     +++|          LDD    SC
00284  M00S00264.1mb     +++|          SHN    21-11
00285  M00S00265.1mb     +++|          MJN    RSMX        IF STEP ALREADY REQUESTED
00286  M00S00266.1mb     +++|          LDD    TH          SET REQUEST BIT AND WRITE SCRL
00287  M00S00267.1mb     +++|          RAD    SC
00288  M00S00268.1mb     +++|          LDC    SCRL
00289  M00S00269.1mb     +++|          CWD    SC
00290  M00S00270.1mb     +++|          LDD    SC
00291  M00S00271.1mb     +++|          SHN    21-10
00292  M00S00272.1mb     +++|          MJN    RSMX        IF STEP SET
00293  M00S00273.1mb     +++|          LDN    0           CLEAR EJT ORDINAL
00294  M00S00274.1mb     +++|          STD    CM+2
00295  M00S00275.1mb     +++|          LDN    DPPM        STEP ON DROP PP
00296  M00S00276.1mb     +++|          STD    CM+3
00297  M00S00277.1mb     +++|          LMD    TH
00298  M00S00278.1mb     +++|          STD    CM+4
Line S00279 Modification History
M01 (Removed by) ns2726
Seq #  *Modification Id* Act 
----------------------------+
00299  M01S00279.ns2726  ---|          LDN    3           SET EMERGENCY STEP SUBFUNCTION
Line S00001 Modification History
M01 (Added by) ns2726
Seq #  *Modification Id* Act 
----------------------------+
00300  M01S00001.ns2726  +++|          LDN    ESPS        SET EMERGENCY STEP SUBFUNCTION
00301  M00S00280.1mb     +++|          STD    CM+1
00302  M00S00281.1mb     +++|          MONITOR DSRM       SET STEP MODE
00303  M00S00282.1mb     +++|          LDC    SCRL        READ *SCRL*
00304  M00S00283.1mb     +++|          CRD    SC
00305  M00S00284.1mb     +++|          UJN    RSMX        RETURN
00306  M00S00285.1mb     +++|
00307  M00S00286.1mb     +++| COMMON   RMT
00308  M00S00287.1mb     +++| COMMON   ENDM
00309  M00S00288.1mb     +++|          SPACE  4,10
00310  M00S00289.1mb     +++|*         MACROS.
Line S00002 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00290.1mb     +++| RPTR     SPACE  4,15
00351  M00S00291.1mb     +++|**        RPTR - CONVERT ADDRESS FROM R-REGISTER FORMAT.
00352  M00S00292.1mb     +++|*
00353  M00S00293.1mb     +++|*         RPTR   DC,ADDR
00354  M00S00294.1mb     +++|*
00355  M00S00295.1mb     +++|*         ENTRY  *DC* = DIRECT CELL LOCATION OF R-REGISTER FORMAT
00356  M00S00296.1mb     +++|*                       ADDRESS (R-UPPER IN *DC*+1 IS ASSUMED = 0).
00357  M00S00297.1mb     +++|*                *ADDR* = LOCATION TO STORE CONVERTED ADDRESS.
00358  M00S00298.1mb     +++|*
00359  M00S00299.1mb     +++|*         EXIT   (ADDR - ADDR+1) = CONVERTED ADDRESS.
00360  M00S00300.1mb     +++|*                (A) = CONVERTED ADDRESS, IF *ADDR* NOT SPECIFIED.
00361  M00S00301.1mb     +++|
00362  M00S00302.1mb     +++|
00363  M00S00303.1mb     +++|          PURGMAC  RPTR
00364  M00S00304.1mb     +++|
00365  M00S00305.1mb     +++| RPTR     MACRO  D,A
00366  M00S00306.1mb     +++|          LDD    D+2         R-LOWER
00367  M00S00307.1mb     +++|          SHN    6
00368  M00S00308.1mb     +++|          LMD    D           OFFSET
00369  M00S00309.1mb     +++| .A       IFC    NE,$A$$
00370  M00S00310.1mb     +++|          STM    A+1
00371  M00S00311.1mb     +++|          SHN    -14
00372  M00S00312.1mb     +++|          RAM    A
00373  M00S00313.1mb     +++| .A       ENDIF
00374  M00S00314.1mb     +++| RPTR     ENDM
Line S00315 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00375  M01S00315.ns2769  ---|          SPACE  4,10
00376  M00S00316.1mb     +++|**        COMMON DECKS.
00377  M00S00317.1mb     +++|
00378  M00S00318.1mb     +++|
00379  M00S00319.1mb     +++|*CALL     COMPMAC
00380  M00S00320.1mb     +++| RICHI$   BSS    0
00381  M00S00321.1mb     +++|*CALL     COMPCHI
00382  M00S00322.1mb     +++|*CALL     COMPIOU
00383  M00S00323.1mb     +++|*CALL     COMPMRM
00384  M00S00324.1mb     +++|*CALL     COMSCPS
00385  M00S00325.1mb     +++|*CALL     COMSDFS
00386  M00S00326.1mb     +++|          LIST   X
00387  M00S00327.1mb     +++|*CALL     COMSDFT
00388  M00S00328.1mb     +++|          LIST   *
00389  M00S00329.1mb     +++|          QUAL   DSL
00390  M00S00330.1mb     +++|*CALL     COMSDSL
00391  M00S00331.1mb     +++|          QUAL   *
00392  M00S00332.1mb     +++|*CALL     COMSDST
00393  M00S00333.1mb     +++|*CALL     COMSEVT
00394  M00S00334.1mb     +++|*CALL     COMSIOU
00395  M00S00335.1mb     +++|*CALL     COMSMSC
Line S00001 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00396  M01S00001.272l774 +++|          QUAL   MSP
00397  M00S00336.1mb     +++|*CALL     COMSMSP
Line S00002 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00398  M01S00002.272l774 +++|          QUAL   *
00399  M00S00337.1mb     +++|*CALL     COMSMST
00400  M00S00338.1mb     +++|*CALL     COMSPIM
00401  M00S00339.1mb     +++|*CALL     COMSREM
00402  M00S00340.1mb     +++|          QUAL   SSD
00403  M00S00341.1mb     +++|*CALL     COMSSSD
00404  M00S00342.1mb     +++|          QUAL   *
00405  M00S00343.1mb     +++|          LIST   X
00406  M00S00344.1mb     +++|*CALL     COMSSCR
00407  M00S00345.1mb     +++|          LIST   *
00408  M00S00346.1mb     +++|          QUAL   1DS
00409  M00S00347.1mb     +++|*CALL     COMS1DS
00410  M00S00348.1mb     +++|          QUAL   *
00411  M00S00349.1mb     +++|          TITLE  MAINTENANCE REGISTER PROCESSING.
00412  M00S00350.1mb     +++|***       MEP - MAINTENANCE CHANNEL ERROR PROCESSOR.
00413  M00S00351.1mb     +++|*
00414  M00S00352.1mb     +++|*         *MEP* IS THE MAIN DRIVER THAT PROCESSES THE LOGGING OF ERRORS
00415  M00S00353.1mb     +++|*         THAT WERE DETECTED BY *DFT*.  *1MB* IS CALLED BY *MTR* TO
00416  M00S00354.1mb     +++|*         LOAD *DFT* IN THE NON-DEDICATED CASE.  *1MB* WILL REACT TO
00417  M00S00355.1mb     +++|*         THE OS ACTION CODES SUPPLIED BY *DFT* AND LOG THE MAINTENANCE
00418  M00S00356.1mb     +++|*         REGISTERS TO THE *BML*.
00419  M00S00357.1mb     +++|          SPACE  4,10
00420  M00S00358.1mb     +++|***       DAYFILE MESSAGES.
00421  M00S00359.1mb     +++|*
00422  M00S00360.1mb     +++|*
00423  M00S00361.1mb     +++|*         * 1MB - CALL ERROR.* = *1MB* WAS CALLED WITH AN ILLEGAL
00424  M00S00362.1mb     +++|*         FUNCTION BIT CODE.
00425  M00S00363.1mb     +++|          SPACE  4,20
00426  M00S00364.1mb     +++|***       SYSTEM CONTROL POINT MESSAGES.
00427  M00S00365.1mb     +++|*
00428  M00S00366.1mb     +++|*
00429  M00S00367.1mb     +++|*         HH.MM.SS ERR=DEMMXXXXXXXX
00430  M00S00368.1mb     +++|*
00431  M00S00369.1mb     +++|*         HH.MM.SS = TIME THE ERROR WAS DETECTED, IF VERSION 4 OR ABOVE
00432  M00S00370.1mb     +++|*                    *DFT* AND THE TIME WAS AVAILABLE FROM THE WALL
00433  M00S00371.1mb     +++|*                    CLOCK CHIP.
00434  M00S00372.1mb     +++|*                  = TIME THE ERROR WAS LOGGED BY *1MB*, IF *DFT*
00435  M00S00373.1mb     +++|*                    VERSION 3, OR THE TIME WAS NOT AVAILABLE TO *DFT*.
00436  M00S00374.1mb     +++|*
00437  M00S00375.1mb     +++|*         E = ELEMENT SPECIFIER.
00438  M00S00376.1mb     +++|*           = C, FOR PROCESSOR 0.
00439  M00S00377.1mb     +++|*           = D, FOR PROCESSOR 1.
00440  M00S00378.1mb     +++|*           = I, FOR IOU 0.
00441  M00S00379.1mb     +++|*           = J, FOR IOU 1.
00442  M00S00380.1mb     +++|*           = M, FOR MEMORY.
00443  M00S00381.1mb     +++|*           = A, FOR *DFT* INTERNAL ERROR.
00444  M00S00382.1mb     +++|*
00445  M00S00383.1mb     +++|*         MM = MODEL NUMBER OF THE SPECIFIED ELEMENT.
00446  M00S00384.1mb     +++|*              THIS FIELD IS NOT PRESENT IF THE ELEMENT SPECIFIER IS
00447  M00S00385.1mb     +++|*              *A*.
00448  M00S00386.1mb     +++|*
00449  M00S00387.1mb     +++|*         XXXXXXXX = MODEL DEPENDENT DATA FURTHER DESCRIBING THE ERROR.
00450  M00S00388.1mb     +++|*                    THIS NORMALLY CONSISTS OF THE THREE CHARACTER
00451  M00S00389.1mb     +++|*                    *DFT* ANALYSIS CODE.
00452  M00S00390.1mb     +++|*
00453  M00S00391.1mb     +++|*
00454  M00S00392.1mb     +++|*         IN THE FOLLOWING MESSAGES, THE HEXADECIMAL NUMBER IN THE
00455  M00S00393.1mb     +++|*         MESSAGE IS THE *DFT* ANALYSIS CODE WHICH CAUSED THE MESSAGE.
00456  M00S00394.1mb     +++|*
00457  M00S00395.1mb     +++|*         *(204) FATAL CPU ERROR*
00458  M00S00396.1mb     +++|*         *(215) FATAL MCH ERROR*
00459  M00S00397.1mb     +++|*
00460  M00S00398.1mb     +++|*         THE FOLLOWING MESSAGE IS POSTED WHEN A POWER OR ENVIRONMENT
00461  M00S00399.1mb     +++|*         WARNING HAS CLEARED.
00462  M00S00400.1mb     +++|*
00463  M00S00401.1mb     +++|*         *POWER/ENVIRONMENT NORMAL*
00464  M00S00402.1mb     +++|          SPACE  4,10
00465  M00S00403.1mb     +++|          ORG    PPFW
00466  M00S00404.1mb     +++|          QUAL   1MB
00467  M00S00405.1mb     +++|
00468  M00S00406.1mb     +++| MEP      BSS    0           ENTRY
00469  M00S00407.1mb     +++|          LJM    MEP1        PRESET
00470  M00S00408.1mb     +++|
00471  M00S00409.1mb     +++|*         GLOBAL STORAGE.
00472  M00S00410.1mb     +++|
00473  M00S00411.1mb     +++| DFTV     CON    0           *DFT* VERSION (0 = VERSION 3)
00474  M00S00412.1mb     +++| SSCW     CON    0,0         SUPPORTIVE STATUS CONTROL WORD ADDRESS
00475  M00S00413.1mb     +++|          SPACE  4,10
00476  M00S00414.1mb     +++|**        COMMON SUBROUTINES.
00477  M00S00415.1mb     +++|
00478  M00S00416.1mb     +++|
00479  M00S00417.1mb     +++|          COMMON
00480  M00S00418.1mb     +++|
00481  M00S00419.1mb     +++|          LIST   D
00482  M00S00420.1mb     +++| COMMON   HERE
00483  M00S00421.1mb     +++|          LIST   *
00484  M00S00422.1mb     +++|          SPACE  4,10
00485  M00S00423.1mb     +++|*         COMMON DECKS WITH NO 16-BIT INSTRUCTIONS.
00486  M00S00424.1mb     +++|
00487  M00S00425.1mb     +++|
00488  M00S00426.1mb     +++|*CALL     COMPMRA
00489  M00S00427.1mb     +++|*CALL     COMPACS
00490  M00S00428.1mb     +++|*CALL     COMT8AD
00491  M00S00429.1mb     +++|          SPACE  4,10
00492  M00S00430.1mb     +++|*         SYSTEM CONTROL POINT MESSAGES.
00493  M00S00431.1mb     +++|
00494  M00S00432.1mb     +++|
00495  M00S00433.1mb     +++| MSFS     DATA   28C HH.MM.SS.ERR=XXXXXXXXXXXX
00496  M00S00434.1mb     +++| CSHM     EQU    MSFS        DEFAULT *CSHM* MESSAGE
00497  M00S00435.1mb     +++| MSCP     DATA   C*(204) FATAL CPU ERROR*
00498  M00S00436.1mb     +++| MSME     DATA   C*(215) FATAL MCH ERROR*
00499  M00S00437.1mb     +++| MSPN     DATA   C*POWER/ENVIRONMENT NORMAL*
00500  M00S00438.1mb     +++| TOSC     SPACE  4,10
00501  M00S00439.1mb     +++|**        TABLE OF OS ACTION CODES.
00502  M00S00440.1mb     +++|
00503  M00S00441.1mb     +++| TOSC     INDEX
00504  M00S00442.1mb     +++|          INDEX  EWAC,ENW    ENVIRONMENT WARNING
00505  M00S00443.1mb     +++|          INDEX  LPAC,LPW    LONG POWER WARNING
00506  M00S00444.1mb     +++|          INDEX  SPAC,SPW    SHORT POWER WARNING
00507  M00S00445.1mb     +++|          INDEX  WCAC,WCL    WARNING CLEAR
00508  M00S00446.1mb     +++|          INDEX  FIAC,FIE    FATAL IOU ERROR
00509  M00S00447.1mb     +++|          INDEX  NVAC,NIE    NOS/VE IOU ERROR
00510  M00S00448.1mb     +++|          INDEX  UMAC,MEP6   FATAL CM ERROR
00511  M00S00449.1mb     +++|          INDEX  MBAC,MOB    MULTIPLE ODD BIT ERROR
00512  M00S00450.1mb     +++|          INDEX  UPAC,MEP6   FATAL CPU ERROR
00513  M00S00451.1mb     +++|          INDEX  UIAC,FIE    UNCORRECTED IOU ERROR
00514  M00S00452.1mb     +++|          INDEX  MXAC
00515  M00S00453.1mb     +++| TDFA     SPACE  4,10
00516  M00S00454.1mb     +++|**        TDFA - TABLE OF *DFT* ANALYSIS CODES.
00517  M00S00455.1mb     +++|*
00518  M00S00456.1mb     +++|*T        12/ *DFT* CODE, 12/ ACTION, 12/ ROUTINE
Figure

01112232429 ROUTINE ACTION *DFT* CODE3035 *DFT* CODE

00519  M00S00457.1mb     +++|*
00520  M00S00458.1mb     +++|*         FOR *DFT* VERSION 4, OR ABOVE THE PROCESSING ROUTINE IS
00521  M00S00459.1mb     +++|*         SELECTED BY FINDING A TABLE ENTRY WITH A *DFT* ANALYSIS CODE
00522  M00S00460.1mb     +++|*         AND OS ACTION CODE MATCHING THOSE PASSED BY *DFT*.  IF NO
00523  M00S00461.1mb     +++|*         MATCH IS FOUND, ROUTINE *MSC* WILL BE SELECTED.  THE TABLE
00524  M00S00462.1mb     +++|*         MUST BE IN ASCENDING ORDER BY ANALYSIS CODE.
00525  M00S00463.1mb     +++|
00526  M00S00464.1mb     +++|
00527  M00S00465.1mb     +++| TDFA     BSS    0
00528  M00S00466.1mb     +++|          CON    4,S7AC,FIE      C170 UNCORRECTED IOU ERROR (NIO PP)
00529  M00S00467.1mb     +++|          CON    4,S8AC,NIE      C180 UNCORRECTED IOU ERROR (NIO PP)
00530  M00S00468.1mb     +++|          CON    6,SSAC,FIE      FATAL IOU ERROR (NIO PP)
00531  M00S00469.1mb     +++|          CON    0#8,SSAC,FIE    FATAL IOU ERROR (CIO PP)
00532  M00S00470.1mb     +++|          CON    0#9,S7AC,FIE    C170 UNCORRECTED IOU ERROR (CIO PP)
00533  M00S00471.1mb     +++|          CON    0#9,S8AC,NIE    C180 UNCORRECTED IOU ERROR (CIO PP)
00534  M00S00472.1mb     +++|          CON    0#105,SSAC,MOB  MULTIPLE ODD BIT MEMORY ERROR
00535  M00S00473.1mb     +++|          CON    0#106,SSAC,MOB  PARTIAL WRITE PARITY ERROR
00536  M00S00474.1mb     +++|          CON    0#21E,SSAC,MOB  PARTIAL WRITE PARITY ERROR (990)
00537  M00S00475.1mb     +++|          CON    0#701,ISAC,ENW  ENVIRONMENT WARNING
00538  M00S00476.1mb     +++|          CON    0#702,ISAC,LPW  LONG POWER WARNING
00539  M00S00477.1mb     +++|          CON    0#703,SSAC,SPW  SHORT POWER WARNING
00540  M00S00478.1mb     +++|          CON    0#704,RSAC,WCL  ENVIRONMENT WARNING CLEAR
00541  M00S00479.1mb     +++|          CON    0#705,RSAC,WCL  LONG POWER WARNING CLEAR
00542  M00S00480.1mb     +++|          CON    0#706,USAC,WCL  SHORT POWER WARNING CLEAR
00543  M00S00481.1mb     +++|          CON    0#FFF           END OF TABLE
Line S00001 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00482.1mb     +++| MEP      SPACE  4,20
00627  M00S00483.1mb     +++|*         MAIN PROGRAM.
00628  M00S00484.1mb     +++|
00629  M00S00485.1mb     +++|**        PROGRAMMING NOTE.
00630  M00S00486.1mb     +++|*
00631  M00S00487.1mb     +++|*         WHENEVER A CALL TO *DFM* IS MADE, IT MAY BE NECESSARY FOR
00632  M00S00488.1mb     +++|*         *1DD* TO BE INVOKED TO FLUSH THE DAYFILE BUFFER.  *1DD*
00633  M00S00489.1mb     +++|*         OVERLAYS A PART OF THE PP, WHICH IT RESTORES WHEN COMPLETE.
00634  M00S00490.1mb     +++|*         HOWEVER, SINCE ONLY 12-BIT DATA CAN BE RESTORED BY THIS
00635  M00S00491.1mb     +++|*         PROCESS, *1MB* MUST NEVER DEPEND ON 16-BIT DATA BEING
00636  M00S00492.1mb     +++|*         PRESERVED ACROSS A *DFM* CALL IN THE PART OF THE PP USED BY
00637  M00S00493.1mb     +++|*         *1DD*.  FIRST, ANY *1MB* CODE CONTAINING LONG INSTRUCTIONS
00638  M00S00494.1mb     +++|*         MUST NOT START BEFORE LOCATION *DDLW*, DEFINED IN *COMSMSC*
00639  M00S00495.1mb     +++|*         AS THE LAST WORD USED BY *1DD*.  SECOND, SINCE ANY DIRECT
00640  M00S00496.1mb     +++|*         CELLS CONTAINING 16-BIT DATA WILL NOT BE INTACT AFTER *1DD*
00641  M00S00497.1mb     +++|*         IS COMPLETE, CARE SHOULD BE TAKEN EITHER TO STORE 16-BIT DATA
00642  M00S00498.1mb     +++|*         IN THE PROTECTED AREA OF *1MB*, OR TO RE-READ THE DATA FROM
00643  M00S00499.1mb     +++|*         CM AFTER THE *DFM* CALL.
00644  M00S00500.1mb     +++|
00645  M00S00501.1mb     +++|
00646  M00S00502.1mb     +++| .MEP     MAX    *,DDLW
00647  M00S00503.1mb     +++|          ORG    .MEP
00648  M00S00504.1mb     +++|
00649  M00S00505.1mb     +++| MEP1     RJM    PRS         PRESET FOR *1MB*
00650  M00S00506.1mb     +++|          LDK    EIBP        READ *EICB* POINTER
00651  M00S00507.1mb     +++|          CRD    CN
00652  M00S00508.1mb     +++|          ADN    INWL-EIBP   CHECK *MCH* ERROR BIT
00653  M00S00509.1mb     +++|          CRD    CM
00654  M00S00510.1mb     +++|          LDD    CN+3        SAVE *EICB* ADDRESS
00655  M00S00511.1mb     +++|          RAM    DSPA
00656  M00S00512.1mb     +++|          LDD    CN+4
00657  M00S00513.1mb     +++|          RAM    DSPA+1
00658  M00S00514.1mb     +++|          LDD    CM+4
00659  M00S00515.1mb     +++|          SHN    21-5
00660  M00S00516.1mb     +++|          MJP    MRER        IF MCH ERROR IN PROGRESS
00661  M00S00517.1mb     +++|          LDC    LINS        DEFINE LONG INSTRUCTIONS
00662  M00S00518.1mb     +++|          RJM    DLI
Line S00519 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00663  M01S00519.ns2660  ---|          AOM    DPPA
Line S00015 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00664  M01S00015.ns2660  +++|          AOM    DPPB
00665  M00S00520.1mb     +++|          RJM    SBA         SET BUFFER ADDRESSES
00666  M00S00521.1mb     +++|          RJM    CTP         CHECK FOR TIME PROCESSING
00667  M00S00522.1mb     +++|          LDDL   DC+3
00668  M00S00523.1mb     +++|          SHN    21-DCE7
00669  M00S00524.1mb     +++|          MJN    MEP2        IF ERRORS LOGGED IN M/R BUFFER
00670  M00S00525.1mb     +++|          LJM    LED         LOAD AND EXECUTE *DFT*
00671  M00S00526.1mb     +++|
00672  M00S00527.1mb     +++| MEP2     LCN    0           CLEAR C170 ERROR PRESENT FLAG
00673  M00S00528.1mb     +++|          STDL   CN
00674  M00S00529.1mb     +++|          STDL   CN+1
00675  M00S00530.1mb     +++|          STDL   CN+2
00676  M00S00531.1mb     +++|          SCBN   DCE7
00677  M00S00532.1mb     +++|          STDL   CN+3
00678  M00S00533.1mb     +++|          RJM    DOB
00679  M00S00534.1mb     +++|          ADK    DFCW
00680  M00S00535.1mb     +++|          RDCL   CN
00681  M00S00536.1mb     +++| MEP3     LDN    1           SET INTERVAL BETWEEN CONTROL WORDS
00682  M00S00537.1mb     +++|          STD    T2
Line S00083 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00683  M01S00083.271l716 +++|          RJM    SCA         SET ADDRESS OF CONTROL WORDS
00684  M00S00538.1mb     +++|          LDD    DC+2        SET NUMBER OF M/R BUFFER CONTROL WORDS
00685  M00S00539.1mb     +++|          LPC    377
00686  M00S00540.1mb     +++|          RJM    FOM         FIND OLDEST M/R BUFFER CONTROL WORD
00687  M00S00541.1mb     +++|          STM    FSSB        SAVE M/R CONTROL WORD OFFSET
00688  M00S00542.1mb     +++|          STM    LMRD        SET NON-REGISTER FLAG
00689  M00S00543.1mb     +++|          ZJN    MEP4        IF NO ENTRIES PRESENT
00690  M00S00544.1mb     +++|          RJM    FSS         FIND SUPPORTIVE STATUS DATA
00691  M00S00545.1mb     +++|          UJN    MEP5        DETERMINE OS ACTION
00692  M00S00546.1mb     +++|
00693  M00S00547.1mb     +++| MEP4     RJM    FNR         FIND NON-REGISTER DATA
00694  M00S00548.1mb     +++|          NJN    MEP5        IF DATA PRESENT
00695  M00S00549.1mb     +++|          LDC    **
00696  M00S00550.1mb     +++| MEPA     EQU    *-1         AUTORESTART PENDING FLAG
00697  M00S00551.1mb     +++|          ZJP    DPP         IF AUTORESTART NOT PENDING
00698  M00S00552.1mb     +++|          LDD    IA          LOAD *1DS* TO ISSUE *AUTO*
00699  M00S00553.1mb     +++|          CWM    MEPD,ON
Line S00554 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00700  M01S00554.ns2660  ---|          LJM    DPP0        CALL *1DS* AND ENABLE *1MB* CALL
Line S00016 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
00701  M01S00016.ns2660  +++|          LJM    DPP1        CALL *1DS* AND ENABLE *1MB* CALL
00702  M00S00555.1mb     +++|
00703  M00S00556.1mb     +++| MEP5     LDD    CN+1        SET SYMPTOM CODE IN *BML*
00704  M00S00557.1mb     +++|          STM    IBMF+1
00705  M00S00558.1mb     +++|          LDDL   CN+2        SET SEQUENCE NUMBER IN *BML*
00706  M00S00559.1mb     +++|          SHN    -10
00707  M00S00560.1mb     +++|          STM    IBMG+4
00708  M00S00561.1mb     +++|          RJM    DOA         DETERMINE OS ACTION
00709  M00S00562.1mb     +++|
00710  M00S00563.1mb     +++|*         OS ACTION ROUTINES WILL RETURN HERE.
00711  M00S00564.1mb     +++|
00712  M00S00565.1mb     +++| MEP6     RJM    CTH         CHECK THRESHOLD EXCEEDED
00713  M00S00566.1mb     +++|          RJM    LMR         LOG MAINTENANCE REGISTERS
00714  M00S00567.1mb     +++|
00715  M00S00568.1mb     +++|*         CLEAR C170 VALID DATA FLAG, LOGGING ACTION FLAG, INTERLOCK
00716  M00S00569.1mb     +++|*         FLAG AND THRESHOLD EXCEEDED FLAG IN M/R BUFFER CONTROL WORD.
00717  M00S00570.1mb     +++|
00718  M00S00571.1mb     +++|          LDD    MB          READ CONTROL WORD
00719  M00S00572.1mb     +++|          SHN    14
00720  M00S00573.1mb     +++|          LMD    MB+1
00721  M00S00574.1mb     +++|          CRDL   CN
00722  M00S00575.1mb     +++|          LDDL   CN+2        CLEAR FLAGS
00723  M00S00576.1mb     +++| MEPC     SCBN   (MRV7,MRIL,MRLG,MRTH)
00724  M00S00577.1mb     +++|*         SCBN   (MRV7,MRIL)  (180 LOGGING)
00725  M00S00578.1mb     +++|          STDL   CN+2
00726  M00S00579.1mb     +++|          LDD    MB          REWRITE M/R BUFFER CONTROL WORD
00727  M00S00580.1mb     +++|          SHN    14
00728  M00S00581.1mb     +++|          LMD    MB+1
00729  M00S00582.1mb     +++|          CWDL   CN
00730  M00S00583.1mb     +++|          LJM    MEP3        PROCESS NEXT M/R ENTRY
00731  M00S00584.1mb     +++|
00732  M00S00585.1mb     +++| MEPD     VFD    18/0L1DS,6/0,2/0,1/0,3/0,6//1DS/IASF,12/0,12/0
00733  M00S00586.1mb     +++|          TITLE  OS ACTION CODE PROCESSING ROUTINES.
00734  M00S00587.1mb     +++|          SPACE 4,10
00735  M00S00588.1mb     +++|***       OS ACTION CODE PROCESSING ROUTINES.
00736  M00S00589.1mb     +++|*
00737  M00S00590.1mb     +++|*         ENTRY  (MB - MB+1) = ADDRESS OF M/R CONTROL WORD.
00738  M00S00591.1mb     +++|*                (DC - DC+3) = *DFT* CONTROL WORD.
00739  M00S00592.1mb     +++|*                (CN - CN+3) = M/R BUFFER CONTROL WORD.
00740  M00S00593.1mb     +++|*
00741  M00S00594.1mb     +++|*         EXIT   TO *MEP6* TO LOG MAINTENANCE REGISTERS.
00742  M00S00595.1mb     +++|*                TO *CSH* TO CHECKPOINT AND HANG.
00743  M00S00596.1mb     +++| ENW      SPACE  4,10
00744  M00S00597.1mb     +++|**        ENW - ENVIRONMENT WARNING.
00745  M00S00598.1mb     +++|*
00746  M00S00599.1mb     +++|*         EXIT   TO *WWC* TO WAIT FOR WARNING CLEAR.
00747  M00S00600.1mb     +++|*
00748  M00S00601.1mb     +++|*         USES   CM - CM+3.
00749  M00S00602.1mb     +++|*
00750  M00S00603.1mb     +++|*         CALLS  CCI, CCM, CKC, CKP, DOB, LMR, RSM.
00751  M00S00604.1mb     +++|
00752  M00S00605.1mb     +++|
00753  M00S00606.1mb     +++| ENW      BSS    0           ENTRY
00754  M00S00607.1mb     +++|          RJM    CCM         CREATE CONSOLE MESSAGE
00755  M00S00608.1mb     +++|          LDD    SC+2
00756  M00S00609.1mb     +++|          NJN    ENW1        IF *1CK* ALREADY CALLED
00757  M00S00610.1mb     +++|          RJM    LMR         LOG MAINTENANCE REGISTERS
00758  M00S00611.1mb     +++| ENW1     LDN    ZERL        SET C170 ERROR FLAG
00759  M00S00612.1mb     +++|          CRDL   CM
00760  M00S00613.1mb     +++|          AOD    CM+3
00761  M00S00614.1mb     +++|          ERRNZ  DCE7        CODE DEPENDS ON VALUE
00762  M00S00615.1mb     +++|          RJM    DOB
00763  M00S00616.1mb     +++|          ADK    DFCW
00764  M00S00617.1mb     +++|          RDSL   CM
00765  M00S00618.1mb     +++|          RJM    CCI         CLEAR M/R CONTROL WORD INTERLOCK
Line S00619 Modification History
M01 (Removed by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00766  M01S00619.ns2593  ---|          LDN    10          SET *1CK* TO RECALL *1MB*
Line S00003 Modification History
M01 (Added by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00767  M01S00003.ns2593  +++| ENWC     LDN    10          SET *1CK* TO RECALL *1MB*
00768  M01S00004.ns2593  +++|*         LDN    13          (LONG POWER WARNING)
00769  M00S00620.1mb     +++|          STM    CKPA+2
00770  M00S00621.1mb     +++|          LDN    SPLG        SET *1MB* FUNCTION CODE
00771  M00S00622.1mb     +++|          STM    CKPA+3
00772  M00S00623.1mb     +++|          RJM    CKP         LOAD AND EXECUTE *1CK*
00773  M00S00624.1mb     +++|          RJM    CKC         WAIT FOR *1CK* TO COMPLETE
00774  M00S00625.1mb     +++|          RJM    RSM         REQUEST STEP MODE
00775  M00S00626.1mb     +++|          LDD    CP          DISPLAY OPERATOR MESSAGE
00776  M00S00627.1mb     +++|          ADN    MS2W
00777  M00S00628.1mb     +++|          CWM    MSFS,TR
00778  M00S00629.1mb     +++|          LJM    WWC         WAIT FOR WARNING CLEAR
00779  M00S00630.1mb     +++| LPW      SPACE  4,10
00780  M00S00631.1mb     +++|**        LPW - LONG POWER WARNING.
Line S00632 Modification History
M01 (Removed by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00781  M01S00632.ns2593  ---|*
00782  M01S00633.ns2593  ---|*         EXIT   TO *SPW* IF ALL MASS STORAGE UNITS ARE NOT *ISD*-S.
00783  M01S00634.ns2593  ---|*                TO *ENW* IF ALL MASS STORAGE UNITS ARE *ISD*-S.
00784  M01S00635.ns2593  ---|*
00785  M01S00636.ns2593  ---|*         USES   CM - CM+4.
00786  M00S00637.1mb     +++|
00787  M00S00638.1mb     +++|
00788  M00S00639.1mb     +++| LPW      BSS    0           ENTRY
Line S00640 Modification History
M01 (Removed by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00640.ns2593  ---|          LDK    CFGL        CHECK ALL *ISD* FLAG
00790  M01S00641.ns2593  ---|          CRD    CM
00791  M01S00642.ns2593  ---|          LDD    CM+3
00792  M01S00643.ns2593  ---|          SHN    21-10
00793  M01S00644.ns2593  ---|          PJN    SPW         IF NOT ALL *ISD*-S
Line S00005 Modification History
M01 (Added by) ns2593
Seq #  *Modification Id* Act 
----------------------------+
00794  M01S00005.ns2593  +++|          LDN    13-10       CHANGE *1CK* CALL TO LONG POWER WARNING
00795  M01S00006.ns2593  +++|          RAM    ENWC
00796  M00S00645.1mb     +++|          LJM    ENW         PROCESS AS ENVIRONMENT WARNING
00797  M00S00646.1mb     +++| SPW      SPACE  4,10
00798  M00S00647.1mb     +++|**        SPW - SHORT POWER WARNING.
00799  M00S00648.1mb     +++|*
00800  M00S00649.1mb     +++|*         EXIT   TO *WWC* TO WAIT FOR WARNING CLEAR.
00801  M00S00650.1mb     +++|*
00802  M00S00651.1mb     +++|*         CALLS  CCM, LMR, RSM.
00803  M00S00652.1mb     +++|
00804  M00S00653.1mb     +++|
00805  M00S00654.1mb     +++| SPW      BSS    0           ENTRY
00806  M00S00655.1mb     +++|          RJM    CCM         CREATE CONSOLE MESSAGE
00807  M00S00656.1mb     +++|          RJM    LMR         LOG MAINTENANCE REGISTERS
00808  M00S00657.1mb     +++|          RJM    RSM         REQUEST STEP MODE
00809  M00S00658.1mb     +++|          LJM    WWC         WAIT FOR WARNING TO CLEAR
00810  M00S00659.1mb     +++| WCL      SPACE  4,10
00811  M00S00660.1mb     +++|**        WCL - WARNING CLEAR.
00812  M00S00661.1mb     +++|*
00813  M00S00662.1mb     +++|*         EXIT   TO *MEP6* TO LOG MAINTENANCE REGISTERS.
00814  M00S00663.1mb     +++|*                (SCRL) UPDATED.
00815  M00S00664.1mb     +++|*
00816  M00S00665.1mb     +++|*         USES   CM - CM+4, SC - SC+4.
00817  M00S00666.1mb     +++|*
00818  M00S00667.1mb     +++|*         MACROS DELAY, MONITOR.
00819  M00S00668.1mb     +++|
00820  M00S00669.1mb     +++|
00821  M00S00670.1mb     +++| WCL      LDD    CP          DISPLAY *POWER/ENVIRONMENT NORMAL*
00822  M00S00671.1mb     +++|          ADN    MS2W
00823  M00S00672.1mb     +++|          CWM    MSPN,TR
00824  M00S00673.1mb     +++|          LDN    SSTL        CHECK AUTORESTART
00825  M00S00674.1mb     +++|          CRD    CM
00826  M00S00675.1mb     +++|          LDD    CM
00827  M00S00676.1mb     +++|          SHN    21-13
00828  M00S00677.1mb     +++|          MJN    WCL2        IF AUTORESTART DISABLED
00829  M00S00678.1mb     +++|          LDD    SC
00830  M00S00679.1mb     +++|          SHN    21-11
00831  M00S00680.1mb     +++|          MJN    WCL1        IF *1MB* REQUEST BIT SET
00832  M00S00681.1mb     +++|          LDD    TH
00833  M00S00682.1mb     +++|          RAD    SC
00834  M00S00683.1mb     +++|          LDC    SCRL        STORE *SCRL* WITH REQUESTED FLAG SET
00835  M00S00684.1mb     +++|          CWD    SC
00836  M00S00685.1mb     +++| WCL1     LDN    ZERL
00837  M00S00686.1mb     +++|          CRD    CM
00838  M00S00687.1mb     +++|          LDN    4           SET *DSRM* SUBFUNCTION TO CLEAR STEP
00839  M00S00688.1mb     +++|          STD    CM+1
00840  M00S00689.1mb     +++|          STM    MEPA        SET AUTORESTART PENDING
00841  M00S00690.1mb     +++|          MONITOR DSRM
00842  M00S00691.1mb     +++| WCL2     LDC    SCRL        ENABLE *UNSTEP* COMMAND
00843  M00S00692.1mb     +++|          CRD    SC
00844  M00S00693.1mb     +++|          LDD    SC
00845  M00S00694.1mb     +++|          LPC    6777
00846  M00S00695.1mb     +++|          STD    SC
00847  M00S00696.1mb     +++|          LDC    SCRL
00848  M00S00697.1mb     +++|          CWD    SC
00849  M00S00698.1mb     +++| WCL3     DELAY
00850  M00S00699.1mb     +++|          LDC    SCRL        CHECK STEP MODE
00851  M00S00700.1mb     +++|          CRD    SC
00852  M00S00701.1mb     +++|          LDD    SC
00853  M00S00702.1mb     +++|          SHN    21-10
00854  M00S00703.1mb     +++|          MJN    WCL3        IF STEP STILL SET
00855  M00S00704.1mb     +++|          LJM    MEP6        LOG MAINTENANCE REGISTERS
00856  M00S00705.1mb     +++| FIE      SPACE  4,10
00857  M00S00706.1mb     +++|**        FIE - FATAL IOU ERROR.
00858  M00S00707.1mb     +++|*
00859  M00S00708.1mb     +++|*         EXIT   TO *CSH* TO CHECK POINT DEVICES AND THEN HANG.
00860  M00S00709.1mb     +++|*
00861  M00S00710.1mb     +++|*         USES   CM - CM+3.
00862  M00S00711.1mb     +++|*
00863  M00S00712.1mb     +++|*         CALLS  CCI, CCM, CSH, DOB.
00864  M00S00713.1mb     +++|
00865  M00S00714.1mb     +++|
00866  M00S00715.1mb     +++| FIE      BSS    0           ENTRY
00867  M00S00716.1mb     +++|          RJM    CCM         CREATE CONSOLE MESSAGE
00868  M00S00717.1mb     +++|          LDN    11          CHECK POINT DEVICES AND RECALL *1MB*
00869  M00S00718.1mb     +++|          STM    CKPA+2
00870  M00S00719.1mb     +++|          LDN    SPLG        SET *1MB* FUNCTION CODE
00871  M00S00720.1mb     +++|          STM    CKPA+3
00872  M00S00721.1mb     +++|          LDN    ZERL        SET C170 ERROR FLAG
00873  M00S00722.1mb     +++|          CRDL   CM
00874  M00S00723.1mb     +++|          AOD    CM+3
00875  M00S00724.1mb     +++|          ERRNZ  DCE7        CODE DEPENDS ON VALUE
00876  M00S00725.1mb     +++|          RJM    DOB
00877  M00S00726.1mb     +++|          ADK    DFCW
00878  M00S00727.1mb     +++|          RDSL   CM
00879  M00S00728.1mb     +++|          RJM    CCI         CLEAR M/R CONTROL WORD INTERLOCK
00880  M00S00729.1mb     +++|          RJM    CSH         CHECKPOINT AND HANG
00881  M00S00730.1mb     +++| NIE      SPACE  4,10
00882  M00S00731.1mb     +++|**        NIE - NOS/VE IOU ERROR.
00883  M00S00732.1mb     +++|*
00884  M00S00733.1mb     +++|*         EXIT   TO *MEP6* TO LOG MAINTENANCE REGISTERS.
00885  M00S00734.1mb     +++|*
00886  M00S00735.1mb     +++|*         CALLS  CCM.
00887  M00S00736.1mb     +++|
00888  M00S00737.1mb     +++|
00889  M00S00738.1mb     +++| NIE      BSS    0           ENTRY
00890  M00S00739.1mb     +++|          RJM    CCM         CREATE CONSOLE MESSAGE
00891  M00S00740.1mb     +++|          LJM    MEP6        LOG MAINTENANCE REGISTERS
00892  M00S00741.1mb     +++| MOB      SPACE  4,10
00893  M00S00742.1mb     +++|**        MOB - MULTIPLE ODD BIT ERROR.
00894  M00S00743.1mb     +++|*
00895  M00S00744.1mb     +++|*         CALLS  CCI, CCM, RSM.
00896  M00S00745.1mb     +++|
00897  M00S00746.1mb     +++| MOB      RJM    CCI         CLEAR M/R INTERLOCK
00898  M00S00747.1mb     +++|          RJM    CCM         CREATE CONSOLE MESSAGE
00899  M00S00748.1mb     +++|          RJM    RSM         REQUEST STEP MODE
00900  M00S00749.1mb     +++|          UJN    *           HANG
00901  M00S00750.1mb     +++|          TITLE  OS ACTION CODE SUBROUTINES.
00902  M00S00751.1mb     +++| CCI      SPACE  4,10
00903  M00S00752.1mb     +++|**        CCI - CLEAR M/R CONTROL WORD INTERLOCK.
00904  M00S00753.1mb     +++|*
00905  M00S00754.1mb     +++|*         ENTRY  (MB - MB+1) = ADDRESS OF OLDEST M/R CONTROL WORD.
00906  M00S00755.1mb     +++|*
00907  M00S00756.1mb     +++|*         USES   CM - CM+3.
00908  M00S00757.1mb     +++|
00909  M00S00758.1mb     +++|
00910  M00S00759.1mb     +++| CCI      SUBR               ENTRY/EXIT
00911  M00S00760.1mb     +++|          LCN    0           CLEAR M/R CONTROL WORD INTERLOCK
00912  M00S00761.1mb     +++|          STDL   CM
00913  M00S00762.1mb     +++|          STDL   CM+1
00914  M00S00763.1mb     +++|          STDL   CM+3
00915  M00S00764.1mb     +++|          SCBN   MRIL
00916  M00S00765.1mb     +++|          STDL   CM+2
00917  M00S00766.1mb     +++|          LDD    MB
00918  M00S00767.1mb     +++|          SHN    14
00919  M00S00768.1mb     +++|          LMD    MB+1
00920  M00S00769.1mb     +++|          RDCL   CM
00921  M00S00770.1mb     +++|          UJN    CCIX        RETURN
00922  M00S00771.1mb     +++| CCM      SPACE  4,15
00923  M00S00772.1mb     +++|**        CCM - CREATE CONSOLE MESSAGE.
00924  M00S00773.1mb     +++|*
00925  M00S00774.1mb     +++|*         ENTRY  (SSCW - SSCW+1) = ADDRESS OF SUPPORTIVE STATUS DATA.
00926  M00S00775.1mb     +++|*                (DFTV) = *DFT* VERSION.
00927  M00S00776.1mb     +++|*                (CN - CN+3) = M/R BUFFER CONTROL WORD.
00928  M00S00777.1mb     +++|*
00929  M00S00778.1mb     +++|*         EXIT   TIME AND FAULT SYMPTOM CODE BUILT INTO MESSAGE.
00930  M00S00779.1mb     +++|*                MESSAGE ISSUED TO SYSTEM CONTROL POINT.
00931  M00S00780.1mb     +++|*
00932  M00S00781.1mb     +++|*         CALLS  ACS, CTC, CTD, RER, SCM.
00933  M00S00782.1mb     +++|*
00934  M00S00783.1mb     +++|*         USES   T1, T3, T5, CM - CM+3.
00935  M00S00784.1mb     +++|
00936  M00S00785.1mb     +++|
00937  M00S00786.1mb     +++| CCM      SUBR               ENTRY/EXIT
00938  M00S00787.1mb     +++|          LDM    DFTV
00939  M00S00788.1mb     +++|          ZJN    CCM1        IF NOT *DFT* VERSION 4 OR ABOVE
00940  M00S00789.1mb     +++|          LDN    2
00941  M00S00790.1mb     +++|          STD    T1
00942  M00S00791.1mb     +++|          LDM    SSCW
00943  M00S00792.1mb     +++|          SHN    14
00944  M00S00793.1mb     +++|          LMM    SSCW+1
00945  M00S00794.1mb     +++|          ADN    1
00946  M00S00795.1mb     +++|          CRDL   CM          READ DATE/TIME
00947  M00S00796.1mb     +++|          ADN    1
00948  M00S00797.1mb     +++|          CRML   CCMB,T1     READ FAULT SYMPTOM CODE
00949  M00S00798.1mb     +++|          LDD    CM
00950  M00S00799.1mb     +++|          SHN    21-10
00951  M00S00800.1mb     +++|          MJN    CCM1        IF NO VALID DATA
00952  M00S00801.1mb     +++|          NJN    CCM2        IF NOT MODEL 20 IOU
00953  M00S00802.1mb     +++| CCM1     LDK    TIML        GET TIME
00954  M00S00803.1mb     +++|          CRM    MSFS,ON
00955  M00S00804.1mb     +++|          LDC    MSFS+5      SET ADDRESS FOR ASSEMBLY
00956  M00S00805.1mb     +++|          STD    T1
00957  M00S00806.1mb     +++|          LDN    0           SET END OF ASSEMBLY FOR *ACS*
00958  M00S00807.1mb     +++|          STM    MSFS+5
00959  M00S00808.1mb     +++|          UJN    CCM3        CONVERT FAULT SYMPTOM CODE
00960  M00S00809.1mb     +++|
00961  M00S00810.1mb     +++|*         CONVERT TIME FROM SUPPORTIVE STATUS DATA.
00962  M00S00811.1mb     +++|
00963  M00S00812.1mb     +++| CCM2     LDC    2L .        SET END OF STRING FOR *ACS*
00964  M00S00813.1mb     +++|          STD    T5
00965  M00S00814.1mb     +++|          LDC    2L          SET END OF ASSEMBLY FOR *ACS*
00966  M00S00815.1mb     +++|          STM    MSFS
00967  M00S00816.1mb     +++|          LDC    MSFS        SET ADDRESS FOR ASSEMBLY
00968  M00S00817.1mb     +++|          STD    T1
00969  M00S00818.1mb     +++|          LDDL   CM+2        CONVERT HOURS
00970  M00S00819.1mb     +++|          SHN    -10
00971  M00S00820.1mb     +++|          RJM    CTD
00972  M00S00821.1mb     +++|          RJM    ACS
00973  M00S00822.1mb     +++|          LDD    CM+2        CONVERT MINUTES
00974  M00S00823.1mb     +++|          LPC    377
00975  M00S00824.1mb     +++|          RJM    CTD
00976  M00S00825.1mb     +++|          RJM    ACS
00977  M00S00826.1mb     +++|          LDDL   CM+3        CONVERT SECONDS
00978  M00S00827.1mb     +++|          SHN    -10
00979  M00S00828.1mb     +++|          RJM    CTD
00980  M00S00829.1mb     +++|          RJM    ACS
00981  M00S00830.1mb     +++| CCM3     LDC    CCMA        ADD *ERR=* TO MESSAGE
00982  M00S00831.1mb     +++|          RJM    ACS
00983  M00S00832.1mb     +++|          LDM    MSFS+4
00984  M00S00833.1mb     +++|          SCN    77
00985  M00S00834.1mb     +++|          ADN    1R
00986  M00S00835.1mb     +++|          STM    MSFS+4
00987  M00S00836.1mb     +++|          LDD    CN+1
00988  M00S00837.1mb     +++|          LPC    3777
00989  M00S00838.1mb     +++|          SBK    0#707
00990  M00S00839.1mb     +++|          PJN    CCM4        IF NOT WARNING
00991  M00S00840.1mb     +++|          ADK    0#707-0#701
00992  M00S00841.1mb     +++|          PJN    CCM5        IF WARNING
00993  M00S00842.1mb     +++| CCM4     LDM    DFTV
00994  M00S00843.1mb     +++|          NJN    CCM6        IF *DFT* VERSION 4 OR ABOVE
00995  M00S00844.1mb     +++|
00996  M00S00845.1mb     +++|*         BUILD MESSAGE FOR ALL *DFT* VERSION 3 ERRORS, AND WARNING
00997  M00S00846.1mb     +++|*         ERRORS FOR *DFT* VERSION 4 AND ABOVE.
00998  M00S00847.1mb     +++|
00999  M00S00848.1mb     +++| CCM5     RJM    RER         READ *EID* REGISTER
01000  M00S00849.1mb     +++|          RJM    SCM         SET ANALYSIS CODE IN MESSAGE
01001  M00S00850.1mb     +++|          LDN    0           ADD TERMINATOR
01002  M00S00851.1mb     +++|          STM    MSFS+13
01003  M00S00852.1mb     +++|          UJN    CCM8        DISPLAY OPERATOR MESSAGE
01004  M00S00853.1mb     +++|
01005  M00S00854.1mb     +++|*         CONVERT FAULT SYMPTOM CODE DATA FOR *DFT* VERSION 4 AND
01006  M00S00855.1mb     +++|*         ABOVE (EXCEPT FOR WARNING ERRORS).
01007  M00S00856.1mb     +++|
01008  M00S00857.1mb     +++| CCM6     LDN    0           SET END OF STRING FOR *ACS*
01009  M00S00858.1mb     +++|          STD    T5
01010  M00S00859.1mb     +++|          LDC    CCMB+2      SET START OF FAULT SYMPTOM CODE
01011  M00S00860.1mb     +++|          STD    T3
01012  M00S00861.1mb     +++| CCM7     RJM    CTC         CONVERT TWO CHARACTERS
01013  M00S00862.1mb     +++|          RJM    ACS
01014  M00S00863.1mb     +++|          AOD    T3
01015  M00S00864.1mb     +++|          LMC    CCMB+10
01016  M00S00865.1mb     +++|          NJN    CCM7        IF MORE TO CONVERT
01017  M00S00866.1mb     +++| CCM8     LDD    CP          DISPLAY OPERATOR MESSAGE
01018  M00S00867.1mb     +++|          ADN    MS2W
01019  M00S00868.1mb     +++|          CWM    MSFS,TR     * HH.MM.SS ERR=XXXXXXXXXXXX*
01020  M00S00869.1mb     +++|          LJM    CCMX        RETURN
01021  M00S00870.1mb     +++|
01022  M00S00871.1mb     +++|
01023  M00S00872.1mb     +++| CCMA     DATA   C*ERR=*
01024  M00S00873.1mb     +++| CCMB     BSS    2*4         FAULT SYMPTOM CODE
01025  M00S00874.1mb     +++| CHC      SPACE  4,10
01026  M00S00875.1mb     +++|**        CHC - CONVERT HEXADECIMAL CHARACTER TO DISPLAY CODE.
01027  M00S00876.1mb     +++|*
01028  M00S00877.1mb     +++|*         ENTRY  (A) = VALUE TO CONVERT.
01029  M00S00878.1mb     +++|*
01030  M00S00879.1mb     +++|*         EXIT   (A) = DISPLAY CODE.
01031  M00S00880.1mb     +++|
01032  M00S00881.1mb     +++|
01033  M00S00882.1mb     +++| CHC1     ADN    10D+1R0     CONVERT TO DISPLAY CODE
01034  M00S00883.1mb     +++|
01035  M00S00884.1mb     +++| CHC      SUBR               ENTRY/EXIT
01036  M00S00885.1mb     +++|          LPN    17          MASK ONE CHARACTER
01037  M00S00886.1mb     +++|          SBN    10D
01038  M00S00887.1mb     +++|          MJN    CHC1        IF DECIMAL CHARACTER
01039  M00S00888.1mb     +++|          ADN    1RA         SET HEX CHARACTER
01040  M00S00889.1mb     +++|          UJN    CHCX        RETURN
01041  M00S00890.1mb     +++| CTC      SPACE  4,10
01042  M00S00891.1mb     +++|**        CTC - CONVERT TWO CHARACTERS.
01043  M00S00892.1mb     +++|*
01044  M00S00893.1mb     +++|*         ENTRY  (T3) = ADDRESS OF TWO 8-BIT ASCII CHARACTERS.
01045  M00S00894.1mb     +++|*
01046  M00S00895.1mb     +++|*         EXIT   (A) = ADDRESS OF TWO DISPLAY CODE CHARACTERS.
01047  M00S00896.1mb     +++|*                (T4 - T5) = TWO CHARACTERS PLUS ZERO TERMINATOR.
01048  M00S00897.1mb     +++|*
01049  M00S00898.1mb     +++|*         USES   T4, T6.
01050  M00S00899.1mb     +++|
01051  M00S00900.1mb     +++|
01052  M00S00901.1mb     +++| CTC      SUBR               ENTRY/EXIT
01053  M00S00902.1mb     +++|          LDIL   T3          CONVERT FIRST CHARACTER
01054  M00S00903.1mb     +++|          SHN    -10
01055  M00S00904.1mb     +++|          SBN    40
01056  M00S00905.1mb     +++|          STD    T6
01057  M00S00906.1mb     +++|          LDM    T8AD,T6
01058  M00S00907.1mb     +++|          SHN    6
01059  M00S00908.1mb     +++|          STD    T4
01060  M00S00909.1mb     +++|          LDI    T3          CONVERT SECOND CHARACTER
01061  M00S00910.1mb     +++|          LPC    377
01062  M00S00911.1mb     +++|          SBN    40
01063  M00S00912.1mb     +++|          STD    T6
01064  M00S00913.1mb     +++|          LDM    T8AD,T6
01065  M00S00914.1mb     +++|          RAD    T4
01066  M00S00915.1mb     +++|          LDN    T4          SET ADDRESS OF STRING
01067  M00S00916.1mb     +++|          UJN    CTCX        RETURN
01068  M00S00917.1mb     +++| CTD      SPACE  4,10
01069  M00S00918.1mb     +++|**        CTD - CONVERT TWO DIGITS.
01070  M00S00919.1mb     +++|*
01071  M00S00920.1mb     +++|*         ENTRY  (A) = TWO 4-BIT DIGITS.
01072  M00S00921.1mb     +++|*
01073  M00S00922.1mb     +++|*         EXIT   (A) = ADDRESS OF STRING TO ADD TO MESSAGE.
01074  M00S00923.1mb     +++|*                (T4) = STRING TO ADD TO MESSAGE.
01075  M00S00924.1mb     +++|*                       (CALLER MUST SUPPLY TERMINATOR IF NECESSARY).
01076  M00S00925.1mb     +++|*
01077  M00S00926.1mb     +++|*         USES   T3, T4.
01078  M00S00927.1mb     +++|
01079  M00S00928.1mb     +++|
01080  M00S00929.1mb     +++| CTD      SUBR               ENTRY/EXIT
01081  M00S00930.1mb     +++|          STD    T3
01082  M00S00931.1mb     +++|          SHN    -4          CONVERT FIRST CHARACTER
01083  M00S00932.1mb     +++|          ADN    1R0
01084  M00S00933.1mb     +++|          SHN    6
01085  M00S00934.1mb     +++|          STD    T4
01086  M00S00935.1mb     +++|          LDD    T3          CONVERT SECOND CHARACTER
01087  M00S00936.1mb     +++|          LPN    17
01088  M00S00937.1mb     +++|          ADN    1R0
01089  M00S00938.1mb     +++|          RAD    T4
01090  M00S00939.1mb     +++|          LDN    T4          SET ADDRESS OF STRING
01091  M00S00940.1mb     +++|          UJN    CTDX        RETURN
01092  M00S00941.1mb     +++| RER      SPACE  4,15
01093  M00S00942.1mb     +++|**        RER - READ *EID* REGISTER.
01094  M00S00943.1mb     +++|*
01095  M00S00944.1mb     +++|*         ENTRY  (CN - CN+3) = M/R BUFFER CONTROL WORD.
01096  M00S00945.1mb     +++|*                *DFT* INDICATES CPU 1 OR IOU 1 BY LOGGING ELEMENT CODE
01097  M00S00946.1mb     +++|*                 10(16) OR 12(16) IN THE *EID* REGISTER (INSTEAD OF 0
01098  M00S00947.1mb     +++|*                 OR 2).
Line S00001 Modification History
M01 (Added by) 1mb34
Seq #  *Modification Id* Act 
----------------------------+
01099  M01S00001.1mb34   +++|*                (MB - MB+1) = THE ADDRESS OF THE CURRENT NON REGISTER
01100  M01S00002.1mb34   +++|*                STATUS BUFFER (*NRSB*) ENTRY.
01101  M00S00948.1mb     +++|*
01102  M00S00949.1mb     +++|*         EXIT   ELEMENT CODE AND MODEL NUMBER SET IN MESSAGE.
01103  M00S00950.1mb     +++|*
01104  M00S00951.1mb     +++|*         USES   T1, CM - CM+3.
01105  M00S00952.1mb     +++|*
01106  M00S00953.1mb     +++|*         CALLS  CTD, MRB.
01107  M00S00954.1mb     +++|
01108  M00S00955.1mb     +++|
01109  M00S00956.1mb     +++| RER      SUBR               ENTRY/EXIT
Line S00957 Modification History
M01 (Removed by) 1mb34
Seq #  *Modification Id* Act 
----------------------------+
01110  M01S00957.1mb34   ---|          LDN    0           INITIALIZE OFFSET
Line S00003 Modification History
M01 (Added by) 1mb34
Seq #  *Modification Id* Act 
----------------------------+
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  M00S00958.1mb     +++|          STD    T1
01127  M00S00959.1mb     +++| RER1     AOD    T1
01128  M00S00960.1mb     +++|          SBN    5
01129  M00S00961.1mb     +++|          ZJN    RER1        IF SECOND HEADER WORD
01130  M00S00962.1mb     +++|          SBN    10-5
01131  M00S00963.1mb     +++|          ZJN    RER2        IF END OF BUFFER (USE ZERO DATA)
01132  M00S00964.1mb     +++|          RJM    MRB         GET ADDRESS OF M/R BUFFERS
01133  M00S00965.1mb     +++|          ADD    CN+3        ADD OFFSET
01134  M00S00966.1mb     +++|          ADD    T1          SKIP TO NEXT WORD
01135  M00S00967.1mb     +++|          CRDL   CM          READ *EID* REGISTER
01136  M00S00968.1mb     +++|          LDDL   CM
01137  M00S00969.1mb     +++|          ADDL   CM+1
01138  M00S00970.1mb     +++|          ADDL   CM+2
01139  M00S00971.1mb     +++|          ADDL   CM+3
01140  M00S00972.1mb     +++|          ZJN    RER1        IF *EID* NOT FOUND YET
Line S00973 Modification History
M01 (Removed by) 1mb34
Seq #  *Modification Id* Act 
----------------------------+
01141  M01S00973.1mb34   ---|          LDDL   CM+2        GET ELEMENT CODE
Line S00018 Modification History
M01 (Added by) 1mb34
Seq #  *Modification Id* Act 
----------------------------+
01142  M01S00018.1mb34   +++| RER1.1   LDDL   CM+2        GET ELEMENT CODE
01143  M00S00974.1mb     +++|          SHN    -10
01144  M00S00975.1mb     +++|          ADN    1
01145  M00S00976.1mb     +++| RER2     STD    T1
01146  M00S00977.1mb     +++|          SHN    -2          INCLUDE CPU 1/IOU 1 FLAG
01147  M00S00978.1mb     +++|          RAD    T1
01148  M00S00979.1mb     +++|          LDM    RERA,T1     GET MESSAGE CHARACTERS
01149  M00S00980.1mb     +++|          STM    MSFS+7
01150  M00S00981.1mb     +++|          LDD    CM+2        GET MODEL NUMBER
01151  M00S00982.1mb     +++|          LPC    377
01152  M00S00983.1mb     +++|          RJM    CTD         CONVERT DIGITS
01153  M00S00984.1mb     +++|          LDD    T4          ADD MODEL NUMBER TO MESSAGE
01154  M00S00985.1mb     +++|          STM    MSFS+10
01155  M00S00986.1mb     +++|          UJP    RERX        RETURN
01156  M00S00987.1mb     +++|
01157  M00S00988.1mb     +++|
01158  M00S00989.1mb     +++|**        RERA - TABLE OF MESSAGE CHARACTERS.
01159  M00S00990.1mb     +++|*
01160  M00S00991.1mb     +++|*         INDEXED BY ELEMENT CODE.
01161  M00S00992.1mb     +++|
01162  M00S00993.1mb     +++|
01163  M00S00994.1mb     +++| RERA     BSS    0
01164  M00S00995.1mb     +++|          DATA   2R00        UNKNOWN ELEMENT
01165  M00S00996.1mb     +++|          DATA   2RDC        PROCESSOR 0
01166  M00S00997.1mb     +++|          DATA   2RDM        MEMORY
01167  M00S00998.1mb     +++|          DATA   2RDI        IOU 0
01168  M00S00999.1mb     +++|          DATA   2R          UNUSED
01169  M00S01000.1mb     +++|          DATA   2RDD        PROCESSOR 1
01170  M00S01001.1mb     +++|          DATA   2R          UNUSED
01171  M00S01002.1mb     +++|          DATA   2RDJ        IOU 1
01172  M00S01003.1mb     +++|
01173  M00S01004.1mb     +++| SCM      SPACE  4,15
01174  M00S01005.1mb     +++|**        SCM - SET ANALYSIS CODE IN MESSAGE.
01175  M00S01006.1mb     +++|*
01176  M00S01007.1mb     +++|*         THE *DFT* ANALYSIS CODE FROM THE CONTROL WORD IS CONVERTED
01177  M00S01008.1mb     +++|*         TO HEXADECIMAL DISPLAY CODE AND PLACED IN THE CONSOLE
01178  M00S01009.1mb     +++|*         MESSAGE.
01179  M00S01010.1mb     +++|*
01180  M00S01011.1mb     +++|*         ENTRY  (CN - CN+3) = CONTROL WORD.
01181  M00S01012.1mb     +++|
01182  M00S01013.1mb     +++|
01183  M00S01014.1mb     +++| SCM      SUBR               ENTRY/EXIT
01184  M00S01015.1mb     +++|          LDD    CN+1        GET *DFT* ANALYSIS CODE
01185  M00S01016.1mb     +++|          RJM    CHC         CONVERT THIRD CHARACTER
01186  M00S01017.1mb     +++|          SHN    6
01187  M00S01018.1mb     +++|          STM    MSFS+12
01188  M00S01019.1mb     +++|          LDD    CN+1        CONVERT SECOND CHARACTER
01189  M00S01020.1mb     +++|          SHN    -4
01190  M00S01021.1mb     +++|          RJM    CHC
01191  M00S01022.1mb     +++|          STM    MSFS+11
01192  M00S01023.1mb     +++|          LDD    CN+1        CONVERT FIRST CHARACTER
01193  M00S01024.1mb     +++|          SHN    -10
01194  M00S01025.1mb     +++|          RJM    CHC
01195  M00S01026.1mb     +++|          SHN    6
01196  M00S01027.1mb     +++|          RAM    MSFS+11
01197  M00S01028.1mb     +++|          UJP    SCMX        RETURN
01198  M00S01029.1mb     +++| WWC      SPACE  4,10
01199  M00S01030.1mb     +++|**        WWC - WAIT FOR WARNING CLEAR.
01200  M00S01031.1mb     +++|*
01201  M00S01032.1mb     +++|*         EXIT   TO *LED* TO LOAD *DFT* IF *DFT* NOT DEDICATED.
01202  M00S01033.1mb     +++|*                TO *WCL* TO PROCESS WARNING CLEAR IF *DFT* DEDICATED.
01203  M00S01034.1mb     +++|*
01204  M00S01035.1mb     +++|*         USES   CN - CN+3.
01205  M00S01036.1mb     +++|*
01206  M00S01037.1mb     +++|*         CALLS  CCI.
01207  M00S01038.1mb     +++|*
01208  M00S01039.1mb     +++|*         MACROS DELAY.
01209  M00S01040.1mb     +++|
01210  M00S01041.1mb     +++|
01211  M00S01042.1mb     +++| WWC      RJM    CCI         CLEAR M/R CONTROL WORD INTERLOCK
01212  M00S01043.1mb     +++|          LDDL   DC+3        CHECK IF DEDICATED *DFT*
01213  M00S01044.1mb     +++|          SHN    21-DCDM
01214  M00S01045.1mb     +++|          PJN    WWC1        IF *DFT* DEDICATED
01215  M00S01046.1mb     +++|          LJM    LED         LOAD *DFT*
01216  M00S01047.1mb     +++|
01217  M00S01048.1mb     +++| WWC1     DELAY
01218  M00S01049.1mb     +++|          LDD    MB          READ M/R CONTROL WORD
01219  M00S01050.1mb     +++|          SHN    14
01220  M00S01051.1mb     +++|          LMD    MB+1
01221  M00S01052.1mb     +++|          CRDL   CN
01222  M00S01053.1mb     +++|          LDD    CN          CHECK FOR WARNING CLEAR
01223  M00S01054.1mb     +++|          LPC    377
01224  M00S01055.1mb     +++|          LMK    WCAC
01225  M00S01056.1mb     +++|          ZJN    WWC2        IF WARNING CLEAR
01226  M00S01057.1mb     +++|          LMK    RSAC&WCAC
01227  M00S01058.1mb     +++|          ZJN    WWC2        IF SYSTEM RESUME
01228  M00S01059.1mb     +++|          LMK    USAC&RSAC
01229  M00S01060.1mb     +++|          NJN    WWC1        IF NOT SYSTEM UNSTEP
01230  M00S01061.1mb     +++| WWC2     LDD    CN+1        PUT SYMPTOM CODE IN *BML*
01231  M00S01062.1mb     +++|          STM    IBMF+1
01232  M00S01063.1mb     +++|          LJM    WCL         PROCESS WARNING CLEAR
01233  M00S01064.1mb     +++|          TITLE  MAINTENANCE REGISTER PROCESSING SUBROUTINES.
01234  M00S01065.1mb     +++| CBM      SPACE  4,10
01235  M00S01066.1mb     +++|**        CBM - COMPLETE *BML* MESSAGES.
01236  M00S01067.1mb     +++|*
01237  M00S01068.1mb     +++|*         ENTRY  ALL DATA PRESENT IN *BML* BUFFER AND TRAILER WORD.
01238  M00S01069.1mb     +++|*
01239  M00S01070.1mb     +++|*         EXIT   *BML* BUFFER PADDED WITH SUFFICIENT ZERO WORDS.
01240  M00S01071.1mb     +++|*                THE BUFFER IS FLUSHED IF NECESSARY.
01241  M00S01072.1mb     +++|*                FINAL *BML* MESSAGE ISSUED.
01242  M00S01073.1mb     +++|*
01243  M00S01074.1mb     +++|*         USES   BP.
01244  M00S01075.1mb     +++|*
01245  M00S01076.1mb     +++|*         CALLS  PMB, WLB.
01246  M00S01077.1mb     +++|
01247  M00S01078.1mb     +++|
01248  M00S01079.1mb     +++| CBM      SUBR               ENTRY/EXIT
01249  M00S01080.1mb     +++|          LDN    ZERL
01250  M00S01081.1mb     +++|          CRML   BDMR,ON     USE ZERO AS REGISTER NUMBERS
01251  M00S01082.1mb     +++|          LDN    ZERL
01252  M00S01083.1mb     +++|          CRM    BCMR,ON     CLEAR M/R BUFFER
01253  M00S01084.1mb     +++|          LDN    ZERL
01254  M00S01085.1mb     +++|          CRM    BCMR+7-4,ON
01255  M00S01086.1mb     +++| CBM1     LDD    T5
01256  M00S01087.1mb     +++|          ZJN    CBM2        IF WRITE COMPLETE
01257  M00S01088.1mb     +++|          RJM    PMB         PACK AND WRITE FAKE M/R
01258  M00S01089.1mb     +++|          UJN    CBM1        CONTINUE PROCESSING
01259  M00S01090.1mb     +++|
01260  M00S01091.1mb     +++| CBM2     LDN    5           UPDATE POINTER TO *BML* BUFFER
01261  M00S01092.1mb     +++|          RAD    BP
01262  M00S01093.1mb     +++|          STM    CBMA
01263  M00S01094.1mb     +++|          ADC    -IBMHL
01264  M00S01095.1mb     +++|          PJN    CBM3        IF READ COMPLETE
01265  M00S01096.1mb     +++|          LDN    ZERL        CLEAR BUFFER
01266  M00S01097.1mb     +++|          CRM    **,ON
01267  M00S01098.1mb     +++| CBMA     EQU    *-1
01268  M00S01099.1mb     +++|          UJN    CBM2        CHECK AGAIN
01269  M00S01100.1mb     +++|
01270  M00S01101.1mb     +++| CBM3     LDN    6           SET MESSAGE LENGTH
01271  M00S01102.1mb     +++|          STD    T4
01272  M00S01103.1mb     +++|          RJM    WLB         WRITE LAST *BML* MESSAGE
01273  M00S01104.1mb     +++|          UJP    CBMX        RETURN
Line S01105 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01274  M01S01105.271l716 ---| CNR      SPACE  4,15
01275  M01S01106.271l716 ---|**        CNR - CHECK FOR NOS REQUEST.
01276  M01S01107.271l716 ---|*
01277  M01S01108.271l716 ---|*         THIS ROUTINE IS CALLED IF *DFT* IS IN DEDICATED MODE AND
01278  M01S01109.271l716 ---|*         THERE IS A NOS REQUEST PRESENT.  IT RESERVES THE CIP
01279  M01S01110.271l716 ---|*         CHANNEL, SETS THE REQUEST STATUS = *ACTIVE*, WAITS FOR THE
01280  M01S01111.271l716 ---|*         REQUEST TO BE PROCESSED, AND RELEASES THE CIP CHANNEL.
01281  M01S01112.271l716 ---|*
01282  M01S01113.271l716 ---|*         USES   CM - CM+4, T1 - T1+4.
01283  M01S01114.271l716 ---|*
01284  M01S01115.271l716 ---|*         CALLS  CRQ, SDA.
01285  M01S01116.271l716 ---|*
01286  M01S01117.271l716 ---|*         MACROS DCHAN, DELAY, RCHAN.
01287  M01S01118.271l716 ---|
01288  M01S01119.271l716 ---|
01289  M01S01120.271l716 ---| CNR      SUBR               ENTRY/EXIT
01290  M01S01121.271l716 ---|          RJM    SDA         READ NOS REQUEST HEADER
01291  M01S01122.271l716 ---|          CRD    T1
01292  M01S01123.271l716 ---|          LDD    T1+4        CHECK REQUEST STATUS
01293  M01S01124.271l716 ---|          LMN    STRY
01294  M01S01125.271l716 ---|          NJN    CNRX        IF NOT STATUS = *READY*
01295  M01S01126.271l716 ---|          LDN    DSAL        LOCATE CIP CHANNEL
01296  M01S01127.271l716 ---|          CRD    CM
01297  M01S01128.271l716 ---|          LDD    CM+4        RESERVE CIP CHANNEL
01298  M01S01129.271l716 ---|          LPN    77
01299  M01S01130.271l716 ---|          STM    CNRA
01300  M01S01131.271l716 ---|          RCHAN
01301  M01S01132.271l716 ---|          RJM    CRQ         CHECK REQUEST FOR SPECIAL PROCESSING
01302  M01S01133.271l716 ---|          LDN    STAC        SET STATUS = *ACTIVE*
01303  M01S01134.271l716 ---|          STD    T1+4
01304  M01S01135.271l716 ---|          RJM    SDA         REWRITE NOS REQUEST HEADER
01305  M01S01136.271l716 ---|          CWD    T1
01306  M01S01137.271l716 ---|
01307  M01S01138.271l716 ---|*         WAIT FOR REQUEST TO BE PROCESSED BY *DFT*.
01308  M01S01139.271l716 ---|
01309  M01S01140.271l716 ---| CNR1     DELAY
01310  M01S01141.271l716 ---|          RJM    SDA         READ NOS REQUEST HEADER
01311  M01S01142.271l716 ---|          CRD    T1
01312  M01S01143.271l716 ---|          LDD    T1+4
01313  M01S01144.271l716 ---|          LMN    STAC
01314  M01S01145.271l716 ---|          ZJN    CNR1        IF STATUS = *ACTIVE* STILL PRESENT
01315  M01S01146.271l716 ---|          LDC    **          RELEASE CIP CHANNEL
01316  M01S01147.271l716 ---| CNRA     EQU    *-1
01317  M01S01148.271l716 ---|          DCHAN
01318  M01S01149.271l716 ---|          LJM    CNRX        RETURN
01319  M01S01150.271l716 ---| CRQ      SPACE  4,10
01320  M01S01151.271l716 ---|**        CRQ - CHECK *DFT* REQUEST FOR SPECIAL PROCESSING.
01321  M01S01152.271l716 ---|*
01322  M01S01153.271l716 ---|*         EXIT   *UADM/FRAS* ISSUED IF NECESSARY.
01323  M01S01154.271l716 ---|*
01324  M01S01155.271l716 ---|*         CALLS  SDA.
01325  M01S01156.271l716 ---|*
01326  M01S01157.271l716 ---|*         USES   CM - CM+4.
01327  M01S01158.271l716 ---|*
01328  M01S01159.271l716 ---|*         MACROS MONITOR.
01329  M01S01160.271l716 ---|
01330  M01S01161.271l716 ---| CRQ      SUBR               ENTRY/EXIT
01331  M01S01162.271l716 ---|
01332  M01S01163.271l716 ---|*         THE FOLLOWING CODE ASSUMES THERE IS ONLY ONE REQUEST BUFFER
01333  M01S01164.271l716 ---|*         WHICH IMMEDIATELY FOLLOWS THE REQUEST HEADER.
01334  M01S01165.271l716 ---|
01335  M01S01166.271l716 ---|          RJM    SDA         READ REQUEST
01336  M01S01167.271l716 ---|          ADN    1
01337  M01S01168.271l716 ---|          CRM    CRQA,ON
01338  M01S01169.271l716 ---|          LDM    CRQA        CHECK REQUEST
01339  M01S01170.271l716 ---|          LMN    RQSF
01340  M01S01171.271l716 ---|          NJN    CRQX        IF NO *UADM* NEEDED
01341  M01S01172.271l716 ---|          LDC    FRAS        SET *UADM* SUBFUNCTION
01342  M01S01173.271l716 ---|          STM    CRQA
01343  M01S01174.271l716 ---|          LDD    MA          WRITE REQUEST TO MESSAGE BUFFER
01344  M01S01175.271l716 ---|          CWM    CRQA,ON
01345  M01S01176.271l716 ---|          LDN    ZERL        SET *UADM* PARAMETERS
01346  M01S01177.271l716 ---|          CRD    CM
01347  M01S01178.271l716 ---|          LDN    1           SET REQUEST COUNT
01348  M01S01179.271l716 ---|          STD    CM+1
01349  M01S01180.271l716 ---|*         STD    CM+2        (NO DROP FLAG IGNORED)
01350  M01S01181.271l716 ---|          MONITOR  UADM      ALERT *CPUMTR* OF PENDING *FRC* UPDATE
01351  M01S01182.271l716 ---|          UJN    CRQX        RETURN
01352  M01S01183.271l716 ---|
01353  M01S01184.271l716 ---|
01354  M01S01185.271l716 ---| CRQA     BSS    5
01355  M00S01186.1mb     +++| CPM      SPACE  4,10
01356  M00S01187.1mb     +++|**        CPM - CLEAR PP MEMORY.
01357  M00S01188.1mb     +++|*
01358  M00S01189.1mb     +++|*         ENTRY  (DC - DC+3) = *DFT* CONTROL WORD.
01359  M00S01190.1mb     +++|*
01360  M00S01191.1mb     +++|*         USES   T0.
01361  M00S01192.1mb     +++|*
01362  M00S01193.1mb     +++|*         CLEARS ALL PP MEMORY FROM LWA OF *1MB* CODE TO THE END OF
01363  M00S01194.1mb     +++|*         THE PP.  THIS INSURES THAT ALL 16-BIT INSTRUCTIONS USED BY
01364  M00S01195.1mb     +++|*         *DFT* ARE CLEARED BEFORE THE PP IS RETURNED TO NOS.
01365  M00S01196.1mb     +++|
01366  M00S01197.1mb     +++|
01367  M00S01198.1mb     +++| CPM      SUBR               ENTRY/EXIT
01368  M00S01199.1mb     +++|          LDDL   DC+3
01369  M00S01200.1mb     +++|          SHN    21-DCDM
01370  M00S01201.1mb     +++|          PJN    CPMX        IF DEDICATED *DFT*
01371  M00S01202.1mb     +++|          LDC    L1MB        FIRST WORD TO CLEAR
01372  M00S01203.1mb     +++|          STD    T0
01373  M00S01204.1mb     +++|          LDN    0
01374  M00S01205.1mb     +++| CPM1     STI    T0
01375  M00S01206.1mb     +++|          AOD    T0
01376  M00S01207.1mb     +++|          SHN    -14
01377  M00S01208.1mb     +++|          ZJN    CPM1        IF MORE MEMORY TO CLEAR
01378  M00S01209.1mb     +++|          UJN    CPMX        RETURN
01379  M00S01210.1mb     +++| CTH      SPACE  4,10
01380  M00S01211.1mb     +++|**        CTH - CHECK THRESHOLD EXCEEDED.
01381  M00S01212.1mb     +++|*
01382  M00S01213.1mb     +++|*         ENTRY  (CN - CN+3) = M/R BUFFER CONTROL WORD.
01383  M00S01214.1mb     +++|*
01384  M00S01215.1mb     +++|*         USES   CM - CM+4, T1, T2.
01385  M00S01216.1mb     +++|*
01386  M00S01217.1mb     +++|*         CALLS  DFM.
01387  M00S01218.1mb     +++|*
01388  M00S01219.1mb     +++|*         MACROS MONITOR.
01389  M00S01220.1mb     +++|
01390  M00S01221.1mb     +++|
01391  M00S01222.1mb     +++| CTH      SUBR               ENTRY/EXIT
01392  M00S01223.1mb     +++|          LDDL   CN+2
01393  M00S01224.1mb     +++|          SHN    21-MRTH
01394  M00S01225.1mb     +++|          PJN    CTHX        IF NOT THRESHOLD EXCEEDED
01395  M00S01226.1mb     +++|          LDDL   CN+1        GET *DFT* ANALYSIS CODE
01396  M00S01227.1mb     +++|          SHN    0-14
01397  M00S01228.1mb     +++|          LMN    3
01398  M00S01229.1mb     +++|          STD    T1          (1 = CORRECTED, 0 = UNCORRECTED)
01399  M00S01230.1mb     +++|          LDD    CN+1        GET TYPE OF ERROR
01400  M00S01231.1mb     +++|          SHN    0-10
01401  M00S01232.1mb     +++|          LPN    3
01402  M00S01233.1mb     +++|          SHN    1
01403  M00S01234.1mb     +++|          STD    T2          (0 = IOU, 2 = CM, 4 = CPU)
01404  M00S01235.1mb     +++|          LDM    CTHA,T2     BUILD APPROPRIATE MESSAGE TEXT
01405  M00S01236.1mb     +++|          STM    CTHB,T1
01406  M00S01237.1mb     +++|          LDM    CTHA+1,T2
01407  M00S01238.1mb     +++|          STM    CTHB+1,T1
01408  M00S01239.1mb     +++|          LDC    CTHB+ERLN   ISSUE ERROR LOG MESSAGE
01409  M00S01240.1mb     +++|          ADD    T1
01410  M00S01241.1mb     +++|          RJM    DFM
01411  M00S01242.1mb     +++|          LDN    ZERL        ISSUE OPERATOR EVENT
01412  M00S01243.1mb     +++|          CRD    CM
01413  M00S01244.1mb     +++|          LDK    ELAE
01414  M00S01245.1mb     +++|          STM    CM+4
01415  M00S01246.1mb     +++|          MONITOR  EATM
01416  M00S01247.1mb     +++|          UJP    CTHX        RETURN
01417  M00S01248.1mb     +++|
01418  M00S01249.1mb     +++| CTHA     DATA   4HIOU
01419  M00S01250.1mb     +++|          DATA   4HCM
01420  M00S01251.1mb     +++|          DATA   4HCPU
01421  M00S01252.1mb     +++| CTHB     DATA   6H    UN
01422  M00S01253.1mb     +++|          DATA   C*CORRECTED ERROR THRESHOLD EXCEEDED.*
01423  M00S01254.1mb     +++| CTP      SPACE  4,10
01424  M00S01255.1mb     +++|**        CTP - CHECK FOR TIME AND CHECKPOINT PROCESSING.
01425  M00S01256.1mb     +++|*
01426  M00S01257.1mb     +++|*         ENTRY  (IR+2) = FUNCTION CALL.
01427  M00S01258.1mb     +++|*
01428  M00S01259.1mb     +++|*         EXIT   TO *CSH* IF CHECKPOINT REQUEST.
01429  M00S01260.1mb     +++|*                TO *LED* IF TIME REQUEST AND *DFT* NOT DEDICATED.
01430  M00S01261.1mb     +++|*                TO *DPP* IF TIME REQUEST AND *DFT* DEDICATED.
01431  M00S01262.1mb     +++|*
01432  M00S01263.1mb     +++|*         USES   CM - CM+3, DC - DC+3, IR+2.
01433  M00S01264.1mb     +++|*
01434  M00S01265.1mb     +++|*         CALLS  CCO, CRC, CSH, DOB, PES, UCC, *2TH*.
01435  M00S01266.1mb     +++|*
01436  M00S01267.1mb     +++|*         MACROS EXECUTE.
01437  M00S01268.1mb     +++|
01438  M00S01269.1mb     +++|
01439  M00S01270.1mb     +++| CTP      SUBR               ENTRY/EXIT
01440  M00S01271.1mb     +++|          LDD    IR+2        CHECK FOR TIME PROCESSING
01441  M00S01272.1mb     +++|          LPN    SPCP
01442  M00S01273.1mb     +++|          NJP    CTP2        IF CHECKPOINT REQUEST
01443  M00S01274.1mb     +++|          LMD    IR+2
01444  M00S01275.1mb     +++|          LPN    SPTP
01445  M00S01276.1mb     +++|          ZJN    CTPX        IF NOT TIME PROCESSING
01446  M00S01277.1mb     +++|          RJM    UCC         UPDATE CTI CLOCK
01447  M00S01278.1mb     +++|          EXECUTE  2TH       LOAD TOP-OF-HOUR ROUTINES
01448  M00S01279.1mb     +++|          RJM    /IHD/CRC    CLEAR RELOAD COUNT IN CONTROLWARE TABLE
01449  M00S01280.1mb     +++|          RJM    /IHD/CCO    CLEAR COUNTS IN EST/MST ENTRIES
01450  M00S01281.1mb     +++|          RJM    /IHD/PES    PROCESS ESM SECDED LOGGING
01451  M00S01282.1mb     +++| CTPA     LDC    ZERL        SET LOG COUNTERS AND SECDED TABLE FLAG
01452  M00S01283.1mb     +++|*         LJM    CTPX        (IF NOS/VE LOGGING)
01453  M00S01284.1mb     +++|          CRDL   CM
01454  M00S01285.1mb     +++|          LDBC   DCZC
01455  M00S01286.1mb     +++|          STDL   CM+3
01456  M00S01287.1mb     +++|          RJM    DOB
01457  M00S01288.1mb     +++|          ADK    DFCW
01458  M00S01289.1mb     +++|          RDSL   CM
01459  M00S01290.1mb     +++|          CRDL   DC
01460  M00S01291.1mb     +++|          LDDL   DC+3        CHECK DEDICATED FLAG
01461  M00S01292.1mb     +++|          SHN    21-DCDM
01462  M00S01293.1mb     +++|          PJP    DPP         IF DEDICATED *DFT*
Line S01294 Modification History
M01 (Removed by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
01463  M01S01294.ns2660  ---|          LDN    SPLG        SET LOGGING FUNCTION CODE
Line S00017 Modification History
M01 (Added by) ns2660
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01295.1mb     +++|          STD    IR+2
01468  M00S01296.1mb     +++|          LDD    IA
01469  M00S01297.1mb     +++|          CWD    IR
01470  M00S01298.1mb     +++|          LJM    LED         LOAD *DFT*
01471  M00S01299.1mb     +++|
01472  M00S01300.1mb     +++| CTP2     LDN    10          SET *1CK* TO RECALL *1MB*
01473  M00S01301.1mb     +++|          STM    CKPA+2
01474  M00S01302.1mb     +++|          LDN    SPCP        SET *1MB* FUNCTION CODE
01475  M00S01303.1mb     +++|          STM    CKPA+3
01476  M00S01304.1mb     +++|          LDC    MSCP        *(204) FATAL CPU ERROR*
01477  M00S01305.1mb     +++|          STM    CSHA
01478  M00S01306.1mb     +++|          STM    CSHB
01479  M00S01307.1mb     +++|          RJM    CSH         CHECKPOINT AND HANG
01480  M00S01308.1mb     +++| C9E      SPACE  4,15
01481  M00S01309.1mb     +++|**        C9E - CHECK SPECIAL MODEL 990 ERRORS.
01482  M00S01310.1mb     +++|*
01483  M00S01311.1mb     +++|*         ENTRY  (IBMF+1) = *DFT* ANALYSIS CODE.
01484  M00S01312.1mb     +++|*                (T4) = CURRENT OFFSET INTO M/R BUFFER.
01485  M00S01313.1mb     +++|*
01486  M00S01314.1mb     +++|*         EXIT   (A) = 0, IF SPECIAL 990 ERROR PRESENT.
01487  M00S01315.1mb     +++|*                *BML* DATA PLACED IN BUFFER, IF (A) = 0.
01488  M00S01316.1mb     +++|*
01489  M00S01317.1mb     +++|*         USES   T4, T6.
01490  M00S01318.1mb     +++|*
01491  M00S01319.1mb     +++|*         CALLS  GPB, RMR.
01492  M00S01320.1mb     +++|
01493  M00S01321.1mb     +++|
01494  M00S01322.1mb     +++| C9E      SUBR               ENTRY/EXIT
01495  M00S01323.1mb     +++|          LDM    IBMF+1
01496  M00S01324.1mb     +++|          LPC    3777        MASK MULTIPLE OCCURRANCE FLAG
01497  M00S01325.1mb     +++|          LMC    0#206
01498  M00S01326.1mb     +++|          ZJN    C9E1        IF REPAIRED ERROR
01499  M00S01327.1mb     +++|          LMK    0#207&0#206
01500  M00S01328.1mb     +++|          ZJN    C9E1        IF UNREPAIRED ERROR
01501  M00S01329.1mb     +++|          LMK    0#205&0#207
01502  M00S01330.1mb     +++|          ZJN    C9E1        IF RETRY IN PROGRESS ERROR
01503  M00S01331.1mb     +++|          LMK    0#21B&0#205
01504  M00S01332.1mb     +++|          ZJN    C9E1        IF RETRY CONVERTED TO UNCORRECTED ERROR
01505  M00S01333.1mb     +++|          LMK    0#21C&0#21B
01506  M00S01334.1mb     +++|          ZJN    C9E1        IF RETRY EXHAUSTED ERROR
01507  M00S01335.1mb     +++|          LMK    0#21D&0#21C
01508  M00S01336.1mb     +++|          NJN    C9EX        IF NOT RETRY EXHAUSTED ERROR
01509  M00S01337.1mb     +++| C9E1     LDD    T4
01510  M00S01338.1mb     +++|          SBN    5
01511  M00S01339.1mb     +++|          NJN    C9EX        IF NOT LAST M/R BUFFER
01512  M00S01340.1mb     +++|          STD    T4
01513  M00S01341.1mb     +++|          STD    T6          INITIALIZE SUMMARY STATUS FLAG
01514  M00S01342.1mb     +++|
01515  M00S01343.1mb     +++|*         PROCESS LAST BUFFER FOR SPECIAL 990 ERRORS.
01516  M00S01344.1mb     +++|
01517  M00S01345.1mb     +++|          RJM    GPB         READ DATA WORD INTO *BML* MESSAGE
01518  M00S01346.1mb     +++|          LDD    BP
01519  M00S01347.1mb     +++|          STM    C9EA
01520  M00S01348.1mb     +++|          LDD    MS
01521  M00S01349.1mb     +++|          SHN    14
01522  M00S01350.1mb     +++|          LMD    MS+1
01523  M00S01351.1mb     +++|          CRM    **,ON
01524  M00S01352.1mb     +++| C9EA     EQU    *-1
01525  M00S01353.1mb     +++|          LDC    LDNI+0      SET *RMR* TO NOT USE *STATUS SUMMARY* FLAG
01526  M00S01354.1mb     +++|          STM    RMRA
01527  M00S01355.1mb     +++|          LDN    ZERL        USE ZERO AS REGISTER NUMBERS
01528  M00S01356.1mb     +++|          CRML   BDMR,ON
01529  M00S01357.1mb     +++|          RJM    RMR         LOG FAILING ADDRESS WORDS AS REGISTERS
01530  M00S01358.1mb     +++|          LDC    LDNI+1      RESTORE *RMR* USE OF *STATUS SUMMARY* FLAG
01531  M00S01359.1mb     +++|          STM    RMRA
01532  M00S01360.1mb     +++|          LDN    0           SET EXIT FLAG
01533  M00S01361.1mb     +++|          LJM    C9EX        RETURN
01534  M00S01362.1mb     +++| DOA      SPACE  4,10
01535  M00S01363.1mb     +++|**        DOA - DETERMINE OS ACTION.
01536  M00S01364.1mb     +++|*
01537  M00S01365.1mb     +++|*         ENTRY  (CN - CN+3) = CONTROL WORD.
01538  M00S01366.1mb     +++|*
01539  M00S01367.1mb     +++|*         EXIT   TO OS ACTION ROUTINE.
01540  M00S01368.1mb     +++|*                NORMAL RETURN, IF NO OS ACTION CODE OR VERSION 3
01541  M00S01369.1mb     +++|*                 AND NO VALID OS ACTION CODE.
01542  M00S01370.1mb     +++|*
01543  M00S01371.1mb     +++|*         USES   T1, T2.
01544  M00S01372.1mb     +++|
01545  M00S01373.1mb     +++|
01546  M00S01374.1mb     +++| DOA3     LDD    T1
01547  M00S01375.1mb     +++|          SBN    MXAC
01548  M00S01376.1mb     +++|          PJN    DOAX        IF NOT A VALID ACTION CODE
01549  M00S01377.1mb     +++|          LDM    TOSC,T1     SET OS ACTION ROUTINE ADDRESS
01550  M00S01378.1mb     +++|          UJN    DOA5        EXIT TO ROUTINE
01551  M00S01379.1mb     +++|
01552  M00S01380.1mb     +++| DOA4     LDC    MOB         ROUTINE FOR NO MATCH FOUND
01553  M00S01381.1mb     +++| DOA5     STM    DOAA
01554  M00S01382.1mb     +++|          LJM    **          PROCESS OS ACTION
01555  M00S01383.1mb     +++| DOAA     EQU    *-1
01556  M00S01384.1mb     +++|
01557  M00S01385.1mb     +++| DOA      SUBR               ENTRY/EXIT
01558  M00S01386.1mb     +++|          LDD    CN
01559  M00S01387.1mb     +++|          LPC    377
01560  M00S01388.1mb     +++|          STD    T1
01561  M00S01389.1mb     +++|          ZJN    DOAX        IF NO OS ACTION CODE
Line S00001 Modification History
M01 (Added by) 1mb33
Seq #  *Modification Id* Act 
----------------------------+
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  M00S01390.1mb     +++|          LDM    DFTV
01566  M00S01391.1mb     +++|          ZJN    DOA3        IF *DFT* VERSION 3
01567  M00S01392.1mb     +++|          LDN    0
01568  M00S01393.1mb     +++|          STD    T2
01569  M00S01394.1mb     +++|          UJN    DOA2        ENTER LOOP
01570  M00S01395.1mb     +++|
01571  M00S01396.1mb     +++| DOA1     LDN    3           ADVANCE TO NEXT ENTRY
01572  M00S01397.1mb     +++|          RAD    T2
01573  M00S01398.1mb     +++| DOA2     LDD    CN+1        GET *DFT* ANALYSIS CODE
01574  M00S01399.1mb     +++|          LPC    3777
01575  M00S01400.1mb     +++|          SBM    TDFA,T2
01576  M00S01401.1mb     +++|          MJN    DOA4        IF ENTRY NOT IN TABLE
01577  M00S01402.1mb     +++|          NJN    DOA1        IF NO MATCH
01578  M00S01403.1mb     +++|          LDD    T1          GET OS ACTION CODE
01579  M00S01404.1mb     +++|          LMM    TDFA+1,T2
01580  M00S01405.1mb     +++|          NJN    DOA1        IF ACTION CODE DOES NOT MATCH
01581  M00S01406.1mb     +++|          LDM    TDFA+2,T2   SET OS ACTION CODE ADDRESS
01582  M00S01407.1mb     +++|          UJP    DOA5        EXIT TO ROUTINE
01583  M00S01408.1mb     +++| DOB      SPACE  4,10
01584  M00S01409.1mb     +++|**        DOB - GET DFT/OS BUFFER ADDRESS.
01585  M00S01410.1mb     +++|*
01586  M00S01411.1mb     +++|*         EXIT   (A) = ADDRESS OF DFT/OS BUFFER.
01587  M00S01412.1mb     +++|
01588  M00S01413.1mb     +++| DOB      SUBR               ENTRY/EXIT
01589  M00S01414.1mb     +++| DOBA     LDC    **
01590  M00S01415.1mb     +++|          UJN    DOBX        RETURN
01591  M00S01416.1mb     +++| DPR      SPACE 4,10
01592  M00S01417.1mb     +++|**        DPR - DUMP PP REGISTERS.
01593  M00S01418.1mb     +++|*
01594  M00S01419.1mb     +++|*         EXIT   A, P, Q AND K REGISTERS OF EACH PP
01595  M00S01420.1mb     +++|*                DUMPED TO *PRGB*.
01596  M00S01421.1mb     +++|*
01597  M00S01422.1mb     +++|*         USES   EC, T2, T3, T4, CM - CM+4, CN - CN+4.
01598  M00S01423.1mb     +++|*
01599  M00S01424.1mb     +++|*         MACROS EXITMR, LOCKMR, READMR, WRITMR.
01600  M00S01425.1mb     +++|
01601  M00S01426.1mb     +++|
01602  M00S01427.1mb     +++| DPR      SUBR               ENTRY/EXIT
01603  M00S01428.1mb     +++|          EXITMR DPRX        MODIFY ERROR EXIT ADDRESS
01604  M00S01429.1mb     +++|          LDK    PPUL        GET NUMBER OF PP-S
01605  M00S01430.1mb     +++|          CRD    CN
01606  M00S01431.1mb     +++|          ADK    EABL+2-PPUL GET IOU CONNECT CODE
01607  M00S01432.1mb     +++|          CRD    CM
01608  M00S01433.1mb     +++|          LDD    CM+3
01609  M00S01434.1mb     +++|          STD    EC
01610  M00S01435.1mb     +++|          READMR BCMR,,DEMR  READ EC REGISTER
01611  M00S01436.1mb     +++|          LDN    0           INITIALIZE BUFFER POINTER
01612  M00S01437.1mb     +++|          STD    T3
01613  M00S01438.1mb     +++|          STD    T4          INITIALIZE REGISTER NUMBER
01614  M00S01439.1mb     +++|          STD    T2          INITIALIZE PP NUMBER
01615  M00S01440.1mb     +++| DPR1     LDM    BCMR+4      SET PP NUMBER
01616  M00S01441.1mb     +++|          SCN    77
01617  M00S01442.1mb     +++|          LMD    T2
01618  M00S01443.1mb     +++|          LMN    40          SET AUTO MODE BIT
01619  M00S01444.1mb     +++|          STM    BCMR+4
01620  M00S01445.1mb     +++|          LDM    BCMR+6      MERGE REGISTER NUMBER
01621  M00S01446.1mb     +++|          SCN    3
01622  M00S01447.1mb     +++|          LMD    T4
01623  M00S01448.1mb     +++|          STM    BCMR+6
01624  M00S01449.1mb     +++|          LOCKMR SET         GET LONG TERM INTERLOCK
01625  M00S01450.1mb     +++|          WRITMR BCMR,,DEMR  WRITE EC REGISTER
01626  M00S01451.1mb     +++|          READMR BDMR,,ISTR  READ STATUS REGISTER
01627  M00S01452.1mb     +++|          LOCKMR CLEAR       CLEAR LONG TERM INTERLOCK
01628  M00S01453.1mb     +++|          LDM    BDMR+4      FETCH REGISTER
01629  M00S01454.1mb     +++|          LPN    3
01630  M00S01455.1mb     +++|          SHN    10
01631  M00S01456.1mb     +++|          LMM    BDMR+5
01632  M00S01457.1mb     +++|          SHN    10
01633  M00S01458.1mb     +++|          LMM    BDMR+6
01634  M00S01459.1mb     +++|          STM    PRGB+1,T3   STORE IN BUFFER
01635  M00S01460.1mb     +++|          SHN    -14
01636  M00S01461.1mb     +++|          STM    PRGB,T3
01637  M00S01462.1mb     +++|          LDN    2           INCREMENT BUFFER POINTER
01638  M00S01463.1mb     +++|          RAD    T3
01639  M00S01464.1mb     +++|          AOD    T4          INCREMENT REGISTER NUMBER
01640  M00S01465.1mb     +++|          SBN    4
01641  M00S01466.1mb     +++|          MJN    DPR2        IF NOT END OF REGISTERS FOR THIS PP
01642  M00S01467.1mb     +++|          LDN    0           RESET REGISTER NUMBER
01643  M00S01468.1mb     +++|          STD    T4
01644  M00S01469.1mb     +++|          SOD    CN+2        DECREMENT NUMBER OF PP-S
01645  M00S01470.1mb     +++|          ZJN    DPR3        IF END OF PP-S
01646  M00S01471.1mb     +++|          AOD    T2          INCREMENT PP NUMBER
01647  M00S01472.1mb     +++|          SBN    12
01648  M00S01473.1mb     +++|          NJN    DPR2        IF NOT PP 20
01649  M00S01474.1mb     +++|          ADN    12+6
01650  M00S01475.1mb     +++|          STD    T2
01651  M00S01476.1mb     +++| DPR2     LJM    DPR1        READ NEXT REGISTER
01652  M00S01477.1mb     +++|
01653  M00S01478.1mb     +++| DPR3     LDC    PRGB        SET BUFFER ADDRESS IN INPUT REGISTER
01654  M00S01479.1mb     +++|          STD    IR+4
01655  M00S01480.1mb     +++|          LDD    IA
01656  M00S01481.1mb     +++|          CWD    IR
01657  M00S01482.1mb     +++|          LJM    DPRX        RETURN
01658  M00S01483.1mb     +++| DSP      SPACE  4,10
01659  M00S01484.1mb     +++|**        DSP - GET *EICB* ADDRESS.
01660  M00S01485.1mb     +++|*
01661  M00S01486.1mb     +++|*         ENTRY  (DSPA) = ADDRESS OF *EICB*.
01662  M00S01487.1mb     +++|*
01663  M00S01488.1mb     +++|*         EXIT   (A) = ADDRESS OF *EICB*.
01664  M00S01489.1mb     +++|
01665  M00S01490.1mb     +++|
01666  M00S01491.1mb     +++| DSP      SUBR               ENTRY/EXIT
01667  M00S01492.1mb     +++| DSPA     LDC    **
01668  M00S01493.1mb     +++|          UJN    DSPX        RETURN
01669  M00S01494.1mb     +++| FNR      SPACE  4,15
01670  M00S01495.1mb     +++|**        FNR - FIND NON-REGISTER DATA.
01671  M00S01496.1mb     +++|*
01672  M00S01497.1mb     +++|*         ENTRY  (FNRA - FNRA+1) = FWA OF NON-REGISTER DATA.
01673  M00S01498.1mb     +++|*
01674  M00S01499.1mb     +++|*         EXIT   (A) = 0, IF NO ENTRY TO PROCESS.
01675  M00S01500.1mb     +++|*                (MB - MB+1) = ADDRESS OF CONTROL WORD FOR ENTRY.
01676  M00S01501.1mb     +++|*                (CN - CN+3) = CONTROL WORD TO PROCESS.
01677  M00S01502.1mb     +++|*                (CN+3) = SIZE OF ENTRY TO LOG.
01678  M00S01503.1mb     +++|*
01679  M00S01504.1mb     +++|*         USES   T1, T2, CM - CM+3, MB - MB+1.
01680  M00S01505.1mb     +++|*
01681  M00S01506.1mb     +++|*         CALLS  FOM.
01682  M00S01507.1mb     +++|
01683  M00S01508.1mb     +++|
01684  M00S01509.1mb     +++| FNR      SUBR               ENTRY/EXIT
01685  M00S01510.1mb     +++| FNRA     LDC    **          (FWA OF NON-REGISTER DATA)
01686  M00S01511.1mb     +++|          ZJN    FNRX        IF *DFT* VERSION 3
01687  M00S01512.1mb     +++|          CRDL   CM          READ HEADER WORD
01688  M00S01513.1mb     +++|          ADN    1
01689  M00S01514.1mb     +++|          STD    MB+1        SAVE ADDRESS OF START OF FIRST ENTRY
01690  M00S01515.1mb     +++|          SHN    -14
01691  M00S01516.1mb     +++|          STD    MB
01692  M00S01517.1mb     +++|          LDD    CM+3        SET INTERVAL BETWEEN CONTROL WORDS
01693  M00S01518.1mb     +++|          STD    T2
01694  M00S01519.1mb     +++|          LDD    CM+2        SET NUMBER OF CONTROL WORDS TO SEARCH
01695  M00S01520.1mb     +++|          RJM    FOM         FIND OLDEST ENTRY
01696  M00S01521.1mb     +++|          ZJN    FNR1        IF NO ENTRY TO PROCESS
01697  M00S01522.1mb     +++|          LDD    MB          READ SIZE OF DATA TO LOG
01698  M00S01523.1mb     +++|          SHN    14
01699  M00S01524.1mb     +++|          LMD    MB+1
01700  M00S01525.1mb     +++|          ADN    1
01701  M00S01526.1mb     +++|          CRDL   CM
01702  M00S01527.1mb     +++|          LDD    CM+3        SAVE SIZE OF DATA TO LOG
01703  M00S01528.1mb     +++| FNR1     STD    CN+3
01704  M00S01529.1mb     +++|          UJN    FNRX        RETURN
01705  M00S01530.1mb     +++| FOM      SPACE  4,10
01706  M00S01531.1mb     +++|**        FOM - FIND OLDEST M/R BUFFER ENTRY.
01707  M00S01532.1mb     +++|*
01708  M00S01533.1mb     +++|*         ENTRY  (A) = NUMBER OF CONTROL WORDS TO SEARCH.
01709  M00S01534.1mb     +++|*                (T2) = INTERVAL BETWEEN CONTROL WORDS.
Line S00084 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01710  M01S00084.271l716 +++|*                (MB - MB+1) = ADDRESS OF FIRST CONTROL WORD.
01711  M00S01535.1mb     +++|*
01712  M00S01536.1mb     +++|*         EXIT   (A) = (T7) = OFFSET OF OLDEST CONTROL WORD.
01713  M00S01537.1mb     +++|*                    = 0, IF NO ENTRY FOUND TO PROCESS.
01714  M00S01538.1mb     +++|*                (CN - CN+3) = OLDEST M/R CONTROL WORD.
01715  M00S01539.1mb     +++|*                (MB - MB+1) = ADDRESS OF OLDEST M/R CONTROL WORD.
01716  M00S01540.1mb     +++|*
01717  M00S01541.1mb     +++|*         USES   CN - CN+3, MB - MB+1, T1, T6, T7, T8.
Line S01542 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01718  M01S01542.271l716 ---|*
01719  M01S01543.271l716 ---|*         CALLS  SCA.
01720  M00S01544.1mb     +++|
01721  M00S01545.1mb     +++|
01722  M00S01546.1mb     +++|*         INTERLOCK SELECTED ENTRY.  IF UNABLE TO DO SO, *DFT* IS IN
01723  M00S01547.1mb     +++|*         THE PROCESS OF OVERWRITING IT AND A NEW ENTRY MUST BE
01724  M00S01548.1mb     +++|*         SELECTED.  IF THE INTERLOCK IS OBTAINED, BUT THE SEQUENCE
01725  M00S01549.1mb     +++|*         NUMBER IS DIFFERENT, *DFT* HAS OVERWRITTEN IT.  A NEW ENTRY
01726  M00S01550.1mb     +++|*         MUST BE SELECTED.
01727  M00S01551.1mb     +++|
01728  M00S01552.1mb     +++| FOM6     LDD    T7
01729  M00S01553.1mb     +++|          ZJN    FOMX        IF NO ENTRY SELECTED
01730  M00S01554.1mb     +++|          LDN    ZERL        SET UP INTERLOCK WORD
01731  M00S01555.1mb     +++|          CRDL   CN
01732  M00S01556.1mb     +++|          LDBC   MRIL
01733  M00S01557.1mb     +++|          STD    CN+2
01734  M00S01558.1mb     +++|          LDD    MB
01735  M00S01559.1mb     +++|          SHN    14
01736  M00S01560.1mb     +++|          LMD    MB+1
01737  M00S01561.1mb     +++|          ADD    T7
01738  M00S01562.1mb     +++|          RDSL   CN          SET INTERLOCK ON OLDEST CONTROL WORD
01739  M00S01563.1mb     +++|          LDDL   CN+2
01740  M00S01564.1mb     +++|          SHN    21-MRIL
01741  M00S01565.1mb     +++|          MJN    FOM1        IF INTERLOCKED BY *DFT*
01742  M00S01566.1mb     +++|          LDDL   CN+2
01743  M00S01567.1mb     +++|          SHN    -10         CHECK SEQUENCE NUMBER
01744  M00S01568.1mb     +++|          SBD    T8
01745  M00S01569.1mb     +++|          ZJN    FOM7        IF SAME SEQUENCE NUMBER
01746  M00S01570.1mb     +++|          LDD    MB          CLEAR INTERLOCK
01747  M00S01571.1mb     +++|          SHN    14
01748  M00S01572.1mb     +++|          LMD    MB+1
01749  M00S01573.1mb     +++|          ADD    T7
01750  M00S01574.1mb     +++|          CWDL   CN
01751  M00S01575.1mb     +++|          UJN    FOM1        RESTART SEARCH
01752  M00S01576.1mb     +++|
01753  M00S01577.1mb     +++| FOM7     LDD    T7          SET OLDEST BUFFER CONTROL WORD ADDRESS
01754  M00S01578.1mb     +++|          RAD    MB+1
01755  M00S01579.1mb     +++|          SHN    -14
01756  M00S01580.1mb     +++|          RAD    MB
01757  M00S01581.1mb     +++|          LDD    T7
01758  M00S01582.1mb     +++|
01759  M00S01583.1mb     +++| FOM      SUBR               ENTRY/EXIT
01760  M00S01584.1mb     +++|          STM    FOMB        SAVE NUMBER OF CONTROL WORDS
Line S01585 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
01761  M01S01585.271l716 ---|          RJM    SCA         SET ADDRESS OF CONTROL WORDS
01762  M00S01586.1mb     +++| FOM1     LDN    0
01763  M00S01587.1mb     +++|          STD    T6          COUNTER FOR M/R BUFFER ENTRIES
01764  M00S01588.1mb     +++|          STD    T7          OFFSET OF OLDEST M/R BUFFER
01765  M00S01589.1mb     +++|          STD    T8          SEQUENCE NUMBER OF OLDEST M/R BUFFER
01766  M00S01590.1mb     +++|          LDC    **
01767  M00S01591.1mb     +++| FOMB     EQU    *-1         (NUMBER OF CONTROL WORDS TO SEARCH)
01768  M00S01592.1mb     +++|          STD    T1
01769  M00S01593.1mb     +++|          UJN    FOM3        ENTER LOOP
01770  M00S01594.1mb     +++|
01771  M00S01595.1mb     +++| FOM2     LDD    T2          ADVANCE TO NEXT CONTROL WORD
01772  M00S01596.1mb     +++|          RAD    T6
01773  M00S01597.1mb     +++|          SOD    T1
01774  M00S01598.1mb     +++|          ZJP    FOM6        IF SEARCH COMPLETE
01775  M00S01599.1mb     +++| FOM3     LDD    MB          READ NEXT M/R CONTROL WORD
01776  M00S01600.1mb     +++|          SHN    14
01777  M00S01601.1mb     +++|          LMD    MB+1
01778  M00S01602.1mb     +++|          ADD    T6
01779  M00S01603.1mb     +++|          CRDL   CN
01780  M00S01604.1mb     +++|          LDDL   CN+2        CHECK VALID DATA FLAG AND INTERLOCK FLAG
01781  M00S01605.1mb     +++| FOMA     LPBC   (MRV7,MRIL,MRLG)
01782  M00S01606.1mb     +++|*         LPBC   (MRV7,MRIL) (IF 180 LOGGING)
01783  M00S01607.1mb     +++|          SHN    21-MRIL
01784  M00S01608.1mb     +++|          MJN    FOM2        IF INTERLOCKED BY *DFT*
01785  M00S01609.1mb     +++|          ZJN    FOM2        IF NOT A POTENTIAL EARLIEST ENTRY
01786  M00S01610.1mb     +++|          LDD    T7
01787  M00S01611.1mb     +++|          ZJN    FOM5        IF NO ENTRY SELECTED YET
01788  M00S01612.1mb     +++|          LDDL   CN+2        GET SEQUENCE NUMBER
01789  M00S01613.1mb     +++|          SHN    -10
01790  M00S01614.1mb     +++|          SBD    T8          SUBTRACT OLDEST SEQUENCE NUMBER
01791  M00S01615.1mb     +++|          MJN    FOM4        IF LOWER THAN PREVIOUS
01792  M00S01616.1mb     +++|          SBN    40
01793  M00S01617.1mb     +++|          PJN    FOM5        IF WRAP AROUND
01794  M00S01618.1mb     +++| FOM3.1   UJP    FOM2        PROCESS NEXT ENTRY
01795  M00S01619.1mb     +++|
01796  M00S01620.1mb     +++| FOM4     ADN    40
01797  M00S01621.1mb     +++|          MJN    FOM2        IF NOT AN EARLIER ENTRY
01798  M00S01622.1mb     +++| FOM5     LDDL   CN+2        SET NEW OLDEST SEQUENCE NUMBER
01799  M00S01623.1mb     +++|          SHN    -10
01800  M00S01624.1mb     +++|          STD    T8
01801  M00S01625.1mb     +++|          LDD    T6          SET NEW OLDEST OFFSET
01802  M00S01626.1mb     +++|          STD    T7
01803  M00S01627.1mb     +++|          UJN    FOM3.1      PROCESS NEXT ENTRY
01804  M00S01628.1mb     +++| FSS      SPACE  4,10
01805  M00S01629.1mb     +++|**        FSS - FIND SUPPORTIVE STATUS DATA.
01806  M00S01630.1mb     +++|*
01807  M00S01631.1mb     +++|*         ENTRY  (FSSA) = FWA OF SUPPORTIVE STATUS BUFFER.
01808  M00S01632.1mb     +++|*                (FSSB) = OFFSET OF ENTRY IN M/R BUFFER CONTROL WORDS.
01809  M00S01633.1mb     +++|*                         (MUST BE NON-ZERO)
01810  M00S01634.1mb     +++|*
01811  M00S01635.1mb     +++|*         EXIT   (SSCW - SSCW+1) = ADDRESS OF CONTROL WORD FOR
01812  M00S01636.1mb     +++|*                                  SUPPORTIVE STATUS DATA.
01813  M00S01637.1mb     +++|*
01814  M00S01638.1mb     +++|*         USES   T1, CM - CM+4, MS - MS+1.
01815  M00S01639.1mb     +++|
01816  M00S01640.1mb     +++|
01817  M00S01641.1mb     +++| FSS      SUBR               ENTRY/EXIT
01818  M00S01642.1mb     +++| FSSA     LDC    **          GET START OF SUPPORTIVE STATUS BUFFERS
01819  M00S01643.1mb     +++|          ZJN    FSSX        IF *DFT* VERSION 3
01820  M00S01644.1mb     +++|          CRDL   CM
01821  M00S01645.1mb     +++|          ADN    1           ADVANCE TO START OF FIRST ENTRY
01822  M00S01646.1mb     +++|          STD    MS+1
01823  M00S01647.1mb     +++|          SHN    -14
01824  M00S01648.1mb     +++|          STD    MS
01825  M00S01649.1mb     +++|          LDC    *           SET OFFSET
01826  M00S01650.1mb     +++| FSSB     EQU    *-1
01827  M00S01651.1mb     +++|          STD    T1
01828  M00S01652.1mb     +++| FSS1     LDD    CM+3        ADVANCE TO NEXT ENTRY
01829  M00S01653.1mb     +++|          RAD    MS+1
01830  M00S01654.1mb     +++|          SHN    -14
01831  M00S01655.1mb     +++|          RAD    MS
01832  M00S01656.1mb     +++|          SOD    T1
01833  M00S01657.1mb     +++|          NJN    FSS1        IF NOT YET AT CORRECT ENTRY
01834  M00S01658.1mb     +++|          LDD    MS          SAVE ADDRESS OF CONTROL WORD FOR ENTRY
01835  M00S01659.1mb     +++|          STM    SSCW
01836  M00S01660.1mb     +++|          LDD    MS+1
01837  M00S01661.1mb     +++|          STM    SSCW+1
01838  M00S01662.1mb     +++|          UJN    FSSX        RETURN
01839  M00S01663.1mb     +++| GPB      SPACE  4,10
01840  M00S01664.1mb     +++|**        GPB - GET POINTER TO *BML* BUFFER.
01841  M00S01665.1mb     +++|*
01842  M00S01666.1mb     +++|*         ENTRY  (BP) = PREVIOUS POINTER INTO *BML* BUFFER.
01843  M00S01667.1mb     +++|*
01844  M00S01668.1mb     +++|*         EXIT   (BP) UPDATED.
01845  M00S01669.1mb     +++|*                *BML* MESSAGE ISSUED.
01846  M00S01670.1mb     +++|*
01847  M00S01671.1mb     +++|*         USES   BP, CM - CM+4.
01848  M00S01672.1mb     +++|*
01849  M00S01673.1mb     +++|*         CALLS  DFM.
01850  M00S01674.1mb     +++|
01851  M00S01675.1mb     +++|
01852  M00S01676.1mb     +++| GPB      SUBR               ENTRY/EXIT
01853  M00S01677.1mb     +++|          LDN    5
01854  M00S01678.1mb     +++|          RAD    BP          UPDATE POINTER TO *BML* BUFFER
01855  M00S01679.1mb     +++|          ADC    -IBMHL
01856  M00S01680.1mb     +++|          MJN    GPBX        IF STILL WITHIN BUFFER
01857  M00S01681.1mb     +++|          LDN    ZERL
01858  M00S01682.1mb     +++|          CRD    CM          FORM *BML* PARAMETERS
01859  M00S01683.1mb     +++|          LDN    6*5         SET BYTE COUNT
01860  M00S01684.1mb     +++|          STD    CM+1
01861  M00S01685.1mb     +++|          LDM    IBMG+1      UNCONDITIONALLY SET CONTINUATION BIT
01862  M00S01686.1mb     +++|          SCN    4
01863  M00S01687.1mb     +++|          LMN    4
01864  M00S01688.1mb     +++|          STM    IBMG+1
01865  M00S01689.1mb     +++|          LDC    IBMF+BMLN   SEND *BML* MESSAGE
01866  M00S01690.1mb     +++|          RJM    DFM
01867  M00S01691.1mb     +++|          LDC    IBMH
01868  M00S01692.1mb     +++|          STD    BP
01869  M00S01693.1mb     +++|          LDM    IBMG+1      SET NOT FIRST BLOCK FLAG
01870  M00S01694.1mb     +++|          SCN    10
01871  M00S01695.1mb     +++|          LMN    10
01872  M00S01696.1mb     +++|          STM    IBMG+1
01873  M00S01697.1mb     +++|          UJN    GPBX        RETURN
01874  M00S01698.1mb     +++| IMD      SPACE  4,10
01875  M00S01699.1mb     +++|**        IMD - ISSUE MODEL DEPENDENT DATA *BML* MESSAGE.
01876  M00S01700.1mb     +++|*
01877  M00S01701.1mb     +++|*         ENTRY  MESSAGE BUILT AT *BHDR*.
01878  M00S01702.1mb     +++|*                (A) = LENGTH OF MESSAGE TO ISSUE.
01879  M00S01703.1mb     +++|*
Line S01704 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01880  M01S01704.ns2769  ---|*         USES   T3, CM - CM+4, CN - CN+4, T5 - T7.
01881  M01S01705.ns2769  ---|*
01882  M01S01706.ns2769  ---|*         MACROS DELAY, EXECUTE, MONITOR.
Line S00041 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01883  M01S00041.ns2769  +++|*         CALLS  IMB.
01884  M00S01707.1mb     +++|
01885  M00S01708.1mb     +++|
01886  M00S01709.1mb     +++| IMD      SUBR               ENTRY/EXIT
01887  M00S01710.1mb     +++|          ADN    1
Line S01711 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01888  M01S01711.ns2769  ---|          STD    T3          SAVE LENGTH OF MESSAGE
01889  M00S01712.1mb     +++|          STM    BHDR+3
Line S01713 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01890  M01S01713.ns2769  ---|          LDK    EMBP
01891  M01S01714.ns2769  ---|          CRD    T5          FETCH *EMB* POINTER
01892  M01S01715.ns2769  ---| IMD1     DELAY
01893  M01S01716.ns2769  ---|          LDN    ZERL        PRESET *UTEM* REQUEST
01894  M01S01717.ns2769  ---|          CRD    CM
01895  M01S01718.ns2769  ---|          LDD    T7          SET ADDRESS OF INTERLOCK WORD
01896  M01S01719.ns2769  ---|          STD    CM+4
01897  M01S01720.ns2769  ---|          LDD    T6
01898  M01S01721.ns2769  ---|          STD    CM+3
01899  M01S01722.ns2769  ---|          MONITOR  UTEM      GET *EMB* INTERLOCK
01900  M01S01723.ns2769  ---|          LDD    CM+1
01901  M01S01724.ns2769  ---|          NJN    IMD1        IF INTERLOCK NOT OBTAINED
01902  M01S01725.ns2769  ---|          LDD    T6          READ INTERLOCK WORD
01903  M01S01726.ns2769  ---|          SHN    14
01904  M01S01727.ns2769  ---|          LMD    T7
01905  M01S01728.ns2769  ---|          CRD    CN
01906  M01S01729.ns2769  ---|          LDD    T3          MESSAGE LENGTH
01907  M01S01730.ns2769  ---|          ADD    CN+3        CURRENT WORD COUNT
01908  M01S01731.ns2769  ---|          SBK    EMBLL-1
01909  M01S01732.ns2769  ---|          MJN    IMD2        IF ROOM IN BUFFER FOR MESSAGE
01910  M01S01733.ns2769  ---|          SOD    CN+4        CLEAR *EMB* INTERLOCK
01911  M01S01734.ns2769  ---|          LDD    T6
01912  M01S01735.ns2769  ---|          SHN    14
01913  M01S01736.ns2769  ---|          LMD    T7
01914  M01S01737.ns2769  ---|          CWD    CN
01915  M01S01738.ns2769  ---|          UJN    IMD1        RETRY
01916  M01S01739.ns2769  ---|
01917  M01S01740.ns2769  ---| IMD2     LDD    T6          WRITE ERROR MESSAGE TO *EMB*
01918  M01S01741.ns2769  ---|          SHN    14
01919  M01S01742.ns2769  ---|          ADD    T7
01920  M01S01743.ns2769  ---|          ADN    1           ADVANCE OVER INTERLOCK WORD
01921  M01S01744.ns2769  ---|          ADD    CN+3
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1mb.txt ยท Last modified: by 127.0.0.1