Deck CPUMTR Part 022

308 Modifications

Seq #  *Modification Id* Act 
----------------------------+
28134  M00S16275.cpumtr  +++|          ZR     B7,IOC0     IF ENTER BUFFER REQUEST
28135  M00S16276.cpumtr  +++|          SB7    B7-2

Seq #  *Modification Id* Act 
----------------------------+
28136  M01S16277.251l670 ---|          ZR     B7,IOC7     IF SET RECALL CONTROL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
28137  M01S00105.251l670 +++|          ZR     B7,IOC9     IF TO SET RECALL CONTROL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
28138  M01S16278.252l678 ---|          TEQ    (/IH819/RIO,/BUFIO/IOCX,IH819)  RESTART 819 I/O

Seq #  *Modification Id* Act 
----------------------------+
28139  M01S00746.252l678 +++|          TEQ    (/IH819/RIO,IH819,/BUFIO/IOCX)  RESTART 819 I/O
28140  M00S16279.cpumtr  +++|
28141  M00S16280.cpumtr  +++|*         ENTER REQUEST IN UNIT I/O QUEUE.
28142  M00S16281.cpumtr  +++|
28143  M00S16282.cpumtr  +++| IOC0     MX7    -12
28144  M00S16283.cpumtr  +++|          SB3    B0          CLEAR FORWARD LINK
28145  M00S16284.cpumtr  +++|          BX1    -X7*X2      FIRST
28146  M00S16285.cpumtr  +++|          SB7    B1          SET INITIAL PASS
28147  M00S16286.cpumtr  +++|          NZ     X1,IOC1     IF NOT EMPTY QUEUE
28148  M00S16287.cpumtr  +++|          SX6    B6          CONTROL BUFFER ORDINAL
28149  M00S16288.cpumtr  +++|          BX2    X6+X2
28150  M00S16289.cpumtr  +++|          LX6    12
28151  M00S16290.cpumtr  +++|          BX2    X6+X2
28152  M00S16291.cpumtr  +++|          SB4    B0          CLEAR BACKWARD LINK
28153  M00S16292.cpumtr  +++|          SX4    B6          SET INITIAL ORDINAL
28154  M00S16293.cpumtr  +++|          EQ     IOC4        ENTER REQUEST IN QUEUE
28155  M00S16294.cpumtr  +++|
28156  M00S16295.cpumtr  +++| IOC1     SB5    X1          PREVIOUS ORDINAL
28157  M00S16296.cpumtr  +++|          LX1    CBTLS
28158  M00S16297.cpumtr  +++|          TA4    X1+PAD1,CBT OLD DISK ADDRESS
28159  M00S16298.cpumtr  +++|          MX1    24
28160  M00S16299.cpumtr  +++|          LX1    -12
28161  M00S16300.cpumtr  +++|          BX7    X1*X4
28162  M00S16301.cpumtr  +++|          BX6    X1*X3
28163  M00S16302.cpumtr  +++|          IX6    X7-X6
28164  M00S16303.cpumtr  +++|          NO
28165  M00S16304.cpumtr  +++|          PL     X6,IOC2     IF SLOT FOUND
28166  M00S16305.cpumtr  +++|          SA1    A4+IOLK-PAD1
28167  M00S16306.cpumtr  +++|          SX5    A4          PREVIOUS CONTROL BUFFER ADDRESS
28168  M00S16307.cpumtr  +++|          SB4    B5          PREVIOUS CONTROL BUFFER ORDINAL
28169  M00S16308.cpumtr  +++|          MX7    -12
28170  M00S16309.cpumtr  +++|          LX1    -24
28171  M00S16310.cpumtr  +++|          SB7    B0          CLEAR INITIAL PASS FLAG
28172  M00S16311.cpumtr  +++|          BX1    -X7*X1
28173  M00S16312.cpumtr  +++|          NZ     X1,IOC1     IF NOT END OF QUEUE
28174  M00S16313.cpumtr  +++|          LX7    36
28175  M00S16314.cpumtr  +++|          BX4    -X7*X4      EXTRACT CYLINDER NUMBERS
28176  M00S16315.cpumtr  +++|          BX7    -X7*X3
28177  M00S16316.cpumtr  +++|          IX7    X7-X4
28178  M00S16317.cpumtr  +++|          SX7    X7-CCTH
28179  M00S16318.cpumtr  +++|          NG     X7,IOC3     IF NOT BEYOND THRESHOLD
28180  M00S16319.cpumtr  +++|          SX7    B1          SET REQUEST(S) WAITING FLAG
28181  M00S16320.cpumtr  +++|          LX7    58
28182  M00S16321.cpumtr  +++|          BX2    X7+X2
28183  M00S16322.cpumtr  +++|          EQ     IOC3        ENTER REQUEST AT END OF QUEUE
28184  M00S16323.cpumtr  +++|
28185  M00S16324.cpumtr  +++| IOC2     ZR     B7,IOC3     IF NOT START OF QUEUE
28186  M00S16325.cpumtr  +++|          SX7    B1+
28187  M00S16326.cpumtr  +++|          SB3    B5          FORWARD LINK
28188  M00S16327.cpumtr  +++|          LX7    58
28189  M00S16328.cpumtr  +++|          MX6    48
28190  M00S16329.cpumtr  +++|          BX2    X7+X2       SET REQUEST(S) WAITING FLAG
28191  M00S16330.cpumtr  +++|          SB4    B0          BACKWARD LINK
28192  M00S16331.cpumtr  +++|          SX4    B6          INSERT NEW START OF QUEUE
28193  M00S16332.cpumtr  +++|          BX6    X6*X2
28194  M00S16333.cpumtr  +++|          BX2    X4+X6
28195  M00S16334.cpumtr  +++|          EQ     IOC4        ENTER BUFFER IN QUEUE
28196  M00S16335.cpumtr  +++|
28197  M00S16336.cpumtr  +++|*         ENTER NEW CONTROL BUFFER IN UNIT I/O QUEUE.
28198  M00S16337.cpumtr  +++|
28199  M00S16338.cpumtr  +++| IOC3     SA3    X5+IOLK     LINK TO PREVIOUS ENTRY
28200  M00S16339.cpumtr  +++|          MX7    -12
28201  M00S16340.cpumtr  +++|          LX3    -24
28202  M00S16341.cpumtr  +++|          BX5    -X7*X3
28203  M00S16342.cpumtr  +++|          BX7    X7*X3
28204  M00S16343.cpumtr  +++|          SB3    X5          FORWARD LINK
28205  M00S16344.cpumtr  +++|          SX4    B6          NEW ENTRY ORDINAL
28206  M00S16345.cpumtr  +++|          BX7    X4+X7
28207  M00S16346.cpumtr  +++|          LX7    24
28208  M00S16347.cpumtr  +++|          SA7    A3+
28209  M00S16348.cpumtr  +++| IOC4     LX4    CBTLS       NEW ENTRY LINK WORD
28210  M00S16349.cpumtr  +++|          TA3    X4+IOLK,CBT
28211  M00S16350.cpumtr  +++|          MX7    36
28212  M00S16351.cpumtr  +++|          LX3    -24
28213  M00S16352.cpumtr  +++|          BX7    X7*X3       CLEAR LINK FIELDS
28214  M00S16353.cpumtr  +++|          SX6    B4          LINK IN NEW ENTRY
28215  M00S16354.cpumtr  +++|          LX6    12
28216  M00S16355.cpumtr  +++|          BX7    X7+X6
28217  M00S16356.cpumtr  +++|          SX3    B3
28218  M00S16357.cpumtr  +++|          BX6    X3+X7
28219  M00S16358.cpumtr  +++|          MX7    1           SET I/O INTERLOCK
28220  M00S16359.cpumtr  +++|          LX6    24
28221  M00S16360.cpumtr  +++|          BX6    X7+X6
28222  M00S16361.cpumtr  +++|          LX7    24+1
28223  M00S16362.cpumtr  +++|          SA6    A3
28224  M00S16363.cpumtr  +++|          IX2    X2+X7       INCREMENT QUEUE SIZE

Seq #  *Modification Id* Act 
----------------------------+
28225  M01S16364.251l670 ---|          ZR     B3,IOC5     IF END OF QUEUE

Seq #  *Modification Id* Act 
----------------------------+
28226  M01S00106.251l670 +++|          ZR     B3,IOC6     IF END OF QUEUE
28227  M00S16365.cpumtr  +++|          LX3    CBTLS       PROCESS LINK TO NEXT ENTRY
28228  M00S16366.cpumtr  +++|          TA3    X3+IOLK,CBT
28229  M00S16367.cpumtr  +++|          MX7    48
28230  M00S16368.cpumtr  +++|          LX3    -36
28231  M00S16369.cpumtr  +++|          BX7    X7*X3       CLEAR BACKWARD LINK
28232  M00S16370.cpumtr  +++|          SX4    B6          NEW ENTRY ORDINAL
28233  M00S16371.cpumtr  +++|          BX7    X7+X4
28234  M00S16372.cpumtr  +++|          LX7    36
28235  M00S16373.cpumtr  +++|          SA7    A3+

Seq #  *Modification Id* Act 
----------------------------+
28236  M01S16374.251l670 ---| IOC5     BX6    X2          RESET *PUT* ENTRY
28237  M01S16375.251l670 ---|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
28238  M01S00107.251l670 +++| IOC6     LX2    -12         CHECK CURRENT *CB* ORDINAL
28239  M01S00108.251l670 +++|          MX0    -12
28240  M01S00109.251l670 +++|          SX4    B6          ORDINAL OF NEW BUFFER
28241  M01S00110.251l670 +++|          BX7    -X0*X2
28242  M01S00111.251l670 +++|          MX5    -54
28243  M01S00112.251l670 +++|          NZ     X7,IOC7     IF CURRENT *CB* PRESENT
28244  M01S00113.251l670 +++|          BX2    X2+X4
28245  M01S00114.251l670 +++| IOC7     LX2    12
28246  M01S00115.251l670 +++|          BX6    X2          UPDATE *PUT* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
28247  M01S16376.ns2782  ---|          LX2    -36

Seq #  *Modification Id* Act 
----------------------------+
28248  M01S00027.ns2782  +++|          LX4    CBTLS
28249  M01S00028.ns2782  +++|          SA6    A2
28250  M01S00029.ns2782  +++|
28251  M01S00030.ns2782  +++|*         INCREMENT DEVICE ACTIVITY COUNT.
28252  M01S00031.ns2782  +++|
28253  M01S00032.ns2782  +++|          TA4    X4+FSTC,CBT

Seq #  *Modification Id* Act 
----------------------------+
28254  M01S16377.ns2782  ---|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
28255  M01S00033.ns2782  +++|          LX4    12

Seq #  *Modification Id* Act 
----------------------------+
28256  M01S16378.ns2782  ---|          BX7    -X0*X2      EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
28257  M01S00034.ns2782  +++|          BX7    -X0*X4      EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
28258  M01S16379.251l664 ---|          SX4    ESTE
28259  M01S16380.251l664 ---|          IX7    X7*X4

Seq #  *Modification Id* Act 
----------------------------+
28260  M02S00834.261l700 ---|          LX7    1
28261  M02S00835.261l700 ---|          ERRNZ  ESTE-2      CODE DEPENDS ON VALUE

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

Seq #  *Modification Id* Act 
----------------------------+
28263  M01S00120.261l700 +++|          CX4    X7,EST      CONVERT EST ORDINAL TO OFFSET
28264  M01S00121.261l700 +++|          TA4    X4+EQDE,EST READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
28265  M01S16382.251l664 ---|          LX2    -12+36
28266  M00S16383.cpumtr  +++|          BX7    -X0*X4      MST ADDRESS / 10B
28267  M00S16384.cpumtr  +++|          LX7    3
28268  M00S16385.cpumtr  +++|          SA4    X7+DALL     INCREMENT ACTIVITY COUNT

Seq #  *Modification Id* Act 
----------------------------+
28269  M01S00035.ns2782  +++|          SX7    B1
28270  M01S00036.ns2782  +++|          SA3    A4+CTLL-DALL
28271  M01S00037.ns2782  +++|          LX7    24
28272  M01S00038.ns2782  +++|          IX6    X3+X7
28273  M01S00039.ns2782  +++|          SA6    A3

Seq #  *Modification Id* Act 
----------------------------+
28274  M01S16386.251l670 ---|          SX7    B1
28275  M01S16387.251l670 ---|          LX7    48
28276  M01S16388.251l670 ---|          IX7    X4+X7

Seq #  *Modification Id* Act 
----------------------------+
28277  M02S16389.251l670 ---|          NG     X7,IOC6     IF OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
28278  M02S00617.251l670 ---|          BX4    X4-X7
28279  M02S00618.251l670 ---|          LX4    59-54
28280  M02S00619.251l670 ---|          NG     X4,IOC6     IF ACTIVITY OVERFLOW

Seq #  *Modification Id* Act 
----------------------------+
28281  M02S16390.251l670 ---|          SA7    A4+

Seq #  *Modification Id* Act 
----------------------------+
28282  M02S00836.251l670 ---|          SA7    A4

Seq #  *Modification Id* Act 
----------------------------+
28283  M01S16391.251l670 ---| IOC6     NG     X6,IOCX     IF UNIT IS ACTIVE

Seq #  *Modification Id* Act 
----------------------------+
28284  M02S00116.ns2514  ---|          AX6    24

Seq #  *Modification Id* Act 
----------------------------+
28285  M01S00001.ns2514  +++|          LX6    -24

Seq #  *Modification Id* Act 
----------------------------+
28286  M02S00117.ns2782  ---|          BX3    -X0*X6      EXTRACT QUEUE SIZE FROM *PUT*

