308 Modifications

Seq #  *Modification Id* Act 
----------------------------+
38175  M00S23316.cpumtr  +++| WEI4     SA2    X3+
38176  M00S23317.cpumtr  +++|          SB6    X6

Seq #  *Modification Id* Act 
----------------------------+
38177  M01S23318.251l664 ---|          MX6    4

Seq #  *Modification Id* Act 
----------------------------+
38178  M01S01636.251l664 +++|          MX6    2
38179  M00S23319.cpumtr  +++|          SX7    X7-30B
38180  M00S23320.cpumtr  +++|          ERRNZ  LSLB-40B    CODE DEPENDS ON BUFFER SIZE
38181  M00S23321.cpumtr  +++|          LX6    23-59

Seq #  *Modification Id* Act 
----------------------------+
38182  M01S23322.251l664 ---|          BX2    -X6*X2      CLEAR PARITY ERROR AND IGNORE DATA FLAGS

Seq #  *Modification Id* Act 
----------------------------+
38183  M01S01637.251l664 +++|          BX2    -X6*X2      CLEAR DATA FLAGS
38184  M00S23323.cpumtr  +++|          NG     X7,WEI4.1   IF NOT IN LAST CONTROL WORD OF BUFFER
38185  M00S23324.cpumtr  +++|          MX6    48
38186  M00S23325.cpumtr  +++|          BX6    X6*X2       CLEAR LINK
38187  M00S23326.cpumtr  +++| WEI4.1   SX7    10000B      BUILD SHORT PRU MASK
38188  M00S23327.cpumtr  +++|          LX7    B6
38189  M00S23328.cpumtr  +++|          BX6    X2+X7
38190  M00S23329.cpumtr  +++|          SA6    X3          STORE HEADER
38191  M00S23330.cpumtr  +++|          SX6    1
38192  M00S23331.cpumtr  +++|          IX2    X4-X6       STORE FNT ENTRY IN EOI SECTOR
38193  M00S23332.cpumtr  +++|          ERX2   X2
38194  M00S23333.cpumtr  +++|          BX6    X2
38195  M00S23334.cpumtr  +++|          SA6    ERWB        SET UP BUFFER FOR WRITE
38196  M00S23335.cpumtr  +++|          ERX2   X4          STORE FST ENTRY IN EOI SECTOR
38197  M00S23336.cpumtr  +++|          BX6    X2
38198  M00S23337.cpumtr  +++|          SA6    A6+B1
38199  M00S23338.cpumtr  +++|          SB4    A0          SAVE (A0)
38200  M00S23339.cpumtr  +++|          SA2    PDTL        STORE PACKED DATE AND TIME IN EOI SECTOR
38201  M00S23340.cpumtr  +++|          BX7    X2
38202  M00S23341.cpumtr  +++|          SA7    A6+B1
38203  M00S23342.cpumtr  +++|          SA0    A6-B1       FWA TO BEGIN TRANSFER FROM (*ERWB*)
38204  M00S23343.cpumtr  +++|          SX6    A0
38205  M00S23344.cpumtr  +++|          LX6    30
38206  M00S23345.cpumtr  +++|          BX0    X0+X6       30/FWA FROM, 30/FWA I/O BUFFER DATA (TO)
38207  M00S23346.cpumtr  +++|          WE     3
38208  M00S23347.cpumtr  +++|          RJ     HHE         HANG ON HALF-EXIT
38209  M00S23348.cpumtr  +++|          MX7    -6
38210  M00S23349.cpumtr  +++|          BX6    X6-X6
38211  M00S23350.cpumtr  +++|          IX0    X0-X7
38212  M00S23351.cpumtr  +++|          SA6    A0
38213  M00S23352.cpumtr  +++|          WE     1
38214  M00S23353.cpumtr  +++|          RJ     HHE         HANG ON HALF-EXIT
38215  M00S23354.cpumtr  +++|          SA0    B4          RESTORE (A0)
38216  M00S23355.cpumtr  +++|          SB4    WEI5        RETURN ADDRESS FOR *IDE*
38217  M00S23356.cpumtr  +++|          BX0    X1          SAVE CURRENT SECTOR
38218  M00S23357.cpumtr  +++|          SB6    IDE         *CSP* RETURN ADDRESS
38219  M00S23358.cpumtr  +++|          EQ     CSP         CALCULATE SECTOR POSITION
38220  M00S23359.cpumtr  +++|
38221  M00S23360.cpumtr  +++| WEI5     ERX2   X4          GET EQUIPMENT AND CURRENT TRACK
38222  M00S23361.cpumtr  +++|          SB7    X6+         RESTORE (B7)
38223  M00S23362.cpumtr  +++|          MX6    12
38224  M00S23363.cpumtr  +++|          MX7    11
38225  M00S23364.cpumtr  +++|          BX6    X6*X2       EQUIPMENT
38226  M00S23365.cpumtr  +++|          LX7    -25
38227  M00S23366.cpumtr  +++|          BX7    X7*X2       CURRENT TRACK
38228  M00S23367.cpumtr  +++|          LX6    -12

Seq #  *Modification Id* Act 
----------------------------+
38229  M01S23368.ns2311  ---|          SA2    PMFF        CHECK FILE TYPE
38230  M00S23369.cpumtr  +++|          BX6    X6+X7

Seq #  *Modification Id* Act 
----------------------------+
38231  M01S23370.ns2311  ---|          MX7    1
38232  M01S23371.ns2311  ---|          NZ     X2,WEI6     IF NOT DIRECT ACCESS FILE
38233  M01S23372.ns2311  ---|          LX7    -12         SET DEVICE CHECKPOINT

Seq #  *Modification Id* Act 
----------------------------+
38234  M01S00001.ns2311  +++|
38235  M01S00002.ns2311  +++|*         SET THE CHECKPOINT BIT FOR THE DEVICE WHEN EXTENDING *LIFT*
38236  M01S00003.ns2311  +++|*         OR *PMFT* FILES.  CHECKPOINT IS SET FOR *LIFT* TO ENSURE
38237  M01S00004.ns2311  +++|*         THAT THE DEVICE IS CHECKPOINTED AFTER THE INDIRECT ACCESS
38238  M01S00005.ns2311  +++|*         PERMANENT FILE CHAIN IS EXTENDED BY *CPUPFM*.  EQUIVALENT
38239  M01S00006.ns2311  +++|*         LOGIC IS NOT NEEDED IN *1MS* BECAUSE INDIRECT ALLOCATION
38240  M01S00007.ns2311  +++|*         AND DEVICE CHECKPOINTING IS COMPLETELY MANAGED WITHIN *PFM*
38241  M01S00008.ns2311  +++|*         FOR NON-BUFFERED DEVICES.
38242  M01S00009.ns2311  +++|
38243  M01S00010.ns2311  +++|          SX2    B1          CHECK FILE TYPE
38244  M01S00011.ns2311  +++|          IX2    X4-X2
38245  M01S00012.ns2311  +++|          ERX2   X2
38246  M01S00013.ns2311  +++|          LX2    -6
38247  M01S00014.ns2311  +++|          MX7    -6
38248  M01S00015.ns2311  +++|          BX2    -X7*X2
38249  M01S00016.ns2311  +++|          SX7    X2-LIFT
38250  M01S00017.ns2311  +++|          ZR     X7,WEI5.1   IF *LIFT* FILE
38251  M01S00018.ns2311  +++|          SX7    X2-PMFT
38252  M01S00019.ns2311  +++|          NZ     X7,WEI6     IF NOT *PMFT* FILE
38253  M01S00020.ns2311  +++| WEI5.1   MX7    1           SET DEVICE CHECKPOINT
38254  M01S00021.ns2311  +++|          LX7    -12
38255  M00S23373.cpumtr  +++|          BX6    X6+X7
38256  M00S23374.cpumtr  +++| WEI6     LX0    12          EOI SECTOR
38257  M00S23375.cpumtr  +++|          BX6    X6+X0
38258  M00S23376.cpumtr  +++|          MONITOR  DTKM      DROP TRACKS AND SET EOI
38259  M00S23377.cpumtr  +++|          SA2    PCMS        UPDATE MASS STORAGE PRU CHANGE
38260  M00S23378.cpumtr  +++|          IX6    X2-X1
38261  M00S23379.cpumtr  +++|          SA6    A2
38262  M00S23380.cpumtr  +++| WEI7     MX2    1           SET INTERLOCK VALUE
38263  M00S23381.cpumtr  +++|          LX2    12
38264  M00S23382.cpumtr  +++|          EQ     RBI         RELEASE BUFFER INTERLOCK
38265  M00S23383.cpumtr  +++|
38266  M00S23384.cpumtr  +++| WEI8     SA3    LBIA        CHECK I/O BUFFER INTERLOCKED
38267  M00S23385.cpumtr  +++|          SB4    A0+
38268  M00S23386.cpumtr  +++|          ZR     X3,RB4      IF NO BUFFER INTERLOCKED
38269  M00S23387.cpumtr  +++|          SX1    B1          GET I/O BUFFER LINK
38270  M00S23388.cpumtr  +++|          IX1    X4+X1
38271  M00S23389.cpumtr  +++|          ERX1   X1
38272  M00S23390.cpumtr  +++|          MX6    -12
38273  M00S23391.cpumtr  +++|          BX6    -X6*X1
38274  M00S23392.cpumtr  +++|          SX2    B1          SET INTERLOCK VALUE
38275  M00S23393.cpumtr  +++|          ZR     X6,RBI      IF NO LINK IN FNT ENTRY
38276  M00S23394.cpumtr  +++|          SB6    WEI9        SET RETURN ADDRESS FOR *CSP*
38277  M00S23395.cpumtr  +++|          EQ     CSP         CALCULATE SECTOR POSITION
38278  M00S23396.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
38279  M01S23397.251l664 ---| WEI9     SX2    BMRB*100B   RELEASE READ BUFFER
38280  M01S23398.251l664 ---|          NG     X7,CIM      IF NEXT SECTOR IN SAME BUFFER

Seq #  *Modification Id* Act 
----------------------------+
38281  M01S01638.251l664 +++| WEI9     SA1    CHRV        ALLOW ACCESS TO OFF/SUSPECT DEVICE
38282  M01S01639.251l664 +++|          SX2    EPNS
38283  M01S01640.251l664 +++|          BX6    X2+X1
38284  M01S01641.251l664 +++|          SA6    A1
38285  M01S01642.251l664 +++|          SX2    BMRB*100B   RELEASE READ BUFFER
38286  M01S01643.251l664 +++|          NG     X7,CIM      IF NEXT SECTOR NOT IN SAME BUFFER
38287  M00S23399.cpumtr  +++|          SX7    X7-LSLB
38288  M00S23400.cpumtr  +++|          PL     X7,CIM      IF NEXT SECTOR NOT IN SAME BUFFER

Seq #  *Modification Id* Act 
----------------------------+
38289  M01S23401.251l664 ---|          SX2    B1          SET INTERLOCK VALUE

Seq #  *Modification Id* Act 
----------------------------+
38290  M01S01644.251l664 +++|          SX2    B1+         SET INTERLOCK VALUE
38291  M00S23402.cpumtr  +++|          EQ     RBI         RELEASE BUFFER INTERLOCK
38292  M00S23403.cpumtr  +++|
38293  M00S23404.cpumtr  +++|          ENDBLK

Seq #  *Modification Id* Act 
----------------------------+
38294  M01S23405.251l664 ---|          BLOCK  IHPFMD,(INTERRUPT HANDLER - PFMD AND/OR DEMA.)

Seq #  *Modification Id* Act 
----------------------------+
38295  M01S01645.251l664 +++|          BLOCK  IHPFMD,(NON-819 INTERRUPT HANDLER.)
38296  M00S23406.cpumtr  +++| BIO      SPACE  4,15
38297  M00S23407.cpumtr  +++|**        BIO - PROCESS *BIOM* MONITOR FUNCTION.
38298  M00S23408.cpumtr  +++|*
38299  M00S23409.cpumtr  +++|*         ENTRY  (A5) = OUTPUT REGISTER ADDRESS.
38300  M00S23410.cpumtr  +++|*                (X5) = OUTPUT REGISTER.
38301  M00S23411.cpumtr  +++|*
38302  M00S23412.cpumtr  +++|*         USES   X - ALL.

Seq #  *Modification Id* Act 
----------------------------+
38303  M01S23413.251l664 ---|*                A - 2, 3, 4, 5, 6, 7.
38304  M01S23414.251l664 ---|*                B - 4, 5.

Seq #  *Modification Id* Act 
----------------------------+
38305  M01S01646.251l664 +++|*                A - ALL.
38306  M01S01647.251l664 +++|*                B - 3, 4, 5.
38307  M00S23415.cpumtr  +++|*
38308  M00S23416.cpumtr  +++|*         CALLS  /BUFIO/DLB, /BUFIO/SBR,
38309  M00S23417.cpumtr  +++|*                /MONITOR/HNG, /MONITOR/PPRX.
38310  M00S23418.cpumtr  +++|
38311  M00S23419.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
38312  M01S23420.251l664 ---| BIO      MX0    12
38313  M01S23421.251l664 ---|          LX0    -12
38314  M01S23422.251l664 ---|          BX1    X0*X5       SUBFUNCTION
38315  M01S23423.251l664 ---|          BX6    -X0*X5      CLEAR SUBFUNCTION
38316  M01S23424.251l664 ---|          ZR     X1,BIO1     IF NO SUBFUNCTION SPECIFIED
38317  M01S23425.251l664 ---|          LX0    -12
38318  M01S23426.251l664 ---|          LX1    -36
38319  M01S23427.251l664 ---|          BX7    X0*X5       CONTROL BUFFER ORDINAL (1)
38320  M01S23428.251l664 ---|          LX7    -24
38321  M01S23429.251l664 ---|          EQ     BIO2        PROCESS SUBFUNCTION
38322  M01S23430.251l664 ---|
38323  M01S23431.251l664 ---| BIO1     LX0    -24
38324  M01S23432.251l664 ---|          R=     X1,IOCS     SET I/O COMPLETE
38325  M01S23433.251l664 ---|          BX7    X0*X5       CONTROL BUFFER ORDINAL (2)
38326  M01S23434.251l664 ---|          BX6    -X0*X5      CLEAR CONTROL BUFFER ORDINAL (2)
38327  M01S23435.251l664 ---|          LX7    -12
38328  M01S23436.251l664 ---|          NZ     X7,BIO2     IF I/O COMPLETE REQUEST PRESENT
38329  M01S23437.251l664 ---|          LX0    -12
38330  M01S23438.251l664 ---|          BX7    X0*X5       CONTROL BUFFER ORDINAL (3)
38331  M01S23439.251l664 ---|          BX6    -X0*X5      CLEAR CONTROL BUFFER ORDINAL (3)
38332  M01S23440.251l664 ---|          ZR     X7,BIO3     IF NO I/O COMPLETE REQUEST PRESENT
38333  M01S23441.251l664 ---| BIO2     SA6    A5          CLEAR REQUEST
38334  M01S23442.251l664 ---|          SB4    X1-TBIOL-1
38335  M01S23443.251l664 ---|          LX7    CBTLS
38336  M01S23444.251l664 ---|          PL     B4,/MONITOR/HNG  IF ILLEGAL SUBFUNCTION
38337  M01S23445.251l664 ---|          JP     TBIO+TBIOL+B4  JUMP TO PROCESSOR
38338  M01S23446.251l664 ---|
38339  M01S23447.251l664 ---| BIO3     MX0    -48         CLEAR RESPONSE
38340  M01S23448.251l664 ---|          BX6    -X0*X5
38341  M01S23449.251l664 ---|          SA6    A5+
38342  M01S23450.251l664 ---|          EQ     /MONITOR/PPRX  EXIT

