Deck 1MA Part 002

17 Modifications

Seq #  *Modification Id* Act 
----------------------------+
03874  M00S03732.1ma     +++|
03875  M00S03733.1ma     +++|          RJM    SDA         SET ADDRESS OF NOS REQUEST HEADER
03876  M00S03734.1ma     +++|          ADN    1
03877  M00S03735.1ma     +++|          CWD    T1          WRITE REQUEST TO BUFFER
03878  M00S03736.1ma     +++|          ADN    1
03879  M00S03737.1ma     +++|          CWD    CM
03880  M00S03738.1ma     +++|          SBN    2           READ NOS REQUEST HEADER
03881  M00S03739.1ma     +++|          CRD    CN

Seq #  *Modification Id* Act 
----------------------------+
03882  M01S03740.ns2738  ---|          LDN    STRY        SET STATUS = *READY*

Seq #  *Modification Id* Act 
----------------------------+
03883  M01S00004.ns2738  +++|          LDN    /DFT/STRY   SET STATUS = *READY*
03884  M00S03741.1ma     +++|          STD    CN+4
03885  M00S03742.1ma     +++|          RJM    SDA         SET ADDRESS OF NOS REQUEST HEADER
03886  M00S03743.1ma     +++|          CWD    CN
03887  M00S03744.1ma     +++|          LJM    FDRX        RETURN
03888  M00S03745.1ma     +++|
03889  M00S03746.1ma     +++|
03890  M00S03747.1ma     +++|*         *UTEM* REQUEST PARAMETERS.
03891  M00S03748.1ma     +++|

Seq #  *Modification Id* Act 
----------------------------+
03892  M01S03749.ns2738  ---| FDRB     VFD    1/1,5/0,6/12D,6/0,42/STIN  VERIFY INACTIVE REQUEST
03893  M01S03750.ns2738  ---|          VFD    1/0,5/0,6/12D,6/0,42/STIK  SET INTERLOCK ON REQUEST

Seq #  *Modification Id* Act 
----------------------------+
03894  M01S00005.ns2738  +++| FDRB     VFD    1/1,5/0,6/12D,6/0,42//DFT/STIN  VERIFY INACTIVE
03895  M01S00006.ns2738  +++|          VFD    1/0,5/0,6/12D,6/0,42//DFT/STIK  SET INTERLOCK
03896  M00S03751.1ma     +++| PDT      SPACE  4,10
03897  M00S03752.1ma     +++|**        PDT - PACK DATE AND TIME.
03898  M00S03753.1ma     +++|*
03899  M00S03754.1ma     +++|*         EXIT   (T1+1 - T1+4) = PACKED DATE AND TIME IN *DFT* FORMAT.
03900  M00S03755.1ma     +++|*
03901  M00S03756.1ma     +++|*         USES   CM - CM+4.
03902  M00S03757.1ma     +++|
03903  M00S03758.1ma     +++|
03904  M00S03759.1ma     +++| PDT      SUBR               ENTRY/EXIT
03905  M00S03760.1ma     +++|          LDN    DTEL        READ DISPLAY DATE
03906  M00S03761.1ma     +++|          CRD    CM
03907  M00S03762.1ma     +++|          LDD    CM          PROCESS YEAR FIELD
03908  M00S03763.1ma     +++|          LPN    77
03909  M00S03764.1ma     +++|          SBN    1R0
03910  M00S03765.1ma     +++|          SHN    10
03911  M00S03766.1ma     +++|          STD    T1+1
03912  M00S03767.1ma     +++|          LDD    CM+1
03913  M00S03768.1ma     +++|          SHN    -6
03914  M00S03769.1ma     +++|          SBN    1R0
03915  M00S03770.1ma     +++|          SHN    4
03916  M00S03771.1ma     +++|          RAD    T1+1
03917  M00S03772.1ma     +++|          LDD    CM+2        PROCESS MONTH FIELD
03918  M00S03773.1ma     +++|          SHN    -6
03919  M00S03774.1ma     +++|          SBN    1R0
03920  M00S03775.1ma     +++|          RAD    T1+1
03921  M00S03776.1ma     +++|          LDD    CM+2
03922  M00S03777.1ma     +++|          LPN    77
03923  M00S03778.1ma     +++|          SBN    1R0
03924  M00S03779.1ma     +++|          SHN    10
03925  M00S03780.1ma     +++|          STD    T1+2
03926  M00S03781.1ma     +++|          LDD    CM+3        PROCESS DAY FIELD
03927  M00S03782.1ma     +++|          LPN    77
03928  M00S03783.1ma     +++|          SBN    1R0
03929  M00S03784.1ma     +++|          SHN    4
03930  M00S03785.1ma     +++|          RAD    T1+2
03931  M00S03786.1ma     +++|          LDD    CM+4
03932  M00S03787.1ma     +++|          SHN    -6
03933  M00S03788.1ma     +++|          SBN    1R0
03934  M00S03789.1ma     +++|          RAD    T1+2
03935  M00S03790.1ma     +++|          LDN    TIML        READ DISPLAY TIME
03936  M00S03791.1ma     +++|          CRD    CM
03937  M00S03792.1ma     +++|          LDD    CM          PROCESS HOUR FIELD
03938  M00S03793.1ma     +++|          LPN    77
03939  M00S03794.1ma     +++|          SBN    1R0
03940  M00S03795.1ma     +++|          SHN    10
03941  M00S03796.1ma     +++|          STD    T1+3
03942  M00S03797.1ma     +++|          LDD    CM+1
03943  M00S03798.1ma     +++|          SHN    -6
03944  M00S03799.1ma     +++|          SBN    1R0
03945  M00S03800.1ma     +++|          SHN    4
03946  M00S03801.1ma     +++|          RAD    T1+3
03947  M00S03802.1ma     +++|          LDD    CM+2        PROCESS MINUTES FIELD
03948  M00S03803.1ma     +++|          SHN    -6
03949  M00S03804.1ma     +++|          SBN    1R0
03950  M00S03805.1ma     +++|          RAD    T1+3
03951  M00S03806.1ma     +++|          LDD    CM+2
03952  M00S03807.1ma     +++|          LPN    77
03953  M00S03808.1ma     +++|          SBN    1R0
03954  M00S03809.1ma     +++|          SHN    10
03955  M00S03810.1ma     +++|          STD    T1+4
03956  M00S03811.1ma     +++|*         LDN    0           PROCESS SECONDS FIELD
03957  M00S03812.1ma     +++|*         RAD    T1+4
03958  M00S03813.1ma     +++|          LJM    PDTX        RETURN
03959  M00S03814.1ma     +++| SDA      SPACE  4,10
03960  M00S03815.1ma     +++|**        SDA - SET NOS REQUEST HEADER ADDRESS.
03961  M00S03816.1ma     +++|*
03962  M00S03817.1ma     +++|*         EXIT   (A) = ADDRESS OF NOS REQUEST HEADER.
03963  M00S03818.1ma     +++|
03964  M00S03819.1ma     +++|
03965  M00S03820.1ma     +++| SDA      SUBR               ENTRY/EXIT
03966  M00S03821.1ma     +++| SDAA     LDC    **          (ADDRESS OF NOS REQUEST HEADER)
03967  M00S03822.1ma     +++|          UJN    SDAX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
03968  M01S00002.1ma24   +++| WDC      SPACE  4,10
03969  M01S00003.1ma24   +++|**        WDC - WAIT FOR DEADSTART COMPLETE.
03970  M01S00004.1ma24   +++|*
03971  M01S00005.1ma24   +++|*         EXIT   DEADSTART COMPLETED.
03972  M01S00006.1ma24   +++|*
03973  M01S00007.1ma24   +++|*         USES   CM - CM+4.
03974  M01S00008.1ma24   +++|*
03975  M01S00009.1ma24   +++|*         MACROS DELAY.
03976  M01S00010.1ma24   +++|
03977  M01S00011.1ma24   +++|
03978  M01S00012.1ma24   +++| WDC      SUBR               ENTRY/EXIT
03979  M01S00013.1ma24   +++| WDC1     LDK    INWL        READ INTERLOCK WORD
03980  M01S00014.1ma24   +++|          CRD    CM
03981  M01S00015.1ma24   +++|          LDD    CM+3
03982  M01S00016.1ma24   +++|          SHN    21-3
03983  M01S00017.1ma24   +++|          PJN    WDCX        IF DEADSTART SEQUENCING COMPLETE
03984  M01S00018.1ma24   +++|          DELAY  1*10        DELAY FOR ONE MILLISECOND
03985  M01S00019.1ma24   +++|          UJN    WDC1        RECHECK DEADSTART IN PROGRESS
03986  M00S03823.1ma     +++| WIB      SPACE  4,10
03987  M00S03824.1ma     +++|**        WIB - WAIT FOR INACTIVE NOS REQUEST AREA.
03988  M00S03825.1ma     +++|*
03989  M00S03826.1ma     +++|*         THIS ROUTINE IS NEEDED TO AVOID A LARGE TIME ERROR WHEN
03990  M00S03827.1ma     +++|*         *1MA* IS CALLED DURING DEADSTART, SINCE THE REQUEST BUFFER
03991  M00S03828.1ma     +++|*         WILL INITIALLY CONTAIN THE *SET*-SUPPLIED ERROR THRESHOLDS.
03992  M00S03829.1ma     +++|*
03993  M00S03830.1ma     +++|*         CALLS  SDA.
03994  M00S03831.1ma     +++|*
03995  M00S03832.1ma     +++|*         USES   CM - CM+4.
03996  M00S03833.1ma     +++|*
03997  M00S03834.1ma     +++|*         MACROS DELAY.
03998  M00S03835.1ma     +++|
03999  M00S03836.1ma     +++|
04000  M00S03837.1ma     +++| WIB      SUBR               ENTRY/EXIT
04001  M00S03838.1ma     +++| WIB1     RJM    SDA         READ NOS REQUEST HEADER
04002  M00S03839.1ma     +++|          CRD    CM
04003  M00S03840.1ma     +++|          LDD    CM+4
04004  M00S03841.1ma     +++|          ZJN    WIBX        IF NO REQUEST PRESENT
04005  M00S03842.1ma     +++|          DELAY
04006  M00S03843.1ma     +++|          UJN    WIB1        LOOP TILL REQUEST CLEARS
04007  M00S03844.1ma     +++| WMR      SPACE  4,10
04008  M00S03845.1ma     +++|**        WMR - WAIT FOR MINUTE ROLLOVER.
04009  M00S03846.1ma     +++|*
04010  M00S03847.1ma     +++|*         EXIT   MINUTE ROLLOVER HAS JUST OCCURRED.
04011  M00S03848.1ma     +++|*
04012  M00S03849.1ma     +++|*         USES   CM - CM+4.
04013  M00S03850.1ma     +++|*
04014  M00S03851.1ma     +++|*         MACROS DELAY.
04015  M00S03852.1ma     +++|
04016  M00S03853.1ma     +++|
04017  M00S03854.1ma     +++| WMR      SUBR               ENTRY/EXIT
04018  M00S03855.1ma     +++| WMR1     LDN    PDTL        READ PACKED DATE AND TIME
04019  M00S03856.1ma     +++|          CRD    CM
04020  M00S03857.1ma     +++|          LDD    CM+4        GET SECONDS
04021  M00S03858.1ma     +++|          LPN    77
04022  M00S03859.1ma     +++|          ZJN    WMRX        IF MINUTE JUST ROLLED OVER
04023  M00S03860.1ma     +++|          DELAY  1*10        DELAY FOR ONE MILLISECOND
04024  M00S03861.1ma     +++|          UJN    WMR1        RECHECK TIME
04025  M00S03862.1ma     +++|          TITLE  PRESET PROGRAM.
04026  M00S03863.1ma     +++| PRS      SPACE  4,10
04027  M00S03864.1ma     +++|**        PRS - PRESET PROGRAM.
04028  M00S03865.1ma     +++|*
04029  M00S03866.1ma     +++|*         EXIT   (SDAA) = ADDRESS OF NOS REQUEST HEADER.
04030  M00S03867.1ma     +++|
04031  M00S03868.1ma     +++|
04032  M00S03869.1ma     +++| PRS      SUBR               ENTRY/EXIT
04033  M00S03870.1ma     +++|          LDN    EIBP        LOCATE DFT/OS BUFFER
04034  M00S03871.1ma     +++|          CRD    CM
04035  M00S03872.1ma     +++|          LDD    CM+3
04036  M00S03873.1ma     +++|          SHN    14
04037  M00S03874.1ma     +++|          LMD    CM+4
04038  M00S03875.1ma     +++|          ADN    DSCM+3
04039  M00S03876.1ma     +++|          CRD    CM
04040  M00S03877.1ma     +++|          LDD    CM+2        READ *DFT* CONTROL WORD
04041  M00S03878.1ma     +++|          SHN    14
04042  M00S03879.1ma     +++|          LMD    CM+3
04043  M00S03880.1ma     +++|          SHN    -4
04044  M00S03881.1ma     +++|          SHN    6
04045  M00S03882.1ma     +++|          LMD    CM