Seq #  *Modification Id* Act 
----------------------------+
28287  M02S00057.ns2782  ---|          BX7    X4
28288  M02S00058.ns2782  ---|          LX7    59-37
28289  M02S00059.ns2782  ---|          NG     X7,IOC8.1   IF DEVICE IS BEING ACCESSED VIA *DSWM*

Seq #  *Modification Id* Act 
----------------------------+
28290  M01S00040.ns2782  +++|          BX3    -X0*X6      EXTRACT QUEUE SIZE
28291  M01S00041.ns2782  +++|          LX4    59-37
28292  M01S00042.ns2782  +++|          NG     X4,IOC8.1   IF DEVICE IS BEING ACCESSED VIA *DSWM*

Seq #  *Modification Id* Act 
----------------------------+
28293  M01S00118.251l670 +++|          LX3    54
28294  M01S00119.251l670 +++|          SX7    X3          MOST SIGNIFICANT SIX BITS

Seq #  *Modification Id* Act 
----------------------------+
28295  M02S00120.ns2782  ---|          LX4    6

Seq #  *Modification Id* Act 
----------------------------+
28296  M01S00043.ns2782  +++|          LX4    6-59+37

Seq #  *Modification Id* Act 
----------------------------+
28297  M01S00121.251l670 +++|          ZR     X7,IOC8     IF NOT OVERFLOW
28298  M01S00122.251l670 +++|          MX3    6
28299  M01S00123.251l670 +++| IOC8     BX4    -X5*X4      REMOVE OLD COUNT
28300  M01S00124.251l670 +++|          BX7    X3+X4

Seq #  *Modification Id* Act 
----------------------------+
28301  M02S00002.ns2782  ---|          LX6    24

Seq #  *Modification Id* Act 
----------------------------+
28302  M01S00125.251l670 +++|          LX7    -6          UPDATE COUNT

Seq #  *Modification Id* Act 
----------------------------+
28303  M01S00044.ns2782  +++|          SA7    A4
28304  M01S00045.ns2782  +++| IOC8.1   NG     X2,IOCX     IF UNIT INTERLOCKED
28305  M01S00046.ns2782  +++|          TNO    /BUFIO/IOCX,IHPFMD  IF NOT 819

Seq #  *Modification Id* Act 
----------------------------+
28306  M01S00003.ns2514  +++|          MX5    1

Seq #  *Modification Id* Act 
----------------------------+
28307  M02S00126.ns2546  ---|          SA7    A4
28308  M02S00127.ns2546  ---| IOCA     NG     X6,IOCX     IF UNIT INTERLOCKED

Seq #  *Modification Id* Act 
----------------------------+
28309  M02S00060.ns2782  ---|          SA7    A4+
28310  M02S00061.ns2782  ---| IOC8.1   NG     X6,IOCX     IF UNIT INTERLOCKED

Seq #  *Modification Id* Act 
----------------------------+
28311  M02S16392.ns2782  ---|*         EQ     /PRESET/MEL6  (BUFFER RECOVERY IN PROGRESS)

Seq #  *Modification Id* Act 
----------------------------+
28312  M03S00062.ns2782  ---|          ERRNZ  IOCA-IOC8.1 CODE DEPENDS ON VALUE
28313  M03S00063.ns2782  ---| IOCA     EQU    *

Seq #  *Modification Id* Act 
----------------------------+
28314  M01S16393.ns2782  ---|          TNO    /BUFIO/IOCX,IHPFMD  IF NOT 819

Seq #  *Modification Id* Act 
----------------------------+
28315  M01S16394.ns2514  ---|          MX5    1

Seq #  *Modification Id* Act 
----------------------------+
28316  M02S00837.ns2782  ---|          LX2    -12+36

Seq #  *Modification Id* Act 
----------------------------+
28317  M01S16395.ns2782  ---|          BX6    X5+X6       SET UNIT INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
28318  M01S00047.ns2782  +++|          BX6    X5+X2       SET UNIT INTERLOCK
28319  M01S00048.ns2782  +++|          LX2    -12
28320  M00S16396.cpumtr  +++|          BX0    -X0*X2

Seq #  *Modification Id* Act 
----------------------------+
28321  M01S16397.251l664 ---|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
28322  M02S00838.ns2514  ---|          SA6    A2+

Seq #  *Modification Id* Act 
----------------------------+
28323  M02S00004.ns2782  ---|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
28324  M01S00049.ns2782  +++|          SA6    A2+
28325  M00S16398.cpumtr  +++|          SB3    IOCX        *INR* RETURN ADDRESS
28326  M00S16399.cpumtr  +++|          EQ     /IH819/INR  INITIATE REQUEST
28327  M00S16400.cpumtr  +++| SBR      SPACE  4,15
28328  M00S16401.cpumtr  +++|**        SBR - SET BUFFER RECALL.
28329  M00S16402.cpumtr  +++|*
28330  M00S16403.cpumtr  +++|*         ENTRY  (B3) = RETURN ADDRESS.
28331  M00S16404.cpumtr  +++|*                (A3) = CONTROL BUFFER ADDRESS.
28332  M00S16405.cpumtr  +++|*
28333  M00S16406.cpumtr  +++|*                IF 819 DEVICES -
28334  M00S16407.cpumtr  +++|*                (B4) = CHANNEL NUMBER.
28335  M00S16408.cpumtr  +++|*                (B7) = 0  IF INPUT XP, 20  IF OUTPUT XP.
28336  M00S16409.cpumtr  +++|*
28337  M00S16410.cpumtr  +++|*         USES   X - 3, 4, 6.
28338  M00S16411.cpumtr  +++|*                A - 4, 6.
28339  M00S16412.cpumtr  +++|*
28340  M00S16413.cpumtr  +++|*         CALLS  /IHPFMD/RPP, /IH819/RPP.
28341  M00S16414.cpumtr  +++|
28342  M00S16415.cpumtr  +++|
28343  M00S16416.cpumtr  +++| SBR      SA4    A3+LSLK     CHECK FOR RECALL CONTROL
28344  M00S16417.cpumtr  +++|          MX3    36
28345  M00S16418.cpumtr  +++|          BX6    X3*X4       CLEAR RECALL CONTROL
28346  M00S16419.cpumtr  +++|          BX4    -X3*X4
28347  M00S16420.cpumtr  +++|          SA6    A4
28348  M00S16421.cpumtr  +++|          ZR     X4,/MONITOR/RB3  IF NO RECALL CONTROL SET
28349  M00S16422.cpumtr  +++|          BX6    X4
28350  M00S16423.cpumtr  +++|          AX4    18

Seq #  *Modification Id* Act 
----------------------------+
28351  M01S16424.252l678 ---|          TNZ    X4,(/IHPFMD/RPP,/IH819/RPP,IHPFMD)  IF NOT PP RECALL

Seq #  *Modification Id* Act 
----------------------------+
28352  M01S00747.252l678 +++|          TNZ    X4,(/IHPFMD/RPP,IHPFMD,/IH819/RPP)  IF NOT PP RECALL
28353  M00S16425.cpumtr  +++|          SA4    X6          SIGNAL PP TO REISSUE
28354  M00S16426.cpumtr  +++|          SX3    B1
28355  M00S16427.cpumtr  +++|          LX3    46
28356  M00S16428.cpumtr  +++|          BX6    X3+X4
28357  M00S16429.cpumtr  +++|          SA6    A4
28358  M00S16430.cpumtr  +++|          JP     B3          RETURN

Seq #  *Modification Id* Act 
----------------------------+
28359  M01S00128.251l670 +++| SCB      SPACE  4,10
28360  M01S00129.251l670 +++|**        SCB - SELECT CURRENT BUFFER FOR I/O QUEUE.
28361  M01S00130.251l670 +++|*
28362  M01S00131.251l670 +++|*         ENTRY  (B6) = RETURN ADDRESS.
28363  M01S00132.251l670 +++|*                (X2) = ORDINAL OF FORWARD LINKED BUFFER.
28364  M01S00133.251l670 +++|*                (X6) = *UNCT* WORD WITH CURRENT *CB* FIELD CLEAR.
28365  M01S00134.251l670 +++|*
28366  M01S00135.251l670 +++|*         EXIT   (X6) = NEW *UNCT* WORD FOR *PUT* ENTRY.
28367  M01S00136.251l670 +++|*
28368  M01S00137.251l670 +++|*         USES   A - 4.
28369  M01S00138.251l670 +++|*                X - 2, 3, 4, 5, 6, 7.
28370  M01S00139.251l670 +++|
28371  M01S00140.251l670 +++|
28372  M01S00141.251l670 +++| SCB      LX6    -24         POSITION UNIT QUEUE SIZE
28373  M01S00142.251l670 +++|          MX3    -12
28374  M01S00143.251l670 +++|          BX7    -X3*X6      EXTRACT QUEUE SIZE
28375  M01S00144.251l670 +++|          LX6    24
28376  M01S00145.251l670 +++| SCB1     ZR     X7,RB6      IF QUEUE EMPTY
28377  M01S00146.251l670 +++|          LX2    CBTLS
28378  M01S00147.251l670 +++|          BX5    X6          PRESERVE *PUT* INFORMATION
28379  M01S00148.251l670 +++|          TA4    X2+HSLK,CBT
28380  M01S00149.251l670 +++|          LX2    12-CBTLS    REBUILD *UNCT* WORD
28381  M01S00150.251l670 +++|          BX6    X5+X2
28382  M01S00151.251l670 +++|          PL     X4,RB6      IF NOT *CBT* ENTRY WITH ERRORS
28383  M01S00152.251l670 +++|          MX6    -59
28384  M01S00153.251l670 +++|          SA4    A4-B1
28385  M01S00154.251l670 +++|          ERRNZ  IOLK+1-HSLK  CODE DEPENDS ON VALUE
28386  M01S00155.251l670 +++|          LX6    -1
28387  M01S00156.251l670 +++|          NO
28388  M01S00157.251l670 +++|          BX5    -X6*X5      CLEAR REQUESTS WAITING FLAG
28389  M01S00158.251l670 +++|          LX4    -24
28390  M01S00159.251l670 +++|          SX7    X7-1        DECREMENT QUEUE SIZE
28391  M01S00160.251l670 +++|          BX2    -X3*X4
28392  M01S00161.251l670 +++|          LX6    X5
28393  M01S00162.251l670 +++|          NZ     X2,SCB1     IF NOT END OF QUEUE
28394  M01S00163.251l670 +++|          SX2    X5+
28395  M01S00164.251l670 +++|          EQ     SCB1        CHECK START OF QUEUE

Seq #  *Modification Id* Act 
----------------------------+
28396  M01S16431.251l664 ---|          TITLE  CPU MONITOR INPUT/OUTPUT HANDLER - 819/CYBER 176.

Seq #  *Modification Id* Act 
----------------------------+
28397  M01S00839.251l664 +++|          TITLE  CPU MONITOR BUFFERED I/O HANDLER.
28398  M00S16432.cpumtr  +++| BFM      SPACE  4,25
28399  M00S16433.cpumtr  +++|**        BFM - *BFMM* MONITOR FUNCTION.
28400  M00S16434.cpumtr  +++|*
28401  M00S16435.cpumtr  +++|*         ENTRY  AT *BFM* IF MONITOR MODE *BFMM* FUNCTION
28402  M00S16436.cpumtr  +++|*                   TO BE PROCESSED.
28403  M00S16437.cpumtr  +++|*                AT *BFM3* IF PROGRAM MODE *BFMM* FUNCTION
28404  M00S16438.cpumtr  +++|*                   TO BE PROCESSED.
28405  M00S16439.cpumtr  +++|*                REFER TO *BFMM* DOCUMENTATION FOR OUTPUT REGISTER
28406  M00S16440.cpumtr  +++|*                   AND FNT DESCRIPTION.
28407  M00S16441.cpumtr  +++|*
28408  M00S16442.cpumtr  +++|*         EXIT   TO /MONITOR/PMR TO SWITCH TO PROGRAM MODE.
28409  M00S16443.cpumtr  +++|*                TO /MONITOR/PPR1 TO EXIT MONITOR MODE FUNCTION.
28410  M00S16444.cpumtr  +++|*                TO /PROGRAM/PRG OR /PROGRAM/PRG1 TO EXIT
28411  M00S16445.cpumtr  +++|*                   PROGRAM MODE FUNCTION.
28412  M00S16446.cpumtr  +++|*                REFER TO *BFMM* DOCUMENTATION FOR OUTPUT REGISTER
28413  M00S16447.cpumtr  +++|*                   EXIT DISCRIPTION.
28414  M00S16448.cpumtr  +++|*
28415  M00S16449.cpumtr  +++|*         ERROR  TO /MONITOR/HNG IF INCORRECT *BFMM* OPERATION CODE
28416  M00S16450.cpumtr  +++|*                   OR IF INVALID SUBFUNCTION OR INVALID MULTIPLE
28417  M00S16451.cpumtr  +++|*                   WRITE BUFFER COUNT FOR *BMVI* OPERATION.
28418  M00S16452.cpumtr  +++|*                TO /PROGRAM/HNG IF NEXT TRACK NOT RESERVED WHEN
28419  M00S16453.cpumtr  +++|*                   ADVANCING TRACK/SECTOR FOR MULTIPLE WRITE BUFFER
28420  M00S16454.cpumtr  +++|*                   REQUEST.
28421  M00S16455.cpumtr  +++|*
28422  M00S16456.cpumtr  +++|*         CALLS  LBM, LMM, SNT.
28423  M00S16457.cpumtr  +++|
28424  M00S16458.cpumtr  +++|
28425  M00S16459.cpumtr  +++|*         MONITOR MODE *BFMM* ENTRY.
28426  M00S16460.cpumtr  +++|
28427  M00S16461.cpumtr  +++| BFM      LX1    -12
28428  M00S16462.cpumtr  +++|          AX1    54
28429  M00S16463.cpumtr  +++|          SX2    X1-BMMX
28430  M00S16464.cpumtr  +++|          PL     X2,/MONITOR/HNG  IF INVALID OPERATION
28431  M00S16465.cpumtr  +++|          SX2    X1-BMVI
28432  M00S16466.cpumtr  +++|          MX0    12
28433  M00S16467.cpumtr  +++|          LX0    -12
28434  M00S16468.cpumtr  +++|          BX4    X0*X5       GET MULTIPLE WRITE BUFFER COUNT
28435  M00S16469.cpumtr  +++|          BX5    -X0*X5      CLEAR EXTRANEOUS PARAMETERS
28436  M00S16470.cpumtr  +++|          NZ     X2,/MONITOR/PMR  IF NOT VALIDATE OPERATION

