308 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
29251  M01S01806.271l716 +++|          ZR     X7,PST29    IF DIRECT READ
29252  M01S01807.271l716 +++|          SA1    A3+0
29253  M01S01808.271l716 +++|          PL     X6,PST25    IF ADVANCE TO NEXT TRACK
29254  M01S01809.271l716 +++|          SA4    A5+1
29255  M01S01810.271l716 +++|          MX7    -3
29256  M00S17062.cpumtr  +++|          LX4    -12
29257  M00S17063.cpumtr  +++|          BX6    -X2*X4
29258  M00S17064.cpumtr  +++|          BX7    -X7*X4

Seq #  *Modification Id* Act 
----------------------------+
29259  M01S17065.251l664 ---|          NZ     X7,PST18    IF NOT LAST PRU IN SECTOR

Seq #  *Modification Id* Act 
----------------------------+
29260  M02S00907.271l716 ---|          NZ     X7,PST18    IF NOT LAST PRU OF CONTROL WORD

Seq #  *Modification Id* Act 
----------------------------+
29261  M01S17066.271l716 ---| PST17    BX1    X2*X1

Seq #  *Modification Id* Act 
----------------------------+
29262  M01S01811.271l716 +++|          NZ     X7,PST26    IF NOT LAST PRU OF CONTROL WORD
29263  M01S01812.271l716 +++| PST25    BX1    X2*X1
29264  M00S17067.cpumtr  +++|          BX6    X6+X1       SAVE LINKAGE INFORMATION
29265  M00S17068.cpumtr  +++|          SA6    A3          REWRITE SECTOR CONTROL WORD
29266  M00S17069.cpumtr  +++|
29267  M00S17070.cpumtr  +++|*         TRANSFER DATA FROM PP BUFFER TO I/O BUFFER OR DIRECT FROM
29268  M00S17071.cpumtr  +++|*         CONTROL POINT FIELD LENGTH TO I/O BUFFER.
29269  M00S17072.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29270  M01S17073.271l716 ---| PST18    SX7    B2          SAVE (B2)

Seq #  *Modification Id* Act 
----------------------------+
29271  M01S01813.271l716 +++| PST26    SX7    B2          SAVE (B2)
29272  M00S17074.cpumtr  +++|          SB2    BTSZ
29273  M00S17075.cpumtr  +++|          SX1    B0

Seq #  *Modification Id* Act 
----------------------------+
29274  M01S17076.271l716 ---|          GE     B2,B3,PST18.2  IF ONE BLOCK OR LESS TO WRITE
29275  M01S17077.271l716 ---|          SA1    PSTA        GET ADDRESS INCREMENT WORD
29276  M01S17078.271l716 ---| PST18.1  WE     BTSZ

Seq #  *Modification Id* Act 
----------------------------+
29277  M01S01814.271l716 +++|          GE     B2,B3,PST28 IF ONE BLOCK OR LESS TO WRITE
29278  M01S01815.271l716 +++|          SA1    PSTA        GET ADDRESS INCREMENT WORD
29279  M01S01816.271l716 +++| PST27    WE     BTSZ
29280  M00S17079.cpumtr  +++|          RJ     HHE         HANG ON HALF EXIT
29281  M00S17080.cpumtr  +++|          SB2    B2+BTSZ
29282  M00S17081.cpumtr  +++|          SA0    A0+BTSZ     INCREMENT ADDRESSES

Seq #  *Modification Id* Act 
----------------------------+
29283  M01S17082.271l716 ---| PST18.2  IX0    X0+X1
29284  M01S17083.271l716 ---|          LT     B2,B3,PST18.1  IF MORE FULL BLOCKS TO TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
29285  M01S01817.271l716 +++| PST28    IX0    X0+X1
29286  M01S01818.271l716 +++|          LT     B2,B3,PST27 IF MORE FULL BLOCKS TO TRANSFER
29287  M00S17084.cpumtr  +++|          SB2    B3-B2
29288  M00S17085.cpumtr  +++|          WE     B2+BTSZ     WRITE REMAINDER OF BLOCK
29289  M00S17086.cpumtr  +++|          RJ     HHE         HANG ON HALF-EXIT

Seq #  *Modification Id* Act 
----------------------------+
29290  M01S17087.251l664 ---|          EQ     PST20       CHECK FOR PARITY ERROR

Seq #  *Modification Id* Act 
----------------------------+
29291  M02S00908.271l716 ---|          EQ     PST20       CHECK FOR TRANSFER COMPLETION

Seq #  *Modification Id* Act 
----------------------------+
29292  M01S01819.271l716 +++|          EQ     PST32       CHECK FOR TRANSFER COMPLETION
29293  M00S17088.cpumtr  +++|
29294  M00S17089.cpumtr  +++|*         TRANSFER DATA FROM I/O BUFFER TO PP BUFFER OR DIRECT FROM
29295  M00S17090.cpumtr  +++|*         I/O BUFFER TO CONTROL POINT FIELD LENGTH.
29296  M00S17091.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29297  M01S17092.271l716 ---| PST19    SX7    B2          SAVE (B2)

Seq #  *Modification Id* Act 
----------------------------+
29298  M01S01820.271l716 +++| PST29    SX7    B2          SAVE (B2)
29299  M00S17093.cpumtr  +++|          SB2    BTSZ
29300  M00S17094.cpumtr  +++|          SX1    B0

Seq #  *Modification Id* Act 
----------------------------+
29301  M01S17095.271l716 ---|          GE     B2,B3,PST19.2  IF ONE BLOCK OR LESS TO READ
29302  M01S17096.271l716 ---|          SA1    PSTA        GET ADDRESS INCREMENT WORD
29303  M01S17097.271l716 ---| PST19.1  RE     BTSZ

Seq #  *Modification Id* Act 
----------------------------+
29304  M01S01821.271l716 +++|          GE     B2,B3,PST31 IF ONE BLOCK OR LESS TO READ
29305  M01S01822.271l716 +++|          SA1    PSTA        GET ADDRESS INCREMENT WORD
29306  M01S01823.271l716 +++| PST30    RE     BTSZ
29307  M00S17098.cpumtr  +++|          RJ     HHE         HANG ON HALF-EXIT
29308  M00S17099.cpumtr  +++|          SB2    B2+BTSZ
29309  M00S17100.cpumtr  +++|          SA0    A0+BTSZ     INCREMENT ADDRESSES

Seq #  *Modification Id* Act 
----------------------------+
29310  M01S17101.271l716 ---| PST19.2  IX0    X0+X1
29311  M01S17102.271l716 ---|          LT     B2,B3,PST19.1  IF MORE FULL BLOCKS TO TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
29312  M01S01824.271l716 +++| PST31    IX0    X0+X1
29313  M01S01825.271l716 +++|          LT     B2,B3,PST30 IF MORE FULL BLOCKS TO TRANSFER
29314  M00S17103.cpumtr  +++|          SB2    B3-B2
29315  M00S17104.cpumtr  +++|          RE     B2+BTSZ     READ REMAINDER OF BLOCK
29316  M00S17105.cpumtr  +++|          RJ     HHE         HANG ON HALF-EXIT
29317  M00S17106.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29318  M01S17107.251l664 ---|*         CHECK FOR PARITY ERROR.  DETERMINE IF TRANSFER COMPLETE.

Seq #  *Modification Id* Act 
----------------------------+
29319  M01S00909.251l664 +++|*         DETERMINE IF TRANSFER COMPLETE.
29320  M00S17108.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29321  M01S17109.271l716 ---| PST20    SB7    B7+B4

Seq #  *Modification Id* Act 
----------------------------+
29322  M01S01826.271l716 +++| PST32    SB7    B7+B4
29323  M00S17110.cpumtr  +++|          SB2    X7          RESTORE (B2)
29324  M00S17111.cpumtr  +++|          SA0    B6          RESTORE (A0) FOR PRU READ/WRITE

Seq #  *Modification Id* Act 
----------------------------+
29325  M01S17112.251l664 ---|          SA1    A3          GET SECTOR CONTROL WORD
29326  M01S17113.251l664 ---|          BX6    X1
29327  M00S17114.cpumtr  +++|          SX7    B1

Seq #  *Modification Id* Act 
----------------------------+
29328  M01S17115.251l664 ---|          SX1    UPES        RETURN STATUS = PARITY ERROR
29329  M01S17116.251l664 ---|          LX6    59-21
29330  M00S17117.cpumtr  +++|          SX3    B5
29331  M00S17118.cpumtr  +++|          SB7    B7-LSLB

Seq #  *Modification Id* Act 
----------------------------+
29332  M01S17119.251l664 ---|          LX2    X6,B1
29333  M00S17120.cpumtr  +++|          LX7    48-0

Seq #  *Modification Id* Act 
----------------------------+
29334  M01S17121.251l664 ---|          SA4    A5+         GET PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
29335  M01S00910.251l664 +++|          SA4    A5          GET PARAMETERS
29336  M00S17122.cpumtr  +++|          LX3    -1

Seq #  *Modification Id* Act 
----------------------------+
29337  M01S17123.251l664 ---|          NG     X2,PST22    IF PARITY ERROR (UNRECOVERED DATA)
29338  M01S17124.251l664 ---|          NG     X6,PST22    IF PARITY ERROR
29339  M00S17125.cpumtr  +++|          SX1    IFLS        RETURN STATUS = INSUFFICIENT FL

Seq #  *Modification Id* Act 
----------------------------+
29340  M01S17126.271l716 ---|          NG     X5,PST27    IF TRANSFER TERMINATED FOR READ TO EOR
29341  M01S17127.271l716 ---|          SX1    B0+         RETURN STATUS = NO ERROR
29342  M01S17128.271l716 ---|          LE     B5,B1,PST23 IF PRU TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
29343  M01S01827.271l716 +++|          NG     X5,PST38    IF TRANSFER TERMINATED FOR READ TO EOR
29344  M01S01828.271l716 +++|          SX1    B0+         RETURN STATUS = NO ERROR
29345  M01S01829.271l716 +++|          LE     B5,B1,PST34 IF PRU TRANSFER
29346  M00S17129.cpumtr  +++|          SX0    B4          PRUS TRANSFERRED
29347  M00S17130.cpumtr  +++|          LX4    -24
29348  M00S17131.cpumtr  +++|          MX6    -12
29349  M00S17132.cpumtr  +++|          LX0    6
29350  M00S17133.cpumtr  +++|          SX2    B3+         WORD COUNT OF TRANSFER
29351  M00S17134.cpumtr  +++|          BX6    -X6*X4      REMAINING SECTOR COUNT
29352  M00S17135.cpumtr  +++|          IX2    X2-X0

Seq #  *Modification Id* Act 
----------------------------+
29353  M01S17136.271l716 ---|          NG     X2,PST23    IF EOR ENCOUNTERED OR EOI WRITTEN
29354  M01S17137.271l716 ---|          ZR     B3,PST23    IF EOR/EOF/EOI ENCOUNTERED

Seq #  *Modification Id* Act 
----------------------------+
29355  M01S01830.271l716 +++|          NG     X2,PST34    IF EOR ENCOUNTERED OR EOI WRITTEN
29356  M01S01831.271l716 +++|          ZR     B3,PST34    IF EOR/EOF/EOI ENCOUNTERED
29357  M00S17138.cpumtr  +++|          LX4    0-37+24     CHECK FOR EOR READ OR WRITE EOI
29358  M00S17139.cpumtr  +++|          MX0    -2
29359  M00S17140.cpumtr  +++|          BX0    -X0*X4
29360  M00S17141.cpumtr  +++|          BX6    X6+X0

Seq #  *Modification Id* Act 
----------------------------+
29361  M01S17142.271l716 ---|          ZR     X6,PST23    IF SECTOR COUNT EXHAUSTED
29362  M01S17143.271l716 ---|          NZ     B7,PST5     IF NOT LAST PRU IN 4K BLOCK
29363  M01S17144.271l716 ---|          SB6    PST21       SET RETURN ADDRESS FOR *BPF*

Seq #  *Modification Id* Act 
----------------------------+
29364  M01S01832.271l716 +++|          ZR     X6,PST34    IF SECTOR COUNT EXHAUSTED
29365  M01S01833.271l716 +++|          NZ     B7,PST6     IF NOT LAST PRU IN 4K BLOCK
29366  M01S01834.271l716 +++|          SB6    PST33       SET RETURN ADDRESS FOR *BPF*
29367  M00S17145.cpumtr  +++|          EQ     BPF         REBUILD PSEUDO FNT
29368  M00S17146.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29369  M01S17147.271l716 ---| PST21    SX2    BMRG*100B   RELEASE BUFFER AND GET NEXT BUFFER
29370  M01S17148.271l716 ---|          SB7    PST5        SET RETURN ADDRESS FOR *CLM*

Seq #  *Modification Id* Act 
----------------------------+
29371  M01S01835.271l716 +++| PST33    SX2    BMRG*100B   RELEASE BUFFER AND GET NEXT BUFFER
29372  M01S01836.271l716 +++|          SB7    PST6        SET RETURN ADDRESS FOR *CLM*
29373  M00S17149.cpumtr  +++|          PL     X3,CLM      IF DIRECT READ

Seq #  *Modification Id* Act 
----------------------------+
29374  M01S17150.251l664 ---|          SX0    BMRF*100B+BMWR  FLUSH WRITE BUFFER AND GET NEXT ONE
29375  M01S17151.251l664 ---|          SA5    A5          CHECK FOR REWRITE
29376  M01S17152.251l664 ---|          SX6    B1
29377  M01S17153.251l664 ---|          LX5    0-36
29378  M01S17154.251l664 ---|          BX2    X6*X5
29379  M01S17155.251l664 ---|          IX2    X2+X0

