Deck CPUMTR Part 037

308 Modifications

Seq #  *Modification Id* Act 
----------------------------+
47923  M02S00743.ns2418  ---|*
47924  M02S00744.ns2418  ---|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
47925  M02S00745.ns2418  ---|*                A - 1, 2, 3, 6, 7.
47926  M02S00746.ns2418  ---|*                B - 4.
47927  M02S00747.ns2418  ---|
47928  M02S00748.ns2418  ---|
47929  M02S00749.ns2418  ---| RTC      SA2    RTCA        *FRC* AT LAST EVEN MILLISECOND
47930  M02S00750.ns2418  ---|          ZR     X2,RTC3     IF FIRST TIME THROUGH
47931  M02S00751.ns2418  ---|          RC     X5          READ THE FREE RUNNING MICROSECOND COUNTER
47932  M02S00752.ns2418  ---|          IX1    X5-X2       MICROSECONDS SINCE LAST EVEN MILLISECOND
47933  M02S00753.ns2418  ---|          SX6    1000        ONE MILLISECOND
47934  M02S00754.ns2418  ---|          IX7    X1-X6
47935  M02S00755.ns2418  ---|          NG     X7,/MONITOR/PMN0  IF LESS THAN A MILLISECOND
47936  M02S00756.ns2418  ---|          PX7    X6          DIVISOR
47937  M02S00757.ns2418  ---|          PX1    X1          DIVIDEND
47938  M02S00758.ns2418  ---|          NX7    X7          MUST NORMALIZE DIVISOR
47939  M02S00759.ns2418  ---|          SA3    RTCC        *RTCL* AT LAST *CPUMTR* UPDATE
47940  M02S00760.ns2418  ---|          FX7    X1/X7       CALCULATE MILLISECONDS
47941  M02S00761.ns2418  ---|          UX7    X7,B4
47942  M02S00762.ns2418  ---|          LX7    B4          INTEGER MILLISECONDS
47943  M02S00763.ns2418  ---|          IX6    X6*X7
47944  M02S00764.ns2418  ---|          IX6    X2+X6       MICROSECONDS AT NEW EVEN MILLISECOND
47945  M02S00765.ns2418  ---|          SA6    A2
47946  M02S00766.ns2418  ---|          MX2    24
47947  M02S00767.ns2418  ---|          BX1    -X2*X3      ISOLATE OLD *RTCL* MILLISECONDS
47948  M02S00768.ns2418  ---|          BX3    X2*X3       ISOLATE OLD *RTCL* SECONDS
47949  M02S00769.ns2418  ---|          IX7    X1+X7       CURRENT MILLISECONDS
47950  M02S00770.ns2418  ---|          SA1    RTCB        MICROSECONDS AT LAST EVEN SECOND
47951  M02S00771.ns2418  ---|          LX3    24
47952  M02S00772.ns2418  ---|          BX7    -X2*X7      NEW *RTCL* MILLISECOND COMPONENT
47953  M02S00773.ns2418  ---|          SX4    B1+
47954  M02S00774.ns2418  ---|          IX1    X5-X1       MICROSECONDS SINCE LAST EVEN SECOND
47955  M02S00775.ns2418  ---|          SX6    1000000/100B
47956  M02S00776.ns2418  ---|          LX6    6           ONE SECOND IN MICROSECONDS
47957  M02S00777.ns2418  ---| RTC1     IX2    X1-X6
47958  M02S00778.ns2418  ---|          NG     X2,RTC2     IF LESS THAN 1 SECOND LEFT
47959  M02S00779.ns2418  ---|          BX1    X2
47960  M02S00780.ns2418  ---|          IX3    X3+X4       INCREMENT SECONDS
47961  M02S00781.ns2418  ---|          NZ     X2,RTC1     IF NOT EVEN SECONDS
47962  M02S00782.ns2418  ---| RTC2     IX6    X5-X1       MICROSECONDS AT NEW EVEN SECOND
47963  M02S00783.ns2418  ---|          MX1    -24
47964  M02S00784.ns2418  ---|          SA6    A1
47965  M02S00785.ns2418  ---|          BX3    -X1*X3      NEW *RTCL* SECONDS COMPONENT
47966  M02S00786.ns2418  ---|          LX3    36
47967  M02S00787.ns2418  ---|          BX7    X3+X7       UPDATE REAL TIME CLOCK
47968  M02S00788.ns2418  ---|          SA7    A3          SAVE NEW *RTCL* VALUE
47969  M02S00789.ns2418  ---|          SA7    RTCL
47970  M02S00790.ns2418  ---|          EQ     /MONITOR/PMN0  EXIT TO PROCESS *MTR* REQUEST
47971  M02S00791.ns2418  ---|
47972  M02S00792.ns2418  ---| RTC3     SA3    RTCC        INITIALIZE REAL TIME CLOCK
47973  M02S00793.ns2418  ---|          RC     X6          ESTABLISH INITIAL REFERENCE POINTS
47974  M02S00794.ns2418  ---|          BX7    X3
47975  M02S00795.ns2418  ---|          SA6    RTCA        EVEN MILLISECOND REFERENCE
47976  M02S00796.ns2418  ---|          SA7    RTCL
47977  M02S00797.ns2418  ---|          SA6    RTCB        EVEN SECOND REFERENCE
47978  M02S00798.ns2418  ---|          EQ     /MONITOR/PMN0  EXIT TO PROCESS *MTR* REQUEST
47979  M02S00799.ns2418  ---|
47980  M02S00800.ns2418  ---| RTCA     CON    0           MICROSECONDS AT LAST EVEN MILLISECOND
47981  M02S00801.ns2418  ---| RTCB     CON    0           MICROSECONDS AT LAST EVEN SECOND
47982  M02S00802.ns2418  ---| RTCC     CON    377777000000000000B  *RTCL* INITIAL AND PREVIOUS

Seq #  *Modification Id* Act 
----------------------------+
47983  M01S00129.ns2418  +++| UAD      SPACE  4,10
47984  M01S00130.ns2418  +++|**        UAD - *UADM* EXTENSION FOR *FRAS* SUBFUNCTION.
47985  M01S00131.ns2418  +++|*
47986  M01S00132.ns2418  +++|*         ENTRY  (X0) = MASK(48).
47987  M01S00133.ns2418  +++|*                (X2) = 12/ FRAS, 48/ DESIRED *FRC* VALUE.
47988  M01S00134.ns2418  +++|*

Seq #  *Modification Id* Act 
----------------------------+
47989  M02S00135.251l664 ---|*         EXIT   (ST - ST+1) UPDATED.

Seq #  *Modification Id* Act 
----------------------------+
47990  M01S02771.251l664 +++|*         EXIT   (MS, ST - ST+1) UPDATED.

Seq #  *Modification Id* Act 
----------------------------+
47991  M01S00136.ns2418  +++|*                (/CME/RTCA - /CME/RTCC) UPDATED.
47992  M01S00137.ns2418  +++|
47993  M01S00138.ns2418  +++|
47994  M01S00139.ns2418  +++| UAD      MX6    0           RELEASE *1MB* TO NOTIFY *DFT* OF REQUEST
47995  M01S00140.ns2418  +++|          LX0    -12
47996  M01S00141.ns2418  +++|          SA6    A5+
47997  M01S00142.ns2418  +++|          BX7    X0*X2       EXTRACT DESIRED *FRC* VALUE
47998  M01S00143.ns2418  +++|          BX4    X4-X4
47999  M01S00144.ns2418  +++|          RC     X5          READ CURRENT *FRC* VALUE
48000  M01S00145.ns2418  +++|          IX2    X7-X5       CALCULATE *FRC* INCREMENT
48001  M01S00146.ns2418  +++|
48002  M01S00147.ns2418  +++|*         WAIT FOR *FRC* TO BE ADVANCED BY *DFT*.
48003  M01S00148.ns2418  +++|
48004  M01S00149.ns2418  +++| UAD1     RC     X3          READ CURRENT *FRC* VALUE
48005  M01S00150.ns2418  +++|          IX1    X3-X7
48006  M01S00151.ns2418  +++|          NG     X1,UAD1     IF *FRC* UPDATE HAS NOT OCCURRED YET
48007  M01S00152.ns2418  +++|
48008  M01S00153.ns2418  +++|*         ADJUST *FRC*-BASED VALUES.
48009  M01S00154.ns2418  +++|

Seq #  *Modification Id* Act 
----------------------------+
48010  M02S00155.271l750 ---|          SA1    /MONITOR/ST UPDATE CPU START TIME(S)

Seq #  *Modification Id* Act 
----------------------------+
48011  M01S02197.271l750 +++|          SA1    CL+CPBT     UPDATE CPU BASE TIME(S)

Seq #  *Modification Id* Act 
----------------------------+
48012  M01S00156.ns2418  +++|          IX6    X1+X2
48013  M01S00157.ns2418  +++|          SA3    A1+B1

Seq #  *Modification Id* Act 
----------------------------+
48014  M02S02772.271l750 ---|          SA1    /MONITOR/MS UPDATE MONITOR MODE START TIME

Seq #  *Modification Id* Act 
----------------------------+
48015  M01S02198.271l750 +++|          SA1    CL+CMST+A0  UPDATE MONITOR MODE BASE TIME

Seq #  *Modification Id* Act 
----------------------------+
48016  M01S00158.ns2418  +++|          IX7    X3+X2

Seq #  *Modification Id* Act 
----------------------------+
48017  M02S00159.251l664 ---|          SA6    A1
48018  M02S00160.251l664 ---|          SA7    A3+

Seq #  *Modification Id* Act 
----------------------------+
48019  M01S02773.251l664 +++|          SA6    A3-B1
48020  M01S02774.251l664 +++|          IX6    X1+X2
48021  M01S02775.251l664 +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
48022  M01S00161.ns2418  +++|          SA1    /CME/RTCA   UPDATE *RTC* PARAMETERS IN *CME* BLOCK

Seq #  *Modification Id* Act 
----------------------------+
48023  M01S02776.251l664 +++|          SA7    A3

Seq #  *Modification Id* Act 
----------------------------+
48024  M01S00162.ns2418  +++|          IX6    X1+X2
48025  M01S00163.ns2418  +++|          SA3    A1+B1
48026  M01S00164.ns2418  +++|          IX7    X3+X2
48027  M01S00165.ns2418  +++|          SA6    A1
48028  M01S00166.ns2418  +++|          SA7    A3
48029  M01S00167.ns2418  +++|          SA1    RTCL        GET MTR-UPDATED *RTCL* IMAGE
48030  M01S00168.ns2418  +++|          BX6    X1
48031  M01S00169.ns2418  +++|          SA6    A7+B1
48032  M01S00170.ns2418  +++|          EQ     /MONITOR/PPRX  EXIT - *OR* PREVIOUSLY CLEARED
48033  M00S28719.cpumtr  +++|
48034  M00S28720.cpumtr  +++|          ENDBLK
48035  M00S28721.cpumtr  +++|          BLOCK  PROBE,(DATA GATHERING PROBE.)
48036  M00S28722.cpumtr  +++|          SPACE  4,10
48037  M00S28723.cpumtr  +++|*CALL     COMSPDT
48038  M00S28724.cpumtr  +++| ACE      SPACE  4,10
48039  M00S28725.cpumtr  +++|**        ACE - SET ALTERNATE CPU EXCHANGE.
48040  M00S28726.cpumtr  +++|*
48041  M00S28727.cpumtr  +++|*         ENTRY  (B3) = EXIT ADDRESS.
48042  M00S28728.cpumtr  +++|*                (X0) = 1 IF BIT TO BE SET.
48043  M00S28729.cpumtr  +++|*                (X0) = 0 IF BIT TO BE CLEARED.
48044  M00S28730.cpumtr  +++|*                (X1) = REQUEST WORD.
48045  M00S28731.cpumtr  +++|*                (A1) = ADDRESS OF REQUEST WORD.
48046  M00S28732.cpumtr  +++|*
48047  M00S28733.cpumtr  +++|*         EXIT   ENTRY CONDITIONS PRESERVED.
48048  M00S28734.cpumtr  +++|*                *TACE* TABLE UPDATED.
48049  M00S28735.cpumtr  +++|*                EXIT TO /MONITOR/SPR.
48050  M00S28736.cpumtr  +++|*
48051  M00S28737.cpumtr  +++|*         USES   A - 3, 6.
48052  M00S28738.cpumtr  +++|*                X - 3, 6.
48053  M00S28739.cpumtr  +++|
48054  M00S28740.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
48055  M01S28741.v23l617 ---| ACE      SA3    SD5L

Seq #  *Modification Id* Act 
----------------------------+
48056  M01S00493.v23l617 +++| ACE      SA3    PRBP
48057  M00S28742.cpumtr  +++|          PL     X3,ACE1     IF *PROBE* TABLES INTERLOCKED
48058  M00S28743.cpumtr  +++|          SX6    A0
48059  M00S28744.cpumtr  +++|          IX3    X3+X6
48060  M00S28745.cpumtr  +++|          SX6    B1+
48061  M00S28746.cpumtr  +++|          SA3    X3+TACE     INCREMENT COUNTER
48062  M00S28747.cpumtr  +++|          IX6    X3+X6
48063  M00S28748.cpumtr  +++|          SA6    A3

Seq #  *Modification Id* Act 
----------------------------+
48064  M01S28749.271l750 ---| ACE1     JP     /MONITOR/SPR  EXIT

Seq #  *Modification Id* Act 
----------------------------+
48065  M01S02199.271l750 +++| ACE1     JP     /MONITOR/SPB  EXIT
48066  M00S28750.cpumtr  +++| CIO      SPACE  4,10
48067  M00S28751.cpumtr  +++|**        CIO - *CIO* REQUESTS.
48068  M00S28752.cpumtr  +++|*
48069  M00S28753.cpumtr  +++|*         ENTRY  SEE */MONITOR/CPR* ENTRY CONDITIONS.
48070  M00S28754.cpumtr  +++|*
48071  M00S28755.cpumtr  +++|*         EXIT   TO */MONITOR/CIO* WITH ENTRY CONDITIONS PRESERVED.
48072  M00S28756.cpumtr  +++|*                APPROPRIATE DATA REGION ITEMS UPDATED.
48073  M00S28757.cpumtr  +++|*
48074  M00S28758.cpumtr  +++|*         USES   A - 2, 4, 6.
48075  M00S28759.cpumtr  +++|*                X - 0, 2, 3, 4, 6.
48076  M00S28760.cpumtr  +++|
48077  M00S28761.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
48078  M01S28762.v23l617 ---| CIO      SA4    SD5L

Seq #  *Modification Id* Act 
----------------------------+
48079  M01S00494.v23l617 +++| CIO      SA4    PRBP
48080  M00S28763.cpumtr  +++|          PL     X4,/CPUCIO/CPC  IF PROBE TABLE INTERLOCKED
48081  M00S28764.cpumtr  +++|          SX3    X5
48082  M00S28765.cpumtr  +++|          SX1    B4
48083  M00S28766.cpumtr  +++|          SX6    B1
48084  M00S28767.cpumtr  +++|          IX0    X3-X1
48085  M00S28768.cpumtr  +++|          PL     X0,CIO2     IF FET ADDRESS .GE. FL
48086  M00S28769.cpumtr  +++|          SA2    B3          GET RA
48087  M00S28770.cpumtr  +++|          IX2    X3+X2       ABSOLUTE REQUEST ADDRESS
48088  M00S28771.cpumtr  +++|          ERX2   X2
48089  M00S28772.cpumtr  +++|          LX2    -2
48090  M00S28773.cpumtr  +++|          SX0    177B        INDEX MASK FOR *CIO* FUNCTION
48091  M00S28774.cpumtr  +++|          BX2    X0*X2
48092  M00S28775.cpumtr  +++|          BX0    X6*X2
48093  M00S28776.cpumtr  +++|          AX2    1
48094  M00S28777.cpumtr  +++|          ZR     X0,CIO1     IF INCREMENTING UPPER COUNTER
48095  M00S28778.cpumtr  +++|          LX6    30
48096  M00S28779.cpumtr  +++| CIO1     IX4    X2+X4
48097  M00S28780.cpumtr  +++|          SA2    X4+TCIO     INCREMENT COUNTER
48098  M00S28781.cpumtr  +++|          IX6    X2+X6
48099  M00S28782.cpumtr  +++|          SA6    A2+
48100  M00S28783.cpumtr  +++| CIO2     MX0    48          RESTORE EXIT CONDITIONS
48101  M00S28784.cpumtr  +++|          SX2    B3
48102  M00S28785.cpumtr  +++|          EQ     /CPUCIO/CPC  PROCESS CIO REQUEST