Seq #  *Modification Id* Act 
----------------------------+
38343  M01S01648.251l664 +++| BIO      LX5    -24         POSITION *PUT* ORDINAL
38344  M01S01649.251l664 +++|          MX0    -12
38345  M01S01650.251l664 +++|          BX6    -X0*X5
38346  M01S01651.251l664 +++|          AX1    36          EXTRACT SUB-FUNCTION
38347  M01S01652.251l664 +++|          ZR     X6,/MONITOR/HNG  IF INVALID *PUT* ORDINAL
38348  M01S01653.251l664 +++|          TX2    X6-1,-NRUN
38349  M01S01654.251l664 +++|          PL     X2,/MONITOR/HNG  IF INVALID *PUT* ORDINAL
38350  M01S01655.251l664 +++|          LX6    PUTLS
38351  M01S01656.251l664 +++|          SX3    A5          OUTPUT REGISTER ADDRESS
38352  M01S01657.251l664 +++|          TA4    X6+PILL,PUT
38353  M01S01658.251l664 +++|          BX7    -X0*X4      CHECK UNIT INTERLOCK
38354  M01S01659.251l664 +++|          IX2    X7-X3
38355  M01S01660.251l664 +++|          ZR     X1,TBIO     IF *SUIS* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
38356  M02S01661.ns2454  ---|          SX6    A4-PILL+UNCT

Seq #  *Modification Id* Act 
----------------------------+
38357  M01S00015.ns2454  +++|          ERRNZ  SUIS        CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
38358  M02S00016.252l678 ---|          SX6    X1-PCIS
38359  M02S00017.252l678 ---|          ZR     X6,BIO1     IF *PCIS* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
38360  M01S01662.251l664 +++|          NZ     X2,/MONITOR/HNG  IF NOT ASSIGNED THIS PP

Seq #  *Modification Id* Act 
----------------------------+
38361  M02S00018.252l678 ---| BIO1     SX6    A4-PILL+UNCT

Seq #  *Modification Id* Act 
----------------------------+
38362  M01S00753.252l678 +++|          SX6    A4-PILL+UNCT

Seq #  *Modification Id* Act 
----------------------------+
38363  M01S01663.251l664 +++|          SB4    X1-TBIOL
38364  M01S01664.251l664 +++|          SA6    PUTA        SAVE *PUT* ADDRESS
38365  M01S01665.251l664 +++|          LX5    -48
38366  M01S01666.251l664 +++|          MX2    -11
38367  M01S01667.251l664 +++|          JP     TBIO+TBIOL+B4  EXIT TO PROCESSOR
38368  M00S23451.cpumtr  +++|
38369  M00S23452.cpumtr  +++|*         ENTER PROCESSOR WITH -
38370  M00S23453.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
38371  M01S23454.251l664 ---|*         (X7) = CONTROL BUFFER ADDRESS - FWA OF *CBT*.

Seq #  *Modification Id* Act 
----------------------------+
38372  M01S01668.251l664 +++|*         (A4) = ADDRESS OF *PILL* WORD.
38373  M01S01669.251l664 +++|*         (A6) = ADDRESS OF *PUTA*.
38374  M01S01670.251l664 +++|*         (X0) = 48 BIT MASK.
38375  M01S01671.251l664 +++|*         (X2) = 49 BIT MASK.
38376  M01S01672.251l664 +++|*         (X4) = *PILL* WORD OF *PUT* ENTRY.
38377  M01S01673.251l664 +++|*         (X5) = PP OUTPUT REGISTER SHIFTED LEFT -12.
38378  M01S01674.251l664 +++|*         (X6) = *PUT* ADDRESS OF *UNCT* WORD.
38379  M01S01675.251l664 +++|*         (X7) = BYTE 4 OF *PILL* WORD.
38380  M00S23455.cpumtr  +++|
38381  M00S23456.cpumtr  +++| TBIO     BSS    0
38382  M00S23457.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
38383  M01S23458.251l664 ---|          TA4    X7+IOLK,CBT
38384  M01S23459.251l664 ---|          EQ     BIO10       I/O LINKUP
38385  M01S23460.251l664 ---|
38386  M01S23461.251l664 ---|          TA1    X7+HSLK,CBT
38387  M01S23462.251l664 ---|          EQ     BIO20       I/O COMPLETE
38388  M01S23463.251l664 ---|
38389  M01S23464.251l664 ---|          TA4    X7+HSLK,CBT
38390  M01S23465.251l664 ---|          EQ     BIO30       CLEAR UNIT INTERLOCK
38391  M01S23466.251l664 ---|

Seq #  *Modification Id* Act 
----------------------------+
38392  M01S01676.251l664 +++|          BSS    0           FORCE UPPER
38393  M01S01677.251l664 +++| SUIS     EQU    *-TBIO
38394  M01S01678.251l664 +++| SUIS     EQU    //SUIS      ENSURE SUBFUNCTION CORRECT
38395  M01S01679.251l664 +++|          LX7    36
38396  M01S01680.251l664 +++|          MX0    1
38397  M01S01681.251l664 +++|          EQ     BIO10       SET UNIT INTERLOCK
38398  M01S01682.251l664 +++|
38399  M01S01683.251l664 +++|          BSS    0           FORCE UPPER
38400  M01S01684.251l664 +++| DCBS     EQU    *-TBIO
38401  M01S01685.251l664 +++| DCBS     EQU    //DCBS      ENSURE SUBFUNCTION CORRECT
38402  M01S01686.251l664 +++|          SX7    BIO24

Seq #  *Modification Id* Act 
----------------------------+
38403  M02S01687.252l678 ---|          TEQ    (/PROBE/IOS,/IHPFMD/BIO20,PROBE)  UPDATE *PROBE* TABLE

Seq #  *Modification Id* Act 
----------------------------+
38404  M01S00754.252l678 +++|          TEQ    (/PROBE/IOS,PROBE,/IHPFMD/BIO20)  UPDATE *PROBE* TABLE

Seq #  *Modification Id* Act 
----------------------------+
38405  M01S01688.251l664 +++|
38406  M01S01689.251l664 +++|          BSS    0           FORCE UPPER
38407  M01S01690.251l664 +++| SETS     EQU    *-TBIO
38408  M01S01691.251l664 +++| SETS     EQU    //SETS      ENSURE SUBFUNCTION CORRECT
38409  M01S01692.251l664 +++|          SA3    X6
38410  M01S01693.251l664 +++|          LX3    -12
38411  M01S01694.251l664 +++|          EQ     BIO30       SET ERROR STATUS IN *CBT*
38412  M01S01695.251l664 +++|
38413  M01S01696.251l664 +++|          BSS    0           FORCE UPPER
38414  M01S01697.251l664 +++| IDSS     EQU    *-TBIO
38415  M01S01698.251l664 +++| IDSS     EQU    //IDSS      ENSURE SUBFUNCTION CORRECT
38416  M01S01699.251l664 +++|          SX7    BIO40
38417  M01S01700.251l664 +++|          EQ     BIO20       INHIBIT DATA STREAMING

Seq #  *Modification Id* Act 
----------------------------+
38418  M02S00019.252l678 ---|
38419  M02S00020.252l678 ---|          BSS    0           FORCE UPPER
38420  M02S00021.252l678 ---| PCIS     EQU    *-TBIO
38421  M02S00022.252l678 ---| PCIS     EQU    //PCIS      ENSURE SUBFUNCTION CORRECT
38422  M02S00023.252l678 ---|          SA1    X6          READ *UNCT* WORD
38423  M02S00024.252l678 ---|          LX5    12
38424  M02S00025.252l678 ---|          EQ     BIO50       PROCESS CHANNEL IDLE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
38425  M01S00325.251l670 +++|
38426  M01S00326.251l670 +++|          BSS    0           FORCE UPPER
38427  M01S00327.251l670 +++| CETS     EQU    *-TBIO
38428  M01S00328.251l670 +++| CETS     EQU    //CETS      ENSURE SUBFUNCTION CORRECT
38429  M01S00329.251l670 +++|          SA1    X6
38430  M01S00330.251l670 +++|          BX2    -X0*X1
38431  M01S00331.251l670 +++|          EQ     BIO60       CLEAR ERROR STATUS FROM I/O QUEUE

Seq #  *Modification Id* Act 
----------------------------+
38432  M01S01701.251l664 +++|
38433  M01S01702.251l664 +++|          BSS    0           FORCE UPPER
38434  M00S23467.cpumtr  +++| TBIOL    EQU    *-TBIO
38435  M00S23468.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
38436  M01S23469.251l664 ---|*         I/O LINKUP.
38437  M01S23470.251l664 ---|
38438  M01S23471.251l664 ---| BIO10    TA1    X7+PAD1,CBT

Seq #  *Modification Id* Act 
----------------------------+
38439  M02S23472.251l664 ---|          SX6    B1

Seq #  *Modification Id* Act 
----------------------------+
38440  M01S23473.251l664 ---|          SA3    A4+B1
38441  M01S23474.251l664 ---|          ERRNZ  HSLK-IOLK-1 INDEXES MUST BE CONSECUTIVE
38442  M01S23475.251l664 ---|          SA2    A5+B1       READ *MB*
38443  M01S23476.251l664 ---|          PL     X4,BIO11    IF I/O INTERLOCK NOT SET
38444  M01S23477.251l664 ---|          MX0    -12
38445  M01S23478.251l664 ---|          MX5    36
38446  M01S23479.251l664 ---|          BX3    -X0*X3      *PUT* ORDINAL
38447  M01S23480.251l664 ---|          BX7    X5*X1       PHYSICAL ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
38448  M02S23481.251l664 ---|          MX0    -6

Seq #  *Modification Id* Act 
----------------------------+
38449  M01S23482.251l664 ---|          BX7    X7+X3
38450  M01S23483.251l664 ---|          MX5    -57
38451  M01S23484.251l664 ---|          BX7    X2-X7
38452  M01S23485.251l664 ---|          LX3    PUTLS