Seq #  *Modification Id* Act 
----------------------------+
28437  M01S00154.283l840 +++|
28438  M01S00155.283l840 +++|*         PROCESS *BMVI* SUBFUNCTION.
28439  M01S00156.283l840 +++|
28440  M00S16471.cpumtr  +++|          MX3    -6
28441  M00S16472.cpumtr  +++|          BX2    -X3*X5      GET VALIDATE SUBFUNCTION
28442  M00S16473.cpumtr  +++|          MX0    48
28443  M00S16474.cpumtr  +++|          BX5    X0*X5       SET SUBFUNCTION IF VALIDATE FAILS
28444  M00S16475.cpumtr  +++|          ERRNZ  BMRD        INDEX MUST BE ZERO
28445  M00S16476.cpumtr  +++|          LX5    -12
28446  M00S16477.cpumtr  +++|          SX1    X5          FNT ORDINAL
28447  M00S16478.cpumtr  +++|          SA3    B7+FLSW     GET RA
28448  M00S16479.cpumtr  +++|          LX2    6
28449  M00S16480.cpumtr  +++|          LX5    12
28450  M00S16481.cpumtr  +++|          ZR     X2,BFM1     IF READ SUBFUNCTION
28451  M00S16482.cpumtr  +++|          SX6    X2-BMRW*100B-100B
28452  M00S16483.cpumtr  +++|          PL     X6,/MONITOR/HNG  IF INVALID SUBFUNCTION
28453  M00S16484.cpumtr  +++|          SA7    A5+B1       CLEAR *MB*
28454  M00S16485.cpumtr  +++|          BX5    X5+X4       RESET MULTIPLE WRITE BUFFER COUNT
28455  M00S16486.cpumtr  +++|          SA7    A7+B1       CLEAR *MB+1*
28456  M00S16487.cpumtr  +++|          LX4    18
28457  M00S16488.cpumtr  +++|          SX6    X4-11
28458  M00S16489.cpumtr  +++|          PL     X6,/MONITOR/HNG  IF BUFFER COUNT TOO LARGE
28459  M00S16490.cpumtr  +++|          BX5    X5+X2       SET WRITE/REWRITE OPERATION
28460  M00S16491.cpumtr  +++|          R=     X2,BMWR
28461  M00S16492.cpumtr  +++| BFM1     NG     X4,/MONITOR/PMR  IF WRITE BUFFER ALREADY INTERLOCKED
28462  M00S16493.cpumtr  +++|          LX3    -RSHF
28463  M00S16494.cpumtr  +++|          MX7    -RMSK
28464  M00S16495.cpumtr  +++|          BX3    -X7*X3      RA / 100B
28465  M00S16496.cpumtr  +++|          LX3    6
28466  M00S16497.cpumtr  +++|          IX3    X3-X1       ABSOLUTE FNT ADDRESS
28467  M00S16498.cpumtr  +++|          SX1    B1
28468  M00S16499.cpumtr  +++|          IX3    X3+X1       *FST* ADDRESS
28469  M00S16500.cpumtr  +++|          IX1    X3+X1
28470  M00S16501.cpumtr  +++|          ERX1   X1          READ I/O LINK WORD
28471  M00S16502.cpumtr  +++|          BX7    -X0*X1
28472  M00S16503.cpumtr  +++|          ZR     X7,/MONITOR/PMR  IF NO LINK TO VALIDATE
28473  M00S16504.cpumtr  +++|          BX6    X5
28474  M00S16505.cpumtr  +++|          SA6    A5          UPDATE *BFMM* CALL IN OUTPUT REGISTER
28475  M00S16506.cpumtr  +++|          ERX3   X3          READ *FST*
28476  M00S16507.cpumtr  +++|          BX6    X3

Seq #  *Modification Id* Act 
----------------------------+
28477  M01S16508.251l664 ---|          LX2    -6
28478  M00S16509.cpumtr  +++|          SB6    BFM2        SET RETURN ADDRESS FOR *INB*

Seq #  *Modification Id* Act 
----------------------------+
28479  M01S16510.283l840 ---|          EQ     INB         VALIDATE AND INTERLOCK BUFFER

Seq #  *Modification Id* Act 
----------------------------+
28480  M01S00157.283l840 +++|          EQ     INB         VALIDATE AND INTERLOCK BUFFER
28481  M00S16511.cpumtr  +++|
28482  M00S16512.cpumtr  +++| BFM2     SA5    A5
28483  M00S16513.cpumtr  +++|          LX6    12
28484  M00S16514.cpumtr  +++|          MX7    -24
28485  M00S16515.cpumtr  +++|          BX7    -X7*X6
28486  M00S16516.cpumtr  +++|          ZR     X7,/MONITOR/PMR  IF BUFFER NOT FOUND
28487  M00S16517.cpumtr  +++|          MX0    -6
28488  M00S16518.cpumtr  +++|          LX0    11-5
28489  M00S16519.cpumtr  +++|          BX1    -X0*X6
28490  M00S16520.cpumtr  +++|          NZ     X1,/MONITOR/PPR1  IF REJECT CONDITION
28491  M00S16521.cpumtr  +++|          LX0    47-11
28492  M00S16522.cpumtr  +++|          BX6    -X0*X5
28493  M00S16523.cpumtr  +++|          ZR     X6,/MONITOR/PPR1  IF NOT MULTIPLE BUFFER REQUEST
28494  M00S16524.cpumtr  +++|          MX1    1           SET BUFFER INTERLOCKED FLAG
28495  M00S16525.cpumtr  +++|          SX7    B0+         CLEAR RESPONSE
28496  M00S16526.cpumtr  +++|          LX1    41-59
28497  M00S16527.cpumtr  +++|          BX5    X5+X1
28498  M00S16528.cpumtr  +++|          EQ     /MONITOR/PMR  SWITCH TO PROGRAM MODE
28499  M00S16529.cpumtr  +++|
28500  M00S16530.cpumtr  +++|*         PROGRAM MODE *BFMM* ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
28501  M01S00158.283l840 +++|*         SET UP CALL TO BUFFER MANAGER.
28502  M00S16531.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28503  M01S16532.251l664 ---| BFM3     MX0    -36         BUILD I/O BUFFER MANAGER CALL
28504  M01S16533.251l664 ---|          LX1    59-41

Seq #  *Modification Id* Act 
----------------------------+
28505  M01S00840.251l664 +++| BFM3     BX2    X5
28506  M01S00841.251l664 +++|          MX0    -12
28507  M01S00842.251l664 +++|          LX2    -12
28508  M01S00843.251l664 +++|          AX2    54
28509  M01S00844.251l664 +++|          TX3    A5-1,-SP
28510  M01S00845.251l664 +++|          SB6    X2-BMFO

Seq #  *Modification Id* Act 
----------------------------+
28511  M02S00846.271l716 ---|          ZR     X3,BFM3.2   IF PSEUDO PP

Seq #  *Modification Id* Act 
----------------------------+
28512  M01S01686.271l716 +++|          ZR     X3,BFM5     IF PSEUDO PP

Seq #  *Modification Id* Act 
----------------------------+
28513  M01S00847.251l664 +++|          SA4    A5+1
28514  M01S00848.251l664 +++|          BX6    X0*X4       CLEAR *CHRV* FIELD
28515  M01S00849.251l664 +++|          SX4    EPNS

Seq #  *Modification Id* Act 
----------------------------+
28516  M02S00850.271l716 ---|          NG     B6,BFM3.1   IF NOT A FLUSH OPERATION
28517  M02S00851.271l716 ---|          BX6    X4+X6
28518  M02S00852.271l716 ---| BFM3.1   SA6    A4+
28519  M02S00853.271l716 ---| BFM3.2   LX1    59-41

Seq #  *Modification Id* Act 
----------------------------+
28520  M01S01687.271l716 +++|          NG     B6,BFM4     IF NOT A FLUSH OPERATION
28521  M01S01688.271l716 +++|          BX6    X4+X6
28522  M01S01689.271l716 +++| BFM4     SA6    A4+
28523  M01S01690.271l716 +++| BFM5     LX1    59-41

Seq #  *Modification Id* Act 
----------------------------+
28524  M01S00854.251l664 +++|          MX0    -36
28525  M00S16534.cpumtr  +++|          BX5    -X0*X5
28526  M00S16535.cpumtr  +++|          LX5    -12

Seq #  *Modification Id* Act 
----------------------------+
28527  M01S16536.271l716 ---|          SB6    BFM4        SET RETURN ADDRESS FOR *LBM*

Seq #  *Modification Id* Act 
----------------------------+
28528  M01S01691.271l716 +++|          SB6    BFM6        SET RETURN ADDRESS FOR *LBM*
28529  M00S16537.cpumtr  +++|          PL     X1,LBM      IF CURRENT BUFFER NOT INTERLOCKED
28530  M00S16538.cpumtr  +++|          MX0    -RMSK

Seq #  *Modification Id* Act 
----------------------------+
28531  M01S16539.271l716 ---|          EQ     BFM5        CHECK FOR MULTIPLE BUFFER REQUEST
28532  M01S16540.271l716 ---|

Seq #  *Modification Id* Act 
----------------------------+
28533  M02S16541.271l716 ---| BFM4     MX0    6

Seq #  *Modification Id* Act 
----------------------------+
28534  M02S00855.271l716 ---| BFM4     MX0    5

Seq #  *Modification Id* Act 
----------------------------+
28535  M01S01692.271l716 +++|          EQ     BFM7        CHECK FOR MULTIPLE BUFFER REQUEST
28536  M01S01693.271l716 +++|
28537  M01S01694.271l716 +++| BFM6     MX0    5
28538  M00S16542.cpumtr  +++|          MX7    -24
28539  M00S16543.cpumtr  +++|          BX2    X0*X6
28540  M00S16544.cpumtr  +++|          LX6    12
28541  M00S16545.cpumtr  +++|          BX7    -X7*X6
28542  M00S16546.cpumtr  +++|          NZ     X2,/PROGRAM/PRG1  IF REJECT CONDITION
28543  M00S16547.cpumtr  +++|          MX0    -RMSK

Seq #  *Modification Id* Act 
----------------------------+
28544  M01S16548.271l716 ---| BFM5     SA5    A5          CHECK FOR MULTIPLE BUFFER REQUEST

Seq #  *Modification Id* Act 
----------------------------+
28545  M01S01695.271l716 +++| BFM7     SA5    A5          CHECK FOR MULTIPLE BUFFER REQUEST
28546  M00S16549.cpumtr  +++|          MX6    7
28547  M00S16550.cpumtr  +++|          LX6    47-59
28548  M00S16551.cpumtr  +++|          BX1    X6*X5
28549  M00S16552.cpumtr  +++|          ZR     X1,/PROGRAM/PRG1  IF NOT MULTIPLE BUFFER REQUEST

Seq #  *Modification Id* Act 
----------------------------+
28550  M01S00159.283l840 +++|
28551  M01S00160.283l840 +++|*         PROCESS MULTIPLE BUFFER WRITE REQUEST.
28552  M01S00161.283l840 +++|
28553  M00S16553.cpumtr  +++|          LX5    -12
28554  M00S16554.cpumtr  +++|          SX2    X5          FNT ORDINAL
28555  M00S16555.cpumtr  +++|          SA3    B7+FLSW     GET RA
28556  M00S16556.cpumtr  +++|          LX3    -RSHF
28557  M00S16557.cpumtr  +++|          BX3    -X0*X3
28558  M00S16558.cpumtr  +++|          MX0    48
28559  M00S16559.cpumtr  +++|          LX3    6
28560  M00S16560.cpumtr  +++|          IX3    X3-X2       ABSOLUTE FNT ENTRY ADDRESS
28561  M00S16561.cpumtr  +++|          SX2    B1
28562  M00S16562.cpumtr  +++|          IX6    X3+X2
28563  M00S16563.cpumtr  +++|          ERX3   X6          GET FST ENTRY
28564  M00S16564.cpumtr  +++|          SA6    BAFS        SAVE FST ADDRESS
28565  M00S16565.cpumtr  +++|          LX1    59-41

Seq #  *Modification Id* Act 
----------------------------+
28566  M01S16566.271l716 ---|          NG     X1,BFM6     IF CURRENT BUFFER INTERLOCKED

Seq #  *Modification Id* Act 
----------------------------+
28567  M01S01696.271l716 +++|          NG     X1,BFM8     IF CURRENT BUFFER INTERLOCKED
28568  M00S16567.cpumtr  +++|          IX6    X6+X2       SAVE BUFFER LINK
28569  M00S16568.cpumtr  +++|          ERX2   X6
28570  M00S16569.cpumtr  +++|          BX2    X0*X2
28571  M00S16570.cpumtr  +++|          AX7    12
28572  M00S16571.cpumtr  +++|          BX7    X7+X2
28573  M00S16572.cpumtr  +++|          EWX7   X6