Seq #  *Modification Id* Act 
----------------------------+
48103  M01S02777.251l664 +++| IOS      SPACE  4,10
48104  M01S02778.251l664 +++|**        IOS - I/O STATISTICS FOR BUFFERED I/O.
48105  M01S02779.251l664 +++|*
48106  M01S02780.251l664 +++|*         ENTRY  (X0) = 48 BIT MASK.
48107  M01S02781.251l664 +++|*                (X2) = 49 BIT MASK.
48108  M01S02782.251l664 +++|*                (A5) = PP OUTPUT REGISTER ADDRESS.
48109  M01S02783.251l664 +++|*
48110  M01S02784.251l664 +++|*         EXIT   TO *BIO20*.
48111  M01S02785.251l664 +++|*
48112  M01S02786.251l664 +++|*         USES   X - 0, 1, 3, 4, 6.
48113  M01S02787.251l664 +++|*                A - 3, 4, 6.
48114  M01S02788.251l664 +++|*                B - 3, 4.
48115  M01S02789.251l664 +++|
48116  M01S02790.251l664 +++|
48117  M01S02791.251l664 +++| IOS      SA3    PRBP
48118  M01S02792.251l664 +++|          PL     X3,/IHPFMD/BIO20  IF *PROBE* TABLE INTERLOCKED
48119  M01S02793.251l664 +++|          SA3    A5          READ PP OUTPUT REGISTER
48120  M01S02794.251l664 +++|          BX6    -X2*X3      EXTRACT CBT COUNT
48121  M01S02795.251l664 +++|          ZR     X6,/IHPFMD/BIO20  IF NO CBT COUNT
48122  M01S02796.251l664 +++|          LX3    -24
48123  M01S02797.251l664 +++|          SB3    47
48124  M01S02798.251l664 +++|          BX1    -X0*X3      EXTRACT PUT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
48125  M01S00003.cpum148 +++|          PL     X3,/IHPFMD/BIO20  IF NOT CLEARING *PUT* INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
48126  M01S02799.251l664 +++|          SX4    X6-177B
48127  M01S02800.251l664 +++|          NX6    X6,B4       DETERMINE *IOST* INDEX
48128  M01S02801.251l664 +++|          SB3    B3-B4

Seq #  *Modification Id* Act 
----------------------------+
48129  M01S00004.cpum148 +++|          SB4    59-29

Seq #  *Modification Id* Act 
----------------------------+
48130  M01S02802.251l664 +++|          NG     X4,IOS1     IF CBT COUNT IN RANGE
48131  M01S02803.251l664 +++|          SB3    7
48132  M01S02804.251l664 +++| IOS1     TA4    IOSP,BDT    FWA OF *IOST*
48133  M01S02805.251l664 +++|          SX0    B1+
48134  M01S02806.251l664 +++|          LX1    PUTLS
48135  M01S02807.251l664 +++|          IX4    X1+X4       FWA OF *IOST* ENTRY
48136  M01S02808.251l664 +++|          SA4    X4+B3       READ *IOST* COUNTER
48137  M01S02809.251l664 +++|          LX3    59-11-36

Seq #  *Modification Id* Act 
----------------------------+
48138  M02S02810.cpum148 ---|          SB4    59-29

Seq #  *Modification Id* Act 
----------------------------+
48139  M01S02811.251l664 +++|          NG     X3,IOS2     IF WRITE OPERATION
48140  M01S02812.251l664 +++|          LX0    30
48141  M01S02813.251l664 +++|          SB4    B0
48142  M01S02814.251l664 +++| IOS2     IX6    X4+X0       UPDATE *IOST* TABLE
48143  M01S02815.251l664 +++|          LX4    X6,B4
48144  M01S02816.251l664 +++|          NG     X4,/IHPFMD/BIO20  IF COUNTER OVERFLOW
48145  M01S02817.251l664 +++|          SA6    A4
48146  M01S02818.251l664 +++|          EQ     /IHPFMD/BIO20  RETURN
48147  M00S28786.cpumtr  +++| MNR      SPACE  4,10
48148  M00S28787.cpumtr  +++|**        MNR - PROGRAM MODE MTR FUNCTIONS.
48149  M00S28788.cpumtr  +++|*
48150  M00S28789.cpumtr  +++|*         ENTRY  SEE */PROGRAM/MNR* EXIT CONDITIONS.
48151  M00S28790.cpumtr  +++|*
48152  M00S28791.cpumtr  +++|*         EXIT   TO (B6) WITH ENTRY CONDITIONS PRESERVED.
48153  M00S28792.cpumtr  +++|*                APPROPRIATE DATA REGION ITEMS UPDATED.
48154  M00S28793.cpumtr  +++|*
48155  M00S28794.cpumtr  +++|*         USES   A - 3, 6.
48156  M00S28795.cpumtr  +++|*                X - 3, 4, 6.
48157  M00S28796.cpumtr  +++|
48158  M00S28797.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
48159  M01S28798.v23l617 ---| MNR      SA3    SD5L

Seq #  *Modification Id* Act 
----------------------------+
48160  M01S00495.v23l617 +++| MNR      SA3    PRBP
48161  M00S28799.cpumtr  +++|          SX4    B1+
48162  M00S28800.cpumtr  +++|          PL     X3,MNR1     IF PROBE TABLE INTERLOCKED
48163  M00S28801.cpumtr  +++|          SX3    X3+TMNR
48164  M00S28802.cpumtr  +++|+         SA3    X3+B4       *** PERFORM IN ONE WORD ***
48165  M00S28803.cpumtr  +++|          IX6    X3+X4       *** PERFORM IN ONE WORD ***
48166  M00S28804.cpumtr  +++|          SA6    A3+         *** PERFORM IN ONE WORD ***
48167  M00S28805.cpumtr  +++| MNR1     JP     B6          RETURN
48168  M00S28806.cpumtr  +++| PMN      SPACE  4,10
48169  M00S28807.cpumtr  +++|**        PMN - MTR FUNCTIONS.
48170  M00S28808.cpumtr  +++|*
48171  M00S28809.cpumtr  +++|*         ENTRY  SEE */MONITOR/PMN* EXIT CONDITIONS.
48172  M00S28810.cpumtr  +++|*
48173  M00S28811.cpumtr  +++|*         EXIT   TO (B6) WITH ENTRY CONDITIONS PRESERVED.
48174  M00S28812.cpumtr  +++|*                APPROPRIATE DATA REGION ITEMS UPDATED.
48175  M00S28813.cpumtr  +++|*
48176  M00S28814.cpumtr  +++|*         USES   A - 1, 4, 6.
48177  M00S28815.cpumtr  +++|*                X - 1, 4, 6.
48178  M00S28816.cpumtr  +++|
48179  M00S28817.cpumtr  +++|
48180  M00S28818.cpumtr  +++| PMN      SX6    X0+

Seq #  *Modification Id* Act 
----------------------------+
48181  M01S28819.v23l617 ---|          SA4    SD5L

Seq #  *Modification Id* Act 
----------------------------+
48182  M01S00496.v23l617 +++|          SA4    PRBP
48183  M00S28820.cpumtr  +++|          SX1    A0
48184  M00S28821.cpumtr  +++|          PL     X4,PMN2     IF PROBE TABLE INTERLOCKED
48185  M00S28822.cpumtr  +++|          IX4    X6+X4
48186  M00S28823.cpumtr  +++|          SX6    B1
48187  M00S28824.cpumtr  +++|          ZR     X1,PMN1     IF CPU 0
48188  M00S28825.cpumtr  +++|          LX6    30
48189  M00S28826.cpumtr  +++| PMN1     SA1    X4+TMTR-1   INCREMENT COUNTER
48190  M00S28827.cpumtr  +++|          IX6    X1+X6
48191  M00S28828.cpumtr  +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
48192  M01S28829.271l716 ---| PMN2     JP     B6          EXIT

Seq #  *Modification Id* Act 
----------------------------+
48193  M01S02114.271l716 +++| PMN2     TJP    (/TRACE/PMN,TRACE,B6)  EXIT
48194  M00S28830.cpumtr  +++| PPR      SPACE  4,10
48195  M00S28831.cpumtr  +++|**        PPR - PPU FUNCTION REQUESTS.
48196  M00S28832.cpumtr  +++|*
48197  M00S28833.cpumtr  +++|*         ENTRY  SEE */MONITOR/PPR* EXIT CONDITIONS.
48198  M00S28834.cpumtr  +++|*                (A3) = PROCESSOR CONTROL WORD ADDRESS.
48199  M00S28835.cpumtr  +++|*
48200  M00S28836.cpumtr  +++|*         EXIT   TO (B6) WITH ENTRY CONDITIONS PRESERVED.
48201  M00S28837.cpumtr  +++|*                APPROPRIATE DATA REGION ITEMS UPDATED.
48202  M00S28838.cpumtr  +++|*
48203  M00S28839.cpumtr  +++|*         USES   A - 4, 6.
48204  M00S28840.cpumtr  +++|*                B - 6.
48205  M00S28841.cpumtr  +++|*                X - 0, 4, 6.
48206  M00S28842.cpumtr  +++|
48207  M00S28843.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
48208  M01S28844.273l780 ---| PPR      SX0    A0

Seq #  *Modification Id* Act 
----------------------------+
48209  M01S00916.273l780 +++| PPR      SA4    PRBP
48210  M01S00917.273l780 +++|          SX0    A0+
48211  M00S28845.cpumtr  +++|          SX6    B1

Seq #  *Modification Id* Act 
----------------------------+
48212  M01S28846.v23l617 ---|          SA4    SD5L

Seq #  *Modification Id* Act 
----------------------------+
48213  M02S00497.273l780 ---|          SA4    PRBP

Seq #  *Modification Id* Act 
----------------------------+
48214  M01S28847.273l780 ---|          NZ     X0,PPR2     IF CPU 1
48215  M01S28848.273l780 ---|          PL     X4,PPR3     IF PROBE TABLE INTERLOCKED
48216  M01S28849.273l780 ---| PPR1     SB6    X4+TPPU-TPPR

Seq #  *Modification Id* Act 
----------------------------+
48217  M01S00918.273l780 +++|          ZR     X0,PPR1     IF CPU 0
48218  M01S00919.273l780 +++|          LX6    30
48219  M01S00920.273l780 +++| PPR1     PL     X4,PPR2     IF PROBE TABLE INTERLOCKED
48220  M01S00921.273l780 +++|          SB6    X4+TPPU-TPPR
48221  M00S28850.cpumtr  +++|          SA4    A3+B6       INCREMENT COUNTER
48222  M00S28851.cpumtr  +++|          SB6    X3          SET PROCESSOR ADDRESS
48223  M00S28852.cpumtr  +++|          IX6    X4+X6

Seq #  *Modification Id* Act 
----------------------------+
48224  M01S28853.273l780 ---|          SX4    7600B       RESTORE ENTRY CONDITIONS
48225  M00S28854.cpumtr  +++|          SA6    A4

Seq #  *Modification Id* Act 
----------------------------+
48226  M01S28855.271l716 ---|          JP     B6

Seq #  *Modification Id* Act 
----------------------------+
48227  M02S02115.273l780 ---|          TJP    (/TRACE/PPR,TRACE,B6)  EXIT

Seq #  *Modification Id* Act 
----------------------------+
48228  M01S28856.273l780 ---|
48229  M01S28857.273l780 ---| PPR2     LX6    30
48230  M01S28858.273l780 ---|          NG     X4,PPR1     IF PROBE TABLE NOT INTERLOCKED
48231  M01S28859.273l780 ---| PPR3     SX4    7600B       RESTORE ENTRY CONDTIONS

Seq #  *Modification Id* Act 
----------------------------+
48232  M02S28860.273l780 ---|          JP     B6          EXIT TO FUNCTION PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
48233  M02S02116.273l780 ---|          TJP    (/TRACE/PPR,TRACE,B6)  EXIT

Seq #  *Modification Id* Act 
----------------------------+
48234  M01S00922.273l780 +++| PPR2     TJP    (/TRACE/PPR,TRACE,B6)  EXIT
48235  M00S28861.cpumtr  +++| PRG      SPACE  4,10
48236  M00S28862.cpumtr  +++|**        PRG - PROGRAM MODE PPU REQUESTS.
48237  M00S28863.cpumtr  +++|*
48238  M00S28864.cpumtr  +++|*         ENTRY  SEE */PROGRAM/PRG* EXIT CONDITIONS.
48239  M00S28865.cpumtr  +++|*
48240  M00S28866.cpumtr  +++|*         EXIT   TO (B6) WITH ENTRY CONDITIONS PRESERVED.
48241  M00S28867.cpumtr  +++|*                APPROPRIATE DATA REGION ITEMS UPDATED.
48242  M00S28868.cpumtr  +++|*
48243  M00S28869.cpumtr  +++|*         USES   A - 3, 7.
48244  M00S28870.cpumtr  +++|*                X - 3, 6, 7.
48245  M00S28871.cpumtr  +++|
48246  M00S28872.cpumtr  +++|
48247  M00S28873.cpumtr  +++| PRG      BX6    X3          SAVE ENTRY CONDITIONS

Seq #  *Modification Id* Act 
----------------------------+
48248  M01S28874.v23l617 ---|          SA3    SD5L

Seq #  *Modification Id* Act 
----------------------------+
48249  M01S00498.v23l617 +++|          SA3    PRBP
48250  M00S28875.cpumtr  +++|          SX7    B1
48251  M00S28876.cpumtr  +++|          PL     X3,PRG1     IF PROBE TABLE INTERLOCKED
48252  M00S28877.cpumtr  +++|          SX3    X3+TPRG-CPUM
48253  M00S28878.cpumtr  +++|+         SA3    X3+B4       *** PERFORM IN ONE WORD ***
48254  M00S28879.cpumtr  +++|          IX7    X3+X7       *** PERFORM IN ONE WORD ***
48255  M00S28880.cpumtr  +++|          SA7    A3+         *** PERFORM IN ONE WORD ***
48256  M00S28881.cpumtr  +++| PRG1     BX3    X6          RESTORE EXIT CONDITIONS
48257  M00S28882.cpumtr  +++|          BX7    X7-X7

Seq #  *Modification Id* Act 
----------------------------+
48258  M01S28883.271l716 ---|          JP     B6          RETURN

Seq #  *Modification Id* Act 
----------------------------+
48259  M01S02117.271l716 +++|          TJP    (/TRACE/PPR,TRACE,B6)  EXIT
48260  M00S28884.cpumtr  +++| SPL      SPACE  4,10
48261  M00S28885.cpumtr  +++|**        SPL - SEARCH PERIPHERAL LIBRARY.
48262  M00S28886.cpumtr  +++|*
48263  M00S28887.cpumtr  +++|*         ENTRY  SEE */MONITOR/SPL* EXIT CONDITIONS.
48264  M00S28888.cpumtr  +++|*
48265  M00S28889.cpumtr  +++|*         EXIT   TO (B6) WITH ENTRY CONDITIONS PRESERVED.
48266  M00S28890.cpumtr  +++|*                APPROPRIATE DATA REGION ITEMS UPDATED.
48267  M00S28891.cpumtr  +++|*
48268  M00S28892.cpumtr  +++|*         USES   A - 2, 7.
48269  M00S28893.cpumtr  +++|*                X - 2, 3, 4, 7.
48270  M00S28894.cpumtr  +++|
48271  M00S28895.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
48272  M01S28896.v23l617 ---| SPL      SA2    SD5L

Seq #  *Modification Id* Act 
----------------------------+
48273  M01S00499.v23l617 +++| SPL      SA2    PRBP
48274  M00S28897.cpumtr  +++|          BX3    X7          SAVE ENTRY CONDITIONS
48275  M00S28898.cpumtr  +++|          SX7    A1
48276  M00S28899.cpumtr  +++|          PL     X2,SPL2     IF PROBE TABLE INTERLOCKED
48277  M00S28900.cpumtr  +++|          R=     A2,PLDP
48278  M00S28901.cpumtr  +++|          AX2    36
48279  M00S28902.cpumtr  +++|          IX7    X7-X2
48280  M00S28903.cpumtr  +++|          SX4    B1
48281  M00S28904.cpumtr  +++|          BX2    X4*X7
48282  M00S28905.cpumtr  +++|          LX7    -1
48283  M00S28906.cpumtr  +++|          ZR     X2,SPL1     IF INCREMENTING UPPER COUNTER
48284  M00S28907.cpumtr  +++|          LX4    30

Seq #  *Modification Id* Act 
----------------------------+
48285  M01S28908.v23l617 ---| SPL1     SA2    SD5L        GET TABLE ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
48286  M01S00500.v23l617 +++| SPL1     SA2    PRBP
48287  M00S28909.cpumtr  +++|          SX2    X2+TSPL
48288  M00S28910.cpumtr  +++|          IX2    X7+X2
48289  M00S28911.cpumtr  +++|          SA2    X2          INCREMENT COUNTER
48290  M00S28912.cpumtr  +++|          IX7    X4+X2
48291  M00S28913.cpumtr  +++|          SA7    A2
48292  M00S28914.cpumtr  +++| SPL2     BX7    X3          RESTORE ENTRY CONDITIONS
48293  M00S28915.cpumtr  +++|          JP     B6          RETURN
48294  M00S28916.cpumtr  +++|
48295  M00S28917.cpumtr  +++|          ENDBLK