Seq #  *Modification Id* Act 
----------------------------+
38453  M02S23486.251l664 ---|          SA2    A5-B1       READ INPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
38454  M01S23487.251l664 ---|          NZ     X7,BIO11    IF ADDRESS/*PUT* ORDINAL DO NOT MATCH

Seq #  *Modification Id* Act 
----------------------------+
38455  M02S23488.251l664 ---|          LX6    56

Seq #  *Modification Id* Act 
----------------------------+
38456  M02S00001.251l664 ---|          TA2    X3+PILL,PUT READ PP INTERLOCK WORD

Seq #  *Modification Id* Act 
----------------------------+
38457  M01S23489.251l664 ---|          BX7    -X5*X1      CLEAR ERROR FLAGS

Seq #  *Modification Id* Act 
----------------------------+
38458  M02S23490.251l664 ---|          BX6    X6+X4       SET I/O LINKUP

Seq #  *Modification Id* Act 
----------------------------+
38459  M02S00002.251l664 ---|          SX6    A5
38460  M02S00003.251l664 ---|          BX0    -X0*X2      EXTRACT PP OUTPUT REGISTER ADDRESS
38461  M02S00004.251l664 ---|          SX5    B1
38462  M02S00005.251l664 ---|          ZR     X0,BIO10.1  IF NO PP HAS THE INTERLOCK
38463  M02S00006.251l664 ---|          BX0    X6-X0
38464  M02S00007.251l664 ---|          NZ     X0,BIO11    IF NOT THE SAME PP
38465  M02S00008.251l664 ---| BIO10.1  LX5    56
38466  M02S00009.251l664 ---|          BX6    X6+X2       *OR* IN THE PP OUTPUT REGISTER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
38467  M01S23491.251l664 ---|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
38468  M02S00010.251l664 ---|          SA6    A2
38469  M02S00011.251l664 ---|          MX0    -6
38470  M02S00012.251l664 ---|          SA2    A5-B1       READ INPUT REGISTER
38471  M02S00013.251l664 ---|          BX6    X5+X4       SET I/O LINKUP

Seq #  *Modification Id* Act 
----------------------------+
38472  M01S23492.251l664 ---|          LX2    -30
38473  M01S23493.251l664 ---|          SA6    A4
38474  M01S23494.251l664 ---|          BX7    -X0*X2      *CCT* ORDINAL
38475  M01S23495.251l664 ---|          MX1    1
38476  M01S23496.251l664 ---|          LX7    CCTLS
38477  M01S23497.251l664 ---|          TA3    X3+UNCT,PUT
38478  M01S23498.251l664 ---|          TA2    X7+CREQ,CCT
38479  M01S23499.251l664 ---|          SX0    B1
38480  M01S23500.251l664 ---|          SA4    A2+B1
38481  M01S23501.251l664 ---|          ERRNZ  CCNT-CREQ-1 INDEXES MUST BE CONSECUTIVE
38482  M01S23502.251l664 ---|          BX7    X1+X2       SET CHANNEL BUSY
38483  M01S23503.251l664 ---|          BX6    X1+X3       SET UNIT BUSY
38484  M01S23504.251l664 ---|          SA7    A2
38485  M01S23505.251l664 ---|          SA6    A3
38486  M01S23506.251l664 ---|          IX7    X4+X0       INCREMENT CHANNEL REQUEST COUNT
38487  M01S23507.251l664 ---|          LX7    59-35
38488  M01S23508.251l664 ---|          NG     X7,BIO11    IF ACCUMULATOR OVERFLOW
38489  M01S23509.251l664 ---|          LX7    35-59
38490  M01S23510.251l664 ---|          SA7    A4
38491  M01S23511.251l664 ---| BIO11    SA5    A5
38492  M01S23512.251l664 ---|          EQ     BIO         PROCESS NEXT REQUEST
38493  M01S23513.251l664 ---|
38494  M01S23514.251l664 ---|*         I/O COMPLETE.
38495  M01S23515.251l664 ---|
38496  M01S23516.251l664 ---| BIO20    TA4    X7+IOLK,CBT
38497  M01S23517.251l664 ---|          MX0    -12
38498  M01S23518.251l664 ---|          SX6    B1
38499  M01S23519.251l664 ---|          TA3    X7,CBT      CONTROL BUFFER ADDRESS
38500  M01S23520.251l664 ---|          BX1    -X0*X1      *PUT* ORDINAL
38501  M01S23521.251l664 ---|          LX4    -57
38502  M01S23522.251l664 ---|          LX1    PUTLS
38503  M01S23523.251l664 ---|          LX3    -58
38504  M01S23524.251l664 ---|          BX4    X6*X4       WRITE FLAG
38505  M01S23525.251l664 ---|          SB5    B0          *DLB* CONTROL
38506  M01S23526.251l664 ---|          BX3    X3*X4
38507  M01S23527.251l664 ---|          IX4    X1+X4
38508  M01S23528.251l664 ---|          NZ     X3,BIO22    IF WRITE OPERATION AND NOT READY
38509  M01S23529.251l664 ---|          ERRNZ  WTST-RDST-1 INDEXES MUST BE CONSECUTIVE
38510  M01S23530.251l664 ---|          TA2    X1+UNCT,PUT *PUT* ENTRY

Seq #  *Modification Id* Act 
----------------------------+
38511  M02S00004.251l664 ---|          MX6    12          CHECK BUFFER COUNT
38512  M02S00005.251l664 ---|          LX6    -24

Seq #  *Modification Id* Act 
----------------------------+
38513  M01S23531.251l664 ---|          SB3    BIO21       *DLB* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
38514  M02S00006.251l664 ---|          BX6    X6*X2
38515  M02S00007.251l664 ---|          ZR     X6,/MONITOR/HNG  IF BUFFER COUNT ERROR

Seq #  *Modification Id* Act 
----------------------------+
38516  M01S23532.251l664 ---|          TA1    X4+RDST,PUT UPDATE *PUT* STATISTICS

Seq #  *Modification Id* Act 
----------------------------+
38517  M02S23533.251l664 ---|          SX6    PSLB*2      PHYSICAL SECTOR COUNT
38518  M02S23534.251l664 ---|          IX6    X1+X6       INCREMENT ACCUMULATOR

Seq #  *Modification Id* Act 
----------------------------+
38519  M03S00440.251l664 ---|          SA4    /BUFIO/ANBD

Seq #  *Modification Id* Act 
----------------------------+
38520  M01S01703.251l664 +++|*         SET UNIT INTERLOCK.
38521  M01S01704.251l664 +++|
38522  M01S01705.251l664 +++| BIO10    NZ     X7,/MONITOR/PPR1  IF *PUT* ENTRY INTERLOCKED
38523  M01S01706.251l664 +++|          BX6    X4+X3
38524  M01S01707.251l664 +++|          SA6    A4          SET INTERLOCKING PPOR ADDRESS
38525  M01S01708.251l664 +++|          SA2    A4-PILL+UNCT
38526  M01S01709.251l664 +++|          BX6    X0+X2       SET UNIT INTERLOCK FLAG
38527  M01S01710.251l664 +++|          SA6    A2
38528  M01S01711.251l664 +++|          EQ     /MONITOR/PPR1  EXIT
38529  M01S01712.251l664 +++|
38530  M01S01713.251l664 +++|*         DELINK CONTROL BUFFER(S) / INHIBIT DATA STREAMING.
38531  M01S01714.251l664 +++|

Seq #  *Modification Id* Act 
----------------------------+
38532  M02S01715.251l670 ---| BIO20    SA7    PUTA+1      SAVE PROCESSOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
38533  M01S00332.251l670 +++| BIO20    SA7    PADD        SAVE PROCESSOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
38534  M01S01716.251l664 +++|          BX6    -X2*X5

Seq #  *Modification Id* Act 
----------------------------+
38535  M01S00755.252l678 +++|          ERRNZ  CBCT-PUTA-2 CODE DEPENDS ON VALUES

Seq #  *Modification Id* Act 
----------------------------+
38536  M01S01717.251l664 +++|          SA6    A7+B1       BUFFER COUNT
38537  M01S01718.251l664 +++| BIO21    SA4    CBCT        DECREMENT BUFFER COUNT
38538  M01S01719.251l664 +++|          SX6    X4-1
38539  M01S01720.251l664 +++|          ZR     X4,BIO27    IF REQUEST COMPLETE
38540  M01S01721.251l664 +++|          SA1    PUTA
38541  M01S01722.251l664 +++|          SA2    X1          FETCH *UNCT* WORD FROM *PUT*
38542  M01S01723.251l664 +++|          MX0    -12
38543  M01S01724.251l664 +++|          BX5    X2          PRESERVE (X2) FOR *DLB*
38544  M01S01725.251l664 +++|          SA6    A4
38545  M01S01726.251l664 +++|          SA3    A4-B1       RETRIEVE PROCESSOR ADDRESS
38546  M01S01727.251l664 +++|          AX5    12
38547  M01S01728.251l664 +++|          SB4    X3
38548  M01S01729.251l664 +++|          BX7    -X0*X5      EXTRACT CURRENT CONTROL BUFFER ORDINAL
38549  M01S01730.251l664 +++|          SX6    B1
38550  M01S01731.251l664 +++|          LX7    CBTLS
38551  M01S01732.251l664 +++|          ZR     X7,/MONITOR/HNG  IF I/O QUEUE EMPTY
38552  M01S01733.251l664 +++|          TA4    X7+IOLK,CBT
38553  M01S01734.251l664 +++|          JP     B4          EXIT TO PROCESSOR
38554  M01S01735.251l664 +++|
38555  M01S01736.251l664 +++|*         DELINK CONTROL BUFFER(S).
38556  M01S01737.251l664 +++|
38557  M01S01738.251l664 +++| BIO24    SA3    STAT
38558  M01S01739.251l664 +++|          NZ     X3,BIO25    IF CALLED VIA *SETS* SUBFUNCTION
38559  M01S01740.251l664 +++|          SA3    A4+B1       READ *HSLK* WORD
38560  M01S01741.251l664 +++|          ERRNZ  HSLK-IOLK-1  CODE DEPENDS ON VALUE
38561  M01S01742.251l664 +++|          MX0    -48
38562  M01S01743.251l664 +++|          BX7    -X0*X3      CLEAR ERROR DATA
38563  M01S01744.251l664 +++|          SA7    A3
38564  M01S01745.251l664 +++| BIO25    SA3    A4-IOLK
38565  M01S01746.251l664 +++|          LX4    -57         EXTRACT WRITE FLAG

Seq #  *Modification Id* Act 
----------------------------+
38566  M02S01747.252l678 ---|          BX4    X6*X4
38567  M02S01748.252l678 ---|          SB5    B0          *DLB* CONTROL
38568  M02S01749.252l678 ---|          IX4    X1+X4

Seq #  *Modification Id* Act 
----------------------------+
38569  M01S00756.252l678 +++|          BX7    X6*X4       WRITE FLAG
38570  M01S00757.252l678 +++|          ERRNZ  HSCT-1      CODE DEPENDS ON VALUE
38571  M01S00758.252l678 +++|          SA4    X1+B1
38572  M01S00759.252l678 +++|          IX7    X1+X7       ACCUMULATOR ADDRESS + WRITE FLAG

Seq #  *Modification Id* Act 
----------------------------+
38573  M01S01750.251l664 +++|          ERRNZ  RDST+1-WTST INDICES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
38574  M02S01751.252l678 ---|          SA1    X4+RDST

Seq #  *Modification Id* Act 
----------------------------+
38575  M01S00760.252l678 +++|          SA1    X7+RDST     ACCUMULATOR WORD
38576  M01S00761.252l678 +++|          AX4    54          PHYSICAL SECTORS PER BUFFER

Seq #  *Modification Id* Act 
----------------------------+
38577  M01S01752.251l664 +++|          SB3    BIO26       *DLB* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
38578  M02S00002.251l670 ---|          TA4    SPBB        PHYSICAL SECTORS PER I/O BUFFER

Seq #  *Modification Id* Act 
----------------------------+
38579  M01S00441.241l630 +++|          IX6    X1+X4       INCREMENT ACCUMULATOR
38580  M00S23535.cpumtr  +++|          LX6    59-35
38581  M00S23536.cpumtr  +++|          NG     X6,/BUFIO/DLB  IF ACCUMULATOR OVERFLOW
38582  M00S23537.cpumtr  +++|          LX6    35-59
38583  M00S23538.cpumtr  +++|          SA6    A1          UPDATE ACCUMULATOR
38584  M00S23539.cpumtr  +++|          EQ     /BUFIO/DLB  DELETE BUFFER
38585  M00S23540.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
38586  M01S23541.251l664 ---| BIO21    SB3    BIO11       *SBR* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
38587  M01S01753.251l664 +++| BIO26    SB3    BIO21       *SBR* RETURN ADDRESS
38588  M00S23542.cpumtr  +++|          EQ     /BUFIO/SBR  SET BUFFER RECALL
38589  M00S23543.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
38590  M01S23544.251l664 ---| BIO22    TA3    X7+IOLK,CBT CLEAR I/O LINKUP
38591  M01S23545.251l664 ---|          MX6    59
38592  M01S23546.251l664 ---|          LX6    56
38593  M01S23547.251l664 ---|          BX7    X6*X3
38594  M01S23548.251l664 ---|          SA7    A3
38595  M01S23549.251l664 ---|          EQ     BIO11       PROCESS NEXT REQUEST
38596  M01S23550.251l664 ---|
38597  M01S23551.251l664 ---|*         CLEAR UNIT INTERLOCK.
38598  M01S23552.251l664 ---|
38599  M01S23553.251l664 ---| BIO30    SA2    A5-B1       READ INPUT REGISTER
38600  M01S23554.251l664 ---|          MX0    -12
38601  M01S23555.251l664 ---|          MX7    -6
38602  M01S23556.251l664 ---|          BX4    -X0*X4      *PUT* ORDINAL
38603  M01S23557.251l664 ---|          LX2    -30
38604  M01S23558.251l664 ---|          LX4    PUTLS

Seq #  *Modification Id* Act 
----------------------------+
38605  M02S00014.251l664 ---|          TA3    X4+PILL,PUT READ PP INTERLOCK WORD

Seq #  *Modification Id* Act 
----------------------------+
38606  M01S23559.251l664 ---|          BX7    -X7*X2      *CCT* ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
38607  M02S00015.251l664 ---|          BX6    X0*X3       CLEAR PP INTERLOCK BYTE

Seq #  *Modification Id* Act 
----------------------------+
38608  M01S23560.251l664 ---|          SA5    A5

Seq #  *Modification Id* Act 
----------------------------+
38609  M02S00016.251l664 ---|          SA6    A3

Seq #  *Modification Id* Act 
----------------------------+
38610  M01S23561.251l664 ---|          TA4    X4+UNCT,PUT
38611  M01S23562.251l664 ---|          LX7    CCTLS
38612  M01S23563.251l664 ---|          MX1    -59
38613  M01S23564.251l664 ---|          TA2    X7+CREQ,CCT
38614  M01S23565.251l664 ---|          BX6    -X1*X4      CLEAR UNIT BUSY
38615  M01S23566.251l664 ---|          BX7    -X1*X2      CLEAR CHANNEL BUSY
38616  M01S23567.251l664 ---|          SA6    A4
38617  M01S23568.251l664 ---|          SA7    A2
38618  M01S23569.251l664 ---|          EQ     BIO         PROCESS NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
38619  M01S01754.251l664 +++| BIO27    SA5    A5          CHECK INTERLOCK FLAG
38620  M01S01755.251l664 +++|          LX5    59-23
38621  M01S01756.251l664 +++|          PL     X5,BIO29    IF NOT CLEARING UNIT INTERLOCK
38622  M01S01757.251l664 +++| BIO28    SA4    PUTA
38623  M01S01758.251l664 +++|          MX1    -59         SET MASKS
38624  M01S01759.251l664 +++|          MX0    -12
38625  M01S01760.251l664 +++|          SA3    X4-UNCT+PILL  FETCH PP INTERLOCK WORD
38626  M01S01761.251l664 +++|          BX6    X0*X3
38627  M01S01762.251l664 +++|          SA6    A3          CLEAR PP INTERLOCK
38628  M01S01763.251l664 +++|          SA4    X4+
38629  M01S01764.251l664 +++|          BX6    -X1*X4      CLEAR UNIT BUSY
38630  M01S01765.251l664 +++|          SA6    A4
38631  M01S01766.251l664 +++| BIO29    BX7    X7-X7       CLEAR OUTPUT REGISTER IMAGE
38632  M01S01767.251l664 +++|          SA2    STAT        SET REPLY STATUS
38633  M01S01768.251l664 +++|          SA7    A2
38634  M01S01769.251l664 +++|          BX7    X2
38635  M01S01770.251l664 +++|          SA7    A5
38636  M01S01771.251l664 +++|          EQ     /MONITOR/PPRX  RETURN
38637  M01S01772.251l664 +++|
38638  M01S01773.251l664 +++|*         PROCESS I/O ERROR.
38639  M01S01774.251l664 +++|
38640  M01S01775.251l664 +++| BIO30    BX2    -X0*X3      EXTRACT CURRENT *CBT* ORDINAL
38641  M01S01776.251l664 +++|          LX2    CBTLS       *CBT* INDEX
38642  M01S01777.251l664 +++|          TA4    X2+HSLK,CBT
38643  M01S01778.251l664 +++|          MX7    -48
38644  M01S01779.251l664 +++|          LX5    12
38645  M01S01780.251l664 +++|          BX7    -X7*X4      CLEAR *HSLK* ERROR PROCESSING DATA
38646  M01S01781.251l664 +++|          LX3    -24
38647  M01S01782.251l664 +++|          BX3    -X0*X3      EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
38648  M02S01783.261l700 ---|          LX3    1
38649  M02S01784.261l700 ---|          ERRNZ  ESTE-2      CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
38650  M03S01785.261l700 ---|          TA3    X3+EQDE,EST
38651  M03S01786.261l700 ---|          BX1    -X0*X5      ERROR CODE
38652  M03S01787.261l700 ---|          LX3    -36         POSITION CHANNEL BYTE
38653  M03S01788.261l700 ---|          BX6    -X0*X3
38654  M03S01789.261l700 ---|          MX2    2

Seq #  *Modification Id* Act 
----------------------------+
38655  M03S00333.261l700 ---|          LX3    -12         EXTRACT CONCURRENT CHANNEL FLAG
38656  M03S00334.261l700 ---|          SX5    40B
38657  M03S00335.261l700 ---|          BX5    X5*X3

Seq #  *Modification Id* Act 
----------------------------+
38658  M04S01790.261l700 ---|          BX2    X2*X4       I/O ERROR + CHANNEL SELECTION FLAGS
38659  M04S01791.261l700 ---|          LX6    48+6
38660  M04S01792.261l700 ---|          SA3    A5-B1       READ INPUT REGISTER
38661  M04S01793.261l700 ---|          BX3    -X0*X3      EXTRACT CALLER-S CHANNEL
38662  M04S01794.261l700 ---|          NG     X4,BIO33    IF I/O ERROR FLAG ALREADY SET
38663  M04S01795.261l700 ---|          MX0    -5
38664  M04S01796.261l700 ---|          BX5    -X0*X6      CHANNEL 2 FROM EST
38665  M04S01797.261l700 ---|          LX0    X4,B1
38666  M04S01798.261l700 ---|          ZR     X5,BIO32    IF SINGLE ACCESS DEVICE
38667  M04S01799.261l700 ---|          SA4    A4-B1
38668  M04S01800.261l700 ---|          ERRNZ  HSLK-IOLK-1 CODE DEPENDS ON VALUE
38669  M04S01801.261l700 ---|          NG     X0,BIO32    IF DEVICE VERIFICATION CALL
38670  M04S01802.261l700 ---|          BX0    X3-X5

Seq #  *Modification Id* Act 
----------------------------+
38671  M03S00336.261l700 ---|          SA3    A5-B1       READ INPUT REGISTER
38672  M03S00337.261l700 ---|          BX2    X2*X4       I/O ERROR + CHANNEL SELECTION FLAGS
38673  M03S00338.261l700 ---|          SB3    X1-DDFE
38674  M03S00339.261l700 ---|          BX3    -X0*X3      EXTRACT CALLERS CHANNEL
38675  M03S00340.261l700 ---|          LX6    48+6
38676  M03S00341.261l700 ---|          NG     X4,BIO35    IF I/O ERROR FLAG ALREADY SET
38677  M03S00342.261l700 ---|          MX0    -5
38678  M03S00343.261l700 ---|          BX3    -X5*X3
38679  M03S00344.261l700 ---|          BX0    -X0*X6      CHANNEL 2 FROM EST
38680  M03S00345.261l700 ---|          LX4    1
38681  M03S00346.261l700 ---|          ZR     X0,BIO32    IF SINGLE ACCESS DEVICE
38682  M03S00347.261l700 ---|          NG     X4,BIO32    IF DEVICE VERIFICATION CALL
38683  M03S00348.261l700 ---|          BX0    X3-X0

Seq #  *Modification Id* Act 
----------------------------+
38684  M03S01803.261l700 ---|          ZR     X0,BIO31    IF CALLER ON CHANNEL 2
38685  M03S01804.261l700 ---|          LX6    54
38686  M03S01805.261l700 ---| BIO31    NG     X6,BIO32    IF CHANNEL 1 DOWN
38687  M03S01806.261l700 ---|          AX6    54
38688  M03S01807.261l700 ---|          SX3    X6

Seq #  *Modification Id* Act 
----------------------------+
38689  M02S00762.261l700 ---|          TA1    X3+EQDE,EST

Seq #  *Modification Id* Act 
----------------------------+
38690  M01S00137.261l700 +++|          CX1    X3,EST      CONVERT EST ORDINAL TO OFFSET
38691  M01S00138.261l700 +++|          TA1    X1+EQDE,EST

Seq #  *Modification Id* Act 
----------------------------+
38692  M01S00763.252l678 +++|          BX6    -X0*X5      EXTRACT ERROR CODE
38693  M01S00764.252l678 +++|          MX2    2
38694  M01S00765.252l678 +++|          SA3    A5-B1       READ INPUT REGISTER
38695  M01S00766.252l678 +++|          BX2    X2*X4
38696  M01S00767.252l678 +++|          LX1    24+3        POSITION SECONDARY CHANNEL BYTE
38697  M01S00768.252l678 +++|          SB3    X6-DDFE
38698  M01S00769.252l678 +++|          BX3    -X0*X3
38699  M01S00770.252l678 +++|          NG     X2,BIO35    IF I/O ERROR FLAG ALREADY SET
38700  M01S00771.252l678 +++|          LX4    1

Seq #  *Modification Id* Act 
----------------------------+
38701  M02S00772.253l688 ---|          LX6    54

Seq #  *Modification Id* Act 
----------------------------+
38702  M01S01595.253l688 +++|          LX6    48

Seq #  *Modification Id* Act 
----------------------------+
38703  M01S00773.252l678 +++|          NG     X4,BIO32    IF DEVICE VERIFICATION CALL
38704  M01S00774.252l678 +++|          LX0    48+3
38705  M01S00775.252l678 +++|          MX4    3           FORM CHANNEL MASK
38706  M01S00776.252l678 +++|          BX0    X4+X0
38707  M01S00777.252l678 +++|          BX5    -X0*X1      CHECK SECONDARY CHANNEL ACCESSIBLE
38708  M01S00778.252l678 +++|          SB5    X5-4
38709  M01S00779.252l678 +++|          LX1    -12
38710  M01S00780.252l678 +++|          BX4    -X0*X1      PRIMARY CHANNEL DATA
38711  M01S00781.252l678 +++|          SB4    X4-4
38712  M01S00782.252l678 +++|          AX4    48+3        PRIMARY CHANNEL
38713  M01S00783.252l678 +++|          BX1    X4-X3
38714  M01S00784.252l678 +++|          AX5    48+3        SECONDARY CHANNEL
38715  M01S00785.252l678 +++|          ZR     X1,BIO31    IF CALLER ON PRIMARY CHANNEL
38716  M01S00786.252l678 +++|          NZ     B4,BIO32    IF PRIMARY CHANNEL UNAVAILABLE
38717  M01S00787.252l678 +++|          SX3    X4          SELECT PRIMARY CHANNEL
38718  M01S00788.252l678 +++|          EQ     BIO32       CONTINUE
38719  M01S00789.252l678 +++|
38720  M01S00790.252l678 +++| BIO31    NZ     B5,BIO32    IF SECONDARY CHANNEL UNAVAILABLE
38721  M01S00791.252l678 +++|          SX3    X5+         SELECT SECONDARY CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
38722  M02S01808.253l688 ---| BIO32    LX3    48          CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
38723  M01S01596.253l688 +++| BIO32    LX3    54          CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
38724  M01S01809.251l664 +++|          MX0    1           I/O ERROR FLAG
38725  M01S01810.251l664 +++|          BX0    X2+X0       I/O ERROR + FORCED CHANNEL SELECTION FLAGS

Seq #  *Modification Id* Act 
----------------------------+
38726  M02S01811.252l678 ---|          BX6    X3+X0       MERGE FLAGS AND CHANNEL
38727  M02S01812.252l678 ---|          LX1    54          POSITION ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
38728  M02S00792.253l688 ---|          BX1    X3+X0

Seq #  *Modification Id* Act 
----------------------------+
38729  M01S00793.252l678 +++|          LX4    X2,B1       POSITION FORCED CHANNEL SELECTION

Seq #  *Modification Id* Act 
----------------------------+
38730  M02S01813.253l688 ---|          BX6    X6+X1

Seq #  *Modification Id* Act 
----------------------------+
38731  M01S01597.253l688 +++|          SA1    A4-HSLK+PAD4
38732  M01S01598.253l688 +++|          MX5    -54
38733  M01S01599.253l688 +++|          BX6    X6+X0       COMBINE FLAGS AND ERROR CODE
38734  M01S01600.253l688 +++|          BX1    -X5*X1      CLEAR CHANNEL FIELD

Seq #  *Modification Id* Act 
----------------------------+
38735  M02S01814.251l670 ---|          BX6    X7+X6       MERGE ERROR DATA INTO *HSLK*
38736  M02S01815.251l670 ---|          SA6    A4+B1       UPDATE *HSLK*
38737  M02S01816.251l670 ---|          ERRNZ  HSLK-IOLK-1 CODE DEPENDS ON VALUE
38738  M02S01817.251l670 ---|          EQ     BIO28       CLEAR *PUT* INTERLOCK
38739  M02S01818.251l670 ---|
38740  M02S01819.251l670 ---| BIO33    SA4    A4-B1
38741  M02S01820.251l670 ---|          ERRNZ  HSLK-IOLK-1 CODE DEPENDS ON VALUE
38742  M02S01821.251l670 ---|          SX0    X1-NRDE

Seq #  *Modification Id* Act 
----------------------------+
38743  M01S00349.251l670 +++|          BX6    X7+X6       MERGE ERROR DATA INTO *HSLK*

Seq #  *Modification Id* Act 
----------------------------+
38744  M02S00350.253l688 ---|          SA6    A4

Seq #  *Modification Id* Act 
----------------------------+
38745  M01S01601.253l688 +++|          SA6    A4+
38746  M01S01602.253l688 +++|          BX7    X1+X3       MERGE CHANNEL INTO *PAD4*
38747  M01S01603.253l688 +++|          SA7    A1+

Seq #  *Modification Id* Act 
----------------------------+
38748  M01S00351.251l670 +++|          NG     X4,BIO33    IF DEVICE VERIFICATION CALL
38749  M01S00352.251l670 +++|          NZ     B3,BIO28    IF ERROR NOT DIAGNOSTIC FAILURE
38750  M01S00353.251l670 +++| BIO33    SA5    A5          REREAD OUTPUT REGISTER
38751  M01S00354.251l670 +++|          SX7    B1
38752  M01S00355.251l670 +++|          LX7    23-0        FORCE CLEARING OF *PUT* INTERLOCK
38753  M01S00356.251l670 +++|          BX6    X5+X7
38754  M01S00357.251l670 +++|          SA6    A5
38755  M01S00358.251l670 +++|          MX2    -11
38756  M01S00359.251l670 +++|          LX7    36-23       SET REPLY STATUS
38757  M01S00360.251l670 +++|          SX5    B1
38758  M01S00361.251l670 +++|          SA7    STAT
38759  M01S00362.251l670 +++|          JP     TBIO+DCBS   DELINK CURRENT CONTROL BUFFER
38760  M01S00363.251l670 +++|

Seq #  *Modification Id* Act 
----------------------------+
38761  M02S00364.253l688 ---| BIO35    SA4    A4-B1
38762  M02S00365.253l688 ---|          ERRNZ  IOLK+1-HSLK CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
38763  M03S01822.253l688 ---|          LX1    54
38764  M03S01823.253l688 ---|          BX6    X2+X1
38765  M03S01824.253l688 ---|          MX1    1
38766  M03S01825.253l688 ---|          BX6    X6+X1       SET I/O ERROR FLAG

Seq #  *Modification Id* Act 
----------------------------+
38767  M02S00794.253l688 ---|          LX6    54

Seq #  *Modification Id* Act 
----------------------------+
38768  M01S01604.253l688 +++| BIO35    SA4    A4-HSLK+IOLK
38769  M01S01605.253l688 +++|          LX6    48          POSITION ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
38770  M01S00795.252l678 +++|          BX6    X2+X6       ERROR CODE + FORCED CHANNEL SELECTION

Seq #  *Modification Id* Act 
----------------------------+
38771  M02S01826.253l688 ---|          LX3    48          POSITION CHANNEL
38772  M02S01827.253l688 ---|          BX6    X6+X3       MERGE CHANNEL

Seq #  *Modification Id* Act 
----------------------------+
38773  M01S01606.253l688 +++|          LX3    54          POSITION CHANNEL
38774  M01S01607.253l688 +++|          SA1    A4-IOLK+PAD4

Seq #  *Modification Id* Act 
----------------------------+
38775  M01S01828.251l664 +++|          BX6    X6+X7       MERGE ERROR DATA INTO *HSLK*

Seq #  *Modification Id* Act 
----------------------------+
38776  M01S01608.253l688 +++|          MX5    -54
38777  M01S01609.253l688 +++|          BX1    -X5*X1      CLEAR CHANNEL FIELD
38778  M01S01610.253l688 +++|          BX7    X1+X3       MERGE CHANNEL INTO *PAD4*

Seq #  *Modification Id* Act 
----------------------------+
38779  M02S01829.251l670 ---|          R=     X1,DCBS     SET *DELINK CONTROL BUFFERS* SUBFUNCTION

Seq #  *Modification Id* Act 
----------------------------+
38780  M01S00366.251l670 +++|          LX4    59-57

Seq #  *Modification Id* Act 
----------------------------+
38781  M02S01830.253l688 ---|          SA6    A4+B1       UPDATE *HSLK*
38782  M02S01831.253l688 ---|          ERRNZ  HSLK-IOLK-1 CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
38783  M01S01611.253l688 +++|          SA6    A4-IOLK+HSLK  UPDATE *HSLK*
38784  M01S01612.253l688 +++|          SA7    A1+         UPDATE *PAD4*

Seq #  *Modification Id* Act 
----------------------------+
38785  M02S01832.251l670 ---|          LX1    36          POSITION NEW SUBFUNCTION
38786  M02S01833.251l670 ---|          SX2    B1
38787  M02S01834.251l670 ---|          LX4    59-57
38788  M02S01835.251l670 ---|          LX2    23-0
38789  M02S01836.251l670 ---|          PL     X4,BIO34    IF READ OPERATION
38790  M02S01837.251l670 ---|          ZR     X0,BIO28    IF *NOT READY* DURING WRITE
38791  M02S01838.251l670 ---| BIO34    MX0    -48
38792  M02S01839.251l670 ---|          SA5    A5
38793  M02S01840.251l670 ---|          LX0    -12
38794  M02S01841.251l670 ---|          BX6    -X0*X5      CLEAR OLD SUBFUNCTION
38795  M02S01842.251l670 ---|          BX6    X6+X1       ADD NEW SUBFUNCTION
38796  M02S01843.251l670 ---|          BX6    X6+X2       SET *CLEAR INTERLOCK* FLAG
38797  M02S01844.251l670 ---|          SA6    A5+         UPDATE PP OUTPUT REGISTER
38798  M02S01845.251l670 ---|          LX2    36-23       SET REPLY STATUS
38799  M02S01846.251l670 ---|          BX7    X2
38800  M02S01847.251l670 ---|          SA7    STAT
38801  M02S01848.251l670 ---|          EQ     BIO         EXECUTE *DCBS* SUBFUNCTION

Seq #  *Modification Id* Act 
----------------------------+
38802  M01S00367.251l670 +++|          PL     X4,BIO33    IF READ OPERATION

Seq #  *Modification Id* Act 
----------------------------+
38803  M01S00001.cpum173 +++|          SB3    B3+DDFE-PARE
38804  M01S00002.cpum173 +++|          ZR     B3,BIO33    IF MEDIA ERROR

Seq #  *Modification Id* Act 
----------------------------+
38805  M01S00038.cpum159 +++|          BX3    X6
38806  M01S00039.cpum159 +++|          LX3    59-58
38807  M01S00040.cpum159 +++|          NG     X3,BIO33    IF DEVICE VERIFICATION REQUEST

Seq #  *Modification Id* Act 
----------------------------+
38808  M01S00368.251l670 +++|          SA3    PUTA
38809  M01S00369.251l670 +++|          LX4    57-59-24    POSITION FORWARD LINK FOR I/O QUEUE

Seq #  *Modification Id* Act 
----------------------------+
38810  M02S00370.cpum159 ---|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
38811  M02S00371.253l688 ---|          SA1    X3          FETCH *UNCT* WORD FROM *PUT*

Seq #  *Modification Id* Act 
----------------------------+
38812  M01S01613.253l688 +++|          SA1    X3+         FETCH *UNCT* WORD FROM *PUT*

Seq #  *Modification Id* Act 
----------------------------+
38813  M01S00372.251l670 +++|          BX2    -X0*X4

Seq #  *Modification Id* Act 
----------------------------+
38814  M01S00041.cpum159 +++|          LX0    12

Seq #  *Modification Id* Act 
----------------------------+
38815  M01S00373.251l670 +++|          SB6    BIO37

Seq #  *Modification Id* Act 
----------------------------+
38816  M02S00374.cpum159 ---|          LX0    12          CLEAR CURRENT *CB* ORDINAL
38817  M02S00375.cpum159 ---|          BX6    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
38818  M01S00042.cpum159 +++|          BX3    -X0*X1      CURRENT CBT ORDINAL
38819  M01S00043.cpum159 +++|          LX3    CBTLS-12
38820  M01S00044.cpum159 +++|          TA3    X3+LSLK,CBT
38821  M01S00045.cpum159 +++|          MX6    -6
38822  M01S00046.cpum159 +++|          MX5    -24
38823  M01S00047.cpum159 +++|          LX6    18
38824  M01S00048.cpum159 +++|          BX5    -X5*X3      RECALL DATA
38825  M01S00049.cpum159 +++|          BX6    -X6*X3      RECALL CONTROL POINT NUMBER
38826  M01S00050.cpum159 +++|          ZR     X5,BIO36    IF RECALL NOT SET
38827  M01S00051.cpum159 +++|          ZR     X6,BIO33    IF PP IN RECALL
38828  M01S00052.cpum159 +++| BIO36    BX6    X0*X1       CLEAR CURRENT BUFFER ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
38829  M01S00376.251l670 +++|          EQ     /BUFIO/SCB  SELECT CURRENT BUFFER
38830  M01S00377.251l670 +++|
38831  M01S00378.251l670 +++| BIO37    SA6    A1+

Seq #  *Modification Id* Act 
----------------------------+
38832  M01S00796.252l678 +++|          SX7    B1          SET REPLY STATUS
38833  M01S00797.252l678 +++|          LX7    36-0
38834  M01S00798.252l678 +++|          SA7    STAT

Seq #  *Modification Id* Act 
----------------------------+
38835  M01S00379.251l670 +++|          EQ     BIO28       CLEAR *PUT* INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
38836  M01S01849.251l664 +++|
38837  M01S01850.251l664 +++|*         INHIBIT DATA STREAMING.
38838  M01S01851.251l664 +++|
38839  M01S01852.251l664 +++| BIO40    LX6    53-0
38840  M01S01853.251l664 +++|          BX6    X6+X4       SET INHIBIT FLAG
38841  M01S01854.251l664 +++|          SA6    A4+
38842  M01S01855.251l664 +++|          EQ     BIO21       PROCESS NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
38843  M02S00026.252l678 ---|
38844  M02S00027.252l678 ---|*         PROCESS CHANNEL IDLE REQUEST.
38845  M02S00028.252l678 ---|
38846  M02S00029.252l678 ---| BIO50    BX5    -X0*X5      CHANNEL NUMBER
38847  M02S00030.252l678 ---|          LX1    -36
38848  M02S00031.252l678 ---|          LX5    48
38849  M02S00032.252l678 ---|          BX2    -X0*X1      EST ORDINAL
38850  M02S00033.252l678 ---|          ERRNZ  ESTE-2      CODE DEPENDS ON VALUE
38851  M02S00034.252l678 ---|          LX2    1
38852  M02S00035.252l678 ---|          TA2    X2+EQDE,EST READ EST ENTRY
38853  M02S00036.252l678 ---|          SX7    B1          PRESET REJECT STATUS
38854  M02S00037.252l678 ---|          SX3    37B
38855  M02S00038.252l678 ---|          BX2    -X0*X2      MST ADDRESS/10B
38856  M02S00039.252l678 ---|          LX3    48
38857  M02S00040.252l678 ---|          LX2    3
38858  M02S00041.252l678 ---|          LX7    36
38859  M02S00042.252l678 ---|          SA2    X2+STLL
38860  M02S00043.252l678 ---|          LX2    59-43
38861  M02S00044.252l678 ---|          NG     X2,/MONITOR/PPR1  IF *1MV* ACTIVE
38862  M02S00045.252l678 ---|          MX6    2
38863  M02S00046.252l678 ---| BIO51    LX1    -24
38864  M02S00047.252l678 ---|          BX7    -X0*X1      ORDINAL OF NEXT IN QUEUE
38865  M02S00048.252l678 ---|          ZR     X7,/MONITOR/PPR1  IF END OF QUEUE
38866  M02S00049.252l678 ---|          LX7    CBTLS
38867  M02S00050.252l678 ---|          TA1    X7+IOLK,CBT
38868  M02S00051.252l678 ---|          ERRNZ  HSLK-IOLK-1 CODE DEPENDS ON VALUE
38869  M02S00052.252l678 ---|          SA2    A1+B1
38870  M02S00053.252l678 ---|          BX7    X6*X2
38871  M02S00054.252l678 ---|          ZR     X7,BIO51    IF CHANNEL NOT SPECIFIED
38872  M02S00055.252l678 ---|          BX2    X2-X5
38873  M02S00056.252l678 ---|          BX2    X3*X2
38874  M02S00057.252l678 ---|          NZ     X2,BIO51    IF NO CHANNEL MATCH
38875  M02S00058.252l678 ---|          SX7    B1          SET REJECT STATUS
38876  M02S00059.252l678 ---|          LX7    36
38877  M02S00060.252l678 ---|          EQ     /MONITOR/PPR1  COMPLETE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
38878  M01S00380.251l670 +++|
38879  M01S00381.251l670 +++|*         CLEAR ERROR STATUS FROM UNIT I/O QUEUE.
38880  M01S00382.251l670 +++|
38881  M01S00383.251l670 +++| BIO60    ZR     X2,BIO28    IF QUEUE EMPTY
38882  M01S00384.251l670 +++|          MX5    -48
38883  M01S00385.251l670 +++|          LX2    CBTLS
38884  M01S00386.251l670 +++| BIO61    TA4    X2+HSLK,CBT  CLEAR ERROR STATUS
38885  M01S00387.251l670 +++|          BX6    -X5*X4
38886  M01S00388.251l670 +++|          SA6    A4          UPDATE *CBT* ENTRY
38887  M01S00389.251l670 +++|          SA3    A4-B1
38888  M01S00390.251l670 +++|          ERRNZ  IOLK+1-HSLK  CODE DEPENDS ON VALUE
38889  M01S00391.251l670 +++|          LX3    -24
38890  M01S00392.251l670 +++|          BX2    -X0*X3      EXTRACT FORWARD LINK
38891  M01S00393.251l670 +++|          LX2    CBTLS
38892  M01S00394.251l670 +++|          NZ     X2,BIO61    IF NOT END OF QUEUE
38893  M01S00395.251l670 +++|          BX3    -X0*X1
38894  M01S00396.251l670 +++|          LX1    -12         POSITION *UNCT* WORD
38895  M01S00397.251l670 +++|          BX4    -X0*X1
38896  M01S00398.251l670 +++|          NZ     X4,BIO28    IF CURRENT *CB* PRESENT
38897  M01S00399.251l670 +++|          BX6    X1+X3
38898  M01S00400.251l670 +++|          LX6    12          SET CURRENT *CB* = FIRST
38899  M01S00401.251l670 +++|          SA6    A1
38900  M01S00402.251l670 +++|          EQ     BIO28       CLEAR *PUT* INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
38901  M01S01856.251l664 +++|
38902  M01S01857.251l664 +++|
38903  M01S01858.251l664 +++| PUTA     BSS    3           *PUT* ADDRESS OF *UNCT* WORD
38904  M01S01859.251l664 +++| PADD     EQU    PUTA+1      PROGRAM TRANSFER ADDRESS
38905  M01S01860.251l664 +++| CBCT     EQU    PADD+1      CONTROL BUFFER COUNT
38906  M01S01861.251l664 +++| STAT     CON    0           REPLY STATUS
38907  M00S23570.cpumtr  +++| RPP      SPACE  4,15
38908  M00S23571.cpumtr  +++|**        RPP - RECALL PSEUDO-PP.
38909  M00S23572.cpumtr  +++|*
38910  M00S23573.cpumtr  +++|*         ENTRY  (A3) = CONTROL BUFFER ADDRESS.
38911  M00S23574.cpumtr  +++|*                (A5) = OUTPUT REGISTER ADDRESS.
38912  M00S23575.cpumtr  +++|*
38913  M00S23576.cpumtr  +++|*         EXIT   (X5) = OUTPUT REGISTER.
38914  M00S23577.cpumtr  +++|*                TO *BIO*.
38915  M00S23578.cpumtr  +++|*
38916  M00S23579.cpumtr  +++|*         USES   X - 1, 5, 7.
38917  M00S23580.cpumtr  +++|*                A - 1, 5, 7.
38918  M00S23581.cpumtr  +++|*                B - 7.
38919  M00S23582.cpumtr  +++|*
38920  M00S23583.cpumtr  +++|*         CALLS  /BUFIO/PRQ.
38921  M00S23584.cpumtr  +++|
38922  M00S23585.cpumtr  +++|
38923  M00S23586.cpumtr  +++| RPP      TX1    A3,-CBT     COMPUTE CONTROL BUFFER ORDINAL
38924  M00S23587.cpumtr  +++|          SX7    A5          SAVE PP OR ADDRESS
38925  M00S23588.cpumtr  +++|          AX1    CBTLS
38926  M00S23589.cpumtr  +++|          SA7    /BUFIO/IPPA
38927  M00S23590.cpumtr  +++|          EQ     /BUFIO/PRQ  PROCESS REQUEST QUEUE
38928  M00S23591.cpumtr  +++|
38929  M00S23592.cpumtr  +++| RPP1     SA5    /BUFIO/IPPA  RESTORE (A5)
38930  M00S23593.cpumtr  +++|          SX7    -B1         RESET *IPPA*
38931  M00S23594.cpumtr  +++|          SA5    X5
38932  M00S23595.cpumtr  +++|          SA7    /BUFIO/IPPA

Seq #  *Modification Id* Act 
----------------------------+
38933  M01S23596.251l664 ---|          EQ     BIO         PROCESS NEXT REQUEST

Seq #  *Modification Id* Act 
----------------------------+
38934  M01S01862.251l664 +++|          EQ     BIO21       PROCESS NEXT REQUEST
38935  M00S23597.cpumtr  +++|
38936  M00S23598.cpumtr  +++|          ENDBLK
38937  M00S23599.cpumtr  +++|          BLOCK  IH819,(INTERRUPT HANDLER - 819/CYBER 176.)
38938  M00S23600.cpumtr  +++|          SPACE  4,10
38939  M00S23601.cpumtr  +++|**        DATA.
38940  M00S23602.cpumtr  +++|
38941  M00S23603.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
38942  M01S23604.251l664 ---| NRQT     BSS    MXCH/2+1    NEXT REQUEST(S)

Seq #  *Modification Id* Act 
----------------------------+
38943  M01S01863.251l664 +++| NRQT     BSS    MMXC/2+1    NEXT REQUEST(S)
38944  M00S23605.cpumtr  +++| RTCI     BSS    1           INTERRUPT START TIME
38945  M00S23606.cpumtr  +++| PPE      SPACE  4,15
38946  M00S23607.cpumtr  +++|**        PPE - EXTENSION FOR BUFFER MANAGER RECALL.
38947  M00S23608.cpumtr  +++|*
38948  M00S23609.cpumtr  +++|*         ENTRY  (A1) = ADDRESS OF *PSD*.
38949  M00S23610.cpumtr  +++|*                (X1) = CONTENTS OF *PSD*.
38950  M00S23611.cpumtr  +++|*
38951  M00S23612.cpumtr  +++|*         EXIT   TO */MONITOR/MTRX*  IF NO MORE REQUESTS TO PROCESS.
38952  M00S23613.cpumtr  +++|*                TO *PRQ* IF TO PROCESS PSEUDO PP REQUEST.
38953  M00S23614.cpumtr  +++|*
38954  M00S23615.cpumtr  +++|*         CALLS  /BUFIO/PRQ.
38955  M00S23616.cpumtr  +++|
38956  M00S23617.cpumtr  +++|
38957  M00S23618.cpumtr  +++| PPE      MX2    -57         CLEAR STEP CONDITION
38958  M00S23619.cpumtr  +++|          BX6    -X2*X1
38959  M00S23620.cpumtr  +++|          SX7    B7
38960  M00S23621.cpumtr  +++|          LX6    39-59
38961  M00S23622.cpumtr  +++|          SA7    /BUFIO/IPPA SAVE (B7)
38962  M00S23623.cpumtr  +++|          SA6    A1+
38963  M00S23624.cpumtr  +++| PPE1     SA2    BMRI
38964  M00S23625.cpumtr  +++|          ZR     X2,PPE2     IF NO REQUESTS PRESENT
38965  M00S23626.cpumtr  +++|          SX7    X2-1
38966  M00S23627.cpumtr  +++|          SA1    TBMR+X7     GET REQUEST
38967  M00S23628.cpumtr  +++|          SA7    A2          UPDATE REQUEST INDEX
38968  M00S23629.cpumtr  +++|          EQ     /BUFIO/PRQ  PROCESS REQUEST QUEUE
38969  M00S23630.cpumtr  +++|
38970  M00S23631.cpumtr  +++| PPE2     SA1    /BUFIO/IPPA RESTORE (B7)
38971  M00S23632.cpumtr  +++|          SX7    -B1
38972  M00S23633.cpumtr  +++|          SB7    X1
38973  M00S23634.cpumtr  +++|          SA7    A1          RESET SAVE WORD
38974  M00S23635.cpumtr  +++|          EQ     /MONITOR/MTRX  EXIT
38975  M00S23636.cpumtr  +++| XJ2      SPACE  4,10
38976  M00S23637.cpumtr  +++|**        XJ2 -  EXTENSION TO CHECK STEP CONDITION ON RA+1 REQUEST
38977  M00S23638.cpumtr  +++|*
38978  M00S23639.cpumtr  +++|*         ENTRY  (B2) = EXCHANGE PACKAGE ADDRESS
38979  M00S23640.cpumtr  +++|*
38980  M00S23641.cpumtr  +++|*         EXIT   TO */BUFIO/PPE* IF STEP MODE SET
38981  M00S23642.cpumtr  +++|*                TO */MONITOR/XJ2*  IF STEP MODE NOT SET
38982  M00S23643.cpumtr  +++|
38983  M00S23644.cpumtr  +++|
38984  M00S23645.cpumtr  +++| XJ2      SA1    B2+3        GET *PSD*
38985  M00S23646.cpumtr  +++|          LX1    59-39
38986  M00S23647.cpumtr  +++|          PL     X1,/MONITOR/MTR  IF NOT STEP MODE
38987  M00S23648.cpumtr  +++|          EQ     PPE         PROCESS BUFFER MANAGER RECALL
38988  M00S23649.cpumtr  +++| TBMR     SPACE  4,10
38989  M00S23650.cpumtr  +++|**        BUFFER MANAGER RECALL REQUESTS ARE PASSED FROM THE 819
38990  M00S23651.cpumtr  +++|*         INTERRUPT HANDLER IN THE FOLLOWING TABLE.  THERE IS A
38991  M00S23652.cpumtr  +++|*         POINTER (INDEX) TO THE NEXT AVAILABLE ENTRY IN *BMRI*,
38992  M00S23653.cpumtr  +++|*         WHICH IS ADJUSTED EACH TIME THE TABLE IS ACCESSED.
38993  M00S23654.cpumtr  +++|
38994  M00S23655.cpumtr  +++|
38995  M00S23656.cpumtr  +++| TBMR     BSS    BMRL        BUFFER MANAGER RECALL REQUEST TABLE
38996  M00S23657.cpumtr  +++|
38997  M00S23658.cpumtr  +++| BMRI     CON    0           REQUEST INDEX
38998  M00S23659.cpumtr  +++| RIO      SPACE  4,10
38999  M00S23660.cpumtr  +++|**        RIO - RESTART 819 I/O.
39000  M00S23661.cpumtr  +++|*
39001  M00S23662.cpumtr  +++|*         EXIT   TO /BUFIO/IOCX.
39002  M00S23663.cpumtr  +++|*
39003  M00S23664.cpumtr  +++|*         USES   X - 1, 2, 5, 6, 7.
39004  M00S23665.cpumtr  +++|*                A - 1, 2, 5, 6, 7.
39005  M00S23666.cpumtr  +++|*                B - 6, 7.
39006  M00S23667.cpumtr  +++|*
39007  M00S23668.cpumtr  +++|*         CALLS  IOA.
39008  M00S23669.cpumtr  +++|
39009  M00S23670.cpumtr  +++|
39010  M00S23671.cpumtr  +++| RIO      SA1    RIOA        PRESET *IOA* FOR RECOVERY PROCESS
39011  M00S23672.cpumtr  +++|          SA2    IOA3
39012  M00S23673.cpumtr  +++|          BX6    X1
39013  M00S23674.cpumtr  +++|          BX7    X2
39014  M00S23675.cpumtr  +++|          SA6    A2
39015  M00S23676.cpumtr  +++|          SA7    A1
39016  M00S23677.cpumtr  +++|          SX7    B0+         PRESET *CCT* INDEX
39017  M00S23678.cpumtr  +++|          SA7    RIOB
39018  M00S23679.cpumtr  +++| RIO1     LX7    CCTLS
39019  M00S23680.cpumtr  +++|          SB7    B0          INITIALIZE UNIT NUMBER
39020  M00S23681.cpumtr  +++|          TA5    X7+CCNT,CCT SET *CCT* ENTRY ADDRESS
39021  M00S23682.cpumtr  +++|          SB6    7           SET UNIT COUNT
39022  M00S23683.cpumtr  +++|          BX7    X5
39023  M00S23684.cpumtr  +++|          EQ     IOA1        ENTER *IOA* TO PROCESS CHANNEL
39024  M00S23685.cpumtr  +++|
39025  M00S23686.cpumtr  +++| RIO2     SA1    RIOB        GET *CCT* INDEX
39026  M00S23687.cpumtr  +++|          SX7    X1+B1
39027  M00S23688.cpumtr  +++|          SA7    A1
39028  M00S23689.cpumtr  +++|          SX1    X7-NCCT
39029  M00S23690.cpumtr  +++|          NG     X1,RIO1     IF NOT END OF *CCT*
39030  M00S23691.cpumtr  +++|          SA1    RIOA        RESTORE *IOA*
39031  M00S23692.cpumtr  +++|          BX6    X1
39032  M00S23693.cpumtr  +++|          SA6    IOA3
39033  M00S23694.cpumtr  +++|          EQ     /BUFIO/IOCX RETURN
39034  M00S23695.cpumtr  +++|
39035  M00S23696.cpumtr  +++|
39036  M00S23697.cpumtr  +++| RIOA     EQ     RIO2        *IOA* RETURN ADDRESS
39037  M00S23698.cpumtr  +++| RIOB     CON    0           *CCT* INDEX
39038  M00S23699.cpumtr  +++| CLU      SPACE  4,10
39039  M00S23700.cpumtr  +++|**        CLU - CLEAR UNIT FLAGS.
39040  M00S23701.cpumtr  +++|*
39041  M00S23702.cpumtr  +++|*         ENTRY  (A2) = *PUT* ENTRY ADDRESS.
39042  M00S23703.cpumtr  +++|*                (B2) = CHANNEL NUMBER.
39043  M00S23704.cpumtr  +++|*
39044  M00S23705.cpumtr  +++|*         USES   X - ALL.
39045  M00S23706.cpumtr  +++|*                A - 2, 4, 5, 6, 7.
39046  M00S23707.cpumtr  +++|*                B - 3, 5.
39047  M00S23708.cpumtr  +++|*
39048  M00S23709.cpumtr  +++|*         CALLS  INR, SAA.
39049  M00S23710.cpumtr  +++|
39050  M00S23711.cpumtr  +++|
39051  M00S23712.cpumtr  +++| CLU      SX6    B2          CHANNEL NUMBER
39052  M00S23713.cpumtr  +++|          MX0    -59
39053  M00S23714.cpumtr  +++|          LX6    CCTLS/2
39054  M00S23715.cpumtr  +++|          MX7    6
39055  M00S23716.cpumtr  +++|          TA4    X6,CCT      READ CHANNEL CONTROL TABLE
39056  M00S23717.cpumtr  +++|          SA2    A2          GET *PUT* ENTRY
39057  M00S23718.cpumtr  +++|          LX7    -6
39058  M00S23719.cpumtr  +++|          SA5    A4+B1       READ CHANNEL CONTROL TABLE
39059  M00S23720.cpumtr  +++|          ERRNZ  CCNT-CREQ-1 INDEXES MUST BE CONSECUTIVE
39060  M00S23721.cpumtr  +++|          BX3    X7*X2       UNIT NUMBER
39061  M00S23722.cpumtr  +++|          BX6    -X0*X4      CLEAR CHANNEL BUSY
39062  M00S23723.cpumtr  +++|          LX3    12
39063  M00S23724.cpumtr  +++|          SX1    B1
39064  M00S23725.cpumtr  +++|          SB5    X3-60D
39065  M00S23726.cpumtr  +++|          IX6    X6-X1       DECREMENT ACTIVE COUNT
39066  M00S23727.cpumtr  +++|          AX0    B5
39067  M00S23728.cpumtr  +++|          MX1    -12
39068  M00S23729.cpumtr  +++|          BX7    -X0*X5      CLEAR UNIT REQUESTED FLAG
39069  M00S23730.cpumtr  +++|          LX1    12
39070  M00S23731.cpumtr  +++|          SA7    A5
39071  M00S23732.cpumtr  +++|          BX0    -X1*X2      CURRENT REQUEST
39072  M00S23733.cpumtr  +++|          SB3    CLU2        *INR* RETURN ADDRESS
39073  M00S23734.cpumtr  +++|          LX1    12
39074  M00S23735.cpumtr  +++|          BX3    -X1*X4      RETRY REQUEST
39075  M00S23736.cpumtr  +++|          BX6    X1*X6       CLEAR RETRY REQUEST
39076  M00S23737.cpumtr  +++|          LX3    -24+PUTLS
39077  M00S23738.cpumtr  +++|          SA6    A4
39078  M00S23739.cpumtr  +++|          LX1    -12
39079  M00S23740.cpumtr  +++|          MX6    18
39080  M00S23741.cpumtr  +++|          LX6    -6
39081  M00S23742.cpumtr  +++|          BX6    X6*X2       CLEAR UNIT REQUEST QUEUE
39082  M00S23743.cpumtr  +++|          NZ     X0,CLU1     IF ANOTHER REQUEST PRESENT
39083  M00S23744.cpumtr  +++|          SA6    A2
39084  M00S23745.cpumtr  +++|          ZR     X3,CLU2     IF NO RETRY REQUEST
39085  M00S23746.cpumtr  +++|          TA4    X3,PUT      GET *PUT* ENTRY
39086  M00S23747.cpumtr  +++|          NG     X4,CLU2     IF UNIT BUSY
39087  M00S23748.cpumtr  +++|          MX5    1
39088  M00S23749.cpumtr  +++|          BX0    -X1*X4      CURRENT REQUEST
39089  M00S23750.cpumtr  +++|          BX6    X4+X5       SET UNIT BUSY
39090  M00S23751.cpumtr  +++|          ZR     X0,CLU2     IF NO CURRENT REQUEST
39091  M00S23752.cpumtr  +++|          SA6    A4
39092  M00S23753.cpumtr  +++| CLU1     LX0    -12
39093  M00S23754.cpumtr  +++|          EQ     INR         INITIATE REQUEST
39094  M00S23755.cpumtr  +++|
39095  M00S23756.cpumtr  +++| CLU2     SB3    IOLX        *SAA* RETURN ADDRESS
39096  M00S23757.cpumtr  +++|          EQ     SAA         SET ACCOUNTING ADJUSTMENT
39097  M00S23758.cpumtr  +++| DCS      SPACE  4,20
39098  M00S23759.cpumtr  +++|**        DCS - DECODE STATUS.
39099  M00S23760.cpumtr  +++|*
39100  M00S23761.cpumtr  +++|*         XP     SLAVE INPUT.
39101  M00S23762.cpumtr  +++|*
39102  M00S23763.cpumtr  +++|*         ENTRY  (A0) = CM BUFFER ADDRESS.
39103  M00S23764.cpumtr  +++|*                (A1) = PARTNER XP ADDRESS.
39104  M00S23765.cpumtr  +++|*                (A2) = *PUT* ENTRY ADDRESS.
39105  M00S23766.cpumtr  +++|*                (A3) = CONTROL BUFFER ADDRESS.
39106  M00S23767.cpumtr  +++|*                (B2) = CHANNEL NUMBER.
39107  M00S23768.cpumtr  +++|*                (B4) = PARTNER CHANNEL NUMBER.
39108  M00S23769.cpumtr  +++|*
39109  M00S23770.cpumtr  +++|*         EXIT   TO *CLU*.
39110  M00S23771.cpumtr  +++|*
39111  M00S23772.cpumtr  +++|*         USES   X - ALL.
39112  M00S23773.cpumtr  +++|*                A - 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
39113  M01S23774.252l678 ---|*                B - 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
39114  M01S00799.252l678 +++|*                B - 3, 4, 6, 7.
39115  M00S23775.cpumtr  +++|*
39116  M00S23776.cpumtr  +++|*         CALLS  /MONITOR/APQ, /BUFIO/DLB, /BUFIO/SBR.
39117  M00S23777.cpumtr  +++|
39118  M00S23778.cpumtr  +++|
39119  M00S23779.cpumtr  +++| DCS      RO     B2          RELEASE FLPP DRIVER
39120  M00S23780.cpumtr  +++|          SA4    A0          READ FIRST WORD OF CM BUFFER
39121  M00S23781.cpumtr  +++|          SA5    A0+B1       SECOND WORD
39122  M00S23782.cpumtr  +++|          RI     B2          RESET I/O BUFFER POINTERS
39123  M00S23783.cpumtr  +++|          RI     B4
39124  M00S23784.cpumtr  +++|          LX4    59-57
39125  M00S23785.cpumtr  +++|          SB6    DCSA        *819 PRTY*
39126  M00S23786.cpumtr  +++|          NG     X4,CLU      IF COMPLETION STATUS
39127  M00S23787.cpumtr  +++|          SA2    A2          READ *PUT* ENTRY
39128  M00S23788.cpumtr  +++|          ERRNZ  UNCT        INDEX MUST BE ZERO
39129  M00S23789.cpumtr  +++|          MX0    -3