Seq #  *Modification Id* Act 
----------------------------+
28574  M01S16573.271l716 ---| BFM6     SX1    X1
28575  M01S16574.271l716 ---|          ZR     X1,BFM12    IF NO MULTIPLE BUFFER COUNT

Seq #  *Modification Id* Act 
----------------------------+
28576  M01S01697.271l716 +++| BFM8     SX1    X1
28577  M01S01698.271l716 +++|          ZR     X1,BFM16    IF NO MULTIPLE BUFFER COUNT
28578  M00S16575.cpumtr  +++|          BX6    X3          SAVE ORIGINAL FST ENTRY
28579  M00S16576.cpumtr  +++|          LX3    12
28580  M00S16577.cpumtr  +++|          SA6    BFST
28581  M00S16578.cpumtr  +++|          BX6    -X0*X3      GET EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
28582  M01S16579.251l664 ---|          R=     X1,ESTE
28583  M01S16580.251l664 ---|          IX6    X6*X1

Seq #  *Modification Id* Act 
----------------------------+
28584  M02S00856.261l700 ---|          LX6    1
28585  M02S00857.261l700 ---|          ERRNZ  ESTE-2      CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
28586  M01S16581.261l700 ---|          TA2    X6+EQDE,EST READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
28587  M01S00122.261l700 +++|          CX2    X6,EST      CONVERT EST ORDINAL TO OFFSET
28588  M01S00123.261l700 +++|          TA2    X2+EQDE,EST READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
28589  M01S16582.251l664 ---|          LX5    12
28590  M00S16583.cpumtr  +++|          BX1    -X0*X2      MST ADDRESS/10B
28591  M00S16584.cpumtr  +++|          LX1    3
28592  M00S16585.cpumtr  +++|          SA2    X1+MDGL     GET SECTOR LIMIT
28593  M00S16586.cpumtr  +++|          BX2    -X0*X2
28594  M00S16587.cpumtr  +++|          LX1    18
28595  M00S16588.cpumtr  +++|          BX7    X1+X2
28596  M00S16589.cpumtr  +++|          LX3    -24         GET CURRENT SECTOR
28597  M00S16590.cpumtr  +++|          BX4    -X0*X3
28598  M00S16591.cpumtr  +++|          MX6    -LSLBS      CALCULATE MOD 40B OF CURRENT SECTOR
28599  M00S16592.cpumtr  +++|          BX4    -X6*X4
28600  M00S16593.cpumtr  +++|          IX6    X3-X4       CALCULATE FIRST SECTOR IN BUFFER
28601  M00S16594.cpumtr  +++|          SA3    BAFS        GET ABSOLUTE FST ADDRESS
28602  M00S16595.cpumtr  +++|          SA7    BDDC        SAVE DEVICE DESCRIPTION AND BUFFER COUNT
28603  M00S16596.cpumtr  +++|          LX6    12
28604  M00S16597.cpumtr  +++|          EWX6   X3
28605  M00S16598.cpumtr  +++|          SX5    BMWR*100B   SET WRITE OPERATION WITH RECALL ALLOWED
28606  M00S16599.cpumtr  +++|
28607  M00S16600.cpumtr  +++|*         CHECK FOR END OF TRACK.
28608  M00S16601.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28609  M01S16602.271l716 ---| BFM7     SX1    X7          SECTORS PER TRACK

Seq #  *Modification Id* Act 
----------------------------+
28610  M01S01699.271l716 +++| BFM10    SX1    X7          SECTORS PER TRACK
28611  M00S16603.cpumtr  +++|          ERX3   X3          GET FST ENTRY
28612  M00S16604.cpumtr  +++|          SX4    LSLB        LOGICAL SECTORS PER I/O BUFFER
28613  M00S16605.cpumtr  +++|          LX3    -12
28614  M00S16606.cpumtr  +++|          IX6    X3+X4       ADVANCE TO FIRST SECTOR IN NEXT BUFFER
28615  M00S16607.cpumtr  +++|          BX2    -X0*X6      GET CURRENT SECTOR
28616  M00S16608.cpumtr  +++|          IX1    X2-X1

Seq #  *Modification Id* Act 
----------------------------+
28617  M01S16609.271l716 ---|          NG     X1,BFM9     IF NOT END OF TRACK

Seq #  *Modification Id* Act 
----------------------------+
28618  M01S01700.271l716 +++|          NG     X1,BFM12    IF NOT END OF TRACK

Seq #  *Modification Id* Act 
----------------------------+
28619  M01S16610.283l840 ---|
28620  M01S16611.283l840 ---|*         ADVANCE TO NEXT TRACK.
28621  M01S16612.283l840 ---|
28622  M00S16613.cpumtr  +++|          LX7    -18
28623  M00S16614.cpumtr  +++|          SX1    X7          MST ADDRESS
28624  M00S16615.cpumtr  +++|          LX6    -12
28625  M00S16616.cpumtr  +++|          BX0    -X0*X6      GET CURRENT TRACK

Seq #  *Modification Id* Act 
----------------------------+
28626  M01S16617.271l716 ---|          SB6    BFM8        SET RETURN ADDRESS FOR *SNT*

Seq #  *Modification Id* Act 
----------------------------+
28627  M01S01701.271l716 +++|          SB6    BFM11       SET RETURN ADDRESS FOR *SNT*
28628  M00S16618.cpumtr  +++|          EQ     SNT         SET NEXT TRACK
28629  M00S16619.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28630  M01S16620.271l716 ---| BFM8     PL     X2,/PROGRAM/HNG  IF NEXT TRACK NOT ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
28631  M01S01702.271l716 +++| BFM11    PL     X2,/PROGRAM/HNG  IF NEXT TRACK NOT ASSIGNED
28632  M00S16621.cpumtr  +++|          MX0    36          CLEAR CURRENT TRACK AND SECTOR
28633  M00S16622.cpumtr  +++|          BX3    X0*X3
28634  M00S16623.cpumtr  +++|          LX6    12
28635  M00S16624.cpumtr  +++|          BX6    X3+X6       SET NEXT TRACK

Seq #  *Modification Id* Act 
----------------------------+
28636  M01S16625.271l716 ---| BFM9     SA1    BAFS        GET ABSOLUTE FST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
28637  M01S01703.271l716 +++| BFM12    SA1    BAFS        GET ABSOLUTE FST ADDRESS
28638  M00S16626.cpumtr  +++|          LX6    12
28639  M00S16627.cpumtr  +++|          EWX6   X1          UPDATE FST ENTRY
28640  M00S16628.cpumtr  +++|          LX5    -12

Seq #  *Modification Id* Act 
----------------------------+
28641  M01S16629.271l716 ---|          SB6    BFM10       SET RETURN ADDRESS FOR *LBM*

Seq #  *Modification Id* Act 
----------------------------+
28642  M01S01704.271l716 +++|          SB6    BFM13       SET RETURN ADDRESS FOR *LBM*
28643  M00S16630.cpumtr  +++|          SA1    A5
28644  M00S16631.cpumtr  +++|          MX0    -24
28645  M00S16632.cpumtr  +++|          LX1    -12
28646  M00S16633.cpumtr  +++|          BX1    -X0*X1      GET CONTROL POINT AND FNT ORDINAL
28647  M00S16634.cpumtr  +++|          BX5    X5+X1
28648  M00S16635.cpumtr  +++|          EQ     LBM         CALL I/O BUFFER MANAGER
28649  M00S16636.cpumtr  +++|
28650  M00S16637.cpumtr  +++|*         PROCESS I/O BUFFER MANAGER RESPONSE.
28651  M00S16638.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28652  M01S16639.271l716 ---| BFM10    MX0    -12
28653  M01S16640.271l716 ---|          BX4    -X0*X6      GET BUFFER INDEX
28654  M01S16641.271l716 ---|          NG     X6,BFM14    IF BUFFER RECALL

Seq #  *Modification Id* Act 
----------------------------+
28655  M01S01705.271l716 +++| BFM13    MX0    -12
28656  M01S01706.271l716 +++|          BX4    -X0*X6      GET BUFFER INDEX
28657  M01S01707.271l716 +++|          NG     X6,BFM18    IF BUFFER RECALL

Seq #  *Modification Id* Act 
----------------------------+
28658  M01S16642.251l664 ---|          LX6    59-58
28659  M01S16643.251l664 ---|          MX7    1
28660  M01S16644.251l664 ---|          NG     X6,BFM12    IF BUFFER UNAVAILABLE

Seq #  *Modification Id* Act 
----------------------------+
28661  M01S00858.251l664 +++|          MX7    5
28662  M01S00859.251l664 +++|          LX1    X6,B1

Seq #  *Modification Id* Act 
----------------------------+
28663  M02S00860.271l716 ---|          NG     X1,BFM11.1  IF BUFFER BUSY
28664  M02S00861.271l716 ---|          BX1    X7*X6       BUFFER MANAGER STATUS
28665  M02S00862.271l716 ---|          NZ     X1,BFM12    IF BUFFER UNAVAILABLE/INACCESSIBLE DEVICE

Seq #  *Modification Id* Act 
----------------------------+
28666  M01S01708.271l716 +++|          NG     X1,BFM15    IF BUFFER BUSY
28667  M01S01709.271l716 +++|          BX1    X7*X6       BUFFER MANAGER STATUS
28668  M01S01710.271l716 +++|          NZ     X1,BFM16    IF BUFFER UNAVAILABLE/INACCESSIBLE DEVICE

Seq #  *Modification Id* Act 
----------------------------+
28669  M01S00863.251l664 +++|          MX7    1
28670  M00S16645.cpumtr  +++|          SA1    BDDC        GET BUFFER POSITION COUNTER
28671  M00S16646.cpumtr  +++|          LX7    42-59
28672  M00S16647.cpumtr  +++|          SA5    A5
28673  M00S16648.cpumtr  +++|          IX6    X5-X7       DECREMENT BUFFER COUNT
28674  M00S16649.cpumtr  +++|          MX3    6
28675  M00S16650.cpumtr  +++|          LX3    -12
28676  M00S16651.cpumtr  +++|          IX7    X1+X7       INCREMENT BYTE POSITION
28677  M00S16652.cpumtr  +++|          BX1    X3*X1
28678  M00S16653.cpumtr  +++|          SA2    A5+B1       GET *MB*
28679  M00S16654.cpumtr  +++|          LX1    -42
28680  M00S16655.cpumtr  +++|          SA7    A1
28681  M00S16656.cpumtr  +++|          SB6    X1-5

Seq #  *Modification Id* Act 
----------------------------+
28682  M01S16657.271l716 ---|          NG     B6,BFM11    IF ROOM TO STORE LINK IN *MB*

Seq #  *Modification Id* Act 
----------------------------+
28683  M01S01711.271l716 +++|          NG     B6,BFM14    IF ROOM TO STORE LINK IN *MB*

Seq #  *Modification Id* Act 
----------------------------+
28684  M01S16658.251l664 ---|          SA2    A2+B1       GET *MB+1*
28685  M01S16659.251l664 ---|          SX1    B6

Seq #  *Modification Id* Act 
----------------------------+
28686  M01S00864.251l664 +++|          SA2    A2+1        GET *MB+1*
28687  M01S00865.251l664 +++|          SX1    B6+

Seq #  *Modification Id* Act 
----------------------------+
28688  M01S16660.271l716 ---| BFM11    LX1    2           CALCULATE BYTE INDEX * 12D

Seq #  *Modification Id* Act 
----------------------------+
28689  M01S01712.271l716 +++| BFM14    LX1    2           CALCULATE BYTE INDEX * 12D
28690  M00S16661.cpumtr  +++|          BX5    X3*X6
28691  M00S16662.cpumtr  +++|          SB6    X1
28692  M00S16663.cpumtr  +++|          LX1    1
28693  M00S16664.cpumtr  +++|          SA6    A5
28694  M00S16665.cpumtr  +++|          SB6    X1+B6
28695  M00S16666.cpumtr  +++|          LX4    B6
28696  M00S16667.cpumtr  +++|          BX6    X2+X4
28697  M00S16668.cpumtr  +++|          SA6    A2
28698  M00S16669.cpumtr  +++|          BX6    X5
28699  M00S16670.cpumtr  +++|          SX5    BMWR*100B+1 SET WRITE OPERATION WITH NO RECALL
28700  M00S16671.cpumtr  +++|          SA3    BAFS        GET ABSOLUTE FST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
28701  M01S16672.271l716 ---|          NZ     X6,BFM7     IF MORE BUFFERS TO REQUEST

Seq #  *Modification Id* Act 
----------------------------+
28702  M02S16673.271l716 ---| BFM12    SA1    BAFS        GET ABSOLUTE FST ADDRESS
28703  M02S16674.271l716 ---|          SX7    B1+
28704  M02S16675.271l716 ---|          IX1    X1+X7
28705  M02S16676.271l716 ---|          ERX2   X1          RETURN FIRST BUFFER ORDINAL IN *MB*

Seq #  *Modification Id* Act 
----------------------------+
28706  M02S00866.271l716 ---| BFM11.1  SX1    B0+
28707  M02S00867.271l716 ---| BFM12    SA3    BAFS        GET ABSOLUTE FST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
28708  M01S01713.271l716 +++|          NZ     X6,BFM10    IF MORE BUFFERS TO REQUEST
28709  M01S01714.271l716 +++| BFM15    SX1    0
28710  M01S01715.271l716 +++| BFM16    SA3    BAFS        GET ABSOLUTE FST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
28711  M01S00868.251l664 +++|          SX7    B1
28712  M01S00869.251l664 +++|          IX3    X3+X7
28713  M01S00870.251l664 +++|          ERX2   X3          RETURN FIRST BUFFER ORDINAL IN *OR*
28714  M00S16677.cpumtr  +++|          BX7    -X0*X2