Seq #  *Modification Id* Act 
----------------------------+
29380  M01S00911.251l664 +++|
29381  M01S00912.251l664 +++|*         NOTE - IF SUPPORT FOR A DIRECT REWRITE OPERATION IS EVER
29382  M01S00913.251l664 +++|*         NEEDED, CODE CAN BE ADDED HERE TO CHECK THE REWRITE FLAG
29383  M01S00914.251l664 +++|*         AND IF SET, SET FUNCTION *BMRW* INSTEAD OF *BMWR*.
29384  M01S00915.251l664 +++|
29385  M01S00916.251l664 +++|          SX2    BMRF*100B+BMWR  FLUSH WRITE BUFFER AND GET NEXT ONE
29386  M00S17156.cpumtr  +++|          EQ     CLM         CALL I/O BUFFER MANAGER
29387  M00S17157.cpumtr  +++|
29388  M00S17158.cpumtr  +++|*         TRANSFER COMPLETE.  RELEASE I/O BUFFER.
29389  M00S17159.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29390  M01S17160.251l664 ---| PST22    GT     B5,B1,PST23 IF NOT PRU READ OR WRITE
29391  M01S17161.251l664 ---|          MX2    36          RETURN PHYSICAL DATA FOR PARITY ERROR
29392  M01S17162.251l664 ---|          LX6    -59+21
29393  M01S17163.251l664 ---|          BX4    X2*X4
29394  M01S17164.251l664 ---|          BX6    -X2*X6
29395  M01S17165.251l664 ---|          BX6    X6+X4
29396  M01S17166.251l664 ---|          SA6    A5

Seq #  *Modification Id* Act 
----------------------------+
29397  M01S17167.271l716 ---| PST23    SA5    A5          CHECK FOR BUFFER FLUSH
29398  M01S17168.271l716 ---|          MX2    42
29399  M01S17169.271l716 ---|          PL     X3,PST24    IF PRU READ OR DIRECT READ

Seq #  *Modification Id* Act 
----------------------------+
29400  M01S01837.271l716 +++| PST34    SA5    A5          CHECK FOR BUFFER FLUSH
29401  M01S01838.271l716 +++|          MX2    42
29402  M01S01839.271l716 +++|          PL     X3,PST35    IF PRU READ OR DIRECT READ
29403  M00S17170.cpumtr  +++|          LX7    59-0-48+0
29404  M00S17171.cpumtr  +++|          LX5    59-37

Seq #  *Modification Id* Act 
----------------------------+
29405  M01S17172.271l716 ---|          PL     X5,PST24    IF NO BUFFER FLUSH REQUESTED

Seq #  *Modification Id* Act 
----------------------------+
29406  M01S01840.271l716 +++|          PL     X5,PST35    IF NO BUFFER FLUSH REQUESTED

Seq #  *Modification Id* Act 
----------------------------+
29407  M01S17173.251l664 ---|          SB7    B0          RELEASE PP BUFFER

Seq #  *Modification Id* Act 
----------------------------+
29408  M01S00917.251l664 +++|          SB7    B0+         FORCE FLUSH AND PP BUFFER RELEASE
29409  M00S17174.cpumtr  +++|          BX1    -X1

Seq #  *Modification Id* Act 
----------------------------+
29410  M01S17175.271l716 ---| PST24    NZ     B7,PST27    IF NOT LAST PRU IN 4K BLOCK

Seq #  *Modification Id* Act 
----------------------------+
29411  M01S01841.271l716 +++| PST35    NZ     B7,PST38    IF NOT LAST PRU IN 4K BLOCK
29412  M00S17176.cpumtr  +++|          SA3    A5+2        GET PROGRAM MODE FLAG
29413  M00S17177.cpumtr  +++|          BX1    -X2*X1      SAVE RETURN STATUS IN MESSAGE BUFFER
29414  M00S17178.cpumtr  +++|          BX3    X2*X3

Seq #  *Modification Id* Act 
----------------------------+
29415  M01S17179.271l716 ---|          SB6    PST25       SET PROGRAM MODE RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
29416  M01S01842.271l716 +++|          SB6    PST36       SET PROGRAM MODE RETURN ADDRESS
29417  M00S17180.cpumtr  +++|          BX6    X1+X3
29418  M00S17181.cpumtr  +++|          SA6    A3
29419  M00S17182.cpumtr  +++|          PL     X3,/ECS/PIOP  IF SWITCH TO PROGRAM MODE REQUIRED
29420  M00S17183.cpumtr  +++|
29421  M00S17184.cpumtr  +++|*         REENTRY FROM PROGRAM MODE.
29422  M00S17185.cpumtr  +++|*         CALL I/O BUFFER MANAGER TO RELEASE READ BUFFER OR TO
29423  M00S17186.cpumtr  +++|*         RELEASE WRITE BUFFER AND FLUSH THE BUFFER TO DISK.
29424  M00S17187.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29425  M01S17188.271l716 ---| PST25    SX4    B5
29426  M01S17189.271l716 ---|          SB7    PST26       SET RETURN ADDRESS FOR *CLM*

Seq #  *Modification Id* Act 
----------------------------+
29427  M01S01843.271l716 +++| PST36    SX4    B5
29428  M01S01844.271l716 +++|          SB7    PST37       SET RETURN ADDRESS FOR *CLM*
29429  M00S17190.cpumtr  +++|          LX4    -1
29430  M00S17191.cpumtr  +++|          SX2    BMRB*100B   RELEASE READ BUFFER
29431  M00S17192.cpumtr  +++|          PL     X4,CLM      IF PRU READ OR DIRECT READ
29432  M00S17193.cpumtr  +++|          SX2    BMRF*100B   RELEASE WRITE BUFFER AND FLUSH TO DISK
29433  M00S17194.cpumtr  +++|          EQ     CLM         CALL I/O BUFFER MANAGER
29434  M00S17195.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29435  M01S17196.271l716 ---| PST26    SA1    A4+B1       RESTORE RETURN STATUS

Seq #  *Modification Id* Act 
----------------------------+
29436  M01S01845.271l716 +++| PST37    SA1    A4+B1       RESTORE RETURN STATUS
29437  M00S17197.cpumtr  +++|          SX1    X1
29438  M00S17198.cpumtr  +++|          EQ     /ECS/PIOX   EXIT
29439  M00S17199.cpumtr  +++|
29440  M00S17200.cpumtr  +++|*         RELEASE I/O BUFFER ASSIGNMENT.
29441  M00S17201.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29442  M01S17202.271l716 ---| PST27    SA2    A5+4        GET I/O BUFFER LINK

Seq #  *Modification Id* Act 
----------------------------+
29443  M01S01846.271l716 +++| PST38    SA2    A5+4        GET I/O BUFFER LINK

Seq #  *Modification Id* Act 
----------------------------+
29444  M01S00918.251l664 +++|          NO
29445  M00S17203.cpumtr  +++|          LX2    CBTLS
29446  M00S17204.cpumtr  +++| +        TA3    X2+LSLK,CBT ** RELEASE BUFFER (UPDATE IN ONE WORD)
29447  M00S17205.cpumtr  +++|          IX6    X3-X7       **
29448  M00S17206.cpumtr  +++|          SA6    A3          **
29449  M00S17207.cpumtr  +++|          EQ     /ECS/PIOX   EXIT
29450  M00S17208.cpumtr  +++|
29451  M00S17209.cpumtr  +++|
29452  M00S17210.cpumtr  +++| PSTA     VFD    30/BTSZ,30/BTSZ  ADDRESS INCREMENTS
29453  M00S17211.cpumtr  +++|
29454  M00S17212.cpumtr  +++| ESMB     BSS    1           MONITOR MODE EXTENDED MEMORY WORD BUFFER
29455  M00S17213.cpumtr  +++|          BSS    3           PROGRAM MODE EXTENDED MEMORY WORD BUFFER
29456  M00S17214.cpumtr  +++| PBF      SPACE  4,15
29457  M00S17215.cpumtr  +++|**        PBF - *PIOM* BUFFER FLUSH (SF=5).  PROGRAM MODE.
29458  M00S17216.cpumtr  +++|*
29459  M00S17217.cpumtr  +++|*         ENTRY  (A0) = CPU NUMBER.
29460  M00S17218.cpumtr  +++|*                (A5) = PP *OR* ADDRESS.
29461  M00S17219.cpumtr  +++|*                (B7) = CP ADDRESS.
29462  M00S17220.cpumtr  +++|*                SEE *PIOM* DOCUMENTATION FOR *OR* AND *MB*
29463  M00S17221.cpumtr  +++|*                   DESCRIPTION.
29464  M00S17222.cpumtr  +++|*
29465  M00S17223.cpumtr  +++|*         EXIT   A0, A5, B7 SAME AS ON ENTRY.
29466  M00S17224.cpumtr  +++|*                TO /PROGRAM/PRG, AFTER BUFFER FLUSH INITIATED.
29467  M00S17225.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
29468  M01S17226.251l664 ---|*         USES   A - 7.

Seq #  *Modification Id* Act 
----------------------------+
29469  M01S00919.251l664 +++|*         USES   A - 1, 7.
29470  M00S17227.cpumtr  +++|*                B - 6.

Seq #  *Modification Id* Act 
----------------------------+
29471  M01S17228.251l664 ---|*                X - 1, 5, 7.

Seq #  *Modification Id* Act 
----------------------------+
29472  M01S00920.251l664 +++|*                X - 1, 2, 3, 4, 5, 6, 7.
29473  M00S17229.cpumtr  +++|*
29474  M00S17230.cpumtr  +++|*         CALLS  BPF, LBM.
29475  M00S17231.cpumtr  +++|
29476  M00S17232.cpumtr  +++|
29477  M00S17233.cpumtr  +++| PBF      MX7    -12
29478  M00S17234.cpumtr  +++|          SX1    BMFL        SELECT BUFFER FLUSH FUNCTION
29479  M00S17235.cpumtr  +++|          BX6    -X7*X5      EXTRACT FNT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
29480  M01S00921.251l664 +++|          SX7    EPNS        ALLOW FLUSH ON *OFF* DEVICE
29481  M00S17236.cpumtr  +++|          SX2    B7          CP NUMBER
29482  M00S17237.cpumtr  +++|          LX2    18-7
29483  M00S17238.cpumtr  +++|          BX5    X2+X6
29484  M00S17239.cpumtr  +++|          LX1    -6

Seq #  *Modification Id* Act 
----------------------------+
29485  M01S00922.251l664 +++|          TX4    A5-1,-SP
29486  M00S17240.cpumtr  +++|          SB6    PBF2        SET RETURN ADDRESS FOR *LBM*
29487  M00S17241.cpumtr  +++|          BX5    X5+X1
29488  M00S17242.cpumtr  +++|          EQ     LBM         CALL I/O BUFFER MANAGER
29489  M00S17243.cpumtr  +++|
29490  M00S17244.cpumtr  +++|
29491  M00S17245.cpumtr  +++|*         THE BUFFER INDEX IS NOT CLEARED FOR A DIRECT ACCESS FILE

Seq #  *Modification Id* Act 
----------------------------+
29492  M01S17246.251l664 ---|*         SO THAT A DTERMINATION CAN BE MADE ON THE NEXT I/O OPERATION