Seq #  *Modification Id* Act 
----------------------------+
39130  M01S23790.252l678 ---|          SB5    B0          *DLB* CONTROL
39131  M00S23791.cpumtr  +++|          LX0    54

Seq #  *Modification Id* Act 
----------------------------+
39132  M01S23792.252l678 ---|          BX4    X4-X4

Seq #  *Modification Id* Act 
----------------------------+
39133  M01S00800.252l678 +++|          SX4    B0+
39134  M00S23793.cpumtr  +++|          BX7    -X0*X2      READ RECOVERY INDEX
39135  M00S23794.cpumtr  +++|          NZ     X7,DCS4     IF READ RECOVERY TO PROCESS

Seq #  *Modification Id* Act 
----------------------------+
39136  M01S23795.251l664 ---|          MX7    1           SET DISK NOT READY

Seq #  *Modification Id* Act 
----------------------------+
39137  M01S01864.251l664 +++|          MX1    -48
39138  M00S23796.cpumtr  +++|          LX5    59-5

Seq #  *Modification Id* Act 
----------------------------+
39139  M01S23797.251l664 ---|          LX7    58-59
39140  M01S23798.251l664 ---|          NG     X5,DCS1     IF DISK NOT READY
39141  M01S23799.251l664 ---|          LX7    57-59-58+59 SET CATASTROPHIC ERROR
39142  M01S23800.251l664 ---| DCS1     SA3    A3          READ CONTROL BUFFER
39143  M01S23801.251l664 ---|          ERRNZ  PAD1        INDEX MUST BE ZERO