Seq #  *Modification Id* Act 
----------------------------+
48296  M01S02118.271l716 +++|          BLOCK  TRACE,(TRACE/TRAP PACKAGE.)
48297  M01S02119.271l716 +++| SETFLD   SPACE  4,10
48298  M01S02120.271l716 +++|**        SETFLD - SET UP FIELD VALIDATION REGISTERS.
48299  M01S02121.271l716 +++|*
48300  M01S02122.271l716 +++|*         ENTRY  (A1) = TRPA.
48301  M01S02123.271l716 +++|*                (X1) = (TRPA).
48302  M01S02124.271l716 +++|*
48303  M01S02125.271l716 +++|*         EXIT   (X1) POSITIONED TO TRAP-ON-ANY-NON-ZERO-VALUE FLAG.
48304  M01S02126.271l716 +++|*                (X2) = VALUE TO CHECK AGAINST, AFTER APPLYING MASK.
48305  M01S02127.271l716 +++|*                (X3) = WORD ADDRESS.
48306  M01S02128.271l716 +++|*                (X6) = POSITIONED MASK.
48307  M01S02129.271l716 +++|*                (B5) = LOW BIT OF FIELD.
48308  M01S02130.271l716 +++|*
48309  M01S02131.271l716 +++|*         USES   X - 1, 2, 3, 6.
48310  M01S02132.271l716 +++|*                A - 2.
48311  M01S02133.271l716 +++|*                B - 4, 5.
48312  M01S02134.271l716 +++|
48313  M01S02135.271l716 +++|
48314  M01S02136.271l716 +++| SETFLD   MACRO
48315  M01S02137.271l716 +++|          LIST   M
48316  M01S02138.271l716 +++|          SX3    X1          GET WORD ADDRESS
48317  M01S02139.271l716 +++|          LX1    59-41       FLAG TO TRAP ON ANY NONZERO VALUE
48318  M01S02140.271l716 +++|          SA2    A1+B1       LOW BIT, MASK LENGTH
48319  M01S02141.271l716 +++|          SB5    X2          LOW BIT
48320  M01S02142.271l716 +++|          AX2    24
48321  M01S02143.271l716 +++|          SB4    X2          GET MASK LENGTH - 1
48322  M01S02144.271l716 +++|          MX6    1           CREATE MASK
48323  M01S02145.271l716 +++|          AX6    B4
48324  M01S02146.271l716 +++|          SB4    B4+B1       POSITION MASK
48325  M01S02147.271l716 +++|          LX6    B4
48326  M01S02148.271l716 +++|          SA2    A2+B1       GET VALUE
48327  M01S02149.271l716 +++|          BX2    X6*X2       APPLY MASK TO VALUE
48328  M01S02150.271l716 +++|          LIST   *
48329  M01S02151.271l716 +++|          ENDM
48330  M01S02152.271l716 +++| MTRP     SPACE  4,10
48331  M01S02153.271l716 +++|**        *DSDI* POINTER WORDS.
48332  M01S02154.271l716 +++|*
48333  M01S02155.271l716 +++|*         THESE WORDS ARE USED BY *DSDI* DIRECTIVE *TBDUMP* TO LOCATE
48334  M01S02156.271l716 +++|*         THE TRACE BUFFERS AND ASSOCIATED INFORMATION IN THE TRACE
48335  M01S02157.271l716 +++|*         BLOCK.  IF THE ORDER OR CONTENT OF THESE WORDS IS CHANGED,
48336  M01S02158.271l716 +++|*         *DSDI* MUST BE EXAMINED FOR POSSIBLE CHANGES AS WELL.
48337  M01S02159.271l716 +++|
48338  M01S02160.271l716 +++|
48339  M01S02161.271l716 +++| MTRP     VFD    24/0,18/PMNC+PMNCL,18/PMNC   *MTR* TRACE BUFFER
48340  M01S02162.271l716 +++|          VFD    42/0,18/PMNA                 *MTR* FUNCTION LIST
48341  M01S02163.271l716 +++|          VFD    24/0,18/PMND,18/PMNE         ABS/CPA ADDRESS LISTS
48342  M01S02164.271l716 +++|          VFD    24/0,18/PPRC+PPRCL,18/PPRC   *PPU* TRACE BUFFER
48343  M01S02165.271l716 +++|          VFD    42/0,18/PPRA                 *PPU FUNCTION LIST
48344  M01S02166.271l716 +++| TRACE    SPACE  4
48345  M01S02167.271l716 +++|*CALL     COMSDSL
48346  M01S02168.271l716 +++| TRP      SPACE  4,10
48347  M01S02169.271l716 +++|**        TRP - TRAP ON ERROR CONDITION.
48348  M01S02170.271l716 +++|*
48349  M01S02171.271l716 +++|*         ENTRY  CALLED AT *MTRX*.
48350  M01S02172.271l716 +++|*
48351  M01S02173.271l716 +++|*         EXIT   TO */MONITOR/MTRX*+1.
48352  M01S02174.271l716 +++|*
48353  M01S02175.271l716 +++|*         USES   X - ALL.
48354  M01S02176.271l716 +++|*                A - 1, 2, 3, 4, 6, 7.
48355  M01S02177.271l716 +++|*                B - 3, 4, 5, 6, 7.
48356  M01S02178.271l716 +++|
48357  M01S02179.271l716 +++|
48358  M01S02180.271l716 +++| TRP      SA1    SSTL
48359  M01S02181.271l716 +++|          TB3    MCT
48360  M01S02182.271l716 +++|          TB5    SC
48361  M01S02183.271l716 +++|          LX1    59-13
48362  M01S02184.271l716 +++|          SX0    B5+B5       2 * SYSTEM CP
48363  M01S02185.271l716 +++|          NG     X1,/MONITOR/MTRX+1  IF SYSTEM DEBUG MODE DISABLED
48364  M01S02186.271l716 +++|          SA2    TRPA
48365  M01S02187.271l716 +++|
48366  M01S02188.271l716 +++|*         VALIDATE CM ALLOCATION.
48367  M01S02189.271l716 +++|
48368  M01S02190.271l716 +++|          LX2    59-44
48369  M01S02191.271l716 +++|          SX7    B7          SAVE (B7)
48370  M01S02192.271l716 +++|          PL     X2,TRP7     IF MCT VALIDATION NOT SELECTED
48371  M01S02193.271l716 +++|          SA1    SMRL
48372  M01S02194.271l716 +++|          NZ     X1,TRP7     IF MEMORY MANAGEMENT OPERATION OCCURRING
48373  M01S02195.271l716 +++|          TB6    -200B,PCPA
48374  M01S02196.271l716 +++|          SA7    TRPB
48375  M01S02197.271l716 +++|          SB7    B0+
48376  M01S02198.271l716 +++| TRP1     TB4    -2,NMCT
48377  M01S02199.271l716 +++|          SX1    B1+B1       INITIAL MCT OFFSET (START AT CP 1)
48378  M01S02200.271l716 +++|          SX2    B0          INITIAL PREVIOUS INDEX
48379  M01S02201.271l716 +++| TRP2     MX5    12
48380  M01S02202.271l716 +++|          SB4    B4-B1
48381  M01S02203.271l716 +++|          ZR     B4,TRP5     IF END OF MCT
48382  M01S02204.271l716 +++|          SA3    B3+X1       MCT ENTRY
48383  M01S02205.271l716 +++|          BX4    X5*X3       BACKWARD LINK
48384  M01S02206.271l716 +++|          AX4    48-1
48385  M01S02207.271l716 +++|          BX4    X4-X2
48386  M01S02208.271l716 +++|          NZ     X4,TRP52    IF BACKWARD LINK INCORRECT
48387  M01S02209.271l716 +++|          LX5    -12
48388  M01S02210.271l716 +++|          BX2    X1          NEW PREVIOUS INDEX
48389  M01S02211.271l716 +++|          BX1    X5*X3       FORWARD LINK
48390  M01S02212.271l716 +++|          AX1    36-1
48391  M01S02213.271l716 +++|          MX7    -24
48392  M01S02214.271l716 +++|          BX5    -X7*X3      HOLE(N-1)
48393  M01S02215.271l716 +++|          BX3    X2
48394  M01S02216.271l716 +++|          LX7    12
48395  M01S02217.271l716 +++|          LX3    7-1
48396  M01S02218.271l716 +++|          IX6    X2-X0
48397  M01S02219.271l716 +++|          NG     X6,TRP3     IF CP
48398  M01S02220.271l716 +++|          LX6    7-1
48399  M01S02221.271l716 +++|          SX3    B6+X6
48400  M01S02222.271l716 +++| TRP3     SA4    X3+STSW
48401  M01S02223.271l716 +++|          SX3    X3+FLSW
48402  M01S02224.271l716 +++|          LX4    59-53
48403  M01S02225.271l716 +++|          SA3    X3+B7       CURRENT *FLSW*/*ECSW*
48404  M01S02226.271l716 +++|          NG     X4,TRP53    IF ACTIVITY UNDERFLOW
48405  M01S02227.271l716 +++|          BX4    X1
48406  M01S02228.271l716 +++|          LX4    7-1
48407  M01S02229.271l716 +++|          IX6    X1-X0
48408  M01S02230.271l716 +++|          NG     X6,TRP4     IF CP
48409  M01S02231.271l716 +++|          LX6    7-1
48410  M01S02232.271l716 +++|          SX4    B6+X6
48411  M01S02233.271l716 +++| TRP4     SX4    X4+FLSW
48412  M01S02234.271l716 +++|          SA4    X4+B7       NEXT *FLSW*/*ECSW*
48413  M01S02235.271l716 +++|          BX6    -X7*X4      RA(N) SHIFTED LEFT 12
48414  M01S02236.271l716 +++|          BX7    -X7*X3      RA(N-1) SHIFTED LEFT 12
48415  M01S02237.271l716 +++|          IX6    X6-X7       RA(N) - RA(N-1) SHIFTED LEFT 12
48416  M01S02238.271l716 +++|          NG     X6,TRP51    IF RA-S OUT OF ORDER
48417  M01S02239.271l716 +++|          LX6    -12
48418  M01S02240.271l716 +++|          IX6    X6-X5       RA(N) - RA(N-1) - HOLE(N-1)
48419  M01S02241.271l716 +++|          MX5    12
48420  M01S02242.271l716 +++|          BX7    X5*X4       NFL(N)
48421  M01S02243.271l716 +++|          LX7    -48
48422  M01S02244.271l716 +++|          IX6    X6-X7       RA(N) - RA(N-1) - HOLE(N-1) - NFL(N)
48423  M01S02245.271l716 +++|          MX5    -12
48424  M01S02246.271l716 +++|          BX7    -X5*X3      FL(N-1)
48425  M01S02247.271l716 +++|          IX6    X6-X7       SUBTOTAL - FL(N-1)
48426  M01S02248.271l716 +++|          ZR     X6,TRP2     IF ALL IS WELL
48427  M01S02249.271l716 +++|          EQ     TRP55       HANG DUE TO MISPOSITIONED HOLE
48428  M01S02250.271l716 +++|
48429  M01S02251.271l716 +++| TRP5     TB4    1,MCT
48430  M01S02252.271l716 +++|          EQ     B3,B4,TRP6  IF EM ALREADY VALIDATED
48431  M01S02253.271l716 +++|          SA1    ECRL
48432  M01S02254.271l716 +++|          SB3    B4+
48433  M01S02255.271l716 +++|          SB7    ECSW-FLSW
48434  M01S02256.271l716 +++|          NZ     X1,TRP1     IF EM PRESENT
48435  M01S02257.271l716 +++| TRP6     SA1    TRPB        RESTORE (B7)
48436  M01S02258.271l716 +++|          SB7    X1+
48437  M01S02259.271l716 +++|
48438  M01S02260.271l716 +++|*         VERIFY EJT/PCPA INTEGRITY.
48439  M01S02261.271l716 +++|
48440  M01S02262.271l716 +++| TRP7     SA1    TRPA
48441  M01S02263.271l716 +++|          TB3    1,EJTM      MAXIMUM EJT ORDINAL
48442  M01S02264.271l716 +++|          LX1    59-42
48443  M01S02265.271l716 +++|          PL     X1,TRP11    IF NOT SELECTED
48444  M01S02266.271l716 +++|          MX6    -5
48445  M01S02267.271l716 +++|          TX7    SC          SYSTEM CONTROL POINT NUMBER
48446  M01S02268.271l716 +++|          MX4    -12
48447  M01S02269.271l716 +++| TRP8     SB3    B3-B1       DECREMENT EJT INDEX
48448  M01S02270.271l716 +++|          ZR     B3,TRP9     IF END OF SCAN
48449  M01S02271.271l716 +++|          SX1    B3
48450  M01S02272.271l716 +++|          CX2    X1,EJT      CONVERT EJT ORDINAL TO OFFSET
48451  M01S02273.271l716 +++|          TA2    X2+JSNE,EJT
48452  M01S02274.271l716 +++|          BX5    X4*X2
48453  M01S02275.271l716 +++|          ZR     X5,TRP8     IF VACANT ENTRY
48454  M01S02276.271l716 +++|          LX2    -1
48455  M01S02277.271l716 +++|          BX0    -X6*X2      JOB STATUS
48456  M01S02278.271l716 +++|          SX5    X0-EXJS
48457  M01S02279.271l716 +++|          NG     X2,TRP8     IF JOB INTERLOCK SET
48458  M01S02280.271l716 +++|          SA3    A2+SCHE-JSNE
48459  M01S02281.271l716 +++|          LX3    -12
48460  M01S02282.271l716 +++|          BX3    -X4*X3
48461  M01S02283.271l716 +++|          NZ     X5,TRP8     IF NOT EXECUTING JOB
48462  M01S02284.271l716 +++|          IX3    X3-X7
48463  M01S02285.271l716 +++|          PL     X3,TRP56    IF INVALID CONTROL POINT NUMBER
48464  M01S02286.271l716 +++|          EQ     TRP8        CONTINUE
48465  M01S02287.271l716 +++|
48466  M01S02288.271l716 +++|*         VALIDATE PCPA-S.
48467  M01S02289.271l716 +++|
48468  M01S02290.271l716 +++| TRP9     TB3    SC
48469  M01S02291.271l716 +++|          MX4    -5
48470  M01S02292.271l716 +++|          TB4    -1,NMCT
48471  M01S02293.271l716 +++|          TB6    -200B,PCPA
48472  M01S02294.271l716 +++|          SB5    B4-B3       NUMBER OF PCP-S
48473  M01S02295.271l716 +++|          MX7    12
48474  M01S02296.271l716 +++| TRP10    ZR     B5,TRP11    IF ALL PCP-S CHECKED
48475  M01S02297.271l716 +++|          SX6    B5
48476  M01S02298.271l716 +++|          SB5    B5-B1       DECREMENT PCP ORDINAL
48477  M01S02299.271l716 +++|          LX6    7
48478  M01S02300.271l716 +++|          SX6    B6+X6       PCPA ADDRESS
48479  M01S02301.271l716 +++|          SA1    X6+TFSW
48480  M01S02302.271l716 +++|          BX1    X7*X1       EJT ORDINAL
48481  M01S02303.271l716 +++|          ZR     X1,TRP10    IF VACANT PCP
48482  M01S02304.271l716 +++|          LX1    -48
48483  M01S02305.271l716 +++|          CX2    X1,EJT      CONVERT EJT ORDINAL TO OFFSET
48484  M01S02306.271l716 +++|          TA1    X2+JSNE,EJT
48485  M01S02307.271l716 +++|          LX1    59-0
48486  M01S02308.271l716 +++|          BX2    -X4*X1      JOB STATUS
48487  M01S02309.271l716 +++|          NG     X1,TRP10    IF JOB INTERLOCKED
48488  M01S02310.271l716 +++|          SX2    X2-PCJS
48489  M01S02311.271l716 +++|          NZ     X2,TRP57    IF INCORRECT JOB STATUS
48490  M01S02312.271l716 +++|          SA2    A1+B1
48491  M01S02313.271l716 +++|          ERRNZ  SCHE-JSNE-1 CODE DEPENDS ON VALUE
48492  M01S02314.271l716 +++|          LX2    12
48493  M01S02315.271l716 +++|          BX2    X7*X2
48494  M01S02316.271l716 +++|          LX2    -48
48495  M01S02317.271l716 +++|          SX3    B3
48496  M01S02318.271l716 +++|          IX2    X3-X2
48497  M01S02319.271l716 +++|          PL     X2,TRP57    IF INCORRECT PCP NUMBER
48498  M01S02320.271l716 +++|          EQ     TRP10       CONTINUE
48499  M01S02321.271l716 +++|
48500  M01S02322.271l716 +++|*         CHECK FOR DEAD JOBS.
48501  M01S02323.271l716 +++|
48502  M01S02324.271l716 +++| TRP11    SA2    TRPA
48503  M01S02325.271l716 +++|          SA1    DSSL
48504  M01S02326.271l716 +++|          LX2    59-43
48505  M01S02327.271l716 +++|          PL     X2,TRP14    IF DEAD JOB CHECK NOT SELECTED
48506  M01S02328.271l716 +++|          LX1    59-2
48507  M01S02329.271l716 +++|          NG     X1,TRP14    IF DEADSTART IN PROGRESS
48508  M01S02330.271l716 +++|          SA1    /MONITOR/JAVA
48509  M01S02331.271l716 +++|          SX6    B7
48510  M01S02332.271l716 +++|          SA6    TRPB        SAVE (B7)
48511  M01S02333.271l716 +++|          BX6    X1
48512  M01S02334.271l716 +++|          SA6    TRPC        SAVE *JAVA* INSTRUCTION WORD
48513  M01S02335.271l716 +++|          SA2    TRPD
48514  M01S02336.271l716 +++|          SB3    TRP12       SET *JAV* NON-FAILURE EXIT ADDRESS
48515  M01S02337.271l716 +++|          BX6    X2
48516  M01S02338.271l716 +++|          SA6    A1          SET *JAV* FAILURE EXIT
48517  M01S02339.271l716 +++| TRP12    SB5    B5-B1
48518  M01S02340.271l716 +++|          ZR     B5,TRP13    IF END OF SCAN
48519  M01S02341.271l716 +++|          SX1    B5
48520  M01S02342.271l716 +++|          LX1    7
48521  M01S02343.271l716 +++|          SB7    X1
48522  M01S02344.271l716 +++|          EQ     /MONITOR/JAV  CHECK FOR DEAD JOB
48523  M01S02345.271l716 +++|
48524  M01S02346.271l716 +++| TRP13    SA1    TRPB        RESTORE (B7)
48525  M01S02347.271l716 +++|          SA2    TRPC        RESTORE *JAVA* INSTRUCTION WORD
48526  M01S02348.271l716 +++|          SB7    X1
48527  M01S02349.271l716 +++|          BX6    X2
48528  M01S02350.271l716 +++|          SA6    /MONITOR/JAVA
48529  M01S02351.271l716 +++|
48530  M01S02352.271l716 +++|*         VALIDATE NFL.
48531  M01S02353.271l716 +++|
48532  M01S02354.271l716 +++| TRP14    SA1    TRPA
48533  M01S02355.271l716 +++|          TB3    SC
48534  M01S02356.271l716 +++|          LX1    59-45
48535  M01S02357.271l716 +++|          PL     X1,TRP19    IF NFL VALIDATION NOT SELECTED
48536  M01S02358.271l716 +++|          SB4    B0
48537  M01S02359.271l716 +++|          SX7    QFBN
48538  M01S02360.271l716 +++|          SB6    B0+
48539  M01S02361.271l716 +++| TRP15    SB3    B3-B1
48540  M01S02362.271l716 +++|          ZR     B3,TRP18    IF THROUGH WITH CP-S OR PCP-S
48541  M01S02363.271l716 +++|          MX0    12
48542  M01S02364.271l716 +++|          SX6    B3+B6
48543  M01S02365.271l716 +++|          SA1    CMCL
48544  M01S02366.271l716 +++|          BX1    X0*X1
48545  M01S02367.271l716 +++|          LX1    12
48546  M01S02368.271l716 +++|          BX3    X1-X6
48547  M01S02369.271l716 +++|          ZR     X3,TRP15    IF STORAGE MOVE IN PROGRESS
48548  M01S02370.271l716 +++|          LX6    7
48549  M01S02371.271l716 +++|          SX6    X6+B4       ADD BIAS FOR PCPA
48550  M01S02372.271l716 +++|          SA1    X6+TFSW
48551  M01S02373.271l716 +++|          SA2    X6+FLSW
48552  M01S02374.271l716 +++|          BX1    X0*X1
48553  M01S02375.271l716 +++|          BX4    X0*X2
48554  M01S02376.271l716 +++|          ZR     X1,TRP15    IF CP/PCP NOT ACTIVE
48555  M01S02377.271l716 +++|          ZR     X4,TRP15    IF NO NFL ASSIGNED
48556  M01S02378.271l716 +++|          LX1    12
48557  M01S02379.271l716 +++|          CX6    X1,EJT      CONVERT EJT ORDINAL TO OFFSET
48558  M01S02380.271l716 +++|          TA1    X6+JSNE,EJT
48559  M01S02381.271l716 +++|          LX1    59-6
48560  M01S02382.271l716 +++|          NG     X1,TRP15    IF JOB ADVANCE SET
48561  M01S02383.271l716 +++|          AX2    12          COMPUTE RA
48562  M01S02384.271l716 +++|          SX2    X2
48563  M01S02385.271l716 +++|          LX2    6           RA
48564  M01S02386.271l716 +++|          IX2    X2-X7       FWA OF QUEUED FUNCTION BUFFER
48565  M01S02387.271l716 +++|          SX6    -QFBL
48566  M01S02388.271l716 +++| TRP16    SX6    X6+B1       READ NEXT ENTRY
48567  M01S02389.271l716 +++|          IX4    X2-X6
48568  M01S02390.271l716 +++|          ERX4   X4
48569  M01S02391.271l716 +++|          ZR     X4,TRP17    IF ZERO ENTRY
48570  M01S02392.271l716 +++|          AX4    48          CHECK ENTRY
48571  M01S02393.271l716 +++|          SX4    X4-DTKM
48572  M01S02394.271l716 +++|          NZ     X4,TRP58    IF NOT *DTKM*
48573  M01S02395.271l716 +++| TRP17    NG     X6,TRP16    IF NOT END OF BUFFER
48574  M01S02396.271l716 +++|          EQ     TRP15       CHECK NEXT CP/PCP
48575  M01S02397.271l716 +++|
48576  M01S02398.271l716 +++| TRP18    NZ     B4,TRP19    IF THROUGH CHECKING PCP-S
48577  M01S02399.271l716 +++|          TB4    NMCT
48578  M01S02400.271l716 +++|          TB6    SC
48579  M01S02401.271l716 +++|          SB3    B4-B6       NUMBER OF PCPS+1
48580  M01S02402.271l716 +++|          TB4    -CPAS,PCPA  PCPA BIAS
48581  M01S02403.271l716 +++|          EQ     TRP15       CHECK PCP-S
48582  M01S02404.271l716 +++|
48583  M01S02405.271l716 +++|*         VALIDATE CM FIELD.
48584  M01S02406.271l716 +++|
48585  M01S02407.271l716 +++| TRP19    SA1    TRPA
48586  M01S02408.271l716 +++|          BX2    X1
48587  M01S02409.271l716 +++|          LX2    59-47
48588  M01S02410.271l716 +++|          PL     X2,TRP20    IF CM VALIDATION NOT SELECTED
48589  M01S02411.271l716 +++|          SETFLD
48590  M01S02412.271l716 +++|          RJ     CFD         CHECK FIELD
48591  M01S02413.271l716 +++|          NZ     X3,TRP50    IF ERROR
48592  M01S02414.271l716 +++|
48593  M01S02415.271l716 +++|*         VALIDATE CPA FIELD.
48594  M01S02416.271l716 +++|
48595  M01S02417.271l716 +++| TRP20    SA1    TRPA
48596  M01S02418.271l716 +++|          BX2    X1
48597  M01S02419.271l716 +++|          LX2    59-46
48598  M01S02420.271l716 +++|          PL     X2,/MONITOR/MTRX+1  IF CPA VALIDATION NOT SELECTED
48599  M01S02421.271l716 +++|          SETFLD
48600  M01S02422.271l716 +++|          TX5    SC          SET OFFSET
48601  M01S02423.271l716 +++|          SB3    X3
48602  M01S02424.271l716 +++|          SB4    B3
48603  M01S02425.271l716 +++|          SB6    7
48604  M01S02426.271l716 +++| TRP21    SX5    X5-1
48605  M01S02427.271l716 +++|          ZR     X5,TRP22    IF THROUGH CHECKING CP-S OR PCP-S
48606  M01S02428.271l716 +++|          LX3    X5,B6
48607  M01S02429.271l716 +++|          SX3    X3+B4       ADD WORD ADDRESS AND PCPA BIAS
48608  M01S02430.271l716 +++|          RJ     CFD         CHECK FIELD
48609  M01S02431.271l716 +++|          NZ     X3,TRP50    IF ERROR
48610  M01S02432.271l716 +++|          EQ     TRP21       CHECK NEXT CP/PCP
48611  M01S02433.271l716 +++|
48612  M01S02434.271l716 +++| TRP22    NE     B3,B4,/MONITOR/MTRX+1  IF THROUGH CHECKING PCP-S
48613  M01S02435.271l716 +++|          TB4    -CPAS,PCPA  SET PCPA BIAS
48614  M01S02436.271l716 +++|          TX3    NMCT
48615  M01S02437.271l716 +++|          TX5    SC
48616  M01S02438.271l716 +++|          SB4    B4+B3       ADD WORD ADDRESS TO BIAS
48617  M01S02439.271l716 +++|          IX5    X3-X5       NUMBER OF PCPS+1
48618  M01S02440.271l716 +++|          EQ     TRP21       CHECK PCPA-S
48619  M01S02441.271l716 +++|
48620  M01S02442.271l716 +++|
48621  M01S02443.271l716 +++|*         TRAP CONTROL WORDS.
48622  M01S02444.271l716 +++|
48623  M01S02445.271l716 +++| TRPA     VFD    12/TRCM     DSD OUTPUT REGISTER FROM *TRCM*
48624  M01S02446.271l716 +++|          VFD    1/0         CM FIELD VALIDATION
48625  M01S02447.271l716 +++|          VFD    1/0         CPA FIELD VALIDATION
48626  M01S02448.271l716 +++|          VFD    1/0         NFL VALIDATION
48627  M01S02449.271l716 +++|          VFD    1/0         MCT VALIDATION
48628  M01S02450.271l716 +++|          VFD    1/0         DEAD JOB CHECK
48629  M01S02451.271l716 +++|          VFD    1/0         EJT/PCPA VALIDATION
48630  M01S02452.271l716 +++|          VFD    1/0         TRAP ON NONZERO VALUE FLAG (FIELD VAL.)
48631  M01S02453.271l716 +++|          VFD    17/0        UNUSED
48632  M01S02454.271l716 +++|          VFD    24/0        ADDRESS OF WORD TO TRAP/TRACE
48633  M01S02455.271l716 +++|          VFD    30/0        UNUSED
48634  M01S02456.271l716 +++|          VFD    6/0         LENGTH OF FIELD             (FIELD VAL.)
48635  M01S02457.271l716 +++|          VFD    18/0        UNUSED
48636  M01S02458.271l716 +++|          VFD    6/0         LOW BIT OF FIELD TO CHECK   (FIELD VAL.)
48637  M01S02459.271l716 +++|          CON    0           VALUE TO CHECK              (FIELD VAL.)
48638  M01S02460.271l716 +++|
48639  M01S02461.271l716 +++|*         MISCELLANEOUS CELLS.
48640  M01S02462.271l716 +++|
48641  M01S02463.271l716 +++| TRPB     CON    0           (B7) SAVE AREA
48642  M01S02464.271l716 +++| TRPC     CON    0           *JAV* INSTRUCTION WORD SAVE AREA
48643  M01S02465.271l716 +++| TRPD     EQ     TRP54       *JAV* FAILURE INSTRUCTION
48644  M01S02466.271l716 +++|
48645  M01S02467.271l716 +++|
48646  M01S02468.271l716 +++|*         DISPLAY MESSAGE AND HANG SYSTEM.
48647  M01S02469.271l716 +++|
48648  M01S02470.271l716 +++| TRP50    SB4    MSGB        FIELD ERROR
48649  M01S02471.271l716 +++|          EQ     TRP59       DISPLAY MESSAGE AND HANG
48650  M01S02472.271l716 +++|
48651  M01S02473.271l716 +++| TRP51    SB4    MSGC        RA-S MISORDERED
48652  M01S02474.271l716 +++|          EQ     TRP59       DISPLAY MESSAGE AND HANG
48653  M01S02475.271l716 +++|
48654  M01S02476.271l716 +++| TRP52    SB4    MSGD        MCT LINKAGE ERROR
48655  M01S02477.271l716 +++|          EQ     TRP59       DISPLAY MESSAGE AND HANG
48656  M01S02478.271l716 +++|
48657  M01S02479.271l716 +++| TRP53    SB4    MSGE        ACTIVITY UNDERFLOW
48658  M01S02480.271l716 +++|          EQ     TRP59       DISPLAY MESSAGE AND HANG
48659  M01S02481.271l716 +++|
48660  M01S02482.271l716 +++| TRP54    SB4    MSGF        DEAD JOB FOUND
48661  M01S02483.271l716 +++|          EQ     TRP59       DISPLAY MESSAGE AND HANG
48662  M01S02484.271l716 +++|
48663  M01S02485.271l716 +++| TRP55    SB4    MSGG        MISPOSITIONED HOLE
48664  M01S02486.271l716 +++|          EQ     TRP59       DISPLAY MESSAGE AND HANG
48665  M01S02487.271l716 +++|
48666  M01S02488.271l716 +++| TRP56    SB4    MSGH        EJT ERROR
48667  M01S02489.271l716 +++|          EQ     TRP59       DISPLAY MESSAGE AND HANG
48668  M01S02490.271l716 +++|
48669  M01S02491.271l716 +++| TRP57    SB4    MSGI        PCPA ERROR
48670  M01S02492.271l716 +++|          EQ     TRP59       DISPLAY MESSAGE AND HANG
48671  M01S02493.271l716 +++|
48672  M01S02494.271l716 +++| TRP58    SB4    MSGJ        NFL ERROR
48673  M01S02495.271l716 +++|          EQ     TRP59       DISPLAY MESSAGE AND HANG
48674  M01S02496.271l716 +++|
48675  M01S02497.271l716 +++| TRP59    RJ     /MONITOR/SVR  SAVE ALL REGISTERS
48676  M01S02498.271l716 +++|          RJ     /CPB/RAR    RESTORE ALL REGISTERS
48677  M01S02499.271l716 +++|          SA1    B4
48678  M01S02500.271l716 +++|          SA2    MSGA
48679  M01S02501.271l716 +++|          BX6    X2
48680  M01S02502.271l716 +++|          TB5    MS2W,SCA
48681  M01S02503.271l716 +++|          SA6    B5
48682  M01S02504.271l716 +++|          BX7    X1
48683  M01S02505.271l716 +++|          SA7    B5+B1
48684  M01S02506.271l716 +++|          SA1    B4+B1
48685  M01S02507.271l716 +++|          BX6    X1
48686  M01S02508.271l716 +++|          SA6    A7+B1
48687  M01S02509.271l716 +++|+         EQ     *           HANG
48688  M01S02510.271l716 +++|
48689  M01S02511.271l716 +++|
48690  M01S02512.271l716 +++| MSGA     DATA   10LTRAP HIT -
48691  M01S02513.271l716 +++| MSGB     DATA   C*FIELD ERROR*
48692  M01S02514.271l716 +++| MSGC     DATA   C*RA-S MISORDERED*
48693  M01S02515.271l716 +++| MSGD     DATA   C*MCT LINKAGE ERROR*
48694  M01S02516.271l716 +++| MSGE     DATA   C*ACTIVITY UNDERFLOW*
48695  M01S02517.271l716 +++| MSGF     DATA   C*DEAD JOB*
48696  M01S02518.271l716 +++| MSGG     DATA   C*MISPOSITIONED HOLE*
48697  M01S02519.271l716 +++| MSGH     DATA   C*EJT ERROR*
48698  M01S02520.271l716 +++| MSGI     DATA   C*PCPA ERROR*
48699  M01S02521.271l716 +++| MSGJ     DATA   C*NFL QFBN ERROR*
48700  M01S02522.271l716 +++| CFD      SPACE  4,10
48701  M01S02523.271l716 +++|**        CFD - CHECK FIELD.
48702  M01S02524.271l716 +++|*
48703  M01S02525.271l716 +++|*         ENTRY  (X1) .LT. 0 IF TRAPPING ON ANY NONZERO VALUE.
48704  M01S02526.271l716 +++|*                (X2) = VALUE TO CHECK AGAINST.
48705  M01S02527.271l716 +++|*                     = 0 IF TRAPPING ON ANY NONZERO VALUE.
48706  M01S02528.271l716 +++|*                (X3) = WORD ADDRESS.
48707  M01S02529.271l716 +++|*                (X6) = MASK.
48708  M01S02530.271l716 +++|*                (B5) = LOW BIT POSITION OF FIELD.
48709  M01S02531.271l716 +++|*
48710  M01S02532.271l716 +++|*         EXIT   (X3) = NON-ZERO IF FIELD ERROR.
48711  M01S02533.271l716 +++|*
48712  M01S02534.271l716 +++|*         USES   X - 3.
48713  M01S02535.271l716 +++|*                A - 3.
48714  M01S02536.271l716 +++|
48715  M01S02537.271l716 +++|
48716  M01S02538.271l716 +++| CFD      SUBR               ENTRY/EXIT
48717  M01S02539.271l716 +++|          ERX3   X3          GET WORD
48718  M01S02540.271l716 +++|          AX3    B5
48719  M01S02541.271l716 +++|          BX3    X6*X3       ISOLATE FIELD CONTENTS
48720  M01S02542.271l716 +++|          BX3    X2-X3       COMPARE
48721  M01S02543.271l716 +++|          NG     X1,CFDX     IF TRAPPING ON ANY NONZERO VALUE
48722  M01S02544.271l716 +++|          ZR     X3,CFD1     IF ERROR IN FIELD
48723  M01S02545.271l716 +++|          SX3    -1
48724  M01S02546.271l716 +++| CFD1     SX3    X3+1
48725  M01S02547.271l716 +++|          EQ     CFDX        RETURN
48726  M01S02548.271l716 +++| PMN      SPACE  4,10
48727  M01S02549.271l716 +++|**        PMN - MTR FUNCTIONS.
48728  M01S02550.271l716 +++|*
48729  M01S02551.271l716 +++|*         ENTRY  SEE */MONITOR/PMN* EXIT CONDITIONS.
48730  M01S02552.271l716 +++|*
48731  M01S02553.271l716 +++|*         EXIT   TO (B6) WITH ENTRY CONDITIONS PRESERVED.
48732  M01S02554.271l716 +++|*
48733  M01S02555.271l716 +++|*         USES   X - 1, 3, 4, 6, 7.
48734  M01S02556.271l716 +++|*                A - 1, 3, 4, 6, 7.
48735  M01S02557.271l716 +++|
48736  M01S02558.271l716 +++|
48737  M01S02559.271l716 +++| PMN      SA1    SSTL
48738  M01S02560.271l716 +++|          SX6    X0
48739  M01S02561.271l716 +++|          LX1    59-13
48740  M01S02562.271l716 +++|          NG     X1,/MONITOR/RB6  IF SYSTEM DEBUG MODE DISABLED
48741  M01S02563.271l716 +++|          SA4    PMNA        CHECK IF THIS FUNCTION TO BE TRACED
48742  M01S02564.271l716 +++|          NG     X4,PMN2     IF ALL FUNCTIONS TO BE TRACED
48743  M01S02565.271l716 +++| PMN1     ZR     X4,/MONITOR/RB6  IF TRACE NOT SELECTED FOR THIS ONE
48744  M01S02566.271l716 +++|          MX1    -12
48745  M01S02567.271l716 +++|          BX1    -X1*X4
48746  M01S02568.271l716 +++|          BX1    X1-X6
48747  M01S02569.271l716 +++|          AX4    12
48748  M01S02570.271l716 +++|          NZ     X1,PMN1     IF NOT A MATCH
48749  M01S02571.271l716 +++|
48750  M01S02572.271l716 +++|*         CREATE TRACE BUFFER ENTRY.
48751  M01S02573.271l716 +++|
48752  M01S02574.271l716 +++| PMN2     SX1    X6-ARTF
48753  M01S02575.271l716 +++|          ZR     X1,/MONITOR/RB6  IF *ARTF* FUNCTION
48754  M01S02576.271l716 +++|          SA1    PMNB        GET *IN* POINTER
48755  M01S02577.271l716 +++|          SA4    PDTL        SAVE TIME STAMP ENTRY
48756  M01S02578.271l716 +++|          MX3    -24
48757  M01S02579.271l716 +++|          BX3    -X3*X4
48758  M01S02580.271l716 +++|          SA4    =3L***
48759  M01S02581.271l716 +++|          LX3    18
48760  M01S02582.271l716 +++|          BX6    X4+X3
48761  M01S02583.271l716 +++|          SA4    RTCL
48762  M01S02584.271l716 +++|          MX3    -18
48763  M01S02585.271l716 +++|          BX3    -X3*X4
48764  M01S02586.271l716 +++|          BX6    X6+X3
48765  M01S02587.271l716 +++|          SA6    X1
48766  M01S02588.271l716 +++|          BX7    X0          SAVE REQUEST
48767  M01S02589.271l716 +++|          SA4    PMND        GET LIST OF ABSOLUTE ADDRESSES TO SAVE
48768  M01S02590.271l716 +++|          SA7    A6+B1
48769  M01S02591.271l716 +++|          SX3    X4
48770  M01S02592.271l716 +++|          ERX3   X3
48771  M01S02593.271l716 +++|          BX6    X3
48772  M01S02594.271l716 +++|          SA6    A7+B1       SAVE FIRST WORD
48773  M01S02595.271l716 +++|          AX4    24
48774  M01S02596.271l716 +++|          ERX4   X4
48775  M01S02597.271l716 +++|          BX7    X4
48776  M01S02598.271l716 +++|          SA7    A6+B1       SAVE SECOND WORD
48777  M01S02599.271l716 +++|          TA3    -1,MCT
48778  M01S02600.271l716 +++|          SX1    B0+
48779  M01S02601.271l716 +++| PMN3     SA3    A3+B1       GET NEXT MCT ENTRY
48780  M01S02602.271l716 +++|          BX6    X3
48781  M01S02603.271l716 +++|          SA6    A7+1
48782  M01S02604.271l716 +++|          SA3    A3+1
48783  M01S02605.271l716 +++|          BX7    X3
48784  M01S02606.271l716 +++|          SA7    A6+B1
48785  M01S02607.271l716 +++|          SX7    X1+
48786  M01S02608.271l716 +++|          TX4    1,SC
48787  M01S02609.271l716 +++|          IX6    X1-X4
48788  M01S02610.271l716 +++|          LX7    7
48789  M01S02611.271l716 +++|          NG     X6,PMN4     IF NOT A PCP
48790  M01S02612.271l716 +++|          LX6    7
48791  M01S02613.271l716 +++|          TX7    X6,PCPA
48792  M01S02614.271l716 +++| PMN4     SA4    PMNE        GET ADDRESSES OF CPA WORDS TO STORE
48793  M01S02615.271l716 +++|          LX4    -24
48794  M01S02616.271l716 +++|          SX3    X4          GET SECOND ADDRESS
48795  M01S02617.271l716 +++|          AX4    36          GET FIRST ADDRESS
48796  M01S02618.271l716 +++|          IX4    X4+X7
48797  M01S02619.271l716 +++|          SA4    X4
48798  M01S02620.271l716 +++|          BX6    X4
48799  M01S02621.271l716 +++|          SA6    A7+B1       SAVE FIRST CPA WORD
48800  M01S02622.271l716 +++|          IX4    X3+X7
48801  M01S02623.271l716 +++|          SA4    X4
48802  M01S02624.271l716 +++|          BX6    X4
48803  M01S02625.271l716 +++|          SA6    A6+B1       SAVE SECOND CPA WORD
48804  M01S02626.271l716 +++|          SA4    X7+TFSW
48805  M01S02627.271l716 +++|          BX6    X4
48806  M01S02628.271l716 +++|          AX4    48
48807  M01S02629.271l716 +++|          SA6    A6+B1       STORE *TFSW* IN TRACE BUFFER ENTRY
48808  M01S02630.271l716 +++|          CX7    X4,EJT      CONVERT EJT ORDINAL TO OFFSET
48809  M01S02631.271l716 +++|          TA4    X7+JSNE,EJT
48810  M01S02632.271l716 +++|          BX7    X4
48811  M01S02633.271l716 +++|          SA7    A6+B1       STORE *JSNE* IN TRACE BUFFER ENTRY
48812  M01S02634.271l716 +++|          SX1    X1+B1
48813  M01S02635.271l716 +++|          TX4    NMCT
48814  M01S02636.271l716 +++|          IX4    X1-X4
48815  M01S02637.271l716 +++|          NG     X4,PMN3     IF NOT END OF MCT
48816  M01S02638.271l716 +++|          SX1    PMNC+PMNCL
48817  M01S02639.271l716 +++|          SX6    A7+B1
48818  M01S02640.271l716 +++|          TX4    NMCT
48819  M01S02641.271l716 +++|          LX7    X4,B1       *NMCT* * 2
48820  M01S02642.271l716 +++|          LX4    2           *NMCT* * 4
48821  M01S02643.271l716 +++|          IX4    X4+X7       *NMCT* * 6
48822  M01S02644.271l716 +++|          SX7    B0+
48823  M01S02645.271l716 +++|          IX4    X6+X4
48824  M01S02646.271l716 +++|          SX4    X4+TBUFE
48825  M01S02647.271l716 +++|          IX4    X4-X1
48826  M01S02648.271l716 +++|          NG     X4,PMN5     IF NOT AT TRACE BUFFER LIMIT
48827  M01S02649.271l716 +++|          SX6    PMNC
48828  M01S02650.271l716 +++| PMN5     SA6    A1          UPDATE *IN* POINTER
48829  M01S02651.271l716 +++|          BX7    X7-X7       RESTORE (X7)
48830  M01S02652.271l716 +++|          JP     B6          EXIT TO FUNCTION PROCESSOR
48831  M01S02653.271l716 +++|
48832  M01S02654.271l716 +++|
48833  M01S02655.271l716 +++| PMNA     CON    0           MTR FUNCTION TRACE LIST
48834  M01S02656.271l716 +++|
48835  M01S02657.271l716 +++| PMNB     CON    PMNC        TRACE BUFFER *IN* POINTER
48836  M01S02658.271l716 +++|
48837  M01S02659.271l716 +++| PMNC     BSS    0           TRACE BUFFER
48838  M01S02660.271l716 +++|
48839  M01S02661.271l716 +++| TBUF     DUP    10
48840  M01S02662.271l716 +++|
48841  M01S02663.271l716 +++|          LOC    0
48842  M01S02664.271l716 +++|
48843  M01S02665.271l716 +++|          CON    0           TIME STAMP
48844  M01S02666.271l716 +++|          CON    0           (X0)
48845  M01S02667.271l716 +++|          CON    0           VARIABLE - SEE *PMND*
48846  M01S02668.271l716 +++|          CON    0           VARIABLE - SEE *PMND*
48847  M01S02669.271l716 +++|
48848  M01S02670.271l716 +++| TBUFE    BSS    0
48849  M01S02671.271l716 +++|          LOC    *O
48850  M01S02672.271l716 +++|
48851  M01S02673.271l716 +++| MCT      DUP    NCPS+2+20B  ALLOW MAXIMUM CP-S AND 20B PCP-S
48852  M01S02674.271l716 +++|
48853  M01S02675.271l716 +++|          CON    0,0         MCT
48854  M01S02676.271l716 +++|          CON    0           VARIABLE - SEE *PMNE*
48855  M01S02677.271l716 +++|          CON    0           VARIABLE - SEE *PMNE*
48856  M01S02678.271l716 +++|          CON    0           *TFSW*
48857  M01S02679.271l716 +++|          CON    0           *JSNE*
48858  M01S02680.271l716 +++|
48859  M01S02681.271l716 +++| MCT      ENDD
48860  M01S02682.271l716 +++|          SPACE  4
48861  M01S02683.271l716 +++|          ERRNG  PMNCL-6*NCPS-6*NPPS-4-TBUFE  BUFFER TOO SMALL
48862  M01S02684.271l716 +++|
48863  M01S02685.271l716 +++| TBUF     ENDD
48864  M01S02686.271l716 +++|
48865  M01S02687.271l716 +++| PMNCL    EQU    *-PMNC      TRACE BUFFER TABLE LENGTH
48866  M01S02688.271l716 +++|
48867  M01S02689.271l716 +++| PMND     VFD    12/0,24/SMRL,24/CMCL  ADDRESSES OF ABS WORDS TO SAVE
48868  M01S02690.271l716 +++| PMNE     VFD    12/0,24/STSW,24/FLSW  ADDRESSES OF CPA WORDS TO SAVE
48869  M01S02691.271l716 +++| PPR      SPACE  4,10
48870  M01S02692.271l716 +++|**        PPR - PP FUNCTION REQUESTS.
48871  M01S02693.271l716 +++|*
48872  M01S02694.271l716 +++|*         ENTRY  SEE */MONITOR/PPR* EXIT CONDITIONS.
48873  M01S02695.271l716 +++|*
48874  M01S02696.271l716 +++|*         EXIT   TO (B6) WITH ENTRY CONDITIONS PRESERVED.
48875  M01S02697.271l716 +++|*
48876  M01S02698.271l716 +++|*         USES   X - 0, 2, 4, 6, 7.
48877  M01S02699.271l716 +++|*                A - 2, 4, 6, 7.
48878  M01S02700.271l716 +++|
48879  M01S02701.271l716 +++|
48880  M01S02702.271l716 +++| PPR      SA4    SSTL
48881  M01S02703.271l716 +++|          BX0    X5
48882  M01S02704.271l716 +++|          LX4    59-13
48883  M01S02705.271l716 +++|          NG     X4,PPR4     IF SYSTEM DEBUG MODE DISABLED
48884  M01S02706.271l716 +++|          SA4    PPRA        CHECK IF THIS FUNCTION TO BE TRACED
48885  M01S02707.271l716 +++|          NG     X4,PPR2     IF ALL FUNCTIONS TO BE TRACED
48886  M01S02708.271l716 +++|          AX0    48
48887  M01S02709.271l716 +++| PPR1     ZR     X4,PPR4     IF THIS FUNCTION NOT TO BE TRACED
48888  M01S02710.271l716 +++|          MX6    -12
48889  M01S02711.271l716 +++|          BX6    -X6*X4
48890  M01S02712.271l716 +++|          BX6    X6-X0
48891  M01S02713.271l716 +++|          AX4    12
48892  M01S02714.271l716 +++|          NZ     X6,PPR1     IF NOT A MATCH
48893  M01S02715.271l716 +++| PPR2     SA2    PPRB        GET *IN* POINTER
48894  M01S02716.271l716 +++|          SA4    PDTL        GET TIME STAMP
48895  M01S02717.271l716 +++|          MX7    -24
48896  M01S02718.271l716 +++|          BX7    -X7*X4
48897  M01S02719.271l716 +++|          SA4    =3L***
48898  M01S02720.271l716 +++|          LX7    18
48899  M01S02721.271l716 +++|          BX6    X4+X7
48900  M01S02722.271l716 +++|          SA4    RTCL
48901  M01S02723.271l716 +++|          MX7    -18
48902  M01S02724.271l716 +++|          BX7    -X7*X4
48903  M01S02725.271l716 +++|          BX6    X6+X7
48904  M01S02726.271l716 +++|          SA6    X2
48905  M01S02727.271l716 +++|          SA2    A5-B1       PP INPUT REGISTER
48906  M01S02728.271l716 +++|          BX7    X2
48907  M01S02729.271l716 +++|          SA7    A6+B1
48908  M01S02730.271l716 +++|          BX6    X5          PP OUTPUT REGISTER
48909  M01S02731.271l716 +++|          SA2    A5+B1       MB + 0
48910  M01S02732.271l716 +++|          BX7    X2
48911  M01S02733.271l716 +++|          SA6    A7+B1
48912  M01S02734.271l716 +++|          SA4    A2+B1       MB + 1
48913  M01S02735.271l716 +++|          SA7    A6+B1
48914  M01S02736.271l716 +++|          BX6    X4
48915  M01S02737.271l716 +++|          SA2    A4+B1       MB + 2
48916  M01S02738.271l716 +++|          SA6    A7+B1
48917  M01S02739.271l716 +++|          BX7    X2
48918  M01S02740.271l716 +++|          SA4    A2+B1       MB + 3
48919  M01S02741.271l716 +++|          SA7    A6+B1
48920  M01S02742.271l716 +++|          BX6    X4
48921  M01S02743.271l716 +++|          SA2    A4+B1       MB + 4
48922  M01S02744.271l716 +++|          SA6    A7+B1
48923  M01S02745.271l716 +++|          BX7    X2
48924  M01S02746.271l716 +++|          SA4    A2+B1       MB + 5
48925  M01S02747.271l716 +++|          SA7    A6+B1
48926  M01S02748.271l716 +++|          BX6    X4
48927  M01S02749.271l716 +++|          SA6    A7+B1
48928  M01S02750.271l716 +++|          SA2    PMND        GET LIST OF ABSOLUTE ADDRESSES TO SAVE
48929  M01S02751.271l716 +++|          SX4    X2          GET FIRST ADDRESS
48930  M01S02752.271l716 +++|          AX2    24          GET SECOND ADDRESS
48931  M01S02753.271l716 +++|          ERX4   X4
48932  M01S02754.271l716 +++|          ERX2   X2
48933  M01S02755.271l716 +++|          BX7    X4
48934  M01S02756.271l716 +++|          BX6    X2
48935  M01S02757.271l716 +++|          SA7    A6+B1
48936  M01S02758.271l716 +++|          SA6    A7+B1
48937  M01S02759.271l716 +++|          SX4    PPRC+PPRCL
48938  M01S02760.271l716 +++|          SX6    A6+B1
48939  M01S02761.271l716 +++|          IX4    X6-X4
48940  M01S02762.271l716 +++|          SA2    A5-1
48941  M01S02763.271l716 +++|          NG     X4,PPR3     IF NOT AT TRACE BUFFER LIMIT
48942  M01S02764.271l716 +++|          SX6    PPRC
48943  M01S02765.271l716 +++| PPR3     SA6    PPRB        UPDATE *IN* POINTER
48944  M01S02766.271l716 +++|          BX7    X7-X7       RESET (X7)
48945  M01S02767.271l716 +++|          LX2    -36+7       RESET (X2)
48946  M01S02768.271l716 +++| PPR4     SX4    7600B       RESTORE (X4)
48947  M01S02769.271l716 +++|          JP     B6          EXIT TO FUNCTION PROCESSOR
48948  M01S02770.271l716 +++|
48949  M01S02771.271l716 +++|
48950  M01S02772.271l716 +++| PPRA     CON    0           PPU FUNCTION TRACE LIST
48951  M01S02773.271l716 +++|
48952  M01S02774.271l716 +++| PPRB     CON    PPRC        TRACE BUFFER *IN* POINTER
48953  M01S02775.271l716 +++|
48954  M01S02776.271l716 +++| PPRC     BSS    0           TRACE BUFFER
48955  M01S02777.271l716 +++|
48956  M01S02778.271l716 +++| TBUF     DUP    20D
48957  M01S02779.271l716 +++|
48958  M01S02780.271l716 +++|          CON    0           TIME STAMP
48959  M01S02781.271l716 +++|          CON    0           PP INPUT REGISTER
48960  M01S02782.271l716 +++|          CON    0           PP OUTPUT REGISTER
48961  M01S02783.271l716 +++|          CON    0,0,0,0,0,0  PP MESSAGE BUFFER
48962  M01S02784.271l716 +++|          CON    0           VARIABLE - SEE *PMND*
48963  M01S02785.271l716 +++|          CON    0           VARIABLE - SEE *PMND*
48964  M01S02786.271l716 +++|
48965  M01S02787.271l716 +++| TBUF     ENDD
48966  M01S02788.271l716 +++|
48967  M01S02789.271l716 +++| PPRCL    EQU    *-PPRC      TRACE BUFFER LENGTH
48968  M01S02790.271l716 +++| TRC      SPACE  4,10
48969  M01S02791.271l716 +++|**        TRC - PROCESS TRAP/TRACE REQUEST.
48970  M01S02792.271l716 +++|*
48971  M01S02793.271l716 +++|*         ENTRY  SEE */PPR/TRCM*.
48972  M01S02794.271l716 +++|*
48973  M01S02795.271l716 +++|*         EXIT   TPRA/PPRA/PMNA/PMND/PMNE SET UP.
48974  M01S02796.271l716 +++|*
48975  M01S02797.271l716 +++|*         USES   X - 2, 3, 5, 6.
48976  M01S02798.271l716 +++|*                A - 3, 6.
48977  M01S02799.271l716 +++|
48978  M01S02800.271l716 +++| TRC      BSS    0           ENTRY
48979  M01S02801.271l716 +++|          LX5    0-37
48980  M01S02802.271l716 +++|          SA3    A5+B1       GET MB+0
48981  M01S02803.271l716 +++|          MX2    -4
48982  M01S02804.271l716 +++|          BX2    -X2*X5
48983  M01S02805.271l716 +++|          ZR     X2,TRC1     IF NOT *TRACE,XXX*
48984  M01S02806.271l716 +++|          BX6    X3
48985  M01S02807.271l716 +++|          AX2    1
48986  M01S02808.271l716 +++|          SA3    X2+TRCA     GET LIST POINTER FOR *TRACE* REQUESTS
48987  M01S02809.271l716 +++|          SA6    X3+
48988  M01S02810.271l716 +++|          EQ     TRC2        RETURN
48989  M01S02811.271l716 +++|
48990  M01S02812.271l716 +++| TRC1     BX6    X1
48991  M01S02813.271l716 +++|          SA6    TRPA        SAVE *DSD* OR
48992  M01S02814.271l716 +++|          BX6    X3
48993  M01S02815.271l716 +++|          SA6    A6+B1       SAVE MB+0
48994  M01S02816.271l716 +++|          SA3    A3+B1
48995  M01S02817.271l716 +++|          BX6    X3
48996  M01S02818.271l716 +++|          SA6    A6+B1       SAVE MB+1
48997  M01S02819.271l716 +++| TRC2     JP     /MONITOR/PPR1  EXIT
48998  M01S02820.271l716 +++|
48999  M01S02821.271l716 +++|
49000  M01S02822.271l716 +++| TRCA     CON    PMNE        *TRACE,SET,CPA* ADDRESS LIST
49001  M01S02823.271l716 +++|          CON    PMND        *TRACE,SET,ABS* ADDRESS LIST
49002  M01S02824.271l716 +++|          CON    PPRA        *TRACE,PPU* FUNCTION LIST
49003  M01S02825.271l716 +++|          CON    0           (UNUSED)
49004  M01S02826.271l716 +++|          CON    PMNA        *TRACE,MTR* FUNCTION LIST
49005  M01S02827.271l716 +++|
49006  M01S02828.271l716 +++|          ENDBLK