Seq #  *Modification Id* Act 
----------------------------+
04046  M01S03883.ns2738  ---|          ADN    DFRQ        READ NOS REQUEST AREA POINTER

Seq #  *Modification Id* Act 
----------------------------+
04047  M01S00007.ns2738  +++|          ADN    /DFT/DFRQ   READ NOS REQUEST AREA POINTER
04048  M00S03884.1ma     +++|          CRD    CM
04049  M00S03885.1ma     +++|          LDD    CM+2        SET ADDRESS OF NOS REQUEST HEADER
04050  M00S03886.1ma     +++|          SHN    14
04051  M00S03887.1ma     +++|          LMD    CM+3
04052  M00S03888.1ma     +++|          SHN    -4
04053  M00S03889.1ma     +++|          SHN    6
04054  M00S03890.1ma     +++|          LMD    CM
04055  M00S03891.1ma     +++|          STM    SDAA+1      SAVE ADDRESS
04056  M00S03892.1ma     +++|          SHN    -14
04057  M00S03893.1ma     +++|          RAM    SDAA
04058  M00S03894.1ma     +++|          UJN    PRSX        RETURN
04059  M00S03895.1ma     +++|
04060  M00S03896.1ma     +++|          OVERFLOW E1MA
04061  M00S03897.1ma     +++|          OVERLAY  (LOG SOFTWARE ERROR.),E1MA
04062  M00S03898.1ma     +++|          SPACE  4,10
04063  M00S03899.1ma     +++|****      *2MG* - LOG SOFTWARE ERROR.
04064  M00S03900.1ma     +++|*
04065  M00S03901.1ma     +++|*         *2MG* LOGS A SOFTWARE ERROR.  AN ERROR LOG MESSAGE IS
04066  M00S03902.1ma     +++|*         ISSUED INDICATING THE NAME OF THE PP PROGRAM AND
04067  M00S03903.1ma     +++|*         THE ADDRESS WITHIN THE PP PROGRAM WHERE THE ERROR
04068  M00S03904.1ma     +++|*         WAS DETECTED.  AN OPERATOR ERROR LOG EVENT IS ISSUED
04069  M00S03905.1ma     +++|*         TO ALERT THE OPERATOR THAT THE ERROR LOG MESSAGE WAS ISSUED.
04070  M00S03906.1ma     +++|*         A BML MESSAGE IS ALSO ISSUED.
04071  M00S03907.1ma     +++| LCE      SPACE  4,10
04072  M00S03908.1ma     +++|***       LCE - LOG SOFTWARE ERROR.
04073  M00S03909.1ma     +++|*
04074  M00S03910.1ma     +++|*         ENTRY
04075  M00S03911.1ma     +++|*T IR     18/  *1MA*, 1/, 5/CP, 12/7, 24/ADDR

Figure IR

04076  M00S03912.1ma     +++|*         CP     CONTROL POINT NUMBER.
04077  M00S03913.1ma     +++|*         ADDR   ABSOLUTE ADDRESS OF ARGUMENTS.
04078  M00S03914.1ma     +++|*
04079  M00S03915.1ma     +++|*T ADDR   60/IL

Figure ADDR

04080  M00S03916.1ma     +++|*T,ADDR+1 6/, 6/AF, 12/PA, 24/JSN, 12/SC

Figure ADDR+1

04081  M00S03917.1ma     +++|*T,ADDR+2 60/IR

Figure ADDR+2

04082  M00S03918.1ma     +++|*T,ADDR+3 60/OR

Figure ADDR+3

04083  M00S03919.1ma     +++|*T,ADDR+4 60/MB

Figure ADDR+4

04084  M00S03920.1ma     +++|*         IL     INTERLOCK, SET BY *CPUMTR*, CLEARED BY *1MA*.
04085  M00S03921.1ma     +++|*         AF     ABORT FLAG.
04086  M00S03922.1ma     +++|*                0 - NO USER JOB IMPACT.
04087  M00S03923.1ma     +++|*                1 - JOB STEP ABORTED.
04088  M00S03924.1ma     +++|*                2 - JOB ABORTED.
04089  M00S03925.1ma     +++|*                3 - PP HUNG.
04090  M00S03926.1ma     +++|*         PA     ADDRESS IN PP PROGRAM WHERE ERROR DETECTED.
04091  M00S03927.1ma     +++|*         JSN    JSN OF JOB PP ASSIGNED TO OR ZERO.
04092  M00S03928.1ma     +++|*         SC     JOB SERVICE CLASS.(ONE DISPLAY CHARACTER SERVICE CODE)
04093  M00S03929.1ma     +++|*         IR     INPUT REGISTER OF PP THAT DETECTED ERROR.
04094  M00S03930.1ma     +++|*         OR     OUTPUT REGISTER OF PP THAT DETECTED ERROR.
04095  M00S03931.1ma     +++|*         MB     FIRST WORD OF MESSAGE BUFFER OF PP THAT
04096  M00S03932.1ma     +++|*                DETECTED ERROR.
04097  M00S03933.1ma     +++|*
04098  M00S03934.1ma     +++|*         USES   CM - CM+4, CN - CN+4.
04099  M00S03935.1ma     +++|*
04100  M00S03936.1ma     +++|*         CALLS  C2D, DFM.
04101  M00S03937.1ma     +++|*
04102  M00S03938.1ma     +++|*         MACROS MONITOR.
04103  M00S03939.1ma     +++|
04104  M00S03940.1ma     +++|
04105  M00S03941.1ma     +++| LCE      SUBR               ENTRY/EXIT
04106  M00S03942.1ma     +++|          LDN    ZERL
04107  M00S03943.1ma     +++|          CRD    CM
04108  M00S03944.1ma     +++|          LDD    IR+3        GET ADDRESS OF ARGUMENTS
04109  M00S03945.1ma     +++|          SHN    14
04110  M00S03946.1ma     +++|          LMD    IR+4
04111  M00S03947.1ma     +++|          ADN    1
04112  M00S03948.1ma     +++|          CRD    CN          GET ARGUMENTS
04113  M00S03949.1ma     +++|          CRM    LCEB+5,ON
04114  M00S03950.1ma     +++|          CRM    LCEB+2*5,TR
04115  M00S03951.1ma     +++|          SBN    5
04116  M00S03952.1ma     +++|          CWD    CM          CLEAR BUFFER INTERLOCK
04117  M00S03953.1ma     +++|
04118  M00S03954.1ma     +++|*         FORM *ERRLOG* MESSAGE.
04119  M00S03955.1ma     +++|
04120  M00S03956.1ma     +++|          LDM    LCEB+2*5+1  STORE PP PROGRAM NAME
04121  M00S03957.1ma     +++|          SCN    77
04122  M00S03958.1ma     +++|          SHN    6
04123  M00S03959.1ma     +++|          ADM    LCEB+2*5
04124  M00S03960.1ma     +++|          SHN    6
04125  M00S03961.1ma     +++|          STM    LCEA+1*5+1
04126  M00S03962.1ma     +++|          SHN    -14
04127  M00S03963.1ma     +++|          LMC    5500
04128  M00S03964.1ma     +++|          STM    LCEA+5
04129  M00S03965.1ma     +++|          LDD    CN+1        STORE P ADDRESS
04130  M00S03966.1ma     +++|          SHN    -6
04131  M00S03967.1ma     +++|          RJM    C2D         CONVERT TO DISPLAY CODE
04132  M00S03968.1ma     +++|          STM    LCEA+1*5+3
04133  M00S03969.1ma     +++|          LDD    CN+1
04134  M00S03970.1ma     +++|          RJM    C2D         CONVERT TO DISPLAY CODE
04135  M00S03971.1ma     +++|          STM    LCEA+1*5+4
04136  M00S03972.1ma     +++|          LDD    CN+2
04137  M00S03973.1ma     +++|          ZJN    LCE1        IF NO JSN SUPPLIED
04138  M00S03974.1ma     +++|          STM    LCEA        STORE JSN IN ERROR LOG MESSAGE
04139  M00S03975.1ma     +++|          LDD    CN+3
04140  M00S03976.1ma     +++|          STM    LCEA+1
04141  M00S03977.1ma     +++|          LDD    CN+4        STORE SERVICE CLASS
04142  M00S03978.1ma     +++|          STM    LCEA+4
04143  M00S03979.1ma     +++| LCE1     LDC    LCEA+EJNN
04144  M00S03980.1ma     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE TO ERROR LOG
04145  M00S03981.1ma     +++|*         LDN    0           ISSUE ERROR LOG EVENT
04146  M00S03982.1ma     +++|          STD    CM+1
04147  M00S03983.1ma     +++|          STD    CM+3
04148  M00S03984.1ma     +++|          LDN    ELAE
04149  M00S03985.1ma     +++|          STD    CM+4
04150  M00S03986.1ma     +++|          MONITOR  EATM
04151  M00S03987.1ma     +++|          LDN    LCEBL       SET LENGTH OF BML MESSAGE
04152  M00S03988.1ma     +++|          STD    CM+1
04153  M00S03989.1ma     +++|          LDC    LCEB+BMLN
04154  M00S03990.1ma     +++|          RJM    DFM         ISSUE MESSAGE TO BML
04155  M00S03991.1ma     +++|          LJM    LCEX        RETURN
04156  M00S03992.1ma     +++|
04157  M00S03993.1ma     +++| LCEA     VFD    24/4L"SJSN",24/-0,12/SYSC
04158  M00S03994.1ma     +++|          DATA     C* PPN P0000 SYSTEM ERROR.*
04159  M00S03995.1ma     +++|
04160  M00S03996.1ma     +++| LCEB     CON    /COMSDFS/SM0411  BML MESSAGE BUFFER
04161  M00S03997.1ma     +++|          CON    /COMSDFS/SS0100
04162  M00S03998.1ma     +++|          CON    0,0,0
04163  M00S03999.1ma     +++|          BSS    5           ARGUMENTS
04164  M00S04000.1ma     +++|          BSS    5           *IR* OF PP THAT DETECTED ERROR
04165  M00S04001.1ma     +++|          BSS    5           *OR* OF PP THAT DETECTED ERROR
04166  M00S04002.1ma     +++|          BSS    5           FIRST WORD OF MESSAGE BUFFER
04167  M00S04003.1ma     +++| LCEBL    EQU    *-LCEB      LENGTH OF BML MESSAGE
04168  M00S04004.1ma     +++|          SPACE  4,10
04169  M00S04005.1ma     +++|**        COMMON DECKS.
04170  M00S04006.1ma     +++|
04171  M00S04007.1ma     +++|
04172  M00S04008.1ma     +++|
04173  M00S04009.1ma     +++|*CALL     COMPC2D
04174  M00S04010.1ma     +++|
04175  M00S04011.1ma     +++|          SPACE 4,15
04176  M00S04012.1ma     +++|          OVERLAY (CPP REQUEST PROCESSORS.),E1MA
04177  M00S04013.1ma     +++|          SPACE  4,10
04178  M00S04014.1ma     +++|****      *2MH* - CPP REQUEST PROCESSORS.
04179  M00S04015.1ma     +++|*
04180  M00S04016.1ma     +++|*         *2MH* PROCESSES THE *1MA* FUNCTIONS FOR CONCURRENT PP-S.
04181  M00S04017.1ma     +++|*
04182  M00S04018.1ma     +++|*         ENTRY
04183  M00S04019.1ma     +++|*T IR     18/  *1MA*,1/,5/ CP,12/ FUNC,12/,12/ IA

Figure IR

