Deck 1MB Part 001

13 Modifications

Listing Sections

Deck 1MB Start
Deck 1MB Part 1 (Line 1922)
Deck 1MB Part 2 (Line 3896)

Source

Seq #  *Modification Id* Act 
----------------------------+
01922  M01S01745.ns2769  ---|          CWM    BHDR,T3
01923  M01S01746.ns2769  ---|          LDD    T3          UPDATE LENGTH OF DATA IN *EMB*
01924  M01S01747.ns2769  ---|          RAD    CN+3
01925  M01S01748.ns2769  ---|          LDD    CN+4
01926  M01S01749.ns2769  ---|          LPN    2
01927  M01S01750.ns2769  ---|          NJN    IMD3        IF *1MD* ALREADY CALLED
01928  M01S01751.ns2769  ---|          LDN    10
01929  M01S01752.ns2769  ---|          STD    CM+1        FORCE ASSIGNMENT TO SYSTEM CP
01930  M01S01753.ns2769  ---|          LDD    MA
01931  M01S01754.ns2769  ---|          CWM    IMDA,ON     STORE MESSAGE BUFFER FOR *1MD* CALL
01932  M01S01755.ns2769  ---|          EXECUTE  1MD,=
01933  M01S01756.ns2769  ---|          MONITOR  RPPM      REQUEST PP FOR *1MD*
01934  M01S01757.ns2769  ---|          LDD    CM+1
01935  M01S01758.ns2769  ---|          ZJN    IMD3        IF NO PP-S AVAILABLE
01936  M01S01759.ns2769  ---|          LDN    2           SET *1MD* CALLED FLAG
01937  M01S01760.ns2769  ---|          RAD    CN+4
01938  M01S01761.ns2769  ---| IMD3     SOD    CN+4        CLEAR *EMB* INTERLOCK
01939  M01S01762.ns2769  ---|          LDD    T6
01940  M01S01763.ns2769  ---|          SHN    14          UPDATE *EMB* INFORMATION
01941  M01S01764.ns2769  ---|          LMD    T7
01942  M01S01765.ns2769  ---|          CWD    CN