Seq #  *Modification Id* Act 
----------------------------+
29493  M01S00923.251l664 +++|*         SO THAT A DETERMINATION CAN BE MADE ON THE NEXT I/O OPERATION
29494  M00S17247.cpumtr  +++|*         AS TO WHETHER THE BUFFER HAS BEEN WRITTEN TO THE DEVICE.
29495  M00S17248.cpumtr  +++|
29496  M00S17249.cpumtr  +++| PBF2     SA1    FNTA        CLEAR BUFFER INDEX
29497  M00S17250.cpumtr  +++|          SX2    PMFT*100B
29498  M00S17251.cpumtr  +++|          ERX3   X1          READ FNT
29499  M00S17252.cpumtr  +++|          SX6    7700B
29500  M00S17253.cpumtr  +++|          BX2    X2-X3
29501  M00S17254.cpumtr  +++|          BX7    X7-X7
29502  M00S17255.cpumtr  +++|          BX6    X6*X2
29503  M00S17256.cpumtr  +++|          ZR     X6,/PROGRAM/PRG1  IF DIRECT ACCESS FILE
29504  M00S17257.cpumtr  +++|          R=     X2,FUTL     CLEAR BUFFER INDEX IN FST
29505  M00S17258.cpumtr  +++|          IX2    X1+X2
29506  M00S17259.cpumtr  +++|          ERX1   X2
29507  M00S17260.cpumtr  +++|          MX3    48
29508  M00S17261.cpumtr  +++|          BX6    X3*X1
29509  M00S17262.cpumtr  +++|          EWX6   X2
29510  M00S17263.cpumtr  +++|          EQ     /PROGRAM/PRG1  EXIT AND CLEAR OUTPUT REGISTER
29511  M00S17264.cpumtr  +++| BPF      SPACE  4,20
29512  M00S17265.cpumtr  +++|**        BPF - BUILD PSEUDO FNT IN PP MESSAGE BUFFER.
29513  M00S17266.cpumtr  +++|*
29514  M00S17267.cpumtr  +++|*         ENTRY  REFER TO *PIOM* FOR DESCRIPTION OF *MB*.
29515  M00S17268.cpumtr  +++|*                (A5) = *OR* ADDRESS.
29516  M00S17269.cpumtr  +++|*                (B6) = RETURN ADDRESS.
29517  M00S17270.cpumtr  +++|*
29518  M00S17271.cpumtr  +++|*         EXIT   (MB+2) = 12/EQUIPMENT,12/0,12/TRACK,12/SECTOR,12/0.
29519  M00S17272.cpumtr  +++|*                (MB+3) = 48/0,12/I/O BUFFER LINK.
29520  M00S17273.cpumtr  +++|*                (X6) = *FST*.
29521  M00S17274.cpumtr  +++|*                (X7) = I/O BUFFER LINK, IF NONZERO.
29522  M00S17275.cpumtr  +++|*
29523  M00S17276.cpumtr  +++|*         USES   A - 1, 4, 6, 7.
29524  M00S17277.cpumtr  +++|*                X - 1, 4, 6, 7.
29525  M00S17278.cpumtr  +++|
29526  M00S17279.cpumtr  +++|
29527  M00S17280.cpumtr  +++| BPF      SA4    A5+B1       GET PARAMETERS FROM MESSAGE BUFFER
29528  M00S17281.cpumtr  +++|          MX1    -24
29529  M00S17282.cpumtr  +++|          LX1    12
29530  M00S17283.cpumtr  +++|          MX6    12
29531  M00S17284.cpumtr  +++|          BX1    -X1*X4      TRACK AND SECTOR
29532  M00S17285.cpumtr  +++|          LX4    12
29533  M00S17286.cpumtr  +++|          MX7    0
29534  M00S17287.cpumtr  +++|          BX6    X6*X4       EQUIPMENT
29535  M00S17288.cpumtr  +++|          LX4    59-7-12
29536  M00S17289.cpumtr  +++|          BX6    X6+X1
29537  M00S17290.cpumtr  +++|          SA6    A5+3        SAVE PSEUDO FNT IN MESSAGE BUFFER
29538  M00S17291.cpumtr  +++|          PL     X4,BPF1     IF NO I/O BUFFER LINK
29539  M00S17292.cpumtr  +++|          TX1    A5-1,-FP    CALCULATE PP INDEX
29540  M00S17293.cpumtr  +++|          AX1    3           PP INDEX INTO *PLT*
29541  M00S17294.cpumtr  +++|          TA1    X1,PLT      READ PP I/O BUFFER LINK
29542  M00S17295.cpumtr  +++|          BX7    X1
29543  M00S17296.cpumtr  +++| BPF1     SA7    A6+B1       SAVE I/O BUFFER LINK IN PSEUDO FNT
29544  M00S17297.cpumtr  +++|          JP     B6          RETURN

Seq #  *Modification Id* Act 
----------------------------+
29545  M01S17298.cpum243 ---| CLM      SPACE  4,30

Seq #  *Modification Id* Act 
----------------------------+
29546  M01S00001.cpum243 +++| CLM      SPACE  4,35
29547  M00S17299.cpumtr  +++|**        CLM - CALL I/O BUFFER MANAGER.
29548  M00S17300.cpumtr  +++|*
29549  M00S17301.cpumtr  +++|*         ENTRY  (B7) = RETURN ADDRESS.
29550  M00S17302.cpumtr  +++|*                (A5) = *OR* ADDRESS.
29551  M00S17303.cpumtr  +++|*                (X2) = 48/0,6/ OP,6/ BC.
29552  M00S17304.cpumtr  +++|*                   OP = I/O BUFFER MANAGER OPERATION.

Seq #  *Modification Id* Act 
----------------------------+
29553  M01S17305.251l664 ---|*                   BC = BUFFER COUNT (OP=0).

Seq #  *Modification Id* Act 
----------------------------+
29554  M01S00924.251l664 +++|*                   BC = BUFFER COUNT (USED FOR ONLY *BMRD* AND *BMRF*
29555  M01S00925.251l664 +++|*                        OPERATIONS).
29556  M01S00926.251l664 +++|*                        FOR *BMRD*, BC = 1 IF NON-STREAMED PRU READ.
29557  M01S00927.251l664 +++|*                        FOR *BMRF*, BC = *BMWR* IF WRITE.
29558  M01S00928.251l664 +++|*                                    BC = *BMRW* IF REWRITE.

Seq #  *Modification Id* Act 
----------------------------+
29559  M01S00002.cpum243 +++|*                (MB+1) .LT. 0, IF PROGRAM MODE.
29560  M00S17306.cpumtr  +++|*                (MB+2) = PSEUDO FNT EQUIPMENT, TRACK, SECTOR.
29561  M00S17307.cpumtr  +++|*                (MB+3) = PSEUDO FNT I/O BUFFER LINK (CONTROL BUFFER
29562  M00S17308.cpumtr  +++|*                   INDEX) FOR OP = 4, 5, 6.
29563  M00S17309.cpumtr  +++|*
29564  M00S17310.cpumtr  +++|*         EXIT   A0, A5, B2 SAME AS ON ENTRY.
29565  M00S17311.cpumtr  +++|*                (B5) = *PIOM* SUBFUNCTION - 1.
29566  M00S17312.cpumtr  +++|*                (A4) = *MB* ADDRESS.
29567  M00S17313.cpumtr  +++|*                (X5) = (OR).

Seq #  *Modification Id* Act 
----------------------------+
29568  M01S17314.251l664 ---|*                (X6) = BUFFER MANAGER RESPONSE.
29569  M01S17315.251l664 ---|*                (X7) = I/O BUFFER LINK, IF NONZERO.

Seq #  *Modification Id* Act 
----------------------------+
29570  M01S00929.251l664 +++|*                (X6) = BUFFER ORDINAL.
29571  M01S00930.251l664 +++|*                     = 0 IF NO BUFFER INTERLOCKED.
29572  M00S17316.cpumtr  +++|*                (MB) = I/O BUFFER LINK FLAG UPDATED.
29573  M00S17317.cpumtr  +++|*                (MB+3) = I/O BUFFER LINK UPDATED.
29574  M00S17318.cpumtr  +++|*                BUFFER LINK FOR THIS PP UPDATED IN *PLT*.
29575  M00S17319.cpumtr  +++|*                TO /ECS/PIOR, IF I/O BUFFER BUSY.

Seq #  *Modification Id* Act 
----------------------------+
29576  M01S17320.251l664 ---|*                TO /ECS/PIOX, IF RECALL REQUIRED, DISK NOT
29577  M01S17321.251l664 ---|*                   READY, OR UNRECOVERABLE HARDWARE ERROR.

Seq #  *Modification Id* Act 
----------------------------+
29578  M01S00931.251l664 +++|*                TO /ECS/PIOX, IF RECALL REQUIRED, I/O ERROR, ADDRESS
29579  M01S00932.251l664 +++|*                   ERROR OR INACCESSIBLE DEVICE.
29580  M00S17322.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
29581  M01S17323.251l664 ---|*         USES   A - 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
29582  M01S00933.251l664 +++|*         USES   A - 3, 4, 6, 7.
29583  M00S17324.cpumtr  +++|*                B - 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
29584  M01S17325.251l664 ---|*                X - ALL.

Seq #  *Modification Id* Act 
----------------------------+
29585  M01S00934.251l664 +++|*                X - ALL.
29586  M00S17326.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
29587  M01S17327.251l664 ---|*         CALLS  LBM.