04184  M00S04020.1ma     +++|*         CP     SYSTEM CONTROL POINT NUMBER.
04185  M00S04021.1ma     +++|*         FUNC   FUNCTION CODE.
04186  M00S04022.1ma     +++|*                10 = LOAD CPP RESIDENT.
04187  M00S04023.1ma     +++|*                11 = LOAD OVERLAY FOR CPP.
04188  M00S04024.1ma     +++|*                12 = IDLE CPP.
04189  M00S04025.1ma     +++|*         IA     CPP INPUT REGISTER ADDRESS.
04190  M00S04026.1ma     +++| DIRECT   SPACE  4,10
04191  M00S04027.1ma     +++|**        DIRECT CELLS.
04192  M00S04028.1ma     +++|
04193  M00S04029.1ma     +++|
04194  M00S04030.1ma     +++| CC       EQU    FN          CPP-S CONTROL POINT ADDRESS
04195  M00S04031.1ma     +++| DA       EQU    FN+1        TEMPORARY USED BY *LPR*
04196  M00S04032.1ma     +++| DB       EQU    FN+2        TEMPORARY USED BY *LPR*
04197  M00S04033.1ma     +++| EC       EQU    FN+3        C180 IOU CONNECT CODE
04198  M00S04034.1ma     +++| NC       EQU    FN+4        NUMBER OF CPP-S
04199  M00S04035.1ma     +++| NP       EQU    FS          NUMBER OF NPP-S
04200  M00S04036.1ma     +++| PC       EQU    FS+1        FWA OF PP COMMUNICATION AREA FOR CPP 0
04201  M00S04037.1ma     +++| PN       EQU    FS+2        THE NUMBER OF THE CPP
04202  M00S04038.1ma     +++| PP       EQU    FS+3        FWA OF PP COMMUNICATION AREA
04203  M00S04039.1ma     +++| RN       EQU    FS+4        C180 REGISTER NUMBER

Seq #  *Modification Id* Act 
----------------------------+
04204  M01S04040.ns2711  ---| CPP      SPACE 4,10

Seq #  *Modification Id* Act 
----------------------------+
04205  M01S00001.ns2711  +++| COMMON   SPACE  4,10
04206  M01S00002.ns2711  +++|*         COMMON DECKS.
04207  M01S00003.ns2711  +++|
04208  M01S00004.ns2711  +++|
04209  M01S00005.ns2711  +++| QUAL$    EQU    1           DO NOT QUALIFY COMMON DECKS
04210  M01S00006.ns2711  +++|

Seq #  *Modification Id* Act 
----------------------------+
04211  M01S00002.273l780 +++|*CALL     COMPIOU

Seq #  *Modification Id* Act 
----------------------------+
04212  M01S00007.ns2711  +++|*CALL     COMPMRM
04213  M01S00008.ns2711  +++|*CALL     COMSDFS
04214  M01S00009.ns2711  +++|*CALL     COMSIOU
04215  M01S00010.ns2711  +++| CPP      SPACE 4,30
04216  M00S04041.1ma     +++|**        CPP - CONCURRENT PP PROCESSOR.
04217  M00S04042.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04218  M01S04043.ns2711  ---|*         *CPP* VERIFIES THE REQUEST, INITIALIZES DIRECT CELLS, AND

Seq #  *Modification Id* Act 
----------------------------+
04219  M01S00011.ns2711  +++|*         *CPP* VERIFIES THE REQUEST, INITIALIZES MEMORY CELLS, AND
04220  M00S04044.1ma     +++|*         CALLS THE APPROPRIATE PROCESSOR.
04221  M00S04045.1ma     +++|*
04222  M00S04046.1ma     +++|*         ENTRY  (IR - IR+4) = REQUEST.
04223  M00S04047.1ma     +++|*                (CN - CN+4) = OVERLAY LOAD PARAMETERS.
04224  M00S04048.1ma     +++|*
04225  M00S04049.1ma     +++|*         EXIT - TO CORRECT CPP SUBPROCESSOR.

Seq #  *Modification Id* Act 
----------------------------+
04226  M01S04050.ns2711  ---|*                TO *CHG* TO HANG THE PP IF INCORRECT CPP FIELD.

Seq #  *Modification Id* Act 
----------------------------+
04227  M01S00012.ns2711  +++|*                (CC) = CONTROL POINT AREA ADDRESS OF CALLER.
04228  M01S00013.ns2711  +++|*                (EC) = IOU CONNECT CODE.
04229  M01S00014.ns2711  +++|*                (NC) = NUMBER OF CIO PP-S.
04230  M01S00015.ns2711  +++|*                (NP) = NUMBER OF NIO PP-S.
04231  M01S00016.ns2711  +++|*                (PC) = PP COMMUNICATION AREA ADDRESS FOR FIRST CIO PP.
04232  M01S00017.ns2711  +++|*                (PN) = CIO PP NUMBER.
04233  M01S00018.ns2711  +++|*                (PP) = PP COMMUNICATION AREA ADDRESS FOR FIRST NIO PP.
04234  M01S00019.ns2711  +++|*                (CPPA) = ENVIRONMENTAL CONTROL REGISTER NUMBER.
04235  M01S00020.ns2711  +++|*                (CPPB) = STATUS REGISTER NUMBER.
04236  M01S00021.ns2711  +++|*                (CPPC) = BIASED CIO PP NUMBER.
04237  M01S00022.ns2711  +++|*                (CPPD) = IOU MODEL NUMBER.
04238  M01S00023.ns2711  +++|*
04239  M01S00024.ns2711  +++|*         ERROR  TO *CHG* TO HANG THE PP IF INCORRECT CPP FIELD.
04240  M00S04051.1ma     +++|*
04241  M00S04052.1ma     +++|*         USES   CC, EC, NC, NP, PC, PN, PP, CM - CM+4, CN - CN+4.
04242  M00S04053.1ma     +++|*
04243  M00S04054.1ma     +++|*         CALLS  AIC, CHG, DPL, SPB.
04244  M00S04055.1ma     +++|
04245  M00S04056.1ma     +++|
04246  M00S04057.1ma     +++| CPP      SUBR               ENTRY/EXIT
04247  M00S04058.1ma     +++|          LDD    MA          SAVE LOAD PARAMETERS
04248  M00S04059.1ma     +++|          CWD    CN
04249  M00S04060.1ma     +++|          LDN    PPCP        GET PP COMMUNICATION AREA ADDRESS
04250  M00S04061.1ma     +++|          CRD    CM
04251  M00S04062.1ma     +++|          ADK    EABL+IOEI-PPCP  GET IOU CONNECT CODE
04252  M00S04063.1ma     +++|          CRD    CN
04253  M00S04064.1ma     +++|          LDD    CM+4
04254  M00S04065.1ma     +++|          STD    PP          SET PP COMMUNICATION AREA ADDRESS
04255  M00S04066.1ma     +++|          LDD    CN+3
04256  M00S04067.1ma     +++|          STD    EC          SET IOU CONNECT CODE
04257  M00S04068.1ma     +++|          LDN    PPUL        GET NUMBER OF PP-S AND CPP-S

Seq #  *Modification Id* Act 
----------------------------+
04258  M01S04069.ns2711  ---|          CRD    CN
04259  M01S04070.ns2711  ---|          LDD    CN+3        VALIDATE THAT CPP-S ARE PRESENT

Seq #  *Modification Id* Act 
----------------------------+
04260  M01S00025.ns2711  +++|          CRD    CM
04261  M01S00026.ns2711  +++|          LDD    CM+3        VALIDATE THAT CPP-S ARE PRESENT
04262  M00S04071.1ma     +++|          LPN    77
04263  M00S04072.1ma     +++|          ZJN    CPP1        IF NO CPP-S
04264  M00S04073.1ma     +++|          STD    NC          SET NUMBER OF CPPS

Seq #  *Modification Id* Act 
----------------------------+
04265  M01S04074.ns2711  ---|          LDD    CN+2

Seq #  *Modification Id* Act 
----------------------------+
04266  M01S00027.ns2711  +++|          LDD    CM+2
04267  M00S04075.1ma     +++|          STD    NP
04268  M00S04076.1ma     +++|          SHN    3
04269  M00S04077.1ma     +++|          ADD    PP
04270  M00S04078.1ma     +++|          STD    PC          SET ADDRESS OF FIRST CPP
04271  M00S04079.1ma     +++|          LDD    IR+4

Seq #  *Modification Id* Act 
----------------------------+
04272  M01S04080.ns2711  ---|          CRD    CN          READ CPP-S INPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
04273  M01S00028.ns2711  +++|          CRD    CM          READ CPP-S INPUT REGISTER
04274  M00S04081.1ma     +++|          SBD    PC

Seq #  *Modification Id* Act 
----------------------------+
04275  M01S04082.ns2711  ---|          MJN    CPP3        IF NOT A CPP INPUT REGISTER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04276  M01S00029.ns2711  +++|          MJN    CPP1        IF NOT A CPP INPUT REGISTER ADDRESS
04277  M00S04083.1ma     +++|          SHN    -3
04278  M00S04084.1ma     +++|          STD    PN          SET THE CPP NUMBER
04279  M00S04085.1ma     +++|          SBD    NC

Seq #  *Modification Id* Act 
----------------------------+
04280  M01S04086.ns2711  ---| CPP1     PJN    CPP3        IF NOT A VALID CPP
04281  M01S04087.ns2711  ---|          LDD    CN+1        SET CONTROL POINT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04282  M01S00030.ns2711  +++|          MJN    CPP1.1      IF A VALID CPP
04283  M01S00031.ns2711  +++| CPP1     LJM    CPP3        CONDITIONALLY HANG PP
04284  M01S00032.ns2711  +++|
04285  M01S00033.ns2711  +++| CPP1.1   LDD    CM+1        SET CONTROL POINT ADDRESS
04286  M00S04088.1ma     +++|          LPN    37
04287  M00S04089.1ma     +++|          SHN    7
04288  M00S04090.1ma     +++|          STD    CC

Seq #  *Modification Id* Act 
----------------------------+
04289  M01S00034.ns2711  +++|          LDK    ECCR        SET ENVIRONMENTAL CONTROL REGISTER NUMBER
04290  M01S00035.ns2711  +++|          STM    CPPA
04291  M01S00036.ns2711  +++|          ADK    SRCR-ECCR   SET STATUS REGISTER NUMBER
04292  M01S00037.ns2711  +++|          STM    CPPB
04293  M01S00038.ns2711  +++|          LDD    PN          SET CIO PP NUMBER
04294  M01S00039.ns2711  +++|          STM    CPPC
04295  M01S00040.ns2711  +++|          LDD    CN+1
04296  M01S00041.ns2711  +++|          SCN    77
04297  M01S00042.ns2711  +++|          SHN    6
04298  M01S00043.ns2711  +++|          LMD    CN
04299  M01S00044.ns2711  +++|          SHN    6
04300  M01S00045.ns2711  +++|          CRD    CN          GET IOU MODEL NUMBER
04301  M01S00046.ns2711  +++|          LDD    CN+2
04302  M01S00047.ns2711  +++|          SHN    -4
04303  M01S00048.ns2711  +++|          STM    CPPD
04304  M01S00049.ns2711  +++|          LMC    0#42
04305  M01S00050.ns2711  +++|          NJN    CPP1.2      IF NOT MODEL 42 IOU
04306  M01S00051.ns2711  +++|          LDK    DEMR        SET ENVIRONMENTAL CONTROL REGISTER NUMBER
04307  M01S00052.ns2711  +++|          STM    CPPA
04308  M01S00053.ns2711  +++|          ADK    ISTR-DEMR   SET STATUS REGISTER NUMBER
04309  M01S00054.ns2711  +++|          STM    CPPB
04310  M01S00055.ns2711  +++|          LDN    30          BIAS CIO PP NUMBER
04311  M01S00056.ns2711  +++|          RAM    CPPC
04312  M00S04091.1ma     +++|
04313  M00S04092.1ma     +++|*         CALCULATE CPP SUBFUNCTION AND PROCESS IT.
04314  M00S04093.1ma     +++|

Seq #  *Modification Id* Act 
----------------------------+
04315  M01S04094.ns2711  ---|          LDD    IR+2