Seq #  *Modification Id* Act 
----------------------------+
39144  M01S01865.251l664 +++|          SX6    NRDE
39145  M00S23802.cpumtr  +++|          SB3    DCS2        *DLB* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
39146  M01S23803.251l664 ---|          BX7    X3+X7       SET ERROR STATUS

Seq #  *Modification Id* Act 
----------------------------+
39147  M02S23804.251l664 ---|          SA4    A3+IOLK

Seq #  *Modification Id* Act 
----------------------------+
39148  M02S00002.251l664 ---|          SA4    A0          CHECK FOR WRITE ERROR

Seq #  *Modification Id* Act 
----------------------------+
39149  M01S23805.251l664 ---|          SA7    A3

Seq #  *Modification Id* Act 
----------------------------+
39150  M01S01866.251l664 +++|          NG     X5,DCS1     IF *NOT READY* CONDITION
39151  M01S01867.251l664 +++|          SX6    DSTE        SET *DEVICE STATUS* ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
39152  M02S01868.253l688 ---| DCS1     LX6    54          POSITION ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
39153  M01S01614.253l688 +++| DCS1     LX6    48          POSITION ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
39154  M01S01869.251l664 +++|          BX2    X0*X2       CLEAR READ RECOVERY INDEX
39155  M01S01870.251l664 +++|          BX3    X5
39156  M01S01871.251l664 +++|          SA4    A0
39157  M01S01872.251l664 +++|          SA5    A3+HSLK