Seq #  *Modification Id* Act 
----------------------------+
49007  M01S02352.253l688 +++|          BLOCK  CPB,(CPUMTR BREAKPOINT PACKAGE)
49008  M01S02353.253l688 +++| BKP      SPACE  4,10
49009  M01S02354.253l688 +++|**        BKP - *CPUMTR* BREAKPOINT.
49010  M01S02355.253l688 +++|*
49011  M01S02356.253l688 +++|*         THE DSD COMMAND *CPB,BKP,/B/N* IS USED TO SET A BREAKPOINT.
49012  M01S02357.253l688 +++|*         *DSD* SAVES THE WORD AT THE INDICATED ADDRESS IN THE BREAK-
49013  M01S02358.253l688 +++|*         POINT TABLE AND REPLACES IT WITH A *RJ  BKP*.  WHEN THE
49014  M01S02359.253l688 +++|*         SPECIFIED LOCATION IS HIT, THE *RJ* TAKES THE CPU TO THIS
49015  M01S02360.253l688 +++|*         ROUTINE, WHERE ALL REGISTERS ARE STORED IN THE EXCHANGE
49016  M01S02361.253l688 +++|*         PACKAGE DISPLAY AREA.  *CPUMTR* THEN LOOPS, WAITING FOR
49017  M01S02362.253l688 +++|*         /CPB/CPFG TO BECOME ZERO.  THE *DSD* COMMAND *CPB,GO.*
49018  M01S02363.253l688 +++|*         ZEROES THIS WORD, ALLOWING *CPUMTR* TO RESTORE ALL
49019  M01S02364.253l688 +++|*         REGISTERS AND CONTINUE EXECUTION.
49020  M01S02365.253l688 +++|*
49021  M01S02366.253l688 +++|*         THIS ROUTINE IS VALID IN PROGRAM AND MONITOR MODE.
49022  M01S02367.253l688 +++|*
49023  M01S02368.253l688 +++|*         ENTRY  (CALLED ON *CPUMTR* BREAKPOINT).
49024  M01S02369.253l688 +++|*
49025  M01S02370.253l688 +++|*         EXIT   (ALL REGISTERS RESTORED).
49026  M01S02371.253l688 +++|
49027  M01S02372.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
49028  M02S02373.261l700 ---| BKP1     SA1    BKPA