Seq #  *Modification Id* Act 
----------------------------+
04316  M01S00057.ns2711  +++| CPP1.2   LDD    IR+2
04317  M00S04095.1ma     +++|          SBN    11B
04318  M00S04096.1ma     +++|          PJN    CPP2        IF NOT DEADSTART A CPP AND LOAD *PPR*
04319  M00S04097.1ma     +++|          LDD    PN          PP NUMBER
04320  M00S04098.1ma     +++|          LMC    10000
04321  M00S04099.1ma     +++|          RJM    SPB         SET LOWER PP BIT
04322  M00S04100.1ma     +++|          RJM    DPL         DEADSTART PP AND LOAD *PPR*
04323  M00S04101.1ma     +++|          UJN    CPP4        RETURN
04324  M00S04102.1ma     +++|
04325  M00S04103.1ma     +++| CPP2     NJN    CPP5        IF NOT LOAD CPP OVERLAY REQUEST
04326  M00S04104.1ma     +++|          RJM    LOV         LOAD CPP OVERLAY
04327  M00S04105.1ma     +++|          UJN    CPP4        RETURN
04328  M00S04106.1ma     +++|
04329  M00S04107.1ma     +++| CPP3     RJM    CHG         CONDITIONALLY HANG THE PP
04330  M00S04108.1ma     +++| CPP4     LJM    CPPX        RETURN
04331  M00S04109.1ma     +++|
04332  M00S04110.1ma     +++| CPP5     RJM    AIC         ATTEMPT TO IDLE THE CPP
04333  M00S04111.1ma     +++|          NJN    CPP3        IF PP NOT IDLED
04334  M00S04112.1ma     +++|          LDN    ZERL        CLEAR INPUT AND OUTPUT REGISTERS
04335  M00S04113.1ma     +++|          CRD    CN
04336  M00S04114.1ma     +++|          LDD    IR+4
04337  M00S04115.1ma     +++|          CWM    CN,ON
04338  M00S04116.1ma     +++|          CWD    CN
04339  M00S04117.1ma     +++|          UJN    CPP4        RETURN

Seq #  *Modification Id* Act 
----------------------------+
04340  M01S04118.ns2711  ---| COMMON   SPACE  4,10
04341  M01S04119.ns2711  ---|**        COMMON DECKS.
04342  M00S04120.1ma     +++|
04343  M00S04121.1ma     +++|

Seq #  *Modification Id* Act 
----------------------------+
04344  M01S04122.ns2711  ---| QUAL$    EQU    1
04345  M01S04123.ns2711  ---|*CALL     COMPC2D
04346  M01S04124.ns2711  ---|*CALL     COMPMRM
04347  M01S04125.ns2711  ---|*CALL     COMSIOU
04348  M01S04126.ns2711  ---|*CALL     COMSDFS
04349  M01S04127.ns2711  ---| DPL      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
04350  M01S00058.ns2711  +++| CPPA     CON    0           ENVIRONMENTAL CONTROL REGISTER NUMBER
04351  M01S00059.ns2711  +++| CPPB     CON    0           STATUS REGISTER NUMBER
04352  M01S00060.ns2711  +++| CPPC     CON    0           BIASED CIO PP NUMBER
04353  M01S00061.ns2711  +++| CPPD     CON    0           IOU MODEL NUMBER
04354  M01S00062.ns2711  +++| DPL      SPACE  4,20
04355  M00S04128.1ma     +++|**        DPL - DEADSTART PP AND LOAD *PPR*.
04356  M00S04129.1ma     +++|*
04357  M00S04130.1ma     +++|*         ENTRY  (IR+4) = ADDRESS OF CPP COMMUNICATION AREA.

Seq #  *Modification Id* Act 
----------------------------+
04358  M01S04131.ns2711  ---|*                (PN) = PP NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
04359  M01S00063.ns2711  +++|*                (CPPA) = ENVIRONMENTAL CONTROL REGISTER NUMBER.
04360  M01S00064.ns2711  +++|*                (CPPC) = BIASED PP NUMBER.
04361  M00S04132.1ma     +++|*                (EC) = ELEMENT CONNECT CODE.
04362  M00S04133.1ma     +++|*                (PP) = PP COMMUNICATION AREA ADDRESS.
04363  M00S04134.1ma     +++|*                *PPR* AT PBUF.
04364  M00S04135.1ma     +++|*
04365  M00S04136.1ma     +++|*         EXIT   IF UNABLE TO COMPLETE DEADSTART/LOAD, THE CPP IS IDLED
04366  M00S04137.1ma     +++|*                AND ITS INPUT REGISTER SET TO ***.  ALSO A BML MESSAGE
04367  M00S04138.1ma     +++|*                ISSUED WITH THE CPP NUMBER AND THE REASON FOR THE
04368  M00S04139.1ma     +++|*                FAILURE.
04369  M00S04140.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04370  M01S04141.ns2711  ---|*         USES   DA, T6, CM - CM+4, CN - CN+4.

Seq #  *Modification Id* Act 
----------------------------+
04371  M01S00065.ns2711  +++|*         USES   DA, RN, T6, CM - CM+4, CN - CN+4.
04372  M00S04142.1ma     +++|*
04373  M00S04143.1ma     +++|*         CALLS  AIC, AMA, IEM, NEC, RMA, SCU.
04374  M00S04144.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04375  M01S04145.273l780 ---|*         MACROS DELAY, LOCKMR, MONITOR, PAUSE, READMR, WRITMR.

Seq #  *Modification Id* Act 
----------------------------+
04376  M01S00003.273l780 +++|*         MACROS DELAY, LOCKMR, PAUSE, READMR, WRITMR.
04377  M00S04146.1ma     +++|
04378  M00S04147.1ma     +++|
04379  M00S04148.1ma     +++| DPL6     RJM    RMA         RELEASE MULTIPLEXER ACCESS
04380  M00S04149.1ma     +++|          LDN    0           CLEAR CHANNEL ASSIGNED FLAG
04381  M00S04150.1ma     +++|          STM    CHFL
04382  M00S04151.1ma     +++|
04383  M00S04152.1ma     +++| DPL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
04384  M01S04153.273l780 ---|          LDN    3           BUILD *CPRM* FUNCTION
04385  M01S04154.273l780 ---|          STD    CM+1
04386  M00S04155.1ma     +++|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
04387  M01S04156.273l780 ---|          STD    CM+2
04388  M01S04157.273l780 ---|          STD    CM+3
04389  M00S04158.1ma     +++|          STD    DA          INITIALIZE DEADSTART/LOAD ATTEMPT COUNT
04390  M00S04159.1ma     +++|          LDD    IR+4

Seq #  *Modification Id* Act 
----------------------------+
04391  M01S04160.273l780 ---|          STD    CM+4
04392  M00S04161.1ma     +++|          STM    PBUF+IA     SET UP *IA*, *OA*, *MA*, *CP* FOR THIS PP
04393  M00S04162.1ma     +++|          ADN    1
04394  M00S04163.1ma     +++|          STM    PBUF+OA
04395  M00S04164.1ma     +++|          ADN    1
04396  M00S04165.1ma     +++|          STM    PBUF+MA
04397  M00S04166.1ma     +++|          LDD    CC          SET CONTROL POINT ADDRESS
04398  M00S04167.1ma     +++|          STM    PBUF+CP

Seq #  *Modification Id* Act 
----------------------------+
04399  M01S04168.273l780 ---|          MONITOR  CPRM      ADD CPP TO REQUESTER-S CONTROL POINT
04400  M00S04169.1ma     +++| DPL1     RJM    AMA         ACCESS MULTIPLEXER CHANNEL
04401  M00S04170.1ma     +++|
04402  M00S04171.1ma     +++|*         DEADSTART PP.
04403  M00S04172.1ma     +++|
04404  M00S04173.1ma     +++|          LOCKMR SET         SET LONG TERM INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
04405  M01S04174.ns2711  ---|          READMR RBUF,,ECCR  READ EC REGISTER

Seq #  *Modification Id* Act 
----------------------------+
04406  M01S00066.ns2711  +++|          LDM    CPPA        SET EC REGISTER NUMBER
04407  M01S00067.ns2711  +++|          STD    RN
04408  M01S00068.ns2711  +++|          READMR RBUF        READ EC REGISTER
04409  M00S04175.1ma     +++|          LDM    RBUF+4      SET PP NUMBER

Seq #  *Modification Id* Act 
----------------------------+
04410  M01S04176.ns2711  ---|          SCN    17
04411  M01S04177.ns2711  ---|          LMD    PN

Seq #  *Modification Id* Act 
----------------------------+
04412  M01S00069.ns2711  +++|          SCN    37
04413  M01S00070.ns2711  +++|          LMM    CPPC
04414  M00S04178.1ma     +++|          STM    RBUF+4
04415  M00S04179.1ma     +++|          LDM    RBUF+5      SET CHANNEL NUMBER

Seq #  *Modification Id* Act 
----------------------------+
04416  M01S04180.ns2711  ---|          SCN    17

Seq #  *Modification Id* Act 
----------------------------+
04417  M01S00071.ns2711  +++|          SCN    37
04418  M00S04181.1ma     +++|          LMN    MX
04419  M00S04182.1ma     +++|          STM    RBUF+5
04420  M00S04183.1ma     +++|          LDM    RBUF+6      SET LOAD MODE BIT
04421  M00S04184.1ma     +++|          SCN    37
04422  M00S04185.1ma     +++|          LMN    20
04423  M00S04186.1ma     +++|          STM    RBUF+6
04424  M00S04187.1ma     +++|          LDM    RBUF+7      SET ENABLE BIT
04425  M00S04188.1ma     +++|          SCN    40
04426  M00S04189.1ma     +++|          LMN    40
04427  M00S04190.1ma     +++|          STM    RBUF+7

Seq #  *Modification Id* Act 
----------------------------+
04428  M01S04191.ns2711  ---|          WRITMR RBUF,,ECCR  WRITE EC REGISTER