Seq #  *Modification Id* Act 
----------------------------+
28715  M01S00871.251l664 +++|          BX7    X7+X1       RETURN BUFFER MANAGER REPLY STATUS
28716  M00S16678.cpumtr  +++|          LX7    12

Seq #  *Modification Id* Act 
----------------------------+
28717  M01S16679.271l716 ---| BFM13    SA2    BFST        RESTORE ORIGINAL FST

Seq #  *Modification Id* Act 
----------------------------+
28718  M01S01716.271l716 +++| BFM17    SA2    BFST        RESTORE ORIGINAL FST
28719  M00S16680.cpumtr  +++|          BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
28720  M01S16681.251l664 ---|          SA1    A1          GET ABSOLUTE FST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
28721  M01S00872.251l664 +++|          SA1    A3          GET ABSOLUTE FST ADDRESS
28722  M00S16682.cpumtr  +++|          EWX6   X1
28723  M00S16683.cpumtr  +++|          SA7    A5
28724  M00S16684.cpumtr  +++|          EQ     /PROGRAM/PRG  EXIT
28725  M00S16685.cpumtr  +++|
28726  M00S16686.cpumtr  +++|*         PROCESS BUFFER RECALL (FOR SECOND BUFFER ONLY IN MULTIPLE
28727  M00S16687.cpumtr  +++|*         WRITE BUFFER REQUEST).
28728  M00S16688.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28729  M01S16689.271l716 ---| BFM14    MX7    -24         RETURN RECALL ORDINAL AND STATUS

Seq #  *Modification Id* Act 
----------------------------+
28730  M01S01717.271l716 +++| BFM18    MX7    -24         RETURN RECALL ORDINAL AND STATUS
28731  M00S16690.cpumtr  +++|          LX6    12

Seq #  *Modification Id* Act 
----------------------------+
28732  M01S16691.251l664 ---|          SA1    BAFS        GET ABSOLUTE FST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
28733  M01S00873.251l664 +++|          SA3    BAFS        GET ABSOLUTE FST ADDRESS
28734  M00S16692.cpumtr  +++|          SX2    B1

Seq #  *Modification Id* Act 
----------------------------+
28735  M01S16693.251l664 ---|          IX1    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
28736  M01S00874.251l664 +++|          IX1    X3+X2

Seq #  *Modification Id* Act 
----------------------------+
28737  M02S00875.271l716 ---|          ERX2   X1          RETURN FIRST BUFFER ORDINAL IN *OR*
28738  M00S16694.cpumtr  +++|          ERX2   X1          RETURN FIRST BUFFER ORDINAL IN *MB*
28739  M00S16695.cpumtr  +++|          BX7    -X7*X6
28740  M00S16696.cpumtr  +++|          BX6    -X0*X2
28741  M00S16697.cpumtr  +++|          SA6    A5+B1

Seq #  *Modification Id* Act 
----------------------------+
28742  M01S16698.271l716 ---|          EQ     BFM13       RESTORE FST

Seq #  *Modification Id* Act 
----------------------------+
28743  M01S01718.271l716 +++|          EQ     BFM17       RESTORE FST
28744  M00S16699.cpumtr  +++| PST      SPACE  4,40
28745  M00S16700.cpumtr  +++|**        PST - *PIOM* SECTOR TRANSFER (SF = 0, 1, 2, 3, 4).
28746  M00S16701.cpumtr  +++|*
28747  M00S16702.cpumtr  +++|*         ENTRY  (A0) = CPU NUMBER.
28748  M00S16703.cpumtr  +++|*                (A5) = PP *OR* ADDRESS.
28749  M00S16704.cpumtr  +++|*                (X5) = (OR).
28750  M00S16705.cpumtr  +++|*                (B2) = EXCHANGE PACKAGE ADDRESS, IF IN MONITOR MODE.
28751  M00S16706.cpumtr  +++|*                (B5) = *PIOM* SUBFUNCTION - 1.
28752  M00S16707.cpumtr  +++|*                SEE *PIOM* DOCUMENTATION FOR *OR* AND *MB*
28753  M00S16708.cpumtr  +++|*                DESCRIPTION.
28754  M00S16709.cpumtr  +++|*                (MB+1) = 1/ MODE, 23/,18/ PROC,18/ DVI.
28755  M00S16710.cpumtr  +++|*                   MODE = 1 INDICATES PROGRAM MODE ENTRY.
28756  M00S16711.cpumtr  +++|*                   PROC = PROGRAM MODE PROCESSOR ADDRESS.
28757  M00S16712.cpumtr  +++|*                   DVI = DEVICE INDICATOR (0=ECS, 1=BUFFERED DEVICE)
28758  M00S16713.cpumtr  +++|*                PP I/O BUFFER RESERVED FOR *PIOM*
28759  M00S16714.cpumtr  +++|*                SUBFUNCTIONS 0, 1, 2.
28760  M00S16715.cpumtr  +++|*
28761  M00S16716.cpumtr  +++|*         EXIT   A0, A5, B5 SAME AS ON ENTRY.
28762  M00S16717.cpumtr  +++|*                (B2) = EXCHANGE PACKAGE ADDRESS, IF IN MONITOR MODE.
28763  M00S16718.cpumtr  +++|*                PARAMETERS IN *OR* AND *MB* UPDATED FOR
28764  M00S16719.cpumtr  +++|*                   *PIOM* SUBFUNCTIONS 3, 4.
28765  M00S16720.cpumtr  +++|*                (MB+1) .LT. 0, IF PROGRAM MODE EXIT,
28766  M00S16721.cpumtr  +++|*                   OTHERWISE MONITOR MODE EXIT.
28767  M00S16722.cpumtr  +++|*                TO /PROGRAM/HNG, IF SHORT PRU ENCOUNTERED AND
28768  M00S16723.cpumtr  +++|*                   NOT READ TO EOR (SF = 3) OR EOF/EOI ENCOUNTERED
28769  M00S16724.cpumtr  +++|*                   ON READ TO EOR (SF = 3, SECTOR COUNT = 7777B).

Seq #  *Modification Id* Act 
----------------------------+
28770  M01S16725.251l664 ---|*                TO /ECS/PIOX, IF TRANSFER COMPLETE, I/O
28771  M01S16726.251l664 ---|*                   RECALL REQUIRED, OR PARITY, DISK NOT READY, OR
28772  M01S16727.251l664 ---|*                   UNRECOVERABLE HARDWARE ERROR ENCOUNTERED.

Seq #  *Modification Id* Act 
----------------------------+
28773  M01S00876.251l664 +++|*                TO /ECS/PIOX, IF TRANSFER COMPLETE OR I/O RECALL
28774  M01S00877.251l664 +++|*                   REQUIRED.
28775  M00S16728.cpumtr  +++|*                TO /ECS/PIOR, IF I/O BUFFER BUSY.
28776  M00S16729.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
28777  M01S16730.251l664 ---|*         CALLS  BPF, CLM, HHE, /PROGRAM/HNG, INB, /ECS/POIP,

Seq #  *Modification Id* Act 
----------------------------+
28778  M01S00878.251l664 +++|*         CALLS  BPF, CLM, HHE, /PROGRAM/HNG, INB, /ECS/PIOP,
28779  M00S16731.cpumtr  +++|*                /ECS/PIOR, /ECS/PIOX, UDP.
28780  M00S16732.cpumtr  +++|*
28781  M00S16733.cpumtr  +++|*         NOTE   *PST* IS ENTERED IN PROGRAM MODE (SF = 3, 4)
28782  M00S16734.cpumtr  +++|*                OR MONITOR MODE (SF = 0, 1, 2).  *PST* WILL
28783  M00S16735.cpumtr  +++|*                SWITCH TO PROGRAM MODE IF AN I/O REQUEST
28784  M00S16736.cpumtr  +++|*                IS REQUIRED (SF = 0, 1, 2).
28785  M00S16737.cpumtr  +++|*                MB+2 AND MB+3 ARE USED TO CONTAIN A PSEUDO FNT.
28786  M00S16738.cpumtr  +++|
28787  M00S16739.cpumtr  +++|
28788  M00S16740.cpumtr  +++|*         BUILD PSEUDO FNT IN MESSAGE BUFFER.
28789  M00S16741.cpumtr  +++|
28790  M00S16742.cpumtr  +++| PST      SB6    PST1        *BPF* RETURN ADDRESS
28791  M00S16743.cpumtr  +++|          EQ     BPF         BUILD PSEUDO FNT IN MESSAGE BUFFER
28792  M00S16744.cpumtr  +++|
28793  M00S16745.cpumtr  +++|*         VALIDATE I/O BUFFER LINK.
28794  M00S16746.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28795  M01S16747.251l664 ---| PST1     ZR     X7,PST2     IF NO I/O BUFFER LINK

Seq #  *Modification Id* Act 
----------------------------+
28796  M02S00879.271l716 ---| PST1     ZR     X7,PST2.1   IF NO I/O BUFFER LINK

Seq #  *Modification Id* Act 
----------------------------+
28797  M01S01719.271l716 +++| PST1     ZR     X7,PST3     IF NO I/O BUFFER LINK
28798  M00S16748.cpumtr  +++|          SX2    BMRD        VALIDATE READ SUBFUNCTION
28799  M00S16749.cpumtr  +++|          SX1    B5+B1
28800  M00S16750.cpumtr  +++|          SB7    PST2        SET RETURN ADDRESS FOR *CLM*
28801  M00S16751.cpumtr  +++|          LX1    -1
28802  M00S16752.cpumtr  +++|          SB6    CLM1        RETURN ADDRESS FOR *INB*

Seq #  *Modification Id* Act 
----------------------------+
28803  M01S16753.283l840 ---|          NG     X1,INB      IF PRU READ OR DIRECT READ

Seq #  *Modification Id* Act 
----------------------------+
28804  M01S00162.283l840 +++|          NG     X1,INB      IF READ OPERATION
28805  M00S16754.cpumtr  +++|          SX2    BMWR        VALIDATE WRITE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
28806  M01S16755.283l840 ---|          EQ     INB         VALIDATE LINK AND INTERLOCK BUFFER

Seq #  *Modification Id* Act 
----------------------------+
28807  M01S00163.283l840 +++|          EQ     INB         INTERLOCK BUFFER
28808  M00S16756.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28809  M01S16757.251l664 ---| PST2     LX7    X6,B1
28810  M01S16758.251l664 ---|          MX3    -12
28811  M01S16759.251l664 ---|          BX6    -X3*X6
28812  M01S16760.251l664 ---|          NG     X7,/ECS/PIOR  IF BUFFER BUSY
28813  M01S16761.251l664 ---|          NZ     X6,PST4     IF BUFFER INTERLOCKED
28814  M01S16762.251l664 ---|          SA3    A5+2

Seq #  *Modification Id* Act 
----------------------------+
28815  M02S00880.271l716 ---| PST2     ZR     X6,PST2.1   IF BUFFER NOT INTERLOCKED

Seq #  *Modification Id* Act 
----------------------------+
28816  M01S01720.271l716 +++| PST2     ZR     X6,PST3     IF BUFFER NOT INTERLOCKED

Seq #  *Modification Id* Act 
----------------------------+
28817  M01S00881.251l664 +++|          SA3    A5+B1
28818  M01S00882.251l664 +++|          MX7    1

Seq #  *Modification Id* Act 
----------------------------+
28819  M01S00001.ns2507  +++|          SX2    B1+

Seq #  *Modification Id* Act 
----------------------------+
28820  M01S00883.251l664 +++|          LX3    59-6

Seq #  *Modification Id* Act 
----------------------------+
28821  M02S00884.ns2507  ---|          BX6    X3-X7

Seq #  *Modification Id* Act 
----------------------------+
28822  M01S00002.ns2507  +++|          BX2    X7+X2
28823  M01S00003.ns2507  +++|          BX6    -X2*X3

Seq #  *Modification Id* Act 
----------------------------+
28824  M02S00885.271l716 ---|          PL     X3,PST4     IF NOT *1MV* RECALL AFTER FLUSH
28825  M02S00886.271l716 ---|          BX1    X1-X1       CLEAR STATUS / HOLD WRITE BUFFER
28826  M02S00887.271l716 ---|          NG     B5,PST27    IF RESERVE WRITE BUFFER SUBFUNCTION

Seq #  *Modification Id* Act 
----------------------------+
28827  M01S01721.271l716 +++|          PL     X3,PST5     IF NOT *1MV* RECALL AFTER FLUSH
28828  M01S01722.271l716 +++|          BX1    X1-X1       CLEAR STATUS / HOLD WRITE BUFFER
28829  M01S01723.271l716 +++|          NG     B5,PST38    IF RESERVE WRITE BUFFER SUBFUNCTION

Seq #  *Modification Id* Act 
----------------------------+
28830  M01S00888.251l664 +++|          LX6    6-59
28831  M01S00889.251l664 +++|          MX1    60          CLEAR STATUS / CAUSE WRITE BUFFER RELEASE

Seq #  *Modification Id* Act 
----------------------------+
28832  M02S00890.ns2507  ---|          SA6    A3          CLEAR *1MV* FLUSH FLAG

Seq #  *Modification Id* Act 
----------------------------+
28833  M01S00004.ns2507  +++|          SA6    A3          CLEAR *1MV* ACTIVE AND LINK FLAGS

Seq #  *Modification Id* Act 
----------------------------+
28834  M02S00891.271l716 ---|          EQ     PST27       RELEASE BUFFER AND EXIT
28835  M02S00892.271l716 ---|
28836  M02S00893.271l716 ---| PST2.1   SA3    A5+2