Seq #  *Modification Id* Act 
----------------------------+
49029  M01S00157.261l700 +++| BKP1     SA1    /MONITOR/BXP

Seq #  *Modification Id* Act 
----------------------------+
49030  M01S02374.253l688 +++|          SA2    CHTP        CHECK *DSD* ACTIVE
49031  M01S02375.253l688 +++|          LX6    18+18
49032  M01S02376.253l688 +++|          BX7    X6+X1       INSERT *P* INTO EXCHANGE PACKAGE
49033  M01S02377.253l688 +++|          SX6    B1
49034  M01S02378.253l688 +++|          SA7    A1
49035  M01S02379.253l688 +++|          AX2    12
49036  M01S02380.253l688 +++|          SA3    X2+B1       FETCH DISPLAY CHANNEL STATUS
49037  M01S02381.253l688 +++|          MX2    -6
49038  M01S02382.253l688 +++|          AX3    12
49039  M01S02383.253l688 +++|          BX3    -X2*X3
49040  M01S02384.253l688 +++|          IX3    X3-X6
49041  M01S02385.253l688 +++|          NZ     X3,BKP3     IF CHANNEL NOT RESERVED TO *DSD*

Seq #  *Modification Id* Act 
----------------------------+
49042  M02S02386.261l700 ---|          SA6    BKPA+CPFG