Seq #  *Modification Id* Act 
----------------------------+
04429  M01S00072.ns2711  +++|          WRITMR RBUF        WRITE EC REGISTER
04430  M00S04192.1ma     +++|          LOCKMR CLEAR
04431  M00S04193.1ma     +++|          RJM    NEC         NORMALIZE EC REGISTER
04432  M00S04194.1ma     +++|
04433  M00S04195.1ma     +++|*         LOAD *PPR*.
04434  M00S04196.1ma     +++|
04435  M00S04197.1ma     +++|          LDC    MSFW+1      OUTPUT START ADDRESS
04436  M00S04198.1ma     +++|          OAN    MX+40
04437  M00S04199.1ma     +++|          DELAY
04438  M00S04200.1ma     +++|          LDN    1           *CPP NOT RESPONDING*
04439  M00S04201.1ma     +++|          FJM    DPL4,MX     IF WORD NOT ACCEPTED ON CHANNEL
04440  M00S04202.1ma     +++|
04441  M00S04203.1ma     +++|          LDK    .BLI-1      OUTPUT UP TO *.BLI* ENTRY POINT
04442  M00S04204.1ma     +++|          OAM    PBUF+1,MX
04443  M00S04205.1ma     +++|
04444  M00S04206.1ma     +++|          LDM    PBUF+.BLI   MAKE (*.BLI*) A LONG INSTRUCTION
04445  M00S04207.1ma     +++|          LMC    1S15
04446  M00S04208.1ma     +++|          OAN    MX+40
04447  M00S04209.1ma     +++|
04448  M00S04210.1ma     +++|          LDK    PBUFL-.BLI-1  OUTPUT THE REST OF *PPR*
04449  M00S04211.1ma     +++|          OAM    PBUF+.BLI+1,MX
04450  M00S04212.1ma     +++|          DELAY
04451  M00S04213.1ma     +++|          LDN    2           *CPP HUNG ON INPUT*
04452  M00S04214.1ma     +++|          FJM    DPL4,MX     IF CHANNEL STILL FULL
04453  M00S04215.1ma     +++|          LDN    3           *CHANNEL 15 PARITY ERROR*
04454  M00S04216.1ma     +++|          SFM    DPL4,MX     IF PARITY ERRORS
04455  M00S04217.1ma     +++|          DCN    MX+40       DISCONNECT CHANNEL TO START PP
04456  M00S04218.1ma     +++|
04457  M00S04219.1ma     +++|*         WAIT FOR PP TO INITIALIZE.
04458  M00S04220.1ma     +++|*
04459  M00S04221.1ma     +++|*         NOTE - THE DELAY MUST BE LONG ENOUGH TO ALLOW *PPR*
04460  M00S04222.1ma     +++|*         PRESET TO COMPLETE.
04461  M00S04223.1ma     +++|
04462  M00S04224.1ma     +++|          LDD    TH          SET DELAY LOOP COUNT
04463  M00S04225.1ma     +++|          STD    T6
04464  M00S04226.1ma     +++| DPL2     PAUSE  NE
04465  M00S04227.1ma     +++|          DELAY
04466  M00S04228.1ma     +++|          SOD    T6
04467  M00S04229.1ma     +++|          ZJN    DPL3        IF TIME OUT
04468  M00S04230.1ma     +++|          LDD    IR+4        CHECK PP OUTPUT REGISTER
04469  M00S04231.1ma     +++|          ADN    1
04470  M00S04232.1ma     +++|          CRD    CN
04471  M00S04233.1ma     +++|          SOD    CN
04472  M00S04234.1ma     +++|          ZJN    DPL2        IF *PLL* HAS NOT RUN
04473  M00S04235.1ma     +++|          LJM    DPL6        RETURN
04474  M00S04236.1ma     +++|
04475  M00S04237.1ma     +++|*         PROCESS DEADSTART ERROR CONDITIONS.
04476  M00S04238.1ma     +++|
04477  M00S04239.1ma     +++| DPL3     LDN    4           *PPR PRESET TIMEOUT*
04478  M00S04240.1ma     +++| DPL4     STM    DPLA+2,DA   SAVE THE ERROR CODE
04479  M00S04241.1ma     +++|          RJM    AIC         ATTEMPT TO IDLE THE CPP
04480  M00S04242.1ma     +++|          RAD    DA          INHIBIT RETRY IF IDLE FAILED
04481  M00S04243.1ma     +++|          RJM    RMA         RELEASE MULTIPLEXER ACCESS
04482  M00S04244.1ma     +++|          AOD    DA          INCREMENT RETRY COUNT
04483  M00S04245.1ma     +++|          SBN    10
04484  M00S04246.1ma     +++|          MJP    DPL1        IF DEADSTART IS TO BE RETRIED
04485  M00S04247.1ma     +++|          NJN    DPL5        IF IDLE FAILED
04486  M00S04248.1ma     +++|          RJM    SCU         SET CPP UNAVAILABLE
04487  M00S04249.1ma     +++| DPL5     RJM    IEM         ISSUE ERROR MESSAGE
04488  M00S04250.1ma     +++|          LJM    DPLX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
04489  M01S04251.ns2711  ---| DPL      SPACE  4,15
04490  M01S04252.ns2711  ---|

Seq #  *Modification Id* Act 
----------------------------+
04491  M01S00073.ns2711  +++| DPLA     SPACE  4,15
04492  M00S04253.1ma     +++|**        DPLA - FAILURE CODE BUFFER.
04493  M00S04254.1ma     +++|*
04494  M00S04255.1ma     +++|*         EACH TIME THAT A DEADSTART ATTEMPT FAILS, THE FAILURE CODE IS
04495  M00S04256.1ma     +++|*         SAVED IN *DPLA*.  IF THE RETRY COUNT IS EXCEEDED AND A BML
04496  M00S04257.1ma     +++|*         MESSAGE IS WRITTEN, THE FAILURE CODES WILL BE INCLUDED IN THE
04497  M00S04258.1ma     +++|*         MESSAGE.  THE CODES HAVE THE FOLLOWING MEANINGS.
04498  M00S04259.1ma     +++|*
04499  M00S04260.1ma     +++|*         1      CPP NOT RESPONDING.  IT IS NOT READING PP RESIDENT.
04500  M00S04261.1ma     +++|*         2      CPP HUNG ON INPUT.  IT HAS NOT FINISHED READING.
04501  M00S04262.1ma     +++|*         3      CHANNEL 15 PARITY ERROR.
04502  M00S04263.1ma     +++|*         4      PPR PRESET TIMEOUT.  PP RESIDENT IS HUNG IN PRESET.
04503  M00S04264.1ma     +++|
04504  M00S04265.1ma     +++|
04505  M00S04266.1ma     +++| DPLA     BSSZ   2+10B       FAILURE CODE BUFFER
04506  M00S04267.1ma     +++| AIC      SPACE  4,10
04507  M00S04268.1ma     +++|**        AIC - ATTEMPT TO IDLE THE CPP.
04508  M00S04269.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04509  M01S04270.ns2711  ---|*         ENTRY  (PN) = PP NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
04510  M01S00074.ns2711  +++|*         ENTRY  (CPPC) = BIASED PP NUMBER.
04511  M00S04271.1ma     +++|*
04512  M00S04272.1ma     +++|*         EXIT   (A) = 0 IF PP IDLED.

Seq #  *Modification Id* Act 
----------------------------+
04513  M01S04273.ns2711  ---|*                    .LT. 0 IF UNABLE TO IDLE.

Seq #  *Modification Id* Act 
----------------------------+
04514  M01S00075.ns2711  +++|*                (A) .LT. 0 IF UNABLE TO IDLE PP.
04515  M01S00076.ns2711  +++|*
04516  M00S04274.1ma     +++|*         CALLS  IPP.
04517  M00S04275.1ma     +++|
04518  M00S04276.1ma     +++|
04519  M00S04277.1ma     +++| AIC      SUBR               ENTRY/EXIT
04520  M00S04278.1ma     +++|          LDN    6           IDLE AND K REGISTER BITS
04521  M00S04279.1ma     +++|          RJM    IPP         IDLE PP
04522  M00S04280.1ma     +++|          LDN    16          DUMP, IDLE AND K REGISTER BITS
04523  M00S04281.1ma     +++|          RJM    IPP         IDLE PP WITH DUMP BIT SET
04524  M00S04282.1ma     +++|          UJN    AICX        RETURN
04525  M00S04283.1ma     +++| IEM      SPACE  4,10
04526  M00S04284.1ma     +++|**        IEM - ISSUE ERROR MESSAGE TO BML AND SYSTEM CONTROL POINT.
04527  M00S04285.1ma     +++|*
04528  M00S04286.1ma     +++|*         ENTRY  (PN) = CPP NUMBER.
04529  M00S04287.1ma     +++|*
04530  M00S04288.1ma     +++|*         EXIT   BML MESSAGE ISSUED WITH PP NUMBER.
04531  M00S04289.1ma     +++|*
04532  M00S04290.1ma     +++|*         USES   T1, CN - CN+4.
04533  M00S04291.1ma     +++|*
04534  M00S04292.1ma     +++|*         CALLS  C2D, IBM.
04535  M00S04293.1ma     +++|
04536  M00S04294.1ma     +++|
04537  M00S04295.1ma     +++| IEM      SUBR               ENTRY/EXIT
04538  M00S04296.1ma     +++|          LDN    2           ENTER FAILURE CODES IN BML MESSAGE
04539  M00S04297.1ma     +++|          STD    T1
04540  M00S04298.1ma     +++|          LDD    MA
04541  M00S04299.1ma     +++|          CWM    DPLA,T1
04542  M00S04300.1ma     +++|          SBN    2
04543  M00S04301.1ma     +++|          CRM    IBMA,T1
04544  M00S04302.1ma     +++|          LDC    /COMSDFS/HS0125  SET SYMPTOM CODE
04545  M00S04303.1ma     +++|          STD    T1
04546  M00S04304.1ma     +++|          LDN    ZERL        CLEAR DATA WORD
04547  M00S04305.1ma     +++|          CRD    CN
04548  M00S04306.1ma     +++|          LDD    PN          SET CPP NUMBER
04549  M00S04307.1ma     +++|          STD    CN+4
04550  M00S04308.1ma     +++|          LDC    /COMSDFS/HM0240  SET MESSAGE ID
04551  M00S04309.1ma     +++|          RJM    IBM         ISSUE BML MESSAGE
04552  M00S04310.1ma     +++|          LDD    PN          CONVERT CPP NUMBER TO DISPLAY CODE
04553  M00S04311.1ma     +++|          RJM    C2D
04554  M00S04312.1ma     +++|          STM    IEMA+11     STORE CPP NUMBER
04555  M00S04313.1ma     +++|          LDN    NCPL        ISSUE MESSAGE TO SYSTEM CONTROL POINT
04556  M00S04314.1ma     +++|          CRD    CN
04557  M00S04315.1ma     +++|          AOD    CN+1
04558  M00S04316.1ma     +++|          SHN    7
04559  M00S04317.1ma     +++|          ADK    MS2W
04560  M00S04318.1ma     +++|          CWM    IEMA,TR
04561  M00S04319.1ma     +++|          UJP    IEMX        RETURN
04562  M00S04320.1ma     +++|
04563  M00S04321.1ma     +++|
04564  M00S04322.1ma     +++| IEMA     DATA   C* DEADSTART OF CPP XX FAILED*

Seq #  *Modification Id* Act 
----------------------------+
04565  M01S04323.ns2711  ---| IPP      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
04566  M01S00077.ns2711  +++| IPP      SPACE  4,20
04567  M00S04324.1ma     +++|**        IPP - IDLE PP.
04568  M00S04325.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04569  M01S04326.ns2711  ---|*         ENTRY  (PN) = PP NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
04570  M01S00078.ns2711  +++|*         ENTRY  (A) = BIT SETTING FOR CORRECT IDLE PROCESSING.
04571  M01S00079.ns2711  +++|*                (CPPA) = ENVIRONMENTAL CONTROL REGISTER NUMBER.
04572  M01S00080.ns2711  +++|*                (CPPB) = STATUS REGISTER NUMBER.
04573  M01S00081.ns2711  +++|*                (CPPC) = BIASED CPP NUMBER.
04574  M00S04327.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04575  M01S04328.ns2711  ---|*         ENTRY  (A) = BIT SETTING FOR CORRECT IDLE PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
04576  M01S00082.ns2711  +++|*         EXIT   (A) = 0 IF CPP IDLED.
04577  M01S00083.ns2711  +++|*                (A) .LT. 0 IF UNABLE TO IDLE CPP.
04578  M01S00084.ns2711  +++|*                BML MESSAGE ISSUED IF UNABLE TO IDLE.
04579  M00S04329.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04580  M01S04330.ns2711  ---|*         EXIT   (A) = 0 IF PP IDLED.
04581  M01S04331.ns2711  ---|*                    .LT. 0 IF UNABLE TO IDLE.
04582  M01S04332.ns2711  ---|*                BML MESSAGE ISSUED IF UNABLE TO IDLE.

Seq #  *Modification Id* Act 
----------------------------+
04583  M01S00085.ns2711  +++|*         USES   RN, T1, T4, CN - CN+4.
04584  M00S04333.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04585  M01S04334.ns2711  ---|*         USES   T1, T4, CN - CN+4.
04586  M01S04335.ns2711  ---|*
04587  M01S04336.ns2711  ---|*         CALLS  IBM, NEC.

Seq #  *Modification Id* Act 
----------------------------+
04588  M01S00086.ns2711  +++|*         CALLS  IBM, NEC, SCU.
04589  M00S04337.1ma     +++|*
04590  M00S04338.1ma     +++|*         MACROS DELAY, LOCKMR, MONITOR, PAUSE, READMR, WRITMR.
04591  M00S04339.1ma     +++|
04592  M00S04340.1ma     +++|
04593  M00S04341.1ma     +++| IPP      SUBR               ENTRY/EXIT
04594  M00S04342.1ma     +++|          STD    CN          SAVE IDLE BIT SETTING
04595  M00S04343.1ma     +++|          STD    CN+1
04596  M00S04344.1ma     +++|          LDN    10          INITIALIZE TIME OUT COUNT
04597  M00S04345.1ma     +++|          STD    T4
04598  M00S04346.1ma     +++| IPP1     LOCKMR SET         GET LONG TERM INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
04599  M01S04347.ns2711  ---|          READMR RBUF,,ECCR  READ EC REGISTER

Seq #  *Modification Id* Act 
----------------------------+
04600  M01S00087.ns2711  +++|          LDM    CPPA        SET EC REGISTER NUMBER
04601  M01S00088.ns2711  +++|          STD    RN
04602  M01S00089.ns2711  +++|          READMR RBUF        READ EC REGISTER
04603  M00S04348.1ma     +++|          LDM    RBUF+4      SET PP NUMBER