Seq #  *Modification Id* Act 
----------------------------+
28837  M01S16763.271l716 ---|          SB6    PST3        SET PROGRAM MODE RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
28838  M01S01724.271l716 +++|          EQ     PST38       RELEASE BUFFER AND EXIT
28839  M01S01725.271l716 +++|
28840  M01S01726.271l716 +++| PST3     SA3    A5+2
28841  M01S01727.271l716 +++|          SB6    PST4        SET PROGRAM MODE RETURN ADDRESS
28842  M00S16764.cpumtr  +++|          PL     X3,/ECS/PIOP  IF SWITCH TO PROGRAM MODE REQUIRED
28843  M00S16765.cpumtr  +++|
28844  M00S16766.cpumtr  +++|*         REENTRY FROM PROGRAM MODE.
28845  M00S16767.cpumtr  +++|*         INITIATE READ OR WRITE.
28846  M00S16768.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28847  M01S16769.271l716 ---| PST3     SX0    BMWR*100B   ALLOCATE I/O BUFFER FOR WRITE

Seq #  *Modification Id* Act 
----------------------------+
28848  M01S01728.271l716 +++| PST4     SX0    BMWR*100B   ALLOCATE I/O BUFFER FOR WRITE

Seq #  *Modification Id* Act 
----------------------------+
28849  M01S16770.251l664 ---|          ERRNZ  BMWR-1      INDEX MUST ONE

Seq #  *Modification Id* Act 
----------------------------+
28850  M01S00894.251l664 +++|          ERRNZ  BMWR-1      CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
28851  M02S00895.cpum178 ---|          SX6    B5+1

Seq #  *Modification Id* Act 
----------------------------+
28852  M01S00001.cpum178 +++|          SX6    B5+B1
28853  M01S00002.cpum178 +++|          SA4    A5+B1       GET *STREAMED READ* FLAG
28854  M00S16771.cpumtr  +++|          LX5    6-36        CHECK FOR REWRITE

Seq #  *Modification Id* Act 
----------------------------+
28855  M01S16772.251l664 ---|          SX6    B5+B1
28856  M00S16773.cpumtr  +++|          BX2    X0*X5       0 = WRITE, 100 = REWRITE

Seq #  *Modification Id* Act 
----------------------------+
28857  M01S16774.271l716 ---|          SB7    PST4        SET RETURN ADDRESS FOR *CLM*

Seq #  *Modification Id* Act 
----------------------------+
28858  M01S01729.271l716 +++|          SB7    PST5        SET RETURN ADDRESS FOR *CLM*
28859  M00S16775.cpumtr  +++|          IX2    X2+X0       100 = WRITE, 200 = REWRITE
28860  M00S16776.cpumtr  +++|          ERRNZ  BMRW-BMWR-1 INDEXES MUST BE CONSECUTIVE
28861  M00S16777.cpumtr  +++|          LX6    -1
28862  M00S16778.cpumtr  +++|          PL     X6,CLM      IF PRU OR DIRECT WRITE OR RESERVE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
28863  M01S16779.251l664 ---|          SA4    A5+B1
28864  M00S16780.cpumtr  +++|          R=     X2,0+BMRD*100B
28865  M00S16781.cpumtr  +++|          NZ     B5,CLM      IF DIRECT READ
28866  M00S16782.cpumtr  +++|          LX4    59-9
28867  M00S16783.cpumtr  +++|          NG     X4,CLM      IF READ STREAMING ON PRU READ

Seq #  *Modification Id* Act 
----------------------------+
28868  M01S16784.251l664 ---|          R=     X2,1+BMRD*100B  READ ONE BUFFER IF NO STREAMING

Seq #  *Modification Id* Act 
----------------------------+
28869  M01S00896.251l664 +++|          SX2    1+BMRD*100B READ ONE BUFFER IF NO STREAMING
28870  M00S16785.cpumtr  +++|          EQ     CLM         CALL I/O BUFFER MANAGER
28871  M00S16786.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28872  M01S16787.271l716 ---| PST4     SX1    B0          RETURN STATUS = NO ERROR
28873  M01S16788.271l716 ---|          MX7    1
28874  M01S16789.271l716 ---|          NG     B5,PST27    IF RESERVE WRITE BUFFER SUBFUNCTION

Seq #  *Modification Id* Act 
----------------------------+
28875  M01S01730.271l716 +++| PST5     SX1    B0          RETURN STATUS = NO ERROR
28876  M01S01731.271l716 +++|          MX7    1
28877  M01S01732.271l716 +++|          NG     B5,PST38    IF RESERVE WRITE BUFFER SUBFUNCTION
28878  M00S16790.cpumtr  +++|
28879  M00S16791.cpumtr  +++|*         CALCULATE SECTOR CONTROL WORD ADDRESS.
28880  M00S16792.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28881  M01S16793.271l716 ---| PST5     SA4    A5+B1       GET BEGINNING SECTOR

Seq #  *Modification Id* Act 
----------------------------+
28882  M01S01733.271l716 +++| PST6     SA4    A5+B1       GET BEGINNING SECTOR
28883  M00S16794.cpumtr  +++|          MX2    -12
28884  M00S16795.cpumtr  +++|          SA1    A5+4        GET I/O BUFFER LINK (CONTROL BUFFER INDEX)
28885  M00S16796.cpumtr  +++|          MX3    -LSLBS      MOD 40B OF SECTOR
28886  M00S16797.cpumtr  +++|          LX4    -12
28887  M00S16798.cpumtr  +++|          BX4    -X2*X4
28888  M00S16799.cpumtr  +++|          LX1    CBTLS
28889  M00S16800.cpumtr  +++|          BX5    -X3*X4

Seq #  *Modification Id* Act 
----------------------------+
28890  M01S16801.271l716 ---|          SB7    X5+

Seq #  *Modification Id* Act 
----------------------------+
28891  M01S01734.271l716 +++|          SB7    X5
28892  M01S01735.271l716 +++|          MX7    -24
28893  M00S16802.cpumtr  +++|          AX5    CBTLS       SECTOR CONTROL WORD INDEX
28894  M00S16803.cpumtr  +++|          TA3    X1+IOLK,CBT BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
28895  M01S16804.271l716 ---|          MX7    -24
28896  M00S16805.cpumtr  +++|          IX1    X1+X5
28897  M00S16806.cpumtr  +++|          BX0    X3

Seq #  *Modification Id* Act 
----------------------------+
28898  M01S16807.251l664 ---|          TA3    X1,CBT      SECTOR CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
28899  M01S00897.251l664 +++|          TA3    X1+PAD1,CBT SECTOR CONTROL WORD
28900  M00S16808.cpumtr  +++|          BX6    X3
28901  M00S16809.cpumtr  +++|          SX1    B7
28902  M00S16810.cpumtr  +++|          BX0    -X7*X0      I/O BUFFER ADDRESS
28903  M00S16811.cpumtr  +++|          LX1    6           MOD 40B OF SECTOR * 100B
28904  M00S16812.cpumtr  +++|          SX7    B7          MOD 40B OF SECTOR
28905  M00S16813.cpumtr  +++|          MX4    -3
28906  M00S16814.cpumtr  +++|          IX0    X0+X1       FWA DATA IN I/O BUFFER

Seq #  *Modification Id* Act 
----------------------------+
28907  M01S01736.271l716 +++|          SX5    10000B
28908  M00S16815.cpumtr  +++|          BX7    -X4*X7      MOD 10B OF SECTOR

Seq #  *Modification Id* Act 
----------------------------+
28909  M01S01550.253l688 +++|          MX3    24

Seq #  *Modification Id* Act 
----------------------------+
28910  M01S16816.271l716 ---|          SX5    10000B
28911  M00S16817.cpumtr  +++|          SB4    X7
28912  M00S16818.cpumtr  +++|          LX5    B4          POSITION MASK BIT TO CURRENT SECTOR FLAG
28913  M00S16819.cpumtr  +++|          SX1    B5
28914  M00S16820.cpumtr  +++|          LX1    -1

Seq #  *Modification Id* Act 
----------------------------+
28915  M01S16821.271l716 ---|          PL     X1,PST6     IF PRU OR DIRECT READ

Seq #  *Modification Id* Act 
----------------------------+
28916  M02S16822.271l716 ---|          NZ     X7,PST6     IF NOT FIRST PRU OF SECTOR

Seq #  *Modification Id* Act 
----------------------------+
28917  M02S00898.271l716 ---|          NZ     X7,PST6     IF NOT FIRST PRU OF CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
28918  M01S16823.271l716 ---|          SA1    A5+
28919  M01S16824.271l716 ---|          LX1    59-36
28920  M01S16825.271l716 ---|          NG     X1,PST6     IF REWRITE

Seq #  *Modification Id* Act 
----------------------------+
28921  M02S16826.271l716 ---|          MX1    4

Seq #  *Modification Id* Act 
----------------------------+
28922  M02S00899.271l716 ---|          MX1    2

Seq #  *Modification Id* Act 
----------------------------+
28923  M01S16827.271l716 ---|          LX1    23-59

Seq #  *Modification Id* Act 
----------------------------+
28924  M02S16828.271l716 ---|          BX6    -X1*X6      CLEAR PARITY ERROR AND IGNORE DATA FLAGS

Seq #  *Modification Id* Act 
----------------------------+
28925  M02S00900.271l716 ---|          BX6    -X1*X6      CLEAR VALID DATA FLAGS

Seq #  *Modification Id* Act 
----------------------------+
28926  M01S16829.271l716 ---| PST6     GT     B5,B1,PST13 IF DIRECT READ OR WRITE

Seq #  *Modification Id* Act 
----------------------------+
28927  M01S01737.271l716 +++|          MX4    2
28928  M01S01738.271l716 +++|          PL     X1,PST7     IF PRU OR DIRECT READ
28929  M01S01739.271l716 +++|          NZ     X7,PST7     IF NOT FIRST PRU OF CONTROL WORD
28930  M01S01740.271l716 +++|          SA1    A5
28931  M01S01741.271l716 +++|          LX1    59-36
28932  M01S01742.271l716 +++|          NG     X1,PST7     IF REWRITE
28933  M01S01743.271l716 +++|          LX4    23-59
28934  M01S01744.271l716 +++|          BX6    -X4*X6      CLEAR VALID DATA FLAGS
28935  M01S01745.271l716 +++| PST7     GT     B5,B1,PST16 IF DIRECT READ OR WRITE
28936  M00S16830.cpumtr  +++|          SA4    A5+B1       GET PP BUFFER INCREMENT
28937  M00S16831.cpumtr  +++|          SB6    A0
28938  M00S16832.cpumtr  +++|          AX4    48
28939  M00S16833.cpumtr  +++|          TX4    X4,ECSB     FWA PP BUFFER
28940  M00S16834.cpumtr  +++|          LX0    30          SET UP FOR EXTENDED MEMORY READ/WRITE
28941  M00S16835.cpumtr  +++|          SA4    X4+B1       GET HEADER WORD
28942  M00S16836.cpumtr  +++|          SB4    B7-LSLB+1
28943  M00S16837.cpumtr  +++|          SX7    A4+B1       FWA DATA IN CM
28944  M00S16838.cpumtr  +++|          SB3    100B        SET WORD COUNT FOR TRANSFER
28945  M00S16839.cpumtr  +++|          BX0    X0+X7
28946  M00S16840.cpumtr  +++|          SA0    X7
28947  M00S16841.cpumtr  +++|          LX0    30          30/ABSOLUTE FWA, 30/FWA I/O BUFFER DATA

Seq #  *Modification Id* Act 
----------------------------+
28948  M01S16842.271l716 ---|          ZR     B5,PST10    IF PRU READ

Seq #  *Modification Id* Act 
----------------------------+
28949  M01S01746.271l716 +++|          ZR     B5,PST13    IF PRU READ
28950  M00S16843.cpumtr  +++|
28951  M00S16844.cpumtr  +++|*         UPDATE SECTOR CONTROL WORD FOR PRU WRITE.
28952  M00S16845.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28953  M01S16846.253l688 ---|          BX7    X4

Seq #  *Modification Id* Act 
----------------------------+
28954  M01S01551.253l688 +++|          BX7    X3*X4
28955  M00S16847.cpumtr  +++|          BX6    -X5*X6      CLEAR SHORT PRU FLAG
28956  M00S16848.cpumtr  +++|          LX4    12
28957  M00S16849.cpumtr  +++|          BX1    -X2*X4      SECTOR/TRACK LINKAGE
28958  M00S16850.cpumtr  +++|          LX4    12

Seq #  *Modification Id* Act 
----------------------------+
28959  M01S16851.251l664 ---|          NZ     B4,PST7     IF NOT LAST PRU IN SECTOR

Seq #  *Modification Id* Act 
----------------------------+
28960  M02S00901.271l716 ---|          NZ     B4,PST7     IF NOT LAST PRU OF CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
28961  M01S01747.271l716 +++|          NZ     B4,PST8     IF NOT LAST PRU OF CONTROL WORD
28962  M00S16852.cpumtr  +++|          BX6    X2*X6       SET LINKAGE BYTE IN CONTROL WORD
28963  M00S16853.cpumtr  +++|          BX6    X6+X1

Seq #  *Modification Id* Act 
----------------------------+
28964  M01S16854.271l716 ---| PST7     ZR     X1,PST9     IF EOF/EOI

Seq #  *Modification Id* Act 
----------------------------+
28965  M01S01748.271l716 +++| PST8     ZR     X1,PST11    IF EOF/EOI
28966  M00S16855.cpumtr  +++|          BX1    -X2*X4      WORD COUNT
28967  M00S16856.cpumtr  +++|          AX1    6