Seq #  *Modification Id* Act 
----------------------------+
49043  M01S00158.261l700 +++|          SA6    /MONITOR/BXP+CPFG

Seq #  *Modification Id* Act 
----------------------------+
49044  M01S02387.253l688 +++| BKP2     SA3    A3          CHECK *DSD* ACTIVE
49045  M01S02388.253l688 +++|          AX3    12

Seq #  *Modification Id* Act 
----------------------------+
49046  M02S02389.261l700 ---|          SA1    BKPA+CPFG   CHECK BREAKPOINT FLAG

Seq #  *Modification Id* Act 
----------------------------+
49047  M01S00159.261l700 +++|          SA1    /MONITOR/BXP+CPFG   CHECK BREAKPOINT FLAG

Seq #  *Modification Id* Act 
----------------------------+
49048  M01S02390.253l688 +++|          BX3    -X2*X3
49049  M01S02391.253l688 +++|          BX1    X3-X1
49050  M01S02392.253l688 +++|          ZR     X1,BKP2     IF FLAG NOT CLEARED AND *DSD* HAS CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
49051  M02S02393.261l700 ---|          SA2    BKPA

Seq #  *Modification Id* Act 
----------------------------+
49052  M01S00160.261l700 +++|          SA2    /MONITOR/BXP

Seq #  *Modification Id* Act 
----------------------------+
49053  M01S02394.253l688 +++|          SA3    BKPB        (NO /  NO /  EQ  ** )
49054  M01S02395.253l688 +++|          SX6    0
49055  M01S02396.253l688 +++|          TA6    MS2W,SCA    CLEAR MESSAGE
49056  M01S02397.253l688 +++|          AX2    36
49057  M01S02398.253l688 +++|          BX6    X2+X3       CONSTRUCT RETURN ADDRESS
49058  M01S02399.253l688 +++|          SA6    BKP
49059  M01S02400.253l688 +++| BKP3     RJ     RAR         RELOAD ALL REGISTERS
49060  M01S02401.253l688 +++|
49061  M01S02402.253l688 +++| BKP      PS                 ENTRY/EXIT
49062  M01S02403.253l688 +++|          RJ     /MONITOR/SVR  SAVE ALL REGISTERS
49063  M01S02404.253l688 +++|          SA1    =C$CPUMTR BREAKPOINT HIT$
49064  M01S02405.253l688 +++|          SA2    A1+B1
49065  M01S02406.253l688 +++|          SA3    A2+B1
49066  M01S02407.253l688 +++|          BX6    X1
49067  M01S02408.253l688 +++|          BX7    X2
49068  M01S02409.253l688 +++|          SA2    BKP         GET RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
49069  M02S02410.261l700 ---|          SA1    BKPA+CPBA   BREAKPOINT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
49070  M01S00161.261l700 +++|          SA1    /MONITOR/BXP+CPBA   BREAKPOINT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
49071  M01S02411.253l688 +++|          TA6    MS2W,SCA
49072  M01S02412.253l688 +++|          BX6    X3
49073  M01S02413.253l688 +++|          SA7    A6+B1
49074  M01S02414.253l688 +++|          SA6    A7+B1
49075  M01S02415.253l688 +++|          AX2    30
49076  M01S02416.253l688 +++|          SX6    X2-1        RETURN ADDRESS - 1
49077  M01S02417.253l688 +++|          BX7    X6-X1       CHECK FOR SAME ADDRESS
49078  M01S02418.253l688 +++|          SX6    X6+B1
49079  M01S02419.253l688 +++|          NZ     X7,BKP1     IF NOT AT BREAKPOINT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
49080  M02S02420.261l700 ---|          SA2    BKPA+CPBW

Seq #  *Modification Id* Act 
----------------------------+
49081  M01S00162.261l700 +++|          SA2    /MONITOR/BXP+CPBW

Seq #  *Modification Id* Act 
----------------------------+
49082  M01S02421.253l688 +++|          SA7    A2          CLEAR BREAKPOINT WORD
49083  M01S02422.253l688 +++|          SA7    A1          ZERO BREAKPOINT ADDRESS
49084  M01S02423.253l688 +++|          SX6    X6-1
49085  M01S02424.253l688 +++|          BX7    X2          RESET BREAKPOINT WORD
49086  M01S02425.253l688 +++|          SA7    X6
49087  M01S02426.253l688 +++|          EQ     BKP1        CHECK *DSD* ACTIVE
49088  M01S02427.253l688 +++|
49089  M01S02428.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
49090  M02S02429.261l700 ---| BKPA     EQU    /MONITOR/EXPA  REGISTERS / BREAKPOINT PARAMETERS
49091  M02S02430.261l700 ---|

Seq #  *Modification Id* Act 
----------------------------+
49092  M01S02431.253l688 +++| BKPB     NO                 PROTOTYPE RETURN INSTRUCTION
49093  M01S02432.253l688 +++|          NO
49094  M01S02433.253l688 +++|          EQ     **          (RETURN ADDRESS INSERTED HERE)
49095  M01S02434.253l688 +++| RAR      SPACE  4,10
49096  M01S02435.253l688 +++|**        RAR - RELOAD ALL REGISTERS.
49097  M01S02436.253l688 +++|*

Seq #  *Modification Id* Act 
----------------------------+
49098  M02S02437.261l700 ---|*         ENTRY  REGISTER DATA AT */MONITOR/EXPA*.

Seq #  *Modification Id* Act 
----------------------------+
49099  M01S00163.261l700 +++|*         ENTRY  REGISTER DATA AT */MONITOR/BXP*.

Seq #  *Modification Id* Act 
----------------------------+
49100  M01S02438.253l688 +++|*
49101  M01S02439.253l688 +++|*         EXIT   ALL REGISTERS RELOADED.
49102  M01S02440.253l688 +++|
49103  M01S02441.253l688 +++|
49104  M01S02442.253l688 +++| RAR      PS                 ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
49105  M02S02443.261l700 ---|          SB7    BKPA

Seq #  *Modification Id* Act 
----------------------------+
49106  M01S00164.261l700 +++|          SB7    /MONITOR/BXP

Seq #  *Modification Id* Act 
----------------------------+
49107  M01S02444.253l688 +++|          SB1    1           SET REGISTER ARRAY FOR *B0* - *B7*, *A0*
49108  M01S02445.253l688 +++|          SB4    3
49109  M01S02446.253l688 +++|          MX0    42
49110  M01S02447.253l688 +++|          SA3    B7          FETCH *A0*
49111  M01S02448.253l688 +++|          AX3    18
49112  M01S02449.253l688 +++|          SA2    B7+7
49113  M01S02450.253l688 +++| RAR1     SA1    B4+RARB     GET RESET INSTRUCTION
49114  M01S02451.253l688 +++|          BX2    -X0*X2
49115  M01S02452.253l688 +++|          BX3    -X0*X3
49116  M01S02453.253l688 +++|          IX6    X2+X1       *B7*/*B5*/*B3*/*B1* TO RESET INSTRUCTION
49117  M01S02454.253l688 +++|          SB2    B2-2
49118  M01S02455.253l688 +++|          LX6    30
49119  M01S02456.253l688 +++|          IX6    X6+X3       *AO*/*B6*/*B4*/*B2* TO RESET INSTRUCTION
49120  M01S02457.253l688 +++|          SA6    B4+RARA     STORE RESET INSTRUCTION
49121  M01S02458.253l688 +++|          SB4    B4-B1
49122  M01S02459.253l688 +++|          SA3    A2-B1       FETCH *B6*/*B4*/*B2*
49123  M01S02460.253l688 +++|          SA2    A3-B1       FETCH *B5*/*B3*/*B1*
49124  M01S02461.253l688 +++|          PL     B4,RAR1     IF MORE TO GO
49125  M01S02462.253l688 +++|          SA1    B7+7        *A7*
49126  M01S02463.253l688 +++|          AX1    18
49127  M01S02464.253l688 +++|          SA2    X1          OLD VALUE AT *A7*
49128  M01S02465.253l688 +++|          BX7    X2
49129  M01S02466.253l688 +++|          SA3    A1-B1       *A6*
49130  M01S02467.253l688 +++|          AX3    18
49131  M01S02468.253l688 +++|          SA4    X3          OLD VALUE AT *A6*
49132  M01S02469.253l688 +++|          LX6    X4
49133  M01S02470.253l688 +++|          SA7    X1+777777B  RESTORE *A7*
49134  M01S02471.253l688 +++|          SA6    X3+777777B  RESTORE *A6*
49135  M01S02472.253l688 +++|          SA1    B7+17B      *X7*
49136  M01S02473.253l688 +++|          SA2    A1-B1
49137  M01S02474.253l688 +++|          BX7    X1          RESTORE *X7*
49138  M01S02475.253l688 +++|          LX6    X2          RESTORE *X6*
49139  M01S02476.253l688 +++|          SA3    A3-B1       *A5*
49140  M01S02477.253l688 +++|          SA1    A2-B1       *X5*
49141  M01S02478.253l688 +++|          AX3    18
49142  M01S02479.253l688 +++|          SA5    X3+777777B  RESTORE *A5*
49143  M01S02480.253l688 +++|          SA3    A3-B1       *A4*
49144  M01S02481.253l688 +++|          SA2    A1-B1       *X4*
49145  M01S02482.253l688 +++|          AX3    18
49146  M01S02483.253l688 +++|          BX5    X1          RESTORE *X5*
49147  M01S02484.253l688 +++|          SA4    X3+777777B  RESTORE *A4*
49148  M01S02485.253l688 +++|          SA3    A3-B1       *A3*
49149  M01S02486.253l688 +++|          SA1    A2-B1       *X3*
49150  M01S02487.253l688 +++|          BX4    X2          RESTORE *X4*
49151  M01S02488.253l688 +++|          SA2    A3-B1       *A2*
49152  M01S02489.253l688 +++|          AX2    18
49153  M01S02490.253l688 +++|          AX3    18
49154  M01S02491.253l688 +++|          SA3    X3+777777B  RESTORE *A3*
49155  M01S02492.253l688 +++|          SA2    X2+777777B  RESTORE *A2*
49156  M01S02493.253l688 +++|          BX3    X1          RESTORE *X3*
49157  M01S02494.253l688 +++|          SA1    A1-B1       *X2*
49158  M01S02495.253l688 +++|          BX2    X1          RESTORE *X2*
49159  M01S02496.253l688 +++|          SA1    A1-B1       *X1*
49160  M01S02497.253l688 +++|          UX0    B1,X1       START UNPACKING *X1*
49161  M01S02498.253l688 +++|          LX0    11
49162  M01S02499.253l688 +++|          UX1    B2,X0       CONTINUE UNPACK
49163  M01S02500.253l688 +++|          LX1    11
49164  M01S02501.253l688 +++|          UX0    B3,X1
49165  M01S02502.253l688 +++|          LX0    11
49166  M01S02503.253l688 +++|          UX1    B4,X0
49167  M01S02504.253l688 +++|          MX0    60
49168  M01S02505.253l688 +++|          SA0    X0+777777B  -0 TO *A0*
49169  M01S02506.253l688 +++|          LX1    11
49170  M01S02507.253l688 +++|          UX0    B5,X1
49171  M01S02508.253l688 +++|          SA1    A1-1        *X0*
49172  M01S02509.253l688 +++|          LX0    11
49173  M01S02510.253l688 +++|          SB7    X0+777777B  SIGN OF *X1* TO *B7*
49174  M01S02511.253l688 +++|          UX0    B6,X0       COMPLETE UNPACK
49175  M01S02512.253l688 +++|          BX0    X1          RESTORE *X0*
49176  M01S02513.253l688 +++|          NO
49177  M01S02514.253l688 +++|          SA1    A1-7        *A1*
49178  M01S02515.253l688 +++|          AX1    18
49179  M01S02516.253l688 +++|          SA1    X1+777777B  RESTORE *A1*
49180  M01S02517.253l688 +++|          SX1    B7-B0       RESTORE SIGN OF *X1*
49181  M01S02518.253l688 +++|          PX1    B6,X1       START REPACKING *X1*
49182  M01S02519.253l688 +++|          AX1    11
49183  M01S02520.253l688 +++|          PX1    B5,X1
49184  M01S02521.253l688 +++|          AX1    11
49185  M01S02522.253l688 +++|          PX1    B4,X1
49186  M01S02523.253l688 +++|          AX1    11
49187  M01S02524.253l688 +++|          PX1    B3,X1
49188  M01S02525.253l688 +++|          AX1    11
49189  M01S02526.253l688 +++|          PX1    B2,X1
49190  M01S02527.253l688 +++|          AX1    11
49191  M01S02528.253l688 +++|          PX1    B1,X1       COMPLETE RESTORATION OF *X1*
49192  M01S02529.253l688 +++| RARA     DATA   0,0,0,0
49193  M01S02530.253l688 +++|          EQ     RAR         RETURN
49194  M01S02531.253l688 +++|
49195  M01S02532.253l688 +++|
49196  M01S02533.253l688 +++| RARB     SB2    A0+0        RESET INSTRUCTIONS
49197  M01S02534.253l688 +++|          SB1    A0+0
49198  M01S02535.253l688 +++|          SB4    A0+0
49199  M01S02536.253l688 +++|          SB3    A0+0
49200  M01S02537.253l688 +++|          SB6    A0+0
49201  M01S02538.253l688 +++|          SB5    A0+0
49202  M01S02539.253l688 +++|          SA0    A0+0
49203  M01S02540.253l688 +++|          SB7    A0+0
49204  M01S02541.253l688 +++|          SPACE  4,10
49205  M01S02542.253l688 +++|          ENDBLK
49206  M00S28918.cpumtr  +++|          BLOCK  SCP,(SYSTEM CONTROL POINT FACILITY.),MONITOR
49207  M00S28919.cpumtr  +++|          TITLE  SCP MAIN ROUTINES.
49208  M00S28920.cpumtr  +++| SSC      SPACE  4,10
49209  M00S28921.cpumtr  +++|
49210  M00S28922.cpumtr  +++|***       *SSC*.
49211  M00S28923.cpumtr  +++|*         A SUBSYSTEM CALL FROM A USER CONTROL POINT (UCP) WHICH
49212  M00S28924.cpumtr  +++|*         USES THE SYSTEM CONTROL POINT FACILITY. THIS UCP CALL IS SENT
49213  M00S28925.cpumtr  +++|*         TO THE APPROPIATE SUBSYSTEM DETERMINED BY THE SUBSYSTEM
49214  M00S28926.cpumtr  +++|*         IDENTIFICATION (SID).  THE SUBSYSTEM IS CHECKED TO SEE IF
49215  M00S28927.cpumtr  +++|*         IT HAS ATTAINED *SYSTEM CONTROL POINT* (SCP) STATUS, THAT IS
49216  M00S28928.cpumtr  +++|*         THE SUBSYSTEM IDENTIFICATION WORD (SSIW) IS INITIALIZED. IF
49217  M00S28929.cpumtr  +++|*         NOT THE *SUBSYSTEM NOT PRESENT* STATUS IS RETURNED. ALSO,
49218  M00S28930.cpumtr  +++|*         THE SUBSYSTEM RECEIVING BUFFER (SSCR) IS EXAMINED TO SEE
49219  M00S28931.cpumtr  +++|*         WHETHER OR NOT THE SUBSYSTEM IS READY TO RECEIVE REQUESTS.
49220  M00S28932.cpumtr  +++|*         IF UNABLE TO THE *SUBSYSTEM BUSY* STATUS IS RETURNED.
49221  M00S28933.cpumtr  +++|*
49222  M00S28934.cpumtr  +++|*T        18/  *SSC*,1/,1/R,4/,18/ SID,18/ ADDR