Seq #  *Modification Id* Act 
----------------------------+
39158  M01S23806.cpumt47 ---|          LX4    59-57

Seq #  *Modification Id* Act 
----------------------------+
39159  M01S00003.cpumt47 +++|          LX4    59-42

Seq #  *Modification Id* Act 
----------------------------+
39160  M01S23807.251l664 ---|          MX3    -12
39161  M01S23808.251l664 ---|          BX2    X0*X2       CLEAR READ RECOVERY INDEX

Seq #  *Modification Id* Act 
----------------------------+
39162  M01S01873.251l664 +++|          BX7    -X1*X5
39163  M01S01874.251l664 +++|          MX1    1
39164  M01S01875.251l664 +++|          BX7    X1+X7       SET ERROR FLAG
39165  M01S01876.251l664 +++|          BX7    X6+X7       MERGE  ERROR CODE INTO *HSLK*
39166  M01S01877.251l664 +++|          SA7    A5
39167  M01S01878.251l664 +++|          SA5    A5-HSLK+IOLK
39168  M00S23809.cpumtr  +++|          PL     X4,/BUFIO/DLB  IF BUFFER DOES NOT CONTAIN WRITE DATA

Seq #  *Modification Id* Act 
----------------------------+
39169  M01S23810.251l664 ---|          NG     X5,DCS3     IF DISK NOT READY
39170  M01S23811.251l664 ---|          BX4    X2          SET ERROR IDLE
39171  M01S23812.251l664 ---|          SX6    B1
39172  M01S23813.251l664 ---|          LX4    -36
39173  M01S23814.251l664 ---|          BX4    -X3*X4      EST ORDINAL
39174  M01S23815.251l664 ---|          R=     X5,ESTE
39175  M01S23816.251l664 ---|          IX4    X4*X5
39176  M01S23817.251l664 ---|          TA4    X4+EQDE,EST READ EST ENTRY
39177  M01S23818.251l664 ---|          LX6    4
39178  M01S23819.251l664 ---|          BX4    -X3*X4      *MST* ADDRESS / 10B
39179  M01S23820.251l664 ---|          LX4    3
39180  M01S23821.251l664 ---|          SA4    X4+B1
39181  M01S23822.251l664 ---|          ERRNZ  ACGL-1      INDEX MUST BE ONE