Line S00042 Modification History
`M01` (Added by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
01943  M01S00042.ns2769  +++|          LDC    BHDR
01944  M01S00043.ns2769  +++|          RJM    IMB         ISSUE MESSAGE TO BUFFER
01945  M00S01766.1mb     +++|          LDM    MBUF+1*5+1  SET NOT FIRST BLOCK FLAG
01946  M00S01767.1mb     +++|          SCN    10
01947  M00S01768.1mb     +++|          LMN    10
01948  M00S01769.1mb     +++|          STM    MBUF+1*5+1
01949  M00S01770.1mb     +++|          UJP    IMDX        RETURN

Line S01771 Modification History
`M01` (Removed by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
01950  M01S01771.ns2769  ---|
01951  M01S01772.ns2769  ---|
01952  M01S01773.ns2769  ---| IMDA     VFD    18/0L1MD,42/1
01953  M00S01774.1mb     +++| LDT      SPACE  4,15
01954  M00S01775.1mb     +++|**        LDT - LOG DATA STRUCTURE.
01955  M00S01776.1mb     +++|*
01956  M00S01777.1mb     +++|*         *LDT* LOGS THE SUPPORTIVE STATUS BUFFER AND NON-REGISTER
01957  M00S01778.1mb     +++|*         DATA.
01958  M00S01779.1mb     +++|*
01959  M00S01780.1mb     +++|*         ENTRY  (T4) = NUMBER OF WORDS TO LOG.
01960  M00S01781.1mb     +++|*                (MS - MS+1) = ADDRESS-1 OF FIRST WORD TO LOG.
01961  M00S01782.1mb     +++|*
01962  M00S01783.1mb     +++|*         USES   BP, T4, T5, CN - CN+3, MS - MS+1.
01963  M00S01784.1mb     +++|*
01964  M00S01785.1mb     +++|*         CALLS  CMB, PMB, PMR.
01965  M00S01786.1mb     +++|
01966  M00S01787.1mb     +++|
01967  M00S01788.1mb     +++| LDT      SUBR               ENTRY/EXIT
01968  M00S01789.1mb     +++|          LDN    0           CLEAR CONTINUATION/NOT FIRST BLOCK FLAGS
01969  M00S01790.1mb     +++|          STM    IBMG+1
01970  M00S01791.1mb     +++|          STD    T5          SET UP FOR *PMB*
01971  M00S01792.1mb     +++|          LDC    IBMH-5
01972  M00S01793.1mb     +++|          STD    BP
01973  M00S01794.1mb     +++|          LDN    ZERL        USE ZERO AS REGISTER NUMBERS
01974  M00S01795.1mb     +++|          CRML   BDMR,ON
01975  M00S01796.1mb     +++| LDT1     AOD    MS+1        READ NEXT WORD OF DATA
01976  M00S01797.1mb     +++|          SHN    -14
01977  M00S01798.1mb     +++|          RAD    MS
01978  M00S01799.1mb     +++|          SHN    14
01979  M00S01800.1mb     +++|          LMD    MS+1
01980  M00S01801.1mb     +++|          CRDL   CN
01981  M00S01802.1mb     +++|          RJM    PMR         PACK DATA INTO *BCMR* BUFFER
01982  M00S01803.1mb     +++|          RJM    PMB         PACK DATA INTO *BML* MESSAGE
01983  M00S01804.1mb     +++|          NJN    LDT2        IF NOT AT END OF BLOCK
01984  M00S01805.1mb     +++|          LDM    IBMG+1      SET NOT FIRST BLOCK FLAG
01985  M00S01806.1mb     +++|          SCN    10
01986  M00S01807.1mb     +++|          LMN    10
01987  M00S01808.1mb     +++|          STM    IBMG+1
01988  M00S01809.1mb     +++| LDT2     SOD    T4
01989  M00S01810.1mb     +++|          NJN    LDT1        IF MORE WORDS TO LOG
01990  M00S01811.1mb     +++|          RJM    CBM         COMPLETE *BML* MESSAGES
01991  M00S01812.1mb     +++|          UJP    LDTX        RETURN
01992  M00S01813.1mb     +++| LED      SPACE  4,10
01993  M00S01814.1mb     +++|**        LED - LOAD AND EXECUTE *DFT*.
01994  M00S01815.1mb     +++|*
01995  M00S01816.1mb     +++|*         EXIT   *DFT* IS LOADED INTO THIS PP.
01996  M00S01817.1mb     +++|*
01997  M00S01818.1mb     +++|*         USES   DC - DC+1, CM - CM+3, CN - CN+4, SC, T0, T7.
01998  M00S01819.1mb     +++|*
01999  M00S01820.1mb     +++|*         CALLS  DOB.
02000  M00S01821.1mb     +++|
02001  M00S01822.1mb     +++|
02002  M00S01823.1mb     +++| LED      BSS    0           ENTRY
02003  M00S01824.1mb     +++|          RJM    DOB         READ *DFT* CONTROL WORD
02004  M00S01825.1mb     +++|          ADK    DFCW
02005  M00S01826.1mb     +++|          CRDL   DC
02006  M00S01827.1mb     +++|          LDDL   DC+3        CHECK DEDICATED MODE
02007  M00S01828.1mb     +++|          SHN    21-DCDM
02008  M00S01829.1mb     +++|          PJP    LED1        IF *DFT* IS IN DEDICATED MODE
02009  M00S01830.1mb     +++|
02010  M00S01831.1mb     +++|*         SAVE PP RESIDENT.
02011  M00S01832.1mb     +++|
02012  M00S01833.1mb     +++|          SETMS  NODRIVER    CLEAR DRIVER PRESENT FLAG
02013  M00S01834.1mb     +++|          LDC    DFPSL-1     SET WORD COUNT TO SAVE
02014  M00S01835.1mb     +++|          STD    T7
02015  M00S01836.1mb     +++|          LDN    DFTBL       TRANSFER BOOTSTRAP TO *MSFW*
02016  M00S01837.1mb     +++|          STD    CM
02017  M00S01838.1mb     +++|          LDD    MA
02018  M00S01839.1mb     +++|          CWM    LEDD,CM
02019  M00S01840.1mb     +++|          LDD    MA
02020  M00S01841.1mb     +++|          CRM    MSFW,CM
02021  M00S01842.1mb     +++|          LDC    MSFW-1      SET EXECUTION ADDRESS ON RETURN FROM *DFT*
02022  M00S01843.1mb     +++|          STD    T0
02023  M00S01844.1mb     +++|          RJM    DOB         GET *PPR* SAVE AREA BUFFER ADDRESS
02024  M00S01845.1mb     +++|          ADK    DFPS
02025  M00S01846.1mb     +++|          CRDL   CM
02026  M00S01847.1mb     +++|          RPTR   CM          CONVERT ADDRESS
02027  M00S01848.1mb     +++|          CWD    T0          WRITE FIRST WORD OF *PPR*
02028  M00S01849.1mb     +++|          ADN    1
02029  M00S01850.1mb     +++|          CWM    5,T7        WRITE REMAINDER OF *PPR*
02030  M00S01851.1mb     +++|          LDN    DSAL        RESERVE CIP CHANNEL
02031  M00S01852.1mb     +++|          CRD    CM
02032  M00S01853.1mb     +++|          LDD    CM+4
02033  M00S01854.1mb     +++|          LPN    77
02034  M00S01855.1mb     +++|          RCHAN
02035  M00S01856.1mb     +++|
02036  M00S01857.1mb     +++|*         CHECK NOS REQUEST STATUS.
02037  M00S01858.1mb     +++|
02038  M00S01859.1mb     +++|          RJM    SDA         READ NOS REQUEST HEADER
02039  M00S01860.1mb     +++|          CRD    CM
02040  M00S01861.1mb     +++|          LDD    CM+4        CHECK STATUS
02041  M00S01862.1mb     +++|          LMN    STRY
02042  M00S01863.1mb     +++|          NJN    LED3        IF NOT STATUS = *READY*
02043  M00S01864.1mb     +++|          LDN    STAC        SET STATUS = *ACTIVE*
02044  M00S01865.1mb     +++|          STD    CM+4
02045  M00S01866.1mb     +++|          RJM    SDA         REWRITE NOS REQUEST HEADER
02046  M00S01867.1mb     +++|          CWD    CM
02047  M00S01868.1mb     +++|          UJN    LED3        CONTINUE WITH LOADING *DFT*
02048  M00S01869.1mb     +++|
02049  M00S01870.1mb     +++| LED1     SHN    21-DCVR-21+DCDM+22
02050  M00S01871.1mb     +++|          PJN    LED2        IF *DFT* NOT ALREADY ACTIVATED
02051  M00S01872.1mb     +++|          RJM    CNR         CHECK FOR NOS REQUEST
02052  M00S01873.1mb     +++|          LJM    DPP         DROP PP
02053  M00S01874.1mb     +++|
02054  M00S01875.1mb     +++| LED2     LDD    IA          CHANGE *1MB* TO *DFT* IN INPUT REGISTER
02055  M00S01876.1mb     +++|          CRD    CM
02056  M00S01877.1mb     +++|          LDC    2RDF
02057  M00S01878.1mb     +++|          STD    CM
02058  M00S01879.1mb     +++|          LDD    CM+1
02059  M00S01880.1mb     +++|          LPN    77
02060  M00S01881.1mb     +++|          LMC    1RT*100
02061  M00S01882.1mb     +++|          STD    CM+1
02062  M00S01883.1mb     +++|          LDD    IA
02063  M00S01884.1mb     +++|          CWD    CM
02064  M00S01885.1mb     +++| LED3     LDM    IBMF+2      SET PP NUMBER IN *DFT* CONTROL WORD
02065  M00S01886.1mb     +++|          SHN    -6
02066  M00S01887.1mb     +++|          LMDL   DC+1
02067  M00S01888.1mb     +++|          LPN    37
02068  M00S01889.1mb     +++|          LMDL   DC+1
02069  M00S01890.1mb     +++|          STDL   DC+1
02070  M00S01891.1mb     +++|          RJM    DOB
02071  M00S01892.1mb     +++|          ADK    DFCW
02072  M00S01893.1mb     +++|          CWDL   DC          UPDATE *DFT* CONTROL WORD
02073  M00S01894.1mb     +++|
02074  M00S01895.1mb     +++|*         FIND *DFT* ENTRY IN *CTI* CM DIRECTORY.
02075  M00S01896.1mb     +++|
02076  M00S01897.1mb     +++|          LDN    0
02077  M00S01898.1mb     +++|          STD    T1
02078  M00S01899.1mb     +++|          LDK    EIBP
02079  M00S01900.1mb     +++|          CRD    CN
02080  M00S01901.1mb     +++|          LDD    CN+3
02081  M00S01902.1mb     +++|          SHN    14
02082  M00S01903.1mb     +++|          LMD    CN+4
02083  M00S01904.1mb     +++|          ADK    DSCM+2      READ *CTI* CM DIRECTORY POINTER
02084  M00S01905.1mb     +++|          CRDL   CN
02085  M00S01906.1mb     +++|          LRD    CN+1        LOAD R-REGISTER
02086  M00S01907.1mb     +++|          LDDL   CN          SAVE REMAINDER
02087  M00S01908.1mb     +++|          STD    T2
02088  M00S01909.1mb     +++| LED4     ADC    400000      SET BIT TO USE R-REGISTER
02089  M00S01910.1mb     +++|          CRDL   CN          READ *CTI* DIRECTORY ENTRY
02090  M00S01911.1mb     +++|          LDDL   CN
02091  M00S01912.1mb     +++|          LMC    2RDF
02092  M00S01913.1mb     +++|          NJN    LED5        IF NOT *DFT* ENTRY
02093  M00S01914.1mb     +++|          LDDL   CN+1
02094  M00S01915.1mb     +++|          SHN    -6
02095  M00S01916.1mb     +++|          LMN    1RT
02096  M00S01917.1mb     +++|          ZJN    LED6        IF *DFT* ENTRY
02097  M00S01918.1mb     +++| LED5     LDDL   CN+3        FIND NEXT DIRECTORY ENTRY
02098  M00S01919.1mb     +++|          RAD    T2
02099  M00S01920.1mb     +++|          SHN    -14
02100  M00S01921.1mb     +++|          RAD    T1
02101  M00S01922.1mb     +++|          SHN    14
02102  M00S01923.1mb     +++|          LMD    T2
02103  M00S01924.1mb     +++|          UJN    LED4        CHECK NEXT DIRECTORY ENTRY
02104  M00S01925.1mb     +++|
02105  M00S01926.1mb     +++|*         MOVE CODE TO SAVE AREA SO *DFT* DOES NOT OVERWRITE IT.
02106  M00S01927.1mb     +++|
02107  M00S01928.1mb     +++| LED6     LDN    .LED2       SIZE OF CODE TO MOVE
02108  M00S01929.1mb     +++|          STD    T3
02109  M00S01930.1mb     +++|          LDD    MA          MOVE CODE THROUGH MESSSAGE BUFFER
02110  M00S01931.1mb     +++|          CWML   LEDA,T3
02111  M00S01932.1mb     +++|          SBD    T3
02112  M00S01933.1mb     +++|          CRML   CN,T3
02113  M00S01934.1mb     +++|          LJM    CN          JUMP TO LOADER
02114  M00S01935.1mb     +++|
02115  M00S01936.1mb     +++|*         LOAD AND EXECUTE *DFT*.
02116  M00S01937.1mb     +++|
02117  M00S01938.1mb     +++| LEDA     BSS    0           START OF CODE TO MOVE
02118  M00S01939.1mb     +++|          LDD    T1
02119  M00S01940.1mb     +++|          SHN    14
02120  M00S01941.1mb     +++|          LMD    T2
02121  M00S01942.1mb     +++|          ADC    400001
02122  M00S01943.1mb     +++|          CRDL   CN          READ *DFT* LOAD PARAMETERS
02123  M00S01944.1mb     +++|          ADN    1
02124  M00S01945.1mb     +++|          STD    T2
02125  M00S01946.1mb     +++|          SHN    -14
02126  M00S01947.1mb     +++|          STD    T1
02127  M00S01948.1mb     +++|          LDD    CN          SET *DFT* LOAD ADDRESS
02128  M00S01949.1mb     +++|          STD    LEDC
02129  M00S01950.1mb     +++|          LDD    T1          LOAD *DFT*
02130  M00S01951.1mb     +++|          SHN    14
02131  M00S01952.1mb     +++|          LMD    T2
02132  M00S01953.1mb     +++|          CRML   **,CN+1
02133  M00S01954.1mb     +++| LEDB     EQU    *-1         (*DFT* LOAD ADDRESS)
02134  M00S01955.1mb     +++|          LJM    100         EXECUTE *DFT*
02135  M00S01956.1mb     +++|
02136  M00S01957.1mb     +++|
02137  M00S01958.1mb     +++| .LED1    EQU    *-LEDA-1
02138  M00S01959.1mb     +++| .LED2    EQU    .LED1/4+1
02139  M00S01960.1mb     +++|          ERRPL  .LED2-7     CODE LONGER THAN MESSAGE BUFFER
02140  M00S01961.1mb     +++| LEDC     EQU    LEDB-LEDA+CN  LOCATION TO PLUG *DFT* LOAD ADDRESS
02141  M00S01962.1mb     +++|
02142  M00S01963.1mb     +++|*         BOOTSTRAP USED TO DROP CIP CHANNEL ON RETURN FROM *DFT*.
02143  M00S01964.1mb     +++|
02144  M00S01965.1mb     +++| LEDD     BSS    0
02145  M00S01966.1mb     +++|          LOC    MSFW
02146  M00S01967.1mb     +++|          LDN    DSAL        LOCATE CIP CHANNEL
02147  M00S01968.1mb     +++|          CRD    CM
02148  M00S01969.1mb     +++|          LDD    CM+4        RELEASE CIP CHANNEL
02149  M00S01970.1mb     +++|          LPN    77
02150  M00S01971.1mb     +++|          DCHAN
02151  M00S01972.1mb     +++|          LJM    PPR         RELOAD *1MB*
02152  M00S01973.1mb     +++|          LOC    *O
02153  M00S01974.1mb     +++| .LEDDL   SET    *-LEDD+4
02154  M00S01975.1mb     +++|          ERRNG  DFTBL-.LEDDL/5  *DFT* BOOTSTRAP TOO LONG
02155  M00S01976.1mb     +++| LMD      SPACE  4,15
02156  M00S01977.1mb     +++|**        LMD - LOG MODEL DEPENDENT BUFFER.
02157  M00S01978.1mb     +++|*
02158  M00S01979.1mb     +++|*         ENTRY  (T4) = LENGTH OF DATA TO LOG.
02159  M00S01980.1mb     +++|*                (MS - MS+1) = FWA - 1 OF DATA TO LOG.
02160  M00S01981.1mb     +++|*
02161  M00S01982.1mb     +++|*         EXIT   MODEL DEPENDENT DATA ISSUED TO *BML*.
02162  M00S01983.1mb     +++|*
02163  M00S01984.1mb     +++|*         USES   T1 - T5, BP, MS, CN - CN+3.
02164  M00S01985.1mb     +++|*
02165  M00S01986.1mb     +++|*         CALLS  IMD, PMR, PWB.
02166  M00S01987.1mb     +++|
02167  M00S01988.1mb     +++|
02168  M00S01989.1mb     +++| LMD7     LDM    MBUF+1*5+1  CLEAR CONTINUATION BIT
02169  M00S01990.1mb     +++|          SCN    4
02170  M00S01991.1mb     +++|          STM    MBUF+1*5+1
02171  M00S01992.1mb     +++| LMD8     LDC    18D
02172  M00S01993.1mb     +++| LMDA     EQU    *-1         (NUMBER OF WORDS TO LOG)
02173  M00S01994.1mb     +++|          RJM    IMD         ISSUE *BML* MESSAGE
02174  M00S01995.1mb     +++|          LDN    18D         RESET WORD COUNT
02175  M00S01996.1mb     +++|          STM    LMDA
02176  M00S01997.1mb     +++|          LDD    T4
02177  M00S01998.1mb     +++|          NJN    LMD1        IF MORE DATA TO LOG
02178  M00S01999.1mb     +++|
02179  M00S02000.1mb     +++| LMD      SUBR               ENTRY/EXIT
02180  M00S02001.1mb     +++| LMD1     LDC    MBUF+2*5    SET BUFFER POINTER
02181  M00S02002.1mb     +++|          STD    T1
02182  M00S02003.1mb     +++|          STD    BP
02183  M00S02004.1mb     +++|          ADK    15D*5       SET POINTER TO ASSEMBLY FOR LAST 4 BITS
02184  M00S02005.1mb     +++|          STD    EC
02185  M00S02006.1mb     +++| LMD2     LDN    0           CLEAR BUFFER
02186  M00S02007.1mb     +++|          STI    T1
02187  M00S02008.1mb     +++|          AOD    T1
02188  M00S02009.1mb     +++|          LMC    MBUF+50D*5
02189  M00S02010.1mb     +++|          NJN    LMD2        IF MORE TO CLEAR
02190  M00S02011.1mb     +++|          STD    T5          INITIALIZE COUNTER
02191  M00S02012.1mb     +++|          LDN    15D         NUMBER OF WORDS PER BLOCK
02192  M00S02013.1mb     +++|          STD    T1
02193  M00S02014.1mb     +++| LMD3     AOD    MS+1        READ NEXT WORD
02194  M00S02015.1mb     +++|          SHN    -14
02195  M00S02016.1mb     +++|          RAD    MS
02196  M00S02017.1mb     +++|          SHN    14
02197  M00S02018.1mb     +++|          LMD    MS+1
02198  M00S02019.1mb     +++|          CRDL   CN
02199  M00S02020.1mb     +++|          RJM    PMR         PACK WORD INTO *BCMR*
02200  M00S02021.1mb     +++|          RJM    PWB         PACK WORD INTO BUFFER
02201  M00S02022.1mb     +++|          LJM    LMD4,T5     POSITION LAST 4 BITS
02202  M00S02023.1mb     +++|*         LJM    LMD4        (LEFTMOST BITS)
02203  M00S02024.1mb     +++|*         LJM    LMD4+1      (MIDDLE BITS)
02204  M00S02025.1mb     +++|*         LJM    LMD4+2      (RIGHTMOST BITS)
02205  M00S02026.1mb     +++|
02206  M00S02027.1mb     +++| LMD4     SHN    4
02207  M00S02028.1mb     +++|          SHN    4
02208  M00S02029.1mb     +++|          RAI    EC          ADD TO ASSEMBLY
02209  M00S02030.1mb     +++|          SOD    T4
02210  M00S02031.1mb     +++|          ZJP    LMD7        IF NO MORE DATA TO LOG
02211  M00S02032.1mb     +++|          AOD    T5
02212  M00S02033.1mb     +++|          SBN    3
02213  M00S02034.1mb     +++|          MJN    LMD5        IF NOT END OF BYTE
02214  M00S02035.1mb     +++|          LDN    0           RESET COUNTER
02215  M00S02036.1mb     +++|          STD    T5
02216  M00S02037.1mb     +++|          AOD    EC          ADVANCE TO NEXT BYTE
02217  M00S02038.1mb     +++| LMD5     LDN    5           ADVANCE BUFFER POINTER
02218  M00S02039.1mb     +++|          RAD    BP
02219  M00S02040.1mb     +++|          SOD    T1
02220  M00S02041.1mb     +++| LMD6     NJP    LMD3        IF NOT END OF GROUP
02221  M00S02042.1mb     +++|          LDN    15D         RESET GROUP COUNTER
02222  M00S02043.1mb     +++|          STD    T1
02223  M00S02044.1mb     +++|          LDC    15D*5       ADVANCE ASSEMBLY BUFFER
02224  M00S02045.1mb     +++|          RAD    EC
02225  M00S02046.1mb     +++|          LDN    5           SKIP OVER ASSEMBLY BUFFER
02226  M00S02047.1mb     +++|          RAD    BP
02227  M00S02048.1mb     +++|          LMC    MBUF+50D*5
02228  M00S02049.1mb     +++|          ZJP    LMD8        IF END OF *BML* MESSAGE
02229  M00S02050.1mb     +++|          LDN    16D         INCREMENT WORD COUNT TO LOG
02230  M00S02051.1mb     +++|          RAM    LMDA
02231  M00S02052.1mb     +++|          UJN    LMD6        READ NEXT WORD
02232  M00S02053.1mb     +++| LMR      SPACE 4,10
02233  M00S02054.1mb     +++|**        LMR - LOG MAINTENANCE REGISTERS.
02234  M00S02055.1mb     +++|*
02235  M00S02056.1mb     +++|*         ENTRY  (CN - CN+3) = M/R CONTROL WORD.
02236  M00S02057.1mb     +++|*                (MB - MB+1) = ADDRESS OF CONTROL WORD.
02237  M00S02058.1mb     +++|*                (LMRA) = SIZE OF ELEMENT COUNTER BUFFER.
02238  M00S02059.1mb     +++|*                (LMRB) = SIZE OF M/R BUFFER.
02239  M00S02060.1mb     +++|*                (LMRD) = NON-REGISTER DATA FLAG.
02240  M00S02061.1mb     +++|*
02241  M00S02062.1mb     +++|*         EXIT   MAINTENANCE REGISTERS LOGGED TO *BML*.
02242  M00S02063.1mb     +++|*                (MB - MB+1) UNCHANGED.
02243  M00S02064.1mb     +++|*
02244  M00S02065.1mb     +++|*         USES   BP, T4, T5, T6, CM - CM+4, MS - MS+1.
02245  M00S02066.1mb     +++|*
02246  M00S02067.1mb     +++|*         CALLS  CBM, C9E, DOB, LNR, LSS, LTE, MDB, MRB, RMR, SID, WLB.
02247  M00S02068.1mb     +++|*
02248  M00S02069.1mb     +++|*         MACROS RPTR.
02249  M00S02070.1mb     +++|
02250  M00S02071.1mb     +++|
02251  M00S02072.1mb     +++| LMR10    RJM    LNR         LOG NON-REGISTER DATA
02252  M00S02073.1mb     +++|
02253  M00S02074.1mb     +++| LMR      SUBR               ENTRY/EXIT
02254  M00S02075.1mb     +++| LMRC     LDD    CN+2
02255  M00S02076.1mb     +++|*         UJN    LMRX        (NOS/VE LOGGING)
02256  M00S02077.1mb     +++|          SHN    21-MRLG
02257  M00S02078.1mb     +++|          PJN    LMRX        IF NO LOGGING ACTION
02258  M00S02079.1mb     +++|          LDC    **
02259  M00S02080.1mb     +++| LMRD     EQU    *-1         (NON-REGISTER DATA FLAG)
02260  M00S02081.1mb     +++|          ZJN    LMR10       IF PROCESSING NON-REGISTER DATA
02261  M00S02082.1mb     +++|          LDM    IBMG+1      CLEAR NOT FIRST BLOCK FLAG
02262  M00S02083.1mb     +++|          SCN    10
02263  M00S02084.1mb     +++|          STM    IBMG+1
02264  M00S02085.1mb     +++|
02265  M00S02086.1mb     +++|*         LOCATE MAINTENANCE REGISTER BUFFER.
02266  M00S02087.1mb     +++|
02267  M00S02088.1mb     +++|          LDC    **
02268  M00S02089.1mb     +++| LMRB     EQU    *-1         (LENGTH OF M/R BUFFER)
02269  M00S02090.1mb     +++|          STD    T4
02270  M00S02091.1mb     +++|          RJM    MRB         GET ADDRESS OF M/R BUFFERS
02271  M00S02092.1mb     +++|          ADD    CN+3        ADD OFFSET
02272  M00S02093.1mb     +++|          STD    MS+1
02273  M00S02094.1mb     +++|          SHN    -14
02274  M00S02095.1mb     +++|          STD    MS
02275  M00S02096.1mb     +++|
02276  M00S02097.1mb     +++|*         DETERMINE ANALYSIS CODE.
02277  M00S02098.1mb     +++|
02278  M00S02099.1mb     +++|          LDD    CN+1        GET ANALYSIS CODE
02279  M00S02100.1mb     +++|          LMC    0#707
02280  M00S02101.1mb     +++|          ZJN    LMR1        IF TO LOG ELEMENT COUNTER TABLE
02281  M00S02102.1mb     +++|          LMK    0#708&0#707
02282  M00S02103.1mb     +++|          ZJN    LMR4        IF TO LOG SECDED ID TABLE
02283  M00S02104.1mb     +++|          SHN    -10
02284  M00S02105.1mb     +++|          NJN    LMR5        IF NOT WARNING ANALYSIS CODE
02285  M00S02106.1mb     +++|
02286  M00S02107.1mb     +++|*         PROCESS WARNING ANALYSIS CODE.
02287  M00S02108.1mb     +++|
02288  M00S02109.1mb     +++|          LDN    10D         SET SIZE TO LOG
02289  M00S02110.1mb     +++|          UJN    LMR2        LOG EID REGISTERS
02290  M00S02111.1mb     +++|
02291  M00S02112.1mb     +++|*         PROCESS ELEMENT COUNTER TABLE.
02292  M00S02113.1mb     +++|
02293  M00S02114.1mb     +++| LMR1     LDC    MECB
02294  M00S02115.1mb     +++| LMRA     EQU    *-1         (SIZE OF ELEMENT COUNTER BUFFER)
02295  M00S02116.1mb     +++| LMR2     STD    T4
02296  M00S02117.1mb     +++| LMR3     RJM    LTE         LOG TABLE ENTRIES
02297  M00S02118.1mb     +++|          RJM    WLB         WRITE LAST *BML* MESSAGE
02298  M00S02119.1mb     +++|          LJM    LMR8        LOG SUPPORTIVE STATUS DATA
02299  M00S02120.1mb     +++|
02300  M00S02121.1mb     +++|*         PROCESS SECDED ID TABLE.
02301  M00S02122.1mb     +++|
02302  M00S02123.1mb     +++| LMR4     RJM    SID         SET SECDED INFORMATION
02303  M00S02124.1mb     +++|          NJN    LMR3        IF SECDED ID TABLE NOT EMPTY
02304  M00S02125.1mb     +++|          UJN    LMR9        RETURN
02305  M00S02126.1mb     +++|
02306  M00S02127.1mb     +++|*         PROCESS MAINTENANCE REGISTERS.
02307  M00S02128.1mb     +++|
02308  M00S02129.1mb     +++| LMR5     LDN    0           PRESET *RMR*
02309  M00S02130.1mb     +++|          STD    T5
02310  M00S02131.1mb     +++|          STD    T6
02311  M00S02132.1mb     +++|          LDC    IBMH-5      PRESET *GPB*
02312  M00S02133.1mb     +++|          STD    BP
02313  M00S02134.1mb     +++| LMR6     LCN    5
02314  M00S02135.1mb     +++|          RAD    T4
02315  M00S02136.1mb     +++|          MJN    LMR7        IF ALL BUFFERS PROCESSED
02316  M00S02137.1mb     +++|          LDD    MS          READ M/R BUFFER HEADER WORD
02317  M00S02138.1mb     +++|          SHN    14
02318  M00S02139.1mb     +++|          LMD    MS+1
02319  M00S02140.1mb     +++|          CRML   BDMR,ON
02320  M00S02141.1mb     +++|          RJM    RMR         READ MAINTENANCE REGISTER BUFFER
02321  M00S02142.1mb     +++|          NJN    LMR7        IF LOGGING COMPLETE
02322  M00S02143.1mb     +++|          AOD    MS+1        ADVANCE TO NEXT BUFFER
02323  M00S02144.1mb     +++|          SHN    -14
02324  M00S02145.1mb     +++|          RAD    MS
02325  M00S02146.1mb     +++|          RJM    C9E         CHECK SPECIAL 990 ERROR
02326  M00S02147.1mb     +++|          NJN    LMR6        IF NOT SPECIAL 990 ERROR
02327  M00S02148.1mb     +++| LMR7     RJM    CBM         COMPLETE *BML* MESSAGES
02328  M00S02149.1mb     +++| LMR8     RJM    LSS         LOG SUPPORTIVE STATUS DATA
02329  M00S02150.1mb     +++|          RJM    MDB         LOG MODEL DEPENDENT BUFFER
02330  M00S02151.1mb     +++| LMR9     LDM    IBMG        CLEAR SPECIAL FLAGS FROM *BML*
02331  M00S02152.1mb     +++|          LPN    77
02332  M00S02153.1mb     +++|          STM    IBMG
02333  M00S02154.1mb     +++|          LJM    LMRX        RETURN
02334  M00S02155.1mb     +++| LNR      SPACE  4,10
02335  M00S02156.1mb     +++|**        LNR - LOG NON-REGISTER DATA.
02336  M00S02157.1mb     +++|*
02337  M00S02158.1mb     +++|*         ENTRY  (MB - MB+1) = ADDRESS OF CONTROL WORD FOR ENTRY.
02338  M00S02159.1mb     +++|*                (CN - CN+3) = CONTROL WORD FOR ENTRY TO LOG.
02339  M00S02160.1mb     +++|*
02340  M00S02161.1mb     +++|*         EXIT   NON-REGISTER DATA LOGGED TO BML.
02341  M00S02162.1mb     +++|*
02342  M00S02163.1mb     +++|*         USES   T4, MS - MS+1.
02343  M00S02164.1mb     +++|*
02344  M00S02165.1mb     +++|*         CALLS  LDT.
02345  M00S02166.1mb     +++|
02346  M00S02167.1mb     +++|
02347  M00S02168.1mb     +++| LNR      SUBR               ENTRY/EXIT

Line S00085 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02348  M01S00085.271l716 +++|          LDM    IBMG        SET NON-REGISTER DATA FLAG
02349  M01S00086.271l716 +++|          LPN    77
02350  M01S00087.271l716 +++|          ADC    400
02351  M01S00088.271l716 +++|          STM    IBMG

Line S02169 Modification History
`M01` (Removed by)	`1mb32`

Seq #  *Modification Id* Act 
----------------------------+
02352  M01S02169.1mb32   ---|          LDD    CN+3        SET LENGTH OF DATA TO LOG

Line S00001 Modification History
`M01` (Added by)	`1mb32`

Seq #  *Modification Id* Act 
----------------------------+
02353  M01S00001.1mb32   +++|          LDD    MB          INITIALIZE ADDRESS OF DATA TO LOG
02354  M01S00002.1mb32   +++|          STD    MS
02355  M01S00003.1mb32   +++|          SHN    14
02356  M01S00004.1mb32   +++|          LMD    MB+1
02357  M01S00005.1mb32   +++|          STD    MS+1
02358  M01S00006.1mb32   +++|          ADN    1           LENGTH TO LOG WORD
02359  M01S00007.1mb32   +++|          CRD    CM          READ LENGTH WORD
02360  M01S00008.1mb32   +++|          LDD    CM+4        SET LENGTH OF DATA TO INCLUDE LENGTH WORD
02361  M00S02170.1mb     +++|          STD    T4

Line S02171 Modification History
`M01` (Removed by)	`1mb32`

Seq #  *Modification Id* Act 
----------------------------+
02362  M01S02171.1mb32   ---|          LDD    MB          INITIALIZE ADDRESS OF DATA TO LOG
02363  M01S02172.1mb32   ---|          SHN    14
02364  M01S02173.1mb32   ---|          LMD    MB+1
02365  M01S02174.1mb32   ---|          ADN    1           ADVANCE TO ADDRESS-1 OF DATA TO LOG
02366  M01S02175.1mb32   ---|          STD    MS+1
02367  M01S02176.1mb32   ---|          SHN    -14
02368  M01S02177.1mb32   ---|          STD    MS
02369  M00S02178.1mb     +++|          RJM    LDT         LOG DATA STRUCTURE

Line S00089 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02370  M01S00089.271l716 +++|          LDM    IBMG        CLEAR NON-REGISTER DATA FLAG
02371  M01S00090.271l716 +++|          LPN    77
02372  M01S00091.271l716 +++|          STM    IBMG
02373  M00S02179.1mb     +++|          UJN    LNRX        RETURN
02374  M00S02180.1mb     +++| LSS      SPACE  4,15
02375  M00S02181.1mb     +++|**        LSS - LOG SUPPORTIVE STATUS DATA.
02376  M00S02182.1mb     +++|*
02377  M00S02183.1mb     +++|*         ENTRY  (SSCW - SSCW+1) = ADDRESS OF CONTROL WORD FOR ENTRY
02378  M00S02184.1mb     +++|*                                  TO LOG.
02379  M00S02185.1mb     +++|*
02380  M00S02186.1mb     +++|*         EXIT   SUPPORTIVE STATUS BUFFER DATA LOGGED.
02381  M00S02187.1mb     +++|*                (MDBB) = MODEL DEPENDENT BUFFER ORDINAL.
02382  M00S02188.1mb     +++|*                (MDBC) = MDB DATA UNLOGGED STATUS.
02383  M00S02189.1mb     +++|*
02384  M00S02190.1mb     +++|*         USES   T4, CM - CM+3, MS - MS+1.
02385  M00S02191.1mb     +++|*
02386  M00S02192.1mb     +++|*         CALLS  LDT.
02387  M00S02193.1mb     +++|
02388  M00S02194.1mb     +++|
02389  M00S02195.1mb     +++| LSS      SUBR               ENTRY/EXIT
02390  M00S02196.1mb     +++|          LDM    DFTV
02391  M00S02197.1mb     +++|          ZJN    LSSX        IF *DFT* VERSION 3
02392  M00S02198.1mb     +++|          LDM    SSCW        SET ADDRESS OF CONTROL WORD
02393  M00S02199.1mb     +++|          STD    MS
02394  M00S02200.1mb     +++|          SHN    14
02395  M00S02201.1mb     +++|          LMM    SSCW+1
02396  M00S02202.1mb     +++|          STD    MS+1
02397  M00S02203.1mb     +++|          CRDL   CM          READ CONTROL WORD
02398  M00S02204.1mb     +++|          LDD    CM+1        SET LENGTH OF DATA TO LOG
02399  M00S02205.1mb     +++|          STD    T4
02400  M00S02206.1mb     +++|          ZJN    LSSX        IF NO DATA TO LOG
02401  M00S02207.1mb     +++|          LDD    CM+2        SAVE MODEL DEPENDENT BUFFER ORDINAL
02402  M00S02208.1mb     +++|          LPC    377
02403  M00S02209.1mb     +++|          STM    MDBB
02404  M00S02210.1mb     +++|          LDDL   CM+2        SAVE UNLOGGED DATA STATUS
02405  M00S02211.1mb     +++|          SHN    -10
02406  M00S02212.1mb     +++|          STM    MDBC
02407  M00S02213.1mb     +++|          LDD    HN          SET SUPPORTIVE STATUS BUFFER FLAG
02408  M00S02214.1mb     +++|          RAM    IBMG
02409  M00S02215.1mb     +++|          RJM    LDT         LOG DATA STRUCTURE
02410  M00S02216.1mb     +++|          UJP    LSSX        RETURN
02411  M00S02217.1mb     +++| LTE      SPACE  4,15
02412  M00S02218.1mb     +++|**        LTE - LOG TABLE ENTRIES.
02413  M00S02219.1mb     +++|*
02414  M00S02220.1mb     +++|*         ENTRY  MESSAGE ID AND SYMPTOM CODE IN *BML* HEADER.
02415  M00S02221.1mb     +++|*                (T4) = WORD SIZE OF *BML* MESSAGE.
02416  M00S02222.1mb     +++|*                (MS - MS+1) = ADDRESS OF FIRST ENTRY TO LOG.
02417  M00S02223.1mb     +++|*
02418  M00S02224.1mb     +++|*         EXIT   ENTRIES LOGGED TO *BML*.
02419  M00S02225.1mb     +++|*                (T4) = CM WORDS TO WRITE IN LAST *BML* MESSAGE.
02420  M00S02226.1mb     +++|*
02421  M00S02227.1mb     +++|*         USES   MS - MS+1, T1, T4.
02422  M00S02228.1mb     +++|*
02423  M00S02229.1mb     +++|*         CALLS  DFM, LMB.
02424  M00S02230.1mb     +++|
02425  M00S02231.1mb     +++|
02426  M00S02232.1mb     +++| LTE2     LDD    MS          READ LAST *BML* MESSAGE DATA
02427  M00S02233.1mb     +++|          SHN    14
02428  M00S02234.1mb     +++|          LMD    MS+1
02429  M00S02235.1mb     +++|          CRM    IBMH,T4
02430  M00S02236.1mb     +++|          AOD    T4          ADD HEADER WORDS TO COUNT
02431  M00S02237.1mb     +++|          AOD    T4
02432  M00S02238.1mb     +++|
02433  M00S02239.1mb     +++| LTE      SUBR               ENTRY/EXIT
02434  M00S02240.1mb     +++| LTE1     LDN    4
02435  M00S02241.1mb     +++|          STD    T1
02436  M00S02242.1mb     +++|          LDM    IBMG+1      SET CONTINUATION BIT
02437  M00S02243.1mb     +++|          SCN    4
02438  M00S02244.1mb     +++|          LMN    4
02439  M00S02245.1mb     +++|          STM    IBMG+1
02440  M00S02246.1mb     +++|          LDD    T4
02441  M00S02247.1mb     +++|          SBN    5
02442  M00S02248.1mb     +++|          MJN    LTE2        IF LAST *BML* MESSAGE TO ISSUE
02443  M00S02249.1mb     +++|          ADN    1
02444  M00S02250.1mb     +++|          STD    T4
02445  M00S02251.1mb     +++|          LDD    MS
02446  M00S02252.1mb     +++|          SHN    14
02447  M00S02253.1mb     +++|          LMD    MS+1
02448  M00S02254.1mb     +++|          CRM    IBMH,T1     READ BUFFER INTO *BML*
02449  M00S02255.1mb     +++|          STD    MS+1
02450  M00S02256.1mb     +++|          SHN    -14
02451  M00S02257.1mb     +++|          STD    MS
02452  M00S02258.1mb     +++|          LDN    6*5         PP WORDS IN *BML* MESSAGE
02453  M00S02259.1mb     +++|          STD    CM+1
02454  M00S02260.1mb     +++|          LDC    IBMF+BMLN   ISSUE *BML* MESSAGE
02455  M00S02261.1mb     +++|          RJM    DFM
02456  M00S02262.1mb     +++|          LDM    IBMG+1      SET NOT FIRST BLOCK FLAG
02457  M00S02263.1mb     +++|          SCN    10
02458  M00S02264.1mb     +++|          LMN    10
02459  M00S02265.1mb     +++|          STM    IBMG+1
02460  M00S02266.1mb     +++|          LJM    LTE1        PROCESS NEXT *BML* MESSAGE
02461  M00S02267.1mb     +++| MDB      SPACE  4,15
02462  M00S02268.1mb     +++|**        MDB - LOG MODEL DEPENDENT BUFFER DATA.
02463  M00S02269.1mb     +++|*
02464  M00S02270.1mb     +++|*         ENTRY  (MB - MB+1) = ADDRESS OF M/R BUFFER CONTROL WORD.
02465  M00S02271.1mb     +++|*                (MDBA) = ADDRESS OF MODEL DEPENDENT BUFFER.
02466  M00S02272.1mb     +++|*                (MDBB) = MODEL DEPENDENT BUFFER ORDINAL.
02467  M00S02273.1mb     +++|*                (MDBC) = MODEL DEPENDENT DATA UNLOGGED STATUS.
02468  M00S02274.1mb     +++|*
02469  M00S02275.1mb     +++|*         EXIT   MODEL DEPENDENT BUFFER DATA LOGGED.
02470  M00S02276.1mb     +++|*
02471  M00S02277.1mb     +++|*         USES   T1, T4, CM - CM+3, MS - MS+1, T8 - T9.
02472  M00S02278.1mb     +++|*
02473  M00S02279.1mb     +++|*         CALLS  LMD.
02474  M00S02280.1mb     +++|*
02475  M00S02281.1mb     +++|*         MACROS RPTR.
02476  M00S02282.1mb     +++|
02477  M00S02283.1mb     +++|
02478  M00S02284.1mb     +++| MDB      SUBR               ENTRY/EXIT
02479  M00S02285.1mb     +++|          LDD    MB          READ M/R BUFFER CONTROL WORD
02480  M00S02286.1mb     +++|          SHN    14
02481  M00S02287.1mb     +++|          LMD    MB+1
02482  M00S02288.1mb     +++|          CRDL   CM
02483  M00S02289.1mb     +++|          LDDL   CM+2
02484  M00S02290.1mb     +++|          SHN    21-MRMD
02485  M00S02291.1mb     +++|          PJN    MDBX        IF NO MODEL DEPENDENT DATA
02486  M00S02292.1mb     +++| MDBA     LDC    **          (MODEL DEPENDENT BUFFER ADDRESS)
02487  M00S02293.1mb     +++|          ADC    **
02488  M00S02294.1mb     +++| MDBB     EQU    *-1         (MODEL DEPENDENT BUFFER ORDINAL)
02489  M00S02295.1mb     +++|          CRDL   CM          READ MODEL DEPENDENT BUFFER POINTER
02490  M00S02296.1mb     +++|          LDC    *
02491  M00S02297.1mb     +++| MDBC     EQU    *-1         (DATA UNLOGGED STATUS)
02492  M00S02298.1mb     +++|          NJN    MDBX        IF DATA UNLOGGED OR OVERWRITTEN
02493  M00S02299.1mb     +++|          RPTR   CM          CONVERT ADDRESS
02494  M00S02300.1mb     +++|          CRDL   CM          READ HEADER
02495  M00S02301.1mb     +++|          STD    MS+1        SAVE ADDRESS OF HEADER
02496  M00S02302.1mb     +++|          STD    T9
02497  M00S02303.1mb     +++|          SHN    -14
02498  M00S02304.1mb     +++|          STD    MS
02499  M00S02305.1mb     +++|          STD    T8
02500  M00S02306.1mb     +++|          LDD    CM+3        SET LENGTH TO LOG

Line S02307 Modification History
`M01` (Removed by)	`1mb30`

Seq #  *Modification Id* Act 
----------------------------+
02501  M01S02307.1mb30   ---|          STD    T4
02502  M00S02308.1mb     +++|          ZJN    MDBX        IF NO DATA TO LOG

Line S00001 Modification History
`M01` (Added by)	`1mb30`

Seq #  *Modification Id* Act 
----------------------------+
02503  M01S00001.1mb30   +++|          SBN    1
02504  M01S00002.1mb30   +++|          STD    T4
02505  M00S02309.1mb     +++|          LDM    IBMG        SET MODEL DEPENDENT DATA FLAG
02506  M00S02310.1mb     +++|          LPN    77
02507  M00S02311.1mb     +++|          ADC    200
02508  M00S02312.1mb     +++|          STM    IBMG
02509  M00S02313.1mb     +++|          LDM    IBMG+1
02510  M00S02314.1mb     +++|          SCN    14          CLEAR NOT FIRST BLOCK FLAG
02511  M00S02315.1mb     +++|          LMN    4           SET CONTINUATION BIT
02512  M00S02316.1mb     +++|          STM    IBMG+1
02513  M00S02317.1mb     +++|          LDN    2           MOVE MESSAGE HEADER TO PP BUFFER
02514  M00S02318.1mb     +++|          STD    T1
02515  M00S02319.1mb     +++|          LDD    MA
02516  M00S02320.1mb     +++|          CWM    IBMF,T1
02517  M00S02321.1mb     +++|          SBD    T1
02518  M00S02322.1mb     +++|          CRM    MBUF,T1
02519  M00S02323.1mb     +++|          LDN    ZERL        CLEAR *EMB* HEADER WORD
02520  M00S02324.1mb     +++|          CRM    BHDR,ON
02521  M00S02325.1mb     +++|          LDK    MLDY        SET MESSAGE TYPE
02522  M00S02326.1mb     +++|          STM    BHDR+4
02523  M00S02327.1mb     +++|          RJM    LMD         LOG MODEL DEPENDENT DATA
02524  M00S02328.1mb     +++|          LDD    T8          READ MODEL DEPENDENT HEADER
02525  M00S02329.1mb     +++|          SHN    14
02526  M00S02330.1mb     +++|          LMD    T9
02527  M00S02331.1mb     +++|          CRDL   CM
02528  M00S02332.1mb     +++|          LDDL   CM          CLEAR CONTROL WORD OFFSET
02529  M00S02333.1mb     +++|          LPC    0#FF00
02530  M00S02334.1mb     +++|          STDL   CM
02531  M00S02335.1mb     +++|          LDD    T8
02532  M00S02336.1mb     +++|          SHN    14
02533  M00S02337.1mb     +++|          LMD    T9
02534  M00S02338.1mb     +++|          CWDL   CM
02535  M00S02339.1mb     +++| MDB1     DELAY
02536  M00S02340.1mb     +++|          LDK    EMBP        CHECK FOR *1MD* STILL ACTIVE
02537  M00S02341.1mb     +++|          CRD    CM
02538  M00S02342.1mb     +++|          LDD    CM+1
02539  M00S02343.1mb     +++|          SHN    14
02540  M00S02344.1mb     +++|          LMD    CM+2
02541  M00S02345.1mb     +++|          CRD    CM
02542  M00S02346.1mb     +++|          LDD    CM+4
02543  M00S02347.1mb     +++|          LPN    2
02544  M00S02348.1mb     +++|          NJN    MDB1        IF *1MD* ACTIVE
02545  M00S02349.1mb     +++|          UJP    MDBX        RETURN
02546  M00S02350.1mb     +++| MRB      SPACE  4,10
02547  M00S02351.1mb     +++|**        MRB - GET M/R BUFFERS ADDRESS.
02548  M00S02352.1mb     +++|*
02549  M00S02353.1mb     +++|*         (A) = ADDRESS OF M/R BUFFERS.
02550  M00S02354.1mb     +++|
02551  M00S02355.1mb     +++|
02552  M00S02356.1mb     +++| MRB      SUBR               ENTRY/EXIT
02553  M00S02357.1mb     +++| MRBA     LDC    **          (ADDRESS OF M/R BUFFERS)
02554  M00S02358.1mb     +++|          UJN    MRBX        RETURN
02555  M00S02359.1mb     +++| MRER     SPACE  4,10
02556  M00S02360.1mb     +++|**        MRER - MAINTENANCE REGISTER ERROR HANDLER.
02557  M00S02361.1mb     +++|*
02558  M00S02362.1mb     +++|*         ENTRY  FATAL MAINTENANCE REGISTER ERROR.
02559  M00S02363.1mb     +++|*
02560  M00S02364.1mb     +++|*         EXIT   TO *CSH*.
02561  M00S02365.1mb     +++|*
02562  M00S02366.1mb     +++|*         USES   CM - CM+4.
02563  M00S02367.1mb     +++|*
02564  M00S02368.1mb     +++|*         CALLS  CSH.
02565  M00S02369.1mb     +++|*
02566  M00S02370.1mb     +++|*         MACROS MONITOR.
02567  M00S02371.1mb     +++|
02568  M00S02372.1mb     +++|
02569  M00S02373.1mb     +++| MRER     LDC    MSME        SET MESSAGE ADDRESS
02570  M00S02374.1mb     +++|          STM    CSHA
02571  M00S02375.1mb     +++|          STM    CSHB
02572  M00S02376.1mb     +++|          STM    CKPA+2
02573  M00S02377.1mb     +++|          LDN    SPLG        SET *1MB* FUNCTION CODE
02574  M00S02378.1mb     +++|          STM    CKPA+3
02575  M00S02379.1mb     +++|          LDN    ZERL
02576  M00S02380.1mb     +++|          CRD    CM
02577  M00S02381.1mb     +++|          LDN    1           SET *MCH* ERROR IN PROGRESS
02578  M00S02382.1mb     +++|          STD    CM+1
02579  M00S02383.1mb     +++|          STD    CM+2
02580  M00S02384.1mb     +++|          LDD    MA
02581  M00S02385.1mb     +++|          CWM    MRERA,ON
02582  M00S02386.1mb     +++|          MONITOR  UADM
02583  M00S02387.1mb     +++|          RJM    CSH         CHECKPOINT AND HANG THE SYSTEM
02584  M00S02388.1mb     +++|
02585  M00S02389.1mb     +++|
02586  M00S02390.1mb     +++| MRERA    CON    LIOS        INCREMENT LOW CORE FIELD BY ONE
02587  M00S02391.1mb     +++|          CON    INWL        WORD ADDRESS
02588  M00S02392.1mb     +++|          CON    5*100+1     BIT ADDRESS/FIELD WIDTH
02589  M00S02393.1mb     +++|          CON    0
02590  M00S02394.1mb     +++|          CON    0
02591  M00S02395.1mb     +++| PMB      SPACE  4,15
02592  M00S02396.1mb     +++|**        PMB - PACK MAINTENANCE REGISTER TO *BML*.
02593  M00S02397.1mb     +++|*
02594  M00S02398.1mb     +++|*         ENTRY  (T5) = BYTE IN M/R HEADER WORD WITH REGISTER NUMBER.
02595  M00S02399.1mb     +++|*                (BCMR - BCMR+7) = CONTENTS OF REGISTER.
02596  M00S02400.1mb     +++|*
02597  M00S02401.1mb     +++|*         EXIT   REGISTER WRITTEN TO *BML*.
02598  M00S02402.1mb     +++|*                (A)= (T5) = 0, IF ALL REGISTERS IN THIS BLOCK
02599  M00S02403.1mb     +++|*                               WRITTEN.
02600  M00S02404.1mb     +++|*                (T5) = BYTE WITH NEXT REGISTER NUMBER, OTHERWISE.
02601  M00S02405.1mb     +++|*
02602  M00S02406.1mb     +++|*         USES   T5.
02603  M00S02407.1mb     +++|*
02604  M00S02408.1mb     +++|*         CALLS  GPB, PWB.
02605  M00S02409.1mb     +++|
02606  M00S02410.1mb     +++|
02607  M00S02411.1mb     +++| PMB      SUBR               ENTRY/EXIT
02608  M00S02412.1mb     +++|          RJM    GPB         GET POINTER INTO *BML* BUFFER
02609  M00S02413.1mb     +++|          RJM    PWB         PACK REGISTER INTO BUFFER
02610  M00S02414.1mb     +++|          SHN    10
02611  M00S02415.1mb     +++|          LMML   BDMR,T5     INCLUDE REGISTER NUMBER
02612  M00S02416.1mb     +++|          STM    PMBB,T5
02613  M00S02417.1mb     +++|          AOD    T5
02614  M00S02418.1mb     +++|          SBN    4
02615  M00S02419.1mb     +++|          MJN    PMB1        IF TRAILER WORD NOT FULL
02616  M00S02420.1mb     +++|          RJM    GPB         GET POINTER TO *BML* BUFFER
02617  M00S02421.1mb     +++|          LDD    BP
02618  M00S02422.1mb     +++|          STM    PMBA
02619  M00S02423.1mb     +++|          LDD    MA
02620  M00S02424.1mb     +++|          CWM    PMBB,ON     COPY TRAILER WORD TO *BML* BUFFER
02621  M00S02425.1mb     +++|          LDD    MA
02622  M00S02426.1mb     +++|          CRM    **,ON
02623  M00S02427.1mb     +++| PMBA     EQU    *-1
02624  M00S02428.1mb     +++|          LDN    0
02625  M00S02429.1mb     +++|          STD    T5
02626  M00S02430.1mb     +++| PMB1     UJP    PMBX        RETURN
02627  M00S02431.1mb     +++|
02628  M00S02432.1mb     +++| PMBB     VFD    4/0,8/0,4/0,8/0,4/0,8/0,4/0,8/0,12/0
02629  M00S02433.1mb     +++| PMR      SPACE  4,10
02630  M00S02434.1mb     +++|**        PMR - UNPACK M/R INTO *BCMR*.
02631  M00S02435.1mb     +++|*
02632  M00S02436.1mb     +++|*         ENTRY  (CN - CN+3) = REGISTER.
02633  M00S02437.1mb     +++|*
02634  M00S02438.1mb     +++|*         EXIT   MAINTENANCE REGISTER WRITTEN TO *BML* BUFFER.
02635  M00S02439.1mb     +++|*
02636  M00S02440.1mb     +++|*         USES   T3, T7.
02637  M00S02441.1mb     +++|
02638  M00S02442.1mb     +++|
02639  M00S02443.1mb     +++| PMR      SUBR               ENTRY/EXIT
02640  M00S02444.1mb     +++|          LDN    0
02641  M00S02445.1mb     +++|          STD    T3
02642  M00S02446.1mb     +++|          LDN    CN
02643  M00S02447.1mb     +++|          STD    T7
02644  M00S02448.1mb     +++| PMR1     LDIL   T7
02645  M00S02449.1mb     +++|          SHN    -10
02646  M00S02450.1mb     +++|          STM    BCMR,T3
02647  M00S02451.1mb     +++|          AOD    T3
02648  M00S02452.1mb     +++|          LDIL   T7
02649  M00S02453.1mb     +++|          LPC    377
02650  M00S02454.1mb     +++|          STM    BCMR,T3
02651  M00S02455.1mb     +++|          AOD    T3
02652  M00S02456.1mb     +++|          AOD    T7
02653  M00S02457.1mb     +++|          SBN    CN+4
02654  M00S02458.1mb     +++|          ZJN    PMRX        IF PACKING COMPLETE
02655  M00S02459.1mb     +++|          UJN    PMR1        CONTINUE PACKING
02656  M00S02460.1mb     +++| PWB      SPACE  4,10
02657  M00S02461.1mb     +++|**        PWB - PACK WORD TO BUFFER.
02658  M00S02462.1mb     +++|*
02659  M00S02463.1mb     +++|*         ENTRY  (BCMR - BCMR+7) = DATA WORD.
02660  M00S02464.1mb     +++|*                (BP) = OFFSET INTO *BML* BUFFER.
02661  M00S02465.1mb     +++|*
02662  M00S02466.1mb     +++|*         EXIT   (A) = BITS 60 - 63 OF DATA WORD RIGHT JUSTIFIED.
02663  M00S02467.1mb     +++|*                BITS 0 - 59 OF DATA WORD MOVED TO *BML* WORD.
02664  M00S02468.1mb     +++|
02665  M00S02469.1mb     +++|
02666  M00S02470.1mb     +++| PWB      SUBR               ENTRY/EXIT
02667  M00S02471.1mb     +++|          LDM    BCMR        PACK REGISTER INTO BUFFER
02668  M00S02472.1mb     +++|          SHN    10
02669  M00S02473.1mb     +++|          LMM    BCMR+1
02670  M00S02474.1mb     +++|          SHN    -4+22
02671  M00S02475.1mb     +++|          STI    BP
02672  M00S02476.1mb     +++|          SHN    0+4-22
02673  M00S02477.1mb     +++|          SHN    10
02674  M00S02478.1mb     +++|          LMM    BCMR+2
02675  M00S02479.1mb     +++|          STM    1,BP
02676  M00S02480.1mb     +++|          LDM    BCMR+3
02677  M00S02481.1mb     +++|          SHN    10
02678  M00S02482.1mb     +++|          LMM    BCMR+4
02679  M00S02483.1mb     +++|          SHN    -4+22
02680  M00S02484.1mb     +++|          STM    2,BP
02681  M00S02485.1mb     +++|          SHN    0+4-22
02682  M00S02486.1mb     +++|          SHN    10
02683  M00S02487.1mb     +++|          LMM    BCMR+5
02684  M00S02488.1mb     +++|          STM    3,BP
02685  M00S02489.1mb     +++|          LDM    BCMR+6
02686  M00S02490.1mb     +++|          SHN    10
02687  M00S02491.1mb     +++|          LMM    BCMR+7
02688  M00S02492.1mb     +++|          SHN    -4+22
02689  M00S02493.1mb     +++|          STM    4,BP
02690  M00S02494.1mb     +++|          SHN    0+4-22
02691  M00S02495.1mb     +++|          UJP    PWBX        RETURN
02692  M00S02496.1mb     +++| RMR      SPACE  4,10
02693  M00S02497.1mb     +++|**        RMR - READ MAINTENANCE REGISTER.
02694  M00S02498.1mb     +++|*
02695  M00S02499.1mb     +++|*         ENTRY  (BDMR - BDMR+3) = M/R CONTROL WORD.
02696  M00S02500.1mb     +++|*                (MS - MS+1) = ADDRESS OF MAINTENANCE REGISTER.
02697  M00S02501.1mb     +++|*                (T5) = BYTE WITH NEXT REGISTER NUMBER TO LOG.
02698  M00S02502.1mb     +++|*                (T6) = 0 IF STATUS SUMMARY NOT YET LOGGED.
02699  M00S02503.1mb     +++|*
02700  M00S02504.1mb     +++|*         EXIT   (A) = 0, IF MORE BUFFERS TO CHECK.
02701  M00S02505.1mb     +++|*
02702  M00S02506.1mb     +++|*         USES   CN - CN+3, MS - MS+1, T5.
02703  M00S02507.1mb     +++|*
02704  M00S02508.1mb     +++|*         CALLS  PMB, PMR.
02705  M00S02509.1mb     +++|
02706  M00S02510.1mb     +++|
02707  M00S02511.1mb     +++| RMR      SUBR               ENTRY/EXIT
02708  M00S02512.1mb     +++| RMR1     LDML   BDMR,T5     GET NEXT REGISTER NUMBER
02709  M00S02513.1mb     +++|          NJN    RMR2        IF REGISTER IS PRESENT
02710  M00S02514.1mb     +++|          LDD    T6
02711  M00S02515.1mb     +++|          NJN    RMRX        IF ALL REGISTERS LOGGED
02712  M00S02516.1mb     +++| RMRA     LDN    1           SET STATUS SUMMARY LOGGED
02713  M00S02517.1mb     +++|          STD    T6
02714  M00S02518.1mb     +++| RMR2     AOD    MS+1        READ MAINTENANCE REGISTER
02715  M00S02519.1mb     +++|          SHN    -14
02716  M00S02520.1mb     +++|          RAD    MS
02717  M00S02521.1mb     +++|          SHN    14
02718  M00S02522.1mb     +++|          LMD    MS+1
02719  M00S02523.1mb     +++|          CRDL   CN
02720  M00S02524.1mb     +++|          RJM    PMR         PACK REGISTER INTO *BCMR* BUFFER
02721  M00S02525.1mb     +++|          RJM    PMB         PACK M/R INTO *BML* MESSAGE
02722  M00S02526.1mb     +++|          ZJN    RMRX        IF BUFFER COMPLETE
02723  M00S02527.1mb     +++|          UJN    RMR1        PROCESS NEXT REGISTER
02724  M00S02528.1mb     +++| SCA      SPACE  4,10
02725  M00S02529.1mb     +++|**        SCA - SET M/R BUFFER CONTROL WORDS ADDRESS.
02726  M00S02530.1mb     +++|*
02727  M00S02531.1mb     +++|*         EXIT   (MB - MB+1) = ADDRESS OF FIRST M/R CONTROL WORD.
02728  M00S02532.1mb     +++|*
02729  M00S02533.1mb     +++|*         CALLS  DOB.
02730  M00S02534.1mb     +++|*
02731  M00S02535.1mb     +++|*         USES   CM - CM+3, MB - MB+1.
02732  M00S02536.1mb     +++|*
02733  M00S02537.1mb     +++|*         MACROS RPTR.
02734  M00S02538.1mb     +++|
02735  M00S02539.1mb     +++|
02736  M00S02540.1mb     +++| SCA      SUBR               ENTRY/EXIT
02737  M00S02541.1mb     +++|          RJM    DOB
02738  M00S02542.1mb     +++| SCAA     ADK    DFHL
02739  M00S02543.1mb     +++|*         UJN    SCA2        (*DFT* VERSION 4 OR ABOVE)
02740  M00S02544.1mb     +++| SCA1     STD    MB+1        SAVE ADDRESS
02741  M00S02545.1mb     +++|          SHN    -14
02742  M00S02546.1mb     +++|          STD    MB
02743  M00S02547.1mb     +++|          UJN    SCAX        RETURN
02744  M00S02548.1mb     +++|
02745  M00S02549.1mb     +++| SCA2     ADK    DFBC
02746  M00S02550.1mb     +++|          CRDL   CM          READ M/R BUFFER CONTROL WORD POINTER
02747  M00S02551.1mb     +++|          RPTR   CM          CONVERT ADDRESS
02748  M00S02552.1mb     +++|          UJN    SCA1        SAVE ADDRESS
02749  M00S02553.1mb     +++| SDA      SPACE  4,10
02750  M00S02554.1mb     +++|**        SDA - SET NOS REQUEST HEADER ADDRESS.
02751  M00S02555.1mb     +++|*
02752  M00S02556.1mb     +++|*         EXIT   (A) = ADDRESS OF NOS REQUEST HEADER.
02753  M00S02557.1mb     +++|
02754  M00S02558.1mb     +++|
02755  M00S02559.1mb     +++| SDA      SUBR               ENTRY/EXIT
02756  M00S02560.1mb     +++| SDAA     LDC    **          (ADDRESS OF NOS REQUEST HEADER)
02757  M00S02561.1mb     +++|          UJN    SDAX        RETURN
02758  M00S02562.1mb     +++| SID      SPACE  4,10
02759  M00S02563.1mb     +++|**        SID - SET SECDED ID TABLE INFORMATION.
02760  M00S02564.1mb     +++|*
02761  M00S02565.1mb     +++|*         ENTRY  (MS - MS+1) = ADDRESS OF M/R BUFFER.
02762  M00S02566.1mb     +++|*
02763  M00S02567.1mb     +++|*         EXIT   (A) = NUMBER OF SECDED ENTRIES.
02764  M00S02568.1mb     +++|*
02765  M00S02569.1mb     +++|*         USES   CM - CM+4, MS - MS+1, T1 - T1+4.
02766  M00S02570.1mb     +++|
02767  M00S02571.1mb     +++|
02768  M00S02572.1mb     +++| SID      SUBR               ENTRY/EXIT
02769  M00S02573.1mb     +++|          LDD    MS          READ MEMORY SIZE
02770  M00S02574.1mb     +++|          SHN    14
02771  M00S02575.1mb     +++|          LMD    MS+1
02772  M00S02576.1mb     +++|          CRD    CM
02773  M00S02577.1mb     +++|          ADN    1           READ MEMORY MODEL
02774  M00S02578.1mb     +++|          CRD    T1
02775  M00S02579.1mb     +++|          LDD    T1+3
02776  M00S02580.1mb     +++|          SHN    -4

Line S02581 Modification History
`M01` (Removed by)	`1mb31`

Seq #  *Modification Id* Act 
----------------------------+
02777  M01S02581.1mb31   ---|          STM    IBMG+4      STORE MEMORY MODEL
02778  M01S02582.1mb31   ---|*         STM    IBMG+2      (*DFT* VERSION 4 OR ABOVE)
02779  M01S02583.1mb31   ---| SIDA     EQU    *-1

Line S00001 Modification History
`M01` (Added by)	`1mb31`

Seq #  *Modification Id* Act 
----------------------------+
02780  M01S00001.1mb31   +++|          STM    IBMG+2      STORE MEMORY MODEL
02781  M00S02584.1mb     +++|          LDDL   CM          ADD MEMORY SIZE TO *BML*
02782  M00S02585.1mb     +++|          SHN    22-4
02783  M00S02586.1mb     +++|          STM    IBMF+3
02784  M00S02587.1mb     +++|          SHN    4-22
02785  M00S02588.1mb     +++|          SHN    10
02786  M00S02589.1mb     +++|          STD    T1
02787  M00S02590.1mb     +++|          LDDL   CM+1
02788  M00S02591.1mb     +++|          SHN    -10
02789  M00S02592.1mb     +++|          LMD    T1
02790  M00S02593.1mb     +++|          STM    IBMF+4
02791  M00S02594.1mb     +++|          LDN    2           ADVANCE TO SECDED ENTRIES
02792  M00S02595.1mb     +++|          RAD    MS+1
02793  M00S02596.1mb     +++|          SHN    -14
02794  M00S02597.1mb     +++|          RAD    MS
02795  M00S02598.1mb     +++|
02796  M00S02599.1mb     +++|*         CALCULATE SECDED TABLE SIZE.
02797  M00S02600.1mb     +++|
02798  M00S02601.1mb     +++|          LDN    0
02799  M00S02602.1mb     +++|          STD    T4
02800  M00S02603.1mb     +++| SID1     LDD    MS          READ NEXT SECDED ENTRY
02801  M00S02604.1mb     +++|          SHN    14
02802  M00S02605.1mb     +++|          LMD    MS+1
02803  M00S02606.1mb     +++|          ADD    T4
02804  M00S02607.1mb     +++|          CRD    CM
02805  M00S02608.1mb     +++|          LDD    CM          CHECK IF EMPTY ENTRY
02806  M00S02609.1mb     +++|          ADD    CM+1
02807  M00S02610.1mb     +++|          ADD    CM+2
02808  M00S02611.1mb     +++|          ADD    CM+3
02809  M00S02612.1mb     +++|          ADD    CM+4
02810  M00S02613.1mb     +++|          SBN    1
02811  M00S02614.1mb     +++|          MJN    SID2        IF LAST ENTRY
02812  M00S02615.1mb     +++|          AOD    T4
02813  M00S02616.1mb     +++|          UJN    SID1        CHECK NEXT ENTRY
02814  M00S02617.1mb     +++|
02815  M00S02618.1mb     +++| SID2     LDD    T4          RETURN SECDED SIZE
02816  M00S02619.1mb     +++|          UJP    SIDX        RETURN
02817  M00S02620.1mb     +++| UCC      SPACE  4,10
02818  M00S02621.1mb     +++|**        UCC - UPDATE CTI CLOCK.
02819  M00S02622.1mb     +++|*
02820  M00S02623.1mb     +++|*         ENTRY  DURING TOP-OF-HOUR PROCESSING.
02821  M00S02624.1mb     +++|*
02822  M00S02625.1mb     +++|*         EXIT   *1MA* CALLED IF TIME IS MIDNIGHT.
02823  M00S02626.1mb     +++|*
02824  M00S02627.1mb     +++|*         USES   CM - CM+4.
02825  M00S02628.1mb     +++|*
02826  M00S02629.1mb     +++|*         MACROS MONITOR.
02827  M00S02630.1mb     +++|
02828  M00S02631.1mb     +++|
02829  M00S02632.1mb     +++| UCC      SUBR               ENTRY/EXIT
02830  M00S02633.1mb     +++|          LDN    PDTL        CHECK TIME
02831  M00S02634.1mb     +++|          CRD    CM
02832  M00S02635.1mb     +++|          LDD    CM+3
02833  M00S02636.1mb     +++|          LPN    77
02834  M00S02637.1mb     +++|          NJN    UCCX        IF NOT MIDNIGHT
02835  M00S02638.1mb     +++|          LDD    IR+1        UPDATE CONTROL POINT NUMBER
02836  M00S02639.1mb     +++|          LPN    37
02837  M00S02640.1mb     +++|          RAM    UCCA+1
02838  M00S02641.1mb     +++|          LDD    MA          WRITE *1MA* REQUEST TO MESSAGE BUFFER
02839  M00S02642.1mb     +++|          CWM    UCCA,ON
02840  M00S02643.1mb     +++|          MONITOR  RPPM      REQUEST PP FOR *1MA*
02841  M00S02644.1mb     +++|          UJN    UCCX        RETURN
02842  M00S02645.1mb     +++|
02843  M00S02646.1mb     +++|
02844  M00S02647.1mb     +++| UCCA     VFD    18/3L1MA,6/**,12/6,12/,12/
02845  M00S02648.1mb     +++| WLB      SPACE  4,10
02846  M00S02649.1mb     +++|**        WLB - WRITE LAST *BML* MESSAGE.
02847  M00S02650.1mb     +++|*
02848  M00S02651.1mb     +++|*         ENTRY  DATA FOR LAST *BML* MESSAGE IN BUFFER.
02849  M00S02652.1mb     +++|*                (T4) = WORD COUNT OF MESSAGE.
02850  M00S02653.1mb     +++|*
02851  M00S02654.1mb     +++|*         EXIT   LAST *BML* MESSAGE WRITTEN.
02852  M00S02655.1mb     +++|*
02853  M00S02656.1mb     +++|*         CALLS  DFM.
02854  M00S02657.1mb     +++|*
02855  M00S02658.1mb     +++|*         USES   CM - CM+4.
02856  M00S02659.1mb     +++|
02857  M00S02660.1mb     +++|
02858  M00S02661.1mb     +++| WLB      SUBR               ENTRY/EXIT
02859  M00S02662.1mb     +++|          LDM    IBMG+1      CLEAR CONTINUATION BIT
02860  M00S02663.1mb     +++|          SCN    4
02861  M00S02664.1mb     +++|          STM    IBMG+1
02862  M00S02665.1mb     +++|          LDN    ZERL
02863  M00S02666.1mb     +++|          CRD    CM
02864  M00S02667.1mb     +++|          LDD    T4          SET BYTE COUNT
02865  M00S02668.1mb     +++|          SHN    2
02866  M00S02669.1mb     +++|          ADD    T4
02867  M00S02670.1mb     +++|          STD    CM+1
02868  M00S02671.1mb     +++|          LDC    IBMF+BMLN   SEND LAST *BML* MESSAGE
02869  M00S02672.1mb     +++|          RJM    DFM
02870  M00S02673.1mb     +++|          UJN    WLBX        RETURN
02871  M00S02674.1mb     +++| LINS     SPACE  4,10
02872  M00S02675.1mb     +++| LINS     BSS    0           TABLE OF LONG INSTRUCTIONS
02873  M00S02676.1mb     +++|          LIST16
02874  M00S02677.1mb     +++|          SPACE  4,10
02875  M00S02678.1mb     +++|**        COMMON DECKS.
02876  M00S02679.1mb     +++|
02877  M00S02680.1mb     +++|
02878  M00S02681.1mb     +++|*CALL     COMPDLI

Line S00044 Modification History
`M01` (Added by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
02879  M01S00044.ns2769  +++|          QUAL   COMPIMB
02880  M01S00045.ns2769  +++|          LIST   X
02881  M01S00046.ns2769  +++|*CALL     COMPIMB
02882  M01S00047.ns2769  +++|          LIST   *
02883  M01S00048.ns2769  +++|          QUAL   *
02884  M01S00049.ns2769  +++| IMB      EQU    /COMPIMB/IMB
02885  M00S02682.1mb     +++|          SPACE  4,15
02886  M00S02683.1mb     +++|**        MAINTENANCE REGISTER BUFFERS.
02887  M00S02684.1mb     +++|
02888  M00S02685.1mb     +++|
02889  M00S02686.1mb     +++| BCMR     EQU    *
02890  M00S02687.1mb     +++| BDMR     EQU    BCMR+10
02891  M00S02688.1mb     +++| PRGB     EQU    BDMR+10     PP REGISTER BUFFER
02892  M00S02689.1mb     +++| BHDR     EQU    PRGB        *EMB* HEADER WORD
02893  M00S02690.1mb     +++| MBUF     EQU    BHDR+5      MODEL DEPENDENT DATA *BML* BUFFER
02894  M00S02691.1mb     +++|
02895  M00S02692.1mb     +++|          ERRPL  PRGB+240B-EPFW  PP REGISTER BUFFER OVERFLOW
02896  M00S02693.1mb     +++|          ERRPL  MBUF+50D*5-EPFW  MODEL DEPENDENT DATA BUFFER OVERFLOW
02897  M00S02694.1mb     +++|          TITLE  OVERLAYABLE SUBROUTINES.
02898  M00S02695.1mb     +++|*         THESE SUBROUTINES ARE OVERLAYED BY THE MAINTENANCE REGISTER
02899  M00S02696.1mb     +++|*         AND MODEL DEPENDENT DATA BUFFERS.
02900  M00S02697.1mb     +++| SBA      SPACE  4,25
02901  M00S02698.1mb     +++|**        SBA - SET BUFFER ADDRESSES.
02902  M00S02699.1mb     +++|*
02903  M00S02700.1mb     +++|*         EXIT   (DC - DC+3) = *DFT* CONTROL WORD.
02904  M00S02701.1mb     +++|*                (DOBA - DOBA+1) = DFT/OS BUFFER ADDRESS.
02905  M00S02702.1mb     +++|*                (SDAA - SDAA+1) = NOS REQUEST HEADER ADDRESS.
02906  M00S02703.1mb     +++|*                (MRBA - MRBA+1) = ADDRESS OF M/R BUFFERS.
02907  M00S02704.1mb     +++|*                (LMRB) = LENGTH OF M/R BUFFER.
02908  M00S02705.1mb     +++|*                MACHINE ID, MESSAGE ID AND CHANNEL PLACED IN *BML*
02909  M00S02706.1mb     +++|*                 MESSAGE BUFFER.
02910  M00S02707.1mb     +++|*                *DFT* VERSION PLACED IN *BML* MESSAGE BUFFER.
02911  M00S02708.1mb     +++|*                CODE MODIFIED TO SKIP LOGGING IF NOS/VE IS LOGGING.
02912  M00S02709.1mb     +++|*
02913  M00S02710.1mb     +++|*                IN ADDITION, FOR *DFT* VERSION 4 OR ABOVE -
02914  M00S02711.1mb     +++|*                (DFTV) = *DFT* VERSION.
02915  M00S02712.1mb     +++|*                (LMRA) = SIZE OF ELEMENT COUNTER BUFFER.
02916  M00S02713.1mb     +++|*                (FNRA - FNRA+1) = NON-REGISTER DATA ADDRESS.

Line S02714 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02917  M01S02714.271l716 ---|*                 NOTE - NON-REGISTER DATA SUPPORT IS NOT IMPLEMENTED.
02918  M00S02715.1mb     +++|*                (LSSA - LSSA+1) = SUPPORTIVE STATUS BUFFER ADDRESS.
02919  M00S02716.1mb     +++|*                (MDBA - MDBA+1) = MODEL DEPENDENT BUFFER ADDRESS.
02920  M00S02717.1mb     +++|*
02921  M00S02718.1mb     +++|*         USES   CM - CM+4, CN - CN+4, DC - DC+3.
02922  M00S02719.1mb     +++|*
02923  M00S02720.1mb     +++|*         CALLS  DLI, DOB, DSP.
02924  M00S02721.1mb     +++|*
02925  M00S02722.1mb     +++|*         MACROS ISTORE, RPTR.
02926  M00S02723.1mb     +++|
02927  M00S02724.1mb     +++|
02928  M00S02725.1mb     +++| SBA      SUBR               ENTRY/EXIT
02929  M00S02726.1mb     +++|          LDC    SBAL        DEFINE LONG INSTRUCTIONS
02930  M00S02727.1mb     +++|          RJM    DLI
02931  M00S02728.1mb     +++|          RJM    DSP         READ *DFT/OS* BUFFER POINTER
02932  M00S02729.1mb     +++|          ADK    DSCM+3
02933  M00S02730.1mb     +++|          CRDL   CN
02934  M00S02731.1mb     +++|          RPTR   CN,DOBA     SET *DFT/OS* BUFFER ADDRESS
02935  M00S02732.1mb     +++|          RJM    DOB         READ *DFT* CONTROL WORD
02936  M00S02733.1mb     +++|          ADK    DFCW
02937  M00S02734.1mb     +++|          CRDL   DC
02938  M00S02735.1mb     +++|          ADK    DFRQ-DFCW   READ NOS REQUEST HEADER POINTER
02939  M00S02736.1mb     +++|          CRDL   CM
02940  M00S02737.1mb     +++|          ADK    DFMR-DFRQ   READ M/R BUFFERS POINTER
02941  M00S02738.1mb     +++|          CRDL   CN
02942  M00S02739.1mb     +++|          RPTR   CN,MRBA     SAVE FWA OF M/R BUFFERS
02943  M00S02740.1mb     +++|          RPTR   CM,SDAA     SET ADDRESS OF NOS REQUEST HEADER
02944  M00S02741.1mb     +++|          LDDL   DC+2        SET LENGTH OF M/R BUFFER
02945  M00S02742.1mb     +++|          SHN    -10
02946  M00S02743.1mb     +++|          STM    LMRB
02947  M00S02744.1mb     +++|          LDDL   DC+1        GET *DFT* VERSION
02948  M00S02745.1mb     +++|          SHN    -10
02949  M00S02746.1mb     +++|          LPN    77
02950  M00S02747.1mb     +++|          STM    IBMG        SET *DFT* VERSION INTO *BML*
02951  M00S02748.1mb     +++|          SHN    -2
02952  M00S02749.1mb     +++|          STM    DFTV        SAVE *DFT* VERSION (0 = VERSION 3)

Line S02750 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02953  M01S02750.271l716 ---|          ZJP    SBA1        IF *DFT* VERSION 3

Line S00092 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02954  M01S00092.271l716 +++|          ZJP    SBA2        IF *DFT* VERSION 3
02955  M00S02751.1mb     +++|          ISTORE SCAA,(UJN SCA2)  USE POINTER TO FIND CONTROL WORDS

Line S02752 Modification History
`M01` (Removed by)	`1mb31`

Seq #  *Modification Id* Act 
----------------------------+
02956  M01S02752.1mb31   ---|          LDC    IBMG+2      MOVE MEMORY MODEL IN *BML*
02957  M01S02753.1mb31   ---|          STM    SIDA
02958  M00S02754.1mb     +++|          RJM    DOB
02959  M00S02755.1mb     +++|          ADK    DFMD        READ MODEL DEPENDENT BUFFER POINTER
02960  M00S02756.1mb     +++|          CRDL   T1
02961  M00S02757.1mb     +++|          ADK    DFSS-DFMD   READ SUPPORTIVE STATUS BUFFER POINTER
02962  M00S02758.1mb     +++|          CRDL   CM
02963  M00S02759.1mb     +++|          ADK    DFNR-DFSS   READ NON-REGISTER DATA POINTER
02964  M00S02760.1mb     +++|          CRDL   CN
02965  M00S02761.1mb     +++|          RPTR   T1,MDBA     SAVE FWA OF MODEL DEPENDENT BUFFER
02966  M00S02762.1mb     +++|          RPTR   CM,FSSA     SAVE FWA OF SUPPORTIVE STATUS DATA

Line S02763 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02967  M01S02763.271l716 ---|*         RPTR   CN,FNRA     SAVE FWA OF NON-REGISTER DATA
02968  M01S02764.271l716 ---|          RJM    DOB

Line S00093 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02969  M01S00093.271l716 +++|          LDM    IBMG        CHECK FOR *DFT* VERSION 5 AND ABOVE
02970  M01S00094.271l716 +++|          SBN    5
02971  M01S00095.271l716 +++|          MJN    SBA1        IF *DFT* VERSION 4 OR PRIOR
02972  M01S00096.271l716 +++|          RPTR   CN,FNRA     SAVE FWA OF NON-REGISTER DATA

Line S00020 Modification History
`M01` (Added by)	`ns2660`

Seq #  *Modification Id* Act 
----------------------------+
02973  M01S00020.ns2660  +++|          LDDL   DC+3        CHECK DEDICATED MODE
02974  M01S00021.ns2660  +++|          SHN    21-DCDM
02975  M01S00022.ns2660  +++|          PJN    SBA1        IF *DFT* IS IN DEDICATED MODE
02976  M01S00023.ns2660  +++|          LDD    IR+2        CHECK FOR TOP OF HOUR
02977  M01S00024.ns2660  +++|          LPN    SPTP
02978  M01S00025.ns2660  +++|          ZJN    SBA0        IF NOT TOP OF HOUR
02979  M01S00026.ns2660  +++|          ISTORE CTPB,(LDN SPTH)  SET TO SECOND TOP OF HOUR FUNCTION
02980  M01S00027.ns2660  +++|          UJN    SBA1        CONTINUE
02981  M01S00028.ns2660  +++|
02982  M01S00029.ns2660  +++| SBA0     LDD    IR+2        CHECK FOR TOP OF HOUR PASS TWO
02983  M01S00030.ns2660  +++|          LPN    SPTH
02984  M01S00031.ns2660  +++|          ZJN    SBA1        IF NOT TOP OF HOUR PASS TWO
02985  M01S00032.ns2660  +++|          ISTORE DPPA,(UJN DPP5)  SET TO RECALL *DFT*
02986  M01S00033.ns2660  +++|*         LPN    SPTP
02987  M01S00034.ns2660  +++|          LPN    SPLG
02988  M01S00035.ns2660  +++|          STD    IR+2
02989  M01S00036.ns2660  +++|          LDD    IA          REWRITE INPUT REGISTER
02990  M01S00037.ns2660  +++|          CWD    IR

Line S00097 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02991  M01S00097.271l716 +++| SBA1     RJM    DOB
02992  M00S02765.1mb     +++|          ADK    DFEC        READ ELEMENT COUNTER BUFFER POINTER
02993  M00S02766.1mb     +++|          CRDL   CM
02994  M00S02767.1mb     +++|          LDD    CM+3        SAVE SIZE OF BUFFER
02995  M00S02768.1mb     +++|          STM    LMRA

Line S02769 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02996  M01S02769.271l716 ---| SBA1     LDDL   DC+3        CHECK OS LOGGING FLAG

Line S00098 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02997  M01S00098.271l716 +++| SBA2     LDDL   DC+3        CHECK OS LOGGING FLAG
02998  M00S02770.1mb     +++|          SHN    21-DCLG

Line S02771 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
02999  M01S02771.271l716 ---|          MJN    SBA2        IF 170 LOGGING

Line S00099 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03000  M01S00099.271l716 +++|          MJN    SBA3        IF 170 LOGGING
03001  M00S02772.1mb     +++|          ISTORE LMRC,(UJN LMRX)  SKIP LOGGING
03002  M00S02773.1mb     +++|          LDC    LJMI        SET *LJM*
03003  M00S02774.1mb     +++|          STM    CTPA
03004  M00S02775.1mb     +++|          LDC    CTPX        SET *LJM* ADDRESS
03005  M00S02776.1mb     +++|          STM    CTPA+1
03006  M00S02777.1mb     +++|          LDBC   (MRV7,MRIL)
03007  M00S02778.1mb     +++|          STM    FOMA+1
03008  M00S02779.1mb     +++|          LDBC   (MRV7,MRIL)
03009  M00S02780.1mb     +++|          LMC    SCNI
03010  M00S02781.1mb     +++|          STM    MEPC

Line S02782 Modification History
`M01` (Removed by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03011  M01S02782.271l716 ---| SBA2     LDC    MMFL        SET MACHINE ID INTO *BML*

Line S00100 Modification History
`M01` (Added by)	`271l716`

Seq #  *Modification Id* Act 
----------------------------+
03012  M01S00100.271l716 +++| SBA3     LDC    MMFL        SET MACHINE ID INTO *BML*
03013  M00S02783.1mb     +++|          CRD    CM
03014  M00S02784.1mb     +++|          LDD    CM
03015  M00S02785.1mb     +++|          STM    IBMG+3
03016  M00S02786.1mb     +++|          LDC    /COMSDFS/HM0250  SET MESSAGE ID INTO *BML*
03017  M00S02787.1mb     +++|          STM    IBMF
03018  M00S02788.1mb     +++|          LDN    MR          SET CHANNEL NUMBER INTO *BML*
03019  M00S02789.1mb     +++|          RAM    IBMF+2
03020  M00S02790.1mb     +++|          LDC    400000B+SBAL  CLEAR LONG INSTRUCTIONS
03021  M00S02791.1mb     +++|          RJM    DLI
03022  M00S02792.1mb     +++|          LJM    SBAX        RETURN
03023  M00S02793.1mb     +++|
03024  M00S02794.1mb     +++|
03025  M00S02795.1mb     +++| SBAL     BSS    0           TABLE OF LONG INSTRUCTIONS
03026  M00S02796.1mb     +++|          LIST16
03027  M00S02797.1mb     +++|          TITLE  COMMON PRESET.
03028  M00S02798.1mb     +++| PRESET   SPACE  4,10
03029  M00S02799.1mb     +++|**        PRESET - COMMON PRESET CODE FOR *1MB* AND *1SC*.
03030  M00S02800.1mb     +++|*
03031  M00S02801.1mb     +++|*         THIS MACRO PROVIDES IDENTICAL CODE FOR *1MB* AND *1SC*.
03032  M00S02802.1mb     +++|*
03033  M00S02803.1mb     +++|*         ENTRY  (IR+2) = *1MB* FUNCTION BITS.
03034  M00S02804.1mb     +++|*
03035  M00S02805.1mb     +++|*         EXIT   (MF) = MAINFRAME TYPE.
03036  M00S02806.1mb     +++|*                     = 0 = MF70 = CYBER 70.
03037  M00S02807.1mb     +++|*                     = 1 = MF170 = CYBER 170.
03038  M00S02808.1mb     +++|*                     = 2 = MF700 = CYBER 170 - 700 SERIES.
03039  M00S02809.1mb     +++|*                     = 3 = MF865 = CYBER 170 - 865.
03040  M00S02810.1mb     +++|*                     = 4 = MF875 = CYBER 170 - 875.
03041  M00S02811.1mb     +++|*                     = 5 = MF180 = CYBER 180 CLASS MACHINE.
03042  M00S02812.1mb     +++|*                     = 6 = MF176A = CYBER 176 LEVEL A.
03043  M00S02813.1mb     +++|*                     = 7 = MF176B = CYBER 176 LEVEL B.
03044  M00S02814.1mb     +++|*                (PN) = PP NUMBER * 100B
03045  M00S02815.1mb     +++|*
03046  M00S02816.1mb     +++|*         ERROR  EXIT TO *PPR* IF CALLED WITH INCORRECT FUNCTION CODE.
03047  M00S02817.1mb     +++|*
03048  M00S02818.1mb     +++|*         USES   MF, T1, T3, T4, CM - CM+4, MI - MI+4, SC - SC+4.
03049  M00S02819.1mb     +++|*
03050  M00S02820.1mb     +++|*         CALLS  DFM.
03051  M00S02821.1mb     +++|
03052  M00S02822.1mb     +++|
03053  M00S02823.1mb     +++| PRESET   MACRO
03054  M00S02824.1mb     +++| PRESET   RMT
03055  M00S02825.1mb     +++|          LIST   D
03056  M00S02826.1mb     +++| PRS      SUBR               ENTRY/EXIT
03057  M00S02827.1mb     +++|          LDK    MABL        READ MAINFRAME IDENTIFICATION
03058  M00S02828.1mb     +++|          CRD    MI
03059  M00S02829.1mb     +++|          LDC    SCRL        READ *SCRL* WORD
03060  M00S02830.1mb     +++|          CRD    SC
03061  M00S02831.1mb     +++|          LDN    MF70        PRESET CYBER 70 MAINFRAME TYPE
03062  M00S02832.1mb     +++|          STD    MF
03063  M00S02833.1mb     +++|          LDD    MI+1
03064  M00S02834.1mb     +++|          SHN    21-7
03065  M00S02835.1mb     +++|          PJN    PRS8        IF CYBER 70
03066  M00S02836.1mb     +++|          SHN    21-13-21+7+22
03067  M00S02837.1mb     +++|          MJN    PRS3        IF NOT CYBER 180 CLASS MACHINE
03068  M00S02838.1mb     +++|          SHN    0-2-21+13+22
03069  M00S02839.1mb     +++|          LPN    21
03070  M00S02840.1mb     +++|          ZJN    PRS2        IF CYBER 170 - 865
03071  M00S02841.1mb     +++|          LMN    1
03072  M00S02842.1mb     +++|          ZJN    PRS1        IF CYBER 170 - 875
03073  M00S02843.1mb     +++|          LDN    MF180&MF875
03074  M00S02844.1mb     +++| PRS1     LMN    MF875&MF865
03075  M00S02845.1mb     +++| PRS2     LMN    MF865
03076  M00S02846.1mb     +++|          UJN    PRS7        SET MACHINE TYPE
03077  M00S02847.1mb     +++|
03078  M00S02848.1mb     +++| PRS3     SHN    0-10-21+13
03079  M00S02849.1mb     +++|          LMN    17
03080  M00S02850.1mb     +++|          ZJN    PRS5        IF CYBER 176 LEVEL A
03081  M00S02851.1mb     +++|          LMN    16&17
03082  M00S02852.1mb     +++|          ZJN    PRS6        IF CYBER 176 LEVEL B
03083  M00S02853.1mb     +++|          LPN    1
03084  M00S02854.1mb     +++|          ZJN    PRS4        IF CYBER 170 - 700 SERIES
03085  M00S02855.1mb     +++|          LDN    MF170&MF700
03086  M00S02856.1mb     +++| PRS4     LMN    MF700&MF176A
03087  M00S02857.1mb     +++| PRS5     LMN    MF176A&MF176B
03088  M00S02858.1mb     +++| PRS6     LMN    MF176B
03089  M00S02859.1mb     +++| PRS7     STD    MF
03090  M00S02860.1mb     +++| PRS8     LDD    IR+2        CHECK FUNCTION BITS

Line S02861 Modification History
`M01` (Removed by)	`ns2660`

Seq #  *Modification Id* Act 
----------------------------+
03091  M01S02861.ns2660  ---|          SBN    SPMX

Line S00038 Modification History
`M01` (Added by)	`ns2660`

Seq #  *Modification Id* Act 
----------------------------+
03092  M01S00038.ns2660  +++|          SBK    SPMX
03093  M00S02862.1mb     +++|          MJN    PRS12       IF LEGAL FUNCTION
03094  M00S02863.1mb     +++|
03095  M00S02864.1mb     +++|*         PROCESS INCORRECT FUNCTION CODE.
03096  M00S02865.1mb     +++|
03097  M00S02866.1mb     +++|          LDC    PRSA        ISSUE CALL ERROR MESSAGE
03098  M00S02867.1mb     +++|          RJM    DFM
03099  M00S02868.1mb     +++|          MONITOR  DPPM
03100  M00S02869.1mb     +++|          LJM    PPR         EXIT TO PP RESIDENT
03101  M00S02870.1mb     +++|
03102  M00S02871.1mb     +++| PRS12    LDD    CP          SET CONTROL POINT NUMBER IN PP CALL
03103  M00S02872.1mb     +++|          SHN    -7
03104  M00S02873.1mb     +++|          RAM    CKPA+1
03105  M00S02874.1mb     +++|          LDN    PPCP        STORE LOGICAL PP NUMBER BEING USED
03106  M00S02875.1mb     +++|          CRD    CM
03107  M00S02876.1mb     +++|          LDD    IA
03108  M00S02877.1mb     +++|          SBD    CM+4
03109  M00S02878.1mb     +++|          SHN    -3
03110  M00S02879.1mb     +++|          SBN    12          CHECK BARREL
03111  M00S02880.1mb     +++|          MJN    PRS12.1     IF IN LOWER BARREL
03112  M00S02881.1mb     +++|          ADN    20-12       ADJUST FOR PP20-PP31
03113  M00S02882.1mb     +++| PRS12.1  ADN    12
03114  M00S02883.1mb     +++|          SHN    6
03115  M00S02884.1mb     +++|          STM    IBMF+2
03116  M00S02885.1mb     +++|          STD    PN
03117  M00S02886.1mb     +++|          LJM    PRS13       COMPLETE PRESET
03118  M00S02887.1mb     +++|
03119  M00S02888.1mb     +++|
03120  M00S02889.1mb     +++| PRSA     DATA   C* 1MB - CALL ERROR.*
03121  M00S02890.1mb     +++|          LIST   *
03122  M00S02891.1mb     +++| PRESET   RMT
03123  M00S02892.1mb     +++| PRESET   ENDM
03124  M00S02893.1mb     +++|          TITLE  PRESET.
03125  M00S02894.1mb     +++|          SPACE  4,10
03126  M00S02895.1mb     +++|**        COMMON PRESET.
03127  M00S02896.1mb     +++|
03128  M00S02897.1mb     +++|
03129  M00S02898.1mb     +++|          PRESET
03130  M00S02899.1mb     +++| PRESET   HERE
03131  M00S02900.1mb     +++|
03132  M00S02901.1mb     +++| PRS13    LDD    CP
03133  M00S02902.1mb     +++|          SHN    -7
03134  M00S02903.1mb     +++|          RAM    MEPD+1      PRESET CP IN *1DS* CALL

Line S00050 Modification History
`M01` (Added by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
03135  M01S00050.ns2769  +++|
03136  M01S00051.ns2769  +++|*         PLUG *EMB* ADDRESSES.
03137  M01S00052.ns2769  +++|
03138  M01S00053.ns2769  +++|          LDK    EMBP        FETCH *EMB* POINTER
03139  M01S00054.ns2769  +++|          CRD    CM
03140  M01S00055.ns2769  +++| .CM1     EQU    CM+1
03141  M01S00056.ns2769  +++|          LDC    .CM1*10000+TEMB
03142  M01S00057.ns2769  +++|          RJM    STA         SET *EMB* ADDRESSES
03143  M00S02904.1mb     +++|          LJM    PRSX        EXIT PRESET

Line S00058 Modification History
`M01` (Added by)	`ns2769`

Seq #  *Modification Id* Act 
----------------------------+
03144  M01S00058.ns2769  +++|
03145  M01S00059.ns2769  +++|
03146  M01S00060.ns2769  +++| TEMB     BSS    0           TABLE OF *EMB* ADDRESSES
03147  M01S00061.ns2769  +++|          QUAL   COMPIMB
03148  M01S00062.ns2769  +++| TEMB     HERE
03149  M01S00063.ns2769  +++|          QUAL   *
03150  M01S00064.ns2769  +++|          CON    0           TERMINATE TABLE
03151  M01S00065.ns2769  +++| STA      SPACE  4,10
03152  M01S00066.ns2769  +++|**        STA - SET TABLE ADDRESSES.
03153  M01S00067.ns2769  +++|*
03154  M01S00068.ns2769  +++|*         ENTRY  (A) = 6/ TP, 12/ TA
03155  M01S00069.ns2769  +++|*                      TP = TABLE POINTER.
03156  M01S00070.ns2769  +++|*                      TA = INSTRUCTION TABLE ADDRESS.
03157  M01S00071.ns2769  +++|*
03158  M01S00072.ns2769  +++|*         EXIT   (A) = 0.
03159  M01S00073.ns2769  +++|*
03160  M01S00074.ns2769  +++|*         USES   T0, T1, T2.
03161  M01S00075.ns2769  +++|
03162  M01S00076.ns2769  +++|
03163  M01S00077.ns2769  +++| STA1     STD    T2          SET INSTRUCTION ADDRESS
03164  M01S00078.ns2769  +++|          LDM    1,T1
03165  M01S00079.ns2769  +++|          RAM    1,T2        SET LOWER 12 BITS OF ADDRESS
03166  M01S00080.ns2769  +++|          SHN    -14
03167  M01S00081.ns2769  +++|          ADI    T1          SET UPPER 6 BITS OF ADDRESS
03168  M01S00082.ns2769  +++|          LPN    37
03169  M01S00083.ns2769  +++|          RAI    T2
03170  M01S00084.ns2769  +++|          AOD    T0          ADVANCE INSTRUCTION LIST
03171  M01S00085.ns2769  +++| STA2     LDI    T0
03172  M01S00086.ns2769  +++|          NJN    STA1        IF NOT END OF TABLE
03173  M01S00087.ns2769  +++|
03174  M01S00088.ns2769  +++| STA      SUBR               ENTRY/EXIT
03175  M01S00089.ns2769  +++|          STD    T0
03176  M01S00090.ns2769  +++|          SHN    -14         SET ADDRESS POINTER
03177  M01S00091.ns2769  +++|          STD    T1
03178  M01S00092.ns2769  +++|          UJN    STA2        ENTER LOOP
03179  M00S02905.1mb     +++| L1MB     EQU    *           LWA+1 OF *1MB* CODE
03180  M00S02906.1mb     +++|          SPACE  4,10
03181  M00S02907.1mb     +++|          OVERFLOW  PPFW,EPFW
03182  M00S02908.1mb     +++|          TTL    1MB/1SC - SCR ERROR PROCESSOR.
03183  M00S02909.1mb     +++|          TITLE
03184  M00S02910.1mb     +++|          IDENT  1SC,PPFW
03185  M00S02911.1mb     +++|          QUAL   1SC
03186  M00S02912.1mb     +++|*COMMENT  1MB - SCR ERROR PROCESSOR.

Line S02913 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
03187  M01S02913.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1984.

Line S00002 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
03188  M01S00002.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
03189  M00S02914.1mb     +++| SEP      SPACE  4,10
03190  M00S02915.1mb     +++|***       SEP - SCR ERROR PROCESSOR.
03191  M00S02916.1mb     +++|*
03192  M00S02917.1mb     +++|*             *SEP* IS THE MAIN DRIVER THAT PROCESSES ERRORS
03193  M00S02918.1mb     +++|*         DETECTED IN THE SCR (OR SIMULATED SCR).  *1SC* IS CALLED
03194  M00S02919.1mb     +++|*         FOR LOGGING *UIDL* (SEE *COMSSCR*) UNIQUE SECDED ERRORS,
03195  M00S02920.1mb     +++|*         FOR END-OF-HOUR PROCESSING, AND FOR ALL SCR ERRORS OTHER
03196  M00S02921.1mb     +++|*         THAN SECDED ERRORS.
03197  M00S02922.1mb     +++|*
03198  M00S02923.1mb     +++|*         *1SC* FIRST CHECKS FOR GROUP 1 AND GROUP 2 FATAL ERRORS (SEE
03199  M00S02924.1mb     +++|*         *COMSSCR*).  IF ANY OF THESE BITS ARE SET, *1SC* DISPLAYS
03200  M00S02925.1mb     +++|*         *FATAL MAINFRAME ERROR*, CHECKPOINTS THE DEVICES (IF NOT A
03201  M00S02926.1mb     +++|*         IAF ERROR), REQUESTS STEP MODE, AND HANGS THE PP.  IF NO
03202  M00S02927.1mb     +++|*         FATAL ERROR BITS ARE DETECTED, *1SC* CONTINUES CHECKING FOR
03203  M00S02928.1mb     +++|*         OTHER ERRORS.
03204  M00S02929.1mb     +++|*
03205  M00S02930.1mb     +++|*         *1SC* THEN CHECKS THE S/C REGISTER FOR BITS 36 AND/OR
03206  M00S02931.1mb     +++|*         37 SET. IF BIT 36 (POWER FAILURE) IS SET, THE STEP
03207  M00S02932.1mb     +++|*         REQUEST BIT IN CM WORD *SCRL* IS SET AND A STEP FUNCTION
03208  M00S02933.1mb     +++|*         IS ISSUED. THE S/C REGISTER(S) ARE READ ALONG WITH THE
03209  M00S02934.1mb     +++|*         TIME OF DAY. IF ONLY BIT 36 IS SET, THE MESSAGE
03210  M00S02935.1mb     +++|*         *POWER FAILURE.* IS DISPLAYED AT THE SYSTEM CONTROL
03211  M00S02936.1mb     +++|*         POINT. IF BOTH BITS 36 AND 37 ARE SET, THE MESSAGE
03212  M00S02937.1mb     +++|*         *POWER DOWN.* IS DISPLAYED. IF BIT 37 ALONE IS SET, *1CK*
03213  M00S02938.1mb     +++|*         IS CALLED TO PERFORM A SYSTEM CHECKPOINT AND THE MESSAGE
03214  M00S02939.1mb     +++|*         *SHUTDOWN IMMINENT.* IS ENTERED IN THE ERROR LOG AND
03215  M00S02940.1mb     +++|*         DISPLAYED AT THE SYSTEM CP.  THEN THE STEP REQUEST BIT
03216  M00S02941.1mb     +++|*         IS SET AND A STEP FUNCTION IS ISSUED. DURING THIS TIME
03217  M00S02942.1mb     +++|*         AND SUBSEQUENTLY, BITS 36 AND 37 ARE MONITORED AND THE
03218  M00S02943.1mb     +++|*         CONTROL POINT MESSAGE KEPT UP TO DATE. IF BIT 36 BECOMES
03219  M00S02944.1mb     +++|*         SET, STEP MODE IS IMMEDIATELY REQUESTED. IF BOTH BITS
03220  M00S02945.1mb     +++|*         BECOME CLEAR, THE MESSAGE *POWER/ENVIRONMENT NORMAL.*
03221  M00S02946.1mb     +++|*         IS DISPLAYED AT THE SYSTEM CONTROL POINT, THE S/C
03222  M00S02947.1mb     +++|*         REGISTER(S) AND THE TIME OF DAY ARE READ, AND THE STEP
03223  M00S02948.1mb     +++|*         REQUEST BIT IS CLEARED, ENABLING THE ENTERING OF THE
03224  M00S02949.1mb     +++|*         *DSD* COMMAND *UNSTEP.* BY THE OPERATOR. WHEN *UNSTEP.*
03225  M00S02950.1mb     +++|*         IS EXECUTED, *1SC* ENTERS INTO THE ERROR LOG AS
03226  M00S02951.1mb     +++|*         APPROPRIATE, THE MESSAGE *SR HH.MM.SS. POWER FAILURE.*
03227  M00S02952.1mb     +++|*         OR *SR HH.MM.SS. POWER DOWN.*.  THE LAST MESSAGE SEQUENCE
03228  M00S02953.1mb     +++|*         IN THE ERROR LOG BEFORE *1MB* DROPS WILL BE
03229  M00S02954.1mb     +++|*         *SR HH.MM.SS. POWER/ENVIRONMENT NORMAL.*.
03230  M00S02955.1mb     +++|*         (ON A CYBER 70, BIT 0 OF THE INTERLOCK REGISTER INDICATES
03231  M00S02956.1mb     +++|*         POWER FAILURE. THERE IS NO SHUTDOWN IMMINENT BIT. THE
03232  M00S02957.1mb     +++|*         POWER FAILURE PROCEDURE DESCRIBED ABOVE IS FOLLOWED
03233  M00S02958.1mb     +++|*         EXCEPT THE MESSAGE PREFIX BECOMES *IR* INSTEAD OF *SR*.)
03234  M00S02959.1mb     +++|*
03235  M00S02960.1mb     +++|*         IF S/C REGISTER BITS 36 AND/OR 37 ARE NOT SET,
03236  M00S02961.1mb     +++|*         *1SC* S/C REGISTER(S) PROCESSING WILL, FOR EACH
03237  M00S02962.1mb     +++|*         AVAILABLE S/C REGISTER, CLEAR APPROPRIATE ERROR
03238  M00S02963.1mb     +++|*         BITS, AND ISSUE ERROR INFORMATION TO THE BML.
03239  M00S02964.1mb     +++|*
03240  M00S02965.1mb     +++|*         FOR PP MEMORY PARITY ERRORS, *1SC* WILL DISPLAY A
03241  M00S02966.1mb     +++|*         *PP MEMORY PARITY ERROR* MESSAGE AT THE SYSTEM
03242  M00S02967.1mb     +++|*         CONTROL POINT.
03243  M00S02968.1mb     +++|*
03244  M00S02969.1mb     +++|*         EACH SINGLE BIT SECDED ERROR DETECTED IN THE SCR (OR
03245  M00S02970.1mb     +++|*         SIMULATED SCR) WILL BE COUNTED.  THE FIRST *UIDL* UNIQUE
03246  M00S02971.1mb     +++|*         PER HOUR WILL BE LOGGED (SUBSEQUENT SINGLE BIT SECDED
03247  M00S02972.1mb     +++|*         ERRORS DETECTED BY MONITOR WILL MERELY INCREMENT THE COUNTS
03248  M00S02973.1mb     +++|*         AND CLEAR THE ERROR BITS IN MONITOR ITSELF).  AT THE END OF
03249  M00S02974.1mb     +++|*         EACH HOUR, THE *TIME PROCESSING* CALL TO *1SC* WILL CAUSE
03250  M00S02975.1mb     +++|*         THE CURRENT SINGLE BIT SECDED ERROR COUNT TO BE LOGGED TO
03251  M00S02976.1mb     +++|*         THE ERROR LOG.  THE CM AND LCME SECDED ID TABLES AND COUNTS
03252  M00S02977.1mb     +++|*         WILL ALSO BE LOGGED TO THE BML.  THESE TABLES AND COUNTS
03253  M00S02978.1mb     +++|*         WILL THEN BE CLEARED AFTER LOGGING.  THE ESM SECDED
03254  M00S02979.1mb     +++|*         ERROR LOG IS ALSO LOGGED TO THE BML, IF AN ESM
03255  M00S02980.1mb     +++|*         MAINTENANCE PORT IS DEFINED.
03256  M00S02981.1mb     +++|*
03257  M00S02982.1mb     +++|*         FOR CYBER 176 MACHINES, LCME SINGLE BIT SECDED
03258  M00S02983.1mb     +++|*         ERRORS ARE HANDLED IN A SIMILAR MANNER.  THE
03259  M00S02984.1mb     +++|*         THRESHOLD VALUE FOR LCME IS ALSO DEFINED BY *UIDL*.
03260  M00S02985.1mb     +++|*
03261  M00S02986.1mb     +++|*         ALL DETECTED DOUBLE BIT SECDED ERRORS WILL BE LOGGED.
03262  M00S02987.1mb     +++|*
03263  M00S02988.1mb     +++|*         NOTE - *1SC* IS, TO AN EXTENT, FUNCTION-DRIVEN BY BITS.  ONE
03264  M00S02989.1mb     +++|*         BIT IN THE PARAMETER LIST DENOTES WHETHER OR NOT MONITOR HAS
03265  M00S02990.1mb     +++|*         DETECTED A CM SINGLE BIT SECDED ERROR.  A SECOND BIT
03266  M00S02991.1mb     +++|*         SPECIFIES IF AN LCME SINGLE BIT SECDED ERROR HAS BEEN
03267  M00S02992.1mb     +++|*         DETECTED.  A THIRD BIT DENOTES IF END-OF-HOUR PROCESSING HAS
03268  M00S02993.1mb     +++|*         BEEN SPECIFIED.  THUS, AN OPEN WINDOW FOR SECDED ERRORS
03269  M00S02994.1mb     +++|*         EXISTS FROM THE TIME MONITOR CALLS *1SC* UNTIL *1SC* BEGINS
03270  M00S02995.1mb     +++|*         PROCESSING.  THIS PRESENTS NO MAJOR CONCERN, HOWEVER, SINCE
03271  M00S02996.1mb     +++|*         *1SC* WILL NOT PROCESS ANY SECDED ERRORS NOT DETECTED BY
03272  M00S02997.1mb     +++|*         MONITOR.  THOSE SECDED BITS WILL REMAIN SET UNTIL MONITOR
03273  M00S02998.1mb     +++|*         DETECTS THE ERROR IN ITS NEXT CYCLE.
03274  M00S02999.1mb     +++|*         WHEN *1SC* IS FINISHED, IT WILL CLEAR BIT 59 IN
03275  M00S03000.1mb     +++|*         CM LOCATION *SCRL*, SET BY *MTR*, TO RE-ENABLE
03276  M00S03001.1mb     +++|*         S/C REGISTER ERROR LOGGING.
03277  M00S03002.1mb     +++|          SPACE  4,10
03278  M00S03003.1mb     +++|***       CALL.
03279  M00S03004.1mb     +++|*
03280  M00S03005.1mb     +++|*
03281  M00S03006.1mb     +++|*T  IR    18/  *1SC*,1/0,5/ CP,9/0,1/ C,1/ L,1/ T,24/0

Figure IR

03282  M00S03007.1mb     +++|*         CP     CONTROL POINT NUMBER.
03283  M00S03008.1mb     +++|*         C      SET IF CM SINGLE BIT SECDED ERROR.
03284  M00S03009.1mb     +++|*         L      SET IF LCME SINGLE BIT SECDED ERROR (176 ONLY).
03285  M00S03010.1mb     +++|*         T      SET IF TIME PROCESSING SPECIFIED.
03286  M00S03011.1mb     +++|          SPACE  4,10
03287  M00S03012.1mb     +++|***       DAYFILE MESSAGES.
03288  M00S03013.1mb     +++|*
03289  M00S03014.1mb     +++|*
03290  M00S03015.1mb     +++|*         * 1SC - CALL ERROR.* = *1SC* WAS CALLED WITH AN ILLEGAL
03291  M00S03016.1mb     +++|*         FUNCTION BIT CODE.
03292  M00S03017.1mb     +++|*
03293  M00S03018.1mb     +++|*         * 1SC - ESM CHANNEL HANG.* = THE ESM MAINTENANCE
03294  M00S03019.1mb     +++|*         CHANNEL HUNG ACTIVE WHILE WAITING TO FUNCTION THE
03295  M00S03020.1mb     +++|*         ESM TO READ THE ESM SECDED LOG.
03296  M00S03021.1mb     +++|*
03297  M00S03022.1mb     +++|*         * 1SC - INCOMPLETE ESM SECDED READ.* = *1SC* DETECTED
03298  M00S03023.1mb     +++|*         THAT NOT ALL OF THE ESM SECDED LOG WAS READ OFF THE
03299  M00S03024.1mb     +++|*         ESM MAINTENANCE CHANNEL.
03300  M00S03025.1mb     +++|          SPACE  4,20
03301  M00S03026.1mb     +++|***       SCR PROCESSING SYSTEM CONTROL POINT MESSAGES.
03302  M00S03027.1mb     +++|*
03303  M00S03028.1mb     +++|*
03304  M00S03029.1mb     +++|*         * FATAL MAINFRAME ERROR.*
03305  M00S03030.1mb     +++|*
03306  M00S03031.1mb     +++|*         * POWER FAILURE.*
03307  M00S03032.1mb     +++|*                BIT 36 OF S/C REGISTER SET.
03308  M00S03033.1mb     +++|*                BIT 0 OF INTERLOCK REGISTER SET (CYBER 70)
03309  M00S03034.1mb     +++|*
03310  M00S03035.1mb     +++|*         * SHUTDOWN IMMINENT.*
03311  M00S03036.1mb     +++|*                BIT 37 OF S/C REGISTER SET.
03312  M00S03037.1mb     +++|*
03313  M00S03038.1mb     +++|*         * POWER DOWN.*
03314  M00S03039.1mb     +++|*                BOTH BITS 36 AND 37 OF S/C REGISTER SET.
03315  M00S03040.1mb     +++|*
03316  M00S03041.1mb     +++|*         * POWER/ENVIRONMENT NORMAL.*
03317  M00S03042.1mb     +++|*                BOTH BITS 36 AND 37 OF S/C REGISTER CLEAR.
03318  M00S03043.1mb     +++|          SPACE  4,40
03319  M00S03044.1mb     +++|***       SCR PROCESSING ERROR LOG MESSAGES.
03320  M00S03045.1mb     +++|*
03321  M00S03046.1mb     +++|*
03322  M00S03047.1mb     +++|*         *SR HH.MM.SS. POWER FAILURE.*
03323  M00S03048.1mb     +++|*         *IR HH.MM.SS. POWER FAILURE.* (CYBER 70)
03324  M00S03049.1mb     +++|*
03325  M00S03050.1mb     +++|*         *SR SHUTDOWN IMMINENT.*
03326  M00S03051.1mb     +++|*
03327  M00S03052.1mb     +++|*         *SR HH.MM.SS. POWER DOWN.*
03328  M00S03053.1mb     +++|*
03329  M00S03054.1mb     +++|*         *SR HH.MM.SS. POWER/ENVIRONMENT NORMAL.*
03330  M00S03055.1mb     +++|*         *IR HH.MM.SS. POWER/ENVIRONMENT NORMAL.* (CYBER 70)
03331  M00S03056.1mb     +++|*
03332  M00S03057.1mb     +++|*                WHERE HH.MM.SS. IS TIME OF DAY.
03333  M00S03058.1mb     +++|*                ABOVE MESSAGES ARE FOLLOWED BY S/C REGISTER(S)
03334  M00S03059.1mb     +++|*                CONTENTS READ AT TIME HH.MM.SS. IN FORMAT
03335  M00S03060.1mb     +++|*                SHOWN ABOVE.
03336  M00S03061.1mb     +++|
03337  M00S03062.1mb     +++|
03338  M00S03063.1mb     +++|          ORG    PPFW
03339  M00S03064.1mb     +++| SEP      RJM    PSC         PRESET FOR *1SC*
03340  M00S03065.1mb     +++|          RJM    RSC         READ S/C REGISTER(S)
03341  M00S03066.1mb     +++| SEPA     RJM    CFE         CHECK FOR FATAL ERRORS
03342  M00S03067.1mb     +++|*         UJN    *+2         (IF CYBER 70 AND NO SIMULATION)
03343  M00S03068.1mb     +++|          RJM    PEF         CHECK FOR POWER OR ENVIRONMENTAL FAILURE
03344  M00S03069.1mb     +++|          RJM    TEB         CLEAR TEST ERROR BITS IN S/C
03345  M00S03070.1mb     +++|          RJM    PSB         PROCESS SINGLE BIT ERRORS
03346  M00S03071.1mb     +++|          RJM    IBM         ISSUE BML MESSAGE
03347  M00S03072.1mb     +++|          RJM    PTP         PERFORM TIME PROCESSING
03348  M00S03073.1mb     +++|          LJM    DPP         DROP PP
03349  M00S03074.1mb     +++|          SPACE  4,10
03350  M00S03075.1mb     +++|**        COMMON SUBROUTINES.
03351  M00S03076.1mb     +++|
03352  M00S03077.1mb     +++|
03353  M00S03078.1mb     +++|          COMMON
03354  M00S03079.1mb     +++|
03355  M00S03080.1mb     +++|          LIST   D
03356  M00S03081.1mb     +++| COMMON   HERE
03357  M00S03082.1mb     +++|          LIST   *
03358  M00S03083.1mb     +++| BIS      SPACE  4,10
03359  M00S03084.1mb     +++|**        BIS - BUILD ID SUMMARY TABLE ADDRESS.
03360  M00S03085.1mb     +++|*
03361  M00S03086.1mb     +++|*         ENTRY  (SC - SC+4) = SCR PARAMETER WORD *SCRL*.
03362  M00S03087.1mb     +++|*
03363  M00S03088.1mb     +++|*         EXIT   (T3) = ID TABLE LENGTH.
03364  M00S03089.1mb     +++|*
03365  M00S03090.1mb     +++|*         USES   T3, T6, T7.
03366  M00S03091.1mb     +++|
03367  M00S03092.1mb     +++|
03368  M00S03093.1mb     +++| BIS      SUBR               ENTRY/EXIT
03369  M00S03094.1mb     +++|          LDD    SC          BUILD ID SUMMARY TABLE ADDRESS
03370  M00S03095.1mb     +++|          LPN    77
03371  M00S03096.1mb     +++|          SHN    14
03372  M00S03097.1mb     +++|          LMD    SC+1
03373  M00S03098.1mb     +++| BISA     ADN    UIDL
03374  M00S03099.1mb     +++|*         ADN    UIDL*2      (ADD OFFSET FOR LCME ID TABLE)
03375  M00S03100.1mb     +++|          STD    T7
03376  M00S03101.1mb     +++|          SHN    -14
03377  M00S03102.1mb     +++|          STD    T6
03378  M00S03103.1mb     +++|          LDN    UIDL        GET ID TABLE LENGTH
03379  M00S03104.1mb     +++|          STD    T3
03380  M00S03105.1mb     +++|          UJN    BISX        RETURN
03381  M00S03106.1mb     +++| CFE      SPACE  4,10
03382  M00S03107.1mb     +++|**        CFE - CHECK FOR FATAL ERRORS.
03383  M00S03108.1mb     +++|*
03384  M00S03109.1mb     +++|*         ENTRY  (MF) = MAINFRAME TYPE FLAG.
03385  M00S03110.1mb     +++|*
03386  M00S03111.1mb     +++|*         EXIT   IF ANY FATAL ERROR BITS SET, HANGS WITH STEP MODE
03387  M00S03112.1mb     +++|*                SET, FORCING DEADSTART. OTHERWISE, EXIT IS NORMAL.
03388  M00S03113.1mb     +++|*
03389  M00S03114.1mb     +++|*         USES   T2, CM - CM+4, CN - CN+4.
03390  M00S03115.1mb     +++|*
03391  M00S03116.1mb     +++|*         CALLS  CSH, TRB.
03392  M00S03117.1mb     +++|
03393  M00S03118.1mb     +++| CFE      SUBR               ENTRY/EXIT
03394  M00S03119.1mb     +++|          LDM    TSCR+20     TEST SCR FOR GROUP ONE FATAL ERRORS
03395  M00S03120.1mb     +++|          LPC    FEM0        (CYBER 170)
03396  M00S03121.1mb     +++|*         LPC    FEM6        (CYBER 176)
03397  M00S03122.1mb     +++|*         LPC    FEM7        (CYBER 170 - 700 SERIES)
03398  M00S03123.1mb     +++|*         LPC    FEM8        (CYBER 170 - 865/875)
03399  M00S03124.1mb     +++| CFEA     EQU    *-1
03400  M00S03125.1mb     +++|          NJN    CFE1        IF FATAL ERROR
03401  M00S03126.1mb     +++|          LDM    TSCR+17
03402  M00S03127.1mb     +++|          NJN    CFE1        IF FATAL ERROR
03403  M00S03128.1mb     +++|          LDD    CH+1
03404  M00S03129.1mb     +++|          ZJN    CFE2        IF DONE WITH SCR REGISTERS
03405  M00S03130.1mb     +++|          LDM    TSCR+40
03406  M00S03131.1mb     +++|          ZJN    CFE2        IF NO GROUP ONE FATAL ERRORS
03407  M00S03132.1mb     +++| CFE1     LJM    CFE7        PROCESS FATAL ERROR
03408  M00S03133.1mb     +++|
03409  M00S03134.1mb     +++| CFE2     LDN    CMCE        CHECK FOR *CMC* ERROR (BIT CLEAR ON 176)
03410  M00S03135.1mb     +++|          RJM    TRB         TEST BIT
03411  M00S03136.1mb     +++|          NJN    CFE6        IF *CMC* INPUT ERROR
03412  M00S03137.1mb     +++| CFE3     LDN    SECD
03413  M00S03138.1mb     +++|          RJM    TRB
03414  M00S03139.1mb     +++|          ZJN    CFE4        IF NO SECDED ERROR
03415  M00S03140.1mb     +++|          LDC    SDSC        CHECK IF DOUBLE BIT ERROR
03416  M00S03141.1mb     +++|          RJM    TRB
03417  M00S03142.1mb     +++|          ZJN    CFE4        IF NO DOUBLE BIT ERROR
03418  M00S03143.1mb     +++|          LDD    MF
03419  M00S03144.1mb     +++|          SBN    MF176A
03420  M00S03145.1mb     +++|          MJN    CFE6        IF NOT A CYBER 176
03421  M00S03146.1mb     +++|          LJM    CSH1        REQUEST STEP AND HANG
03422  M00S03147.1mb     +++|
03423  M00S03148.1mb     +++| CFE4     LDD    MF          GET MACHINE TYPE
03424  M00S03149.1mb     +++|          SBN    MF176A
03425  M00S03150.1mb     +++|          MJN    CFE5        IF NOT CYBER 176
03426  M00S03151.1mb     +++|          LDN    LSCD        CHECK FOR LCME SECDED ERROR
03427  M00S03152.1mb     +++|          RJM    TRB
03428  M00S03153.1mb     +++|          ZJN    CFE5        IF NO LCME SECDED ERROR
03429  M00S03154.1mb     +++|          LDC    LDSC        CHECK IF DOUBLE BIT ERROR
03430  M00S03155.1mb     +++|          RJM    TRB
03431  M00S03156.1mb     +++|          NJN    CFE6        IF DOUBLE BIT LCME ERROR
03432  M00S03157.1mb     +++| CFE5     LJM    CFEX        RETURN
03433  M00S03158.1mb     +++|
03434  M00S03159.1mb     +++| CFE6     LDD    CP          CHECK SYSTEM CONTROL POINT FOR *PEET*
03435  M00S03160.1mb     +++|          ADN    STSW
03436  M00S03161.1mb     +++|          CRD    CM
03437  M00S03162.1mb     +++|          LDD    CM+1
03438  M00S03163.1mb     +++|          LMN    PEET
03439  M00S03164.1mb     +++|          ZJN    CFE7        IF PROGRAM MODE CPUMTR ENCOUNTERED ERROR
03440  M00S03165.1mb     +++|          LDC    VCPT*200+STSW  CHECK FOR *IAF* ERROR
03441  M00S03166.1mb     +++|          CRD    CM
03442  M00S03167.1mb     +++|          ADN    JCIW-STSW-1
03443  M00S03168.1mb     +++|          CRD    CN
03444  M00S03169.1mb     +++|          LDD    CN+2
03445  M00S03170.1mb     +++|          LMC    /SSD/IFSI
03446  M00S03171.1mb     +++|          NJN    CFE8        IF NOT *IAF*
03447  M00S03172.1mb     +++|          LDD    CM+1
03448  M00S03173.1mb     +++|          LMN    PEET
03449  M00S03174.1mb     +++|          NJN    CFE8        IF ERROR NOT IN *IAF* FL
03450  M00S03175.1mb     +++| CFE7     AOM    CKPA+2      SET FUNCTION TO CHECKPOINT DEVICES
03451  M00S03176.1mb     +++| CFE8     RJM    CSH         CHECKPOINT, STEP, AND HANG
03452  M00S03177.1mb     +++|
03453  M00S03178.1mb     +++|
03454  M00S03179.1mb     +++| CSHM     DATA   C* FATAL MAINFRAME ERROR.*  DEFAULT *CSH* MESSAGE
03455  M00S03180.1mb     +++| IBM      SPACE  4,10
03456  M00S03181.1mb     +++|**        IBM - ISSUE BML MESSAGE.
03457  M00S03182.1mb     +++|*
03458  M00S03183.1mb     +++|*         ENTRY  (IR+2) = *1MB* FUNCTION BITS.
03459  M00S03184.1mb     +++|*                (MF) = MAINFRAME TYPE.
03460  M00S03185.1mb     +++|*                (SC - SC+4) = SCR PARAMETER WORD *SCRL*.
03461  M00S03186.1mb     +++|*
03462  M00S03187.1mb     +++|*         USES   T3, T5 - T7, CM - CM+4, CN - CN+4, NW.
03463  M00S03188.1mb     +++|*
03464  M00S03189.1mb     +++|*         CALLS  BIS, DFM, OLB.
03465  M00S03190.1mb     +++|
03466  M00S03191.1mb     +++|
03467  M00S03192.1mb     +++| IBM      SUBR               ENTRY/EXIT
03468  M00S03193.1mb     +++|          LDM    TMID,MF     GET MESSAGE ID
03469  M00S03194.1mb     +++|          STM    IBMF
03470  M00S03195.1mb     +++|          LDC    MMFL        GET MACHINE ID
03471  M00S03196.1mb     +++|          CRD    CM
03472  M00S03197.1mb     +++|          LDD    CM
03473  M00S03198.1mb     +++|          STM    IBMG+3
03474  M00S03199.1mb     +++|          LDD    MF          CHECK FOR CYBER 70
03475  M00S03200.1mb     +++|          ZJN    IBMX        IF INTERLOCK REGISTER
03476  M00S03201.1mb     +++|          LDN    CHSC        STORE SCR CHANNEL
03477  M00S03202.1mb     +++|          RAM    IBMF+2
03478  M00S03203.1mb     +++|          LDD    ER
03479  M00S03204.1mb     +++|          ZJN    IBM3        IF NO ERRORS IN SCR
03480  M00S03205.1mb     +++|          RJM    OLB         OUTPUT LOG TO BML
03481  M00S03206.1mb     +++| IBM3     LDD    IR+2
03482  M00S03207.1mb     +++|          LPN    SPTP
03483  M00S03208.1mb     +++|          ZJN    IBMX        IF NOT TIME PROCESSING
03484  M00S03209.1mb     +++|
03485  M00S03210.1mb     +++|*         OUTPUT SECDED ERROR SUMMARY TABLE TO BML.
03486  M00S03211.1mb     +++|
03487  M00S03212.1mb     +++| IBM4     LDM    IBMH+2      RESET FIRST SCR CHANNEL
03488  M00S03213.1mb     +++|          SCN    77
03489  M00S03214.1mb     +++|          LMD    CH
03490  M00S03215.1mb     +++|          STM    IBMH+2
03491  M00S03216.1mb     +++|          LDC    /COMSDFS/HS0102  (CM SUMMARY TABLE)
03492  M00S03217.1mb     +++|*         LDC    /COMSDFS/HS0104  (LCME SUMMARY TABLE)
03493  M00S03218.1mb     +++| IBMA     EQU    *-1
03494  M00S03219.1mb     +++|          STM    IBMF+1
03495  M00S03220.1mb     +++|          LDN    ZERL        SAVE 5 WORDS OF ZEROES
03496  M00S03221.1mb     +++|          CRD    CN
03497  M00S03222.1mb     +++|          RJM    BIS         BUILD ID SUMMARY TABLE ADDRESS
03498  M00S03223.1mb     +++|          LDN    0           INITIALIZE TOTAL MESSAGE WORD COUNT
03499  M00S03224.1mb     +++|          STD    NW
03500  M00S03225.1mb     +++| IBM5     SOD    T7          DECREMENT NEXT TABLE ENTRY ADDRESS
03501  M00S03226.1mb     +++|          PJN    IBM6        IF NO UNDERFLOW
03502  M00S03227.1mb     +++|          SOD    T6
03503  M00S03228.1mb     +++|          AOD    T7
03504  M00S03229.1mb     +++| IBM6     LDD    T6          READ NEXT ID TABLE ENTRY
03505  M00S03230.1mb     +++|          SHN    14
03506  M00S03231.1mb     +++|          ADD    T7
03507  M00S03232.1mb     +++|          CRD    CM
03508  M00S03233.1mb     +++|          LDD    CM+4        CHECK IF ERROR COUNT .GT. 0
03509  M00S03234.1mb     +++|          ZJN    IBM7        IF REMAINING TABLE ENTRIES EMPTY
03510  M00S03235.1mb     +++|          AOD    NW          INCREMENT UNIQUE SECDED ERROR COUNT
03511  M00S03236.1mb     +++|          SOD    T3
03512  M00S03237.1mb     +++|          NJN    IBM5        IF ENTIRE ID TABLE NOT SEARCHED
03513  M00S03238.1mb     +++| IBM7     RJM    BIS         REBUILD LWA+1 OF TABLE
03514  M00S03239.1mb     +++|          RAM    BISA
03515  M00S03240.1mb     +++| IBM8     LDD    NW
03516  M00S03241.1mb     +++|          NJN    IBM10       IF SECDED ERRORS OCCURRED THIS HOUR
03517  M00S03242.1mb     +++|          LDD    MF
03518  M00S03243.1mb     +++|          SBN    MF176A
03519  M00S03244.1mb     +++|          MJN    IBM9        IF NOT CYBER 176
03520  M00S03245.1mb     +++|          LDN    /COMSDFS/HS0104-/COMSDFS/HS0102  LCME ERRORS ID
03521  M00S03246.1mb     +++|          RAM    IBMA
03522  M00S03247.1mb     +++|          LMC    /COMSDFS/HS0104
03523  M00S03248.1mb     +++|          NJN    IBM9        IF LCME ERRORS REPORTED
03524  M00S03249.1mb     +++|          LJM    IBM4        PROCESS LCME SECDED SUMMARY TABLE
03525  M00S03250.1mb     +++|
03526  M00S03251.1mb     +++| IBM9     LJM    IBMX        RETURN
03527  M00S03252.1mb     +++|
03528  M00S03253.1mb     +++| IBM10    LDN    12          INITIALIZE BML MESSAGE BYTE COUNT
03529  M00S03254.1mb     +++|          STD    T5
03530  M00S03255.1mb     +++|          LDC    IBMH        INITIALIZE MESSAGE BUFFER POINTER
03531  M00S03256.1mb     +++|          STM    IBME
03532  M00S03257.1mb     +++| IBM11    SOD    T7          DECREMENT NEXT TABLE ENTRY ADDRESS
03533  M00S03258.1mb     +++|          PJN    IBM12       IF NO UNDERFLOW
03534  M00S03259.1mb     +++|          SOD    T6
03535  M00S03260.1mb     +++|          AOD    T7
03536  M00S03261.1mb     +++| IBM12    LDD    NW
03537  M00S03262.1mb     +++|          ZJN    IBM13       IF TIME TO ISSUE DAYFILE MESSAGE
03538  M00S03263.1mb     +++|          SOD    NW          DECREMENT UNIQUE SECDED ERROR COUNT
03539  M00S03264.1mb     +++|          LDD    T6          READ NEXT TABLE ENTRY INTO MESSAGE BUFFER
03540  M00S03265.1mb     +++|          SHN    14
03541  M00S03266.1mb     +++|          ADD    T7
03542  M00S03267.1mb     +++|          CRM    IBMH,ON
03543  M00S03268.1mb     +++| IBME     EQU    *-1
03544  M00S03269.1mb     +++|*         CRM    IBMH+5,ON
03545  M00S03270.1mb     +++|*         CRM    IBMH+12,ON
03546  M00S03271.1mb     +++|*         CRM    IBMH+17,ON
03547  M00S03272.1mb     +++|          SBN    1           RESET CURRENT ID TABLE ADDRESS
03548  M00S03273.1mb     +++|          CWD    CN          CLEAR ID SUMMARY TABLE ENTRY
03549  M00S03274.1mb     +++|          LDN    5           INCREMENT MESSAGE BUFFER POINTER
03550  M00S03275.1mb     +++|          RAM    IBME
03551  M00S03276.1mb     +++|          LDN    5           INCREMENT MESSAGE BYTE COUNT
03552  M00S03277.1mb     +++|          RAD    T5
03553  M00S03278.1mb     +++|          SBN    36
03554  M00S03279.1mb     +++|          ZJN    IBM13       IF BML MESSAGE BUFFER FULL
03555  M00S03280.1mb     +++|          LJM    IBM11       PROCESS MORE TABLE ENTRIES
03556  M00S03281.1mb     +++|
03557  M00S03282.1mb     +++|*         ISSUE DAYFILE MESSAGE.
03558  M00S03283.1mb     +++|
03559  M00S03284.1mb     +++| IBM13    LDN    ZERL        CLEAR CM REGISTERS FOR DAYFILE CALL
03560  M00S03285.1mb     +++|          CRD    CM
03561  M00S03286.1mb     +++|          LDD    T5          SET BYTE COUNT OF MESSAGE
03562  M00S03287.1mb     +++|          STD    CM+1
03563  M00S03288.1mb     +++|          LDD    NW
03564  M00S03289.1mb     +++|          ZJN    IBM14       IF END OF BML MESSAGE
03565  M00S03290.1mb     +++|          LDM    IBMG+1      SET CONTINUATION BIT STATUS
03566  M00S03291.1mb     +++|          SCN    4
03567  M00S03292.1mb     +++|          LMN    4
03568  M00S03293.1mb     +++|          UJN    IBM15       STORE STATUS
03569  M00S03294.1mb     +++|
03570  M00S03295.1mb     +++| IBM14    LDM    IBMG+1      STORE MESSAGE STATUS
03571  M00S03296.1mb     +++|          SCN    4
03572  M00S03297.1mb     +++| IBM15    STM    IBMG+1
03573  M00S03298.1mb     +++|          LDC    IBMF+BMLN   ISSUE DAYFILE MESSAGE
03574  M00S03299.1mb     +++|          RJM    DFM
03575  M00S03300.1mb     +++|          LDM    IBMG+1      SET NOT FIRST BLOCK FLAG
03576  M00S03301.1mb     +++|          SCN    10
03577  M00S03302.1mb     +++|          LMN    10
03578  M00S03303.1mb     +++|          STM    IBMG+1
03579  M00S03304.1mb     +++|          LJM    IBM8        CONTINUE PROCESSING
03580  M00S03305.1mb     +++|          SPACE  4,10
03581  M00S03306.1mb     +++| TMID     INDEX              TABLE OF MESSAGE IDS
03582  M00S03307.1mb     +++|          INDEX  MF170,/COMSDFS/HM0200   CYBER 170
03583  M00S03308.1mb     +++|          INDEX  MF700,/COMSDFS/HM0201   CYBER 170 - 700 SERIES
03584  M00S03309.1mb     +++|          INDEX  MF865,/COMSDFS/HM0204   CYBER 170 - 865
03585  M00S03310.1mb     +++|          INDEX  MF875,/COMSDFS/HM0205   CYBER 170 - 875
03586  M00S03311.1mb     +++|          INDEX  MF176A,/COMSDFS/HM0202  CYBER 176 LEVEL A
03587  M00S03312.1mb     +++|          INDEX  MF176B,/COMSDFS/HM0203  CYBER 176 LEVEL B
03588  M00S03313.1mb     +++|          INDEX  MFMAX
03589  M00S03314.1mb     +++| ODW      SPACE  4,10
03590  M00S03315.1mb     +++|**        ODW - OUTPUT DESCRIPTOR WORD TO SCR.
03591  M00S03316.1mb     +++|*
03592  M00S03317.1mb     +++|*         ENTRY  (A) = DESCRIPTOR WORD.
03593  M00S03318.1mb     +++|*                CHANNEL INSTRUCTION SET.
03594  M00S03319.1mb     +++|*
03595  M00S03320.1mb     +++|*         EXIT   (A) = SCR REPLY WORD.
03596  M00S03321.1mb     +++|
03597  M00S03322.1mb     +++|
03598  M00S03323.1mb     +++| ODW      SUBR               ENTRY/EXIT
03599  M00S03324.1mb     +++|          OAN    CHSC        OUTPUT DESCRIPTOR WORD
03600  M00S03325.1mb     +++|*         OAN    CHSC+20     (SECOND SCR)
03601  M00S03326.1mb     +++|*         OAN    15          (INTERLOCK REGISTER)
03602  M00S03327.1mb     +++| ODWA     EQU    *-1
03603  M00S03328.1mb     +++|          IAN    CHSC        INPUT SCR REPLY WORD
03604  M00S03329.1mb     +++|*         IAN    CHSC+20     (SECOND SCR)
03605  M00S03330.1mb     +++|*         IAN    15          (INTERLOCK REGISTER)
03606  M00S03331.1mb     +++| ODWB     EQU    *-1
03607  M00S03332.1mb     +++|          UJN    ODWX        EXIT
03608  M00S03333.1mb     +++| OLB      SPACE  4,10
03609  M00S03334.1mb     +++|**        OLB - OUTPUT LOG TO *BML*.
03610  M00S03335.1mb     +++|*
03611  M00S03336.1mb     +++|*         ENTRY  (CH+1) = 0, IF ONLY ONE SCR REGISTER.
03612  M00S03337.1mb     +++|*                TABLE *TSCR* CONTAINS SCR SECDED DATA.
03613  M00S03338.1mb     +++|*
03614  M00S03339.1mb     +++|*         USES   CM - CM+4, T3 - T5.
03615  M00S03340.1mb     +++|*
03616  M00S03341.1mb     +++|*         CALLS  DFM.
03617  M00S03342.1mb     +++|
03618  M00S03343.1mb     +++|
03619  M00S03344.1mb     +++| OLB8     LDN    ZERL        CLEAR FOR DAYFILE CALL
03620  M00S03345.1mb     +++|          CRD    CM
03621  M00S03346.1mb     +++|          LDN    6*5         SET MESSAGE LENGTH
03622  M00S03347.1mb     +++|          STD    CM+1
03623  M00S03348.1mb     +++|          LDC    IBMF+BMLN   ISSUE DAYFILE MESSAGE
03624  M00S03349.1mb     +++|          RJM    DFM
03625  M00S03350.1mb     +++|          LDM    IBMG+1      CHECK CONTINUATION BIT
03626  M00S03351.1mb     +++|          LPN    4
03627  M00S03352.1mb     +++|          ZJN    OLBX        IF COMPLETE, RETURN
03628  M00S03353.1mb     +++|          LDN    14          SET NOT FIRST BLOCK FLAG
03629  M00S03354.1mb     +++|          STM    IBMG+1
03630  M00S03355.1mb     +++|          UJN    OLB1        ISSUE NEXT MESSAGE
03631  M00S03356.1mb     +++|
03632  M00S03357.1mb     +++| OLB      SUBR               ENTRY/EXIT
03633  M00S03358.1mb     +++|          LDC    /COMSDFS/HS0100
03634  M00S03359.1mb     +++|          STM    IBMF+1
03635  M00S03360.1mb     +++|          LDN    0           PRESET INPUT TABLE INDEX
03636  M00S03361.1mb     +++|          STD    T3
03637  M00S03362.1mb     +++| OLB1     LDN    0           PRESET *BML* MESSAGE INDEX
03638  M00S03363.1mb     +++|          STD    T4
03639  M00S03364.1mb     +++| OLB2     LDM    TSCR,T3     SCR ERROR LOG TABLE
03640  M00S03365.1mb     +++|          STM    IBMH,T4     MOVE ONE BYTE FROM INPUT TABLE TO *BML*
03641  M00S03366.1mb     +++|          AOD    T3          INCREMENT INPUT TABLE INDEX
03642  M00S03367.1mb     +++|          AOD    T4          INCREMENT *BML* MESSAGE INDEX
03643  M00S03368.1mb     +++|          LMN    4*5
03644  M00S03369.1mb     +++|          ZJN    OLB4        IF AT END OF *BML* MESSAGE BUFFER
03645  M00S03370.1mb     +++|          LDD    T3
03646  M00S03371.1mb     +++|          ADC    -NSCB       (FIRST SCR ERROR LOG)
03647  M00S03372.1mb     +++| OLBA     EQU    *-1
03648  M00S03373.1mb     +++|*         ADC    -NSCB-NSCB  (SECOND SCR ERROR LOG)
03649  M00S03374.1mb     +++|          NJN    OLB2        IF NOT AT END OF ERROR LOG
03650  M00S03375.1mb     +++| OLB3     LDN    0           CLEAR BYTES AT END OF ERROR LOG
03651  M00S03376.1mb     +++|          STM    IBMH,T4
03652  M00S03377.1mb     +++|          AOD    T4
03653  M00S03378.1mb     +++|          LMN    4*5
03654  M00S03379.1mb     +++|          NJN    OLB3        IF MORE BYTES TO CLEAR
03655  M00S03380.1mb     +++|          LDM    IBMG+1      CHECK CONTINUATION BIT
03656  M00S03381.1mb     +++|          LPN    4
03657  M00S03382.1mb     +++|          NJN    OLB5        IF PROCESSING SECOND SCR *BML* MESSAGE
03658  M00S03383.1mb     +++|          LDD    CH+1
03659  M00S03384.1mb     +++|          ZJN    OLB6        IF ONLY ONE SCR *BML* MESSAGE
03660  M00S03385.1mb     +++|          LDC    -NSCB-NSCB  RESET FOR END OF SECOND SCR *BML* MESSAGE
03661  M00S03386.1mb     +++|          STM    OLBA
03662  M00S03387.1mb     +++| OLB4     LDM    IBMG+1      SET CONTINUATION BIT
03663  M00S03388.1mb     +++|          SCN    4
03664  M00S03389.1mb     +++|          LMN    4
03665  M00S03390.1mb     +++|          UJN    OLB7        STORE STATUS
03666  M00S03391.1mb     +++|
03667  M00S03392.1mb     +++| OLB5     LDM    IBMF+2      CHANGE TO SECOND SCR CHANNEL
03668  M00S03393.1mb     +++|          SCN    77
03669  M00S03394.1mb     +++|          LMD    CH+1
03670  M00S03395.1mb     +++|          STM    IBMF+2
03671  M00S03396.1mb     +++| OLB6     LDM    IBMG+1      CLEAR CONTINUATION BIT
03672  M00S03397.1mb     +++|          SCN    4
03673  M00S03398.1mb     +++| OLB7     STM    IBMG+1
03674  M00S03399.1mb     +++|          LJM    OLB8        CONTINUE
03675  M00S03400.1mb     +++| PTP      SPACE  4,15
03676  M00S03401.1mb     +++|**        PTP - PERFORM TIME PROCESSING.
03677  M00S03402.1mb     +++|*
03678  M00S03403.1mb     +++|*         ENTRY  (IR+2) = *1MB* FUNCTION BITS.
03679  M00S03404.1mb     +++|*                (MF) = MAINFRAME TYPE.
03680  M00S03405.1mb     +++|*
03681  M00S03406.1mb     +++|*         EXIT   THE ESM SECDED ERROR LOG IS LOGGED TO THE
03682  M00S03407.1mb     +++|*                BML FOR A *TIME PROCESSING* CALL, IF AN ESM
03683  M00S03408.1mb     +++|*                MAINTENANCE PORT IS DEFINED.
03684  M00S03409.1mb     +++|*
03685  M00S03410.1mb     +++|*         USES   CM - CM+4, T3.
03686  M00S03411.1mb     +++|*
03687  M00S03412.1mb     +++|*         CALLS  CCO, CRC, DFM, PES, *2TH*.
03688  M00S03413.1mb     +++|*
03689  M00S03414.1mb     +++|*         MACROS EXECUTE.
03690  M00S03415.1mb     +++|
03691  M00S03416.1mb     +++|
03692  M00S03417.1mb     +++| PTP      SUBR               ENTRY/EXIT
03693  M00S03418.1mb     +++|          LDD    IR+2        CHECK FOR *TIME PROCESSING* FUNCTION
03694  M00S03419.1mb     +++|          LPN    SPTP
03695  M00S03420.1mb     +++|          ZJN    PTPX        IF NOT *TIME PROCESSING* FUNCTION
03696  M00S03421.1mb     +++|          EXECUTE  2TH       LOAD TOP-OF-HOUR ROUTINES
03697  M00S03422.1mb     +++|          LDC    CECL        READ ERROR COUNTERS
03698  M00S03423.1mb     +++|          CRD    CM
03699  M00S03424.1mb     +++|          CRM    IBMG,ON
03700  M00S03425.1mb     +++|          LDD    CM
03701  M00S03426.1mb     +++|          ADD    CM+1
03702  M00S03427.1mb     +++|          ADD    CM+2
03703  M00S03428.1mb     +++|          ADD    CM+3
03704  M00S03429.1mb     +++|          ADD    CM+4
03705  M00S03430.1mb     +++|          NJN    PTP1        IF ERRORS TO REPORT
03706  M00S03431.1mb     +++|          LJM    PTP2        CLEAR COUNTS
03707  M00S03432.1mb     +++|
03708  M00S03433.1mb     +++| PTP1     LDN    ZERL        CLEAR MESSAGE BUFFER
03709  M00S03434.1mb     +++|          CRD    CM
03710  M00S03435.1mb     +++|          CRM    IBMF,ON
03711  M00S03436.1mb     +++|          SBN    1
03712  M00S03437.1mb     +++|          CRM    IBMH,ON
03713  M00S03438.1mb     +++|          SBN    1
03714  M00S03439.1mb     +++|          CRM    IBMH+5,ON
03715  M00S03440.1mb     +++|          LDC    CECL        CLEAR ERROR COUNTERS
03716  M00S03441.1mb     +++|          CWD    CM
03717  M00S03442.1mb     +++|          LDD    T3          IOU CORRECTED ERROR COUNT
03718  M00S03443.1mb     +++|          STM    IBMH+4      PLACE IN BML MESSAGE
03719  M00S03444.1mb     +++|          LDC    /COMSDFS/HM0410  SET MESSAGE ID
03720  M00S03445.1mb     +++|          STM    IBMF
03721  M00S03446.1mb     +++|          LDC    /COMSDFS/HS0101  SET MESSAGE SYMPTOM
03722  M00S03447.1mb     +++|          STM    IBMF+1
03723  M00S03448.1mb     +++|          LDN    3*5         SET BYTE COUNT FOR BML MESSAGE
03724  M00S03449.1mb     +++|          STD    CM+1
03725  M00S03450.1mb     +++|          LDC    IBMF+BMLN   ISSUE BML MESSAGE
03726  M00S03451.1mb     +++|          RJM    DFM
03727  M00S03452.1mb     +++|          LDN    ZERL        CLEAR BML BUFFER
03728  M00S03453.1mb     +++|          CRM    IBMG,ON
03729  M00S03454.1mb     +++| PTP2     RJM    /IHD/CRC    CLEAR RELOAD COUNT IN CONTROLWARE TABLE
03730  M00S03455.1mb     +++|          RJM    /IHD/CCO    CLEAR COUNTS IN EST/MST ENTRIES
03731  M00S03456.1mb     +++|          LDD    MF          CHECK FOR CYBER 70
03732  M00S03457.1mb     +++|          ZJN    PTP3        IF PROCESSING INTERLOCK REGISTER
03733  M00S03458.1mb     +++|          RJM    /IHD/PES    PROCESS ESM SECDED LOGGING
03734  M00S03459.1mb     +++| PTP3     LJM    PTPX        RETURN
03735  M00S03460.1mb     +++| RSC      SPACE  4,15
03736  M00S03461.1mb     +++|**        RSC - READ S/C REGISTER(S).
03737  M00S03462.1mb     +++|*
03738  M00S03463.1mb     +++|*         READS THE CONTENTS OF THE S/C REGISTER(S) FROM
03739  M00S03464.1mb     +++|*         CHANNEL 16 AND/OR CHANNEL 36.
03740  M00S03465.1mb     +++|*
03741  M00S03466.1mb     +++|*         ENTRY  (MF) = MAINFRAME TYPE.
03742  M00S03467.1mb     +++|*
03743  M00S03468.1mb     +++|*         EXIT   TABLE *TSCR* CONTAINS HARDWARE COPY OF SCR.
03744  M00S03469.1mb     +++|*
03745  M00S03470.1mb     +++|*         USES   T1, T2, T3, T4.
03746  M00S03471.1mb     +++|*
03747  M00S03472.1mb     +++|*         CALLS  CHN, ODW.
03748  M00S03473.1mb     +++|
03749  M00S03474.1mb     +++|
03750  M00S03475.1mb     +++| RSC      SUBR               ENTRY/EXIT
03751  M00S03476.1mb     +++|
03752  M00S03477.1mb     +++|*         READ S/C REGISTER.
03753  M00S03478.1mb     +++|
03754  M00S03479.1mb     +++|          LDC    TSCR        SET BUFFER ADDRESS
03755  M00S03480.1mb     +++|*         LDC    TSCR+50     (POWER FAILURE)
03756  M00S03481.1mb     +++| RSCA     EQU    *-1
03757  M00S03482.1mb     +++|          STD    T1
03758  M00S03483.1mb     +++|          STD    T2
03759  M00S03484.1mb     +++|          LDD    CH+1        SECOND SCR CHANNEL
03760  M00S03485.1mb     +++|          SHN    0-4         CONVERT 0 TO 0, 36 TO 1
03761  M00S03486.1mb     +++|          STD    T4
03762  M00S03487.1mb     +++| RSC1     LDN    NSCB-1      SET S/C WORD TO READ
03763  M00S03488.1mb     +++|          STD    T3
03764  M00S03489.1mb     +++| RSC2     LDD    T3          READ WORD (T3) OF S/C REGISTER
03765  M00S03490.1mb     +++|          RJM    ODW         OUTPUT DESCRIPTOR WORD
03766  M00S03491.1mb     +++|          STI    T2          SAVE S/C CONTENTS
03767  M00S03492.1mb     +++|          AOD    T2          INCREMENT *TSCR* BUFFER ADDRESS
03768  M00S03493.1mb     +++|          SOD    T3          DECREMENT WORD COUNT FOR S/C
03769  M00S03494.1mb     +++|          PJN    RSC2        IF NOT FINISHED WITH S/C
03770  M00S03495.1mb     +++|          SOD    T4
03771  M00S03496.1mb     +++|          NJN    RSC3        IF FINISHED WITH BOTH S/C,S
03772  M00S03497.1mb     +++|          LDN    CHSC+20     CHANNEL 36
03773  M00S03498.1mb     +++|          RJM    CHN         CHANGE TO CHANNEL 36 S/C
03774  M00S03499.1mb     +++|          UJN    RSC1        LOOP FOR CHANNEL 36 S/C
03775  M00S03500.1mb     +++|
03776  M00S03501.1mb     +++| RSC3     LDD    CH          FIRST SCR CHANNEL
03777  M00S03502.1mb     +++|          RJM    CHN         RESET CHANNEL FOR BITS 36 AND 37
03778  M00S03503.1mb     +++|          LDM    20,T1       CLEAR FIRST SCR BYTE 0 INACTIVE BITS
03779  M00S03504.1mb     +++|          LPC    ABM0        CYBER 170 ACTIVE BIT MASK
03780  M00S03505.1mb     +++|*         LPC    ABM6        (CYBER 176)
03781  M00S03506.1mb     +++|*         LPC    ABM7        (CYBER 170 - 700 SERIES)
03782  M00S03507.1mb     +++|*         LPC    ABM8        (CYBER 170 - 865/875)
03783  M00S03508.1mb     +++| RSCB     EQU    *-1
03784  M00S03509.1mb     +++|          STM    20,T1
03785  M00S03510.1mb     +++|          LDM    17,T1       CLEAR FIRST SCR BYTE 1 INACTIVE BITS
03786  M00S03511.1mb     +++| RSCC     SCN    0
03787  M00S03512.1mb     +++|*         SCN    INB6        (CYBER 176)
03788  M00S03513.1mb     +++|*         SCN    INB1        (CPU 1 OFF)
03789  M00S03514.1mb     +++|*         SCN    INB0        (CPU 0 OFF)
03790  M00S03515.1mb     +++|          STM    17,T1
03791  M00S03516.1mb     +++|          LDM    40,T1       CLEAR SECOND SCR BYTE 1 INACTIVE BITS
03792  M00S03517.1mb     +++| RSCD     SCN    0
03793  M00S03518.1mb     +++|*         SCN    INB6        (CYBER 176)
03794  M00S03519.1mb     +++|*         SCN    INB1        (CPU 1 OFF)
03795  M00S03520.1mb     +++|*         SCN    INB0        (CPU 0 OFF)
03796  M00S03521.1mb     +++|          STM    40,T1
03797  M00S03522.1mb     +++|          LJM    RSCX        RETURN
03798  M00S03523.1mb     +++| PEF      SPACE  4,15
03799  M00S03524.1mb     +++|**        PEF - CHECK FOR POWER OR ENVIRONMENTAL FAILURE.
03800  M00S03525.1mb     +++|*
03801  M00S03526.1mb     +++|*         EXIT   NORMAL IF POWER FAILURE OR ENVIRONMENTAL BITS NOT SET.
03802  M00S03527.1mb     +++|*                NO EXIT TAKEN IF POWER FAILURE AND/OR ENVIRONMENTAL
03803  M00S03528.1mb     +++|*                BITS REMAIN SET.
03804  M00S03529.1mb     +++|*                EXIT THROUGH *UBS* OTHERWISE.
03805  M00S03530.1mb     +++|*
03806  M00S03531.1mb     +++|*         USES   T2.
03807  M00S03532.1mb     +++|*
03808  M00S03533.1mb     +++|*         CALLS  CKC, CKP, DFM, IEL, RSC, RSM, TPE, UBS.
03809  M00S03534.1mb     +++|
03810  M00S03535.1mb     +++|
03811  M00S03536.1mb     +++| PEF      SUBR               ENTRY/EXIT
03812  M00S03537.1mb     +++|          RJM    TPE         TEST POWER FAILURE AND ENVIRONMENTAL BITS
03813  M00S03538.1mb     +++|          ZJN    PEFX        IF NEITHER SET
03814  M00S03539.1mb     +++|          LPN    1
03815  M00S03540.1mb     +++|          ZJN    PEF2        IF NO POWER FAILURE
03816  M00S03541.1mb     +++|
03817  M00S03542.1mb     +++|*         ENTRY HERE FROM *UBS* IF POWER FAILURE SET FOR FIRST TIME.
03818  M00S03543.1mb     +++|
03819  M00S03544.1mb     +++| PEF1     RJM    RSM         REQUEST STEP
03820  M00S03545.1mb     +++|          LDM    UBSC,T1     SET MESSAGE
03821  M00S03546.1mb     +++|          SBN    5
03822  M00S03547.1mb     +++|          STM    PEFA
03823  M00S03548.1mb     +++|          SBN    1
03824  M00S03549.1mb     +++|          STM    UBSB
03825  M00S03550.1mb     +++|          LDN    TIML        READ TIME
03826  M00S03551.1mb     +++|          CRM    *,ON
03827  M00S03552.1mb     +++| PEFA     EQU    *-1         (TIME MESSAGE ADDRESS)
03828  M00S03553.1mb     +++|          LDC    TSCR+50     SET BUFFER ADDRESS
03829  M00S03554.1mb     +++|          STM    RSCA
03830  M00S03555.1mb     +++|          LDC    LDNI+1      SET POWER FAILURE PREVIOUSLY PROCESSED
03831  M00S03556.1mb     +++|          STM    UBSD
03832  M00S03557.1mb     +++|          RJM    RSC         READ S/C REGISTER(S)
03833  M00S03558.1mb     +++|          LDC    TSCR        RESET BUFFER ADDRESS
03834  M00S03559.1mb     +++|          STM    RSCA
03835  M00S03560.1mb     +++|          UJN    PEF3        WAIT FOR CONDITION TO CHANGE
03836  M00S03561.1mb     +++|
03837  M00S03562.1mb     +++| PEF2     RJM    CKP         CALL *1CK* IF NOT ALREADY CALLED
03838  M00S03563.1mb     +++|          LDC    MSGF-1+ERLN
03839  M00S03564.1mb     +++|          RJM    DFM
03840  M00S03565.1mb     +++|          RJM    CKC         CHECK FOR *1CK* COMPLETE
03841  M00S03566.1mb     +++|          RJM    RSM         REQUEST STEP MODE
03842  M00S03567.1mb     +++| PEF3     RJM    UBS         UPDATE BIT STATUS
03843  M00S03568.1mb     +++|          UJN    PEF3        WAIT UNTIL CLEAR
03844  M00S03569.1mb     +++| PSB      SPACE  4,15
03845  M00S03570.1mb     +++|**        PSB - PROCESS SINGLE BIT SECDED ERRORS.
03846  M00S03571.1mb     +++|*
03847  M00S03572.1mb     +++|*         ENTRY  (IR+2) = FUNCTION BITS.
03848  M00S03573.1mb     +++|*                (MF) = MAINFRAME TYPE.
03849  M00S03574.1mb     +++|*
03850  M00S03575.1mb     +++|*         EXIT   SECDED ERROR BITS ARE CLEARED IN THE SCR IF THEIR
03851  M00S03576.1mb     +++|*                CORRESPONDING FUNCTION BITS IN IR+2 WERE SET.
03852  M00S03577.1mb     +++|*
03853  M00S03578.1mb     +++|*         USES   ER.
03854  M00S03579.1mb     +++|*
03855  M00S03580.1mb     +++|*         CALLS  ODW.
03856  M00S03581.1mb     +++|
03857  M00S03582.1mb     +++|
03858  M00S03583.1mb     +++| PSB      SUBR               ENTRY/EXIT
03859  M00S03584.1mb     +++|          LDD    IR+2        CHECK FOR CM SECDED FUNCTION BIT SET
03860  M00S03585.1mb     +++|          LPN    SPCS
03861  M00S03586.1mb     +++|          ZJN    PSB2        IF CM SECDED FUNCTION BIT NOT SET
03862  M00S03587.1mb     +++|          AOD    ER          SET ERROR FLAG
03863  M00S03588.1mb     +++|          LDC    FCCL+SECD   CLEAR SECDED ERROR
03864  M00S03589.1mb     +++|          RJM    ODW
03865  M00S03590.1mb     +++|          LDD    MF          TEST FOR CYBER 176
03866  M00S03591.1mb     +++|          SBN    MF176A
03867  M00S03592.1mb     +++|          MJN    PSBX        IF NOT CYBER 176
03868  M00S03593.1mb     +++|          LDC    FCSB+CCRT   SET CM RANK II CLEAR
03869  M00S03594.1mb     +++|          RJM    ODW
03870  M00S03595.1mb     +++|          LDC    FCCL+CCRT   CLEAR CM RANK II CLEAR
03871  M00S03596.1mb     +++|          RJM    ODW
03872  M00S03597.1mb     +++| PSB2     LDD    IR+2        CHECK FOR LCME SECDED FUNCTION BIT SET
03873  M00S03598.1mb     +++|          LPN    SPLS
03874  M00S03599.1mb     +++|          ZJN    PSBX        IF LCME SECDED FUNCTION BIT NOT SET
03875  M00S03600.1mb     +++| PSB3     AOD    ER          SET ERROR FLAG
03876  M00S03601.1mb     +++|          LDC    FCCL+LSCD   CLEAR LCME SECDED ERROR
03877  M00S03602.1mb     +++|          RJM    ODW
03878  M00S03603.1mb     +++|          LDC    FCSB+LCRT   SET LCME RANK II CLEAR
03879  M00S03604.1mb     +++|          RJM    ODW
03880  M00S03605.1mb     +++|          LDC    FCCL+LCRT   CLEAR LCME RANK II CLEAR
03881  M00S03606.1mb     +++|          RJM    ODW
03882  M00S03607.1mb     +++|          LJM    PSBX        EXIT
03883  M00S03608.1mb     +++| TEB      SPACE  4,15
03884  M00S03609.1mb     +++|**        TEB - CLEAR TEST/ERROR BITS IN S/C.
03885  M00S03610.1mb     +++|*
03886  M00S03611.1mb     +++|*         ENTRY  (CH) = SCR CHANNEL NUMBER.
03887  M00S03612.1mb     +++|*                (MF) = MAINFRAME TYPE.
03888  M00S03613.1mb     +++|*                (CH+1) = 0, IF ONLY ONE SCR CHANNEL.
03889  M00S03614.1mb     +++|*                (TSCR) = TABLE CONTAINING COPY OF THE SCR(S).
03890  M00S03615.1mb     +++|*
03891  M00S03616.1mb     +++|*         EXIT   ERROR BITS THAT ARE SET IN *TSCR* ARE CLEARED FROM
03892  M00S03617.1mb     +++|*                THE SCR WITH THE EXCEPTION OF BIT 3.  ON A CYBER 176
03893  M00S03618.1mb     +++|*                BIT 11 IS ALSO NOT CLEARED.  BIT 3 (AND BIT 11 ON A
03894  M00S03619.1mb     +++|*                CYBER 176) IS PROCESSED IN ROUTINE *PSB*.
03895  M00S03620.1mb     +++|*

Proceed to Part 2