Seq #  *Modification Id* Act 
----------------------------+
04604  M01S04349.ns2711  ---|          SCN    17
04605  M01S04350.ns2711  ---|          LMD    PN

Seq #  *Modification Id* Act 
----------------------------+
04606  M01S00090.ns2711  +++|          SCN    37
04607  M01S00091.ns2711  +++|          LMM    CPPC
04608  M00S04351.1ma     +++|          STM    RBUF+4
04609  M00S04352.1ma     +++|          LDM    RBUF+5      SET CHANNEL FOR DUMP

Seq #  *Modification Id* Act 
----------------------------+
04610  M01S04353.ns2711  ---|          SCN    17

Seq #  *Modification Id* Act 
----------------------------+
04611  M01S00092.ns2711  +++|          SCN    37
04612  M00S04354.1ma     +++|          ADN    16          NON-EXISTANT CHANNEL NUMBER
04613  M00S04355.1ma     +++|          STM    RBUF+5
04614  M00S04356.1ma     +++|          LDM    RBUF+6      SET DUMP AND IDLE MODE BITS, K REGISTER
04615  M00S04357.1ma     +++|          SCN    37
04616  M00S04358.1ma     +++|          ADD    CN          IDLE BIT SETTING
04617  M00S04359.1ma     +++|          STM    RBUF+6
04618  M00S04360.1ma     +++|          LDM    RBUF+7      SET ENABLE BIT
04619  M00S04361.1ma     +++|          SCN    40
04620  M00S04362.1ma     +++|          ADN    40
04621  M00S04363.1ma     +++|          STM    RBUF+7

Seq #  *Modification Id* Act 
----------------------------+
04622  M01S04364.ns2711  ---|          WRITMR RBUF,,ECCR  WRITE EC REGISTER
04623  M01S04365.ns2711  ---|          READMR IBUF,,SRCR  READ INPUT STATUS REGISTER

Seq #  *Modification Id* Act 
----------------------------+
04624  M01S00093.ns2711  +++|          WRITMR RBUF        WRITE EC REGISTER
04625  M01S00094.ns2711  +++|          LDM    CPPB        SET STATUS REGISTER NUMBER
04626  M01S00095.ns2711  +++|          STD    RN
04627  M01S00096.ns2711  +++|          READMR IBUF        READ INPUT STATUS REGISTER
04628  M00S04366.1ma     +++|          LOCKMR CLEAR       CLEAR LONG TERM INTERLOCK
04629  M00S04367.1ma     +++|          LDM    IBUF+4      CHECK IF PP IN IDLE MODE
04630  M00S04368.1ma     +++|          LPN    3
04631  M00S04369.1ma     +++|          SHN    10
04632  M00S04370.1ma     +++|          ADM    IBUF+5
04633  M00S04371.1ma     +++|          SHN    10
04634  M00S04372.1ma     +++|          ADM    IBUF+6
04635  M00S04373.1ma     +++|          LMC    107700
04636  M00S04374.1ma     +++|          ZJN    IPP2        IF PP IDLING
04637  M00S04375.1ma     +++|          SOD    T4
04638  M00S04376.1ma     +++|          ZJN    IPP3        IF TIME OUT
04639  M00S04377.1ma     +++|          PAUSE  NE
04640  M00S04378.1ma     +++|          LDN    2           SET READ K REGISTER ONLY
04641  M00S04379.1ma     +++|          STD    CN
04642  M00S04380.1ma     +++|          LJM    IPP1        LOOP
04643  M00S04381.1ma     +++|
04644  M00S04382.1ma     +++|*         COMPLETE NORMALIZATION OF *EC* REGISTER.
04645  M00S04383.1ma     +++|
04646  M00S04384.1ma     +++| IPP2     RJM    NEC         NORMALIZE EC REGISTER
04647  M00S04385.1ma     +++|          LDN    0

Seq #  *Modification Id* Act 
----------------------------+
04648  M01S04386.ns2711  ---|          UJP    IPPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
04649  M01S00097.ns2711  +++|          UJN    IPP4        RETURN
04650  M00S04387.1ma     +++|
04651  M00S04388.1ma     +++|*         PROCESS IDLING ERROR.
04652  M00S04389.1ma     +++|
04653  M00S04390.1ma     +++| IPP3     RJM    NEC         NORMALIZE EC REGISTER
04654  M00S04391.1ma     +++|          LDD    CN+1
04655  M00S04392.1ma     +++|          LPN    10
04656  M00S04393.1ma     +++|          ZJN    IPP4        IF NOT DUMP MODE
04657  M00S04394.1ma     +++|          LDC    /COMSDFS/HS0122  SET SYMPTOM CODE
04658  M00S04395.1ma     +++|          STD    T1
04659  M00S04396.1ma     +++|          LDN    ZERL        CLEAR DATA WORD
04660  M00S04397.1ma     +++|          CRD    CN
04661  M00S04398.1ma     +++|          LDD    PN          SET PP NUMBER
04662  M00S04399.1ma     +++|          STD    CN+4
04663  M00S04400.1ma     +++|          LDC    /COMSDFS/HM0240  SET MESSAGE ID
04664  M00S04401.1ma     +++|          RJM    IBM         ISSUE BML MESSAGE
04665  M00S04402.1ma     +++|          RJM    SCU         SET CPP UNAVAILABLE
04666  M00S04403.1ma     +++|          LCN    1           SET ERROR FLAG
04667  M00S04404.1ma     +++| IPP4     LJM    IPPX        RETURN
04668  M00S04405.1ma     +++| LOV      SPACE  4,30
04669  M00S04406.1ma     +++|**        LOV - LOAD CPP OVERLAY.
04670  M00S04407.1ma     +++|*
04671  M00S04408.1ma     +++|*         OVERLAY IS PASSED TO THE CPP VIA THE CPP-S MESSAGE BUFFER.
04672  M00S04409.1ma     +++|*         THE LOAD PARAMETERS INDICATE WHERE TO FIND THE OVERLAY.
04673  M00S04410.1ma     +++|*
04674  M00S04411.1ma     +++|*T MB     12/ , 12/ EQ, 12/ TK, 12/ SC, 12/ MBA

Figure MB

04675  M00S04412.1ma     +++|*
04676  M00S04413.1ma     +++|*              EQ = EQUIPMENT TO LOAD FROM.
04677  M00S04414.1ma     +++|*              TK = TRACK.
04678  M00S04415.1ma     +++|*              SC = SECTOR.
04679  M00S04416.1ma     +++|*              MBA = CPP MB+1 ADDRESS.
04680  M00S04417.1ma     +++|*
04681  M00S04418.1ma     +++|*         BYTE 0 OF MBA IS THE CONTROL BYTE.
04682  M00S04419.1ma     +++|*              0 = 6DD READY FOR DATA.
04683  M00S04420.1ma     +++|*              N = WORDS IN MB+2 - MB+5 TO COPY.
04684  M00S04421.1ma     +++|*              2000 = EOR.
04685  M00S04422.1ma     +++|*              4000 = ERROR ON OVERLAY READ.
04686  M00S04423.1ma     +++|*
04687  M00S04424.1ma     +++|*         ENTRY  (MB) = LOAD PARAMETERS.
04688  M00S04425.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04689  M01S04426.1ma20   ---|*         USES   DA, PP, CM - CM+4, T4 - T7.

Seq #  *Modification Id* Act 
----------------------------+
04690  M01S00001.1ma20   +++|*         USES   DA, PP, T1, CM - CM+4, T4 - T7.
04691  M00S04427.1ma     +++|*
04692  M00S04428.1ma     +++|*         CALLS  DFM, RNS.
04693  M00S04429.1ma     +++|*
04694  M00S04430.1ma     +++|*         MACROS DELAY, ENDMS, SETMS.
04695  M00S04431.1ma     +++|
04696  M00S04432.1ma     +++|
04697  M00S04433.1ma     +++| LOV      SUBR               ENTRY/EXIT
04698  M00S04434.1ma     +++|          LDD    MA          READ LOAD PARAMETERS
04699  M00S04435.1ma     +++|          CRD    T4
04700  M00S04436.1ma     +++|          LDD    CM          SAVE CPP MESSAGE BUFFER ADDRESS
04701  M00S04437.1ma     +++|          STD    PP

Seq #  *Modification Id* Act 
----------------------------+
04702  M01S04438.1ma25   ---|          SETMS  READSYS
04703  M01S04439.1ma25   ---| LOV1     LDC    BFMS+2      SET DATA ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
04704  M01S00001.1ma25   +++| LOV1     SETMS  READSYS
04705  M01S00002.1ma25   +++|          LDC    BFMS+2      SET DATA ADDRESS
04706  M00S04440.1ma     +++|          STM    LOVA
04707  M00S04441.1ma     +++|          SBN    2
04708  M00S04442.1ma     +++|          RJM    RNS         READ NEXT SECTOR
04709  M00S04443.1ma     +++|          MJP    LOV5        IF READ ERROR
04710  M00S04444.1ma     +++|          STD    DA          SAVE THE WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
04711  M01S00003.1ma25   +++|          ENDMS

Seq #  *Modification Id* Act 
----------------------------+
04712  M01S04445.1ma20   ---| LOV2     LDD    DA
04713  M01S04446.1ma20   ---|          ZJN    LOV1        IF END OF SECTOR
04714  M01S04447.1ma20   ---|          LDN    4

Seq #  *Modification Id* Act 
----------------------------+
04715  M01S00002.1ma20   +++| LOV2     LDC    2000
04716  M01S00003.1ma20   +++|          STD    T1
04717  M01S00004.1ma20   +++|          LDD    DA
04718  M01S00005.1ma20   +++|          NJN    LOV2.1      IF NOT END OF SECTOR
04719  M01S00006.1ma20   +++|          LDM    BFMS+1
04720  M01S00007.1ma20   +++|          SBD    HN
04721  M01S00008.1ma20   +++|          ZJN    LOV1        IF FULL SECTOR OF DATA
04722  M01S00009.1ma20   +++|          LJM    LOV6        SEND EOR RESPONSE TO THE CPP
04723  M01S00010.1ma20   +++|
04724  M01S00011.1ma20   +++| LOV2.1   LDN    4
04725  M00S04448.1ma     +++|          STD    CM
04726  M00S04449.1ma     +++|          LCN    4
04727  M00S04450.1ma     +++|          RAD    DA
04728  M00S04451.1ma     +++|          PJN    LOV3        IF FULL BLOCK TO COPY
04729  M00S04452.1ma     +++|          RAD    CM
04730  M00S04453.1ma     +++| LOV3     LDD    PP          COPY BLOCK TO CPP
04731  M00S04454.1ma     +++|          ADN    1
04732  M00S04455.1ma     +++|          CWM    **,CM
04733  M00S04456.1ma     +++| LOVA     EQU    *-1
04734  M00S04457.1ma     +++|          LDD    PP
04735  M00S04458.1ma     +++|          CWD    CM
04736  M00S04459.1ma     +++|          LDN    4*5         ADVANCE THE WRITE ADDRESS
04737  M00S04460.1ma     +++|          RAM    LOVA

Seq #  *Modification Id* Act 
----------------------------+
04738  M01S04461.1ma20   ---|          LDC    2000
04739  M01S04462.1ma20   ---|          STD    T1
04740  M00S04463.1ma     +++|          LDD    CM
04741  M00S04464.1ma     +++|          SBN    4
04742  M00S04465.1ma     +++|          MJN    LOV6        IF NOT A FULL BLOCK
04743  M00S04466.1ma     +++| LOV4     DELAY              WAIT FOR CPP READY

Seq #  *Modification Id* Act 
----------------------------+
04744  M01S00004.1ma25   +++|          PAUSE  NE
04745  M00S04467.1ma     +++|          LDD    PP
04746  M00S04468.1ma     +++|          CRD    CM
04747  M00S04469.1ma     +++|          LDD    CM
04748  M00S04470.1ma     +++|          NJN    LOV4        IF CPP NOT READY FOR NEXT BLOCK
04749  M00S04471.1ma     +++|          LJM    LOV2        COPY NEXT BLOCK
04750  M00S04472.1ma     +++|
04751  M00S04473.1ma     +++| LOV5     LDC    4000        FLAG READ ERROR
04752  M00S04474.1ma     +++|          STD    T1
04753  M00S04475.1ma     +++| LOV6     DELAY              WAIT FOR CPP READY