Figure

49223  M00S28935.cpumtr  +++|*
49224  M00S28936.cpumtr  +++|*         ADDR = ADDRESS OF A PARAMETER BLOCK.
49225  M00S28937.cpumtr  +++|*         R    = 1 IF AUTO-RECALL SELECTED.
49226  M00S28938.cpumtr  +++|*         SID  = SUBSYSTEM IDENTIFICATION.
49227  M00S28939.cpumtr  +++|*                IF ZERO, SCP IS READY TO ACCEPT REQUESTS
49228  M00S28940.cpumtr  +++|*                FROM UCPS.
49229  M00S28941.cpumtr  +++|*                IF NONZERO, *ADDR* IS THE FIRST WORD OF A BLOCK
49230  M00S28942.cpumtr  +++|*                OF DATA TO BE PROCESSED BY THE SCP.
49231  M00S28943.cpumtr  +++|*
49232  M00S28944.cpumtr  +++|*T ADDR   24/  RSUB,12/  RINS,6/WCNT,4/RCDC,2/RT,11/ ES,1/C

Figure ADDR

49233  M00S28945.cpumtr  +++|*T ADDR+1 60/ SUBSYSTEM SPECIFIED PARAMETERS

Figure ADDR+1

49234  M00S28946.cpumtr  +++|*T ADDR+N 60/ LAST WORD OF PARAMETER BLOCK

Figure ADDR+N

49235  M00S28947.cpumtr  +++|*
49236  M00S28948.cpumtr  +++|*         C =    1, WHEN REQUEST HAS BEEN COMPLETED.
49237  M00S28949.cpumtr  +++|*         ES =   ERROR AND STATUS INFORMATION -
49238  M00S28950.cpumtr  +++|*
49239  M00S28951.cpumtr  +++|*                BIT         DESCRIPTION
49240  M00S28952.cpumtr  +++|*
49241  M00S28953.cpumtr  +++|*                1           0 = SUBSYSTEM PRESENT.
49242  M00S28954.cpumtr  +++|*                            1 = SUBSYSTEM NOT RUNNING.
49243  M00S28955.cpumtr  +++|*                2           0 = SUBSYSTEM ACCEPTED REQUEST.
49244  M00S28956.cpumtr  +++|*                            1 = SUBSYSTEM TOO BUSY TO ACCEPT REQUEST.
49245  M00S28957.cpumtr  +++|*                3           0 = SUBSYSTEM IS DEFINED.
49246  M00S28958.cpumtr  +++|*                            1 = SUBSYSTEM IS UNDEFINED.
49247  M00S28959.cpumtr  +++|*                4 - 5       RESERVED FOR CDC.
49248  M00S28960.cpumtr  +++|*                6 - 11      OTHER ERRORS -
49249  M00S28961.cpumtr  +++|*                            00 = NO OTHER ERROR.
49250  M00S28962.cpumtr  +++|*                            01-17 = RESERVED FOR CDC SYSTEM ERRORS.
49251  M00S28963.cpumtr  +++|*                            20-67 = RESERVED FOR CDC SUBSYSTEM ERRORS.
49252  M00S28964.cpumtr  +++|*                            70-77 = RESERVED FOR INSTALLATIONS.
49253  M00S28965.cpumtr  +++|*
49254  M00S28966.cpumtr  +++|*         RT =   STATUS RETURN DIRECTIVE -
49255  M00S28967.cpumtr  +++|*
49256  M00S28968.cpumtr  +++|*                BIT         DESCRIPTION
49257  M00S28969.cpumtr  +++|*
49258  M00S28970.cpumtr  +++|*                12          0 = IF SUBSYSTEM BUSY, HALT PROGRAM UNTIL
49259  M00S28971.cpumtr  +++|*                                REQUEST CAN BE POSTED TO SUBSYSTEM.
49260  M00S28972.cpumtr  +++|*                            1 = IF SUBSYSTEM BUSY, SET BIT 2 IN ES AND
49261  M00S28973.cpumtr  +++|*                                ALLOW PROGRAM TO CONTINUE.
49262  M00S28974.cpumtr  +++|*                13          0 = ABORT PROGRAM ON ALL ERRORS.
49263  M00S28975.cpumtr  +++|*                            1 = ABORT PROGRAM ONLY ON FATAL ERRORS.
49264  M00S28976.cpumtr  +++|*         RCDC = RESERVED FOR CDC.
49265  M00S28977.cpumtr  +++|*         WCNT = WORD COUNT - 1 OF PARAMETER BLOCK.
49266  M00S28978.cpumtr  +++|*         RINS = RESERVED FOR INSTALLATION.
49267  M00S28979.cpumtr  +++|*         RSUB = RESERVED FOR SUBSYSTEM.
49268  M00S28980.cpumtr  +++|
49269  M00S28981.cpumtr  +++|
49270  M00S28982.cpumtr  +++| SSC      SX7    B0+         CLEAR COMMUNICATION BUFFER ADDRESS WORD
49271  M00S28983.cpumtr  +++|          SA7    APQA

Seq #  *Modification Id* Act 
----------------------------+
49272  M01S00019.cpumt61 +++|          SA7    SSFG        CLEAR *STSW* STATUS

Seq #  *Modification Id* Act 
----------------------------+
49273  M01S00001.cpum128 +++|          SA7    SSTA        CLEAR FST ADDRESS FOR *SST* CALLS
49274  M00S28984.cpumtr  +++|          SX6    X4-3RSSF
49275  M00S28985.cpumtr  +++|          SX7    X4-3RSST
49276  M00S28986.cpumtr  +++|          ZR     X6,SSF      IF *SSF*
49277  M00S28987.cpumtr  +++|          SX4    X4-3RSSC
49278  M00S28988.cpumtr  +++|          ZR     X7,SST      IF *SST*
49279  M00S28989.cpumtr  +++|          NZ     X4,APJ      IF NOT *SSC*
49280  M00S28990.cpumtr  +++|
49281  M00S28991.cpumtr  +++|*         CHECK CALL ARGUMENTS.
49282  M00S28992.cpumtr  +++|
49283  M00S28993.cpumtr  +++|          SB5    X5          CHECK ADDR WITHIN RANGE

Seq #  *Modification Id* Act 
----------------------------+
49284  M01S28994.v22l602 ---|          LX5    -18         EXTRACT SUBSYSTEM QUEUE PRIORITY (SQP)

Seq #  *Modification Id* Act 
----------------------------+
49285  M01S00032.v22l602 +++|          LX5    -18         EXTRACT SUBSYSTEM ID
49286  M00S28995.cpumtr  +++|          LE     B5,B1,CPE   IF ADDR .LE. 1
49287  M00S28996.cpumtr  +++|          SB4    B4-B5

Seq #  *Modification Id* Act 
----------------------------+
49288  M01S28997.v22l602 ---|          SX2    X5-MNSI     SUBSYSTEM INDEX
49289  M00S28998.cpumtr  +++|          SX7    -B4
49290  M00S28999.cpumtr  +++|          LE     B4,B1,CPE   IF ADDR+1 .GE. FL

Seq #  *Modification Id* Act 
----------------------------+
49291  M01S29000.v22l602 ---|          LX2    2
49292  M00S29001.cpumtr  +++|          SX6    B5          CHECK COMPLETE BIT
49293  M00S29002.cpumtr  +++|          SA3    B3
49294  M00S29003.cpumtr  +++|          IX4    X3+X6
49295  M00S29004.cpumtr  +++|          ERX3   X4

Seq #  *Modification Id* Act 
----------------------------+
49296  M01S29005.v22l602 ---|          SB3    X2
49297  M00S29006.cpumtr  +++|          BX6    X0*X3       CLEAR ERROR STATUS FIELD

Seq #  *Modification Id* Act 
----------------------------+
49298  M01S29007.ns2738  ---|          SA1    B7+SPCW     CHECK FOR DMP= UCP
49299  M00S29008.cpumtr  +++|          LX3    -1

Seq #  *Modification Id* Act 
----------------------------+
49300  M01S29009.v22l602 ---|          MX2    12
49301  M00S29010.cpumtr  +++|          NG     X3,CPE      IF COMPLETE BIT ALREADY SET
49302  M00S29011.cpumtr  +++|          EWX6   X4

Seq #  *Modification Id* Act 
----------------------------+
49303  M01S29012.v22l602 ---|          BX2    X2*X1

Seq #  *Modification Id* Act 
----------------------------+
49304  M01S00033.v22l602 +++|          SX2    X5          SET SSID
49305  M00S29013.cpumtr  +++|          SA4    B7+SSCW     SUBSYSTEM CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
49306  M01S00001.ns2738  +++|          ZR     X2,SSC11    IF SPECIAL SUBSYSTEM INITIALIZATION CALL

Seq #  *Modification Id* Act 
----------------------------+
49307  M01S29014.v22l602 ---|          MX3    -3
49308  M01S29015.v22l602 ---|          ZR     X2,SSC1     IF NOT DMP= JOB

Seq #  *Modification Id* Act 
----------------------------+
49309  M01S00034.v22l602 +++|          SB4    SSC1        RETURN ADDRESS FOR *CSC*
49310  M01S00035.v22l602 +++|          BX3    X4

Seq #  *Modification Id* Act 
----------------------------+
49311  M02S00036.ns2738  ---|          ZR     X2,SSC11    IF SPECIAL SUBSYSTEM INITIALIZATION CALL
49312  M02S00037.ns2738  ---|          MX6    12
49313  M02S00038.ns2738  ---|          BX6    X6*X1
49314  M02S00039.ns2738  ---|          ZR     X6,CSC      IF NOT DMP= JOB

Seq #  *Modification Id* Act 
----------------------------+
49315  M01S29016.ns2738  ---|          LX1    59-35
49316  M01S29017.ns2738  ---|          MX6    1

Seq #  *Modification Id* Act 
----------------------------+
49317  M02S29018.ns2738  ---|          NG     X1,SSC1     IF NOT FIRST CALL FROM DMP= UCP

Seq #  *Modification Id* Act 
----------------------------+
49318  M02S00040.ns2738  ---|          NG     X1,CSC      IF NOT FIRST CALL FROM DMP= UCP

Seq #  *Modification Id* Act 
----------------------------+
49319  M01S29019.ns2738  ---|          BX6    X6+X1       FLAG DMP= UCP
49320  M01S29020.ns2738  ---|          LX6    35-59
49321  M01S29021.ns2738  ---|          NZ     X4,CPE      IF DMP= CALLER WAS A UCP
49322  M01S29022.ns2738  ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
49323  M01S29023.v22l602 ---| SSC1     SA2    B7+AACW     CHECK VALIDATION OF CP AS UCP
49324  M01S29024.v22l602 ---|          AX4    X4,B3
49325  M01S29025.v22l602 ---|          SX1    X5         SUBSYSTEM IDENTIFICATION
49326  M01S29026.v22l602 ---|          ZR     X1,SSC11    IF SPECIAL SUBSYSTEM INITIALIZATION CALL
49327  M01S29027.v22l602 ---|          BX6    -X3*X4
49328  M01S29028.v22l602 ---|          LX2    59-11
49329  M01S29029.v22l602 ---|          SX6    X6-MAXR     CHECK MAXIMUM NUMBER OF REQUESTS
49330  M01S29030.v22l602 ---|          PX5    X1,B3       SAVE SUBSYSTEM INDEX
49331  M01S29031.v22l602 ---|          BX2    X6*X2

Seq #  *Modification Id* Act 
----------------------------+
49332  M01S00041.v22l602 +++|          EQ     CSC         CHECK SUBSYSTEM CONNECTION
49333  M01S00042.v22l602 +++|
49334  M01S00043.v22l602 +++| SSC1     SX1    X5
49335  M01S00044.v22l602 +++|          PX5    X1,B6       SAVE SHIFT COUNT AND SSID
49336  M01S00045.v22l602 +++|          SA2    B7+AACW     CHECK VALIDATION OF CP AS UCP
49337  M01S00046.v22l602 +++|          SX6    EC01        * TOO MANY SCP CONNECTIONS.*
49338  M01S00047.v22l602 +++|          LX6    6
49339  M01S00048.v22l602 +++|          SX6    X6+B1       SET COMPLETION BIT
49340  M01S00049.v22l602 +++|          ZR     B6,SSC3.1   IF REQUEST TO 6TH SUBSYSTEM (*SSCW* FULL)
49341  M01S00050.v22l602 +++|          LX2    59-11
49342  M01S00051.v22l602 +++|          MX3    -3
49343  M01S00052.v22l602 +++|          LX4    B6          POSITION *SSCW*
49344  M01S00053.v22l602 +++|          BX6    -X3*X4      NUMBER OF REQUESTS
49345  M01S00054.v22l602 +++|          SX6    X6-MAXR
49346  M00S29032.cpumtr  +++|          SB3    SSC4        RETURN ADDRESS
49347  M00S29033.cpumtr  +++|          ZR     X6,SSC10    IF MAXIMUM NUMBER OF REQUESTS
49348  M00S29034.cpumtr  +++|          NG     X2,RSC      IF VALIDATED
49349  M00S29035.cpumtr  +++|          SA2    B7+SEPW     CHECK FOR *SSJ=* ENTRY POINT
49350  M00S29036.cpumtr  +++|          LX2    59-50
49351  M00S29037.cpumtr  +++|          NG     X2,RSC      IF *SSJ=* ENTRY POINT
49352  M00S29038.cpumtr  +++|
49353  M00S29039.cpumtr  +++|*         ABORT UNAUTHORIZED UCP WITH NO EXIT OR REPRIEVE PROCESSING.
49354  M00S29040.cpumtr  +++|*         *1MA* CALLED TO ISSUE *ILLEGAL USER ACCESS* ERROR MESSAGE
49355  M00S29041.cpumtr  +++|*         AND SET *SYET* ERROR FLAG.
49356  M00S29042.cpumtr  +++|
49357  M00S29043.cpumtr  +++| SSC2     MX0    1           FORCE UCP INTO RECALL
49358  M00S29044.cpumtr  +++|          SA2    RA1         RA+1 ADDRESS
49359  M00S29045.cpumtr  +++|          ERX5   X2
49360  M00S29046.cpumtr  +++|          LX0    40-59
49361  M00S29047.cpumtr  +++|          BX6    X5+X0
49362  M00S29048.cpumtr  +++|          EWX6   X2
49363  M00S29049.cpumtr  +++|          LX0    18-59-40+59 SET *1MA* MESSAGE INDEX
49364  M00S29050.cpumtr  +++|          SX2    B1+B1       SET *1MA* FUNCTION CODE
49365  M00S29051.cpumtr  +++|          SX5    B7          SET UCP CP ADDRESS
49366  M00S29052.cpumtr  +++|          EQ     SSC15       CALL *1MA* TO ISSUE MESSAGE AND SET ERROR
49367  M00S29053.cpumtr  +++|
49368  M00S29054.cpumtr  +++|*         PROCESS SUBSYSTEM NOT PRESENT.
49369  M00S29055.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
49370  M01S29056.v22l602 ---| SSC3     SA1    RA          RA OF USER

