Deck CPUMTR Part 021

308 Modifications

Seq #  *Modification Id* Act 
----------------------------+
26966  M02S00613.273l780 ---|          SA2    B7+STSW     DECREMENT CONTROL POINT PP COUNT
26967  M02S00614.273l780 ---|          LX3    48-12
26968  M02S00615.273l780 ---|          IX7    X2-X3
26969  M02S00616.273l780 ---|          SA7    A2
26970  M02S00617.273l780 ---|          BX7    X7-X7       CLEAR *OR*
26971  M02S00618.273l780 ---|          SA7    A5+
26972  M02S00619.273l780 ---|          SB3    DCP1
26973  M02S00620.273l780 ---|          EQ     /MONITOR/JAV  CHECK JOB ADVANCE CONDITIONS
26974  M02S00621.273l780 ---|
26975  M02S00622.273l780 ---| DCP1     SA2    DCPA        SET PP CALL
26976  M02S00623.273l780 ---|          SX3    A5-B1       INPUT REGISTER ADDRESS
26977  M02S00624.273l780 ---|          BX6    X2+X3
26978  M02S00625.273l780 ---|          TB7    SCA         SET CONTROL POINT FOR *1MA* CALL
26979  M02S00626.273l780 ---|          SB4    /MONITOR/LA1MA  SET INDEX INTO *TAPQ* TABLE
26980  M02S00627.273l780 ---|          SB3    /MONITOR/MTRX   EXIT ADDRESS
26981  M02S00628.273l780 ---|          EQ     /MONITOR/APQ  ASSIGN PP
26982  M02S00629.273l780 ---|
26983  M02S00630.273l780 ---|
26984  M02S00631.273l780 ---| DCPA     VFD    18/0L1MA,6/0,12/12B,24/0

Seq #  *Modification Id* Act 
----------------------------+
26985  M01S00632.251l664 +++| DDB      SPACE  4,15
26986  M01S00633.251l664 +++|**        DDB - *DDB* EXTENSION FOR CONCURRENT PPS.
26987  M01S00634.251l664 +++|*
26988  M01S00635.251l664 +++|*         *DDB* GETS CALLED WHEN IT IS NECESSARY TO DUMP A DAYFILE
26989  M01S00636.251l664 +++|*         BUFFER.
26990  M01S00637.251l664 +++|*
26991  M01S00638.251l664 +++|*         ENTRY  (A5) = REQUEST ADDRESS.
26992  M01S00639.251l664 +++|*                (B7) = CONTROL POINT ADDRESS.
26993  M01S00640.251l664 +++|*
26994  M01S00641.251l664 +++|*         EXIT   TO /MONITOR/DDB3 WITH (X0) = (B7), IF CALLED FROM CPP.
26995  M01S00642.251l664 +++|*                TO /MONITOR/DDB IF NOT CALLED FROM CPP.
26996  M01S00643.251l664 +++|*
26997  M01S00644.251l664 +++|*         USES   X - 0, 2.
26998  M01S00645.251l664 +++|*                B - 3.
26999  M01S00646.251l664 +++|*
27000  M01S00647.251l664 +++|*         CALLS  DDD.
27001  M01S00648.251l664 +++|
27002  M01S00649.251l664 +++|
27003  M01S00650.251l664 +++| DDB      TX2    A5,-FPC
27004  M01S00651.251l664 +++|          NG     X2,/MONITOR/DDB  IF NOT CALLED FROM A CPP
27005  M01S00652.251l664 +++|          TX2    A5,-SP
27006  M01S00653.251l664 +++|          PL     X2,/MONITOR/DDB  IF NOT CALLED FROM A CPP
27007  M01S00654.251l664 +++|          SB3    DDB1        SET *DDD* RETURN ADDRESS
27008  M01S00655.251l664 +++|          JP     /MONITOR/DDD  ATTEMPT TO DUMP DAYFILE DIRECT
27009  M01S00656.251l664 +++|
27010  M01S00657.251l664 +++| DDB1     SX0    B7          WAIT FOR 1 SECTOR OF SPACE

Seq #  *Modification Id* Act 
----------------------------+
27011  M01S00001.ns2596  +++|          SX4    B6+         SET DAYFILE INDEX
27012  M01S00002.ns2596  +++|          BX5    X4+X5

Seq #  *Modification Id* Act 
----------------------------+
27013  M01S00658.251l664 +++|          JP     /MONITOR/DDB3  CHANGE FUNCTION TO *CDBM*

Seq #  *Modification Id* Act 
----------------------------+
27014  M01S00093.ns2447  +++| DDD      SPACE  4,15
27015  M01S00094.ns2447  +++|**        DDD - *DDD* EXTENSION FOR CONCURRENT PP-S.
27016  M01S00095.ns2447  +++|*
27017  M01S00096.ns2447  +++|*         *DDD* GETS CALLED WHEN ATTEMPTING TO INITIATE A DAYFILE
27018  M01S00097.ns2447  +++|*         BUFFER DUMP BY CALLING *1DD* DIRECTLY AND THE CONTROL POINT
27019  M01S00098.ns2447  +++|*         INVOLVED HAS ROLLOUT REQUESTED.  IF A *CPP* IS REQUESTING THE
27020  M01S00099.ns2447  +++|*         DUMP, *1DD* WILL BE CALLED.  OTHERWISE, IT WILL NOT BE.
27021  M01S00100.ns2447  +++|*
27022  M01S00101.ns2447  +++|*         ENTRY  (A5) = REQUEST ADDRESS.
27023  M01S00102.ns2447  +++|*                (B3) = RETURN ADDRESS FOR */MONITOR/DDD*.
27024  M01S00103.ns2447  +++|*
27025  M01S00104.ns2447  +++|*         EXIT   TO */MONITOR/DDD2*, IF CALLED FROM A CPP.
27026  M01S00105.ns2447  +++|*                TO (B3), IF NOT CALLED FROM A CPP.
27027  M01S00106.ns2447  +++|*
27028  M01S00107.ns2447  +++|*         USES   X - 2.
27029  M01S00108.ns2447  +++|
27030  M01S00109.ns2447  +++|
27031  M01S00110.ns2447  +++| DDD      TX2    A5,-FPC
27032  M01S00111.ns2447  +++|          NG     X2,/MONITOR/RB3  IF NOT CALLED FROM A CPP
27033  M01S00112.ns2447  +++|          TX2    A5,-SP
27034  M01S00113.ns2447  +++|          NG     X2,/MONITOR/DDD2  IF CALLED FROM A CPP
27035  M01S00114.ns2447  +++|          JP     B3          RETURN

Seq #  *Modification Id* Act 
----------------------------+
27036  M01S00750.273l780 +++| DPP      SPACE  4,10
27037  M01S00751.273l780 +++|**        DPP - *DPPM* EXTENSION FOR CONCURRENT PP-S.
27038  M01S00752.273l780 +++|*
27039  M01S00753.273l780 +++|*         ENTRY  (A5) = *OR* ADDRESS OF CPP TO DROP.
27040  M01S00754.273l780 +++|*                (A2) = ADDRESS OF *ACPP*.
27041  M01S00755.273l780 +++|*
27042  M01S00756.273l780 +++|*         EXIT   TO *APQ*, TO CALL *1MA* WHICH WILL IDLE THE CPP.
27043  M01S00757.273l780 +++|*
27044  M01S00758.273l780 +++|*         USES   X - 3, 4, 6, 7.
27045  M01S00759.273l780 +++|*                A - 4, 7.
27046  M01S00760.273l780 +++|*                B - 3, 4, 7.
27047  M01S00761.273l780 +++|
27048  M01S00762.273l780 +++|
27049  M01S00763.273l780 +++| DPP      BSS    0           ENTRY
27050  M01S00764.273l780 +++|          SX7    3L*MA       RESET INPUT REGISTER
27051  M01S00765.273l780 +++|          LX7    59-17
27052  M01S00766.273l780 +++|          MX4    18
27053  M01S00767.273l780 +++|          BX7    X4*X7
27054  M01S00768.273l780 +++|          SA7    A5-B1
27055  M01S00769.273l780 +++|          SA4    PPAL        INCREMENT COUNT OF AVAILABLE CPP-S
27056  M01S00770.273l780 +++|          SX3    10000B
27057  M01S00771.273l780 +++|          IX7    X4+X3
27058  M01S00772.273l780 +++|          SA7    A4
27059  M01S00773.273l780 +++|          BX7    X7-X7
27060  M01S00774.273l780 +++|          SA7    A2          CLEAR *ACPP*
27061  M01S00775.273l780 +++|          SA7    A5+         CLEAR OUTPUT REGISTER
27062  M01S00776.273l780 +++|          SB3    DPP1
27063  M01S00777.273l780 +++|          EQ     /MONITOR/JAV  CHECK JOB ADVANCE CONDITIONS
27064  M01S00778.273l780 +++|
27065  M01S00779.273l780 +++| DPP1     SA2    DPPA        SET PP CALL
27066  M01S00780.273l780 +++|          SX3    A5-B1       INPUT REGISTER ADDRESS
27067  M01S00781.273l780 +++|          BX6    X2+X3
27068  M01S00782.273l780 +++|          TB7    SCA         SET CONTROL POINT FOR *1MA* CALL
27069  M01S00783.273l780 +++|          SB4    /MONITOR/LA1MA  SET INDEX INTO *TAPQ* TABLE
27070  M01S00784.273l780 +++|          SB3    /MONITOR/MTRX   EXIT ADDRESS
27071  M01S00785.273l780 +++|          EQ     /MONITOR/APQ  ASSIGN PP
27072  M01S00786.273l780 +++|
27073  M01S00787.273l780 +++|
27074  M01S00788.273l780 +++| DPPA     VFD    18/0L1MA,6/0,12/12B,24/0

Seq #  *Modification Id* Act 
----------------------------+
27075  M01S00659.251l664 +++| LMS      SPACE  4,15
27076  M01S00660.251l664 +++|**        LMS - *LMSM* EXTENSION FOR CONCURRENT PPS.
27077  M01S00661.251l664 +++|*
27078  M01S00662.251l664 +++|*         ENTRY  (X0) = 77777777777777770000B.
27079  M01S00663.251l664 +++|*                (X2) = SUBFUNCTION CODE.
27080  M01S00664.251l664 +++|*                (X6) = *WDSE* MASK = -0 IF *WDSE* PRESENT.
27081  M01S00665.251l664 +++|*
27082  M01S00666.251l664 +++|*         EXIT   (X0) = 11B.

Seq #  *Modification Id* Act 
----------------------------+
27083  M01S00729.252l678 +++|*                (X3) = *CHRV* VALUE FROM MB+1.

Seq #  *Modification Id* Act 
----------------------------+
27084  M01S00667.251l664 +++|*                (X4) = OLD DRIVER INDEX.

Seq #  *Modification Id* Act 
----------------------------+
27085  M02S00668.252l678 ---|*                (X5) = *6DC*-S DRIVER INDEX.