Seq #  *Modification Id* Act 
----------------------------+
29588  M01S00935.251l664 +++|*         CALLS  LBM, /ECS/PIOR, /ECS/PIOX.
29589  M00S17328.cpumtr  +++|
29590  M00S17329.cpumtr  +++|
29591  M00S17330.cpumtr  +++| CLM      SX1    A5+2        PSEUDO FNT ADDRESS
29592  M00S17331.cpumtr  +++|          LX2    -12
29593  M00S17332.cpumtr  +++|          BX5    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
29594  M01S17333.251l664 ---|          SB6    CLM1        SET RETURN ADDRESS FOR *LBM*/*LMM* CALL

Seq #  *Modification Id* Act 
----------------------------+
29595  M01S00936.251l664 +++|          SB6    CLM1        SET *LBM* EXIT ADDRESS
29596  M00S17334.cpumtr  +++|          EQ     LBM         CALL BUFFER MANAGER
29597  M00S17335.cpumtr  +++|
29598  M00S17336.cpumtr  +++|*         CHECK BUFFER STATUS.  SAVE I/O BUFFER LINK.

Seq #  *Modification Id* Act 
----------------------------+
29599  M01S00003.cpum243 +++|*         ENTRY FROM *INB* IN MONITOR MODE.
29600  M00S17337.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29601  M01S17338.251l664 ---| CLM1     MX1    1
29602  M01S17339.251l664 ---|          SA4    A5+B1
29603  M01S17340.251l664 ---|          MX2    -12
29604  M01S17341.251l664 ---|          LX1    7-59
29605  M01S17342.251l664 ---|          UX0,B5 X5          GET *PIOM* SUBFUNCTION CODE
29606  M01S17343.251l664 ---|          BX2    -X2*X6      I/O BUFFER CONTROL BUFFER INDEX
29607  M01S17344.251l664 ---|          AX0    42
29608  M01S17345.251l664 ---|          BX7    -X1*X4      CLEAR PP BUFFER RESERVED FLAG

Seq #  *Modification Id* Act 
----------------------------+
29609  M02S00003.251l664 ---|          SB6    X2+         SAVE CONTROL BUFFER INDEX

Seq #  *Modification Id* Act 
----------------------------+
29610  M01S17346.251l664 ---|          ZR     X2,CLM2     IF NO CONTROL BUFFER INDEX
29611  M01S17347.251l664 ---|          TX3    A5-1,-FP    CALCULATE PP INDEX
29612  M01S17348.251l664 ---|          BX7    X2
29613  M01S17349.251l664 ---|          AX3    3
29614  M01S17350.251l664 ---|          TA7    X3,PLT      STORE I/O BUFFER INTERLOCK
29615  M01S17351.251l664 ---|          BX7    X1+X4       SET I/O BUFFER LINK PRESENT

Seq #  *Modification Id* Act 
----------------------------+
29616  M02S17352.251l664 ---|          SB6    X2          SAVE CONTROL BUFFER INDEX

Seq #  *Modification Id* Act 
----------------------------+
29617  M01S17353.251l664 ---| CLM2     SA7    A4          UPDATE *PIOM* PARAMETERS
29618  M01S17354.251l664 ---|          SB5    X0-1
29619  M01S17355.251l664 ---|          BX7    X2
29620  M01S17356.251l664 ---|          SX1    -RCLS       RETURN STATUS = RECALL
29621  M01S17357.251l664 ---|          SA7    A5+4        UPDATE LINK IN PSEUDO FNT
29622  M01S17358.251l664 ---|          NG     X6,/ECS/PIOX  IF RECALL STATUS
29623  M01S17359.251l664 ---|          LX6    59-58
29624  M01S17360.251l664 ---|          LX2    X6,B1
29625  M01S17361.251l664 ---|          NG     X6,/ECS/PIOR  IF I/O BUFFER BUSY
29626  M01S17362.251l664 ---|          SX1    -DNRS       RETURN STATUS = DISK NOT READY
29627  M01S17363.251l664 ---|          LX6    59-56-59+58
29628  M01S17364.251l664 ---|          NG     X2,CLM3     IF DISK NOT READY STATUS
29629  M01S17365.251l664 ---|          R=     X1,-UHES    RETURN STATUS = UNRECOVERABLE ERROR
29630  M01S17366.251l664 ---|          NG     X6,CLM3     IF UNRECOVERABLE HARDWARE ERROR

Seq #  *Modification Id* Act 
----------------------------+
29631  M02S00004.251l664 ---|          LX2    X6,B1

Seq #  *Modification Id* Act 
----------------------------+
29632  M01S17367.251l664 ---|          LX6    56-59

Seq #  *Modification Id* Act 
----------------------------+
29633  M02S00005.251l664 ---|          SX1    -ADES       RETURN STATUS = ADDRESS ERROR
29634  M02S00006.251l664 ---|          NG     X2,CLM3     IF ADDRESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
29635  M01S17368.251l664 ---|          JP     B7          RETURN TO CALLING ROUTINE
29636  M01S17369.251l664 ---|
29637  M01S17370.251l664 ---| CLM3     ZR     B6,CLM5     IF NO BUFFER INTERLOCKED
29638  M01S17371.251l664 ---|          SX2    B6
29639  M01S17372.251l664 ---|          LX2    CBTLS
29640  M01S17373.251l664 ---|          SX4    B1
29641  M01S17374.251l664 ---|          SX3    B5+B1
29642  M01S17375.251l664 ---|          LX4    48-0
29643  M01S17376.251l664 ---|          LX3    -1
29644  M01S17377.251l664 ---|          NG     X3,CLM4     IF READ REQUEST
29645  M01S17378.251l664 ---|          LX4    59-0-48+0
29646  M01S17379.251l664 ---| CLM4     TA2    X2+LSLK,CBT ** PERFORM IN ONE WORD
29647  M01S17380.251l664 ---|          IX7    X2-X4       **
29648  M01S17381.251l664 ---|          SA7    A2          **
29649  M01S17382.251l664 ---| CLM5     GT     B5,B1,/ECS/PIOX  IF NOT PRU FUNCTION
29650  M01S17383.251l664 ---|          MX2    -30
29651  M01S17384.251l664 ---|          LX6    -24-3
29652  M01S17385.251l664 ---|          BX6    -X2*X6
29653  M01S17386.251l664 ---|          BX5    X2*X5
29654  M01S17387.251l664 ---|          BX6    X5+X6
29655  M01S17388.251l664 ---|          SA6    A5
29656  M01S17389.251l664 ---|          EQ     /ECS/PIOX   RETURN ERROR CODE

Seq #  *Modification Id* Act 
----------------------------+
29657  M01S00937.251l664 +++| CLM1     UX0,B5 X5
29658  M01S00938.251l664 +++|          SA4    A5+B1
29659  M01S00939.251l664 +++|          AX0    42
29660  M01S00940.251l664 +++|          MX1    1
29661  M01S00941.251l664 +++|          SB5    X0-1        *PIOM* SUBFUNCTION - 1
29662  M01S00942.251l664 +++|          SX7    X6          BUFFER ORDINAL (IF INTERLOCKED)
29663  M01S00943.251l664 +++|          MX0    5
29664  M01S00944.251l664 +++|          BX2    X0*X6       BUFFER MANAGER STATUS
29665  M01S00945.251l664 +++|          SA7    A5+4        UPDATE PSEUDO FNT
29666  M01S00946.251l664 +++|          LX1    7-59
29667  M01S00947.251l664 +++|          SX6    X6          BUFFER ORDINAL (0 IF NOT INTERLOCKED)
29668  M01S00948.251l664 +++|          BX7    -X1*X4      CLEAR PP BUFFER RESERVED FLAG
29669  M01S00949.251l664 +++|          ZR     X6,CLM2     IF BUFFER NOT INTERLOCKED
29670  M01S00950.251l664 +++|          TX3    A5-1,-FP
29671  M01S00951.251l664 +++|          AX3    3
29672  M01S00952.251l664 +++|          BX7    X1+X4       SET PP BUFFER RESERVED FLAG
29673  M01S00953.251l664 +++|          TA6    X3,PLT      STORE PLT ENTRY
29674  M01S00954.251l664 +++| CLM2     SA7    A4          UPDATE *CHRV* IN MESSAGE BUFFER
29675  M01S00955.251l664 +++|          MX4    1
29676  M01S00956.251l664 +++|          NZ     X2,CLM3     IF BUFFER MANAGER STATUS NONZERO
29677  M01S00957.251l664 +++|          JP     B7          EXIT
29678  M01S00958.251l664 +++|
29679  M01S00959.251l664 +++| CLM3     SX1    -RCLS       SET RECALL STATUS
29680  M01S00960.251l664 +++|          NG     X2,/ECS/PIOX  IF RECALL
29681  M01S00961.251l664 +++|          LX2    59-58
29682  M01S00962.251l664 +++|          SX3    B5+B1       *PIOM* SUBFUNCTION
29683  M01S00963.251l664 +++|          NG     X2,/ECS/PIOR  IF BUFFER BUSY
29684  M01S00964.251l664 +++|          LX3    -1
29685  M01S00965.251l664 +++|          PL     X3,CLM4     IF WRITE REQUEST
29686  M01S00966.251l664 +++|          LX4    48-59
29687  M01S00967.251l664 +++| CLM4     BX1    X6
29688  M01S00968.251l664 +++|          ZR     X6,CLM5     IF BUFFER NOT INTERLOCKED
29689  M01S00969.251l664 +++|          LX1    CBTLS

Seq #  *Modification Id* Act 
----------------------------+
29690  M02S00970.cpum242 ---|          TA3    X1+LSLK,CBT ** PERFORM IN ONE WORD

Seq #  *Modification Id* Act 
----------------------------+
29691  M03S00971.cpum242 ---|          IX7    X3-X4       **
29692  M03S00972.cpum242 ---|          SA7    A3          **

Seq #  *Modification Id* Act 
----------------------------+
29693  M02S00001.cpum242 ---|          IX6    X3-X4       **
29694  M02S00002.cpum242 ---|          SA6    A3          **

Seq #  *Modification Id* Act 
----------------------------+
29695  M01S00004.cpum242 +++|+         TA3    X1+LSLK,CBT **** PERFORM IN ONE WORD ****
29696  M01S00005.cpum242 +++|          IX6    X3-X4       **** PERFORM IN ONE WORD ****
29697  M01S00006.cpum242 +++|          SA6    A3          **** PERFORM IN ONE WORD ****

Seq #  *Modification Id* Act 
----------------------------+
29698  M01S00973.251l664 +++| CLM5     LX3    X2,B1
29699  M01S00974.251l664 +++|          LX2    X3,B1
29700  M01S00975.251l664 +++|          PL     X3,CLM6     IF NOT I/O ERROR

Seq #  *Modification Id* Act 
----------------------------+
29701  M01S00003.ns2446  +++|          SX4    B1
29702  M01S00004.ns2446  +++|          LX4    6
29703  M01S00005.ns2446  +++|          BX7    -X4*X7
29704  M01S00006.ns2446  +++|          SA7    A7          CLEAR *1MV* FLUSH FLAG

Seq #  *Modification Id* Act 
----------------------------+
29705  M02S00976.cpum243 ---|          SA3    FCBI        GET ORDINAL OF BUFFER WITH ERROR

Seq #  *Modification Id* Act 
----------------------------+
29706  M03S00977.cpum243 ---|          MX0    4

Seq #  *Modification Id* Act 
----------------------------+
29707  M02S01558.cpum243 ---|          MX0    -6

Seq #  *Modification Id* Act 
----------------------------+
29708  M01S00004.cpum243 +++|          SA1    A5+2        CHECK PROGRAM MODE FLAG IN (MB+1)
29709  M01S00005.cpum243 +++|          SA3    FCBI        BUFFER WITH ERROR (PROGRAM MODE)
29710  M01S00006.cpum243 +++|          NG     X1,CLM5.1   IF PROGRAM MODE
29711  M01S00007.cpum243 +++|          SA3    FCBM        BUFFER WITH ERROR (MONITOR MODE)
29712  M01S00008.cpum243 +++| CLM5.1   MX0    -6

Seq #  *Modification Id* Act 
----------------------------+
29713  M01S00978.251l664 +++|          LX3    CBTLS

Seq #  *Modification Id* Act 
----------------------------+
29714  M02S00979.253l688 ---|          LX0    57-59

Seq #  *Modification Id* Act 
----------------------------+
29715  M01S00980.251l664 +++|          TA1    X3+HSLK,CBT

Seq #  *Modification Id* Act 
----------------------------+
29716  M02S00981.253l688 ---|          BX1    X0*X1       ERROR CODE FROM DRIVER
29717  M02S00982.253l688 ---|          AX1    54

Seq #  *Modification Id* Act 
----------------------------+
29718  M01S01559.253l688 +++|          LX1    -48
29719  M01S01560.253l688 +++|          BX1    -X0*X1      ERROR CODE FROM DRIVER

Seq #  *Modification Id* Act 
----------------------------+
29720  M01S00983.251l664 +++|          BX1    -X1         CAUSE PP I/O BUFFER RELEASE
29721  M01S00984.251l664 +++|          EQ     /ECS/PIOX   EXIT
29722  M01S00985.251l664 +++|
29723  M01S00986.251l664 +++| CLM6     SX1    -ADDE
29724  M01S00987.251l664 +++|          PL     X2,/ECS/PIOX  IF ADDRESS ERROR
29725  M01S00988.251l664 +++|          SX1    -LNRE       SET *LOGICAL NOT READY* ERROR STATUS
29726  M01S00989.251l664 +++|          EQ     /ECS/PIOX   EXIT
29727  M00S17390.cpumtr  +++| IDE      SPACE  4,10
29728  M00S17391.cpumtr  +++|**        IDE - IGNORE DATA AFTER EOI WRITE.
29729  M00S17392.cpumtr  +++|*
29730  M00S17393.cpumtr  +++|*         ENTRY  (B4) = RETURN ADDRESS.
29731  M00S17394.cpumtr  +++|*                (X3) = FWA CONTROL BUFFER.
29732  M00S17395.cpumtr  +++|*                (X7) = MOD 40B OF SECTOR CONTAINING EOI.
29733  M00S17396.cpumtr  +++|*
29734  M00S17397.cpumtr  +++|*         USES   A - 2, 7.
29735  M00S17398.cpumtr  +++|*                X - 1, 2, 7.
29736  M00S17399.cpumtr  +++|
29737  M00S17400.cpumtr  +++|
29738  M00S17401.cpumtr  +++| IDE      BSS    0           ENTRY
29739  M00S17402.cpumtr  +++|          SX1    X7
29740  M00S17403.cpumtr  +++|          AX7    CBTLS
29741  M00S17404.cpumtr  +++|          IX2    X3+X7
29742  M00S17405.cpumtr  +++|          SA2    X2          CONTROL WORD CONTAINING EOI
29743  M00S17406.cpumtr  +++|          SX7    B1
29744  M00S17407.cpumtr  +++|          LX1    -2
29745  M00S17408.cpumtr  +++|          BX1    -X1*X7      SET SECOND SECTOR FLAG ONLY OR NO FLAG
29746  M00S17409.cpumtr  +++| IDE1     LX1    22-0        POSITION VALID DATA FLAGS
29747  M00S17410.cpumtr  +++|          BX7    X2+X1
29748  M00S17411.cpumtr  +++|          SA7    A2+         REWRITE CONTROL WORD
29749  M00S17412.cpumtr  +++|          SX7    A2-PAD4
29750  M00S17413.cpumtr  +++|          IX7    X7-X3
29751  M00S17414.cpumtr  +++|          ZR     X7,/MONITOR/RB4  IF LAST CONTROL WORD COMPLETED
29752  M00S17415.cpumtr  +++|          SX1    3           SET BOTH FLAGS
29753  M00S17416.cpumtr  +++|          SA2    A2+1        GET NEXT CONTROL WORD
29754  M00S17417.cpumtr  +++|          EQ     IDE1        COMPLETE REMAINING CONTROL WORDS
29755  M00S17418.cpumtr  +++| UDP      SPACE  4,30
29756  M00S17419.cpumtr  +++|**        UDP - UPDATE *PIOM* DIRECT TRANSFER PARAMETERS.
29757  M00S17420.cpumtr  +++|*
29758  M00S17421.cpumtr  +++|*         ENTRY  (A5) = PP *OR* ADDRESS.
29759  M00S17422.cpumtr  +++|*                (B2) = RETURN ADDRESS.
29760  M00S17423.cpumtr  +++|*                (B3) = WORD COUNT OF TRANSFER.
29761  M00S17424.cpumtr  +++|*                (B4) = NUMBER OF SECTORS TO TRANSFER.
29762  M00S17425.cpumtr  +++|*                SEE *PIOM* DOCUMENTATION FOR *OR* AND *MB*
29763  M00S17426.cpumtr  +++|*                   DESCRIPTION.
29764  M00S17427.cpumtr  +++|*
29765  M00S17428.cpumtr  +++|*         EXIT   PARAMETERS IN *OR* AND *MB* ADVANCED
29766  M00S17429.cpumtr  +++|*                   BY SPECIFIED SECTOR AND WORD COUNT.
29767  M00S17430.cpumtr  +++|*                   ADVANCES TO NEXT TRACK IF NECESSARY.
29768  M00S17431.cpumtr  +++|*                (B3) = WORD COUNT OF TRANSFER, UPDATED IF TRANSFER
29769  M00S17432.cpumtr  +++|*                   PREMATURELY TERMINATED.
29770  M00S17433.cpumtr  +++|*                (B4) = SECTOR COUNT OF TRANSFER, UPDATED IF TRANSFER
29771  M00S17434.cpumtr  +++|*                   PREMATURELY TERMINATED.
29772  M00S17435.cpumtr  +++|*                (X6) .LT. 0, IF NO ADVANCE TO NEXT TRACK.
29773  M00S17436.cpumtr  +++|*                (X6) .GT. 0, NEXT TRACK.
29774  M00S17437.cpumtr  +++|*                (X5) = ABSOLUTE CM ADDRESS TO BEGIN TRANSFER, AND
29775  M00S17438.cpumtr  +++|*                   INSUFFICIENT FL FLAG (IF BIT 59 SET).
29776  M00S17439.cpumtr  +++|*                TO /PROGRAM/HNG, IF NEXT TRACK NOT RESERVED,
29777  M00S17440.cpumtr  +++|*                   IF SECTOR COUNT TRANSFER ATTEMPTED BEYOND FL,
29778  M00S17441.cpumtr  +++|*                   OR IF LWA SPECIFICATION INVALID FOR READ TO EOR.
29779  M00S17442.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
29780  M01S17443.273l780 ---|*         USES   A - 0, 1, 2, 4, 7.

Seq #  *Modification Id* Act 
----------------------------+
29781  M01S00818.273l780 +++|*         USES   A - 0, 1, 2, 4, 5, 7.
29782  M00S17444.cpumtr  +++|*                B - 3, 4, 6.
29783  M00S17445.cpumtr  +++|*                X - 1, 2, 4, 5, 6, 7.
29784  M00S17446.cpumtr  +++|
29785  M00S17447.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29786  M01S17448.271l716 ---| UDP      SA4    A5-B1       GET CONTROL POINT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
29787  M01S01847.271l716 +++| UDP      BSS    0           ENTRY

Seq #  *Modification Id* Act 
----------------------------+
29788  M02S01848.273l780 ---|          SA5    A5+
29789  M02S01849.273l780 ---|          LE     B5,B1,UDP0  IF NOT WRITE OPERATION
29790  M02S01850.273l780 ---|          SA2    A5+5
29791  M02S01851.273l780 ---|          ZR     X2,UDP0     IF NOT PCP OPERATION
29792  M02S01852.273l780 ---|          TX1    1,SC
29793  M02S01853.273l780 ---|          BX4    X5
29794  M02S01854.273l780 ---|          IX7    X2-X1       PCP INDEX

Seq #  *Modification Id* Act 
----------------------------+
29795  M01S00819.273l780 +++|          TX4    A5-1,-FP
29796  M01S00820.273l780 +++|          LX4    PPXES-PPCES

Seq #  *Modification Id* Act 
----------------------------+
29797  M01S01855.271l716 +++|          MX1    -12

Seq #  *Modification Id* Act 
----------------------------+
29798  M02S01856.273l780 ---|          LX7    7
29799  M02S01857.273l780 ---|          TX7    X7,PCPA     PCPA ADDRESS
29800  M02S01858.273l780 ---|          EQ     UDP0.1      CONTINUE
29801  M02S01859.273l780 ---|
29802  M02S01860.273l780 ---| UDP0     SA4    A5-1        GET CPA ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
29803  M01S17449.273l780 ---|          MX7    -5
29804  M01S17450.273l780 ---|          LX4    -36

Seq #  *Modification Id* Act 
----------------------------+
29805  M02S17451.273l780 ---|          SA5    A5          GET *OR* PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
29806  M01S17452.273l780 ---|          BX7    -X7*X4
29807  M01S17453.273l780 ---|          MX1    -12
29808  M01S17454.273l780 ---|          LX7    7

Seq #  *Modification Id* Act 
----------------------------+
29809  M01S00821.273l780 +++|          TA4    X4+ACPP,FPX GET CP/PCP ASSIGNMENT
29810  M01S00822.273l780 +++|          SA5    A5+         GET *OR* PARAMETERS
29811  M01S00823.273l780 +++|          LX4    -24
29812  M01S00824.273l780 +++|          SX7    X4+         CP/PCP ADDRESS
29813  M00S17455.cpumtr  +++|          BX4    X5          CHECK FOR READ TO EOR

Seq #  *Modification Id* Act 
----------------------------+
29814  M01S17456.271l716 ---|          SA2    X7+FLSW     GET FL OF CP

Seq #  *Modification Id* Act 
----------------------------+
29815  M02S01861.273l780 ---| UDP0.1   SA2    X7+FLSW     GET FL OF CP/PCP

Seq #  *Modification Id* Act 
----------------------------+
29816  M01S00825.273l780 +++|          SA2    X7+FLSW     GET FL OF CP/PCP
29817  M00S17457.cpumtr  +++|          LX4    59-38
29818  M00S17458.cpumtr  +++|          BX7    -X1*X2
29819  M00S17459.cpumtr  +++|          LX7    6           FL
29820  M00S17460.cpumtr  +++|          SA0    77B
29821  M00S17461.cpumtr  +++|          BX2    X7          SET MAXIMUM LWA+1 TRANSFER = FL
29822  M00S17462.cpumtr  +++|          PL     X4,UDP2     IF NOT READ TO EOR
29823  M00S17463.cpumtr  +++|          SX1    X5+B3       RELATIVE CM FWA TRANSFER + WORD COUNT
29824  M00S17464.cpumtr  +++|          LX5    -18
29825  M00S17465.cpumtr  +++|          SX1    X1-1        LWA OF TRANSFER
29826  M00S17466.cpumtr  +++|          SX6    X5          LWA SPECIFICATION
29827  M00S17467.cpumtr  +++|          LX5    18
29828  M00S17468.cpumtr  +++|          ZR     X6,UDP1     IF NO LWA SPECIFICATION
29829  M00S17469.cpumtr  +++|          NG     X6,/PROGRAM/HNG  IF INVALID LWA SPECIFICATION
29830  M00S17470.cpumtr  +++|          IX2    X7-X6
29831  M00S17471.cpumtr  +++|          NG     X2,/PROGRAM/HNG  IF LWA SPECIFICATION .GT. FL
29832  M00S17472.cpumtr  +++|          BX2    X6          SET MAXIMUM LWA+1 TRANSFER
29833  M00S17473.cpumtr  +++| UDP1     IX1    X1-X2
29834  M00S17474.cpumtr  +++|          NG     X1,UDP2     IF TRANSFER DOES NOT EXCEED MAXIMUM
29835  M00S17475.cpumtr  +++|          BX6    -X1         TERMINATE TRANSFER AT MAXIMUM ADDRESS
29836  M00S17476.cpumtr  +++|          SB3    X6+B3
29837  M00S17477.cpumtr  +++|          SB3    B3-1
29838  M00S17478.cpumtr  +++|          SX6    B3+A0       RECALCULATE SECTOR COUNT
29839  M00S17479.cpumtr  +++|          AX6    6
29840  M00S17480.cpumtr  +++|          SB4    X6
29841  M00S17481.cpumtr  +++| UDP2     SX6    X5+B3       RELATIVE FWA TRANSFER + WORD COUNT
29842  M00S17482.cpumtr  +++|          MX2    -18
29843  M00S17483.cpumtr  +++|          IX7    X7-X6
29844  M00S17484.cpumtr  +++|          BX6    -X2*X6
29845  M00S17485.cpumtr  +++|          NG     X7,/PROGRAM/HNG  IF TRANSFER BEYOND FL
29846  M00S17486.cpumtr  +++|          BX7    X2*X5       ADVANCE RELATIVE CM ADDRESS
29847  M00S17487.cpumtr  +++|          BX7    X7+X6
29848  M00S17488.cpumtr  +++|          BX5    -X2*X5
29849  M00S17489.cpumtr  +++|          SA2    A2          GET RA OF CONTROL POINT
29850  M00S17490.cpumtr  +++|          MX6    -RMSK
29851  M00S17491.cpumtr  +++|          LX2    -RSHF
29852  M00S17492.cpumtr  +++|          BX2    -X6*X2
29853  M00S17493.cpumtr  +++|          LX2    6
29854  M00S17494.cpumtr  +++|          IX5    X5+X2
29855  M00S17495.cpumtr  +++|          MX6    1
29856  M00S17496.cpumtr  +++|          BX1    -X1*X6      SET INSUFFICIENT FL FLAG
29857  M00S17497.cpumtr  +++|          SX2    B3+A0       COMPUTE SECTOR COUNT
29858  M00S17498.cpumtr  +++|          BX5    X5+X1
29859  M00S17499.cpumtr  +++|          AX2    6
29860  M00S17500.cpumtr  +++|          LX7    -24
29861  M00S17501.cpumtr  +++|          NG     X4,UDP3     IF READ TO EOR
29862  M00S17502.cpumtr  +++|          IX7    X7-X2       DECREMENT SECTOR COUNT
29863  M00S17503.cpumtr  +++| UDP3     LX7    24
29864  M00S17504.cpumtr  +++|          SA4    A5+B1       GET *MB* PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
29865  M01S17505.251l664 ---|          SA7    A5          UPDATE *PIOM* *OR* PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
29866  M01S00990.251l664 +++|          SA7    A5+         UPDATE *PIOM* *OR* PARAMETERS
29867  M00S17506.cpumtr  +++|          LX4    12

Seq #  *Modification Id* Act 
----------------------------+
29868  M01S17507.cpumt42 ---|          SA1    MSTA        GET SECTOR/TRACK LIMIT

Seq #  *Modification Id* Act 
----------------------------+
29869  M01S17508.cpum156 ---|          IX4    X4+X2       ADVANCE TOTAL SECTORS TRANSFERRED

Seq #  *Modification Id* Act 
----------------------------+
29870  M01S00001.cpum156 +++|          MX6    -12
29871  M01S00002.cpum156 +++|          IX7    X4+X2       ADVANCE TOTAL SECTORS TRANSFERRED
29872  M01S00003.cpum156 +++|          BX7    -X6*X7      CLEAR POSSIBLE OVERFLOW
29873  M01S00004.cpum156 +++|          BX4    X6*X4       CLEAR OLD SECTORS TRANSFERRED FIELD
29874  M01S00005.cpum156 +++|          BX4    X4+X7
29875  M00S17509.cpumtr  +++|          LX4    -24

Seq #  *Modification Id* Act 
----------------------------+
29876  M01S17510.cpumt42 ---|          SA1    X1+MDGL
29877  M00S17511.cpumtr  +++|          IX7    X4+X2       ADVANCE CURRENT SECTOR
29878  M00S17512.cpumtr  +++|          MX2    -12
29879  M00S17513.cpumtr  +++|          LX4    -24

Seq #  *Modification Id* Act 
----------------------------+
29880  M02S00001.251l664 ---|          R=     X1,ESTE

Seq #  *Modification Id* Act 
----------------------------+
29881  M01S00002.cpumt42 +++|          BX6    -X2*X4      EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
29882  M02S00003.251l664 ---|          IX6    X1*X6

Seq #  *Modification Id* Act 
----------------------------+
29883  M02S00991.261l700 ---|          LX6    1
29884  M02S00992.261l700 ---|          ERRNZ  ESTE-2      CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
29885  M02S00004.261l700 ---|          TA1    X6+EQDE,EST GET EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
29886  M01S00124.261l700 +++|          CX1    X6,EST      CONVERT EST ORDINAL TO OFFSET
29887  M01S00125.261l700 +++|          TA1    X1+EQDE,EST GET EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
29888  M01S00005.cpumt42 +++|          BX1    -X2*X1      MST ADDRESS / 10B
29889  M01S00006.cpumt42 +++|          LX1    3
29890  M01S00007.cpumt42 +++|          SA1    X1+MDGL     GET SECTOR LIMIT
29891  M00S17514.cpumtr  +++|          BX6    -X2*X1
29892  M00S17515.cpumtr  +++|          BX1    -X2*X7
29893  M00S17516.cpumtr  +++|          IX6    X1-X6
29894  M00S17517.cpumtr  +++|          NG     X6,UDP4     IF NOT END OF TRACK
29895  M00S17518.cpumtr  +++|          BX6    -X2*X4      EQUIPMENT
29896  M00S17519.cpumtr  +++|          LX4    12-2

Seq #  *Modification Id* Act 
----------------------------+
29897  M01S17520.251l664 ---|          R=     X1,ESTE
29898  M01S17521.251l664 ---|          IX6    X6*X1

Seq #  *Modification Id* Act 
----------------------------+
29899  M02S00993.261l700 ---|          LX6    1
29900  M02S00994.261l700 ---|          ERRNZ  ESTE-2      CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
29901  M01S17522.261l700 ---|          TA1    X6+EQDE,EST READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
29902  M01S00126.261l700 +++|          CX1    X6,EST      CONVERT EST ORDINAL TO OFFSET
29903  M01S00127.261l700 +++|          TA1    X1+EQDE,EST READ EST ENTRY
29904  M00S17523.cpumtr  +++|          MX6    -9
29905  M00S17524.cpumtr  +++|          BX1    -X2*X1      MST ADDRESS / 10B
29906  M00S17525.cpumtr  +++|          BX4    -X6*X4      TRT WORD INDEX
29907  M00S17526.cpumtr  +++|          LX1    3
29908  M00S17527.cpumtr  +++|          AX7    12          CLEAR CURRENT SECTOR
29909  M00S17528.cpumtr  +++|          SA1    X1+TRLL     SET FWA OF TRT
29910  M00S17529.cpumtr  +++|          IX1    X1+X4
29911  M00S17530.cpumtr  +++|          MX6    -2
29912  M00S17531.cpumtr  +++|          SA1    X1+         READ TRT WORD
29913  M00S17532.cpumtr  +++|          BX6    -X6*X7      TRT BYTE INDEX
29914  M00S17533.cpumtr  +++|          SX4    12
29915  M00S17534.cpumtr  +++|          IX6    X6*X4
29916  M00S17535.cpumtr  +++|          SB6    X6
29917  M00S17536.cpumtr  +++|          LX1    B6
29918  M00S17537.cpumtr  +++|          PL     X1,/PROGRAM/HNG  IF NO NEXT TRACK
29919  M00S17538.cpumtr  +++|          LX1    12
29920  M00S17539.cpumtr  +++|          BX6    -X2*X1      GET NEXT TRACK
29921  M00S17540.cpumtr  +++|          BX7    X2*X7       CLEAR TRACK
29922  M00S17541.cpumtr  +++|          BX7    X7+X6       SET NEXT TRACK
29923  M00S17542.cpumtr  +++|          LX7    12
29924  M00S17543.cpumtr  +++| UDP4     LX7    12          UPDATE *PIOM* *MB* PARAMETERS
29925  M00S17544.cpumtr  +++|          SA7    A4
29926  M00S17545.cpumtr  +++|          JP     B2          RETURN
29927  M00S17546.cpumtr  +++| DIB      SPACE  4,15
29928  M00S17547.cpumtr  +++|**        DIB - DROP I/O BUFFERS.
29929  M00S17548.cpumtr  +++|*
29930  M00S17549.cpumtr  +++|*         ENTRY  (B5) = FIRST FREE TRACK POINTER.
29931  M00S17550.cpumtr  +++|*                (B6) = FWA TRT.
29932  M00S17551.cpumtr  +++|*                (A5) = PP *OR* ADDRESS.
29933  M00S17552.cpumtr  +++|*                (X3) = TRACK AND PRU INCREMENT.
29934  M00S17553.cpumtr  +++|*                (X4) = -3777B.

Seq #  *Modification Id* Act 
----------------------------+
29935  M01S17554.253l688 ---|*                (X6) = TRACK POINTER.
29936  M01S17555.253l688 ---|*                (X7) = NUMBER OF TRACKS AND PRUS DROPPED.

Seq #  *Modification Id* Act 
----------------------------+
29937  M01S01561.253l688 +++|*                (X6) = NUMBER OF TRACKS AND PRU-S DROPPED.
29938  M01S01562.253l688 +++|*                (X7) = TRACK POINTER.
29939  M00S17556.cpumtr  +++|*
29940  M00S17557.cpumtr  +++|*         EXIT   ABOVE REGISTERS RESTORED AS ON ENTRY.
29941  M00S17558.cpumtr  +++|*                (B7) .NE. 0 TO INDICATE DEVICE.
29942  M00S17559.cpumtr  +++|*
29943  M00S17560.cpumtr  +++|*         USES   A - 1, 3, 6, 7.
29944  M00S17561.cpumtr  +++|*                B - 2, 5, 6.
29945  M00S17562.cpumtr  +++|*                X - 1, 2, 3, 4, 5, 6, 7.
29946  M00S17563.cpumtr  +++|*
29947  M00S17564.cpumtr  +++|*         CALLS  LBM.
29948  M00S17565.cpumtr  +++|
29949  M00S17566.cpumtr  +++|
29950  M00S17567.cpumtr  +++| DIBA     CON    0           PSEUDO FNT (EQUIPMENT, TRACK, SECTOR)
29951  M00S17568.cpumtr  +++|
29952  M00S17569.cpumtr  +++| DIB1     SB5    B2          FIRST FREE TRACK POINTER
29953  M00S17570.cpumtr  +++|          SA3    SCRA        TRACK AND PRU INCREMENT
29954  M00S17571.cpumtr  +++|          SB6    B7          FWA TRT
29955  M00S17572.cpumtr  +++|          SA1    A3+B1       TRACK POINTER

Seq #  *Modification Id* Act 
----------------------------+
29956  M01S01563.253l688 +++|          BX7    X1
29957  M01S01564.253l688 +++|          MX4    -11
29958  M01S01565.253l688 +++|          SA1    A1+B1       NUMBER OF TRACKS AND PRU-S DROPPED
29959  M00S17573.cpumtr  +++|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
29960  M01S17574.253l688 ---|          MX4    -11
29961  M01S17575.253l688 ---|          SA1    A1+B1       NUMBER OF TRACKS AND PRUS DROPPED
29962  M01S17576.253l688 ---|          BX7    X1
29963  M00S17577.cpumtr  +++|          EQ     /PROGRAM/DTC5.1  RETURN TO DROP REMAINING TRACKS
29964  M00S17578.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
29965  M01S17579.cpum134 ---| DIB      SB2    B5          SAVE (B5)

Seq #  *Modification Id* Act 
----------------------------+
29966  M01S00001.cpum134 +++| DIB      SA5    A5+         CHECK FOR PROGRAM MODE
29967  M01S00002.cpum134 +++|          SB2    B5          SAVE (B5)
29968  M01S00003.cpum134 +++|          LX5    59-58

Seq #  *Modification Id* Act 
----------------------------+
29969  M01S17580.253l688 ---|          SA6    B1+SCRA     SAVE (X6)

Seq #  *Modification Id* Act 
----------------------------+
29970  M01S01566.253l688 +++|          SA7    B1+SCRA     SAVE (W6)

Seq #  *Modification Id* Act 
----------------------------+
29971  M01S00004.cpum134 +++|          PL     X5,/PROGRAM/DTC5.1  IF NOT PROGRAM MODE
29972  M00S17581.cpumtr  +++|          SB7    B6          SAVE (B6)

Seq #  *Modification Id* Act 
----------------------------+
29973  M01S17582.253l688 ---|          SA7    A6+B1       SAVE (X7)
29974  M01S17583.253l688 ---|          BX7    X3

Seq #  *Modification Id* Act 
----------------------------+
29975  M01S01567.253l688 +++|          SA6    A7+B1       SAVE (X6)
29976  M01S01568.253l688 +++|          BX6    X3

Seq #  *Modification Id* Act 
----------------------------+
29977  M01S00005.cpum134 +++|          SX3    B1

Seq #  *Modification Id* Act 
----------------------------+
29978  M01S17584.253l688 ---|          SA7    A6-B1       SAVE (X3)

Seq #  *Modification Id* Act 
----------------------------+
29979  M01S01569.253l688 +++|          SA6    A7-B1       SAVE (X3)
29980  M00S17585.cpumtr  +++|          LX4    -12
29981  M00S17586.cpumtr  +++|          SA1    A5          BUILD PSEUDO FNT

Seq #  *Modification Id* Act 
----------------------------+
29982  M01S00006.cpum134 +++|          LX3    35-0

Seq #  *Modification Id* Act 
----------------------------+
29983  M01S17587.253l688 ---|          LX6    2+24

Seq #  *Modification Id* Act 
----------------------------+
29984  M01S01570.253l688 +++|          LX7    2+24
29985  M00S17588.cpumtr  +++|          SX5    BMDB        DROP I/O BUFFERS
29986  M00S17589.cpumtr  +++|          LX1    12
29987  M00S17590.cpumtr  +++|          BX1    -X4*X1      EQUIPMENT
29988  M00S17591.cpumtr  +++|          SX2    DIBA-1      PSEUDO FNT ADDRESS
29989  M00S17592.cpumtr  +++|          LX5    -6

Seq #  *Modification Id* Act 
----------------------------+
29990  M01S17593.253l688 ---|          BX6    X1+X6

Seq #  *Modification Id* Act 
----------------------------+
29991  M01S01571.253l688 +++|          BX7    X1+X7
29992  M00S17594.cpumtr  +++|          SB6    DIB1        RETURN ADDRESS FOR *LBM*

Seq #  *Modification Id* Act 
----------------------------+
29993  M02S00007.253l688 ---|          BX6    X6+X3

Seq #  *Modification Id* Act 
----------------------------+
29994  M01S01572.253l688 +++|          BX7    X7+X3
29995  M00S17595.cpumtr  +++|          BX5    X5+X2

Seq #  *Modification Id* Act 
----------------------------+
29996  M01S17596.253l688 ---|          SA6    X2+B1

Seq #  *Modification Id* Act 
----------------------------+
29997  M01S01573.253l688 +++|          SA7    X2+B1
29998  M00S17597.cpumtr  +++|*         EQ     LBM         CALL I/O BUFFER MANAGER
29999  M00S17598.cpumtr  +++| LBM      SPACE  4,45
30000  M00S17599.cpumtr  +++|**        LBM - I/O BUFFER MANAGER.
30001  M00S17600.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
30002  M01S17601.251l664 ---|*         ENTRY  (X5) = INPUT REQUEST.
30003  M01S17602.251l664 ---|*         6/OP, 6/BC, 24/0, 6/CP, 18/FNTA
30004  M01S17603.251l664 ---|*         OP = 0 - READ.
30005  M01S17604.251l664 ---|*              1 - WRITE.
30006  M01S17605.251l664 ---|*              2 - REWRITE.
30007  M01S17606.251l664 ---|*              3 - FLUSH.
30008  M01S17607.251l664 ---|*              4 - ILLEGAL (INB MUST BE CALLED DIRECTLY)
30009  M01S17608.251l664 ---|*              5 - RELEASE EMPTY BUFFER.
30010  M01S17609.251l664 ---|*              6 - RELEASE READ BUFFER.
30011  M01S17610.251l664 ---|*              7 - RELEASE WRITE BUFFER.
30012  M01S17611.251l664 ---|*              10 - DROP ALL BUFFERS.
30013  M01S17612.251l664 ---|*              11 - FLUSH WRITE BUFFERS.
30014  M01S17613.251l664 ---|*         BC = BUFFER COUNT (BC ZERO, USE DEFAULT OF 4).
30015  M01S17614.251l664 ---|*             (FOR OP=3, RESTART 819 I/O IF BC .NE. 0)
30016  M01S17615.251l664 ---|*             (FOR OP=4, BC = 0 FOR READ, 1 FOR WRITE)
30017  M01S17616.251l664 ---|*         CP = CONTROL POINT NUMBER FOR CPUCIO.
30018  M01S17617.251l664 ---|*              0  FOR PP CALL.
30019  M01S17618.251l664 ---|*         FNTA = FNT ORDINAL IF CPUCIO.
30020  M01S17619.251l664 ---|*                FNT ADDRESS IF PP CALL.
30021  M01S17620.251l664 ---|*                EST ORDINAL IF OP = 11, 0 = FLUSH ALL BUFFERS.
30022  M01S17621.251l664 ---|*         (B6) = RETURN ADDRESS.
30023  M01S17622.251l664 ---|*
30024  M01S17623.251l664 ---|*         EXIT   (X6) = RESPONSE.
30025  M01S17624.251l664 ---|*         6/ST, 6/UN, 12/CYL, 6/PT, 6/PS, 12/0, 12/BI.
30026  M01S17625.251l664 ---|*         ST = STATUS.
30027  M01S17626.251l664 ---|*                59 - RECALL.
30028  M01S17627.251l664 ---|*                58 - BUFFER BUSY.
30029  M01S17628.251l664 ---|*                57 - DISK NOT READY.
30030  M01S17629.251l664 ---|*                56 - UNRECOVERED HARDWARE ERROR.

Seq #  *Modification Id* Act 
----------------------------+
30031  M02S00007.251l664 ---|*                55 - ADDRESS ERROR.

Seq #  *Modification Id* Act 
----------------------------+
30032  M01S17630.251l664 ---|*         UN = UNIT NUMBER.
30033  M01S17631.251l664 ---|*         CYL = PHYSICAL CYLINDER.
30034  M01S17632.251l664 ---|*         PT = PHYSICAL TRACK.
30035  M01S17633.251l664 ---|*         PS = PHYSICAL SECTOR.
30036  M01S17634.251l664 ---|*         BI = BUFFER INDEX.
30037  M01S17635.251l664 ---|*         (FNTA) = FNT ABSOLUTE ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
30038  M02S00995.283l840 ---|*         ENTRY  (X5) = 6/OP, 6/BC, 24/0, 6/CP, 18/FNTA

Seq #  *Modification Id* Act 
----------------------------+
30039  M01S00164.283l840 +++|*         ENTRY  (X5) = 6/OP, 6/PA, 24/0, 6/CP, 18/FNTA

Seq #  *Modification Id* Act 
----------------------------+
30040  M01S00996.251l664 +++|*                       OP = OPERATION CODE.
30041  M01S00997.251l664 +++|*                            BMRD = READ BUFFER.
30042  M01S00998.251l664 +++|*                            BMWR = WRITE BUFFER.
30043  M01S00999.251l664 +++|*                            BMRW = REWRITE BUFFER.
30044  M01S01000.251l664 +++|*                            BMVI = VALIDATE AND INTERLOCK BUFFER.
30045  M01S01001.251l664 +++|*                            BMRG = RELEASE READ BUFFER AND GET NEXT.
30046  M01S01002.251l664 +++|*                            BMRB = RELEASE READ BUFFER.
30047  M01S01003.251l664 +++|*                            BMFL = FLUSH BUFFER.
30048  M01S01004.251l664 +++|*                            BMRF = RELEASE AND FLUSH WRITE BUFFER.
30049  M01S01005.251l664 +++|*                            BMFW = FLUSH ALL WRITE BUFFERS.

Seq #  *Modification Id* Act 
----------------------------+
30050  M01S00165.283l840 +++|*                            BMTR = TERMINATE SHARED DEVICE READ
30051  M01S00166.283l840 +++|*                                   ACCESS.
30052  M01S00167.283l840 +++|*                            BMTW = TERMINATE SHARED DEVICE WRITE
30053  M01S00168.283l840 +++|*                                   ACCESS.

Seq #  *Modification Id* Act 
----------------------------+
30054  M02S01006.283l840 ---|*                            BMDB = DROP ALL BUFFERS.

Seq #  *Modification Id* Act 
----------------------------+
30055  M01S00169.283l840 +++|*                            BMDB = DROP ALL BUFFERS FOR FILE.
30056  M01S00170.283l840 +++|*                            BMDD = DROP ALL BUFFERS ON DEVICE.

Seq #  *Modification Id* Act 
----------------------------+
30057  M02S01007.283l840 ---|*                       BC = BUFFER COUNT/SECONDARY SUBFUNCTION.
30058  M02S01008.283l840 ---|*                            IF 0, USE DEFAULT = *DCNT*.
30059  M02S01009.283l840 ---|*                            FOR OP = *BMFL*, RESTART 819 I/O IF
30060  M02S01010.283l840 ---|*                                BC .NE. 0.
30061  M02S01011.283l840 ---|*                            FOR OP = *BMVI*, BC = 0 FOR READ, 1 FOR
30062  M02S01012.283l840 ---|*                                WRITE.

Seq #  *Modification Id* Act 
----------------------------+
30063  M01S00171.283l840 +++|*                            BMCR = COMPLETE SHARED DEVICE READ ACCESS
30064  M01S00172.283l840 +++|*                                   REQUEST.
30065  M01S00173.283l840 +++|*                            BMCW = COMPLETE SHARED DEVICE WRITE ACCESS
30066  M01S00174.283l840 +++|*                                   REQUEST.
30067  M01S00175.283l840 +++|*                       PA = OPERATION CODE DEPENDENT PARAMETER.
30068  M01S00176.283l840 +++|*                            FOR *BMRD* - BUFFER COUNT.
30069  M01S00177.283l840 +++|*                                     0 = USE DEFAULT BUFFER COUNT.
30070  M01S00178.283l840 +++|*                                     BUFFER COUNT IF .NE. 0.
30071  M01S00179.283l840 +++|*                            FOR *BMWR* - RECALL ALLOWED FLAG.
30072  M01S00180.283l840 +++|*                                     0 = RECALL ALLOWED.
30073  M01S00181.283l840 +++|*                                     1 = RECALL NOT ALLOWED.
30074  M01S00182.283l840 +++|*                            FOR *BMVI* - OPERATION CODE TO BE
30075  M01S00183.283l840 +++|*                                     EXECUTED IF BUFFER CANNOT BE
30076  M01S00184.283l840 +++|*                                     INTERLOCKED IN MONITOR MODE.
30077  M01S00185.283l840 +++|*                                     *BMRD* = INTERLOCK FOR READ.
30078  M01S00186.283l840 +++|*                                     *BMWR* = INTERLOCK FOR WRITE.
30079  M01S00187.283l840 +++|*                            FOR *BMRF* - WRITE OPERATION CODE TO BE
30080  M01S00188.283l840 +++|*                                     EXECUTED ON NEXT BUFFER AFTER
30081  M01S00189.283l840 +++|*                                     FLUSH OF CURRENT BUFFER.
30082  M01S00190.283l840 +++|*                                     0 = NO WRITE OPERATION.
30083  M01S00191.283l840 +++|*                                     *BMWR* = WRITE BUFFER.
30084  M01S00192.283l840 +++|*                                     *BMRW* = REWRITE BUFFER.
30085  M01S00193.283l840 +++|*                            FOR *BMFW* - RESTART 819 I/O FLAG.
30086  M01S00194.283l840 +++|*                                     0 = DO NOT RESTART 819 I/O.
30087  M01S00195.283l840 +++|*                                     RESTART 819 I/O IF .NE. 0.
30088  M01S00196.283l840 +++|*                            FOR *BMCR*, *BMCW* - STATUS CODE.
30089  M01S00197.283l840 +++|*                                     0 = NORMAL COMPLETION.
30090  M01S00198.283l840 +++|*                                     1 = *BRT* ENTRY EVICTED BY *MTE*.
30091  M01S00199.283l840 +++|*                                     2 = OTHER MACHINE CANNOT RELEASE
30092  M01S00200.283l840 +++|*                                         WRITE ACCESS.

Seq #  *Modification Id* Act 
----------------------------+
30093  M02S01013.283l840 ---|*                       CP = CONTROL POINT NUMBER FOR *CPUCIO*.

Seq #  *Modification Id* Act 
----------------------------+
30094  M01S00201.283l840 +++|*                       CP = CONTROL POINT NUMBER IF PSEUDO-PP CALL.

Seq #  *Modification Id* Act 
----------------------------+
30095  M01S01014.251l664 +++|*                          = 0 IF PP CALL.

Seq #  *Modification Id* Act 
----------------------------+
30096  M02S01015.283l840 ---|*                       FNTA = FNT OFFSET IF *CPUCIO*.

Seq #  *Modification Id* Act 
----------------------------+
30097  M01S00202.283l840 +++|*                       FNTA = FNT OFFSET IF PSEUDO-PP CALL.

Seq #  *Modification Id* Act 
----------------------------+
30098  M01S01016.251l664 +++|*                            = PSEUDO FNT ADDRESS IF PP CALL.

Seq #  *Modification Id* Act 
----------------------------+
30099  M02S01017.283l840 ---|*                            = EST ORDINAL IF OP = *BMFW*.

Seq #  *Modification Id* Act 
----------------------------+
30100  M01S00203.283l840 +++|*                            = EST ORDINAL IF OP = *BMFW* OR *BMDD*.
30101  M01S00204.283l840 +++|*                            = 0 IF *BMFW* TO PROCESS ALL EQUIPMENTS.

Seq #  *Modification Id* Act 
----------------------------+
30102  M01S01018.251l664 +++|*                (B6) = EXIT ADDRESS.
30103  M01S01019.251l664 +++|*
30104  M01S01020.251l664 +++|*         EXIT   (X6) = 5/ST, 43/0, 12/BI
30105  M01S01021.251l664 +++|*                       ST = STATUS.
30106  M01S01022.251l664 +++|*                            BIT 59 SET IF RECALL.
30107  M01S01023.251l664 +++|*                            BIT 58 SET IF BUFFER BUSY.
30108  M01S01024.251l664 +++|*                            BIT 57 SET IF I/O ERROR.
30109  M01S01025.251l664 +++|*                            BIT 56 SET IF INACCESSIBLE DEVICE.
30110  M01S01026.251l664 +++|*                            BIT 55 SET IF ADDRESS ERROR.
30111  M01S01027.251l664 +++|*                       BI = BUFFER INDEX.
30112  M01S01028.251l664 +++|*                (FNTA) = ABSOLUTE FNT ADDRESS.
30113  M00S17636.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
30114  M01S17637.283l840 ---|*         USES   A - 1, 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
30115  M02S17638.283l840 ---|*                B - 3, 6.

Seq #  *Modification Id* Act 
----------------------------+
30116  M02S01029.283l840 ---|*                B - 3, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
30117  M01S17639.283l840 ---|*                X - 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
30118  M01S00205.283l840 +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
30119  M01S00206.283l840 +++|*                A - 1, 2, 3, 6, 7.
30120  M01S00207.283l840 +++|*                B - 3, 6.
30121  M00S17640.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
30122  M01S17641.251l664 ---|*         CALLS  DAB, FAW, FLB, RDB, REB, REN, RFB, RWB, SBS, WTB.

Seq #  *Modification Id* Act 
----------------------------+
30123  M01S01030.251l664 +++|*         CALLS  DAB, FAW, FLB, RDB, REB, REN, RFB, RWB, WTB.
30124  M00S17642.cpumtr  +++|
30125  M00S17643.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
30126  M01S17644.283l840 ---| LBM      SB3    SCRB

Seq #  *Modification Id* Act 
----------------------------+
30127  M01S00208.283l840 +++| LBM      SB3    SCRB        SET SUBROUTINE CALL STACK POINTER

Seq #  *Modification Id* Act 
----------------------------+
30128  M01S17645.251l664 ---| LBM1     SX6    B6          SAVE RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
30129  M01S01031.251l664 +++|          SX6    B6          SAVE RETURN ADDRESS
30130  M00S17646.cpumtr  +++|          MX1    -6          GET FUNCTION CODE
30131  M00S17647.cpumtr  +++|          SA6    RETA

Seq #  *Modification Id* Act 
----------------------------+
30132  M01S17648.251l664 ---|          SX6    A5          SAVE PP OR ADDRESS
30133  M01S17649.251l664 ---|          SA6    PPOR
30134  M00S17650.cpumtr  +++|          LX5    6

Seq #  *Modification Id* Act 
----------------------------+
30135  M01S17651.251l664 ---|          BX2    -X1*X5
30136  M01S17652.251l664 ---|          LX5    6           GET BUFFER COUNT
30137  M01S17653.251l664 ---|          SB6    X2

Seq #  *Modification Id* Act 
----------------------------+
30138  M01S01032.251l664 +++|          BX7    -X1*X5      GET PRIMARY SUBFUNCTION
30139  M01S01033.251l664 +++|          LX5    6           GET BUFFER COUNT/SECONDARY SUBFUNCTION

Seq #  *Modification Id* Act 
----------------------------+
30140  M02S01034.283l840 ---|          SA7    PSUB        SAVE PRIMARY SUBFUNCTION

Seq #  *Modification Id* Act 
----------------------------+
30141  M01S00209.283l840 +++|          SA7    OPRC        SAVE OPERATION CODE

Seq #  *Modification Id* Act 
----------------------------+
30142  M01S01035.251l664 +++|          SB6    X7
30143  M00S17654.cpumtr  +++|          BX6    -X1*X5
30144  M00S17655.cpumtr  +++|          LX5    -12

Seq #  *Modification Id* Act 
----------------------------+
30145  M01S17656.251l664 ---|          SA6    SUBF        SAVE SUBFUNCTION

Seq #  *Modification Id* Act 
----------------------------+
30146  M02S01036.283l840 ---|          SA6    SUBF        SAVE SECONDARY SUBFUNCTION/BUFFER COUNT

Seq #  *Modification Id* Act 
----------------------------+
30147  M01S00210.283l840 +++|          SA6    OPAR        SAVE SUBFUNCTION PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
30148  M01S17657.251l670 ---|          NZ     X6,LBM2     IF COUNT SUPPLIED
30149  M01S17658.251l670 ---|          SX6    DCNT        USE DEFAULT COUNT
30150  M01S17659.251l670 ---| LBM2     MX1    -24         GET RECALL PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
30151  M01S00165.251l670 +++|          MX1    -24
30152  M00S17660.cpumtr  +++|          SA6    BCNT

Seq #  *Modification Id* Act 
----------------------------+
30153  M01S17661.251l664 ---|          BX7    -X1*X5
30154  M01S17662.251l664 ---|          SA7    RPRM
30155  M01S17663.251l664 ---|          SX6    X7          GET FNT RELATIVE ADDRESS
30156  M01S17664.251l664 ---|          AX7    18          GET CP NUMBER
30157  M01S17665.251l664 ---|          ZR     X7,LBM3     IF PP CALL
30158  M01S17666.251l664 ---|          BX1    X7          GET CP RA

Seq #  *Modification Id* Act 
----------------------------+
30159  M01S01037.251l664 +++|          BX6    -X1*X5
30160  M01S01038.251l664 +++|          SA6    RPRM
30161  M01S01039.251l664 +++|          SX7    X6          GET FNT RELATIVE ADDRESS
30162  M01S01040.251l664 +++|          AX6    18          GET CP NUMBER
30163  M01S01041.251l664 +++|          ZR     X6,LBM3     IF PP CALL
30164  M01S01042.251l664 +++|          BX1    X6          GET CP RA
30165  M00S17667.cpumtr  +++|          LX1    7
30166  M00S17668.cpumtr  +++|          SA1    X1+FLSW
30167  M00S17669.cpumtr  +++|          MX2    -RMSK
30168  M00S17670.cpumtr  +++|          LX1    -RSHF
30169  M00S17671.cpumtr  +++|          BX1    -X2*X1
30170  M00S17672.cpumtr  +++|          LX1    6

Seq #  *Modification Id* Act 
----------------------------+
30171  M01S17673.251l664 ---|          IX6    X1-X6       FORM ADDRESS IN NEGATIVE FL
30172  M01S17674.251l664 ---| LBM3     SA6    FNTA        SAVE FNT ADDRESS
30173  M01S17675.251l664 ---|          SX4    B6-BMFW
30174  M01S17676.251l664 ---|          ZR     X4,LBM5     IF FLUSHING ALL WRITE BUFFERS

Seq #  *Modification Id* Act 
----------------------------+
30175  M01S01043.251l664 +++|          IX7    X1-X7       FORM ADDRESS IN NEGATIVE FL

Seq #  *Modification Id* Act 
----------------------------+
30176  M02S01044.283l840 ---| LBM3     SA7    FNTA        SAVE FNT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
30177  M01S00211.283l840 +++| LBM3     SA7    FNTA        SAVE FNT ADDRESS OR EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
30178  M01S01045.251l664 +++|          SX6    B6-BMFW

Seq #  *Modification Id* Act 
----------------------------+
30179  M02S01046.271l716 ---|          ZR     X6,LBM5     IF FLUSHING ALL WRITE BUFFERS

Seq #  *Modification Id* Act 
----------------------------+
30180  M01S01862.271l716 +++|          ZR     X6,LBM6     IF FLUSHING ALL WRITE BUFFERS

Seq #  *Modification Id* Act 
----------------------------+
30181  M01S00212.283l840 +++|          SX6    B6-BMDD
30182  M01S00213.283l840 +++|          ZR     X6,LBM6     IF DROPPING ALL BUFFERS
30183  M00S17677.cpumtr  +++|          SX1    B1          GET FNT WORD 1

Seq #  *Modification Id* Act 
----------------------------+
30184  M01S17678.251l664 ---|          IX1    X6+X1

Seq #  *Modification Id* Act 
----------------------------+
30185  M01S01047.251l664 +++|          IX1    X7+X1
30186  M00S17679.cpumtr  +++|          ERX1   X1
30187  M00S17680.cpumtr  +++|          LX1    -12
30188  M00S17681.cpumtr  +++|          MX7    -LSLBS
30189  M00S17682.cpumtr  +++|          BX4    -X7*X1
30190  M00S17683.cpumtr  +++|          MX5    -12
30191  M00S17684.cpumtr  +++|          BX7    -X5*X1
30192  M00S17685.cpumtr  +++|          SA7    OLSC
30193  M00S17686.cpumtr  +++|          IX7    X7-X4       SET LOGICAL SECTOR TO START OF 4K BUFFER
30194  M00S17687.cpumtr  +++|          LX1    -12         GET LOGICAL TRACK
30195  M00S17688.cpumtr  +++|          SA7    LSEC
30196  M00S17689.cpumtr  +++|          BX7    -X5*X1
30197  M00S17690.cpumtr  +++|          LX1    -24         GET EST ORDINAL
30198  M00S17691.cpumtr  +++|          SA7    LTRK
30199  M00S17692.cpumtr  +++|          MX2    -9

Seq #  *Modification Id* Act 
----------------------------+
30200  M01S17693.251l664 ---|          BX7    -X2*X1
30201  M01S17694.251l664 ---|          R=     X1,ESTE
30202  M01S17695.251l664 ---|          IX2    X7*X1
30203  M01S17696.251l664 ---|          TA2    X2+EQDE,EST READ EST ENTRY
30204  M01S17697.251l664 ---|          BX1    -X5*X2      MST ADDRESS / 10B
30205  M01S17698.251l664 ---|          LX2    59-58
30206  M01S17699.251l664 ---|          LX1    3
30207  M01S17700.251l664 ---|          SX6    B1+B1       PRESET NO SYSTEM FILE READ
30208  M01S17701.251l664 ---|          NZ     B6,LBM4     IF NOT READ SUBFUNCTION
30209  M01S17702.251l664 ---|          ERRNZ  BMRD        INDEX MUST BE ZERO
30210  M01S17703.251l664 ---|          PL     X2,LBM4     IF NOT SYSTEM DEVICE
30211  M01S17704.251l664 ---| LBMB     SA2    X1+DALL     GET SYSTEM DEVICE ACTIVITY
30212  M01S17705.251l664 ---|*         EQ     LBM3.1      (ONE SYSTEM DEVICE)
30213  M01S17706.251l664 ---|          SA7    OEST        SET ORIGINAL EST ORDINAL
30214  M01S17707.251l664 ---|          SA7    BSEO        SET BEST SYSTEM DEVICE ORDINAL
30215  M01S17708.251l664 ---|          BX7    X2
30216  M01S17709.251l664 ---|          SA7    A7-B1       SAVE BEST SYSTEM DEVICE ACTIVITY
30217  M01S17710.251l664 ---|          ERRNZ  BSEO-BSDA-1 ADDRESSES MUST BE CONSECUTIVE
30218  M01S17711.251l664 ---| LBM3.1   SA2    FNTA        FNT ADDRESS
30219  M01S17712.251l664 ---|          TX3    SP
30220  M01S17713.251l664 ---|          R=     X4,FSTL
30221  M01S17714.251l664 ---|          IX3    X2-X3
30222  M01S17715.251l664 ---|          PL     X3,LBM3.2   IF FNT IN USER NFL
30223  M01S17716.251l664 ---|          SA2    X2-1        READ PP MESSAGE BUFFER
30224  M01S17717.251l664 ---|          SX3    -40B        CHECK *CHRV* SELECTION
30225  M01S17718.251l664 ---|          BX7    X3*X2
30226  M01S17719.251l664 ---|          BX6    X3+X2
30227  M01S17720.251l664 ---|          SA7    A2+         CLEAR SYSTEM FILE FLAG IN *CHRV*
30228  M01S17721.251l664 ---|          EQ     LBM4        SET/CLEAR SYSTEM FILE READ FLAG
30229  M01S17722.251l664 ---|
30230  M01S17723.251l664 ---| LBM3.2   TA5    SYFO*FNTG+FSTG,FNT  GET SYSTEM FST
30231  M01S17724.251l664 ---|          IX3    X2+X4
30232  M01S17725.251l664 ---|          ERX3   X3          READ USER FST
30233  M01S17726.251l664 ---|          MX6    12
30234  M01S17727.251l664 ---|          BX3    X3-X5       COMPARE FIRST TRACK OF FILES
30235  M01S17728.251l664 ---|          LX3    12
30236  M01S17729.251l664 ---|          BX6    X6*X3
30237  M01S17730.251l664 ---| LBM4     SA6    SFRF        SET/CLEAR SYSTEM FILE READ FLAG
30238  M01S17731.251l664 ---|          SA2    X1+DILL     GET ALGORITHM INDEX
30239  M01S17732.251l664 ---|          BX7    X1
30240  M01S17733.251l664 ---|          SA7    MSTA        SAVE MST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
30241  M01S01048.251l664 +++|          BX1    -X2*X1      EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
30242  M02S01049.261l700 ---|          LX2    X1,B1
30243  M02S01050.261l700 ---|          ERRNZ  ESTE-2      CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
30244  M01S00128.261l700 +++|          CX2    X1,EST      CONVERT EST ORDINAL TO OFFSET

Seq #  *Modification Id* Act 
----------------------------+
30245  M01S01051.251l664 +++|          SX6    B1
30246  M01S01052.251l664 +++|          TA2    X2+EQDE,EST READ EST ENTRY
30247  M01S01053.251l664 +++|          TX4    A5-1,-SP
30248  M01S01054.251l664 +++|          SA3    CHRV

Seq #  *Modification Id* Act 
----------------------------+
30249  M02S01055.271l716 ---|          ZR     X4,LBM4     IF PSEUDO PP

Seq #  *Modification Id* Act 
----------------------------+
30250  M01S01863.271l716 +++|          ZR     X4,LBM4     IF PSEUDO PP

Seq #  *Modification Id* Act 
----------------------------+
30251  M01S01056.251l664 +++|          SA3    A5+1

Seq #  *Modification Id* Act 
----------------------------+
30252  M02S01057.283l840 ---| LBM4     BX7    -X5*X2      MST ADDRESS/10B

Seq #  *Modification Id* Act 
----------------------------+
30253  M01S00214.283l840 +++| LBM4     SX7    1
30254  M01S00215.283l840 +++|          LX7    57-0
30255  M01S00216.283l840 +++|          BX7    X7*X2
30256  M01S00217.283l840 +++|          ZR     X7,LBM5     IF NOT SHARED DEVICE
30257  M01S00218.283l840 +++|          SX7    X1+         SET EST ORDINAL TO INDICATE SHARED DEVICE
30258  M01S00219.283l840 +++| LBM5     SA7    SDEO
30259  M01S00220.283l840 +++|          BX7    -X5*X2      MST ADDRESS/10B

Seq #  *Modification Id* Act 
----------------------------+
30260  M01S01058.251l664 +++|          LX6    5-0
30261  M01S01059.251l664 +++|          LX7    3
30262  M01S01060.251l664 +++|          BX6    X6*X3       GET *READSYS* BIT FROM *CHRV*
30263  M01S01061.251l664 +++|          BX2    X7
30264  M01S01062.251l664 +++|          LX6    55-5
30265  M01S01063.251l664 +++|          SA6    SFRF        SET/CLEAR SYSTEM FILE READ FLAG
30266  M01S01064.251l664 +++|          SA7    MSTA        SAVE MST ADDRESS
30267  M01S01065.251l664 +++|          SA2    X2+DILL
30268  M00S17734.cpumtr  +++|          MX7    -6
30269  M00S17735.cpumtr  +++|          BX7    -X7*X2
30270  M00S17736.cpumtr  +++|          SA7    AILE        ALGORITHM INDEX FOR *LDAM* EQUIPMENT

Seq #  *Modification Id* Act 
----------------------------+
30271  M01S17737.251l664 ---|          MX5    -12
30272  M00S17738.cpumtr  +++|          SA1    FNTA        GET FNT WORD 2
30273  M00S17739.cpumtr  +++|          SX7    B1+B1
30274  M00S17740.cpumtr  +++|          IX1    X1+X7
30275  M00S17741.cpumtr  +++|          ERX1   X1
30276  M00S17742.cpumtr  +++|          BX7    -X5*X1      GET BUFFER INDEX
30277  M00S17743.cpumtr  +++|          SA7    BIDX

Seq #  *Modification Id* Act 
----------------------------+
30278  M01S00166.251l670 +++|          SA3    A2+BDLL-DILL  UNPACK READ AHEAD PARAMETERS
30279  M01S00167.251l670 +++|          SX7    77B
30280  M01S00168.251l670 +++|          BX6    X7*X3
30281  M01S00169.251l670 +++|          AX3    6
30282  M01S00170.251l670 +++|          SA6    RBTH        READ BUFFER THRESHOLD
30283  M01S00171.251l670 +++|          BX6    X7*X3
30284  M01S00172.251l670 +++|          AX3    6
30285  M01S00173.251l670 +++|          SA6    DBAT        BUFFER ALLOCATION TRIGGER
30286  M01S00174.251l670 +++|          SA2    BCNT
30287  M01S00175.251l670 +++|          BX6    X7*X3

Seq #  *Modification Id* Act 
----------------------------+
30288  M02S00176.283l840 ---|          ERRNZ  DBAT+1-DCNT  CODE DEPENDS ON VALUE
30289  M02S00177.283l840 ---|          SA6    A6+B1

Seq #  *Modification Id* Act 
----------------------------+
30290  M01S00221.283l840 +++|          SA6    DCNT

Seq #  *Modification Id* Act 
----------------------------+
30291  M02S00178.271l716 ---|          NZ     X2,LBM5     IF BUFFER COUNT SUPPLIED
30292  M02S00179.271l716 ---|          SA6    BCNT

Seq #  *Modification Id* Act 
----------------------------+
30293  M02S17744.271l716 ---| LBM5     SX7    B0+         CLEAR STORAGE
30294  M02S17745.271l716 ---|          SA7    FCBI
30295  M02S17746.271l716 ---|          SA7    FHEA
30296  M02S17747.271l716 ---|          SA7    CHEA
30297  M02S17748.271l716 ---|          SA7    STAT
30298  M02S17749.271l716 ---|          SA7    DHSF
30299  M02S17750.271l716 ---|          SA7    SYDI

Seq #  *Modification Id* Act 
----------------------------+
30300  M02S01066.271l716 ---| LBM5     SA1    A5

Seq #  *Modification Id* Act 
----------------------------+
30301  M01S01864.271l716 +++|          NZ     X2,LBM6     IF BUFFER COUNT SUPPLIED
30302  M01S01865.271l716 +++|          SA6    BCNT
30303  M01S01866.271l716 +++| LBM6     SA1    A5          REREAD OUTPUT REGISTER

Seq #  *Modification Id* Act 
----------------------------+
30304  M02S01067.252l678 ---|          MX7    -5

Seq #  *Modification Id* Act 
----------------------------+
30305  M01S00748.252l678 +++|          MX7    -6

Seq #  *Modification Id* Act 
----------------------------+
30306  M01S01068.251l664 +++|          BX6    X6-X6
30307  M01S01069.251l664 +++|          BX7    -X7*X1      CHANNEL NUMBER, IF SELECTED BY CALLER
30308  M01S01070.251l664 +++|          SA7    CHAN
30309  M01S01071.251l664 +++|          SA6    FCBI
30310  M01S01072.251l664 +++|          SA6    NCHV

Seq #  *Modification Id* Act 
----------------------------+
30311  M01S00001.cpum198 +++|          SA6    DTSF        CLEAR DATA STREAMING FLAG

Seq #  *Modification Id* Act 
----------------------------+
30312  M01S01073.251l664 +++|          PX7    X6          INITIALIZE BEST SYSTEM DEVICE ACTIVITY
30313  M01S01074.251l664 +++|          SA6    CHEA
30314  M01S01075.251l664 +++|          SA7    BSDA
30315  M01S01076.251l664 +++|          SA6    SYDI

Seq #  *Modification Id* Act 
----------------------------+
30316  M01S00222.283l840 +++|          TNO    /BUFIO/LBS,BIOMMF
30317  M00S17751.cpumtr  +++|          JP     B6+LBMA     PROCESS FUNCTION
30318  M00S17752.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
30319  M01S00223.283l840 +++|*         ENTER FUNCTION PROCESSOR.
30320  M01S00224.283l840 +++|*         (B3) = SUBROUTINE CALL STACK POINTER.
30321  M01S00225.283l840 +++|
30322  M00S17753.cpumtr  +++| LBMA     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
30323  M01S17754.283l840 ---|          LOC    0
30324  M00S17755.cpumtr  +++|          EQ     RDB         READ BUFFER

Seq #  *Modification Id* Act 
----------------------------+
30325  M01S17756.283l840 ---|          ERRNZ  *-BMRD      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
30326  M01S00226.283l840 +++|          ERRNZ  BMRD
30327  M00S17757.cpumtr  +++|          EQ     WTB         WRITE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
30328  M01S17758.283l840 ---|          ERRNZ  *-BMWR      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
30329  M01S00227.283l840 +++|          ERRNZ  BMWR-1
30330  M00S17759.cpumtr  +++|          EQ     RWB         REWRITE BUFFER

Seq #  *Modification Id* Act 
----------------------------+
30331  M01S17760.283l840 ---|          ERRNZ  *-BMRW      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
30332  M02S17761.283l840 ---|          EQ     FLB         FLUSH BUFFER
30333  M02S17762.283l840 ---|          ERRNZ  *-BMFL      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
30334  M01S17763.283l840 ---|          EQ     LBMA+*      VERIFY/INTERLOCK MUST BE CALLED DIRECTLY
30335  M01S17764.283l840 ---|          ERRNZ  *-BMVI      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
30336  M01S00228.283l840 +++|          ERRNZ  BMRW-2
30337  M01S00229.283l840 +++|          EQ     *           VERIFY/INTERLOCK MUST BE CALLED DIRECTLY
30338  M01S00230.283l840 +++|          ERRNZ  BMVI-3
30339  M00S17765.cpumtr  +++|          EQ     REB         RELEASE READ BUFFER AND GET NEXT BUFFER

Seq #  *Modification Id* Act 
----------------------------+
30340  M01S17766.283l840 ---|          ERRNZ  *-BMRG      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
30341  M01S00231.283l840 +++|          ERRNZ  BMRG-4
30342  M00S17767.cpumtr  +++|          EQ     REN         RELEASE READ BUFFER

Seq #  *Modification Id* Act 
----------------------------+
30343  M01S17768.283l840 ---|          ERRNZ  *-BMRB      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
30344  M01S00232.283l840 +++|          ERRNZ  BMRB-5

Seq #  *Modification Id* Act 
----------------------------+
30345  M01S01077.251l664 +++|          EQ     FLB         FLUSH BUFFER

Seq #  *Modification Id* Act 
----------------------------+
30346  M02S01078.283l840 ---|          ERRNZ  *-BMFL      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
30347  M01S00233.283l840 +++|          ERRNZ  BMFL-6
30348  M00S17769.cpumtr  +++|          EQ     RFB         RELEASE AND FLUSH BUFFER

Seq #  *Modification Id* Act 
----------------------------+
30349  M01S17770.283l840 ---|          ERRNZ  *-BMRF      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
30350  M01S00234.283l840 +++|          ERRNZ  BMRF-7

Proceed to Part 24