Seq #  *Modification Id* Act 
----------------------------+
04754  M01S00005.1ma25   +++|          PAUSE  NE
04755  M00S04476.1ma     +++|          LDD    PP
04756  M00S04477.1ma     +++|          CRD    CM
04757  M00S04478.1ma     +++|          LDD    CM
04758  M00S04479.1ma     +++|          NJN    LOV6        IF CPP NOT READY FOR NEXT BLOCK
04759  M00S04480.1ma     +++|          LDD    T1          SET RESPONSE
04760  M00S04481.1ma     +++|          STD    CM
04761  M00S04482.1ma     +++|          LDD    PP
04762  M00S04483.1ma     +++|          CWD    CM

Seq #  *Modification Id* Act 
----------------------------+
04763  M01S04484.1ma25   ---|          ENDMS
04764  M00S04485.1ma     +++|          LDD    T1          CHECK FOR ERROR
04765  M00S04486.1ma     +++|          SHN    21-13
04766  M00S04487.1ma     +++|          PJN    LOV7        IF NO ERRORS
04767  M00S04488.1ma     +++|          LDD    CP          DISPLAY ERROR MESSAGE
04768  M00S04489.1ma     +++|          ADK    MS2W
04769  M00S04490.1ma     +++|          CWM    LOVB,TR
04770  M00S04491.1ma     +++|          LDC    LOVB
04771  M00S04492.1ma     +++|          RJM    DFM
04772  M00S04493.1ma     +++| LOV7     LJM    LOVX        RETURN
04773  M00S04494.1ma     +++|
04774  M00S04495.1ma     +++|
04775  M00S04496.1ma     +++| LOVB     DATA   C* CPP OVERLAY LOAD FAILED.*
04776  M00S04497.1ma     +++| SPB      SPACE  4,15
04777  M00S04498.1ma     +++|**        SPB - SET PP BOUNDS BIT.
04778  M00S04499.1ma     +++|*
04779  M00S04500.1ma     +++|*         ENTRY  (A) = 6/BIT VALUE, 12/PP NUMBER.
04780  M00S04501.1ma     +++|*                      BIT VALUE = 1 TO SET LOWER PP.
04781  M00S04502.1ma     +++|*                                = 0 TO SET UPPER PP.
04782  M00S04503.1ma     +++|*                (EC) = IOU CONNECT CODE.
04783  M00S04504.1ma     +++|*
04784  M00S04505.1ma     +++|*         EXIT   PP OS BOUNDS REGISTER SET FOR GIVEN PP.
04785  M00S04506.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04786  M01S04507.ns2711  ---|*         USES   T2, T7.

Seq #  *Modification Id* Act 
----------------------------+
04787  M01S00098.ns2711  +++|*         USES   RN, T2, T7.
04788  M00S04508.1ma     +++|*
04789  M00S04509.1ma     +++|*         MACROS LOCKMR, READMR, WRITMR.
04790  M00S04510.1ma     +++|
04791  M00S04511.1ma     +++|
04792  M00S04512.1ma     +++| SPB      SUBR               ENTRY/EXIT
04793  M00S04513.1ma     +++|          STD    T7          SAVE LOGICAL PP NUMBER
04794  M00S04514.1ma     +++|          SHN    -14
04795  M00S04515.1ma     +++|          STM    SPBC        SAVE BOUNDS BIT VALUE
04796  M00S04516.1ma     +++|          LDN    4           DETERMINE BARREL
04797  M00S04517.1ma     +++|          SBD    T7
04798  M00S04518.1ma     +++|          SHN    -21
04799  M00S04519.1ma     +++|          STD    T2
04800  M00S04520.1ma     +++|          ZJN    SPB1        IF IN LOWER 5 PP-S
04801  M00S04521.1ma     +++|          LCN    5
04802  M00S04522.1ma     +++|          RAD    T7          SET PHYSICAL PP WITHIN THE BARREL
04803  M00S04523.1ma     +++| SPB1     LDC    SHNI        SET BIT SHIFT INSTRUCTION
04804  M00S04524.1ma     +++|          ADD    T7
04805  M00S04525.1ma     +++|          STM    SPBA
04806  M00S04526.1ma     +++|          STM    SPBD
04807  M00S04527.1ma     +++|          LOCKMR SET

Seq #  *Modification Id* Act 
----------------------------+
04808  M01S04528.ns2711  ---|          READMR RBUF,,OBCR  READ CURRENT OS BOUNDS DATA

Seq #  *Modification Id* Act 
----------------------------+
04809  M01S00099.ns2711  +++|          LDK    OBCR        SET OS BOUNDS REGISTER NUMBER
04810  M01S00100.ns2711  +++|          STD    RN
04811  M01S00101.ns2711  +++|          LDM    CPPD
04812  M01S00102.ns2711  +++|          LMK    0#42
04813  M01S00103.ns2711  +++|          NJN    SPB2        IF NOT MODEL 42 IOU
04814  M01S00104.ns2711  +++|          LDK    IOSB        SET OS BOUNDS REGISTER NUMBER
04815  M01S00105.ns2711  +++|          STD    RN
04816  M01S00106.ns2711  +++|          LDN    3           SET BYTE OFFSET
04817  M01S00107.ns2711  +++|          STD    T2
04818  M01S00108.ns2711  +++| SPB2     READMR RBUF        READ CURRENT OS BOUNDS DATA
04819  M00S04529.1ma     +++|          LDM    RBUF,T2
04820  M00S04530.1ma     +++|          STM    SPBB
04821  M00S04531.1ma     +++|          LCN    1
04822  M00S04532.1ma     +++| SPBA     SHN    **
04823  M00S04533.1ma     +++|          LPC    **
04824  M00S04534.1ma     +++| SPBB     EQU    *-1
04825  M00S04535.1ma     +++|          STM    RBUF,T2
04826  M00S04536.1ma     +++|          LDC    **
04827  M00S04537.1ma     +++| SPBC     EQU    *-1
04828  M00S04538.1ma     +++| SPBD     SHN    **
04829  M00S04539.1ma     +++|          LMM    RBUF,T2     ADD NEW BIT TO REGISTER DATA
04830  M00S04540.1ma     +++|          STM    RBUF,T2
04831  M00S04541.1ma     +++|          WRITMR RBUF        SET NEW OS BOUNDS REGISTER
04832  M00S04542.1ma     +++|          LOCKMR CLEAR
04833  M00S04543.1ma     +++|          LJM    SPBX        RETURN
04834  M00S04544.1ma     +++| AMA      SPACE  4,10
04835  M00S04545.1ma     +++|**        AMA - ACQUIRE MULTIPLEXER ACCESS.
04836  M00S04546.1ma     +++|*
04837  M00S04547.1ma     +++|*         EXIT   MULTIPLEXER ACCESS OBTAINED.
04838  M00S04548.1ma     +++|*
04839  M00S04549.1ma     +++|*         XREF   COMSIOU.
04840  M00S04550.1ma     +++|
04841  M00S04551.1ma     +++|
04842  M00S04552.1ma     +++| AMA      SUBR               ENTRY/EXIT
04843  M00S04553.1ma     +++| AMA1     LOCKMR SET         GET ACCESS TO MAINTENANCE CHANNEL
04844  M00S04554.1ma     +++|          SCF    AMA3,MX     GET ACCESS TO TWO-PORT MULTIPLEXER
04845  M00S04555.1ma     +++|          LOCKMR CLEAR
04846  M00S04556.1ma     +++|          ACN    MX+40
04847  M00S04557.1ma     +++|          UJN    AMAX        RETURN
04848  M00S04558.1ma     +++|
04849  M00S04559.1ma     +++| AMA3     LOCKMR CLEAR       CLEAR MAINTENANCE CHANNEL INTERLOCK
04850  M00S04560.1ma     +++|          LDN    7           BRIEF DELAY
04851  M00S04561.1ma     +++|          SBN    1
04852  M00S04562.1ma     +++|          PJN    *-1         IF DELAY NOT COMPLETE
04853  M00S04563.1ma     +++|          UJN    AMA1        TRY TO RESERVE PORT AGAIN
04854  M00S04564.1ma     +++| RMA      SPACE  4,10
04855  M00S04565.1ma     +++|**        RMA - RELEASE MULTIPLEXER ACCESS.
04856  M00S04566.1ma     +++|*
04857  M00S04567.1ma     +++|
04858  M00S04568.1ma     +++|
04859  M00S04569.1ma     +++| RMA      SUBR               ENTRY/EXIT
04860  M00S04570.1ma     +++|          DCN    MX+40
04861  M00S04571.1ma     +++|          CCF    *,MX        RELEASE CHANNEL INTERLOCK
04862  M00S04572.1ma     +++|          UJN    RMAX        RETURN
04863  M00S04573.1ma     +++| IBM      SPACE  4,10
04864  M00S04574.1ma     +++|**        IBM - ISSUE BINARY MAINTENANCE LOG MESSAGE.
04865  M00S04575.1ma     +++|*
04866  M00S04576.1ma     +++|*         ENTRY  (A) = MESSAGE ID.
04867  M00S04577.1ma     +++|*                (T1) = SYMPTOM CODE.
04868  M00S04578.1ma     +++|*                (CN - CN+4) = DATA WORD.
04869  M00S04579.1ma     +++|*
04870  M00S04580.1ma     +++|*         USES   CM - CM+4.
04871  M00S04581.1ma     +++|*
04872  M00S04582.1ma     +++|*         CALLS  DFM.
04873  M00S04583.1ma     +++|
04874  M00S04584.1ma     +++|
04875  M00S04585.1ma     +++| IBM      SUBR               ENTRY/EXIT
04876  M00S04586.1ma     +++|          STM    IBMA        SET MESSAGE ID
04877  M00S04587.1ma     +++|          LDD    T1          SET SYMPTOM CODE
04878  M00S04588.1ma     +++|          STM    IBMA+1
04879  M00S04589.1ma     +++|          LDD    MA          MOVE DATA WORD TO BUFFER
04880  M00S04590.1ma     +++|          CWD    CN
04881  M00S04591.1ma     +++|          CRM    IBMB,ON
04882  M00S04592.1ma     +++|          LDN    ZERL
04883  M00S04593.1ma     +++|          CRD    CM
04884  M00S04594.1ma     +++|          LDN    IBML        SET MESSAGE LENGTH
04885  M00S04595.1ma     +++|          STD    CM+1
04886  M00S04596.1ma     +++|          LDC    IBMA+BMLN   ISSUE DAYFILE MESSAGE
04887  M00S04597.1ma     +++|          RJM    DFM
04888  M00S04598.1ma     +++|          UJN    IBMX        RETURN
04889  M00S04599.1ma     +++|
04890  M00S04600.1ma     +++|
04891  M00S04601.1ma     +++|*         MESSAGE BUFFER.
04892  M00S04602.1ma     +++|
04893  M00S04603.1ma     +++| IBMA     VFD    12/0,12/0,36/0  MESSAGE ID, SYMPTOM CODE
04894  M00S04604.1ma     +++|          VFD    60/0        RESERVED
04895  M00S04605.1ma     +++| IBMB     VFD    60/0        MESSAGE
04896  M00S04606.1ma     +++| IBML     EQU    *-IBMA

Seq #  *Modification Id* Act 
----------------------------+
04897  M01S04607.ns2711  ---| NEC      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
04898  M01S00109.ns2711  +++| NEC      SPACE  4,15
04899  M00S04608.1ma     +++|**        NEC - NORMALIZE EC REGISTER.
04900  M00S04609.1ma     +++|*

Seq #  *Modification Id* Act 
----------------------------+
04901  M01S04610.ns2711  ---|*         ENTRY  (RBUF - RBUF+7) = EC REGISTER.

Seq #  *Modification Id* Act 
----------------------------+
04902  M01S00110.ns2711  +++|*         ENTRY  (CPPA) = EC REGISTER NUMBER.
04903  M00S04611.1ma     +++|*
04904  M00S04612.1ma     +++|*         EXIT   (RBUF - RBUF+7) = NORMALIZED EC REGISTER.
04905  M00S04613.1ma     +++|*                NORMALIZED EC REGISTER REWRITTEN.