Seq #  *Modification Id* Act 
----------------------------+
39182  M02S00004.251l664 ---|          SA5    A3+IOLK

Seq #  *Modification Id* Act 
----------------------------+
39183  M01S23823.251l664 ---|          BX6    X4+X6
39184  M01S23824.251l664 ---|          SA6    A4

Seq #  *Modification Id* Act 
----------------------------+
39185  M01S01879.251l664 +++|          NG     X3,DCS3     IF DISK NOT READY

Seq #  *Modification Id* Act 
----------------------------+
39186  M01S00005.cpumt47 +++|          PL     X5,DCS2     IF BUFFER DELETED BY *WRT*
39187  M00S23825.cpumtr  +++|          EQ     /BUFIO/DLB  DELETE BUFFER
39188  M00S23826.cpumtr  +++|
39189  M00S23827.cpumtr  +++| DCS2     SB3    DCS3        *SRC* RETURN ADDRESS
39190  M00S23828.cpumtr  +++|          SB7    B0+         EXCHANGE PACKAGE INDEX
39191  M00S23829.cpumtr  +++|          EQ     /BUFIO/SBR  SET BUFFER RECALL
39192  M00S23830.cpumtr  +++|
39193  M00S23831.cpumtr  +++| DCS3     SA4    A0+B1       READ CM BUFFER
39194  M00S23832.cpumtr  +++|          SB6    DCSB        *819 ABT*
39195  M00S23833.cpumtr  +++|          LX4    59-5
39196  M00S23834.cpumtr  +++|          PL     X4,DCS4     IF NOT DISK NOT READY
39197  M00S23835.cpumtr  +++|          SB6    DCSC        *819 NRDY*
39198  M00S23836.cpumtr  +++| DCS4     SA5    B6          SET MESSAGE IN SYSTEM CONTROL POINT
39199  M00S23837.cpumtr  +++|          SX1    A1          SAVE (A1), (A2), (B4)
39200  M00S23838.cpumtr  +++|          SX2    A2
39201  M00S23839.cpumtr  +++|          LX1    18
39202  M00S23840.cpumtr  +++|          BX6    X5