Seq #  *Modification Id* Act 
----------------------------+
49371  M01S00055.v22l602 +++| SSC3     SX6    ES1+1       * SUBSYSTEM NOT PRESENT.*
49372  M01S00056.v22l602 +++| SSC3.1   SA1    RA          RA OF USER
49373  M00S29057.cpumtr  +++|          SX3    B5          PARAMETER ADDRESS
49374  M00S29058.cpumtr  +++|          IX3    X3+X1       ABSOLUTE ADDRESS
49375  M00S29059.cpumtr  +++|          ERX1   X3          SET ERROR STATUS AND COMPLETION BIT

Seq #  *Modification Id* Act 
----------------------------+
49376  M01S29060.v22l602 ---|          SX7    ES1+1       * SUBSYSTEM NOT PRESENT.*
49377  M01S29061.v22l602 ---|          BX6    X7+X1       MERGE ERROR STATUS

Seq #  *Modification Id* Act 
----------------------------+
49378  M01S00057.v22l602 +++|          BX6    X6+X1       MERGE ERROR STATUS
49379  M00S29062.cpumtr  +++|          LX1    59-13       CHECK ABORT DESIRED
49380  M00S29063.cpumtr  +++|          BX7    X7-X7
49381  M00S29064.cpumtr  +++|          EWX6   X3
49382  M00S29065.cpumtr  +++|          PL     X1,CPE      IF ABORT
49383  M00S29066.cpumtr  +++|          EQ     MTRP        EXIT TO STORE OUTPUT REGISTER
49384  M00S29067.cpumtr  +++|
49385  M00S29068.cpumtr  +++|*         RETURN FROM *RSC* WITH -
49386  M00S29069.cpumtr  +++|*
49387  M00S29070.cpumtr  +++|*         (A2) = SUBSYSTEM *STSW* WORD IN CP AREA.
49388  M00S29071.cpumtr  +++|*         (B5) = RELATIVE ADDRESS OF USER PARAMETER AREA.
49389  M00S29072.cpumtr  +++|*         (X0) = -7777B.
49390  M00S29073.cpumtr  +++|*         (X3) = SUBSYSTEM RA.

Seq #  *Modification Id* Act 
----------------------------+
49391  M01S29074.v22l602 ---|*         (X5) = (SUBSYSTEM INDEX)*4 AND SUBSYSTEM IDENTIFICATION.

Seq #  *Modification Id* Act 
----------------------------+
49392  M01S00058.v22l602 +++|*         (X5) = SHIFT COUNT AND SUBSYSTEM IDENTIFICATION.
49393  M00S29075.cpumtr  +++|*         (X6) = SUBSYSTEM FL.
49394  M00S29076.cpumtr  +++|*         (X7) = -(NUMBER OF WORDS ALLOWED FOR PARAMETER AREA.)
49395  M00S29077.cpumtr  +++|*
49396  M00S29078.cpumtr  +++|*         *RSC* ERROR EXIT ADDRESSES -
49397  M00S29079.cpumtr  +++|
49398  M00S29080.cpumtr  +++|+         VFD    12/SSC3-SSC4,18/SSC12,12/SSC10-SSC4,18/SSC10
49399  M00S29081.cpumtr  +++|
49400  M00S29082.cpumtr  +++| SSC4     SX4    SSIW        CHECK SUBSYSTEM IDENTIFICATION WORD
49401  M00S29083.cpumtr  +++|          IX4    X4+X3
49402  M00S29084.cpumtr  +++|          ERX4   X4
49403  M00S29085.cpumtr  +++|          BX4    X4-X5
49404  M00S29086.cpumtr  +++|          SX1    X4
49405  M00S29087.cpumtr  +++|          NZ     X1,SSC3     IF SUBSYSTEM NOT INITIALIZED AS SCP

Seq #  *Modification Id* Act 
----------------------------+
49406  M01S29088.cpum216 ---|          SA4    A2-STSW+SSOW  GET OUTSTANDING CONNECTION COUNT

Seq #  *Modification Id* Act 
----------------------------+
49407  M01S00001.cpum216 +++|          SA4    A2-STSW+EECW  GET REPRIEVE STATUS
49408  M01S00002.cpum216 +++|          LX4    59-58
49409  M01S00003.cpum216 +++|          LX1    X4,B1
49410  M01S00004.cpum216 +++|          PL     X4,SSC4.1   IF NOT EXTENDED REPRIEVE MODE
49411  M01S00005.cpum216 +++|          NG     X1,SSC10    IF INTERRUPT HANDLER ACTIVE
49412  M01S00006.cpum216 +++| SSC4.1   SA4    A2-STSW+SSOW  GET OUTSTANDING CONNECTION COUNT
49413  M00S29089.cpumtr  +++|          SX1    SSCR
49414  M00S29090.cpumtr  +++|          IX1    X1+X3
49415  M00S29091.cpumtr  +++|          ERX1   X1          READ SUBSYSTEM RECEIVING BUFFER POINTER
49416  M00S29092.cpumtr  +++|          BX2    X0+X4
49417  M00S29093.cpumtr  +++|          SB6    X6          (B6) = SUBSYSTEM FL
49418  M00S29094.cpumtr  +++|          SA4    B7+SEPW     CHECK FOR SSJ= ENTRY POINT
49419  M00S29095.cpumtr  +++|          LX6    X1,B1
49420  M00S29096.cpumtr  +++|          LX4    59-50
49421  M00S29097.cpumtr  +++|          PL     X6,SSC5     IF NO RESTRICTION ON UCP ACCESS
49422  M00S29098.cpumtr  +++|
49423  M00S29099.cpumtr  +++|*         ALLOW PRIVILEGED PROGRAM UCP ONLY (SSJ= ENTRY POINT OR
49424  M00S29100.cpumtr  +++|*         SUBSYSTEM).
49425  M00S29101.cpumtr  +++|
49426  M00S29102.cpumtr  +++|          NG     X4,SSC5     IF SSJ= ENTRY POINT
49427  M00S29103.cpumtr  +++|          SA4    B7+JCIW     CHECK FOR SUBSYSTEM
49428  M00S29104.cpumtr  +++|          LX4    36
49429  M00S29105.cpumtr  +++|          BX4    -X0*X4
49430  M00S29106.cpumtr  +++|          ZR     X4,SSC2     IF NOT AUTHORIZED UCP
49431  M00S29107.cpumtr  +++| SSC5     SB3    X1          RECEIVING BUFFER ADDRESS
49432  M00S29108.cpumtr  +++|          ZR     X2,SSC10    IF MAXIMUM NUMBER OF REQUESTS OUTSTANDING
49433  M00S29109.cpumtr  +++|          AX1    18
49434  M00S29110.cpumtr  +++|          NG     X1,SSC10    IF SUBSYSTEM NOT READY FOR DATA
49435  M00S29111.cpumtr  +++|          BX2    -X0*X1      LENGTH OF PARAMETER AREA (LP)
49436  M00S29112.cpumtr  +++|          ZR     B3,SSC10    IF NO SUBSYSTEM RECEIVING BUFFER POINTER
49437  M00S29113.cpumtr  +++|          LE     B3,B1,SSC13 IF AP OUT OF RANGE
49438  M00S29114.cpumtr  +++|          SB4    X1-HDRL     (B4) = LP - HDRL
49439  M00S29115.cpumtr  +++|          AX1    18          EXTRACT XP
49440  M00S29116.cpumtr  +++|          SA4    RA
49441  M00S29117.cpumtr  +++|          SX6    B5
49442  M00S29118.cpumtr  +++|          IX4    X6+X4
49443  M00S29119.cpumtr  +++|          ERX4   X4          READ VARIABLE LENGTH WORD COUNT
49444  M00S29120.cpumtr  +++|          MX6    -6
49445  M00S29121.cpumtr  +++|          SB3    B3+HDRL     DATA ADDRESS
49446  M00S29122.cpumtr  +++|          PL     B4,SSC6     IF NOT VARIABLE LENGTH WORD COUNT
49447  M00S29123.cpumtr  +++|          LX4    -18
49448  M00S29124.cpumtr  +++|          BX4    -X6*X4      VARIABLE LENGTH OF BUFFER (WC)
49449  M00S29125.cpumtr  +++|          SX6    X4+HDRL
49450  M00S29126.cpumtr  +++|          IX6    X6-X2
49451  M00S29127.cpumtr  +++|          PL     X6,CPE      IF WC .GT. LP
49452  M00S29128.cpumtr  +++|          SB4    X4+B1       (B4) = VARIABLE LENGTH WORD COUNT
49453  M00S29129.cpumtr  +++| SSC6     SX4    B4-MAXB-1
49454  M00S29130.cpumtr  +++|          SX6    B4+X7
49455  M00S29131.cpumtr  +++|          SX7    B3-B6
49456  M00S29132.cpumtr  +++|          PL     X6,CPE      IF PARAMETER BLOCK BEYOND UCP FL
49457  M00S29133.cpumtr  +++|          SX2    X7+B4
49458  M00S29134.cpumtr  +++|          BX4    X4*X2
49459  M00S29135.cpumtr  +++|          SX1    X1+

Seq #  *Modification Id* Act 
----------------------------+
49460  M01S29136.271l750 ---|          MX7    24
49461  M01S29137.271l750 ---|          SX2    B5          FWA OF PARAMETER BLOCK

Seq #  *Modification Id* Act 
----------------------------+
49462  M01S02200.271l750 +++|          SX2    B5+         FWA OF PARAMETER BLOCK
49463  M00S29138.cpumtr  +++|          PL     X4,SSC13    IF LP .GE. FL(SS) OR LP .GT. MAXIMUM
49464  M00S29139.cpumtr  +++|          ZR     X1,SSC8     IF NO XP TO MOVE
49465  M00S29140.cpumtr  +++|
49466  M00S29141.cpumtr  +++|*         MOVE EXCHANGE PACKAGE.
49467  M00S29142.cpumtr  +++|
49468  M00S29143.cpumtr  +++|          PX2    X2,B4       SAVE (B4)
49469  M00S29144.cpumtr  +++|          IX0    X1+X3       ABSOLUTE ADDRESS OF XP MOVE
49470  M00S29145.cpumtr  +++|          SB4    20B         NUMBER OF WORDS TO TRANSFER
49471  M00S29146.cpumtr  +++|          SB5    X1+B4       LWA+1 OF XP MOVE
49472  M00S29147.cpumtr  +++|          SX6    B2          ADDRESS OF EXCHANGE PACKAGE
49473  M00S29148.cpumtr  +++|          GE     B5,B6,SSC13 IF XP MOVE BEYOND FL
49474  M00S29149.cpumtr  +++|          SB6    SSC7        *MSM* *MSR* RETURN ADDRESS
49475  M00S29150.cpumtr  +++|          IX1    X6-X0       COMPUTE INCREMENT
49476  M00S29151.cpumtr  +++|          SX0    B2          FWA TO TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
49477  M01S29152.253l688 ---|          TJMP   /CME/MSR,CME,/MONITOR/MSM,CMUMTR,/MONITOR/MSR

Seq #  *Modification Id* Act 
----------------------------+
49478  M01S02543.253l688 +++|          TJP    (/CME/MSR,CME,/MONITOR/MSM,CMUMTR,/MONITOR/MSR)
49479  M00S29153.cpumtr  +++|
49480  M00S29154.cpumtr  +++| SSC7     UX2,B4 X2          (B4) = LENGTH OF PARAMETER BLOCK

Seq #  *Modification Id* Act 
----------------------------+
49481  M01S02201.271l750 +++|          SB5    X2+         (B5) = FIRST WORD OF PARAMETER BLOCK
49482  M01S02202.271l750 +++|
49483  M01S02203.271l750 +++|*         MOVE PARAMETER BLOCK.
49484  M01S02204.271l750 +++|
49485  M01S02205.271l750 +++| SSC8     SA1    RA          USER RA
49486  M01S02206.271l750 +++|          SX6    B5
49487  M01S02207.271l750 +++|          IX0    X6+X1       FWA OF TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
49488  M02S02208.cpum234 ---|          SX1    B3

Seq #  *Modification Id* Act 
----------------------------+
49489  M01S00001.cpum234 +++|          SX1    B3+

Seq #  *Modification Id* Act 
----------------------------+
49490  M01S02209.271l750 +++|          IX1    X3+X1       FWA OF DATA BUFFER
49491  M01S02210.271l750 +++|          IX1    X0-X1
49492  M01S02211.271l750 +++|          SB6    SSC9        *MSM* *MSR* RETURN ADDRESS
49493  M01S02212.271l750 +++|          TJP    (/CME/MSR,CME,/MONITOR/MSM,CMUMTR,/MONITOR/MSR)
49494  M01S02213.271l750 +++|

Seq #  *Modification Id* Act 
----------------------------+
49495  M02S02214.cpum234 ---|*         SET CPU INTERLOCK BIT.
49496  M02S02215.cpum234 ---|
49497  M02S02216.cpum234 ---| SSC9     SX1    SSCR
49498  M02S02217.cpum234 ---|          IX7    X1+X3
49499  M02S02218.cpum234 ---|          ERX1   X7
49500  M02S02219.cpum234 ---|          MX0    1
49501  M02S02220.cpum234 ---|          BX6    X0+X1
49502  M02S02221.cpum234 ---|          EWX6   X7
49503  M02S02222.cpum234 ---|

Seq #  *Modification Id* Act 
----------------------------+
49504  M01S02223.271l750 +++|*         STORE HEADER INFORMATION.
49505  M01S02224.271l750 +++|

Seq #  *Modification Id* Act 
----------------------------+
49506  M01S29155.cpum234 ---|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
49507  M02S29156.cpum234 ---|          SB5    X2          (B5) = FIRST WORD OF PARAMETER BLOCK
49508  M02S29157.cpum234 ---|          MX7    24
49509  M02S29158.cpum234 ---|
49510  M02S29159.cpum234 ---|*         STORE HEADER INFORMATION.
49511  M02S29160.cpum234 ---|
49512  M02S29161.cpum234 ---| SSC8     SA1    B7+TFSW     GET EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
49513  M02S02225.cpum234 ---|          SA1    B7+TFSW     GET EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
49514  M01S00002.cpum234 +++| SSC9     SA1    B7+TFSW     GET EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
49515  M01S00002.ns2738  +++|          SA4    B7+SEPW

Seq #  *Modification Id* Act 
----------------------------+
49516  M01S00003.cpum234 +++|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
49517  M01S00003.ns2738  +++|          SX6    10000B
49518  M00S29162.cpumtr  +++|          LX1    12

Seq #  *Modification Id* Act 
----------------------------+
49519  M01S00004.ns2738  +++|          LX4    12-52
49520  M00S29163.cpumtr  +++|          BX1    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
49521  M01S00005.ns2738  +++|          BX6    X6*X4

Seq #  *Modification Id* Act 
----------------------------+
49522  M01S29164.261l700 ---|          SX4    EJTE
49523  M01S29165.261l700 ---|          IX4    X1*X4

Seq #  *Modification Id* Act 
----------------------------+
49524  M01S00165.261l700 +++|          CX4    X1,EJT      CONVERT EJT ORDINAL TO OFFSET

Seq #  *Modification Id* Act 
----------------------------+
49525  M01S00006.ns2738  +++|          BX1    X6+X1       MERGE *DMP=* FLAG AND EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
49526  M01S00166.261l700 +++|          TA4    X4+JSNE,EJT GET JOB SEQUENCE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
49527  M01S29166.cpum234 ---|          SX6    B1

Seq #  *Modification Id* Act 
----------------------------+
49528  M02S29167.cpum234 ---|          TA4    X4+JSNE,EJT GET JOB SEQUENCE NUMBER

Seq #  *Modification Id* Act 
----------------------------+
49529  M01S29168.cpum234 ---|          LX6    11-0

Proceed to Part 38