Seq #  *Modification Id* Act 
----------------------------+
04906  M01S04614.ns2711  ---|*                BITS 36-39, 44-47, 51-55, 58 = 0.

Seq #  *Modification Id* Act 
----------------------------+
04907  M01S00111.ns2711  +++|*                BITS 35-39, 43-47, 51-55, 58 = 0.
04908  M00S04615.1ma     +++|*                ALL OTHER BITS ARE UNCHANGED.

Seq #  *Modification Id* Act 
----------------------------+
04909  M01S00112.ns2711  +++|*
04910  M01S00113.ns2711  +++|*         USES   RN.
04911  M00S04616.1ma     +++|*
04912  M00S04617.1ma     +++|*         MACROS LOCKMR, READMR, WRITMR.
04913  M00S04618.1ma     +++|
04914  M00S04619.1ma     +++|
04915  M00S04620.1ma     +++| NEC      SUBR               ENTRY/EXIT
04916  M00S04621.1ma     +++|          LOCKMR SET         SET LONG TERM INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
04917  M01S04622.ns2711  ---|          READMR RBUF,,ECCR  READ EC REGISTER
04918  M01S04623.ns2711  ---|          LDM    RBUF+4      CLEAR BITS 36-39
04919  M01S04624.ns2711  ---|          SCN    17

Seq #  *Modification Id* Act 
----------------------------+
04920  M01S00114.ns2711  +++|          LDM    CPPA        SET EC REGISTER NUMBER
04921  M01S00115.ns2711  +++|          STD    RN
04922  M01S00116.ns2711  +++|          READMR RBUF        READ EC REGISTER
04923  M01S00117.ns2711  +++|          LDM    RBUF+4      CLEAR 35-39 (PP NUMBER)
04924  M01S00118.ns2711  +++|          SCN    37
04925  M00S04625.1ma     +++|          STM    RBUF+4

Seq #  *Modification Id* Act 
----------------------------+
04926  M01S04626.ns2711  ---|          LDM    RBUF+5      CLEAR BITS 44-47
04927  M01S04627.ns2711  ---|          SCN    17

Seq #  *Modification Id* Act 
----------------------------+
04928  M01S00119.ns2711  +++|          LDM    RBUF+5      CLEAR 43-47 (CHANNEL NUMBER)
04929  M01S00120.ns2711  +++|          SCN    37
04930  M00S04628.1ma     +++|          STM    RBUF+5
04931  M00S04629.1ma     +++|          LDM    RBUF+6      CLEAR BITS 51-55
04932  M00S04630.1ma     +++|          SCN    37
04933  M00S04631.1ma     +++|          STM    RBUF+6
04934  M00S04632.1ma     +++|          LDM    RBUF+7      CLEAR BIT 58
04935  M00S04633.1ma     +++|          SCN    40
04936  M00S04634.1ma     +++|          STM    RBUF+7

Seq #  *Modification Id* Act 
----------------------------+
04937  M01S04635.ns2711  ---|          WRITMR RBUF,,ECCR  UPDATE EC REGISTER

Seq #  *Modification Id* Act 
----------------------------+
04938  M01S00121.ns2711  +++|          WRITMR RBUF        UPDATE EC REGISTER
04939  M00S04636.1ma     +++|          LOCKMR CLEAR       CLEAR LONG TERM INTERLOCK
04940  M00S04637.1ma     +++|          LJM    NECX        RETURN
04941  M00S04638.1ma     +++| SCU      SPACE  4,10
04942  M00S04639.1ma     +++|**        SCU - SET CPP UNAVAILABLE.
04943  M00S04640.1ma     +++|*
04944  M00S04641.1ma     +++|*         *SCU* SETS 3 ASTERISKS IN THE CPP-S INPUT REGISTER AND
04945  M00S04642.1ma     +++|*         DECREMENTS THE NUMBER OF AVAILABLE CPPS IN *PPAL*.
04946  M00S04643.1ma     +++|*
04947  M00S04644.1ma     +++|*         ENTRY  (IR+4) = CPP-S INPUT REGISTER ADDRESS.
04948  M00S04645.1ma     +++|*
04949  M00S04646.1ma     +++|*         USES   CM - CM+4, CN - CN+4.
04950  M00S04647.1ma     +++|*
04951  M00S04648.1ma     +++|*         MACROS MONITOR.
04952  M00S04649.1ma     +++|
04953  M00S04650.1ma     +++|
04954  M00S04651.1ma     +++| SCU      SUBR               ENTRY/EXIT
04955  M00S04652.1ma     +++|          LDD    IR+4        READ CPP-S INPUT REGISTER
04956  M00S04653.1ma     +++|          CRD    CM
04957  M00S04654.1ma     +++|          LDD    CM+1
04958  M00S04655.1ma     +++|          SCN    77
04959  M00S04656.1ma     +++|          SHN    6
04960  M00S04657.1ma     +++|          LMD    CM
04961  M00S04658.1ma     +++|          LMC    3R***
04962  M00S04659.1ma     +++|          ZJN    SCUX        IF ALREADY UNAVAILABLE
04963  M00S04660.1ma     +++|          LDD    IR+4        SET *** IN INPUT REGISTER
04964  M00S04661.1ma     +++|          CWM    SCUA,ON
04965  M00S04662.1ma     +++|          LDD    IR+2
04966  M00S04663.1ma     +++|          SBN    12
04967  M00S04664.1ma     +++|          NJN    SCU1        IF IDLE CPP
04968  M00S04665.1ma     +++|          LDN    1
04969  M00S04666.1ma     +++|          STD    CM+1        DECREMENT CPP-S AVAILABLE COUNT
04970  M00S04667.1ma     +++|          STD    CM+2        DO NOT DROP THE PP
04971  M00S04668.1ma     +++|          LDD    MA
04972  M00S04669.1ma     +++|          CWM    SCUB,CM+1
04973  M00S04670.1ma     +++|          MONITOR UADM
04974  M00S04671.1ma     +++|          LDD    CM+1
04975  M00S04672.1ma     +++|          ZJN    SCU1        IF NO UNDERFLOW
04976  M00S04673.1ma     +++|          RJM    CHG         CONDITIONALLY HANG
04977  M00S04674.1ma     +++|
04978  M00S04675.1ma     +++|*         DECREMENT THE NUMBER OF PP-S ASSIGNED TO THE CONTROL POINT.
04979  M00S04676.1ma     +++|
04980  M00S04677.1ma     +++| SCU1     LDD    IR+2
04981  M00S04678.1ma     +++|          SBN    10
04982  M00S04679.1ma     +++|          NJP    SCUX        IF NOT AN ASSIGN AND LOAD REQUEST
04983  M00S04680.1ma     +++| SCU2     LDD    CC          GET CPP-S CONTROL POINT ADDRESS
04984  M00S04681.1ma     +++|          ZJN    SCU3        IF NOT ASSIGNED
04985  M00S04682.1ma     +++|          ADK    STSW
04986  M00S04683.1ma     +++|          STD    CM+4
04987  M00S04684.1ma     +++|          CRD    CN          GET THE NUMBER OF PP-S ASSIGNED
04988  M00S04685.1ma     +++|          LDD    CN
04989  M00S04686.1ma     +++|          LPN    37
04990  M00S04687.1ma     +++|          ZJN    SCU3        IF NO PP-S ASSIGNED
04991  M00S04688.1ma     +++|          STM    SCUC+4      SET UP *UTEM* REQUEST
04992  M00S04689.1ma     +++|          SBN    1
04993  M00S04690.1ma     +++|          STM    SCUC+1*5+4
04994  M00S04691.1ma     +++|          LDN    2
04995  M00S04692.1ma     +++|          STD    CM+1
04996  M00S04693.1ma     +++|          LDD    MA
04997  M00S04694.1ma     +++|          CWM    SCUC,CM+1
04998  M00S04695.1ma     +++|          MONITOR  UTEM
04999  M00S04696.1ma     +++|          LDD    CM+1
05000  M00S04697.1ma     +++|          NJN    SCU2        IF REQUEST WAS REJECTED
05001  M00S04698.1ma     +++| SCU3     UJP    SCUX        RETURN
05002  M00S04699.1ma     +++|
05003  M00S04700.1ma     +++|
05004  M00S04701.1ma     +++| SCUA     VFD    18/3R***,42/0  INPUT REGISTER OF UNUSABLE PP
05005  M00S04702.1ma     +++|
05006  M00S04703.1ma     +++|*         MESSAGE BUFFER STRUCTURE FOR *UADM* FORMAT.
05007  M00S04704.1ma     +++|
05008  M00S04705.1ma     +++| SCUB     CON    LDOS        SUBFUNCTION
05009  M00S04706.1ma     +++|          CON    PPAL        LOW CORE WORD TO UPDATE
05010  M00S04707.1ma     +++|          CON    12D*100+6   FIELD LOCATION AND SIZE
05011  M00S04708.1ma     +++|          VFD    6/,18/1     DECREMENT VALUE
05012  M00S04709.1ma     +++|
05013  M00S04710.1ma     +++|*         MESSAGE BUFFER STRUCTURE FOR *UTEM*.
05014  M00S04711.1ma     +++|
05015  M00S04712.1ma     +++| SCUC     VFD    1/1,5/0,6/5,6/48D,42/**  VERIFY NUMBER OF PP-S
05016  M00S04713.1ma     +++|          VFD    1/0,5/0,6/5,6/48D,42/**  REDUCE NUMBER OF PP-S
05017  M00S04714.1ma     +++| COMMON   SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
05018  M01S00122.ns2711  +++|*         COMMON DECKS.
05019  M00S04715.1ma     +++|
05020  M00S04716.1ma     +++|

Seq #  *Modification Id* Act 
----------------------------+
05021  M01S04717.ns2711  ---| QUAL$    EQU    1           DO NOT QUALIFY COMMON DECKS
05022  M01S04718.ns2711  ---|

Seq #  *Modification Id* Act 
----------------------------+
05023  M01S00123.ns2711  +++|*CALL     COMPC2D
05024  M00S04719.1ma     +++|*CALL     COMPMRA
05025  M00S04720.1ma     +++|*CALL     COMPRNS
05026  M00S04721.1ma     +++|          SPACE  4,10
05027  M00S04722.1ma     +++|**        BUFFER DEFINITIONS.
05028  M00S04723.1ma     +++|*
05029  M00S04724.1ma     +++|*         *PBUF* CONTAINS A COPY OF PP RESIDENT FOR A CPP.
05030  M00S04725.1ma     +++|*
05031  M00S04726.1ma     +++|*         *RBUF* AND *IBUF* ARE USED TO READ AND CHECK THE ENVIRONMENT
05032  M00S04727.1ma     +++|*         CONTROL REGISTER.
05033  M00S04728.1ma     +++|
05034  M00S04729.1ma     +++|
05035  M00S04730.1ma     +++| PBUF     BSS    0           CPP RESIDENT BUFFER
05036  M00S04731.1ma     +++| CPP$     EQU    1           GENERATE CPP RESIDENT
05037  M00S04732.1ma     +++|          LIST   X,F
05038  M00S04733.1ma     +++|*CALL     COMPPPR
05039  M00S04734.1ma     +++|          LIST   *
05040  M00S04735.1ma     +++| PBUFL    EQU    *-PBUF
05041  M00S04736.1ma     +++|
05042  M00S04737.1ma     +++| RBUF     EQU    *           *EC* REGISTER BUFFER
05043  M00S04738.1ma     +++| IBUF     EQU    RBUF+12B    INPUT STATUS REGISTER BUFFER
05044  M00S04739.1ma     +++|

Seq #  *Modification Id* Act 
----------------------------+
05045  M01S04740.ns2711  ---|          OVERFLOW  E1MA

Seq #  *Modification Id* Act 
----------------------------+
05046  M01S00124.ns2711  +++|          ERRNG  EPFW-IBUF-12B  OVERFLOW INTO EPFW
05047  M01S00125.ns2711  +++|
05048  M01S00126.ns2711  +++|
05049  M01S00127.ns2711  +++|          OVERFLOW  E1MA,EPFW
05050  M00S04741.1ma     +++|          TTL    1MA - MONITOR AUXILIARY PROCESSOR.
05051  M00S04742.1ma     +++|          END