Seq #  *Modification Id* Act 
----------------------------+
39203  M01S01880.251l664 +++|          SA5    A2          GET *PUT* ENTRY
39204  M01S01881.251l664 +++|          MX7    -6          GET EST ORDINAL (LOWER 6 BITS)
39205  M01S01882.251l664 +++|          LX5    -36
39206  M01S01883.251l664 +++|          BX5    -X7*X5
39207  M01S01884.251l664 +++|          MX7    -3
39208  M01S01885.251l664 +++|          BX7    -X7*X5
39209  M01S01886.251l664 +++|          AX5    3
39210  M01S01887.251l664 +++|          LX5    6
39211  M01S01888.251l664 +++|          BX7    X5+X7
39212  M01S01889.251l664 +++|          LX7    12
39213  M01S01890.251l664 +++|          IX6    X6+X7
39214  M00S23841.cpumtr  +++|          BX7    X1+X2
39215  M00S23842.cpumtr  +++|          TA6    MS2W,SCA
39216  M00S23843.cpumtr  +++|          NG     X4,CLU      IF DISK NOT READY
39217  M00S23844.cpumtr  +++|          SA5    A0+         GET BLOCK WORD COUNT
39218  M00S23845.cpumtr  +++|          SA7    DCSD
39219  M00S23846.cpumtr  +++|          SX6    B4
39220  M00S23847.cpumtr  +++|          SA4    A2          READ *PUT* ENTRY
39221  M00S23848.cpumtr  +++|          ERRNZ  UNCT        INDEX MUST BE ZERO
39222  M00S23849.cpumtr  +++|          SA6    A7+B1
39223  M00S23850.cpumtr  +++|          MX7    -11
39224  M00S23851.cpumtr  +++|          SX3    5
39225  M00S23852.cpumtr  +++|          BX2    -X7*X5      WORD COUNT
39226  M00S23853.cpumtr  +++|          SX1    B2          MASTER FLPP CHANNEL NUMBER
39227  M00S23854.cpumtr  +++|          SX2    X2+9+4      BYTE COUNT OF STATUS PACKET
39228  M00S23855.cpumtr  +++|          LX1    21-1
39229  M00S23856.cpumtr  +++|          IX3    X2/X3       WORD COUNT OF STATUS PACKET
39230  M00S23857.cpumtr  +++|          MX7    -9
39231  M00S23858.cpumtr  +++|          LX4    -36
39232  M00S23859.cpumtr  +++|          SA2    DCSE        18/*1MD*,42/0

Seq #  *Modification Id* Act 
----------------------------+
39233  M01S23860.284l847 ---|          BX7    -X7*X4      *EST* ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
39234  M01S00277.284l847 +++|          BX7    -X7*X4      EST ORDINAL
39235  M00S23861.cpumtr  +++|          LX7    12
39236  M00S23862.cpumtr  +++|          BX7    X7+X1

Seq #  *Modification Id* Act 
----------------------------+
39237  M01S23863.ns2769  ---|          TA4    EMB         GET ERROR BUFFER CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
39238  M01S00001.ns2769  +++|          TA4    EMB         GET *EMB* HEADER 1 (FLAGS, *IN*)
39239  M00S23864.cpumtr  +++|          BX7    X7+X5

Seq #  *Modification Id* Act 
----------------------------+
39240  M01S23865.ns2769  ---|          LX4    -12         INCREMENT WORD COUNT

Seq #  *Modification Id* Act 
----------------------------+
39241  M01S00002.ns2769  +++|          SA1    A4+B1       GET *EMB* HEADER 2 (*OUT*, *LIMIT*)
39242  M01S00003.ns2769  +++|          LX4    -12         POSITION *IN*

Seq #  *Modification Id* Act 
----------------------------+
39243  M02S23866.251l664 ---|          SA7    A0+

Seq #  *Modification Id* Act 
----------------------------+
39244  M01S01891.251l664 +++|          SA7    A0

Seq #  *Modification Id* Act 
----------------------------+
39245  M01S00004.ns2769  +++|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
39246  M01S01892.251l664 +++|          SX3    X3+B1       ADD ONE FOR HEADER

Seq #  *Modification Id* Act 
----------------------------+
39247  M02S00001.ns2769  ---|          SA7    A0

Seq #  *Modification Id* Act 
----------------------------+
39248  M01S23867.ns2769  ---|          IX7    X4+X3

Seq #  *Modification Id* Act 
----------------------------+
39249  M02S00002.ns2769  ---|          LX4    59-1-59+11

Seq #  *Modification Id* Act 
----------------------------+
39250  M01S23868.ns2769  ---|          BX6    X2
39251  M01S23869.ns2769  ---|          SB6    X3-1
39252  M01S23870.ns2769  ---|          SX2    X7-100B
39253  M01S23871.ns2769  ---|          SB4    X7          SAVE BUFFER OFFSET
39254  M01S23872.ns2769  ---|          LX7    12
39255  M01S23873.ns2769  ---|          SB3    DCS6        *APQ* RETURN ADDRESS
39256  M01S23874.ns2769  ---|          PL     X2,DCS5     IF BUFFER FULL

Seq #  *Modification Id* Act 
----------------------------+
39257  M01S00005.ns2769  +++|          BX6    -X0*X1      *LIMIT*
39258  M01S00006.ns2769  +++|          LX1    -12
39259  M01S00007.ns2769  +++|          BX5    -X0*X4      *IN*
39260  M01S00008.ns2769  +++|          BX1    -X0*X1      *OUT*
39261  M01S00009.ns2769  +++|          SB3    DCS6        *APQ* RETURN ADDRESS IF *EMB* FULL
39262  M01S00010.ns2769  +++|

Seq #  *Modification Id* Act 
----------------------------+
39263  M01S00001.ns2769b +++|*         THE FOLLOWING CODE EMULATES THE ERROR MESSAGE BUFFER
39264  M01S00002.ns2769b +++|*         HANDLING FOUND AND DOCUMENTED IN COMMON DECK *COMPIMB*.
39265  M01S00003.ns2769b +++|

Seq #  *Modification Id* Act 
----------------------------+
39266  M01S00011.ns2769  +++|*         (X0) = -7777
39267  M01S00012.ns2769  +++|*         (X1) = *OUT*
39268  M01S00013.ns2769  +++|*         (X2) = *1MD* INPUT REGISTER/*EMB* TERMINATOR
39269  M01S00014.ns2769  +++|*         (X3) = MESSAGE LENGTH INCLUDING HEADER (*ML*).
39270  M01S00015.ns2769  +++|*         (X4) = *EMB* HEADER 1 (SHIFTED -12)
39271  M01S00016.ns2769  +++|*         (X5) = *IN*
39272  M01S00017.ns2769  +++|*         (X6) = *LIMIT*
39273  M01S00018.ns2769  +++|

Seq #  *Modification Id* Act 
----------------------------+
39274  M02S00019.ns2769b ---| DCS4.1   IX7    X5+X3       *IN* + *ML*
39275  M02S00020.ns2769b ---|          IX7    X7-X1       *IN* + *ML* - *OUT*
39276  M02S00021.ns2769b ---|          NG     X7,DCS4.2   IF MESSAGE FITS BETWEEN *IN* AND *OUT*
39277  M02S00022.ns2769b ---|          IX7    X7-X6       *IN* + *ML* - *OUT* - *LIMIT*
39278  M02S00023.ns2769b ---|          PL     X7,DCS5     IF MESSAGE WILL NOT FIT IN *EMB*
39279  M02S00024.ns2769b ---|          IX7    X7+X1       *IN* + *ML* - *LIMIT*
39280  M02S00025.ns2769b ---|          NG     X7,DCS4.2   IF LOOSE FIT BETWEEN *IN* AND *LIMIT*
39281  M02S00026.ns2769b ---|          ZR     X7,DCS4.2   IF EXACT FIT BETWEEN *IN* AND *LIMIT*

Seq #  *Modification Id* Act 
----------------------------+
39282  M01S00004.ns2769b +++| DCS4.1   IX7    X5-X1       *IN* - *OUT*
39283  M01S00005.ns2769b +++|          NG     X7,DCS4.2   IF *IN* .LT. *OUT*
39284  M01S00006.ns2769b +++|          IX7    X5+X3       *IN* + *ML*
39285  M01S00007.ns2769b +++|          IX7    X7-X6       *IN* + *ML* - *LIMIT*
39286  M01S00008.ns2769b +++|          NG     X7,DCS4.3   IF MESSAGE FITS BETWEEN *IN* AND *LIMIT*

Seq #  *Modification Id* Act 
----------------------------+
39287  M01S00027.ns2769  +++|          BX7    X2          SET TERMINATOR IN *EMB*

Seq #  *Modification Id* Act 
----------------------------+
39288  M01S00009.ns2769b +++|          ZR     X1,DCS5     IF *OUT* .EQ. *FIRST* - DO NOT RESET *IN*

Seq #  *Modification Id* Act 
----------------------------+
39289  M01S00028.ns2769  +++|          TA7    X5+2,EMB
39290  M01S00029.ns2769  +++|          MX5    0           RESET *IN*
39291  M01S00030.ns2769  +++|          EQ     DCS4.1      RECHECK MESSAGE FIT
39292  M01S00031.ns2769  +++|

Seq #  *Modification Id* Act 
----------------------------+
39293  M02S00032.ns2769b ---| DCS4.2   SB4    X5+B1
39294  M02S00033.ns2769b ---|          ZR     X7,DCS4.3   IF *IN* + *ML* = *LIMIT*

Seq #  *Modification Id* Act 
----------------------------+
39295  M01S00010.ns2769b +++| DCS4.2   IX7    X7+X3       *IN* + *ML* - *OUT*
39296  M01S00011.ns2769b +++|          PL     X7,DCS5     IF MESSAGE WILL NOT FIT - CALL *1MD*
39297  M01S00012.ns2769b +++| DCS4.3   SB4    X5+B1

Seq #  *Modification Id* Act 
----------------------------+
39298  M01S00034.ns2769  +++|          IX7    X5+X3       UPDATE *IN*

Seq #  *Modification Id* Act 
----------------------------+
39299  M02S00035.ns2769b ---| DCS4.3   SB4    B4+X3

Seq #  *Modification Id* Act 
----------------------------+
39300  M01S00013.ns2769b +++|          SB4    B4+X3

Seq #  *Modification Id* Act 
----------------------------+
39301  M01S00036.ns2769  +++|          BX5    X0*X4       REMOVE OLD *IN*
39302  M01S00037.ns2769  +++|          SB6    X3-1
39303  M01S00038.ns2769  +++|          IX7    X5+X7       MERGE IN UPDATED *IN*
39304  M00S23875.cpumtr  +++|          SB3    DCS7        *APQ* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
39305  M01S23876.ns2769  ---|          SA7    A4+         UPDATE BUFFER CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
39306  M01S00039.ns2769  +++|          LX7    12
39307  M01S00040.ns2769  +++|          SA7    A4+         UPDATE *EMB* HEADER 1
39308  M00S23877.cpumtr  +++| DCS4.9   SA5    A0+B6       MOVE ERROR DATA TO BUFFER
39309  M00S23878.cpumtr  +++|          SB6    B6-B1
39310  M00S23879.cpumtr  +++|          BX7    X5
39311  M00S23880.cpumtr  +++|          SA7    A4+B4

Seq #  *Modification Id* Act 
----------------------------+
39312  M01S23881.cpum137 ---|          SB4    B4-B1

Seq #  *Modification Id* Act 
----------------------------+
39313  M02S00003.ns2769  ---|          SB4    B4-1

Seq #  *Modification Id* Act 
----------------------------+
39314  M01S00041.ns2769  +++|          SB4    B4-B1
39315  M00S23882.cpumtr  +++|          PL     B6,DCS4.9   IF NOT END OF MOVE

Seq #  *Modification Id* Act 
----------------------------+
39316  M01S00042.ns2769  +++|          LX3    12          SET WORD COUNT IN HEADER

Seq #  *Modification Id* Act 
----------------------------+
39317  M02S01893.ns2769  ---|          SX7    X3          SET WORD COUNT IN HEADER
39318  M02S01894.ns2769  ---|          LX7    12

Seq #  *Modification Id* Act 
----------------------------+
39319  M01S00043.ns2769  +++|          SX7    MLDY+4000B  SET 819 DRIVER MAINTENANCE LOG CODE
39320  M01S00044.ns2769  +++|          BX7    X7+X3

Seq #  *Modification Id* Act 
----------------------------+
39321  M01S01895.251l664 +++|          SA7    A4+B4       STORE HEADER IN BUFFER

Seq #  *Modification Id* Act 
----------------------------+
39322  M01S23883.cpum137 ---|          LX4    59-1

Seq #  *Modification Id* Act 
----------------------------+
39323  M01S23884.ns2769  ---| DCS5     NG     X4,/MONITOR/RB3  IF *1MD* CALLED

Seq #  *Modification Id* Act 
----------------------------+
39324  M01S00045.ns2769  +++| DCS5     LX4    59-1-59+11
39325  M01S00046.ns2769  +++|          NG     X4,/MONITOR/RB3  IF *1MD* ALREADY ACTIVE
39326  M01S00047.ns2769  +++|          BX6    X2
39327  M00S23885.cpumtr  +++|          TB7    SCA         SYSTEM CONTROL POINT ADDRESS
39328  M00S23886.cpumtr  +++|          SB6    DCS5.1      *CAL* RETURN ADDRESS - NO LIMIT
39329  M00S23887.cpumtr  +++|          EQ     /MONITOR/CAL  CHECK ACTIVITY LIMIT
39330  M00S23888.cpumtr  +++|
39331  M00S23889.cpumtr  +++| DCS5.1   SA4    A4          GET BUFFER CONTROL WORD
39332  M00S23890.cpumtr  +++|          SX2    B1+B1       SET *1MD* CALLED FLAG
39333  M00S23891.cpumtr  +++|          BX7    X2+X4
39334  M00S23892.cpumtr  +++|          SA7    A4
39335  M00S23893.cpumtr  +++|          SB4    B0          SET LIBRARY SEARCHED NEEDED
39336  M00S23894.cpumtr  +++|          EQ     /MONITOR/APQ  ASSIGN *1MD*
39337  M00S23895.cpumtr  +++|
39338  M00S23896.cpumtr  +++| DCS6     TA5    EMB         SET DATA LOST FLAG
39339  M00S23897.cpumtr  +++|          SX6    B1+
39340  M00S23898.cpumtr  +++|          LX6    36
39341  M00S23899.cpumtr  +++|          BX6    X5+X6
39342  M00S23900.cpumtr  +++|          SA6    A5+
39343  M00S23901.cpumtr  +++| DCS7     SA4    DCSD        RESTORE (A1), (A2), (B4)
39344  M00S23902.cpumtr  +++|          SA5    A4+B1
39345  M00S23903.cpumtr  +++|          SA2    X4
39346  M00S23904.cpumtr  +++|          SB4    X5
39347  M00S23905.cpumtr  +++|          AX4    18
39348  M00S23906.cpumtr  +++|          SA1    X4+
39349  M00S23907.cpumtr  +++|          EQ     CLU         CLEAR UNIT FLAGS
39350  M00S23908.cpumtr  +++|
39351  M00S23909.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
39352  M01S23910.251l664 ---| DCSA     DATA   C*819 PRTY*
39353  M01S23911.251l664 ---| DCSB     DATA   C*819 ABT*
39354  M01S23912.251l664 ---| DCSC     DATA   C*819 NRDY*

Seq #  *Modification Id* Act 
----------------------------+
39355  M01S01896.251l664 +++| DCSA     DATA   C*819PTY00*
39356  M01S01897.251l664 +++| DCSB     DATA   C*819ABT00*
39357  M01S01898.251l664 +++| DCSC     DATA   C*819NRY00*
39358  M00S23913.cpumtr  +++| DCSD     BSS    2           REGISTER SAVE AREA

Seq #  *Modification Id* Act 
----------------------------+
39359  M01S23914.ns2769  ---| DCSE     VFD    18/3R1MD,42/0  *1MD* INPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
39360  M01S00048.ns2769  +++| DCSE     VFD    18/3R1MD,42/0  *1MD* INPUT REGISTER/*EMB* TERMINATOR
39361  M00S23915.cpumtr  +++| FNR      SPACE  4,15
39362  M00S23916.cpumtr  +++|**        FNR - FIND NEXT REQUEST.
39363  M00S23917.cpumtr  +++|*
39364  M00S23918.cpumtr  +++|*         ENTRY  (B3) = RETURN ADDRESS.
39365  M00S23919.cpumtr  +++|*                (B4) = CHANNEL NUMBER.
39366  M00S23920.cpumtr  +++|*                (B7) = 0  IF READ,  1  IF WRITE.
39367  M00S23921.cpumtr  +++|*                (A3) = CONTROL BUFFER ADDRESS.
39368  M00S23922.cpumtr  +++|*
39369  M00S23923.cpumtr  +++|*         EXIT   (X7) = NEGATIVE IF NO MORE REQUESTS ON THIS CYLINDER.
39370  M00S23924.cpumtr  +++|*                (X7) = 0  IF CONTINUOUS REQUEST (NO POSITIONING).
39371  M00S23925.cpumtr  +++|*                (X7) = TRACK AND SECTOR OF NEXT REQUEST.
39372  M00S23926.cpumtr  +++|*
39373  M00S23927.cpumtr  +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
39374  M00S23928.cpumtr  +++|*                A - 3, 4, 5, 6, 7.
39375  M00S23929.cpumtr  +++|
39376  M00S23930.cpumtr  +++|
39377  M00S23931.cpumtr  +++| FNR      SA4    A3+IOLK     READ CONTROL BUFFER
39378  M00S23932.cpumtr  +++|          MX6    -12
39379  M00S23933.cpumtr  +++|          SX1    B4          CHANNEL
39380  M00S23934.cpumtr  +++|          LX4    -24
39381  M00S23935.cpumtr  +++|          BX4    -X6*X4      LINK TO NEXT REQUEST
39382  M00S23936.cpumtr  +++|          ZR     X4,FNR2     IF END OF QUEUE
39383  M00S23937.cpumtr  +++|          LX4    CBTLS
39384  M00S23938.cpumtr  +++|          SX2    B1
39385  M00S23939.cpumtr  +++|          TA4    X4+IOLK,CBT READ NEXT CONTROL BUFFER
39386  M00S23940.cpumtr  +++|          SX7    B7          READ/WRITE FLAG
39387  M00S23941.cpumtr  +++|          LX2    57
39388  M00S23942.cpumtr  +++|          LX7    57
39389  M00S23943.cpumtr  +++|          BX5    X2*X4       EXTRACT WRITE DATA FLAG
39390  M00S23944.cpumtr  +++|          AX1    CCTLS/2
39391  M00S23945.cpumtr  +++|          BX7    X7-X5
39392  M00S23946.cpumtr  +++|          NZ     X7,FNR2     IF NOT MATCHING MODES (READ/WRITE)
39393  M00S23947.cpumtr  +++|          SA5    A4+PAD1-IOLK  READ PHYSICAL ADDRESS
39394  M00S23948.cpumtr  +++|          SA3    A3          READ CURRENT PHYSICAL ADDRESS
39395  M00S23949.cpumtr  +++|          ERRNZ  PAD1        INDEX MUST BE ZERO
39396  M00S23950.cpumtr  +++|          SX7    A5
39397  M00S23951.cpumtr  +++|          SA7    NRQT-1+X1   SET NEXT REQUEST
39398  M00S23952.cpumtr  +++|          LX5    24
39399  M00S23953.cpumtr  +++|          LX3    24
39400  M00S23954.cpumtr  +++|          BX7    X5
39401  M00S23955.cpumtr  +++|          BX2    X3-X5
39402  M00S23956.cpumtr  +++|          AX7    48
39403  M00S23957.cpumtr  +++|          AX3    48
39404  M00S23958.cpumtr  +++|          BX6    -X6*X2
39405  M00S23959.cpumtr  +++|          IX3    X7-X3
39406  M00S23960.cpumtr  +++|          NZ     X6,FNR2     IF NOT SAME CYLINDER
39407  M00S23961.cpumtr  +++|          BX7    X7-X7       SET CONTINUOUS REQUEST FOUND
39408  M00S23962.cpumtr  +++|          SX3    X3-PSLB
39409  M00S23963.cpumtr  +++|          LX5    6
39410  M00S23964.cpumtr  +++|          ZR     X3,FNR1     IF CONTINUOUS SECTORS
39411  M00S23965.cpumtr  +++|          MX1    -6
39412  M00S23966.cpumtr  +++|          SX7    B1+B1       SET *SWITCH* FUNCTION
39413  M00S23967.cpumtr  +++|          BX1    -X1*X5      TRACK
39414  M00S23968.cpumtr  +++|          LX7    4
39415  M00S23969.cpumtr  +++|          LX5    6
39416  M00S23970.cpumtr  +++|          BX7    X1+X7
39417  M00S23971.cpumtr  +++|          MX1    -6
39418  M00S23972.cpumtr  +++|          LX7    5
39419  M00S23973.cpumtr  +++|          BX1    -X1*X5      SECTOR
39420  M00S23974.cpumtr  +++|          BX7    X7+X1
39421  M00S23975.cpumtr  +++| FNR1     LX7    48
39422  M00S23976.cpumtr  +++|          MX3    1           SET I/O LINKUP
39423  M00S23977.cpumtr  +++|          LX3    56-59
39424  M00S23978.cpumtr  +++|          BX6    X4+X3
39425  M00S23979.cpumtr  +++|          SA6    A4
39426  M00S23980.cpumtr  +++|          JP     B3          RETURN
39427  M00S23981.cpumtr  +++|
39428  M00S23982.cpumtr  +++| FNR2     SX5    B4+         SET *STOP* FOR NEXT REQUEST
39429  M00S23983.cpumtr  +++|          MX7    1
39430  M00S23984.cpumtr  +++|          AX5    CCTLS/2
39431  M00S23985.cpumtr  +++|          SA7    NRQT-1+X5
39432  M00S23986.cpumtr  +++|          JP     B3          RETURN
39433  M00S23987.cpumtr  +++| INR      SPACE  4,10
39434  M00S23988.cpumtr  +++|**        INR - INITIATE REQUEST.
39435  M00S23989.cpumtr  +++|*
39436  M00S23990.cpumtr  +++|*         ENTRY  (B3) = RETURN ADDRESS.
39437  M00S23991.cpumtr  +++|*                (X0) = CONTROL BUFFER ORDINAL.
39438  M00S23992.cpumtr  +++|*
39439  M00S23993.cpumtr  +++|*         USES   X - ALL.
39440  M00S23994.cpumtr  +++|*                A - 2, 3, 4, 5, 6, 7.
39441  M00S23995.cpumtr  +++|*                B - 5, 7.
39442  M00S23996.cpumtr  +++|
39443  M00S23997.cpumtr  +++|
39444  M00S23998.cpumtr  +++| INR      LX0    CBTLS
39445  M00S23999.cpumtr  +++|          MX7    -12
39446  M00S24000.cpumtr  +++|          TA5    X0+HSLK,CBT
39447  M00S24001.cpumtr  +++|          BX2    -X7*X5      *PUT* ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
39448  M01S00050.ns2782  +++|          SA3    A5+FSTC-HSLK
39449  M00S24002.cpumtr  +++|          LX2    PUTLS

Seq #  *Modification Id* Act 
----------------------------+
39450  M01S00051.ns2782  +++|          LX3    12
39451  M00S24003.cpumtr  +++|          TA2    X2+UNCT,PUT

Seq #  *Modification Id* Act 
----------------------------+
39452  M01S24004.ns2782  ---|          LX2    -36

Seq #  *Modification Id* Act 
----------------------------+
39453  M02S24005.ns2782  ---|          BX5    -X7*X2      EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
39454  M03S24006.ns2782  ---|          MX3    -6
39455  M03S24007.ns2782  ---|          LX2    -48+36
39456  M03S24008.ns2782  ---|          R=     X4,ESTE
39457  M03S24009.ns2782  ---|          IX5    X5*X4
39458  M03S24010.ns2782  ---|          TA5    X5+EQDE,EST READ EST ENTRY
39459  M03S24011.ns2782  ---|          BX4    -X3*X2      UNIT
39460  M03S24012.ns2782  ---|          LX5    -36
39461  M03S24013.ns2782  ---|          SB7    X4          UNIT
39462  M03S24014.ns2782  ---|          BX6    -X7*X5      CHANNEL(S)
39463  M03S24015.ns2782  ---|          BX5    -X3*X5      FIRST CHANNEL
39464  M03S24016.ns2782  ---|          LX5    CCTLS/2
39465  M03S24017.ns2782  ---|          TA3    X5+CREQ,CCT READ CHANNEL CONTROL TABLE
39466  M03S24018.ns2782  ---|          AX6    6

Proceed to Part 31