Seq #  *Modification Id* Act 
----------------------------+
27086  M01S00730.252l678 +++|*                (X5) = *6DC*/*6DD* DRIVER INDEX.

Seq #  *Modification Id* Act 
----------------------------+
27087  M01S00669.251l664 +++|*                (X6) = 12/0, 12/*WDSE* VALUE, 24/0, 12/2.

Seq #  *Modification Id* Act 
----------------------------+
27088  M02S00670.252l678 ---|*                (X7) = *CHRV* VALUE FROM MB+1.

Seq #  *Modification Id* Act 
----------------------------+
27089  M01S00731.252l678 +++|*                (A3) = MESSAGE BUFFER ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
27090  M01S00671.251l664 +++|*                (B3) = SUBFUNCTION CODE.
27091  M01S00672.251l664 +++|*
27092  M01S00673.251l664 +++|*         USES   X - 0, 2, 3, 4, 5, 6, 7.
27093  M01S00674.251l664 +++|*                A - 2, 3.
27094  M01S00675.251l664 +++|*                B - 3.
27095  M01S00676.251l664 +++|
27096  M01S00677.251l664 +++|
27097  M01S00678.251l664 +++| LMS13    SA3    A5+B1       GET *MB*
27098  M01S00679.251l664 +++|          SB3    X2          (B3) = SUBFUNCTION CODE
27099  M01S00680.251l664 +++|          SA2    A3+B1       GET *MB*+1

Seq #  *Modification Id* Act 
----------------------------+
27100  M02S00681.252l678 ---|          LX5    59-45

Seq #  *Modification Id* Act 
----------------------------+
27101  M01S00732.252l678 +++|          LX5    59-44

Seq #  *Modification Id* Act 
----------------------------+
27102  M01S00682.251l664 +++|          SX4    37B*10000B

Seq #  *Modification Id* Act 
----------------------------+
27103  M02S00683.252l678 ---|          PL     X5,/MONITOR/HNG  IF *6DC* REQUEST BIT IS NOT SET

Seq #  *Modification Id* Act 
----------------------------+
27104  M01S00733.252l678 +++|          MI     X5,LMS14    IF *6DD* REQUEST BIT IS SET

Seq #  *Modification Id* Act 
----------------------------+
27105  M01S00684.251l664 +++|          SX5    /MONITOR/LA6DC*10000B  SET NEW DRIVER INDEX

Seq #  *Modification Id* Act 
----------------------------+
27106  M02S00685.252l678 ---|          BX7    -X0*X2      GET *CHRV* VALUE

Seq #  *Modification Id* Act 
----------------------------+
27107  M01S00734.252l678 +++|          EQ     LMS15       COMPLETE *6DC* LOAD PROCESSING
27108  M01S00735.252l678 +++|
27109  M01S00736.252l678 +++| LMS14    SX5    /MONITOR/LA6DD*10000B  SET *6DD* DRIVER INDEX
27110  M01S00737.252l678 +++| LMS15    BX7    -X0*X2      GET *CHRV* VALUE

Seq #  *Modification Id* Act 
----------------------------+
27111  M01S00686.251l664 +++|          BX0    X6*X0       GET *WDSE* VALUE

Seq #  *Modification Id* Act 
----------------------------+
27112  M02S00687.252l678 ---|          SX6    2           INHIBIT PRESET IF *6DC* IS ALREADY LOADED

Seq #  *Modification Id* Act 
----------------------------+
27113  M01S00688.251l664 +++|          LX0    36
27114  M01S00689.251l664 +++|          BX4    X4*X2
27115  M01S00690.251l664 +++|          BX0    -X0*X3

Seq #  *Modification Id* Act 
----------------------------+
27116  M01S00738.252l678 +++|          SX6    B1+B1       INHIBIT PRESET IF *6DC* ALREADY LOADED
27117  M01S00739.252l678 +++|          LX3    X7

Seq #  *Modification Id* Act 
----------------------------+
27118  M01S00691.251l664 +++|          BX6    X6+X0
27119  M01S00692.251l664 +++|          SX0    11B
27120  M01S00693.251l664 +++|          EQ     /MONITOR/LMS4  CHECK FOR DRIVER LOAD NEEDED
27121  M01S00694.251l664 +++| SPL      SPACE  4,10
27122  M01S00695.251l664 +++|**        SPL - *SPLM* EXTENSION FOR CONCURRENT PPS.
27123  M01S00696.251l664 +++|*
27124  M01S00697.251l664 +++|*         ENTRY  ENTRY CONDITIONS FOR *SPL*.
27125  M01S00698.251l664 +++|*
27126  M01S00699.251l664 +++|*         EXIT   (B6) = B6 + 400000B, IF REQUEST IS FOR A CPP.
27127  M01S00700.251l664 +++|*
27128  M01S00701.251l664 +++|*         USES   X - 3, 4.
27129  M01S00702.251l664 +++|
27130  M01S00703.251l664 +++|
27131  M01S00704.251l664 +++| SPL      TX3    A5,-FPC     CHECK FOR CALL FROM CPP
27132  M01S00705.251l664 +++|          TX4    A5,-SP
27133  M01S00706.251l664 +++|          NG     X3,/MONITOR/SPL  IF NOT FROM CPP
27134  M01S00707.251l664 +++|          PL     X4,/MONITOR/SPL  IF NOT FROM CPP
27135  M01S00708.251l664 +++|          SB6    B6+400000B
27136  M01S00709.251l664 +++|          EQ     /MONITOR/SPL  SEARCH PERIPHERAL LIBRARY
27137  M01S00710.251l664 +++|
27138  M01S00711.251l664 +++| SPL1     PL     B6,SPL2     IF REQUEST WAS FOR AN NPP
27139  M01S00712.251l664 +++|          SB6    B6-400000B

Seq #  *Modification Id* Act 
----------------------------+
27140  M02S00713.252l678 ---| SPL2     TJP    0,(/PROBE/SPL,B6,PROBE)  RETURN

Seq #  *Modification Id* Act 
----------------------------+
27141  M02S00740.253l688 ---| SPL2     TJP    0,(/PROBE/SPL,PROBE,B6)  RETURN

Seq #  *Modification Id* Act 
----------------------------+
27142  M01S01549.253l688 +++| SPL2     TJP    (/PROBE/SPL,PROBE,B6)  RETURN

Seq #  *Modification Id* Act 
----------------------------+
27143  M01S00714.251l664 +++|          TITLE  SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
27144  M02S00715.ns2447  ---| CPC      SPACE  4,10
27145  M02S00716.ns2447  ---|**        CPC - CLEAR PARAMETER WORD AND DECREMENT PP COUNT.
27146  M02S00717.ns2447  ---|*
27147  M02S00718.ns2447  ---|*         ENTRY  (A3) = *IR* ADDRESS OF ASSIGNED CPP.
27148  M02S00719.ns2447  ---|*                (B3) = CONTROL POINT AREA ADDRESS.
27149  M02S00720.ns2447  ---|*                (B4) = RETURN ADDRESS.
27150  M02S00721.ns2447  ---|
27151  M02S00722.ns2447  ---|
27152  M02S00723.ns2447  ---| CPC      SA1    PPAL        INCREMENT AVAILABLE CPP COUNT
27153  M02S00724.ns2447  ---|          SX0    B1
27154  M02S00725.ns2447  ---|          LX0    12-0
27155  M02S00726.ns2447  ---|          IX6    X0+X1
27156  M02S00727.ns2447  ---|          SA6    A1
27157  M02S00728.ns2447  ---|          SA2    B3+STSW     DECREMENT CONTROL POINT PP COUNT
27158  M02S00729.ns2447  ---|          LX0    48-0-12+0
27159  M02S00730.ns2447  ---|          IX6    X2-X0
27160  M02S00731.ns2447  ---|          SA6    A2
27161  M02S00732.ns2447  ---|          BX6    X6-X6       CLEAR INPUT REGISTER
27162  M02S00733.ns2447  ---|          SA6    A3
27163  M02S00734.ns2447  ---|          JP     B4          EXIT

Seq #  *Modification Id* Act 
----------------------------+
27164  M01S00735.251l664 +++| WPR      SPACE  4,15
27165  M01S00736.251l664 +++|**        WPR - WRITE PARAMETER WORDS INTO CPP-S COMMUNICATION AREA.
27166  M01S00737.251l664 +++|*

Seq #  *Modification Id* Act 
----------------------------+
27167  M02S00738.cpum150 ---|*         ENTRY  (X2) = 0, IF CALL FOR SYSTEM CONTROL POINT.
27168  M02S00739.cpum150 ---|*                       .NE. 0 IF CALL NOT FOR SYSTEM CONTROL POINT.
27169  M02S00740.cpum150 ---|*                (A3) = *IR* ADDRESS OF ASSIGNED CPP.

Seq #  *Modification Id* Act 
----------------------------+
27170  M01S00001.cpum150 +++|*         ENTRY  (A3) = *IR* ADDRESS OF ASSIGNED CPP.

Seq #  *Modification Id* Act 
----------------------------+
27171  M01S00741.251l664 +++|*                (A5) = *OR* ADDRESS OF CALLING PP.
27172  M01S00742.251l664 +++|*                (B3) = CONTROL POINT ADDRESS.
27173  M01S00743.251l664 +++|*                (B4) = RETURN ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
27174  M02S00115.273l780 ---|*                (B5) = INCREMENT CONTROL POINT-S PP COUNT FLAG.

Seq #  *Modification Id* Act 
----------------------------+
27175  M01S00744.251l664 +++|*

Seq #  *Modification Id* Act 
----------------------------+
27176  M02S00745.ns2447  ---|*         EXIT   TO CPR3, IF PP LIMIT EXCEEDED.

Seq #  *Modification Id* Act 
----------------------------+
27177  M01S00116.ns2447  +++|*         EXIT   TO *CPR2*, IF PP LIMIT EXCEEDED.

Seq #  *Modification Id* Act 
----------------------------+
27178  M01S00746.251l664 +++|*                *MB* OF CALLING PP WRITTEN INTO CPP-S *IR*.
27179  M01S00747.251l664 +++|*                *MB+1* OF CALLING PP WRITTEN INTO CPP-S *MB*.
27180  M01S00748.251l664 +++|*
27181  M01S00749.251l664 +++|*         USES   X - 0, 1, 2, 4, 6, 7.
27182  M01S00750.251l664 +++|*                A - 1, 2, 4, 7.
27183  M01S00751.251l664 +++|*                B - 6.
27184  M01S00752.251l664 +++|
27185  M01S00753.251l664 +++|
27186  M01S00754.251l664 +++| WPR      SA4    B3+STSW

Seq #  *Modification Id* Act 
----------------------------+
27187  M02S00755.ns2447  ---|          SX7    6           SET ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
27188  M01S00117.ns2447  +++|          SX7    6           RC = *MAXIMUM PP-S ALREADY ASSIGNED*

Seq #  *Modification Id* Act 
----------------------------+
27189  M01S00002.cpum150 +++|          TX2    B3,-SCA

Seq #  *Modification Id* Act 
----------------------------+
27190  M01S00756.251l664 +++|          MX0    -5
27191  M01S00757.251l664 +++|          LX4    0-48
27192  M01S00758.251l664 +++|          ZR     X2,WPR1     IF CALL FOR SYSTEM CONTROL POINT
27193  M01S00759.251l664 +++|          BX0    -X0*X4
27194  M01S00760.251l664 +++|          SB6    X0-NPPCP-1

Seq #  *Modification Id* Act 
----------------------------+
27195  M02S00761.ns2447  ---|          PL     B6,CPR3     IF PP LIMIT EXCEEDED
27196  M02S00762.ns2447  ---| WPR1     SX0    B1

Seq #  *Modification Id* Act 
----------------------------+
27197  M01S00118.ns2447  +++|          PL     B6,CPR2     IF PP LIMIT EXCEEDED

Seq #  *Modification Id* Act 
----------------------------+
27198  M02S00119.273l780 ---| WPR1     SX0    B5

Seq #  *Modification Id* Act 
----------------------------+
27199  M01S00789.273l780 +++| WPR1     SX0    B1

Seq #  *Modification Id* Act 
----------------------------+
27200  M01S00763.251l664 +++|          IX7    X4+X0       INCREMENT PP COUNT
27201  M01S00764.251l664 +++|          LX7    48-0
27202  M01S00765.251l664 +++|          SA7    A4

Seq #  *Modification Id* Act 
----------------------------+
27203  M02S00766.273l780 ---|          SA2    PPAL        DECREMENT AVAILABLE CPP COUNT

Seq #  *Modification Id* Act 
----------------------------+
27204  M03S00767.273l780 ---|          LX0    12-0

Seq #  *Modification Id* Act 
----------------------------+
27205  M02S00003.273l780 ---|          SX0    10000B

Seq #  *Modification Id* Act 
----------------------------+
27206  M02S00768.273l780 ---|          IX7    X2-X0

Seq #  *Modification Id* Act 
----------------------------+
27207  M01S00790.273l780 +++|          SA2    PPAL
27208  M01S00791.273l780 +++|          LX0    12-0
27209  M01S00792.273l780 +++|          IX7    X2-X0       DECREMENT AVAILABLE CPP COUNT

Seq #  *Modification Id* Act 
----------------------------+
27210  M01S00769.251l664 +++|          SA7    A2
27211  M01S00770.251l664 +++|          SA1    A5+B1
27212  M01S00771.251l664 +++|          SX2    B3          ADD CONTROL POINT NUMBER
27213  M01S00772.251l664 +++|          LX2    36-0-7
27214  M01S00773.251l664 +++|          BX7    X1+X2
27215  M01S00774.251l664 +++|          SA2    A1+B1
27216  M01S00775.251l664 +++|          BX6    X2
27217  M01S00776.251l664 +++|          SA7    A3
27218  M01S00777.251l664 +++|          SA6    A3+2        WRITE PARAMETER WORD INTO NEW CPP-S MB

Seq #  *Modification Id* Act 
----------------------------+
27219  M01S00793.273l780 +++|
27220  M01S00794.273l780 +++|*         IF NOT CALLED TO THE SYSTEM CONTROL POINT, AN ALTERNATE
27221  M01S00795.273l780 +++|*         ASSIGNMENT TO THE SYSTEM CONTROL POINT WILL BE SET TO ALLOW
27222  M01S00796.273l780 +++|*         A STORAGE MOVE OF THE CALLING JOB WHILE THE CPP DEADSTART IS
27223  M01S00797.273l780 +++|*         IN PROGRESS.
27224  M01S00798.273l780 +++|
27225  M01S00799.273l780 +++|          TX7    B3,-SCA
27226  M01S00800.273l780 +++|          ZR     X7,WPR2     IF CALLED TO SYSTEM CP
27227  M01S00801.273l780 +++|          SX7    B1
27228  M01S00802.273l780 +++|          LX7    23-0        SET ALTERNATE CP FLAG
27229  M01S00803.273l780 +++| WPR2     TX1    SCA
27230  M01S00804.273l780 +++|          BX7    X7+X1
27231  M01S00805.273l780 +++|          LX1    24
27232  M01S00806.273l780 +++|          TX2    A3,-FP
27233  M01S00807.273l780 +++|          BX7    X7+X1
27234  M01S00808.273l780 +++|          LX1    24-7
27235  M01S00809.273l780 +++|          LX2    PPXES-PPCES
27236  M01S00810.273l780 +++|          BX7    X7+X1
27237  M01S00811.273l780 +++|          TA7    X2+ACPP,FPX SET CP ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
27238  M01S00778.251l664 +++|          JP     B4          RETURN

Seq #  *Modification Id* Act 
----------------------------+
27239  M01S00812.273l780 +++|

Seq #  *Modification Id* Act 
----------------------------+
27240  M01S00779.251l664 +++|
27241  M01S00780.251l664 +++|          ENDBLK

Seq #  *Modification Id* Act 
----------------------------+
27242  M01S01475.271l716 +++|          BLOCK  PCP,(PSEUDO-CONTROL POINT CODE.)
27243  M01S01476.271l716 +++| APC      SPACE  4,20
27244  M01S01477.271l716 +++|**        APC - ASSIGN PSEUDO-CONTROL POINT.
27245  M01S01478.271l716 +++|*
27246  M01S01479.271l716 +++|*         ENTRY  (X1) = *STSW* LEFT SHIFTED 59-31.
27247  M01S01480.271l716 +++|*                (X2) = EJT ORDINAL.

Seq #  *Modification Id* Act 
----------------------------+
27248  M01S00006.cpum219 +++|*                (X4) = EJT *JSNE* WORD.

Seq #  *Modification Id* Act 
----------------------------+
27249  M01S01481.271l716 +++|*                (A1) = *STSW* ADDRESS.
27250  M01S01482.271l716 +++|*                (B7) = CPA ADDRESS.
27251  M01S01483.271l716 +++|*
27252  M01S01484.271l716 +++|*         EXIT   (B3) = UNCHANGED.

Seq #  *Modification Id* Act 
----------------------------+
27253  M02S01485.cpum219 ---|*                (B5) = PCP NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
27254  M01S00007.cpum219 +++|*                (B5) = PCP NUMBER IF ROLLOUT TO PCP POSSIBLE.

Seq #  *Modification Id* Act 
----------------------------+
27255  M01S01486.271l716 +++|*                (B6) = -1 IF COMPOUND ROLLOUT.
27256  M01S01487.271l716 +++|*                     = 0 IF SIMPLE PSEUDO-ROLLOUT.
27257  M01S01488.271l716 +++|*                (B7) = CPA ADDRESS (UNCHANGED).

Seq #  *Modification Id* Act 
----------------------------+
27258  M01S00008.cpum219 +++|*                TO *RPC* TO INITIATE ROLLOUT TO PCP.
27259  M01S00009.cpum219 +++|*                TO /MONITOR/*JAV2* IF ROLLOUT TO PCP NOT POSSIBLE.

Seq #  *Modification Id* Act 
----------------------------+
27260  M01S01489.271l716 +++|*
27261  M01S01490.271l716 +++|*         USES   X - ALL.
27262  M01S01491.271l716 +++|*                B - 3, 4, 5, 6.
27263  M01S01492.271l716 +++|*                A - 1 - 6.
27264  M01S01493.271l716 +++|*
27265  M01S01494.271l716 +++|*         CALLS  RPC.
27266  M01S01495.271l716 +++|
27267  M01S01496.271l716 +++|
27268  M01S01497.271l716 +++| APC      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
27269  M02S01498.cpum219 ---|          BX6    X2          SAVE EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
27270  M01S00010.cpum219 +++|
27271  M01S00011.cpum219 +++|*         CHECK JOB FOR CONDITIONS PREVENTING PSEUDO-ROLLOUT.
27272  M01S00012.cpum219 +++|
27273  M01S00013.cpum219 +++|          SX6    X2+

Seq #  *Modification Id* Act 
----------------------------+
27274  M01S01499.271l716 +++|          SA2    B7+SRUW

Seq #  *Modification Id* Act 
----------------------------+
27275  M01S00014.cpum219 +++|          SA3    B7+FLIW
27276  M01S00015.cpum219 +++|          SA6    APCC        SAVE EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
27277  M01S01500.271l716 +++|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
27278  M02S01501.cpum219 ---|          SA6    APCC
27279  M02S01502.cpum219 ---|          MX6    -59
27280  M02S01503.cpum219 ---|          LX2    59-41
27281  M02S01504.cpum219 ---|          BX6    -X6*X1      CLEAR PSEUDO-ROLLOUT FLAG

Seq #  *Modification Id* Act 
----------------------------+
27282  M01S01505.271l716 +++|          AX1    36-32

Seq #  *Modification Id* Act 
----------------------------+
27283  M02S01506.cpum219 ---|          PL     X2,APC2     IF NOT ACCUMULATOR OVERFLOW
27284  M02S01507.cpum219 ---| APC1     LX6    31-59

Seq #  *Modification Id* Act 
----------------------------+
27285  M01S00016.cpum219 +++|          SX6    4000B
27286  M01S00017.cpum219 +++|          BX1    -X0*X1      ERROR FLAG
27287  M01S00018.cpum219 +++|          MX7    -36
27288  M01S00019.cpum219 +++|          LX2    11-41       POSITION ACCUMULATOR OVERFLOW FLAG
27289  M01S00020.cpum219 +++|          BX3    -X7*X3      PENDING FL OR FLE INCREASE
27290  M01S00021.cpum219 +++|          BX2    X4+X2
27291  M01S00022.cpum219 +++|          IX1    X1+X3
27292  M01S00023.cpum219 +++|          BX2    X6*X2       SET OVERFLOW AND SCP CONNECTION STATUS
27293  M01S00024.cpum219 +++|          IX2    X1+X2
27294  M01S00025.cpum219 +++|          ZR     X2,APC2     IF NO CONDITIONS PREVENTING PSEUDO-ROLLOUT
27295  M01S00026.cpum219 +++|
27296  M01S00027.cpum219 +++|*         ROLL OUT JOB TO MASS STORAGE IF PSEUDO-ROLLOUT NOT POSSIBLE.
27297  M01S00028.cpum219 +++|
27298  M01S00029.cpum219 +++| APC1     SA1    B7+STSW
27299  M01S00030.cpum219 +++|          MX6    -1
27300  M01S00031.cpum219 +++|          LX6    31-0
27301  M01S00032.cpum219 +++|          BX6    X6*X1       CLEAR PSEUDO-ROLLOUT ALLOWED FLAG

Seq #  *Modification Id* Act 
----------------------------+
27302  M01S01508.271l716 +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
27303  M02S01509.cpum219 ---|          EQ     /MONITOR/JAV2  CALL *1AJ*

Seq #  *Modification Id* Act 
----------------------------+
27304  M01S00033.cpum219 +++|          EQ     /MONITOR/JAV2  CALL *1AJ* FOR MASS STORAGE ROLLOUT

Seq #  *Modification Id* Act 
----------------------------+
27305  M01S01510.271l716 +++|

Seq #  *Modification Id* Act 
----------------------------+
27306  M02S01511.cpum219 ---| APC2     BX3    -X0*X1      ERROR FLAG
27307  M02S01512.cpum219 ---|          NZ     X3,APC1     IF ERROR FLAG SET
27308  M02S01513.cpum219 ---|          SX6    A5          SAVE (A5)
27309  M02S01514.cpum219 ---|          SA1    PCPP

Seq #  *Modification Id* Act 
----------------------------+
27310  M01S00034.cpum219 +++|*         SAVE REGISTERS AND INITIALIZE PCP SEARCH.
27311  M01S00035.cpum219 +++|
27312  M01S00036.cpum219 +++| APC2     SA1    PCPP
27313  M01S00037.cpum219 +++|          SX6    A5+         SAVE (A5)

Seq #  *Modification Id* Act 
----------------------------+
27314  M01S01515.271l716 +++|          TX3    SC          SYSTEM CP NUMBER
27315  M01S01516.271l716 +++|          SB4    X1+TFSW     PCPA FWA + *TFSW*
27316  M01S01517.271l716 +++|          SA6    APCB

Seq #  *Modification Id* Act 
----------------------------+
27317  M02S01518.cpum219 ---|          SX7    B3          SAVE (B3)
27318  M02S01519.cpum219 ---|          SB5    X3+B1       FIRST PCP NUMBER

Seq #  *Modification Id* Act 
----------------------------+
27319  M01S00038.cpum219 +++|          SX7    B3+         SAVE (B3)
27320  M01S00039.cpum219 +++|          SB5    X3+1        FIRST PCP NUMBER

Seq #  *Modification Id* Act 
----------------------------+
27321  M01S01520.271l716 +++|          SX6    77777B      INITIALIZE LOWEST PRIORITY
27322  M01S01521.271l716 +++|          SA1    CMCL
27323  M01S01522.271l716 +++|          SA7    APCA
27324  M01S01523.271l716 +++|          TX2    NPCP        NUMBER OF PCP-S
27325  M01S01524.271l716 +++|          LX1    -48
27326  M01S01525.271l716 +++|          BX1    -X0*X1      MOVING CP/PCP NUMBER

Seq #  *Modification Id* Act 
----------------------------+
27327  M01S00040.cpum219 +++|
27328  M01S00041.cpum219 +++|*         SEARCH FOR AVAILABLE PCP.
27329  M01S00042.cpum219 +++|

Seq #  *Modification Id* Act 
----------------------------+
27330  M01S01526.271l716 +++| APC3     SX2    X2-1        DECREMENT PCP INDEX
27331  M01S01527.271l716 +++|          NG     X2,APC4     IF END OF SCAN
27332  M01S01528.271l716 +++|          BX3    X2
27333  M01S01529.271l716 +++|          LX3    7           PCP INDEX * 200B
27334  M01S01530.271l716 +++|          SA4    B4+X3       READ THIS PCP-S *TFSW* WORD
27335  M01S01531.271l716 +++|          LX4    -48
27336  M01S01532.271l716 +++|          BX4    -X0*X4      EJT ORDINAL
27337  M01S01533.271l716 +++|          ZR     X4,APC5     IF FREE PCP
27338  M01S01534.271l716 +++|          SX3    B5+X2       PCP NUMBER
27339  M01S01535.271l716 +++|          BX3    X3-X1
27340  M01S01536.271l716 +++|          ZR     X3,APC3     IF PCP MOVING
27341  M01S01537.271l716 +++|          CX5    X4,EJT      CONVERT EJT ORDINAL TO OFFSET
27342  M01S01538.271l716 +++|          TA5    X5+JSNE,EJT
27343  M01S01539.271l716 +++|          SA3    A4+STSW-TFSW
27344  M01S01540.271l716 +++|          LX5    59-0
27345  M01S01541.271l716 +++|          AX3    48
27346  M01S01542.271l716 +++|          NG     X5,APC3     IF PCP JOB INTERLOCKED
27347  M01S01543.271l716 +++|          SA5    A5+SCLE-JSNE
27348  M01S01544.271l716 +++|          AX5    54          SERVICE CLASS

Seq #  *Modification Id* Act 
----------------------------+
27349  M02S01545.271l750 ---|          LX5    3

Seq #  *Modification Id* Act 
----------------------------+
27350  M01S01540.271l750 +++|          CX4    X5,JCB      CONVERT JCB ORDINAL TO OFFSET

Seq #  *Modification Id* Act 
----------------------------+
27351  M01S01546.271l716 +++|          NZ     X3,APC3     IF ACTIVITY AT PCP

Seq #  *Modification Id* Act 
----------------------------+
27352  M02S01547.271l750 ---|          ERRNZ  JCBE-10B    CODE DEPENDS ON VALUE
27353  M02S01548.271l750 ---|          TA4    X5+EXQT,JBC

Seq #  *Modification Id* Act 
----------------------------+
27354  M01S01541.271l750 +++|          TA4    X4+EXQT,JCB

Seq #  *Modification Id* Act 
----------------------------+
27355  M01S01549.271l716 +++|          LX4    -12
27356  M01S01550.271l716 +++|          BX7    -X0*X4      WEIGHTING FACTOR (WF)
27357  M01S01551.271l716 +++|          SB3    X7
27358  M01S01552.271l716 +++|          LX4    -36+12
27359  M01S01553.271l716 +++|          BX4    -X0*X4      LOWER BOUND PRIORITY (LB)
27360  M01S01554.271l716 +++|          SA3    RTCL
27361  M01S01555.271l716 +++|          AX3    36          REAL TIME SECONDS (RT)
27362  M01S01556.271l716 +++|          SA5    A5+SCHE-SCLE
27363  M01S01557.271l716 +++|          LX5    36
27364  M01S01558.271l716 +++|          AX5    36          ENTRY TIME (ET)
27365  M01S01559.271l716 +++|          IX3    X3-X5       RT - ET
27366  M01S01560.271l716 +++|          AX3    X3,B3       (RT - ET) / WF
27367  M01S01561.271l716 +++|          IX4    X3+X4       PRIORITY = LB + (RT - ET) / WF
27368  M01S01562.271l716 +++|          IX5    X4-X6
27369  M01S01563.271l716 +++|          PL     X5,APC3     IF HIGHER PRIORITY THAN CURRECNT LOWEST
27370  M01S01564.271l716 +++|          SX6    X4          SET NEW LOWEST PRIORITY PCP JOB
27371  M01S01565.271l716 +++|          SB6    B5+X2       SET NEW LOWEST PRIORITY PCP NUMBER
27372  M01S01566.271l716 +++|          EQ     APC3        CONTINUE SCAN
27373  M01S01567.271l716 +++|

Seq #  *Modification Id* Act 
----------------------------+
27374  M01S00043.cpum219 +++|*         PROCESS NO PCP AVAILABLE.  INITIATE COMPOUND ROLLOUT OF
27375  M01S00044.cpum219 +++|*         LOWEST PRIORITY PCP JOB IF THAT JOB-S PRIORITY IS LOWER THAN
27376  M01S00045.cpum219 +++|*         THAT OF THE CP JOB.
27377  M01S00046.cpum219 +++|

Seq #  *Modification Id* Act 
----------------------------+
27378  M01S01568.271l716 +++| APC4     SA3    B7+TFSW
27379  M01S01569.271l716 +++|          TA1    PCNS,SDA
27380  M01S01570.271l716 +++|          SX7    B1
27381  M01S01571.271l716 +++|          IX7    X1+X7       INCREMENT *NO PCP* COUNTER
27382  M01S01572.271l716 +++|          SA7    A1
27383  M01S01573.271l716 +++|          LX3    -48
27384  M01S01574.271l716 +++|          BX4    -X0*X3      CP JOB-S EJT ORDINAL
27385  M01S01575.271l716 +++|          CX3    X4,EJT      CONVERT EJT ORDINAL TO OFFSET
27386  M01S01576.271l716 +++|          TA3    X3+SCHE,EJT
27387  M01S01577.271l716 +++|          BX3    -X0*X3      CP JOB-S SCHEDULING PRIORITY
27388  M01S01578.271l716 +++|          IX3    X6-X3

Seq #  *Modification Id* Act 
----------------------------+
27389  M02S01579.cpum219 ---|          PL     X3,APC5     IF LOWEST PCP PRIORITY .GE. CP JOB-S

Seq #  *Modification Id* Act 
----------------------------+
27390  M01S00047.cpum219 +++|          PL     X3,APC7     IF LOWEST PCP PRIORITY .GE. CP JOB-S

Seq #  *Modification Id* Act 
----------------------------+
27391  M01S01580.271l716 +++|          SX4    B6-B5       PCP INDEX
27392  M01S01581.271l716 +++|          LX4    7
27393  M01S01582.271l716 +++|          TB4    X4,PCPA     PCPA ADDRESS FOR *RPC*
27394  M01S01583.271l716 +++|          SB5    B6          PCP NUMBER FOR *RPC*
27395  M01S01584.271l716 +++|          SB6    -B1         INDICATE *APC* CALL

Seq #  *Modification Id* Act 
----------------------------+
27396  M02S01585.cpum219 ---|          SA1    APCA        RESTORE (B3)

Seq #  *Modification Id* Act 
----------------------------+
27397  M01S00048.cpum219 +++|          EQ     APC6        INITIATE COMPOUND ROLLOUT
27398  M01S00049.cpum219 +++|
27399  M01S00050.cpum219 +++|*         INITIATE ROLLOUT TO UNOCCUPIED PCP.
27400  M01S00051.cpum219 +++|
27401  M01S00052.cpum219 +++| APC5     SA1    APCC        GET EJT ORDINAL
27402  M01S00053.cpum219 +++|          SB6    B0+         INDICATE SIMPLE PSEUDO-ROLLOUT TO *RPC*
27403  M01S00054.cpum219 +++|          TB4    X3,PCPA     *PCPA* ADDRESS FOR *RPC*
27404  M01S00055.cpum219 +++|          LX1    48
27405  M01S00056.cpum219 +++|          AX3    7           PCP INDEX
27406  M01S00057.cpum219 +++|          BX6    X1
27407  M01S00058.cpum219 +++|          SB5    B5+X3       PCP NUMBER
27408  M01S00059.cpum219 +++|          SA6    B4+TFSW     RESERVE PCP
27409  M01S00060.cpum219 +++|
27410  M01S00061.cpum219 +++|*         RESTORE REGISTERS AND INITIATE PSEUDO-ROLLOUT OR COMPOUND
27411  M01S00062.cpum219 +++|*         ROLLOUT.
27412  M01S00063.cpum219 +++|
27413  M01S00064.cpum219 +++| APC6     SA1    APCA        RESTORE (B3)

Seq #  *Modification Id* Act 
----------------------------+
27414  M01S01586.271l716 +++|          SA2    A1+B1       RESTORE (A5)
27415  M01S01587.271l716 +++|          ERRNZ  APCB-APCA-1 CODE DEPENDS ON VALUE
27416  M01S01588.271l716 +++|          SB3    X1

Seq #  *Modification Id* Act 
----------------------------+
27417  M02S01589.cpum219 ---|          SA5    X2+
27418  M02S01590.cpum219 ---|          EQ     RPC         INITIATE ROLLOUT

Seq #  *Modification Id* Act 
----------------------------+
27419  M01S00065.cpum219 +++|          SA5    X2
27420  M01S00066.cpum219 +++|          EQ     RPC         INITIATE PSEUDO OR COMPOUND ROLLOUT

Seq #  *Modification Id* Act 
----------------------------+
27421  M01S01591.271l716 +++|

Seq #  *Modification Id* Act 
----------------------------+
27422  M02S01592.cpum219 ---| APC5     SA1    APCA        RESTORE (B3)

Seq #  *Modification Id* Act 
----------------------------+
27423  M01S00067.cpum219 +++|*         RESTORE REGISTERS AND INITIATE ROLLOUT TO MASS STORAGE.
27424  M01S00068.cpum219 +++|
27425  M01S00069.cpum219 +++| APC7     SA1    APCA        RESTORE (B3)

Seq #  *Modification Id* Act 
----------------------------+
27426  M01S01593.271l716 +++|          SA2    A1+B1       RESTORE (A5)
27427  M01S01594.271l716 +++|          ERRNZ  APCB-APCA-1 CODE DEPENDS ON VALUE
27428  M01S01595.271l716 +++|          SB3    X1

Seq #  *Modification Id* Act 
----------------------------+
27429  M02S01596.cpum219 ---|          SA5    X2+
27430  M02S01597.cpum219 ---|          ZR     X4,APC6     IF ABLE TO ASSIGN PCP
27431  M02S01598.cpum219 ---|          SA1    B7+STSW
27432  M02S01599.cpum219 ---|          MX4    -59
27433  M02S01600.cpum219 ---|          LX1    59-31
27434  M02S01601.cpum219 ---|          BX6    -X4*X1      CLEAR PSEUDO-ROLLOUT FLAG
27435  M02S01602.cpum219 ---|          EQ     APC1        CALL *1AJ*
27436  M02S01603.cpum219 ---|
27437  M02S01604.cpum219 ---| APC6     SB6    B0+         INDICATE SIMPLE PSEUDO-ROLLOUT TO *RPC*
27438  M02S01605.cpum219 ---|          SA1    APCC        GET EJT ORDINAL
27439  M02S01606.cpum219 ---|          TB4    X3,PCPA     *PCPA* ADDRESS FOR *RPC*
27440  M02S01607.cpum219 ---|          LX1    48
27441  M02S01608.cpum219 ---|          AX3    7           PCP INDEX
27442  M02S01609.cpum219 ---|          BX6    X1
27443  M02S01610.cpum219 ---|          SB5    B5+X3       PCP NUMBER
27444  M02S01611.cpum219 ---|          SA6    B4+TFSW     RESERVE PCP
27445  M02S01612.cpum219 ---|          EQ     RPC         INITIATE ROLLOUT

Seq #  *Modification Id* Act 
----------------------------+
27446  M01S00070.cpum219 +++|          SA5    X2
27447  M01S00071.cpum219 +++|          EQ     APC1        INITIATE ROLLOUT TO MASS STORAGE

Seq #  *Modification Id* Act 
----------------------------+
27448  M01S01613.271l716 +++|
27449  M01S01614.271l716 +++|
27450  M01S01615.271l716 +++| APCA     CON    0           (B3) SAVE AREA
27451  M01S01616.271l716 +++| APCB     CON    0           (A5) SAVE AREA
27452  M01S01617.271l716 +++| APCC     CON    0           EJT ORDINAL
27453  M01S01618.271l716 +++| RPC      SPACE  4,20
27454  M01S01619.271l716 +++|**        RPC - INITIATE PSEUDO-ROLLOUT OR PCP ROLLOUT.
27455  M01S01620.271l716 +++|*
27456  M01S01621.271l716 +++|*         ENTRY  (B3) = EXIT ADDRESS.
27457  M01S01622.271l716 +++|*                (B4) = PCPA ADDRESS.
27458  M01S01623.271l716 +++|*                (B5) = PCP NUMBER.
27459  M01S01624.271l716 +++|*                (B6) = -1 IF COMPOUND ROLLOUT.
27460  M01S01625.271l716 +++|*                     = 0 IF SIMPLE PSEUDO-ROLLOUT.
27461  M01S01626.271l716 +++|*                     .GT. 0 IF SIMPLE PCP ROLLOUT.
27462  M01S01627.271l716 +++|*                (B7) = CPA ADDRESS IF SIMPLE PSEUDO-ROLLOUT OR
27463  M01S01628.271l716 +++|*                       COMPOUND ROLLOUT.
27464  M01S01629.271l716 +++|*                     = PCPA ADDRESS IF SIMPLE PCP ROLLOUT.
27465  M01S01630.271l716 +++|*
27466  M01S01631.271l716 +++|*         EXIT   (B3) = UNCHANGED.
27467  M01S01632.271l716 +++|*                TO *APQ*.
27468  M01S01633.271l716 +++|*
27469  M01S01634.271l716 +++|*         USES   X - ALL.

Seq #  *Modification Id* Act 
----------------------------+
27470  M02S01635.273l780 ---|*                B - 4, 7.
27471  M02S01636.273l780 ---|*                A - 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
27472  M01S00813.273l780 +++|*                A - 1, 2, 3, 6.
27473  M01S00814.273l780 +++|*                B - 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
27474  M01S01637.271l716 +++|*
27475  M01S01638.271l716 +++|*         CALLS  APQ.
27476  M01S01639.271l716 +++|
27477  M01S01640.271l716 +++|
27478  M01S01641.271l716 +++| RPC      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
27479  M02S01642.273l780 ---|          SX5    B1+         *1RO* FUNCTION CODE - 2
27480  M02S01643.273l780 ---|          SX7    B1+

Seq #  *Modification Id* Act 
----------------------------+
27481  M01S00815.273l780 +++|          SX5    B1          *1RO* FUNCTION CODE - 2
27482  M01S00816.273l780 +++|          SX7    B1

Seq #  *Modification Id* Act 
----------------------------+
27483  M01S01644.271l716 +++|          GT     B6,B0,RPC1  IF SIMPLE PCP ROLLOUT
27484  M01S01645.271l716 +++|          TA1    POTS,SDA
27485  M01S01646.271l716 +++|          SX5    -B6
27486  M01S01647.271l716 +++|          IX6    X1+X7       INCREMENT PSEUDO-ROLLOUT COUNTER
27487  M01S01648.271l716 +++|          SA6    A1+
27488  M01S01649.271l716 +++|          EQ     B6,B0,RPC2  IF SIMPLE PSEUDO-ROLLOUT

Seq #  *Modification Id* Act 
----------------------------+
27489  M02S01650.273l780 ---|          SA2    B7+STSW
27490  M02S01651.273l780 ---|          LX2    0-32
27491  M02S01652.273l780 ---|          BX6    X2+X7       SET COMPOUND ROLLOUT FLAG FOR *JACM*
27492  M02S01653.273l780 ---|          LX6    32-0
27493  M02S01654.273l780 ---|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
27494  M01S01655.271l716 +++| RPC1     TA1    PCTS,SDA    INCREMENT PCP ROLLOUT COUNTER
27495  M01S01656.271l716 +++|          SA3    B4+TFSW     GET PCP EJT ORDINAL
27496  M01S01657.271l716 +++|          IX6    X1+X7
27497  M01S01658.271l716 +++|          LX3    -48
27498  M01S01659.271l716 +++|          SA6    A1+
27499  M01S01660.271l716 +++|          MX0    -12
27500  M01S01661.271l716 +++|          BX3    -X0*X3      PCP JOB EJT ORDINAL
27501  M01S01662.271l716 +++|          CX6    X3,EJT      CONVERT EJT ORDINAL TO OFFSET

Seq #  *Modification Id* Act 
----------------------------+
27502  M02S01663.273l780 ---|          LX7    24

Seq #  *Modification Id* Act 
----------------------------+
27503  M01S01664.271l716 +++|          TA3    X6+JSNE,EJT READ PCP EJT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
27504  M02S01665.273l780 ---|          SX6    101B
27505  M02S01666.273l780 ---|          SA1    B4+STSW
27506  M02S01667.273l780 ---|          BX6    X3+X6       SET JOB ADVANCE AND INTERLOCK
27507  M02S01668.273l780 ---|          BX7    X7+X1       SET ROLLOUT REQUESTED IN PCPA

Seq #  *Modification Id* Act 
----------------------------+
27508  M01S00817.273l780 +++|          BX6    X3+X7       SET JOB INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
27509  M01S01669.271l716 +++|          SA6    A3

Seq #  *Modification Id* Act 
----------------------------+
27510  M02S01670.273l780 ---|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
27511  M01S01671.271l716 +++| RPC2     SA2    RPCA
27512  M01S01672.271l716 +++|          SX4    B5+         PCP NUMBER
27513  M01S01673.271l716 +++|          LX5    24
27514  M01S01674.271l716 +++|          IX2    X2+X5       SET *1RO* FUNCTION CODE
27515  M01S01675.271l716 +++|          BX6    X2+X4       MERGE PCP NUMBER INTO *1RO* CALL
27516  M01S01676.271l716 +++|          SB6    B6-B1
27517  M01S01677.271l716 +++|          SB4    /MONITOR/LA1RO  SET *1RO* FAST PP LOAD TABLE INDEX
27518  M01S01678.271l716 +++|          NG     B6,/MONITOR/APQ  IF NOT SIMPLE PCP ROLLOUT
27519  M01S01679.271l716 +++|          TB7    SCA         SET SYSTEM CONTROL POINT ASSIGNMENT
27520  M01S01680.271l716 +++|          EQ     /MONITOR/APQ  ASSIGN PP
27521  M01S01681.271l716 +++|
27522  M01S01682.271l716 +++|
27523  M01S01683.271l716 +++| RPCA     VFD    18/3L1RO,6/0,12/2,24/0  *1RO* REQUEST
27524  M01S01684.271l716 +++|
27525  M01S01685.271l716 +++|          ENDBLK

Seq #  *Modification Id* Act 
----------------------------+
27526  M01S00009.ns2332  +++|          BLOCK  CP830,(CYBER 810/830 RESIDENT CODE.),MONITOR
27527  M01S00010.ns2332  +++| CSP      SPACE  4,20
27528  M01S00011.ns2332  +++|**        CSP - CHECK FOR SPECIAL PP PROGRAM.
27529  M01S00012.ns2332  +++|*
27530  M01S00013.ns2332  +++|*         ON CYBER 810/830 MAINFRAMES WITH 20 PPS, CERTAIN PROGRAMS
27531  M01S00014.ns2332  +++|*         ARE ASSIGNED ONLY TO BARREL 1.
27532  M01S00015.ns2332  +++|*
27533  M01S00016.ns2332  +++|*         ENTRY  (X6) = PP CALL.
27534  M01S00017.ns2332  +++|*                (X2) = AVAILABLE PP FLAGS.
27535  M01S00018.ns2332  +++|*                (B7) = CP ADDRESS.
27536  M01S00019.ns2332  +++|*
27537  M01S00020.ns2332  +++|*         EXIT   (X2) = UPDATED AVAILABLE PP FLAGS.

Seq #  *Modification Id* Act 
----------------------------+
27538  M02S00021.ns2332b ---|*                TO *APQ2.0* TO ASSIGN PP.
27539  M02S00022.ns2332b ---|*                TO *APQ7* IF NO PP AVAILABLE.

Seq #  *Modification Id* Act 
----------------------------+
27540  M01S00012.ns2332b +++|*                (APQC) = PP SELECTION MASK.

Seq #  *Modification Id* Act 
----------------------------+
27541  M01S00023.ns2332  +++|*

Seq #  *Modification Id* Act 
----------------------------+
27542  M02S00024.ns2332b ---|*         USES   X - 1, 2, 3, 4.
27543  M02S00025.ns2332b ---|*                A - 4.

Seq #  *Modification Id* Act 
----------------------------+
27544  M01S00013.ns2332b +++|*         USES   X - 2, 3, 4, 7.
27545  M01S00014.ns2332b +++|*                A - 4, 7.

Seq #  *Modification Id* Act 
----------------------------+
27546  M02S00026.251l664 ---|*                B - 6.

Seq #  *Modification Id* Act 
----------------------------+
27547  M01S00027.ns2332  +++|
27548  M01S00028.ns2332  +++|
27549  M01S00029.ns2332  +++| CSP      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
27550  M02S00030.251l664 ---|          SA4    CSPA        PRESET TABLE SEARCH

Seq #  *Modification Id* Act 
----------------------------+
27551  M01S00781.251l664 +++|          SA4    CSPB        PRESET TABLE SEARCH

Seq #  *Modification Id* Act 
----------------------------+
27552  M01S00031.ns2332  +++|          MX3    18
27553  M01S00032.ns2332  +++|          BX3    X3*X6       GET PACKAGE NAME
27554  M01S00033.ns2332  +++|          LX3    18

Seq #  *Modification Id* Act 
----------------------------+
27555  M02S00034.251l664 ---|          IX4    X3-X4
27556  M02S00035.251l664 ---|          ZR     X4,CSP2     IF *1AJ* CALL
27557  M02S00036.251l664 ---|          PL     X4,CSP1     IF SYSTEM CALL (*1XX* PP NAME)

Seq #  *Modification Id* Act 
----------------------------+
27558  M01S00782.251l664 +++|          MX7    -18         GET PP ROUTINE
27559  M01S00783.251l664 +++|          BX7    -X7*X4
27560  M01S00784.251l664 +++|          IX7    X3-X7
27561  M01S00785.251l664 +++|          ZR     X7,CSP2     IF *1AJ* CALL
27562  M01S00786.251l664 +++|          PL     X7,CSP1     IF SYSTEM CALL (*1XX* PP NAME)

Seq #  *Modification Id* Act 
----------------------------+
27563  M02S00037.251l664 ---|          SA4    CSPB-1      PRESET ALTERNATE TABLE SEARCH

Seq #  *Modification Id* Act 
----------------------------+
27564  M01S00787.251l664 +++|          SA4    CSPA-1      PRESET ALTERNATE TABLE SEARCH

Seq #  *Modification Id* Act 
----------------------------+
27565  M01S00038.ns2332  +++|
27566  M01S00039.ns2332  +++|*         CHECK FOR SPECIAL PP-S.
27567  M01S00040.ns2332  +++|
27568  M01S00041.ns2332  +++| CSP1     SA4    A4+B1       READ NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
27569  M02S00042.ns2332b ---|          ZR     X4,APQ2.0   IF END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
27570  M02S00015.251l664 ---|          ZR     X4,APQ1.0   IF END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
27571  M02S00043.251l664 ---|          IX4    X3-X4

Seq #  *Modification Id* Act 
----------------------------+
27572  M03S00044.251l664 ---|          NG     X4,APQ2.0   IF PACKAGE NAME NOT IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
27573  M02S00016.251l664 ---|          NG     X4,APQ1.0   IF PACKAGE NAME NOT IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
27574  M02S00045.251l664 ---|          NZ     X4,CSP1     IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
27575  M01S00788.251l664 +++|          MX7    -18         GET PP ROUTINE
27576  M01S00789.251l664 +++|          BX7    -X7*X4
27577  M01S00790.251l664 +++|          IX7    X3-X7
27578  M01S00791.251l664 +++|          NG     X7,APQ1.0   IF PACKAGE NAME NOT IN TABLE
27579  M01S00792.251l664 +++|          NZ     X7,CSP1     IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
27580  M01S00046.ns2332  +++|

Seq #  *Modification Id* Act 
----------------------------+
27581  M02S00047.251l664 ---|*         ASSIGN BARREL 1 ONLY.

Seq #  *Modification Id* Act 
----------------------------+
27582  M01S00793.251l664 +++|*         ASSIGN SPECIFIED BARREL.

Seq #  *Modification Id* Act 
----------------------------+
27583  M01S00048.ns2332  +++|

Seq #  *Modification Id* Act 
----------------------------+
27584  M02S00049.ns2332b ---| CSP2     MX3    -38         CHECK BARREL 1 PP-S
27585  M02S00050.ns2332b ---|          BX2    -X3*X2
27586  M02S00051.ns2332b ---|          NZ     X2,APQ2.0   IF PP AVAILABLE IN BARREL 1
27587  M02S00052.ns2332b ---|          EQ     APQ7        RETURN

Seq #  *Modification Id* Act 
----------------------------+
27588  M02S00017.251l664 ---| CSP2     MX7    10          SET MASK FOR BANK 1 ONLY
27589  M02S00018.251l664 ---|          LX7    -12-10

Seq #  *Modification Id* Act 
----------------------------+
27590  M01S00794.251l664 +++| CSP2     MX7    20
27591  M01S00795.251l664 +++|          LX7    -12
27592  M01S00796.251l664 +++|          BX7    X7*X4

Seq #  *Modification Id* Act 
----------------------------+
27593  M01S00019.ns2332b +++|          BX2    X7*X2
27594  M01S00020.ns2332b +++|          SA7    APQC
27595  M01S00021.ns2332b +++|          EQ     APQ1.0      RETURN TO *APQ*

Seq #  *Modification Id* Act 
----------------------------+
27596  M01S00053.ns2332  +++| CSP      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
27597  M02S00054.251l664 ---|****      LIST OF PP ROUTINES TO BE ASSIGNED TO BARREL 1 ONLY.

Seq #  *Modification Id* Act 
----------------------------+
27598  M01S00797.251l664 +++|****      LIST OF PP ROUTINES AND ASSOCIATED BARREL.

Seq #  *Modification Id* Act 
----------------------------+
27599  M01S00055.ns2332  +++|*

Seq #  *Modification Id* Act 
----------------------------+
27600  M01S00798.251l664 +++|*T        12/ 0, 20/ B, 10/ 0, 18/ PP.

Figure

27601  M01S00799.251l664 +++|*         B - BARREL TO LOAD PP ROUTINE.
27602  M01S00800.251l664 +++|*         PP - PP ROUTINE NAME.
27603  M01S00801.251l664 +++|*

Seq #  *Modification Id* Act 
----------------------------+
27604  M01S00056.ns2332  +++|*         NOTE - BOTH LISTS MUST BE IN ASCENDING ALPHABETICAL ORDER.
27605  M01S00057.ns2332  +++|
27606  M01S00058.ns2332  +++|
27607  M01S00059.ns2332  +++|*         SPECIAL SYSTEM ROUTINES.
27608  M01S00060.ns2332  +++|

Seq #  *Modification Id* Act 
----------------------------+
27609  M02S00061.251l664 ---| CSPA     VFD    42/0,18/3L1AJ  *1AJ*
27610  M02S00062.251l664 ---|          VFD    42/0,18/3L1LT  *1LT*
27611  M02S00063.251l664 ---|          VFD    42/0,18/3L1MS  *1MS*
27612  M02S00064.251l664 ---|          VFD    42/0,18/3L1MT  *1MT*
27613  M02S00065.251l664 ---|          VFD    42/0,18/3L1RI  *1RI*
27614  M02S00066.251l664 ---|          VFD    42/0,18/3L1RO  *1RO*
27615  M02S00067.251l664 ---|          CON    0              END OF TABLE
27616  M02S00068.251l664 ---|
27617  M02S00069.251l664 ---|*         OTHER SPECIAL ROUTINES.
27618  M02S00070.251l664 ---|
27619  M02S00071.251l664 ---| CSPB     VFD    42/0,18/3LCPD  *CPD*
27620  M02S00072.251l664 ---|          VFD    42/0,18/3LLDD  *LDD*
27621  M02S00073.251l664 ---|          VFD    42/0,18/3LLDQ  *LDQ*
27622  M02S00074.251l664 ---|          VFD    42/0,18/3LLDR  *LDR*

Seq #  *Modification Id* Act 
----------------------------+
27623  M02S00001.251l664 ---|          VFD    42/0,18/3LNDR  *NDR*

Seq #  *Modification Id* Act 
----------------------------+
27624  M02S00075.251l664 ---|          VFD    42/0,18/3LPFU  *PFU*
27625  M02S00076.251l664 ---|          VFD    42/0,18/3LTCS  *TCS*
27626  M02S00077.251l664 ---|          CON    0              END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
27627  M01S00802.251l664 +++| CSPA     VFD    12/0,20/BARREL1,10/0,18/3LCPD  *CPD*
27628  M01S00803.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3LLDD  *LDD*
27629  M01S00804.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3LLDQ  *LDQ*
27630  M01S00805.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3LLDR  *LDR*

Seq #  *Modification Id* Act 
----------------------------+
27631  M01S00001.cpum222 +++|          VFD    12/0,20/BARREL1,10/0,18/3LMP3  *MP3*

Seq #  *Modification Id* Act 
----------------------------+
27632  M01S00806.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3LMTE  *MTE*
27633  M01S00807.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3LNDR  *NDR*
27634  M01S00808.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3LPFU  *PFU*
27635  M01S00809.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3LTCS  *TCS*
27636  M01S00810.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3LVER  *VER*
27637  M01S00811.251l664 +++|
27638  M01S00812.251l664 +++| CSPB     VFD    12/0,20/BARREL1,10/0,18/3L1AJ  *1AJ*

Seq #  *Modification Id* Act 
----------------------------+
27639  M01S00002.cpum222 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1KB  *1KB*

Seq #  *Modification Id* Act 
----------------------------+
27640  M01S00813.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1LT  *1LT*
27641  M01S00814.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1MS  *1MS*
27642  M01S00815.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1MT  *1MT*

Seq #  *Modification Id* Act 
----------------------------+
27643  M01S00001.cpum147 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1PC  *1PC*
27644  M01S00002.cpum147 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1PD  *1PD*
27645  M01S00003.cpum147 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1PL  *1PL*

Seq #  *Modification Id* Act 
----------------------------+
27646  M01S00001.cpum180 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1PM  *1PM*

Seq #  *Modification Id* Act 
----------------------------+
27647  M01S00816.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1RI  *1RI*
27648  M01S00817.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1RO  *1RO*
27649  M01S00818.251l664 +++|          VFD    12/0,20/BARREL0,10/0,18/3L1VN  *1VN*
27650  M01S00819.251l664 +++|          VFD    12/0,20/BARREL1,10/0,18/3L1VO  *1VO*
27651  M01S00820.251l664 +++|          CON    -0          END OF TABLE
27652  M01S00821.251l664 +++|
27653  M01S00822.251l664 +++| BARREL0  EQU    1777BS10
27654  M01S00823.251l664 +++| BARREL1  EQU    1777B

Seq #  *Modification Id* Act 
----------------------------+
27655  M01S00078.ns2332  +++|****
27656  M01S00079.ns2332  +++|
27657  M01S00080.ns2332  +++|          ENDBLK
27658  M00S15921.cpumtr  +++|          BLOCK  CP176,(CYBER 176 RESIDENT CODE.),MONITOR
27659  M00S15922.cpumtr  +++| BNJ      SPACE  4,10
27660  M00S15923.cpumtr  +++|**        BNJ - EXTENSION FOR THE CYBER 176.
27661  M00S15924.cpumtr  +++|*
27662  M00S15925.cpumtr  +++|*         ENTRY  (A6) = ADDRESS-1 OF EEA REGISTER.
27663  M00S15926.cpumtr  +++|
27664  M00S15927.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
27665  M01S15928.271l750 ---| BNJ10    TX7    EEAD        SET ERROR EXIT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
27666  M01S01542.271l750 +++| BNJ30    TX7    EEAD        SET ERROR EXIT ADDRESS
27667  M00S15929.cpumtr  +++|          LX7    36
27668  M00S15930.cpumtr  +++|          SA7    A6+B1
27669  M00S15931.cpumtr  +++|          JP     /MONITOR/MTR  RETURN
27670  M00S15932.cpumtr  +++| CJS      SPACE  4,10
27671  M00S15933.cpumtr  +++|**        CJS - EXTENSION FOR THE CYBER 176.
27672  M00S15934.cpumtr  +++|*
27673  M00S15935.cpumtr  +++|*         ENTRY  (B4) = RETURN ADDRESS.
27674  M00S15936.cpumtr  +++|*                (B6) = EXCHANGE PACKAGE ADDRESS.
27675  M00S15937.cpumtr  +++|
27676  M00S15938.cpumtr  +++|
27677  M00S15939.cpumtr  +++| CJS7     SA4    B6+3        CLEAR PSD
27678  M00S15940.cpumtr  +++|          MX2    12
27679  M00S15941.cpumtr  +++|          LX2    -12
27680  M00S15942.cpumtr  +++|          BX6    -X2*X4
27681  M00S15943.cpumtr  +++|          SA6    A4
27682  M00S15944.cpumtr  +++|          JP     B4          RETURN
27683  M00S15945.cpumtr  +++| CPT      SPACE  4,10
27684  M00S15946.cpumtr  +++|**        CPT - EXTENSION FOR THE CYBER 176.
27685  M00S15947.cpumtr  +++|
27686  M00S15948.cpumtr  +++|
27687  M00S15949.cpumtr  +++| CP76     SA1    CXP+15B     ACCUMULATED INTERRUPT COUNT

Seq #  *Modification Id* Act 
----------------------------+
27688  M01S01543.271l750 +++|          SA2    CL+CPBT+A0  READ BASE TIME
27689  M00S15950.cpumtr  +++|          TB6                READ CPU CLOCK

Seq #  *Modification Id* Act 
----------------------------+
27690  M01S15951.271l750 ---|          MX2    -18

Seq #  *Modification Id* Act 
----------------------------+
27691  M01S01544.271l750 +++|          MX7    -18
27692  M00S15952.cpumtr  +++|          SX6    B6

Seq #  *Modification Id* Act 
----------------------------+
27693  M01S15953.271l750 ---|          BX6    -X2*X6
27694  M01S15954.271l750 ---|          MX7    -36

Seq #  *Modification Id* Act 
----------------------------+
27695  M01S01545.271l750 +++|          BX6    -X7*X6
27696  M00S15955.cpumtr  +++|          IX6    X1+X6

Seq #  *Modification Id* Act 
----------------------------+
27697  M01S01546.271l750 +++|          SA6    A2+         SET NEW BASE TIME
27698  M01S01547.271l750 +++|          IX0    X6-X2       TIME USED IN MACHINE UNITS
27699  M00S15956.cpumtr  +++|          EQ     /MONITOR/CPT1  COMPUTE CP TIME USED
27700  M00S15957.cpumtr  +++| CXJ      SPACE  4,10
27701  M00S15958.cpumtr  +++|**        CXJ - CLOCK INTERRUPT NULL PROGRAM.
27702  M00S15959.cpumtr  +++|*
27703  M00S15960.cpumtr  +++|*         ENTRY  (X0) = 400000B.
27704  M00S15961.cpumtr  +++|*                (X5) = INTERRUPT COUNT.
27705  M00S15962.cpumtr  +++|
27706  M00S15963.cpumtr  +++|
27707  M00S15964.cpumtr  +++| CXJ      XJ     CXP         RETURN TO CALLER
27708  M00S15965.cpumtr  +++|          IX5    X5+X0       COUNT EXCHANGE
27709  M00S15966.cpumtr  +++|          JP     CXJ         RETURN
27710  M00S15967.cpumtr  +++| EXP      SPACE  4,10
27711  M00S15968.cpumtr  +++|**        EXP - ERROR EXCHANGE PROGRAM.
27712  M00S15969.cpumtr  +++|*
27713  M00S15970.cpumtr  +++|*         ENTRY  (X0) = 77770000777777777777B.
27714  M00S15971.cpumtr  +++|*                (X4) = 1.
27715  M00S15972.cpumtr  +++|*                (X5) = COUNT OF EXCHANGES.
27716  M00S15973.cpumtr  +++|
27717  M00S15974.cpumtr  +++|
27718  M00S15975.cpumtr  +++| EXP      XJ     0
27719  M00S15976.cpumtr  +++|          SA1    B2+3        GET PSD
27720  M00S15977.cpumtr  +++|          MX6    3
27721  M00S15978.cpumtr  +++|          MX2    9
27722  M00S15979.cpumtr  +++|          LX6    -9
27723  M00S15980.cpumtr  +++|          BX6    X6*X1       EXTRACT MODE BITS
27724  M00S15981.cpumtr  +++|          BX2    X6+X2
27725  M00S15982.cpumtr  +++|          IX5    X5+X4       COUNT EXIT
27726  M00S15983.cpumtr  +++|          LX2    -12
27727  M00S15984.cpumtr  +++|          BX7    -X0*X1
27728  M00S15985.cpumtr  +++|          BX2    X2*X1       EXTRACT CONDITION BITS
27729  M00S15986.cpumtr  +++|          SX3    B2
27730  M00S15987.cpumtr  +++|          ZR     X7,EXP1     IF NO ERROR CONDITIONS - CPUMTR LOST
27731  M00S15988.cpumtr  +++|          AX2    37
27732  M00S15989.cpumtr  +++|          ZR     X2,EXP3     RETURN IF ERROR CONDITION PERMITTED
27733  M00S15990.cpumtr  +++|          LX2    -6
27734  M00S15991.cpumtr  +++|          LX6    11
27735  M00S15992.cpumtr  +++|          PL     X2,EXP1     IF NO SCM DIRECT RANGE ERROR
27736  M00S15993.cpumtr  +++|          LX2    1
27737  M00S15994.cpumtr  +++|          AX2    1           CLEAR SCM RANGE CONDITION
27738  M00S15995.cpumtr  +++|          MI     X6,EXP1     IF MODE  1  NOT SELECTED
27739  M00S15996.cpumtr  +++|          ZR     X2,EXP3     IF NO OTHER ERRORS
27740  M00S15997.cpumtr  +++|          SB3    EXP
27741  M00S15998.cpumtr  +++| EXP1     SX7    B2
27742  M00S15999.cpumtr  +++|          LX3    30
27743  M00S16000.cpumtr  +++|          BX6    X3+X7
27744  M00S16001.cpumtr  +++|          SA6    B0          *ALERT* DSD
27745  M00S16002.cpumtr  +++| EXP2     SB3    B3-B1
27746  M00S16003.cpumtr  +++|          NZ     B3,EXP2     DELAY
27747  M00S16004.cpumtr  +++|          SA2    B0          CHECK FOR FLAG CLEARED
27748  M00S16005.cpumtr  +++|          NZ     X2,EXP2     HANG UNLESS CLEARED
27749  M00S16006.cpumtr  +++|          SA2    B2+6        READ MA (NEA)
27750  M00S16007.cpumtr  +++| EXP3     BX6    X0*X1       CLEAR CONDITION BITS AND RETURN
27751  M00S16008.cpumtr  +++|          SA6    A1
27752  M00S16009.cpumtr  +++|          JP     EXP         RETURN
27753  M00S16010.cpumtr  +++| PPE      SPACE  4,20
27754  M00S16011.cpumtr  +++|**        PPE - PROCESS PSD ERROR.
27755  M00S16012.cpumtr  +++|*
27756  M00S16013.cpumtr  +++|*         ENTRY  (B2) = USER EXCHANGE PACKAGE ADDRESS.
27757  M00S16014.cpumtr  +++|*                (B3) = RA OF CONTROL POINT.
27758  M00S16015.cpumtr  +++|*
27759  M00S16016.cpumtr  +++|*         EXIT   TO *MTR1* IF NO ERRORS.
27760  M00S16017.cpumtr  +++|*                TO *SEF* OTHERWISE.
27761  M00S16018.cpumtr  +++|
27762  M00S16019.cpumtr  +++|
27763  M00S16020.cpumtr  +++| PPE      SA1    B2+3        CHECK CONDITION FLAGS (PSD)
27764  M00S16021.cpumtr  +++|          MX6    3
27765  M00S16022.cpumtr  +++|          MX2    9
27766  M00S16023.cpumtr  +++|          LX6    -9
27767  M00S16024.cpumtr  +++|          BX6    X6*X1       MODE BITS
27768  M00S16025.cpumtr  +++|          BX2    X2+X6       ADD MASK TO CHECK ALL NON-MODE CONDITIONS
27769  M00S16026.cpumtr  +++|          LX2    -12
27770  M00S16027.cpumtr  +++|          BX2    X2*X1
27771  M00S16028.cpumtr  +++|          ZR     X2,/MONITOR/MTRX  IF NO ERROR CONDITION
27772  M00S16029.cpumtr  +++|          LX1    59-39

Seq #  *Modification Id* Act 
----------------------------+
27773  M01S16030.252l678 ---|          TNG    X1,(/IH819/PPE,/MONITOR/MTRX,IH819)  IF STEP

Seq #  *Modification Id* Act 
----------------------------+
27774  M01S00741.252l678 +++|          TNG    X1,(/IH819/PPE,IH819,/MONITOR/MTRX)  IF STEP
27775  M00S16031.cpumtr  +++|          SX7    ARET        ARITHMETIC ERROR
27776  M00S16032.cpumtr  +++|
27777  M00S16033.cpumtr  +++|*         MAP ERROR AND P ADDRESS INTO RA+0.
27778  M00S16034.cpumtr  +++|
27779  M00S16035.cpumtr  +++|          SX6    B0+         INITIALIZE MAPPING REGISTER
27780  M00S16036.cpumtr  +++|          SX1    40B         CM PARITY BIT
27781  M00S16037.cpumtr  +++|          LX2    59-46
27782  M00S16038.cpumtr  +++|          PL     X2,PPE1     IF NO SCM SECDED ERROR
27783  M00S16039.cpumtr  +++|          BX6    X1+X6       MAP SCM SECDED AS CM PARITY
27784  M00S16040.cpumtr  +++| PPE1     MX0    5           MASK FOR ADDRESS RANGE ERRORS
27785  M00S16041.cpumtr  +++|          LX2    1
27786  M00S16042.cpumtr  +++|          BX3    X0*X2
27787  M00S16043.cpumtr  +++|          SX1    B1          ADDRESS RANGE BIT
27788  M00S16044.cpumtr  +++|          MX0    2           MASK FOR INFINITE AND INDEFINTITE MODES
27789  M00S16045.cpumtr  +++|          ZR     X3,PPE2     IF NO RANGE ERRORS
27790  M00S16046.cpumtr  +++|          BX6    X1+X6       MAP ALL RANGE ERRORS AS ADDRESS RANGE
27791  M00S16047.cpumtr  +++| PPE2     LX2    10          MAP OVERFLOW AND INDEFINITE
27792  M00S16048.cpumtr  +++|          LX0    3
27793  M00S16049.cpumtr  +++|          BX1    X0*X2
27794  M00S16050.cpumtr  +++|          BX6    X1+X6
27795  M00S16051.cpumtr  +++|          MX0    18          ADD P ADDRESS TO MAPPED BITS
27796  M00S16052.cpumtr  +++|          SA1    B2
27797  M00S16053.cpumtr  +++|          LX6    48
27798  M00S16054.cpumtr  +++|          LX0    -6
27799  M00S16055.cpumtr  +++|          BX1    X0*X1
27800  M00S16056.cpumtr  +++|          LX1    -6
27801  M00S16057.cpumtr  +++|          SA2    B3          INSERT MAPPED BITS AND P IN RA+0
27802  M00S16058.cpumtr  +++|          SA2    X2
27803  M00S16059.cpumtr  +++|          MX0    -30
27804  M00S16060.cpumtr  +++|          BX6    X1+X6
27805  M00S16061.cpumtr  +++|          BX2    -X0*X2
27806  M00S16062.cpumtr  +++|          BX6    X2+X6
27807  M00S16063.cpumtr  +++|          SA6    A2
27808  M00S16064.cpumtr  +++|          EQ     /MONITOR/SEF  SET ERROR FLAG
27809  M00S16065.cpumtr  +++| TIM      SPACE  4,10
27810  M00S16066.cpumtr  +++|**        TIM - EXTENSION FOR THE CYBER 176.
27811  M00S16067.cpumtr  +++|
27812  M00S16068.cpumtr  +++|
27813  M00S16069.cpumtr  +++|*         ACCUMULATED JOB CLOCK CYCLE COUNT.
27814  M00S16070.cpumtr  +++|
27815  M00S16071.cpumtr  +++| TIM7     SB4    TIM9        SET *DSB* RETURN ADDRESS
27816  M00S16072.cpumtr  +++|          SA2    CPTA+A0     QUARTER NANOUNITS TO CLOCK CYCLES
27817  M00S16073.cpumtr  +++|          PX2    X2
27818  M00S16074.cpumtr  +++|          NX2    X2
27819  M00S16075.cpumtr  +++|          EQ     /PROGRAM/DSB  DIVIDE 60 BIT INTEGER
27820  M00S16076.cpumtr  +++|
27821  M00S16077.cpumtr  +++|*         ACCUMULATED CLOCK CYCLE COUNT SINCE DEADSTART.
27822  M00S16078.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
27823  M01S16079.271l750 ---| TIM8     SA1    ST+A0       READ CPU CLOCK

Seq #  *Modification Id* Act 
----------------------------+
27824  M01S01548.271l750 +++| TIM8     SA1    CL+CPBT+A0  READ BASE TIME
27825  M00S16080.cpumtr  +++|          BX6    X1
27826  M00S16081.cpumtr  +++| TIM9     PX1    X6
27827  M00S16082.cpumtr  +++|          SB3    A5-B1       RESTORE RA
27828  M00S16083.cpumtr  +++|          EQ     /MONITOR/TIM1  STORE RESULT
27829  M00S16084.cpumtr  +++|
27830  M00S16085.cpumtr  +++|          ENDBLK

Seq #  *Modification Id* Act 
----------------------------+
27831  M01S16086.251l664 ---|          BLOCK  BUFIO,(BUFFERED I/O - PFMD AND 819.)

Seq #  *Modification Id* Act 
----------------------------+
27832  M01S00824.251l664 +++|          BLOCK  BUFIO,(BUFFERED I/O PROCESSING.)
27833  M00S16087.cpumtr  +++| DLB      SPACE  4,10
27834  M00S16088.cpumtr  +++|**        DLB - DELETE BUFFER FROM I/O QUEUE.
27835  M00S16089.cpumtr  +++|*
27836  M00S16090.cpumtr  +++|*         ENTRY  (A2) = ADDRESS OF *UNCT* WORD IN *PUT* ENTRY.
27837  M00S16091.cpumtr  +++|*                (A3) = CONTROL BUFFER ADDRESS.
27838  M00S16092.cpumtr  +++|*                (B3) = RETURN ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
27839  M01S16093.252l678 ---|*                (B5) = 0  IF CALLED BY INTERRUPT HANDLER.
27840  M01S16094.252l678 ---|*                (B6) = CONTROL BUFFER ORDINAL, IF CALLED FROM *IOC*.
27841  M00S16095.cpumtr  +++|*                (X2) = *UNCT* WORD OF *PUT* ENTRY.
27842  M00S16096.cpumtr  +++|*
27843  M00S16097.cpumtr  +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
27844  M01S16098.ns2546  ---|*                A - 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
27845  M01S00011.ns2546  +++|*                A - 2, 4, 6, 7.
27846  M00S16099.cpumtr  +++|*                B - 5, 7.
27847  M00S16100.cpumtr  +++|
27848  M00S16101.cpumtr  +++|
27849  M00S16102.cpumtr  +++| DLB      SA4    A3+IOLK     CHECK I/O LINKUP
27850  M00S16103.cpumtr  +++|          MX5    -12
27851  M00S16104.cpumtr  +++|          MX7    -24
27852  M00S16105.cpumtr  +++|          LX5    12
27853  M00S16106.cpumtr  +++|          LX7    24

Seq #  *Modification Id* Act 
----------------------------+
27854  M01S16107.cpum166 ---|          BX7    X7*X4       CLEAR QUEUE LINKAGE
27855  M01S16108.cpum166 ---|          BX5    -X5*X2      CURRENT BUFFER ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
27856  M01S16109.251l664 ---|          SX6    5400B       I/O INTERLOCK, WRITE DATA, I/O LINKUP

Seq #  *Modification Id* Act 
----------------------------+
27857  M01S00825.251l664 +++|          SX6    5000B       I/O INTERLOCK, WRITE FLAGS

Seq #  *Modification Id* Act 
----------------------------+
27858  M01S00001.cpum166 +++|          BX7    X7*X4       CLEAR QUEUE LINKAGE

Seq #  *Modification Id* Act 
----------------------------+
27859  M01S16110.252l678 ---|          ZR     B5,DLB1     IF CALLED FROM INTERRUPT HANDLER

Seq #  *Modification Id* Act 
----------------------------+
27860  M02S16111.252l678 ---|          LX7    59-56

Seq #  *Modification Id* Act 
----------------------------+
27861  M01S16112.252l678 ---|          AX5    12

Seq #  *Modification Id* Act 
----------------------------+
27862  M02S16113.252l678 ---|          NG     X7,/MONITOR/RB3  IF I/O LINKUP SET

Seq #  *Modification Id* Act 
----------------------------+
27863  M02S00826.252l678 ---|          NG     X7,/MONITOR/RB3   IF I/O INTERLOCK SET

Seq #  *Modification Id* Act 
----------------------------+
27864  M01S16114.252l678 ---|          SB7    X5          CURRENT BUFFER

Seq #  *Modification Id* Act 
----------------------------+
27865  M02S16115.252l678 ---|          LX7    56-59

Seq #  *Modification Id* Act 
----------------------------+
27866  M01S16116.252l678 ---|          EQ     B7,B6,/MONITOR/RB3  IF CURRENT BUFFER
27867  M01S16117.252l678 ---| DLB1     LX4    -24

Seq #  *Modification Id* Act 
----------------------------+
27868  M01S00742.252l678 +++|          LX4    -24
27869  M00S16118.cpumtr  +++|          MX5    -12
27870  M00S16119.cpumtr  +++|          LX6    48
27871  M00S16120.cpumtr  +++|          BX3    -X5*X4      FORWARD LINK
27872  M00S16121.cpumtr  +++|          BX7    -X6*X7      CLEAR FLAGS
27873  M00S16122.cpumtr  +++|          LX4    -12
27874  M00S16123.cpumtr  +++|          SA7    A4
27875  M00S16124.cpumtr  +++|          BX6    -X5*X4      BACKWARD LINK
27876  M00S16125.cpumtr  +++|          BX7    -X5*X4

Seq #  *Modification Id* Act 
----------------------------+
27877  M01S16126.cpum166 ---|          SB7    X3

Seq #  *Modification Id* Act 
----------------------------+
27878  M01S00002.cpum166 +++|          SB7    X3+
27879  M00S16127.cpumtr  +++|          NZ     X6,DLB2     IF NOT FIRST BUFFER IN CHAIN
27880  M00S16128.cpumtr  +++|          BX2    X5*X2
27881  M00S16129.cpumtr  +++|          BX2    X2+X3       INSERT NEW FIRST
27882  M00S16130.cpumtr  +++|          EQ     DLB3        PROCESS FORWARD LINK
27883  M00S16131.cpumtr  +++|
27884  M00S16132.cpumtr  +++| DLB2     LX7    CBTLS       PROCESS BACKWARD LINK
27885  M00S16133.cpumtr  +++|          TA4    X7+IOLK,CBT
27886  M00S16134.cpumtr  +++|          LX4    -24
27887  M00S16135.cpumtr  +++|          BX7    X5*X4       FORWARD LINK
27888  M00S16136.cpumtr  +++|          BX7    X7+X3       INSERT NEW FORWARD LINK
27889  M00S16137.cpumtr  +++|          LX7    24
27890  M00S16138.cpumtr  +++|          SA7    A4
27891  M00S16139.cpumtr  +++| DLB3     ZR     X3,DLB4     IF LAST BUFFER
27892  M00S16140.cpumtr  +++|          LX3    CBTLS       PROCESS FORWARD LINK
27893  M00S16141.cpumtr  +++|          TA4    X3+IOLK,CBT
27894  M00S16142.cpumtr  +++|          LX4    -36
27895  M00S16143.cpumtr  +++|          BX4    X5*X4       CLEAR OLD BACKWARD LINK
27896  M00S16144.cpumtr  +++|          BX7    X4+X6       INSERT NEW BACKWARD LINK
27897  M00S16145.cpumtr  +++|          LX7    36
27898  M00S16146.cpumtr  +++|          SA7    A4+
27899  M00S16147.cpumtr  +++| DLB4     SX4    B1          DECREMENT QUEUE SIZE
27900  M00S16148.cpumtr  +++|          LX4    24
27901  M00S16149.cpumtr  +++|          LX5    12
27902  M00S16150.cpumtr  +++|          IX6    X2-X4
27903  M00S16151.cpumtr  +++|          BX3    -X5*X2      CURRENT BUFFER
27904  M00S16152.cpumtr  +++|          TX2    A3,-CBT     COMPUTE DELETED BUFFER ORDINAL
27905  M00S16153.cpumtr  +++|          LX3    -12
27906  M00S16154.cpumtr  +++|          AX2    CBTLS
27907  M00S16155.cpumtr  +++|          BX7    X3-X2
27908  M00S16156.cpumtr  +++|          NZ     X7,DLB6     IF NOT CURRENT BUFFER
27909  M00S16157.cpumtr  +++|          BX6    X5*X6       ADVANCE TO NEXT QUEUE ENTRY
27910  M00S16158.cpumtr  +++|          SX2    B7
27911  M00S16159.cpumtr  +++|          NZ     B7,DLB5     IF NOT END OF QUEUE
27912  M00S16160.cpumtr  +++|          SA4    A2+B1
27913  M00S16161.cpumtr  +++|          ERRNZ  HSCT-UNCT-1 INDEXES MUST BE CONSECUTIVE
27914  M00S16162.cpumtr  +++|          MX3    -12
27915  M00S16163.cpumtr  +++|          MX7    59
27916  M00S16164.cpumtr  +++|          BX2    -X3*X6      FIRST REQUEST
27917  M00S16165.cpumtr  +++|          LX7    58

Seq #  *Modification Id* Act 
----------------------------+
27918  M01S16166.251l664 ---|          LX3    12
27919  M00S16167.cpumtr  +++|          BX6    X7*X6       CLEAR REQUEST(S) WAITING FLAG

Seq #  *Modification Id* Act 
----------------------------+
27920  M01S16168.251l664 ---|          BX7    X3*X4       CLEAR REQUEST COUNT
27921  M01S16169.251l664 ---|          SA7    A4+

Seq #  *Modification Id* Act 
----------------------------+
27922  M01S00827.251l664 +++|          BX7    X5*X4       CLEAR REQUEST COUNT
27923  M01S00828.251l664 +++|          SA7    A4

Seq #  *Modification Id* Act 
----------------------------+
27924  M01S16170.251l670 ---| DLB5     LX2    12
27925  M01S16171.251l670 ---|          BX6    X6+X2       INSERT NEW CURRENT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
27926  M01S00088.251l670 +++|
27927  M01S00089.251l670 +++|*         SET NEW CURRENT *CB* ORDINAL IN THE *PUT* SO AS TO EXCLUDE
27928  M01S00090.251l670 +++|*         THOSE BUFFERS CONTAINING PREVIOUSLY PROCESSED ERRORS.
27929  M01S00091.251l670 +++|
27930  M01S00092.251l670 +++| DLB5     SB6    DLB6
27931  M01S00093.251l670 +++|          EQ     SCB         SELECT CURRENT BUFFER IN I/O QUEUE
27932  M01S00094.251l670 +++|

Seq #  *Modification Id* Act 
----------------------------+
27933  M01S16172.251l664 ---| DLB6     SA6    A2          RESET *PUT* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
27934  M01S00829.251l664 +++| DLB6     SA6    A2+         RESET *PUT* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
27935  M01S00001.ns2782  +++|
27936  M01S00002.ns2782  +++|*         DECREMENT DEVICE ACTIVITY COUNT.
27937  M01S00003.ns2782  +++|
27938  M01S00004.ns2782  +++|          SA1    A3+FSTC     EST ORDINAL
27939  M00S16173.cpumtr  +++|          MX3    -12

Seq #  *Modification Id* Act 
----------------------------+
27940  M01S00005.ns2782  +++|          LX1    12

Seq #  *Modification Id* Act 
----------------------------+
27941  M01S16174.ns2782  ---|          LX6    -36
27942  M01S16175.ns2782  ---|          BX7    -X3*X6      EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
27943  M01S00006.ns2782  +++|          BX7    -X3*X1      EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
27944  M01S16176.251l664 ---|          R=     X4,ESTE
27945  M01S16177.251l664 ---|          IX7    X7*X4

Seq #  *Modification Id* Act 
----------------------------+
27946  M02S00830.261l700 ---|          ERRNZ  ESTE-2      CODE DEPENDS ON VALUE
27947  M02S00831.261l700 ---|          LX7    1

Seq #  *Modification Id* Act 
----------------------------+
27948  M01S16178.261l700 ---|          TA4    X7+EQDE,EST READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
27949  M01S00118.261l700 +++|          CX4    X7,EST      CONVERT EST ORDINAL TO OFFSET
27950  M01S00119.261l700 +++|          TA4    X4+EQDE,EST READ EST ENTRY
27951  M00S16179.cpumtr  +++|          BX7    -X3*X4      *MST* ADDRESS/10B
27952  M00S16180.cpumtr  +++|          LX7    3
27953  M00S16181.cpumtr  +++|          SA4    X7+DALL     DECREMENT ACTIVITY COUNT

Seq #  *Modification Id* Act 
----------------------------+
27954  M01S16182.242l642 ---|          SX3    B1+
27955  M01S16183.242l642 ---|          LX3    48
27956  M01S16184.242l642 ---|          IX7    X4-X3       DECREMENT REQUESTS PENDING
27957  M01S16185.242l642 ---|          NG     X7,DLB7     IF UNDERFLOW
27958  M01S16186.242l642 ---|          SA7    A4+

Seq #  *Modification Id* Act 
----------------------------+
27959  M02S00610.ns2546  ---|          SX3    B1
27960  M02S00611.ns2546  ---|          LX3    48
27961  M02S00612.ns2546  ---|          IX7    X4-X3
27962  M02S00613.ns2546  ---|          BX4    X4-X7
27963  M02S00614.ns2546  ---|          LX4    59-54

Seq #  *Modification Id* Act 
----------------------------+
27964  M03S00615.ns2546  ---|          NG     X4,DLB7     IF ACTIVITY DECREMENT UNDERFLOW
27965  M03S00616.ns2546  ---|          SA7    A4          STORE UPDATED ACTIVITY

Seq #  *Modification Id* Act 
----------------------------+
27966  M02S00095.ns2546  ---|          NG     X4,DLB7     IF ACTIVITY COUNT UNDERFLOW
27967  M02S00096.ns2546  ---|          SA7    A4

Seq #  *Modification Id* Act 
----------------------------+
27968  M01S16187.ns2546  ---| DLB7     LX6    59-58+36
27969  M01S16188.ns2546  ---|          PL     X6,/MONITOR/RB3  IF *RW* FLAG NOT SET
27970  M01S16189.ns2546  ---|          LX3    12-48
27971  M01S16190.ns2546  ---|          SA4    A2+HSCT-UNCT

Seq #  *Modification Id* Act 
----------------------------+
27972  M01S00012.ns2546  +++|          SB5    A2+         SAVE *PUT* ENTRY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
27973  M01S00007.ns2782  +++|          SA2    X7+CTLL

Seq #  *Modification Id* Act 
----------------------------+
27974  M01S00013.ns2546  +++|          BX1    X4
27975  M01S00014.ns2546  +++|          LX1    59-36

Seq #  *Modification Id* Act 
----------------------------+
27976  M02S00015.ns2782  ---|          SX5    B1          PRESET ACTIVITY
27977  M02S00016.ns2782  ---|          PL     X1,DLB10    IF NO RECENT *DSWM* ACCESS TO DEVICE

Seq #  *Modification Id* Act 
----------------------------+
27978  M01S00008.ns2782  +++|          LX2    36
27979  M01S00009.ns2782  +++|          BX5    -X3*X2
27980  M01S00010.ns2782  +++|          SX5    X5-1
27981  M01S00011.ns2782  +++|          PL     X5,DLB7     IF NO UNDERFLOW
27982  M01S00012.ns2782  +++|          SX5    0
27983  M01S00013.ns2782  +++| DLB7     BX2    X2*X3
27984  M01S00014.ns2782  +++|          BX7    X2+X5
27985  M01S00015.ns2782  +++|          LX7    24
27986  M01S00016.ns2782  +++|          SA7    A2          UPDATE *CTLL*
27987  M01S00017.ns2782  +++|          PL     X1,DLB8     IF NO RECENT *DSWM* ACCESS TO DEVICE

Seq #  *Modification Id* Act 
----------------------------+
27988  M01S00017.ns2546  +++|          LX1    59-37-59+36

Seq #  *Modification Id* Act 
----------------------------+
27989  M02S00018.ns2782  ---|          NG     X1,DLB12    IF UNIT IS BEING ACCESSED VIA *DSWM*
27990  M02S00019.ns2782  ---|          ERRNZ  DILL-DALL-1 CODE DEPENDS ON VALUE
27991  M02S00020.ns2782  ---|          SA2    A4+B1       GET *PUT* ORDINAL OF FIRST UNIT
27992  M02S00021.ns2782  ---|          AX2    24
27993  M02S00022.ns2782  ---| DLB7     BX1    -X3*X2      *PUT* ORDINAL
27994  M02S00023.ns2782  ---|          ZR     X1,DLB8     IF END OF UNIT
27995  M02S00024.ns2782  ---|          LX1    PUTLS
27996  M02S00025.ns2782  ---|          TA2    X1+UNCT,PUT
27997  M02S00026.ns2782  ---|          LX2    -24
27998  M02S00027.ns2782  ---|          BX2    -X3*X2      BUFFER COUNT FOR THIS UNIT
27999  M02S00028.ns2782  ---|          IX5    X5+X2       ACCUMULATE ACTIVITY
28000  M02S00029.ns2782  ---|          ERRNZ  HSCT-UNCT-1 CODE DEPENDS ON VALUE
28001  M02S00030.ns2782  ---|          SA2    A2+B1       GET NEXT *PUT* ORDINAL
28002  M02S00031.ns2782  ---|          EQ     DLB7        PROCESS NEXT UNIT
28003  M02S00032.ns2782  ---|
28004  M02S00033.ns2782  ---| DLB8     SX1    77B
28005  M02S00034.ns2782  ---|          BX7    -X1*X5
28006  M02S00035.ns2782  ---|          LX1    48
28007  M02S00036.ns2782  ---|          ZR     X7,DLB9     IF NOT ACTIVITY OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
28008  M01S00018.ns2782  +++|          NG     X1,DLB10    IF UNIT IS BEING ACCESSED VIA *DSWM*
28009  M01S00019.ns2782  +++| DLB8     MX7    54
28010  M01S00020.ns2782  +++|          BX2    X7*X5
28011  M01S00021.ns2782  +++|          LX7    48
28012  M01S00022.ns2782  +++|          ZR     X2,DLB9     IF NOT ACTIVITY OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
28013  M01S00037.ns2546  +++|          SX5    77B

Seq #  *Modification Id* Act 
----------------------------+
28014  M02S00038.ns2782  ---| DLB9     BX4    -X1*X4      CLEAR OLD ACTIVITY

Seq #  *Modification Id* Act 
----------------------------+
28015  M01S00023.ns2782  +++| DLB9     BX4    X7*X4       CLEAR OLD ACTIVITY

Seq #  *Modification Id* Act 
----------------------------+
28016  M01S00039.ns2546  +++|          LX5    48

Seq #  *Modification Id* Act 
----------------------------+
28017  M02S00040.ns2782  ---|          BX4    X4+X5       ADD IN COMPUTED ACTIVITY
28018  M02S00041.ns2782  ---|          LX1    -12
28019  M02S00042.ns2782  ---|          BX7    -X1*X4      CLEAR *ADJUSTMENT REQUIRED* STATUS
28020  M02S00043.ns2782  ---|          EQ     DLB11       UPDATE *DALL*
28021  M02S00044.ns2782  ---|
28022  M02S00045.ns2782  ---| DLB10    LX5    48
28023  M02S00046.ns2782  ---|          IX7    X4-X5
28024  M02S00047.ns2782  ---|          BX1    X4-X7
28025  M02S00048.ns2782  ---|          LX1    59-54
28026  M02S00049.ns2782  ---| DLB11    NG     X1,DLB12    IF UNDERFLOW
28027  M02S00050.ns2782  ---|          SA7    A4+         UPDATE *DALL*
28028  M02S00051.ns2782  ---| DLB12    LX6    59-58+36

Seq #  *Modification Id* Act 
----------------------------+
28029  M01S00024.ns2782  +++|          BX7    X4+X5       ADD IN COMPUTED ACTIVITY
28030  M01S00025.ns2782  +++|          SA7    A4          UPDATE *DALL*
28031  M01S00026.ns2782  +++| DLB10    LX6    59-58

Seq #  *Modification Id* Act 
----------------------------+
28032  M01S00052.ns2546  +++|          SX3    B1
28033  M01S00053.ns2546  +++|          PL     X6,/MONITOR/RB3  IF *RW* FLAG CLEAR
28034  M01S00054.ns2546  +++|          ERRNZ  HSCT-UNCT-1 CODE DEPENDS ON VALUE
28035  M01S00055.ns2546  +++|          SA4    B5+B1
28036  M01S00056.ns2546  +++|          LX3    12
28037  M00S16191.cpumtr  +++|          IX7    X4+X3       INCREMENT REQUESTS PROCESSED
28038  M00S16192.cpumtr  +++|          LX4    59-12-8
28039  M00S16193.cpumtr  +++|          ERRNZ  RCTH-400B   VALUE MUST BE 2**8
28040  M00S16194.cpumtr  +++|          NG     X4,/MONITOR/RB3  IF REQUEST COUNT LIMIT
28041  M00S16195.cpumtr  +++|          SA7    A4+
28042  M00S16196.cpumtr  +++|          JP     B3          RETURN
28043  M00S16197.cpumtr  +++| HHE      SPACE  4,10
28044  M00S16198.cpumtr  +++|**        HHE - HANG ON HALF-EXIT.
28045  M00S16199.cpumtr  +++|*
28046  M00S16200.cpumtr  +++|*         ENTRY  VIA *RJ* SO THAT ERROR EXIT ADDRESS IS SAVED.
28047  M00S16201.cpumtr  +++|*
28048  M00S16202.cpumtr  +++|*         EXIT   NONE (IT NEVER DOES).
28049  M00S16203.cpumtr  +++|*
28050  M00S16204.cpumtr  +++|*         CALLS  MSC.
28051  M00S16205.cpumtr  +++|
28052  M00S16206.cpumtr  +++|
28053  M00S16207.cpumtr  +++| HHE      PS                 ENTRY
28054  M00S16208.cpumtr  +++|          SX1    HHEA        * ESM ERROR - BUFFERED I/O.*
28055  M00S16209.cpumtr  +++|          SB5    HHE1        *MSC* RETURN ADDRESS
28056  M00S16210.cpumtr  +++|          EQ     /MONITOR/MSC  SET MESSAGE IN SYSTEM CONTROL POINT
28057  M00S16211.cpumtr  +++|
28058  M00S16212.cpumtr  +++| HHE1     EQ     *           HANG
28059  M00S16213.cpumtr  +++|
28060  M00S16214.cpumtr  +++|
28061  M00S16215.cpumtr  +++| HHEA     DATA   C* ESM ERROR - BUFFERED I/O.*
28062  M00S16216.cpumtr  +++| IOC      SPACE  4,25
28063  M00S16217.cpumtr  +++|**        IOC - I/O CONTROL.
28064  M00S16218.cpumtr  +++|*
28065  M00S16219.cpumtr  +++|*         ENTRY  (X2) = 24/ FCN, 24/ RCD, 12/CBO
28066  M00S16220.cpumtr  +++|*
28067  M00S16221.cpumtr  +++|*                FCN = 0, ENTER BUFFER IN UNIT I/O QUEUE.

Seq #  *Modification Id* Act 
----------------------------+
28068  M01S16222.252l678 ---|*                    = 1, REMOVE BUFFER FROM UNIT I/O QUEUE.
28069  M00S16223.cpumtr  +++|*                    = 2, SET RECALL CONTROL ON BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
28070  M01S00832.251l664 +++|*                    = 3, 819 I/O RESTART.
28071  M00S16224.cpumtr  +++|*
28072  M00S16225.cpumtr  +++|*                RCD = RECALL DATA.
28073  M00S16226.cpumtr  +++|*
28074  M00S16227.cpumtr  +++|*                CBO = CONTROL BUFFER ORDINAL.
28075  M00S16228.cpumtr  +++|*
28076  M00S16229.cpumtr  +++|*         EXIT   ((B7) + 16B) = RESPONSE.
28077  M00S16230.cpumtr  +++|*
28078  M00S16231.cpumtr  +++|*                RESPONSE = 0, I/O COMPLETE.
28079  M00S16232.cpumtr  +++|*                           1, RECALL CONTROL SET.
28080  M00S16233.cpumtr  +++|*
28081  M00S16234.cpumtr  +++|*         USES   X - ALL.
28082  M00S16235.cpumtr  +++|*                A - 1, 2, 3, 4, 6, 7.
28083  M00S16236.cpumtr  +++|*                B - 3, 4, 5, 6, 7.
28084  M00S16237.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
28085  M01S16238.252l678 ---|*         CALLS  DLB, /IH819/INR.

Seq #  *Modification Id* Act 
----------------------------+
28086  M01S00743.252l678 +++|*         CALLS  /IH819/INR.
28087  M00S16239.cpumtr  +++|
28088  M00S16240.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28089  M01S16241.251l670 ---| IOC7     SA2    A3+IOLK
28090  M01S16242.251l670 ---|          SA4    A3+LSLK
28091  M01S16243.251l670 ---|          PL     X2,IOC8     IF I/O INTERLOCK CLEAR
28092  M01S16244.251l670 ---|          SX6    B1          PRESET RESPONSE
28093  M01S16245.251l670 ---|          BX7    X4+X7
28094  M01S16246.251l670 ---|          SA7    A4+
28095  M01S16247.251l670 ---| IOC8     TA6    16B,SCA     SET RESPONSE

Seq #  *Modification Id* Act 
----------------------------+
28096  M01S00097.251l670 +++| IOC9     SA2    A3+IOLK
28097  M01S00098.251l670 +++|          SA4    A3+LSLK
28098  M01S00099.251l670 +++|          PL     X2,IOC10    IF I/O INTERLOCK CLEAR
28099  M01S00100.251l670 +++|          SX6    1
28100  M01S00101.251l670 +++|          BX7    X4+X7
28101  M01S00102.251l670 +++|          NO
28102  M01S00103.251l670 +++|          SA7    A4+
28103  M01S00104.251l670 +++| IOC10    TA6    16B,SCA     STORE RESPONSE
28104  M00S16248.cpumtr  +++|
28105  M00S16249.cpumtr  +++| IOCX     SX7    B0+         CLEAR I/O REQUEST

Seq #  *Modification Id* Act 
----------------------------+
28106  M01S16250.283l840 ---|*         EQ     /PRESET/MEL6  (BUFFER RECOVERY IN PROGRESS)
28107  M00S16251.cpumtr  +++|          TB7    SCA         SYSTEM CONTROL POINT
28108  M00S16252.cpumtr  +++|          TA7    IORQ
28109  M00S16253.cpumtr  +++|          EQ     /MONITOR/MTRX  RETURN
28110  M00S16254.cpumtr  +++|
28111  M00S16255.cpumtr  +++|
28112  M00S16256.cpumtr  +++| IOC      MX4    -12

Seq #  *Modification Id* Act 
----------------------------+
28113  M01S16257.252l678 ---|          SB5    B1          SET *DLB* CONTROL
28114  M00S16258.cpumtr  +++|          BX4    -X4*X2      CONTROL BUFFER ORDINAL
28115  M00S16259.cpumtr  +++|          MX7    -24
28116  M00S16260.cpumtr  +++|          LX2    -12
28117  M00S16261.cpumtr  +++|          SB6    X4          CONTROL BUFFER ORDINAL
28118  M00S16262.cpumtr  +++|          BX7    -X7*X2      RECALL DATA
28119  M00S16263.cpumtr  +++|          LX2    -24

Seq #  *Modification Id* Act 
----------------------------+
28120  M01S16264.252l678 ---|          SB3    IOCX        *DLB* RETURN ADDRESS
28121  M00S16265.cpumtr  +++|          LX4    CBTLS
28122  M00S16266.cpumtr  +++|          SB7    X2          FUNCTION CODE

Seq #  *Modification Id* Act 
----------------------------+
28123  M01S16267.251l664 ---|          TA3    X4,CBT      CONTROL BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
28124  M01S00833.251l664 +++|          TA3    X4+PAD1,CBT CBT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
28125  M01S00744.252l678 +++|          MX2    -12
28126  M00S16268.cpumtr  +++|          TA4    X4+HSLK,CBT GET *PUT* ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
28127  M01S16269.252l678 ---|          MX2    -12
28128  M00S16270.cpumtr  +++|          BX2    -X2*X4      *PUT* ORDINAL
28129  M00S16271.cpumtr  +++|          LX2    PUTLS

Seq #  *Modification Id* Act 
----------------------------+
28130  M01S16272.252l678 ---|          BX6    X6-X6

Seq #  *Modification Id* Act 
----------------------------+
28131  M01S00745.252l678 +++|          SX6    B0+
28132  M00S16273.cpumtr  +++|          TA2    X2+UNCT,PUT *PUT* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
28133  M01S16274.252l678 ---|          EQ     B7,B1,DLB   IF DELETE BUFFER REQUEST

Proceed to Part 22