Seq #  *Modification Id* Act 
----------------------------+
28968  M01S16857.271l716 ---|          NZ     X1,PST8     IF FULL PRU

Seq #  *Modification Id* Act 
----------------------------+
28969  M01S01749.271l716 +++|          NZ     X1,PST9     IF FULL PRU

Seq #  *Modification Id* Act 
----------------------------+
28970  M01S16858.253l688 ---|          SA7    A4+B3       SAVE HEADER WORD AS LAST DATA WORD
28971  M01S16859.253l688 ---|          BX6    X6+X5       SET SHORT PRU FLAG

Seq #  *Modification Id* Act 
----------------------------+
28972  M01S01552.253l688 +++|          NO
28973  M01S01553.253l688 +++|          SA1    A4+B3
28974  M01S01554.253l688 +++|          BX6    X6+X5       SET SHORT PRU FLAG
28975  M01S01555.253l688 +++|          BX1    -X3*X1
28976  M01S01556.253l688 +++|          BX7    X7+X1       MERGE HEADER INTO LAST DATA WORD
28977  M01S01557.253l688 +++|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
28978  M01S16860.271l716 ---| PST8     SA6    A3          REWRITE SECTOR CONTROL WORD
28979  M01S16861.271l716 ---|          SB4    B1          SET PRU COUNT FOR TRANSFER
28980  M01S16862.271l716 ---|          EQ     PST18       TRANSFER DATA

Seq #  *Modification Id* Act 
----------------------------+
28981  M01S01750.271l716 +++| PST9     SA6    A3          REWRITE SECTOR CONTROL WORD
28982  M01S01751.271l716 +++|          SB4    B1          SET PRU COUNT FOR TRANSFER
28983  M01S01752.271l716 +++|          EQ     PST26       TRANSFER DATA
28984  M00S16863.cpumtr  +++|
28985  M00S16864.cpumtr  +++|*         WRITE EOI SECTOR AFTER DIRECT WRITE WHEN BUFFER FLUSH
28986  M00S16865.cpumtr  +++|*         REQUESTED.
28987  M00S16866.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
28988  M01S16867.271l716 ---| PST8.1   SA0    ESMB+1      USE PROGRAM MODE BUFFER FOR EOI DATA

Seq #  *Modification Id* Act 
----------------------------+
28989  M01S01753.271l716 +++| PST10    SA0    ESMB+1      USE PROGRAM MODE BUFFER FOR EOI DATA
28990  M00S16868.cpumtr  +++|          BX7    X7-X7       CLEAR FNT ENTRY IN EOI SECTOR
28991  M00S16869.cpumtr  +++|          SA4    A5+B1       GET EOI TRACK AND SECTOR
28992  M00S16870.cpumtr  +++|          MX1    12
28993  M00S16871.cpumtr  +++|          SA7    A0
28994  M00S16872.cpumtr  +++|          LX1    -12
28995  M00S16873.cpumtr  +++|          BX7    X1*X4       BUILD FST ENTRY FOR EOI SECTOR
28996  M00S16874.cpumtr  +++|          MX2    -24
28997  M00S16875.cpumtr  +++|          LX4    -12
28998  M00S16876.cpumtr  +++|          BX1    -X2*X4
28999  M00S16877.cpumtr  +++|          BX7    X1+X7
29000  M00S16878.cpumtr  +++|          LX7    12
29001  M00S16879.cpumtr  +++|          SA1    PDTL        GET PACKED DATE AND TIME
29002  M00S16880.cpumtr  +++|          SA7    A7+B1
29003  M00S16881.cpumtr  +++|          BX7    X1
29004  M00S16882.cpumtr  +++|          SX1    A0
29005  M00S16883.cpumtr  +++|          SA7    A7+B1
29006  M00S16884.cpumtr  +++|          LX1    30
29007  M00S16885.cpumtr  +++|          IX0    X0+X1
29008  M00S16886.cpumtr  +++|          SB3    B1
29009  M00S16887.cpumtr  +++|          MX1    -6
29010  M00S16888.cpumtr  +++|          SB5    B5+B1
29011  M00S16889.cpumtr  +++|          WE     3           WRITE EOI SECTOR SYSTEM INFORMATION
29012  M00S16890.cpumtr  +++|          RJ     HHE         HANG ON HALF-EXIT
29013  M00S16891.cpumtr  +++|          SA4    A0-B3       SET TO TRANSFER EOI LINKAGE
29014  M00S16892.cpumtr  +++|          BX7    X7-X7
29015  M00S16893.cpumtr  +++|          SX4    B0
29016  M00S16894.cpumtr  +++|          IX0    X0-X1       ADVANCE DATA TRANSFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
29017  M01S16895.271l716 ---| PST9     BX1    -X2*X4      NEXT SECTOR / TRACK LINKAGE

Seq #  *Modification Id* Act 
----------------------------+
29018  M01S01754.271l716 +++| PST11    BX1    -X2*X4      NEXT SECTOR / TRACK LINKAGE
29019  M00S16896.cpumtr  +++|          SA7    A4+B3       SAVE HEADER WORD AS LAST DATA WORD
29020  M00S16897.cpumtr  +++|          BX6    X6+X5       SET SHORT PRU FLAG

Seq #  *Modification Id* Act 
----------------------------+
29021  M02S00001.251l664 ---|          NZ     B4,PST9.1   IF NOT THE LAST PRU IN THE SECTOR

Seq #  *Modification Id* Act 
----------------------------+
29022  M02S00902.271l716 ---|          NZ     B4,PST9.1   IF NOT LAST PRU OF CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
29023  M01S16898.271l716 ---|          BX6    X6+X1       MERGE LINKAGE DATA

Seq #  *Modification Id* Act 
----------------------------+
29024  M02S16899.271l716 ---|          NZ     X1,PST8     IF EOF

Seq #  *Modification Id* Act 
----------------------------+
29025  M02S00002.271l716 ---| PST9.1   NZ     X1,PST8     IF EOF

Seq #  *Modification Id* Act 
----------------------------+
29026  M01S16900.271l716 ---|          SA2    A5+4        GET I/O BUFFER LINK
29027  M01S16901.271l716 ---|          SB4    PST8        SET RETURN ADDRESS FOR *IDE*

Seq #  *Modification Id* Act 
----------------------------+
29028  M01S01755.271l716 +++|          NZ     B4,PST12    IF NOT LAST PRU OF CONTROL WORD
29029  M01S01756.271l716 +++|          BX6    X6+X1       MERGE LINKAGE DATA
29030  M01S01757.271l716 +++| PST12    NZ     X1,PST9     IF EOF
29031  M01S01758.271l716 +++|          SA2    A5+4        GET I/O BUFFER LINK
29032  M01S01759.271l716 +++|          SB4    PST9        SET RETURN ADDRESS FOR *IDE*
29033  M00S16902.cpumtr  +++|          LX2    CBTLS
29034  M00S16903.cpumtr  +++|          SX7    B7
29035  M00S16904.cpumtr  +++|          TX3    X2+PAD1,CBT ADDRESS OF FIRST SECTOR CONTROL WORD
29036  M00S16905.cpumtr  +++|          EQ     IDE         SET FLAGS TO IGNORE DATA AFTER EOI
29037  M00S16906.cpumtr  +++|
29038  M00S16907.cpumtr  +++|*         BUILD HEADER WORD FOR PRU READ.
29039  M00S16908.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29040  M01S16909.271l716 ---| PST10    BX7    X5*X6       CHECK FOR SHORT PRU
29041  M01S16910.271l716 ---|          NZ     X7,PST11    IF SHORT PRU

Seq #  *Modification Id* Act 
----------------------------+
29042  M01S01760.271l716 +++| PST13    BX7    X5*X6       CHECK FOR SHORT PRU
29043  M01S01761.271l716 +++|          NZ     X7,PST14    IF SHORT PRU
29044  M00S16911.cpumtr  +++|          SA4    A5+B1
29045  M00S16912.cpumtr  +++|          SX1    B3+         WORD COUNT
29046  M00S16913.cpumtr  +++|          LX4    -12         GET CURRENT SECTOR
29047  M00S16914.cpumtr  +++|          BX4    -X2*X4
29048  M00S16915.cpumtr  +++|          LX1    36
29049  M00S16916.cpumtr  +++|          SX7    X4+B1       NEXT SECTOR
29050  M00S16917.cpumtr  +++|          LX7    -12
29051  M00S16918.cpumtr  +++|          BX7    X7+X1

Seq #  *Modification Id* Act 
----------------------------+
29052  M01S16919.251l664 ---|          NZ     B4,PST12    IF NOT LAST PRU IN SECTOR

Seq #  *Modification Id* Act 
----------------------------+
29053  M02S00903.271l716 ---|          NZ     B4,PST12    IF NOT LAST PRU OF CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
29054  M01S01762.271l716 +++|          NZ     B4,PST15    IF NOT LAST PRU OF CONTROL WORD
29055  M00S16920.cpumtr  +++|          BX7    -X2*X6      GET LINKAGE BYTE FROM CONTROL WORD
29056  M00S16921.cpumtr  +++|          LX7    -12
29057  M00S16922.cpumtr  +++|          BX7    X7+X1

Seq #  *Modification Id* Act 
----------------------------+
29058  M01S16923.271l716 ---|          EQ     PST12       SAVE HEADER WORD
29059  M01S16924.271l716 ---|
29060  M01S16925.271l716 ---| PST11    SX1    B3-B1       GET HEADER WORD FROM LAST DATA WORD

Seq #  *Modification Id* Act 
----------------------------+
29061  M01S01763.271l716 +++|          EQ     PST15       SAVE HEADER WORD
29062  M01S01764.271l716 +++|
29063  M01S01765.271l716 +++| PST14    SX1    B3-B1       GET HEADER WORD FROM LAST DATA WORD
29064  M00S16926.cpumtr  +++|          BX7    X0          SAVE (X0)
29065  M00S16927.cpumtr  +++|          LX0    30
29066  M00S16928.cpumtr  +++|          SB4    A0          SAVE (A0)
29067  M00S16929.cpumtr  +++|          AX0    30
29068  M00S16930.cpumtr  +++|          SA2    A5+2        GET PROGRAM/MONITOR MODE FLAG
29069  M00S16931.cpumtr  +++|          MX6    1
29070  M00S16932.cpumtr  +++|          BX2    X6*X2
29071  M00S16933.cpumtr  +++|          LX2    1
29072  M00S16934.cpumtr  +++|          SA0    ESMB+X2
29073  M00S16935.cpumtr  +++|          IX1    X0+X1
29074  M00S16936.cpumtr  +++|          SX0    A0
29075  M00S16937.cpumtr  +++|          LX0    30
29076  M00S16938.cpumtr  +++|          BX0    X0+X1
29077  M00S16939.cpumtr  +++|          RE     1           READ HEADER WORD
29078  M00S16940.cpumtr  +++|          RJ     HHE         HANG ON HALF-EXIT
29079  M00S16941.cpumtr  +++|          SA1    ESMB+X2
29080  M00S16942.cpumtr  +++|          SA0    B4+         RESTORE (A0)
29081  M00S16943.cpumtr  +++|          BX0    X7          RESTORE (X0)
29082  M00S16944.cpumtr  +++|          BX7    X1          MOVE HEADER WORD

Seq #  *Modification Id* Act 
----------------------------+
29083  M01S16945.271l716 ---| PST12    SA7    A0-B1       SAVE HEADER WORD IN PP BUFFER
29084  M01S16946.271l716 ---|          SB4    B1          SET PRU COUNT FOR TRANSFER
29085  M01S16947.271l716 ---|          EQ     PST19       TRANSFER DATA

Seq #  *Modification Id* Act 
----------------------------+
29086  M01S01766.271l716 +++| PST15    SA7    A0-B1       SAVE HEADER WORD IN PP BUFFER
29087  M01S01767.271l716 +++|          SB4    B1          SET PRU COUNT FOR TRANSFER
29088  M01S01768.271l716 +++|          EQ     PST29       TRANSFER DATA
29089  M00S16948.cpumtr  +++|
29090  M00S16949.cpumtr  +++|*         CALCULATE NUMBER OF PRUS (1 TO LSLB) TO TRANSFER THIS PASS.
29091  M00S16950.cpumtr  +++|*         FOR DIRECT READ OR WRITE.
29092  M00S16951.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29093  M01S16952.271l716 ---| PST13    SX1    B7-LSLB

Seq #  *Modification Id* Act 
----------------------------+
29094  M01S01769.271l716 +++| PST16    SX1    B7-LSLB
29095  M00S16953.cpumtr  +++|          SB5    B5-B1
29096  M00S16954.cpumtr  +++|          BX1    -X1
29097  M00S16955.cpumtr  +++|          SA4    A5          GET SECTOR COUNT
29098  M00S16956.cpumtr  +++|          SB4    X1
29099  M00S16957.cpumtr  +++|          SB3    B0
29100  M00S16958.cpumtr  +++|          LX4    59-38       CHECK FOR READ TO EOR
29101  M00S16959.cpumtr  +++|          SB6    B0

Seq #  *Modification Id* Act 
----------------------------+
29102  M01S16960.271l716 ---|          NG     X4,PST14    IF READ TO EOR

Seq #  *Modification Id* Act 
----------------------------+
29103  M01S01770.271l716 +++|          NG     X4,PST17    IF READ TO EOR
29104  M00S16961.cpumtr  +++|          AX4    24+59-38
29105  M00S16962.cpumtr  +++|          BX2    -X2*X4
29106  M00S16963.cpumtr  +++|          IX7    X2-X1

Seq #  *Modification Id* Act 
----------------------------+
29107  M01S16964.271l716 ---|          PL     X7,PST14    IF SECTOR COUNT NOT EXHAUSTED
29108  M01S16965.271l716 ---|          ZR     X2,PST8.1   IF WRITE EOI AFTER DIRECT TRANSFER
29109  M01S16966.271l716 ---|          SB4    X2
29110  M01S16967.271l716 ---| PST14    SX1    100B
29111  M01S16968.271l716 ---|          GT     B5,B1,PST15.1  IF DIRECT WRITE

Seq #  *Modification Id* Act 
----------------------------+
29112  M01S01771.271l716 +++|          PL     X7,PST17    IF SECTOR COUNT NOT EXHAUSTED
29113  M01S01772.271l716 +++|          ZR     X2,PST10    IF WRITE EOI AFTER DIRECT TRANSFER
29114  M01S01773.271l716 +++|          SB4    X2+0
29115  M01S01774.271l716 +++| PST17    SX1    100B
29116  M01S01775.271l716 +++|          GT     B5,B1,PST21 IF DIRECT WRITE
29117  M00S16969.cpumtr  +++|
29118  M00S16970.cpumtr  +++|*         PROCESS DIRECT READ.
29119  M00S16971.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29120  M01S16972.271l716 ---| PST14.1  LX5    59-20
29121  M01S16973.271l716 ---|          PL     X5,PST14.2  IF NOT END OF DISK SECTOR
29122  M01S16974.271l716 ---|          SA3    A3+B1       READ NEXT SECTOR CONTROL WORD
29123  M01S16975.271l716 ---|          SX5    B1
29124  M01S16976.271l716 ---|          LX5    12+59-20
29125  M01S16977.271l716 ---|          BX6    X3
29126  M01S16978.271l716 ---| PST14.2  LX5    -59+20

Seq #  *Modification Id* Act 
----------------------------+
29127  M01S01776.271l716 +++| PST18    LX5    59-20
29128  M01S01777.271l716 +++|          PL     X5,PST19    IF NOT END OF DISK SECTOR
29129  M01S01778.271l716 +++|          SX5    B1
29130  M01S01779.271l716 +++|          SA3    A3+1        GET NEXT SECTOR CONTROL WORD
29131  M01S01780.271l716 +++|          LX5    12+59-20
29132  M01S01781.271l716 +++|          BX6    X3
29133  M01S01782.271l716 +++| PST19    LX5    -59+20

Seq #  *Modification Id* Act 
----------------------------+
29134  M02S00001.251l664 ---|          SX2    1400B       CHECK THE ERROR FLAGS
29135  M00S16979.cpumtr  +++|          BX7    X5*X6       EXTRACT SHORT PRU FLAG

Seq #  *Modification Id* Act 
----------------------------+
29136  M01S16980.cpum102 ---|          LX5    1           POSITION SHORT PRU MASK FOR NEXT PRU

Seq #  *Modification Id* Act 
----------------------------+
29137  M02S00002.251l664 ---|          LX2    12
29138  M02S00003.251l664 ---|          BX2    X2*X6       EXTRACT THE ERROR FLAGS
29139  M02S00004.251l664 ---|          ZR     X2,PST14.3  IF NO ERRORS DURING THE READ FROM DISK
29140  M02S00005.251l664 ---|          SB4    B6+B1       STOP TRANSFER AT THIS SECTOR
29141  M02S00006.251l664 ---|          EQ     PST15       COMPLETE TRANSFER OF DATA
29142  M02S00007.251l664 ---|
29143  M02S00008.251l664 ---| PST14.3  LX5    1           POSITION SHORT PRU MASK FOR NEXT PRU

Seq #  *Modification Id* Act 
----------------------------+
29144  M01S00904.251l664 +++|          LX5    1           POSITION SHORT PRU MASK FOR NEXT PRU
29145  M00S16981.cpumtr  +++|          MX2    -12

Seq #  *Modification Id* Act 
----------------------------+
29146  M01S16982.271l716 ---|          ZR     X7,PST15    IF FULL PRU

Seq #  *Modification Id* Act 
----------------------------+
29147  M01S01783.271l716 +++|          ZR     X7,PST20    IF FULL PRU
29148  M00S16983.cpumtr  +++|          PL     X4,/PROGRAM/HNG  IF NOT READ TO EOR
29149  M00S16984.cpumtr  +++|          SX1    B6          GET HEADER WORD FROM LAST DATA WORD
29150  M00S16985.cpumtr  +++|          LX1    6

Seq #  *Modification Id* Act 
----------------------------+
29151  M01S01784.271l716 +++|          SB4    A0+0        SAVE (A0)
29152  M00S16986.cpumtr  +++|          SX1    X1+77B
29153  M00S16987.cpumtr  +++|          BX7    X0          SAVE (X0)

Seq #  *Modification Id* Act 
----------------------------+
29154  M01S16988.271l716 ---|          SB4    A0          SAVE (A0)
29155  M01S16989.271l716 ---|          LX0    30
29156  M01S16990.271l716 ---|          AX0    30
29157  M01S16991.271l716 ---|          SA0    ESMB+1      USE PROGRAM MODE BUFFER
29158  M01S16992.271l716 ---|          IX1    X0+X1
29159  M01S16993.271l716 ---|          SX0    A0

Seq #  *Modification Id* Act 
----------------------------+
29160  M01S01785.271l716 +++|          LX0    30
29161  M01S01786.271l716 +++|          SA0    ESMB+1      USE PROGRAM MODE BUFFER
29162  M01S01787.271l716 +++|          AX0    30
29163  M01S01788.271l716 +++|          IX1    X0+X1
29164  M01S01789.271l716 +++|          SX0    A0+0
29165  M00S16994.cpumtr  +++|          LX0    30
29166  M00S16995.cpumtr  +++|          BX0    X0+X1
29167  M00S16996.cpumtr  +++|          RE     1           READ HEADER WORD
29168  M00S16997.cpumtr  +++|          RJ     HHE         HANG ON HALF-EXIT
29169  M00S16998.cpumtr  +++|          SA1    ESMB+1
29170  M00S16999.cpumtr  +++|          SA0    B4          RESTORE (A0)
29171  M00S17000.cpumtr  +++|          BX0    X7          RESTORE (X0)
29172  M00S17001.cpumtr  +++|          SB4    B6+B1
29173  M00S17002.cpumtr  +++|          LX1    12
29174  M00S17003.cpumtr  +++|          BX7    -X2*X1
29175  M00S17004.cpumtr  +++|          AX1    48          WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
29176  M01S17005.271l716 ---|          NZ     X7,PST15    IF NOT EOF/EOI

Seq #  *Modification Id* Act 
----------------------------+
29177  M01S01790.271l716 +++|          NZ     X7,PST20    IF NOT EOF/EOI
29178  M00S17006.cpumtr  +++|          BX2    X1
29179  M00S17007.cpumtr  +++|          SX1    B0          WORD COUNT = 0

Seq #  *Modification Id* Act 
----------------------------+
29180  M01S17008.271l716 ---|          NZ     X2,PST15    IF EOF

Seq #  *Modification Id* Act 
----------------------------+
29181  M01S01791.271l716 +++|          NZ     X2,PST20    IF EOF
29182  M00S17009.cpumtr  +++|          SB6    B6-B1       RESET PRU COUNT TO PRECEED EOI
29183  M00S17010.cpumtr  +++|          SB4    B4-B1

Seq #  *Modification Id* Act 
----------------------------+
29184  M01S17011.271l716 ---| PST15    SB6    B6+B1
29185  M01S17012.271l716 ---|          SB3    B3+X1       INCREMENT WORD COUNT OF TRANSFER
29186  M01S17013.271l716 ---|          LT     B6,B4,PST14.1  IF MORE PRUS TO CHECK
29187  M01S17014.271l716 ---|          SB2    PST16       SET RETURN ADDRESS FOR *UDP*

Seq #  *Modification Id* Act 
----------------------------+
29188  M01S01792.271l716 +++| PST20    SB6    B6+B1
29189  M01S01793.271l716 +++|          SB3    B3+X1       INCREMENT WORD COUNT OF TRANSFER
29190  M01S01794.271l716 +++|          LT     B6,B4,PST18 IF MORE PRUS TO CHECK
29191  M01S01795.271l716 +++|          SB2    PST24       SET RETURN ADDRESS FOR *UDP*
29192  M00S17015.cpumtr  +++|          EQ     UDP         UPDATE DIRECT TRANSFER PARAMETERS
29193  M00S17016.cpumtr  +++|
29194  M00S17017.cpumtr  +++|*         PROCESS DIRECT WRITE.
29195  M00S17018.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29196  M01S17019.271l716 ---| PST15.1  LX5    59-20
29197  M01S17020.271l716 ---|          NG     X5,PST15.3  IF END OF DISK SECTOR
29198  M01S17021.271l716 ---|          LX5    -59+20
29199  M01S17022.271l716 ---| PST15.2  SB6    B6+B1

Seq #  *Modification Id* Act 
----------------------------+
29200  M01S01796.271l716 +++| PST21    LX5    59-20
29201  M01S01797.271l716 +++|          NG     X5,PST23    IF END OF DISK SECTOR
29202  M01S01798.271l716 +++|          LX5    -59+20
29203  M01S01799.271l716 +++| PST22    SB6    B6+B1
29204  M00S17023.cpumtr  +++|          BX6    -X5*X6      CLEAR SHORT PRU FLAG
29205  M00S17024.cpumtr  +++|          SB3    B3+X1       INCREMENT WORD COUNT
29206  M00S17025.cpumtr  +++|          LX5    1

Seq #  *Modification Id* Act 
----------------------------+
29207  M01S17026.271l716 ---|          LT     B6,B4,PST15.1  IF MORE PRUS
29208  M01S17027.271l716 ---|          SB2    PST16       SET RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
29209  M01S01800.271l716 +++|          LT     B6,B4,PST21 IF MORE PRUS
29210  M01S01801.271l716 +++|          SB2    PST24       SET RETURN ADDRESS
29211  M00S17028.cpumtr  +++|          SA6    A3          REWRITE SECTOR CONTROL WORD
29212  M00S17029.cpumtr  +++|          EQ     UDP         UPDATE DIRECT TRANSFER PARAMETERS
29213  M00S17030.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29214  M01S17031.271l716 ---| PST15.3  SA6    A3          STORE SECTOR CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
29215  M01S01802.271l716 +++| PST23    SA6    A3          STORE SECTOR CONTROL WORD
29216  M00S17032.cpumtr  +++|          SA4    A5          CHECK REWRITE STATUS
29217  M00S17033.cpumtr  +++|          SA3    A3+B1       READ NEXT SECTOR CONTROL WORD
29218  M00S17034.cpumtr  +++|          LX4    59-36
29219  M00S17035.cpumtr  +++|          SX5    10000B
29220  M00S17036.cpumtr  +++|          BX6    X3

Seq #  *Modification Id* Act 
----------------------------+
29221  M01S17037.251l664 ---|          MX7    4

Seq #  *Modification Id* Act 
----------------------------+
29222  M01S00905.251l664 +++|          MX7    2

Seq #  *Modification Id* Act 
----------------------------+
29223  M01S17038.271l716 ---|          NG     X4,PST15.2  IF REWRITE

Seq #  *Modification Id* Act 
----------------------------+
29224  M01S01803.271l716 +++|          NG     X4,PST22    IF REWRITE
29225  M00S17039.cpumtr  +++|          LX7    23-59

Seq #  *Modification Id* Act 
----------------------------+
29226  M01S17040.251l664 ---|          BX6    -X7*X6      CLEAR DISK ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
29227  M01S00906.251l664 +++|          BX6    -X7*X6      CLEAR VALID DATA FLAGS

Seq #  *Modification Id* Act 
----------------------------+
29228  M01S17041.271l716 ---|          EQ     PST15.2     CONTINUE PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
29229  M01S01804.271l716 +++|          EQ     PST22       CONTINUE PROCESSING
29230  M00S17042.cpumtr  +++|
29231  M00S17043.cpumtr  +++|*         *PIOM* DIRECT TRANSFER PARAMETERS UPDATED
29232  M00S17044.cpumtr  +++|*         (TRACK, SECTOR, SECTOR COUNT, SECTORS TRANSFERRED,
29233  M00S17045.cpumtr  +++|*         AND CM ADDRESS FOR TRANSFER).
29234  M00S17046.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29235  M01S17047.271l716 ---| PST16    SA0    X5          ABSOLUTE CM ADDRESS OF TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
29236  M01S01805.271l716 +++| PST24    SA0    X5          ABSOLUTE CM ADDRESS OF TRANSFER
29237  M00S17048.cpumtr  +++|          LX0    30
29238  M00S17049.cpumtr  +++|          MX7    -30
29239  M00S17050.cpumtr  +++|          BX0    X7*X0
29240  M00S17051.cpumtr  +++|          BX7    -X7*X5
29241  M00S17052.cpumtr  +++|          BX0    X0+X7
29242  M00S17053.cpumtr  +++|          LX0    30
29243  M00S17054.cpumtr  +++|          SX7    B5-B1
29244  M00S17055.cpumtr  +++|          MX2    -12
29245  M00S17056.cpumtr  +++|          SB5    B5+B1

Seq #  *Modification Id* Act 
----------------------------+
29246  M01S17057.271l716 ---|          ZR     X7,PST19    IF DIRECT READ
29247  M01S17058.271l716 ---|          SA1    A3          GET SECTOR CONTROL WORD
29248  M01S17059.271l716 ---|          MX7    -3
29249  M01S17060.271l716 ---|          PL     X6,PST17    IF ADVANCE TO NEXT TRACK
29250  M01S17061.271l716 ---|          SA4    A5+B1       GET NEXT SECTOR

Proceed to Part 23