Deck CPUMTR Part 027

308 Modifications

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

Seq #  *Modification Id* Act 
----------------------------+
33477  M02S00301.272l774 ---|          SB4    CFDF

Seq #  *Modification Id* Act 
----------------------------+
33478  M01S00006.272l774 +++|          SB4    CFSDF

Seq #  *Modification Id* Act 
----------------------------+
33479  M01S00302.251l670 +++|          EQ     CLP6        PERFORM CONVERSION
33480  M01S00303.251l670 +++|
33481  M01S00304.251l670 +++|
33482  M01S00305.251l670 +++|**        887 LARGE (16K BYTE) SECTOR CONVERSION (*DH*).
33483  M01S00306.251l670 +++|*
33484  M01S00307.251l670 +++|*         ALGORITHM -
33485  M01S00308.251l670 +++|*         SL = 1300B
33486  M01S00309.251l670 +++|*         LU = LS/SL
33487  M01S00310.251l670 +++|*         X  = BIT 0 OF LT
33488  M01S00311.251l670 +++|*         PC = BITS 1 - 10 OF LT
33489  M01S00312.251l670 +++|*         PT = (X*SL+R(LS/SL))/540B
33490  M01S00313.251l670 +++|*         PS = (R(X*SL+R(LS/SL))/540B)/40B
33491  M01S00314.251l670 +++|

Seq #  *Modification Id* Act 
----------------------------+
33492  M02S00315.271l716 ---| CLP9     SX2    LSPTDH      LOGICAL SECTORS PER PHYSICAL TRACK

Seq #  *Modification Id* Act 
----------------------------+
33493  M01S01981.271l716 +++| CLP10    SX5    LSPTDH      LOGICAL SECTORS PER PHYSICAL TRACK

Seq #  *Modification Id* Act 
----------------------------+
33494  M02S00316.272l774 ---|          SB4    CFDH

Seq #  *Modification Id* Act 
----------------------------+
33495  M01S00007.272l774 +++|          SB4    CFSDH

Seq #  *Modification Id* Act 
----------------------------+
33496  M01S00317.251l670 +++|          EQ     CLP6        PERFORM CONVERSION

Seq #  *Modification Id* Act 
----------------------------+
33497  M01S01982.271l716 +++|
33498  M01S01983.271l716 +++|

Seq #  *Modification Id* Act 
----------------------------+
33499  M02S01984.272l774 ---|**        XMD CONVERSION (*DN*).

Seq #  *Modification Id* Act 
----------------------------+
33500  M01S00008.272l774 +++|**        9853 (XMD) CONVERSION (*DN*).

Seq #  *Modification Id* Act 
----------------------------+
33501  M01S01985.271l716 +++|*
33502  M01S01986.271l716 +++|*         ALGORITHM -
33503  M01S01987.271l716 +++|*         SL = 2140B
33504  M01S01988.271l716 +++|*         NN = ((LT*SL+LS)/40B)*10B
33505  M01S01989.271l716 +++|*         PC = NN/617B
33506  M01S01990.271l716 +++|*         PT = (R(NN/617B))/25B
33507  M01S01991.271l716 +++|*         PS = R((R(NN/617B))/25B)
33508  M01S01992.271l716 +++|

Seq #  *Modification Id* Act 
----------------------------+
33509  M02S01993.272l774 ---| CLP11    IX5    X4*X2       LT*SL
33510  M02S01994.272l774 ---|          SX2    PSPTDN*PTCYDN
33511  M02S01995.272l774 ---|          IX4    X5+X3       LT*SL+LS
33512  M02S01996.272l774 ---|          PX6    X2
33513  M02S01997.272l774 ---|          AX4    CFDN        NN
33514  M02S01998.272l774 ---|          NX6    X6

Seq #  *Modification Id* Act 
----------------------------+
33515  M01S00009.272l774 +++| CLP11    SB4    CFSDN
33516  M01S00010.272l774 +++|          SX6    PSPTDN*PTCYDN  PHYSICAL SECTORS PER CYLINDER
33517  M01S00011.272l774 +++|          SX5    PSPTDN
33518  M01S00012.272l774 +++|*         EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM
33519  M01S00013.272l774 +++|
33520  M01S00014.272l774 +++|*         ENTER COMMON ALGORITHM FOR 9853/583X WITH -
33521  M01S00015.272l774 +++|*
33522  M01S00016.272l774 +++|*         (B4) = SHIFT FOR LOGICAL TO PHYSICAL SECTOR CONVERSION.

Seq #  *Modification Id* Act 
----------------------------+
33523  M01S00068.284l847 +++|*         (X2) = SECTOR LIMIT.
33524  M01S00069.284l847 +++|*         (X3) = R(LS/SL).
33525  M01S00070.284l847 +++|*         (X4) = LT - 4000B.

Seq #  *Modification Id* Act 
----------------------------+
33526  M01S00017.272l774 +++|*         (X5) = NUMBER OF PHYSICAL SECTORS PER PHYSICAL TRACK.
33527  M01S00018.272l774 +++|*         (X6) = NUMBER OF PHYSICAL SECTORS PER CYLINDER.
33528  M01S00019.272l774 +++|
33529  M01S00020.272l774 +++| CLP12    IX1    X4*X2       LT*SL
33530  M01S00021.272l774 +++|          IX4    X1+X3       LT*SL+LS
33531  M01S00022.272l774 +++|          PX3    X6

Seq #  *Modification Id* Act 
----------------------------+
33532  M02S00023.284l847 ---|          AX4    B4          NN

Seq #  *Modification Id* Act 
----------------------------+
33533  M01S00071.284l847 +++|          AX4    B4          NN (CONVERT LOGICAL SECTORS TO PHYSICAL)

Seq #  *Modification Id* Act 
----------------------------+
33534  M01S00024.272l774 +++|          NX3    X3

Seq #  *Modification Id* Act 
----------------------------+
33535  M01S01999.271l716 +++|          PX1    X4

Seq #  *Modification Id* Act 
----------------------------+
33536  M01S00072.284l847 +++|          SA2    MSTA

Seq #  *Modification Id* Act 
----------------------------+
33537  M02S02000.272l774 ---|          FX1    X1/X6       NN / PHYSICAL SECTORS PER CYLINDER

Seq #  *Modification Id* Act 
----------------------------+
33538  M01S00025.272l774 +++|          FX1    X1/X3       NN / PHYSICAL SECTORS PER CYLINDER

Seq #  *Modification Id* Act 
----------------------------+
33539  M01S00073.284l847 +++|          SA3    X2+SCYL     GET STARTING CYLINDER

Seq #  *Modification Id* Act 
----------------------------+
33540  M01S02001.271l716 +++|          UX1,B4 X1

Seq #  *Modification Id* Act 
----------------------------+
33541  M02S02002.272l774 ---|          SX5    PSPTDN

Seq #  *Modification Id* Act 
----------------------------+
33542  M02S02003.284l847 ---|          LX1    B4          CYLINDER NUMBER

Seq #  *Modification Id* Act 
----------------------------+
33543  M01S00074.284l847 +++|          MX2    -12
33544  M01S00075.284l847 +++|          LX3    -24
33545  M01S00076.284l847 +++|          LX1    B4          RELATIVE PHYSICAL CYLINDER
33546  M01S00077.284l847 +++|          BX2    -X2*X3      CYLINDER OFFSET

Seq #  *Modification Id* Act 
----------------------------+
33547  M02S02004.272l774 ---|          IX3    X1*X2

Seq #  *Modification Id* Act 
----------------------------+
33548  M01S00026.272l774 +++|          IX3    X1*X6

Seq #  *Modification Id* Act 
----------------------------+
33549  M01S00078.284l847 +++|          IX1    X1+X2       ABSOLUTE PHYSICAL CYLINDER

Seq #  *Modification Id* Act 
----------------------------+
33550  M02S02005.284l847 ---|          SB4    B0

Seq #  *Modification Id* Act 
----------------------------+
33551  M01S00079.284l847 +++|          SB4    B0

Seq #  *Modification Id* Act 
----------------------------+
33552  M01S02006.271l716 +++|          BX3    -X3
33553  M01S02007.271l716 +++|          EQ     CLP7        CONVERT PT AND PS
33554  M00S19454.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
33555  M01S00027.272l774 +++|
33556  M01S00028.272l774 +++|**        5832 (1X SSD) CONVERSION (*EA*).
33557  M01S00029.272l774 +++|*
33558  M01S00030.272l774 +++|*         ALGORITHM -
33559  M01S00031.272l774 +++|*         SL = 240B
33560  M01S00032.272l774 +++|*         LU = LS/SL
33561  M01S00033.272l774 +++|*         NN = (LT*SL+R(LS/SL))/40B
33562  M01S00034.272l774 +++|*         PC = NN/14B
33563  M01S00035.272l774 +++|*         PT = R(NN/14B)/3
33564  M01S00036.272l774 +++|*         PS = R(R(NN/14B)/3)
33565  M01S00037.272l774 +++|
33566  M01S00038.272l774 +++| CLP13    SB4    CFSEA
33567  M01S00039.272l774 +++|          SX6    PSPTEA*PTCYEA  PHYSICAL SECTORS PER CYLINDER
33568  M01S00040.272l774 +++|          SX5    PSPTEA
33569  M01S00041.272l774 +++|          EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM
33570  M01S00042.272l774 +++|
33571  M01S00043.272l774 +++|
33572  M01S00044.272l774 +++|**        5832 (2X SSD) CONVERSION (*EB*).
33573  M01S00045.272l774 +++|*
33574  M01S00046.272l774 +++|*         ALGORITHM -
33575  M01S00047.272l774 +++|*         SL = 500B
33576  M01S00048.272l774 +++|*         LU = LS/SL
33577  M01S00049.272l774 +++|*         NN = (LT*SL+R(LS/SL))/40B
33578  M01S00050.272l774 +++|*         PC = NN/30B
33579  M01S00051.272l774 +++|*         PT = R(NN/30B)/6
33580  M01S00052.272l774 +++|*         PS = R(R(NN/30B)/6)
33581  M01S00053.272l774 +++|
33582  M01S00054.272l774 +++| CLP14    SB4    CFSEB
33583  M01S00055.272l774 +++|          SX6    PSPTEB*PTCYEB  PHYSICAL SECTORS PER CYLINDER
33584  M01S00056.272l774 +++|          SX5    PSPTEB
33585  M01S00057.272l774 +++|          EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM
33586  M01S00058.272l774 +++|
33587  M01S00059.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33588  M02S00060.284l847 ---|**        5833 (1X SABRE) CONVERSION (*EC*).

Seq #  *Modification Id* Act 
----------------------------+
33589  M01S00080.284l847 +++|**        5833 (1X/1XP SABRE) CONVERSION (*EC/ED*).

Seq #  *Modification Id* Act 
----------------------------+
33590  M01S00061.272l774 +++|*
33591  M01S00062.272l774 +++|*         ALGORITHM -
33592  M01S00063.272l774 +++|*         SL = 1740B
33593  M01S00064.272l774 +++|*         LU = LS/SL
33594  M01S00065.272l774 +++|*         NN = (LT*SL+R(LS/SL))/40B
33595  M01S00066.272l774 +++|*         PC = NN/50B
33596  M01S00067.272l774 +++|*         PT = R(NN/50B)/6
33597  M01S00068.272l774 +++|*         PS = R(R(NN/50B)/6)
33598  M01S00069.272l774 +++|
33599  M01S00070.272l774 +++| CLP15    SB4    CFSEC
33600  M01S00071.272l774 +++|          SX6    PSPTEC*PTCYEC-SPSCEC  PHYSICAL SECTORS PER CYLINDER
33601  M01S00072.272l774 +++|          SX5    PSPTEC
33602  M01S00073.272l774 +++|          EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM
33603  M01S00074.272l774 +++|
33604  M01S00075.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33605  M02S00076.284l847 ---|**        5833 (1XP SABRE) CONVERSION (*ED*).

Seq #  *Modification Id* Act 
----------------------------+
33606  M01S00081.284l847 +++|**        5833 (2X/2XP SABRE) CONVERSION (*EE/EF*).

Seq #  *Modification Id* Act 
----------------------------+
33607  M01S00077.272l774 +++|*
33608  M01S00078.272l774 +++|*         ALGORITHM -

Seq #  *Modification Id* Act 
----------------------------+
33609  M02S00079.284l847 ---|*         SL = 1740B
33610  M02S00080.284l847 ---|*         LU = LS/SL
33611  M02S00081.284l847 ---|*         NN = (LT*SL+R(LS/SL))/40B
33612  M02S00082.284l847 ---|*         PC = NN/50B
33613  M02S00083.284l847 ---|*         PT = R(NN/50B)/6
33614  M02S00084.284l847 ---|*         PS = R(R(NN/50B)/6)

Seq #  *Modification Id* Act 
----------------------------+
33615  M01S00082.284l847 +++|*         SL = 3600B
33616  M01S00083.284l847 +++|*         NN = (LT*SL+LS)/40B
33617  M01S00084.284l847 +++|*         PC = NN/113B
33618  M01S00085.284l847 +++|*         PT = R(NN/113B)/13B
33619  M01S00086.284l847 +++|*         PS = R(R(NN/113B)/13B)

Seq #  *Modification Id* Act 
----------------------------+
33620  M01S00085.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33621  M02S00086.284l847 ---| CLP16    SB4    CFSED
33622  M02S00087.284l847 ---|          SX6    PSPTED*PTCYED-SPSCED  PHYSICAL SECTORS PER CYLINDER
33623  M02S00088.284l847 ---|          SX5    PSPTED

Seq #  *Modification Id* Act 
----------------------------+
33624  M01S00087.284l847 +++| CLP16    SB4    CFSEE
33625  M01S00088.284l847 +++|          SX6    PSPTEE*PTCYEE-SPSCEE  PHYSICAL SECTORS PER CYLINDER
33626  M01S00089.284l847 +++|          SX5    PSPTEE

Seq #  *Modification Id* Act 
----------------------------+
33627  M01S00089.272l774 +++|          EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM
33628  M01S00090.272l774 +++|
33629  M01S00091.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33630  M02S00092.284l847 ---|**        5833 (2X SABRE) CONVERSION (*EE*).

Seq #  *Modification Id* Act 
----------------------------+
33631  M01S00090.284l847 +++|**        5833 (3XP SABRE) CONVERSION (*EM*).

Seq #  *Modification Id* Act 
----------------------------+
33632  M01S00093.272l774 +++|*
33633  M01S00094.272l774 +++|*         ALGORITHM -

Seq #  *Modification Id* Act 
----------------------------+
33634  M02S00095.284l847 ---|*         SL = 3600B

Seq #  *Modification Id* Act 
----------------------------+
33635  M01S00091.284l847 +++|*         SL = 2740B

Seq #  *Modification Id* Act 
----------------------------+
33636  M01S00096.272l774 +++|*         NN = (LT*SL+LS)/40B

Seq #  *Modification Id* Act 
----------------------------+
33637  M02S00097.284l847 ---|*         PC = NN/113B
33638  M02S00098.284l847 ---|*         PT = R(NN/113B)/13B
33639  M02S00099.284l847 ---|*         PS = R(R(NN/113B)/13B)

Seq #  *Modification Id* Act 
----------------------------+
33640  M01S00092.284l847 +++|*         PC = NN/167B
33641  M01S00093.284l847 +++|*         PT = R(NN/167B)/21B
33642  M01S00094.284l847 +++|*         PS = R(R(NN/167B)/21B)

Seq #  *Modification Id* Act 
----------------------------+
33643  M01S00100.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33644  M02S00101.284l847 ---| CLP17    SB4    CFSEE
33645  M02S00102.284l847 ---|          SX6    PSPTEE*PTCYEE-SPSCEE  PHYSICAL SECTORS PER CYLINDER
33646  M02S00103.284l847 ---|          SX5    PSPTEE

Seq #  *Modification Id* Act 
----------------------------+
33647  M01S00095.284l847 +++| CLP17    SB4    CFSEM
33648  M01S00096.284l847 +++|          SX6    PSPTEM*PTCYEM-SPSCEM  PHYSICAL SECTORS PER CYLINDER
33649  M01S00097.284l847 +++|          SX5    PSPTEM

Seq #  *Modification Id* Act 
----------------------------+
33650  M01S00104.272l774 +++|          EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM
33651  M01S00105.272l774 +++|
33652  M01S00106.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33653  M02S00107.284l847 ---|**        5833 (2XP SABRE) CONVERSION (*EF*).

Seq #  *Modification Id* Act 
----------------------------+
33654  M01S00098.284l847 +++|**        5833 (4X SABRE) CONVERSION (*EN*).

Seq #  *Modification Id* Act 
----------------------------+
33655  M01S00108.272l774 +++|*
33656  M01S00109.272l774 +++|*         ALGORITHM -

Seq #  *Modification Id* Act 
----------------------------+
33657  M02S00110.284l847 ---|*         SL = 3600B
33658  M02S00111.284l847 ---|*         NN = (LT*SL+LS)/40B
33659  M02S00112.284l847 ---|*         PC = NN/113B
33660  M02S00113.284l847 ---|*         PT = R(NN/113B)/13B
33661  M02S00114.284l847 ---|*         PS = R(R(NN/113B)/13B)

Seq #  *Modification Id* Act 
----------------------------+
33662  M01S00099.284l847 +++|*         SL = 3640B
33663  M01S00100.284l847 +++|*         LU = LS/SL
33664  M01S00101.284l847 +++|*         NN = (LT*SL+R(LS/SL))/40B
33665  M01S00102.284l847 +++|*         PC = NN/232B
33666  M01S00103.284l847 +++|*         PT = R(NN/232B)/26B
33667  M01S00104.284l847 +++|*         PS = R(R(NN/232B)/26B)

Seq #  *Modification Id* Act 
----------------------------+
33668  M01S00115.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33669  M02S00116.284l847 ---| CLP18    SB4    CFSEF
33670  M02S00117.284l847 ---|          SX6    PSPTEF*PTCYEF-SPSCEF  PHYSICAL SECTORS PER CYLINDER
33671  M02S00118.284l847 ---|          SX5    PSPTEF

Seq #  *Modification Id* Act 
----------------------------+
33672  M01S00105.284l847 +++| CLP18    SB4    CFSEN
33673  M01S00106.284l847 +++|          SX6    PSPTEN*PTCYEN-SPSCEN  PHYSICAL SECTORS PER CYLINDER
33674  M01S00107.284l847 +++|          SX5    PSPTEN

Seq #  *Modification Id* Act 
----------------------------+
33675  M01S00119.272l774 +++|          EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM
33676  M01S00120.272l774 +++|
33677  M01S00121.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33678  M02S00001.284l847 ---|**        5838 (1X ELITE) CONVERSION (*EG*).

Seq #  *Modification Id* Act 
----------------------------+
33679  M01S00108.284l847 +++|**        5838 (1X/1XP ELITE) CONVERSION (*EG/EH*).

Seq #  *Modification Id* Act 
----------------------------+
33680  M01S00002.ns2768  +++|*
33681  M01S00003.ns2768  +++|*         ALGORITHM -
33682  M01S00004.ns2768  +++|*         SL = 3240B
33683  M01S00005.ns2768  +++|*         NN = (LT*SL+LS)/40B
33684  M01S00006.ns2768  +++|*         PC = NN/51B
33685  M01S00007.ns2768  +++|*         PT = R(NN/51B)/5B
33686  M01S00008.ns2768  +++|*         PS = R(R(NN/51B)/5B)
33687  M01S00009.ns2768  +++|
33688  M01S00010.ns2768  +++| CLP19    SB4    CFSEG
33689  M01S00011.ns2768  +++|          SX6    PSPTEG*PTCYEG-SPSCEG  PHYSICAL SECTORS PER CYLINDER
33690  M01S00012.ns2768  +++|          SX5    PSPTEG
33691  M01S00013.ns2768  +++|          EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM
33692  M01S00014.ns2768  +++|
33693  M01S00015.ns2768  +++|

Seq #  *Modification Id* Act 
----------------------------+
33694  M02S00016.284l847 ---|**        5838 (1XP ELITE) CONVERSION (*EH*).

Seq #  *Modification Id* Act 
----------------------------+
33695  M01S00109.284l847 +++|**        5838 (2X/2XP ELITE) CONVERSION (*EI/EJ*).

Seq #  *Modification Id* Act 
----------------------------+
33696  M01S00017.ns2768  +++|*
33697  M01S00018.ns2768  +++|*         ALGORITHM -

Seq #  *Modification Id* Act 
----------------------------+
33698  M01S00110.284l847 +++|*         SL = 3100B
33699  M01S00111.284l847 +++|*         NN = (LT*SL+LS)/40B
33700  M01S00112.284l847 +++|*         PC = NN/115B
33701  M01S00113.284l847 +++|*         PT = R(NN/115B)/11B
33702  M01S00114.284l847 +++|*         PS = R(R(NN/115B)/11B)
33703  M01S00115.284l847 +++|
33704  M01S00116.284l847 +++| CLP20    SB4    CFSEI
33705  M01S00117.284l847 +++|          SX6    PSPTEI*PTCYEI-SPSCEI  PHYSICAL SECTORS PER CYLINDER
33706  M01S00118.284l847 +++|          SX5    PSPTEI
33707  M01S00119.284l847 +++|          EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM
33708  M01S00120.284l847 +++|
33709  M01S00121.284l847 +++|
33710  M01S00122.284l847 +++|**        5838 (3XP ELITE) CONVERSION (*EK*).
33711  M01S00123.284l847 +++|*
33712  M01S00124.284l847 +++|*         ALGORITHM -

Seq #  *Modification Id* Act 
----------------------------+
33713  M01S00019.ns2768  +++|*         SL = 3240B
33714  M01S00020.ns2768  +++|*         NN = (LT*SL+LS)/40B

Seq #  *Modification Id* Act 
----------------------------+
33715  M02S00021.284l847 ---|*         PC = NN/51B
33716  M02S00022.284l847 ---|*         PT = R(NN/51B)/5B
33717  M02S00023.284l847 ---|*         PS = R(R(NN/51B)/5B)

Seq #  *Modification Id* Act 
----------------------------+
33718  M01S00125.284l847 +++|*         PC = NN/172B
33719  M01S00126.284l847 +++|*         PT = R(NN/172B)/16B
33720  M01S00127.284l847 +++|*         PS = R(R(NN/172B)/16B)

Seq #  *Modification Id* Act 
----------------------------+
33721  M01S00024.ns2768  +++|

Seq #  *Modification Id* Act 
----------------------------+
33722  M02S00025.284l847 ---| CLP20    SB4    CFSEH
33723  M02S00026.284l847 ---|          SX6    PSPTEH*PTCYEH-SPSCEH  PHYSICAL SECTORS PER CYLINDER
33724  M02S00027.284l847 ---|          SX5    PSPTEH

Seq #  *Modification Id* Act 
----------------------------+
33725  M01S00128.284l847 +++| CLP21    SB4    CFSEK
33726  M01S00129.284l847 +++|          SX6    PSPTEK*PTCYEK-SPSCEK  PHYSICAL SECTORS PER CYLINDER
33727  M01S00130.284l847 +++|          SX5    PSPTEK

Seq #  *Modification Id* Act 
----------------------------+
33728  M01S00028.ns2768  +++|          EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM

Seq #  *Modification Id* Act 
----------------------------+
33729  M01S00131.284l847 +++|
33730  M01S00132.284l847 +++|
33731  M01S00133.284l847 +++|**        5838 (4X ELITE) CONVERSION (*EL*).
33732  M01S00134.284l847 +++|*
33733  M01S00135.284l847 +++|*         ALGORITHM -
33734  M01S00136.284l847 +++|*         SL = 3140B
33735  M01S00137.284l847 +++|*         NN = (LT*SL+LS)/40B
33736  M01S00138.284l847 +++|*         PC = NN/236B
33737  M01S00139.284l847 +++|*         PT = R(NN/236B)/22B
33738  M01S00140.284l847 +++|*         PS = R(R(NN/236B)/22B)
33739  M01S00141.284l847 +++|
33740  M01S00142.284l847 +++| CLP22    SB4    CFSEL
33741  M01S00143.284l847 +++|          SX6    PSPTEL*PTCYEL-SPSCEL  PHYSICAL SECTORS PER CYLINDER
33742  M01S00144.284l847 +++|          SX5    PSPTEL
33743  M01S00145.284l847 +++|          EQ     CLP12       ENTER COMMON 9853/583X ALGORITHM
33744  M01S00146.284l847 +++|
33745  M01S00147.284l847 +++|
33746  M01S00148.284l847 +++|**        47444 (1X/1XP 3.5IN) CONVERSION (*EO/EP*).
33747  M01S00149.284l847 +++|*
33748  M01S00150.284l847 +++|*         ALGORITHM -
33749  M01S00151.284l847 +++|*         SL = 3240B
33750  M01S00152.284l847 +++|*         NN = (LT*SL+LS)/10B
33751  M01S00153.284l847 +++|*         PC = NN/274B
33752  M01S00154.284l847 +++|*         PT = R(NN/274B)/15B
33753  M01S00155.284l847 +++|*         PS = R(R(NN/274B)/15B)
33754  M01S00156.284l847 +++|
33755  M01S00157.284l847 +++| CLP23    SB4    CFSEO
33756  M01S00158.284l847 +++|          SX6    PSPTEO*PTCYEO-SPSCEO  PHYSICAL SECTORS PER CYLINDER
33757  M01S00159.284l847 +++|          SX5    PSPTEO
33758  M01S00160.284l847 +++|          EQ     CLP12       ENTER COMMON 9853/583X/47444 ALGORITHM
33759  M01S00161.284l847 +++|
33760  M01S00162.284l847 +++|
33761  M01S00163.284l847 +++|**        47444 (2X/2XP 3.5IN) CONVERSION (*ES/EU*).
33762  M01S00164.284l847 +++|*
33763  M01S00165.284l847 +++|*         ALGORITHM -
33764  M01S00166.284l847 +++|*         SL = 3240B
33765  M01S00167.284l847 +++|*         NN = (LT*SL+LS)/20B
33766  M01S00168.284l847 +++|*         PC = NN/274B
33767  M01S00169.284l847 +++|*         PT = R(NN/274B)/15B
33768  M01S00170.284l847 +++|*         PS = R(R(NN/274B)/15B)
33769  M01S00171.284l847 +++|
33770  M01S00172.284l847 +++| CLP24    SB4    CFSES
33771  M01S00173.284l847 +++|          SX6    PSPTES*PTCYES-SPSCES  PHYSICAL SECTORS PER CYLINDER
33772  M01S00174.284l847 +++|          SX5    PSPTES
33773  M01S00175.284l847 +++|          EQ     CLP12       ENTER COMMON 9853/583X/47444 ALGORITHM
33774  M01S00176.284l847 +++|
33775  M01S00177.284l847 +++|
33776  M01S00178.284l847 +++|**        47444 (3XP 3.5IN) CONVERSION (*EV*).
33777  M01S00179.284l847 +++|*
33778  M01S00180.284l847 +++|*         ALGORITHM -
33779  M01S00181.284l847 +++|*         SL = 3200B
33780  M01S00182.284l847 +++|*         NN = (LT*SL+LS)/20B
33781  M01S00183.284l847 +++|*         PC = NN/426B
33782  M01S00184.284l847 +++|*         PT = R(NN/426B)/23B
33783  M01S00185.284l847 +++|*         PS = R(R(NN/426B)/23B)
33784  M01S00186.284l847 +++|
33785  M01S00187.284l847 +++| CLP25    SB4    CFSEV
33786  M01S00188.284l847 +++|          SX6    PSPTEV*PTCYEV-SPSCEV  PHYSICAL SECTORS PER CYLINDER
33787  M01S00189.284l847 +++|          SX5    PSPTEV
33788  M01S00190.284l847 +++|          EQ     CLP12       ENTER COMMON 9853/583X/47444 ALGORITHM
33789  M01S00191.284l847 +++|
33790  M01S00192.284l847 +++|
33791  M01S00193.284l847 +++|**        47444 (4X 3.5IN) CONVERSION (*EW*).
33792  M01S00194.284l847 +++|*
33793  M01S00195.284l847 +++|*         ALGORITHM -
33794  M01S00196.284l847 +++|*         SL = 3200B
33795  M01S00197.284l847 +++|*         NN = (LT*SL+LS)/20B
33796  M01S00198.284l847 +++|*         PC = NN/560B
33797  M01S00199.284l847 +++|*         PT = R(NN/560B)/31B
33798  M01S00200.284l847 +++|*         PS = R(R(NN/560B)/31B)
33799  M01S00201.284l847 +++|
33800  M01S00202.284l847 +++| CLP26    SB4    CFSEW
33801  M01S00203.284l847 +++|          SX6    PSPTEW*PTCYEW-SPSCEW  PHYSICAL SECTORS PER CYLINDER
33802  M01S00204.284l847 +++|          SX5    PSPTEW
33803  M01S00205.284l847 +++|          EQ     CLP12       ENTER COMMON 9853/583X/47444 ALGORITHM

Seq #  *Modification Id* Act 
----------------------------+
33804  M01S00029.ns2768  +++|
33805  M01S00030.ns2768  +++|
33806  M00S19455.cpumtr  +++|*         TCLP - TABLE FOR CONVERTING LOGICAL TO PHYSICAL ADDRESSES.
33807  M00S19456.cpumtr  +++|
33808  M00S19457.cpumtr  +++| TCLP     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
33809  M01S19458.284l847 ---|          LOC    AIDB

Seq #  *Modification Id* Act 
----------------------------+
33810  M01S00206.284l847 +++|          LOC    AIDB

Seq #  *Modification Id* Act 
----------------------------+
33811  M01S19459.284l847 ---|
33812  M01S19460.284l847 ---|*         NOTE -
33813  M01S19461.284l847 ---|*         IF THIS TABLE IS CHANGED IN ANY WAY - THERE IS A SIMILAR
33814  M01S19462.284l847 ---|*         TABLE IN ROUTINE *IBO* IN *CPUMTR* PRESET THAT ALSO MUST
33815  M01S19463.284l847 ---|*         BE CHANGED, SO THAT THE ALGORITHM INDEXES ARE MAINTAINED.
33816  M00S19464.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
33817  M01S00207.284l847 +++|+         EQ     CLP3        *DB* DEVICES
33818  M01S00208.284l847 +++|          ERRNZ  *-AIDB      INDEX MUST MATCH POSITION IN TABLE
33819  M01S00209.284l847 +++|
33820  M01S00210.284l847 +++|+         EQ     CLP4        *DC* DEVICES
33821  M01S00211.284l847 +++|          ERRNZ  *-AIDC      INDEX MUST MATCH POSITION IN TABLE
33822  M01S00212.284l847 +++|

Seq #  *Modification Id* Act 
----------------------------+
33823  M01S19465.284l847 ---|+         EQ     CLP3        *DB* DEVICES

Seq #  *Modification Id* Act 
----------------------------+
33824  M01S00213.284l847 +++|+         EQ     CLP5        *DV* AND *DW* DEVICES
33825  M01S00214.284l847 +++|          ERRNZ  *-AIDV      INDEX MUST MATCH POSITION IN TABLE
33826  M01S00215.284l847 +++|
33827  M01S00216.284l847 +++|+         EQ     CLP5        *DV* AND *DW* DEVICES
33828  M01S00217.284l847 +++|          ERRNZ  *-AIDW      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33829  M01S19466.284l847 ---|          ERRNZ  *-AIDB      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33830  M02S00428.284l847 ---|
33831  M02S00429.284l847 ---|+         EQ     CLP4        *DC* DEVICES
33832  M02S00430.284l847 ---|          ERRNZ  *-AIDB-1    INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33833  M02S00318.284l847 ---|          ERRNZ  *-AIDC      INDEX MUST MATCH *LDAM* INDEX
33834  M00S19467.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
33835  M01S19468.284l847 ---|+         EQ     CLP5        *DV* AND *DW* DEVICES

Seq #  *Modification Id* Act 
----------------------------+
33836  M02S19469.284l847 ---|          ERRNZ  *-AIDB-1    INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33837  M02S00431.284l847 ---|          ERRNZ  *-AIDB-2    INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33838  M01S00218.284l847 +++|+         EQ     CLP9        *DF* DEVICES
33839  M01S00219.284l847 +++|          ERRNZ  *-AIDF      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33840  M01S00319.251l670 +++|

Seq #  *Modification Id* Act 
----------------------------+
33841  M02S00320.271l716 ---|+         EQ     CLP8        *DF* DEVICES

Seq #  *Modification Id* Act 
----------------------------+
33842  M02S02008.284l847 ---|+         EQ     CLP9        *DF* DEVICES

Seq #  *Modification Id* Act 
----------------------------+
33843  M02S00321.284l847 ---|          ERRNZ  *-AIDB-3    INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33844  M01S00220.284l847 +++|+         EQ     CLP10       *DH* DEVICES
33845  M01S00221.284l847 +++|          ERRNZ  *-AIDH      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33846  M01S00322.251l670 +++|

Seq #  *Modification Id* Act 
----------------------------+
33847  M02S00323.271l716 ---|+         EQ     CLP9        *DH* DEVICES
33848  M02S00324.271l716 ---|          ERRNZ  *-AIDB-4    INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33849  M02S02009.284l847 ---|+         EQ     CLP10       *DH* DEVICES
33850  M02S02010.284l847 ---|          ERRNZ  *-AIDB-4    INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33851  M01S00222.284l847 +++|+         EQ     CLP11       *DN* DEVICES
33852  M01S00223.284l847 +++|          ERRNZ  *-AIDN      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33853  M01S02011.271l716 +++|

Seq #  *Modification Id* Act 
----------------------------+
33854  M02S02012.284l847 ---|+         EQ     CLP11       *DN* DEVICES
33855  M02S02013.284l847 ---|          ERRNZ  *-AIDB-5    INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33856  M01S00224.284l847 +++|+         EQ     CLP13       *EA* DEVICES
33857  M01S00225.284l847 +++|          ERRNZ  *-AIEA      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33858  M01S00122.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33859  M02S00123.284l847 ---|+         EQ     CLP13       *EA* DEVICES
33860  M02S00124.284l847 ---|          ERRNZ  *-AIDB-6    INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33861  M01S00226.284l847 +++|+         EQ     CLP14       *EB* DEVICES
33862  M01S00227.284l847 +++|          ERRNZ  *-AIEB      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33863  M01S00125.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33864  M02S00126.284l847 ---|+         EQ     CLP14       *EB* DEVICES
33865  M02S00127.284l847 ---|          ERRNZ  *-AIDB-7    INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33866  M01S00228.284l847 +++|+         EQ     CLP15       *EC/ED* DEVICES
33867  M01S00229.284l847 +++|          ERRNZ  *-AIEC      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33868  M01S00128.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33869  M02S00129.284l847 ---|+         EQ     CLP15       *EC* DEVICES
33870  M02S00130.284l847 ---|          ERRNZ  *-AIDB-10B  INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33871  M01S00230.284l847 +++|+         EQ     CLP16       *EE/EF* DEVICES
33872  M01S00231.284l847 +++|          ERRNZ  *-AIEE      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33873  M01S00131.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33874  M02S00132.284l847 ---|+         EQ     CLP16       *ED* DEVICES
33875  M02S00133.284l847 ---|          ERRNZ  *-AIDB-11B  INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33876  M01S00232.284l847 +++|+         EQ     CLP17       *EM* DEVICES
33877  M01S00233.284l847 +++|          ERRNZ  *-AIEM      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33878  M01S00134.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33879  M02S00135.284l847 ---|+         EQ     CLP17       *EE* DEVICES
33880  M02S00136.284l847 ---|          ERRNZ  *-AIDB-12B  INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33881  M01S00234.284l847 +++|+         EQ     CLP18       *EN* DEVICES
33882  M01S00235.284l847 +++|          ERRNZ  *-AIEN      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33883  M01S00137.272l774 +++|

Seq #  *Modification Id* Act 
----------------------------+
33884  M02S00138.284l847 ---|+         EQ     CLP18       *EF* DEVICES
33885  M02S00139.284l847 ---|          ERRNZ  *-AIDB-13B  INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33886  M01S00236.284l847 +++|+         EQ     CLP19       *EG/EH* DEVICES
33887  M01S00237.284l847 +++|          ERRNZ  *-AIEG      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33888  M01S00031.ns2768  +++|

Seq #  *Modification Id* Act 
----------------------------+
33889  M02S00032.284l847 ---|+         EQ     CLP19       *EG* DEVICES
33890  M02S00033.284l847 ---|          ERRNZ  *-AIDB-14B  INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33891  M01S00238.284l847 +++|+         EQ     CLP20       *EI/EJ* DEVICES
33892  M01S00239.284l847 +++|          ERRNZ  *-AIEI      INDEX MUST MATCH POSITION IN TABLE

Seq #  *Modification Id* Act 
----------------------------+
33893  M01S00034.ns2768  +++|

Seq #  *Modification Id* Act 
----------------------------+
33894  M02S00035.284l847 ---|+         EQ     CLP20       *EH* DEVICES
33895  M02S00036.284l847 ---|          ERRNZ  *-AIDB-15B  INDEXES MUST BE CONSECUTIVE

Seq #  *Modification Id* Act 
----------------------------+
33896  M01S00240.284l847 +++|+         EQ     CLP21       *EK* DEVICES
33897  M01S00241.284l847 +++|          ERRNZ  *-AIEK      INDEX MUST MATCH POSITION IN TABLE
33898  M01S00242.284l847 +++|
33899  M01S00243.284l847 +++|+         EQ     CLP22       *EL* DEVICES
33900  M01S00244.284l847 +++|          ERRNZ  *-AIEL      INDEX MUST MATCH POSITION IN TABLE
33901  M01S00245.284l847 +++|
33902  M01S00246.284l847 +++|+         EQ     CLP23       *EO/EP* DEVICES
33903  M01S00247.284l847 +++|          ERRNZ  *-AIEO      INDEX MUST MATCH POSITION IN TABLE
33904  M01S00248.284l847 +++|
33905  M01S00249.284l847 +++|+         EQ     CLP24       *ES/EU* DEVICES
33906  M01S00250.284l847 +++|          ERRNZ  *-AIES      INDEX MUST MATCH POSITION IN TABLE
33907  M01S00251.284l847 +++|
33908  M01S00252.284l847 +++|+         EQ     CLP25       *EV* DEVICES
33909  M01S00253.284l847 +++|          ERRNZ  *-AIEV      INDEX MUST MATCH POSITION IN TABLE
33910  M01S00254.284l847 +++|
33911  M01S00255.284l847 +++|+         EQ     CLP26       *EW* DEVICES
33912  M01S00256.284l847 +++|          ERRNZ  *-AIEW      INDEX MUST MATCH POSITION IN TABLE
33913  M00S19470.cpumtr  +++|
33914  M00S19471.cpumtr  +++|          LOC    *O
33915  M00S19472.cpumtr  +++| DCB      SPACE  4,15
33916  M00S19473.cpumtr  +++|**        DCB - DELINK CONTROL BUFFER FROM LINK.
33917  M00S19474.cpumtr  +++|*
33918  M00S19475.cpumtr  +++|*         ENTRY  (X0) = CONTROL BUFFER INDEX.
33919  M00S19476.cpumtr  +++|*                (X1) = WORD POSITION OF LINK.
33920  M00S19477.cpumtr  +++|*                (B6) = RETURN ADDRESS.
33921  M00S19478.cpumtr  +++|*
33922  M00S19479.cpumtr  +++|*         EXIT   (X6) = BASE ADDRESS OF CONTROL BUFFERS + OFFSET.
33923  M00S19480.cpumtr  +++|*                (X5) = LINK WORD.
33924  M00S19481.cpumtr  +++|*                (X4) = FORWARD LINK INDEX.
33925  M00S19482.cpumtr  +++|*                (X3) = BACKWARD LINK INDEX.

Seq #  *Modification Id* Act 
----------------------------+
33926  M01S00432.241l630 +++|*                (A7) = ADDRESS OF LINK WORD
33927  M00S19483.cpumtr  +++|*
33928  M00S19484.cpumtr  +++|*         USES   A - 2.
33929  M00S19485.cpumtr  +++|*                X - 1, 2, 3, 4, 5, 6, 7.
33930  M00S19486.cpumtr  +++|
33931  M00S19487.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
33932  M01S19488.283l840 ---| DCB      TX6    X1,CBT      FORM BASE ADDRESS + WORD POSITION

Seq #  *Modification Id* Act 
----------------------------+
33933  M01S00466.283l840 +++| DCB      BSS    0           ENTRY
33934  M01S00467.283l840 +++|          TX6    X1,CBT      FORM BASE ADDRESS + WORD POSITION
33935  M00S19489.cpumtr  +++|          BX1    X0          FORM ADDRESS OF CONTROL BUFFER
33936  M00S19490.cpumtr  +++|          LX1    CBTLS
33937  M00S19491.cpumtr  +++|          IX1    X1+X6
33938  M00S19492.cpumtr  +++|          SA2    X1
33939  M00S19493.cpumtr  +++|          MX1    12          GET FORWARD LINK INDEX
33940  M00S19494.cpumtr  +++|          BX5    X2
33941  M00S19495.cpumtr  +++|          LX1    36
33942  M00S19496.cpumtr  +++|          BX4    X1*X5
33943  M00S19497.cpumtr  +++|          LX1    12          GET BACKWARD LINK INDEX
33944  M00S19498.cpumtr  +++|          BX3    X1*X5
33945  M00S19499.cpumtr  +++|          AX3    36
33946  M00S19500.cpumtr  +++|          ZR     X3,DCB1     IF BACKWARD LINK IS ZERO
33947  M00S19501.cpumtr  +++|          BX7    X3          FORM ADDRESS OF BACKWARD BUFFER
33948  M00S19502.cpumtr  +++|          LX7    CBTLS
33949  M00S19503.cpumtr  +++|          IX7    X7+X6
33950  M00S19504.cpumtr  +++|          LX1    48

Seq #  *Modification Id* Act 
----------------------------+
33951  M01S19505.cpum242 ---|+         SA2    X7          ** PERFORM UPDATE IN ONE WORD
33952  M01S19506.cpum242 ---|          BX2    -X1*X2      **
33953  M01S19507.cpum242 ---|          BX7    X2+X4       **
33954  M01S19508.cpum242 ---|          SA7    A2          **

Seq #  *Modification Id* Act 
----------------------------+
33955  M01S00016.cpum242 +++|+         SA2    X7          **** PERFORM IN ONE WORD ****
33956  M01S00017.cpum242 +++|          BX2    -X1*X2      **** PERFORM IN ONE WORD ****
33957  M01S00018.cpum242 +++|          BX7    X2+X4       **** PERFORM IN ONE WORD ****
33958  M01S00019.cpum242 +++|          SA7    A2          **** PERFORM IN ONE WORD ****
33959  M00S19509.cpumtr  +++| DCB1     ZR     X4,DCB2     IF FORWARD LINK IS ZERO
33960  M00S19510.cpumtr  +++|          MX1    12
33961  M00S19511.cpumtr  +++|          AX4    24-CBTLS
33962  M00S19512.cpumtr  +++|          IX7    X4+X6
33963  M00S19513.cpumtr  +++|          LX1    48          MODIFY BACKWARD LINK IN FORWARD BUFFER
33964  M00S19514.cpumtr  +++|          LX3    36

Seq #  *Modification Id* Act 
----------------------------+
33965  M01S19515.cpum242 ---|+         SA2    X7          ** PERFORM IN ONE WORD
33966  M01S19516.cpum242 ---|          BX2    -X1*X2      **
33967  M01S19517.cpum242 ---|          BX7    X2+X3       **
33968  M01S19518.cpum242 ---|          SA7    A2          **

Seq #  *Modification Id* Act 
----------------------------+
33969  M01S00020.cpum242 +++|+         SA2    X7          **** PERFORM IN ONE WORD ****
33970  M01S00021.cpum242 +++|          BX2    -X1*X2      **** PERFORM IN ONE WORD ****
33971  M01S00022.cpum242 +++|          BX7    X2+X3       **** PERFORM IN ONE WORD ****
33972  M01S00023.cpum242 +++|          SA7    A2          **** PERFORM IN ONE WORD ****
33973  M00S19519.cpumtr  +++|          AX4    CBTLS
33974  M00S19520.cpumtr  +++|          LX3    24
33975  M00S19521.cpumtr  +++| DCB2     BX1    X0          CLEAR LINK BYTES
33976  M00S19522.cpumtr  +++|          LX1    CBTLS
33977  M00S19523.cpumtr  +++|          IX1    X1+X6
33978  M00S19524.cpumtr  +++|          MX5    36

Seq #  *Modification Id* Act 
----------------------------+
33979  M01S19525.cpum242 ---|+         SA2    X1          ** PERFORM UPDATE IN ONE WORD
33980  M01S19526.cpum242 ---|          LX5    24          **
33981  M01S19527.cpum242 ---|          BX7    X5*X2       **
33982  M01S19528.cpum242 ---|          SA7    A2          **

Seq #  *Modification Id* Act 
----------------------------+
33983  M01S00024.cpum242 +++|+         SA2    X1          **** PERFORM IN ONE WORD ****
33984  M01S00025.cpum242 +++|          LX5    24          **** PERFORM IN ONE WORD ****
33985  M01S00026.cpum242 +++|          BX7    X5*X2       **** PERFORM IN ONE WORD ****
33986  M01S00027.cpum242 +++|          SA7    A2          **** PERFORM IN ONE WORD ****
33987  M00S19529.cpumtr  +++|          BX5    X7          LINK WORD
33988  M00S19530.cpumtr  +++|          JP     B6          RETURN
33989  M00S19531.cpumtr  +++| DCC      SPACE  4,15
33990  M00S19532.cpumtr  +++|**        DCC - DELINK CONTROL BUFFER FROM CONTROL BUFFER LINK.
33991  M00S19533.cpumtr  +++|*
33992  M00S19534.cpumtr  +++|*         ENTRY  (X0) = CONTROL BUFFER ORDINAL.
33993  M00S19535.cpumtr  +++|*                (B3) = REGISTER SAVE BUFFER ADDRESS.
33994  M00S19536.cpumtr  +++|*                (B6) = RETURN ADDRESS.
33995  M00S19537.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
33996  M01S00020.cpum243 +++|*         EXIT   (X7) PRESERVED.
33997  M01S00021.cpum243 +++|*
33998  M00S19538.cpumtr  +++|*         USES   A - 1, 2, 7.
33999  M00S19539.cpumtr  +++|*                B - 6.
34000  M00S19540.cpumtr  +++|*                X - 1, 2, 5, 7.
34001  M00S19541.cpumtr  +++|*
34002  M00S19542.cpumtr  +++|*         CALLS  DCB.
34003  M00S19543.cpumtr  +++|
34004  M00S19544.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34005  M01S19545.283l840 ---| DCC      SA7    B3+B1       SAVE (X7)

Seq #  *Modification Id* Act 
----------------------------+
34006  M01S00468.283l840 +++| DCC      BSS    0           ENTRY
34007  M01S00469.283l840 +++|          SA7    B3+B1       SAVE (X7)
34008  M00S19546.cpumtr  +++|          SB3    A7+B1
34009  M00S19547.cpumtr  +++|          SX7    B6+         SAVE (B6)
34010  M00S19548.cpumtr  +++|          SA7    A7-B1
34011  M00S19549.cpumtr  +++|          SX1    LSLK        SET CONTROL BUFFER LINK WORD
34012  M00S19550.cpumtr  +++|          BX7    X0          SET CONTROL BUFFER INTERLOCK
34013  M00S19551.cpumtr  +++|          SA7    INLB
34014  M00S19552.cpumtr  +++|          SB6    DCC2        SET RETURN ADDRESS
34015  M00S19553.cpumtr  +++|          EQ     DCB         DELINK BUFFER
34016  M00S19554.cpumtr  +++|
34017  M00S19555.cpumtr  +++| DCC2     BX1    X0          GET LIST INDEX WORD
34018  M00S19556.cpumtr  +++|          LX1    CBTLS
34019  M00S19557.cpumtr  +++|          IX1    X1+X6
34020  M00S19558.cpumtr  +++|          MX2    -3
34021  M00S19559.cpumtr  +++|          SA1    X1-LSLK+HSLK
34022  M00S19560.cpumtr  +++|          BX5    X1
34023  M00S19561.cpumtr  +++|          AX5    21          GET LIST INDEX
34024  M00S19562.cpumtr  +++|          BX1    -X2*X5
34025  M00S19563.cpumtr  +++|          TA2    X1,BLMB
34026  M00S19564.cpumtr  +++|          MX7    1           DECREMENT COUNT
34027  M00S19565.cpumtr  +++|          LX7    37
34028  M00S19566.cpumtr  +++|          IX7    X2-X7
34029  M00S19567.cpumtr  +++|          NZ     X3,DCC3     IF BACKWARD LINK NOT ZERO
34030  M00S19568.cpumtr  +++|          MX5    -18         MODIFY FORWARD POINTER
34031  M00S19569.cpumtr  +++|          BX7    X5*X7
34032  M00S19570.cpumtr  +++|          BX7    X7+X4
34033  M00S19571.cpumtr  +++| DCC3     NZ     X4,DCC4     IF FORWARD LINK NOT ZERO
34034  M00S19572.cpumtr  +++|          MX5    -18         MODIFY BACKWARD POINTER
34035  M00S19573.cpumtr  +++|          LX5    18
34036  M00S19574.cpumtr  +++|          BX7    X5*X7
34037  M00S19575.cpumtr  +++|          LX3    18
34038  M00S19576.cpumtr  +++|          BX7    X7+X3
34039  M00S19577.cpumtr  +++| DCC4     SA7    A2
34040  M00S19578.cpumtr  +++|          SA1    B3-B1       RESTORE (X7)

Seq #  *Modification Id* Act 
----------------------------+
34041  M01S19579.251l664 ---|          SA2    A1-B1       RESTORE (X2)

Seq #  *Modification Id* Act 
----------------------------+
34042  M01S01527.251l664 +++|          SA2    A1-B1       RESTORE (B6)
34043  M00S19580.cpumtr  +++|          SB3    A1-B1
34044  M00S19581.cpumtr  +++|          BX7    X1
34045  M00S19582.cpumtr  +++|          SB6    X2
34046  M00S19583.cpumtr  +++|          JP     B6          RETURN
34047  M00S19584.cpumtr  +++| DCH      SPACE  4,15
34048  M00S19585.cpumtr  +++|**        DCH - DELINK CONTROL BUFFER FROM HASH LINK.
34049  M00S19586.cpumtr  +++|*
34050  M00S19587.cpumtr  +++|*         ENTRY  (X0) = CONTROL BUFFER ORDINAL.
34051  M00S19588.cpumtr  +++|*                (B3) = REGISTER SAVE BUFFER ADDRESS.
34052  M00S19589.cpumtr  +++|*                (B6) = RETURN ADDRESS.
34053  M00S19590.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
34054  M02S00470.cpum243 ---|*         EXIT   TO */PROGRAM/HNG* IF NO HASH INDEX OR *PUT* ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
34055  M01S00022.cpum243 +++|*         EXIT   (X7) PRESERVED.
34056  M01S00023.cpum243 +++|*                TO */PROGRAM/HNG* IF NO HASH INDEX OR *PUT* ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
34057  M01S00471.283l840 +++|*                  PRESENT.
34058  M01S00472.283l840 +++|*
34059  M00S19591.cpumtr  +++|*         USES   A - 1, 2, 3, 7.
34060  M00S19592.cpumtr  +++|*                B - 6.
34061  M00S19593.cpumtr  +++|*                X - 1, 2, 3, 5, 7.

Seq #  *Modification Id* Act 
----------------------------+
34062  M01S00024.cpum243 +++|*
34063  M01S00025.cpum243 +++|*         CALLS  DCB.

Seq #  *Modification Id* Act 
----------------------------+
34064  M01S19594.283l840 ---|*
34065  M00S19595.cpumtr  +++|
34066  M00S19596.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34067  M01S19597.283l840 ---| DCH      SA7    B3+B1       SAVE (X7)

Seq #  *Modification Id* Act 
----------------------------+
34068  M01S00473.283l840 +++| DCH      BSS    0           ENTRY
34069  M01S00474.283l840 +++|          SA7    B3+B1       SAVE (X7)
34070  M00S19598.cpumtr  +++|          SB3    A7+B1
34071  M00S19599.cpumtr  +++|          SX7    B6          SAVE (B6)
34072  M00S19600.cpumtr  +++|          SA7    A7-B1
34073  M00S19601.cpumtr  +++|          SX1    HSLK        SET HASH CHAIN WORD
34074  M00S19602.cpumtr  +++|          SB6    DCH2        SET RETURN ADDRESS
34075  M00S19603.cpumtr  +++|          EQ     DCB         DELINK BUFFER
34076  M00S19604.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34077  M01S19605.241l630 ---| DCH2     BX1    X0          CLEAR HASH INDEX AND *PUT* ORDINAL
34078  M01S19606.241l630 ---|          LX1    CBTLS
34079  M01S19607.241l630 ---|          IX1    X1+X6
34080  M01S19608.241l630 ---|          SA2    X1
34081  M01S19609.241l630 ---|          MX7    -21
34082  M01S19610.241l630 ---|          BX7    X7*X2
34083  M01S19611.241l630 ---|          SA7    X1

Seq #  *Modification Id* Act 
----------------------------+
34084  M02S00433.251l664 ---| DCH2     MX7    -21         CLEAR HASH INDEX AND *PUT* ORDINAL
34085  M02S00434.251l664 ---|          BX7    X7*X5
34086  M02S00435.251l664 ---|          SA7    A7

Seq #  *Modification Id* Act 
----------------------------+
34087  M01S19612.251l664 ---|          MX7    -21

Seq #  *Modification Id* Act 
----------------------------+
34088  M02S01528.ns2446  ---| DCH2     MX1    -21

Seq #  *Modification Id* Act 
----------------------------+
34089  M01S19613.ns2446  ---|          NZ     X3,RXR      IF HASH ENTRY UPDATE NOT NEEDED

Seq #  *Modification Id* Act 
----------------------------+
34090  M02S19614.ns2446  ---|          BX5    -X7*X5

Seq #  *Modification Id* Act 
----------------------------+
34091  M02S01529.ns2446  ---|          BX5    -X1*X5

Seq #  *Modification Id* Act 
----------------------------+
34092  M02S00026.283l840 ---| DCH2     MX7    2
34093  M02S00027.283l840 ---|          BX2    X7*X5
34094  M02S00028.283l840 ---|          MX1    -21
34095  M02S00029.283l840 ---|          BX7    X1*X5
34096  M02S00030.283l840 ---|          BX5    -X1*X5
34097  M02S00031.283l840 ---|          NZ     X2,DCH2.1   IF *PUT* ORDINAL NOT TO BE CLEARED
34098  M02S00032.283l840 ---|          SA7    A7
34099  M02S00033.283l840 ---| DCH2.1   NZ     X3,RXR      IF HASH ENTRY UPDATE NOT NEEDED

Seq #  *Modification Id* Act 
----------------------------+
34100  M01S00475.283l840 +++| DCH2     MX7    39

Seq #  *Modification Id* Act 
----------------------------+
34101  M01S00257.284l847 +++|          SA1    A7+FSTC-HSLK  GET FST INFORMATION

Seq #  *Modification Id* Act 
----------------------------+
34102  M01S00476.283l840 +++|          BX7    X7*X5
34103  M01S00477.283l840 +++|          SA7    A7          CLEAR HASH INDEX AND *PUT* ORDINAL
34104  M01S00478.283l840 +++|          SX7    B0

Seq #  *Modification Id* Act 
----------------------------+
34105  M02S00479.284l847 ---|          SA7    A7+FSTC-HSLK  CLEAR FST INFORMATION

Seq #  *Modification Id* Act 
----------------------------+
34106  M01S00258.284l847 +++|          SA7    A1          CLEAR FST INFORMATION
34107  M01S00259.284l847 +++|          LX1    -48
34108  M01S00260.284l847 +++|          MX7    -12

Seq #  *Modification Id* Act 
----------------------------+
34109  M01S00480.283l840 +++|          NZ     X3,RXR      IF HASH ENTRY UPDATE NOT NEEDED

Seq #  *Modification Id* Act 
----------------------------+
34110  M01S19615.284l847 ---|          MX1    -9

Seq #  *Modification Id* Act 
----------------------------+
34111  M02S00034.284l847 ---|          LX1    12

Seq #  *Modification Id* Act 
----------------------------+
34112  M02S19616.284l847 ---|          ZR     X5,RXR      IF BUFFER NOT ON HASH CHAIN

Seq #  *Modification Id* Act 
----------------------------+
34113  M02S19617.284l847 ---|          LX1    12

Seq #  *Modification Id* Act 
----------------------------+
34114  M01S19618.284l847 ---|          BX3    -X1*X5      GET HASH ENTRY INDEX

Seq #  *Modification Id* Act 
----------------------------+
34115  M01S00261.284l847 +++|          BX1    -X7*X1      EST ORDINAL
34116  M01S00262.284l847 +++|          MX7    -9
34117  M01S00263.284l847 +++|          LX7    12
34118  M01S00264.284l847 +++|          BX3    -X7*X5      GET HASH ENTRY INDEX
34119  M01S00265.284l847 +++|          LX3    -12
34120  M01S00266.284l847 +++|          CX7    X1,EST      CONVERT ORDINAL TO OFFSET
34121  M01S00267.284l847 +++|          TA1    X7+EQAE,EST GET PARTITION NUMBER
34122  M01S00268.284l847 +++|          MX7    -4
34123  M01S00269.284l847 +++|          LX1    -18
34124  M01S00270.284l847 +++|          MX2    -12
34125  M01S00271.284l847 +++|          BX7    -X7*X1
34126  M01S00272.284l847 +++|          SX1    HATLE
34127  M01S00273.284l847 +++|          IX7    X1*X7       HASH TABLE PARTITION OFFSET

Seq #  *Modification Id* Act 
----------------------------+
34128  M01S19619.284l847 ---|          MX2    -12
34129  M01S19620.284l847 ---|          LX3    -12
34130  M00S19621.cpumtr  +++|          BX1    -X2*X5      GET *PUT* ORDINAL
34131  M00S19622.cpumtr  +++|          LX1    PUTLS
34132  M00S19623.cpumtr  +++|          TA1    X1+HSCT,PUT

Seq #  *Modification Id* Act 
----------------------------+
34133  M01S00274.284l847 +++|          IX3    X3+X7       ADJUST HASH TABLE INDEX FOR PARTITION
34134  M00S19624.cpumtr  +++|          AX1    24
34135  M00S19625.cpumtr  +++|          MX2    -18

Seq #  *Modification Id* Act 
----------------------------+
34136  M01S00275.284l847 +++|          BX7    X4
34137  M00S19626.cpumtr  +++|          BX1    -X2*X1
34138  M00S19627.cpumtr  +++|          IX1    X1+X3       FORM HASH ENTRY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
34139  M01S19628.284l847 ---|          BX7    X4
34140  M00S19629.cpumtr  +++|          ZR     X4,DCH3     IF HASH ENTRY TO BE ZEROED

Seq #  *Modification Id* Act 
----------------------------+
34141  M01S19630.251l664 ---|          SA3    X1          READ HASH ENTRY

Seq #  *Modification Id* Act 
----------------------------+
34142  M02S01530.284l847 ---|          SA3    X1+         READ HASH ENTRY

Seq #  *Modification Id* Act 
----------------------------+
34143  M01S00276.284l847 +++|          SA3    X1          READ HASH ENTRY
34144  M00S19631.cpumtr  +++|          MX2    -12         MODIFY CONTROL BUFFER INDEX
34145  M00S19632.cpumtr  +++|          BX3    X2*X3
34146  M00S19633.cpumtr  +++|          BX7    X3+X4
34147  M00S19634.cpumtr  +++| DCH3     SA7    X1          REWRITE HASH ENTRY
34148  M00S19635.cpumtr  +++|          SA1    B3-B1       RESTORE (X7)

Seq #  *Modification Id* Act 
----------------------------+
34149  M01S19636.251l664 ---|          SA2    A1-B1       RESTORE (X2)

Seq #  *Modification Id* Act 
----------------------------+
34150  M01S01531.251l664 +++|          SA2    A1-B1       RESTORE (B6)
34151  M00S19637.cpumtr  +++|          SB3    A1-B1
34152  M00S19638.cpumtr  +++|          BX7    X1
34153  M00S19639.cpumtr  +++|          SB6    X2
34154  M00S19640.cpumtr  +++|          JP     B6          RETURN
34155  M00S19641.cpumtr  +++| LCB      SPACE  4,15
34156  M00S19642.cpumtr  +++|**        LCB - LINK CONTROL BUFFER.
34157  M00S19643.cpumtr  +++|*
34158  M00S19644.cpumtr  +++|*         ENTRY  (X0) = NEW BUFFER INDEX.
34159  M00S19645.cpumtr  +++|*                (X1) = 24/0 ,18/BI ,18/OI .
34160  M00S19646.cpumtr  +++|*                       BI - OLD BUFFER INDEX.
34161  M00S19647.cpumtr  +++|*                       OI - OFFSET INDEX OF LINK (6,7).
34162  M00S19648.cpumtr  +++|*                (B6) = RETURN ADDRESS.
34163  M00S19649.cpumtr  +++|*
34164  M00S19650.cpumtr  +++|*         USES   A - 2, 3, 7.
34165  M00S19651.cpumtr  +++|*                X - 1, 2, 3, 4, 5, 6, 7.
34166  M00S19652.cpumtr  +++|
34167  M00S19653.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34168  M01S19654.283l840 ---| LCB      TX6    X1,CBT      READ OFFSET

Seq #  *Modification Id* Act 
----------------------------+
34169  M01S00481.283l840 +++| LCB      BSS    0           ENTRY
34170  M01S00482.283l840 +++|          TX6    X1,CBT      READ OFFSET
34171  M00S19655.cpumtr  +++|          AX1    18          GET OLD BUFFER INDEX
34172  M00S19656.cpumtr  +++|          BX2    X1          FORM ADDRESS OF OLD BUFFER
34173  M00S19657.cpumtr  +++|          LX2    CBTLS
34174  M00S19658.cpumtr  +++|          IX2    X2+X6
34175  M00S19659.cpumtr  +++|          SA3    X2          READ LINK WORD
34176  M00S19660.cpumtr  +++|          MX4    12          SAVE OLD FORWARD LINK
34177  M00S19661.cpumtr  +++|          LX4    36
34178  M00S19662.cpumtr  +++|          BX3    X4*X3
34179  M00S19663.cpumtr  +++|          AX3    24
34180  M00S19664.cpumtr  +++|          LX0    24          SET FORWARD LINK TO NEW BUFFER INDEX

Seq #  *Modification Id* Act 
----------------------------+
34181  M01S19665.cpum242 ---|+         SA2    A3          ** PERFORM UPDATE IN ONE WORD
34182  M01S19666.cpum242 ---|          BX7    -X4*X2      **
34183  M01S19667.cpum242 ---|          BX7    X7+X0       **
34184  M01S19668.cpum242 ---|          SA7    A2          **

Seq #  *Modification Id* Act 
----------------------------+
34185  M01S00028.cpum242 +++|+         SA2    A3          **** PERFORM IN ONE WORD ****
34186  M01S00029.cpum242 +++|          BX7    -X4*X2      **** PERFORM IN ONE WORD ****
34187  M01S00030.cpum242 +++|          BX7    X7+X0       **** PERFORM IN ONE WORD ****
34188  M01S00031.cpum242 +++|          SA7    A2          **** PERFORM IN ONE WORD ****
34189  M00S19669.cpumtr  +++|          LX0    36
34190  M00S19670.cpumtr  +++|          BX2    X0          GET LINK WORD IN NEW BUFFER
34191  M00S19671.cpumtr  +++|          LX2    CBTLS
34192  M00S19672.cpumtr  +++|          IX2    X2+X6
34193  M00S19673.cpumtr  +++|          SA2    X2
34194  M00S19674.cpumtr  +++|          BX5    X1          SET BACKWARD LINK TO OLD BUFFER
34195  M00S19675.cpumtr  +++|          LX5    12
34196  M00S19676.cpumtr  +++|          BX5    X5+X3       SET FORWARD LINK TO OLD FORWARD
34197  M00S19677.cpumtr  +++|          LX5    24
34198  M00S19678.cpumtr  +++|          MX4    24
34199  M00S19679.cpumtr  +++|          LX4    48
34200  M00S19680.cpumtr  +++|          BX7    -X4*X2
34201  M00S19681.cpumtr  +++|          BX7    X7+X5
34202  M00S19682.cpumtr  +++|          SA7    A2
34203  M00S19683.cpumtr  +++|          ZR     X3,/MONITOR/RB6  IF ADDING TO END OF CHAIN
34204  M00S19684.cpumtr  +++|          BX2    X3          FORM ADDRESS OF FORWARD
34205  M00S19685.cpumtr  +++|          LX2    CBTLS
34206  M00S19686.cpumtr  +++|          IX2    X2+X6
34207  M00S19687.cpumtr  +++|          MX4    12          MODIFY BACKWARD LINK
34208  M00S19688.cpumtr  +++|          LX0    36
34209  M00S19689.cpumtr  +++|          LX4    48

Seq #  *Modification Id* Act 
----------------------------+
34210  M01S19690.cpum242 ---|+         SA3    X2          ** PERFORM UPDATE IN ONE WORD
34211  M01S19691.cpum242 ---|          BX3    -X4*X3      **
34212  M01S19692.cpum242 ---|          BX7    X3+X0       **
34213  M01S19693.cpum242 ---|          SA7    A3          **

Seq #  *Modification Id* Act 
----------------------------+
34214  M01S00032.cpum242 +++|+         SA3    X2          **** PERFORM IN ONE WORD ****
34215  M01S00033.cpum242 +++|          BX3    -X4*X3      **** PERFORM IN ONE WORD ****
34216  M01S00034.cpum242 +++|          BX7    X3+X0       **** PERFORM IN ONE WORD ****
34217  M01S00035.cpum242 +++|          SA7    A3          **** PERFORM IN ONE WORD ****
34218  M00S19694.cpumtr  +++|          LX0    24
34219  M00S19695.cpumtr  +++|          JP     B6          RETURN
34220  M00S19696.cpumtr  +++| LCC      SPACE  4,15
34221  M00S19697.cpumtr  +++|**        LCC - LINK CONTROL BUFFER TO END OF SPECIFIED CHAIN.
34222  M00S19698.cpumtr  +++|*
34223  M00S19699.cpumtr  +++|*         EXTRY  (X0) = CONTROL BUFFER ORDINAL.
34224  M00S19700.cpumtr  +++|*                (X1) = LIST ADDRESS.
34225  M00S19701.cpumtr  +++|*                (B3) = REGISTER SAVE BUFFER ADDRESS.
34226  M00S19702.cpumtr  +++|*                (B6) = RETURN ADDRESS.
34227  M00S19703.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
34228  M01S00026.cpum243 +++|*         EXIT   (X7) PRESERVED.
34229  M01S00027.cpum243 +++|*
34230  M00S19704.cpumtr  +++|*         USES   A - 2, 3, 6, 7.
34231  M00S19705.cpumtr  +++|*                B - 6.
34232  M00S19706.cpumtr  +++|*                X - 1, 2, 3, 4, 5, 6, 7.
34233  M00S19707.cpumtr  +++|*
34234  M00S19708.cpumtr  +++|*         CALLS  LCB, RXR.
34235  M00S19709.cpumtr  +++|
34236  M00S19710.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34237  M01S19711.283l840 ---| LCC      SA7    B3+B1       SAVE (X7)

Seq #  *Modification Id* Act 
----------------------------+
34238  M01S00483.283l840 +++| LCC      BSS    0           ENTRY
34239  M01S00484.283l840 +++|          SA7    B3+B1       SAVE (X7)
34240  M00S19712.cpumtr  +++|          SB3    A7+B1
34241  M00S19713.cpumtr  +++|          SX7    B6          SAVE (B6)
34242  M00S19714.cpumtr  +++|          SA7    A7-B1
34243  M00S19715.cpumtr  +++|          BX7    X0          SET CONTROL BUFFER INTERLOCK
34244  M00S19716.cpumtr  +++|          SA7    INLB
34245  M00S19717.cpumtr  +++|          BX3    X0          SET NEW LIST INDEX
34246  M00S19718.cpumtr  +++|          LX3    CBTLS
34247  M00S19719.cpumtr  +++|          TA3    X3+HSLK,CBT
34248  M00S19720.cpumtr  +++|          MX4    3
34249  M00S19721.cpumtr  +++|          LX4    24
34250  M00S19722.cpumtr  +++|          BX3    -X4*X3
34251  M00S19723.cpumtr  +++|          TX4    X1,-BLMB
34252  M00S19724.cpumtr  +++|          LX4    21
34253  M00S19725.cpumtr  +++|          BX7    X3+X4
34254  M00S19726.cpumtr  +++|          SA2    X1          READ LIST WORD
34255  M00S19727.cpumtr  +++|          SA7    A3
34256  M00S19728.cpumtr  +++|          NZ     X2,LCC2     IF LIST NOT EMPTY
34257  M00S19729.cpumtr  +++|          SX2    B1          SET COUNT = 1
34258  M00S19730.cpumtr  +++|          LX2    18
34259  M00S19731.cpumtr  +++|          BX2    X2+X0       SET LAST
34260  M00S19732.cpumtr  +++|          LX2    18
34261  M00S19733.cpumtr  +++|          BX7    X2+X0       SET FIRST = LAST
34262  M00S19734.cpumtr  +++|          SA7    A2
34263  M00S19735.cpumtr  +++|          BX1    X0          GET ADDRESS OF CONTROL BUFFER WORD 7
34264  M00S19736.cpumtr  +++|          LX1    CBTLS
34265  M00S19737.cpumtr  +++|          SA2    A3+LSLK-HSLK  READ CONTROL BUFFER LINK WORD
34266  M00S19738.cpumtr  +++|          MX3    24
34267  M00S19739.cpumtr  +++|          LX3    48          ZERO CONTROL BUFFER LINKS
34268  M00S19740.cpumtr  +++|          BX7    -X3*X2
34269  M00S19741.cpumtr  +++|          SA7    A2
34270  M00S19742.cpumtr  +++|          SA1    B3-B1       RESTORE (X7)

Seq #  *Modification Id* Act 
----------------------------+
34271  M01S19743.cpum243 ---|          SB3    A1-B1       RESTORE (X2)
34272  M01S19744.cpum243 ---|          SA2    A1-B1       RESTORE (X2)

Seq #  *Modification Id* Act 
----------------------------+
34273  M01S00028.cpum243 +++|          SB3    A1-B1
34274  M01S00029.cpum243 +++|          SA2    A1-B1       RESTORE (B6)
34275  M00S19745.cpumtr  +++|          BX7    X1
34276  M00S19746.cpumtr  +++|          SB6    X2
34277  M00S19747.cpumtr  +++|          JP     B6          RETURN
34278  M00S19748.cpumtr  +++|
34279  M00S19749.cpumtr  +++| LCC2     SX3    B1          INCREMENT COUNT
34280  M00S19750.cpumtr  +++|          LX3    36
34281  M00S19751.cpumtr  +++|          IX2    X3+X2
34282  M00S19752.cpumtr  +++|          MX3    -18         UPDATE LAST POINTER
34283  M00S19753.cpumtr  +++|          LX3    18
34284  M00S19754.cpumtr  +++|          BX1    -X3*X2      SAVE OLD LAST
34285  M00S19755.cpumtr  +++|          SX5    LSLK        ADD CONTROL BUFFER LINK WORD
34286  M00S19756.cpumtr  +++|          IX1    X1+X5
34287  M00S19757.cpumtr  +++|          BX2    X3*X2
34288  M00S19758.cpumtr  +++|          LX0    18
34289  M00S19759.cpumtr  +++|          BX6    X2+X0
34290  M00S19760.cpumtr  +++|          SA6    A2
34291  M00S19761.cpumtr  +++|          LX0    42
34292  M00S19762.cpumtr  +++|          SB6    RXR         SET RETURN ADDRESS TO RESTORE ROUTINE
34293  M00S19763.cpumtr  +++|          EQ     LCB         LINK CONTROL BUFFER (X0) FOLLOWING (X1)
34294  M00S19764.cpumtr  +++| LCH      SPACE  4,15
34295  M00S19765.cpumtr  +++|**        LCH - LINK CONTROL BUFFER TO HASH CHAIN.
34296  M00S19766.cpumtr  +++|*
34297  M00S19767.cpumtr  +++|*         ENTRY  (X0) = CONTROL BUFFER INDEX.
34298  M00S19768.cpumtr  +++|*                (X1) = HASH ENTRY ADDRESS.
34299  M00S19769.cpumtr  +++|*                (B3) =  REGISTER SAVE BUFFER ADDRESS.
34300  M00S19770.cpumtr  +++|*                (B6) = RETURN ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
34301  M01S00030.cpum243 +++|*
34302  M01S00031.cpum243 +++|*         EXIT   (X7) PRESERVED.
34303  M00S19771.cpumtr  +++|*
34304  M00S19772.cpumtr  +++|*         USES   A - 1, 2, 3, 4, 7.
34305  M00S19773.cpumtr  +++|*                B - 6.

Seq #  *Modification Id* Act 
----------------------------+
34306  M01S19774.271l716 ---|*                X - 1, 2, 3, 4, 5, 7.

Seq #  *Modification Id* Act 
----------------------------+
34307  M01S02014.271l716 +++|*                X - 1, 2, 3, 4, 5, 6, 7.
34308  M00S19775.cpumtr  +++|*
34309  M00S19776.cpumtr  +++|*         CALLS  LCB, RXR.
34310  M00S19777.cpumtr  +++|
34311  M00S19778.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34312  M01S19779.283l840 ---| LCH      SA7    B3+B1       SAVE (X7)

Seq #  *Modification Id* Act 
----------------------------+
34313  M01S00485.283l840 +++| LCH      BSS    0           ENTRY
34314  M01S00486.283l840 +++|          SA7    B3+B1       SAVE (X7)
34315  M00S19780.cpumtr  +++|          SB3    A7+B1
34316  M00S19781.cpumtr  +++|          SX7    B6          SAVE (B6)
34317  M00S19782.cpumtr  +++|          SA7    A7-B1
34318  M00S19783.cpumtr  +++|          BX2    X1
34319  M00S19784.cpumtr  +++|          BX1    X0          SET NEW *PUT* ORDINAL AND HASH INDEX
34320  M00S19785.cpumtr  +++|          SA4    PUTO
34321  M00S19786.cpumtr  +++|          LX1    CBTLS
34322  M00S19787.cpumtr  +++|          TA3    X1+HSLK,CBT
34323  M00S19788.cpumtr  +++|          MX5    -21
34324  M00S19789.cpumtr  +++|          BX3    X5*X3

Seq #  *Modification Id* Act 
----------------------------+
34325  M01S00436.241l630 +++|          SX4    X4+
34326  M00S19790.cpumtr  +++|          BX3    X3+X4
34327  M00S19791.cpumtr  +++|          SA4    HTA         FORM HASH INDEX
34328  M00S19792.cpumtr  +++|          IX4    X2-X4
34329  M00S19793.cpumtr  +++|          LX4    12
34330  M00S19794.cpumtr  +++|          BX7    X3+X4

Seq #  *Modification Id* Act 
----------------------------+
34331  M01S19795.271l716 ---|          SA7    A3
34332  M01S19796.271l716 ---|          SA1    X2
34333  M01S19797.271l716 ---|          MX5    -12         GET CONTROL BUFFER INDEX
34334  M01S19798.271l716 ---|          BX1    -X5*X1
34335  M01S19799.271l716 ---|          ZR     X1,LCH5     IF NO BUFFERS ON HASH THREAD
34336  M01S19800.271l716 ---|          BX3    X0          GET TRACK/SECTOR VALUE FROM NEW BUFFER
34337  M01S19801.271l716 ---|          LX3    CBTLS

Seq #  *Modification Id* Act 
----------------------------+
34338  M02S19802.271l716 ---|          TA4    X3,CBT

Seq #  *Modification Id* Act 
----------------------------+
34339  M02S01532.271l716 ---|          TA4    X3+PAD1,CBT

Seq #  *Modification Id* Act 
----------------------------+
34340  M01S19803.271l716 ---|          AX4    24
34341  M01S19804.271l716 ---|          BX7    -X5*X4

Seq #  *Modification Id* Act 
----------------------------+
34342  M01S02015.271l716 +++|          MX5    -12
34343  M01S02016.271l716 +++|          SA1    X2          GET CONTROL BUFFER INDEX
34344  M01S02017.271l716 +++|          MX6    24
34345  M01S02018.271l716 +++|          SA7    A3
34346  M01S02019.271l716 +++|          LX6    -12         POSITION ADDRESS MASK
34347  M01S02020.271l716 +++|          BX1    -X5*X1
34348  M01S02021.271l716 +++|          SX3    X0
34349  M01S02022.271l716 +++|          ZR     X1,LCH5     IF NO BUFFERS ON HASH THREAD
34350  M01S02023.271l716 +++|          LX3    CBTLS
34351  M01S02024.271l716 +++|          BX4    X1
34352  M01S02025.271l716 +++|          TA3    X3+PAD1,CBT GET DISK ADDRESS FROM NEW BUFFER
34353  M01S02026.271l716 +++|          NO
34354  M01S02027.271l716 +++|          BX7    X6*X3       EXTRACT CYLINDER, TRACK AND SECTOR
34355  M00S19805.cpumtr  +++|
34356  M00S19806.cpumtr  +++|*         FIND POSITION TO INSERT NEW BUFFER.
34357  M00S19807.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34358  M01S19808.271l716 ---| LCH2     BX3    X1

Seq #  *Modification Id* Act 
----------------------------+
34359  M01S02028.271l716 +++| LCH2     BX3    X4          SET BUFFER ORDINAL
34360  M01S02029.271l716 +++|          SX1    X4+0
34361  M00S19809.cpumtr  +++|          LX3    CBTLS

Seq #  *Modification Id* Act 
----------------------------+
34362  M01S19810.251l664 ---|          TA4    X3,CBT

Seq #  *Modification Id* Act 
----------------------------+
34363  M01S01533.251l664 +++|          TA4    X3+PAD1,CBT

Seq #  *Modification Id* Act 
----------------------------+
34364  M01S19811.271l716 ---|          AX4    24
34365  M01S19812.271l716 ---|          BX4    -X5*X4

Seq #  *Modification Id* Act 
----------------------------+
34366  M01S02030.271l716 +++|          BX4    X6*X4       ISOLATE CYLINDER, TRACK AND SECTOR
34367  M00S19813.cpumtr  +++|          IX4    X4-X7

Seq #  *Modification Id* Act 
----------------------------+
34368  M01S19814.241l630 ---|          PL     X4,LCH4     IF POSITION FOUND

Seq #  *Modification Id* Act 
----------------------------+
34369  M01S00437.241l630 +++|          NG     X4,LCH4     IF POSITION FOUND
34370  M00S19815.cpumtr  +++|          SA4    A4+HSLK     GET FORWARD LINK
34371  M00S19816.cpumtr  +++|          AX4    24
34372  M00S19817.cpumtr  +++|          BX4    -X5*X4

Seq #  *Modification Id* Act 
----------------------------+
34373  M01S19818.271l716 ---|          ZR     X4,LCH3     IF END OF CHAIN
34374  M01S19819.271l716 ---|          BX1    X4          SET LOOP INDEX
34375  M01S19820.271l716 ---|          EQ     LCH2        CHECK NEXT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
34376  M01S02031.271l716 +++|          NZ     X4,LCH2     IF NOT END OF CHAIN
34377  M00S19821.cpumtr  +++|
34378  M00S19822.cpumtr  +++| LCH3     SX2    HSLK        FORM PARAMETER FOR *LCB*
34379  M00S19823.cpumtr  +++|          SB6    RXR         RETURN TO RESTORE REGISTERS
34380  M00S19824.cpumtr  +++|          LX1    18
34381  M00S19825.cpumtr  +++|          BX1    X1+X2
34382  M00S19826.cpumtr  +++|          EQ     LCB         LINK CONTROL BUFFER
34383  M00S19827.cpumtr  +++|
34384  M00S19828.cpumtr  +++| LCH4     TA4    X3+HSLK,CBT GET BACKWARD LINK
34385  M00S19829.cpumtr  +++|          AX4    36
34386  M00S19830.cpumtr  +++|          BX1    -X5*X4
34387  M00S19831.cpumtr  +++|          NZ     X1,LCH3     IF NOT FIRST BUFFER ON HASH LIST
34388  M00S19832.cpumtr  +++|
34389  M00S19833.cpumtr  +++|*         UPDATE HASH ENTRY AND ADD BUFFER AT START.
34390  M00S19834.cpumtr  +++|
34391  M00S19835.cpumtr  +++| LCH5     SA1    X2          READ HASH ENTRY

Seq #  *Modification Id* Act 
----------------------------+
34392  M01S19836.271l716 ---|          MX3    -12
34393  M01S19837.271l716 ---|          BX4    -X3*X1      SAVE OLD INDEX
34394  M01S19838.271l716 ---|          BX1    X3*X1       SET INDEX = NEW BUFFER

Seq #  *Modification Id* Act 
----------------------------+
34395  M01S02032.271l716 +++|          BX4    -X5*X1
34396  M01S02033.271l716 +++|          BX1    X5*X1       SET INDEX = NEW BUFFER
34397  M00S19839.cpumtr  +++|          BX7    X1+X0
34398  M00S19840.cpumtr  +++|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
34399  M01S19841.271l716 ---|          BX1    X0          READ HASH CHAIN WORD IN NEW BUFFER
34400  M01S19842.271l716 ---|          LX1    CBTLS
34401  M01S19843.271l716 ---|          TA2    X1+HSLK,CBT
34402  M01S19844.271l716 ---|          MX3    24          ZERO BACKWARD LINK
34403  M01S19845.271l716 ---|          LX3    48
34404  M01S19846.271l716 ---|          BX2    -X3*X2

Seq #  *Modification Id* Act 
----------------------------+
34405  M01S02034.271l716 +++|          LX0    CBTLS       READ HASH CHAIN WORD OF NEW BUFFER
34406  M01S02035.271l716 +++|          TA2    X0+HSLK,CBT
34407  M01S02036.271l716 +++|          BX2    -X6*X2
34408  M00S19847.cpumtr  +++|          LX4    24          SET FORWARD LINK = OLD HASH INDEX
34409  M00S19848.cpumtr  +++|          BX7    X2+X4

Seq #  *Modification Id* Act 
----------------------------+
34410  M01S19849.271l716 ---|          SA7    A2
34411  M01S19850.271l716 ---|          ZR     X4,RXR      IF NO BUFFERS ON CHAIN
34412  M01S19851.271l716 ---|          LX4    36
34413  M01S19852.271l716 ---|          BX1    X4          GET OLD HASH INDEX BUFFER
34414  M01S19853.271l716 ---|          LX1    CBTLS
34415  M01S19854.271l716 ---|          TA2    X1+HSLK,CBT
34416  M01S19855.271l716 ---|          MX3    -12         SET BACKWARD LINK = NEW BUFFER
34417  M01S19856.271l716 ---|          LX3    36
34418  M01S19857.271l716 ---|          BX2    X3*X2

Seq #  *Modification Id* Act 
----------------------------+
34419  M01S02037.271l716 +++|          LX4    36+CBTLS    POSITION HASH INDEX
34420  M01S02038.271l716 +++|          SA7    A2
34421  M01S02039.271l716 +++|          LX0    -CBTLS
34422  M01S02040.271l716 +++|          ZR     X4,RXR      IF NO BUFFERS ON CHAIN
34423  M01S02041.271l716 +++|          TA2    X4+HSLK,CBT
34424  M01S02042.271l716 +++|          LX5    36
34425  M01S02043.271l716 +++|          BX2    X5*X2       SET BACKWARD LINK = NEW BUFFER
34426  M00S19858.cpumtr  +++|          LX0    36
34427  M00S19859.cpumtr  +++|          BX7    X2+X0
34428  M00S19860.cpumtr  +++|          LX0    24

Seq #  *Modification Id* Act 
----------------------------+
34429  M01S19861.271l716 ---|          SA7    A2+
34430  M01S19862.271l716 ---|          NO

Seq #  *Modification Id* Act 
----------------------------+
34431  M01S02044.271l716 +++|          SA7    A2
34432  M00S19863.cpumtr  +++|*         EQ     RXR         RESTORE (X2) AND (X7) AND RETURN
34433  M00S19864.cpumtr  +++|          ERRNZ  *-RXR       *RXR* MUST FOLLOW *LCH*
34434  M00S19865.cpumtr  +++| RXR      SPACE  4,15
34435  M00S19866.cpumtr  +++|**        RXR - RESTORE X2 AND X7 AND EXIT TO (X2).
34436  M00S19867.cpumtr  +++|*
34437  M00S19868.cpumtr  +++|*         ENTRY  (B3) = NEXT AVAILABLE SCRATCH.
34438  M00S19869.cpumtr  +++|*
34439  M00S19870.cpumtr  +++|*         EXIT   REGISTERS X2 AND X7 ARE RESTORED.
34440  M00S19871.cpumtr  +++|*                (B6) RESTORED TO RETURN ADDRESS.
34441  M00S19872.cpumtr  +++|*                RETURN IS TO (X2), NOT TO CALLER.
34442  M00S19873.cpumtr  +++|*                (B3) UPDATED.
34443  M00S19874.cpumtr  +++|*
34444  M00S19875.cpumtr  +++|*         USES   A - 1, 2.
34445  M00S19876.cpumtr  +++|*                B - 3, 6.
34446  M00S19877.cpumtr  +++|*                X - 1, 2, 7.
34447  M00S19878.cpumtr  +++|
34448  M00S19879.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34449  M01S19880.283l840 ---| RXR      SA1    B3-B1       RESTORE (X7)

Seq #  *Modification Id* Act 
----------------------------+
34450  M01S00487.283l840 +++| RXR      BSS    0           ENTRY
34451  M01S00488.283l840 +++|          SA1    B3-B1       RESTORE (X7)
34452  M00S19881.cpumtr  +++|          SB3    A1-B1
34453  M00S19882.cpumtr  +++|          SA2    A1-B1       RESTORE (X2)
34454  M00S19883.cpumtr  +++|          BX7    X1
34455  M00S19884.cpumtr  +++|          SB6    X2          GET RETURN ADDRESS
34456  M00S19885.cpumtr  +++|          JP     B6          RETURN
34457  M00S19886.cpumtr  +++| SBB      SPACE  4,10
34458  M00S19887.cpumtr  +++|**        SBB - SET BUFFER BUSY RESPONSE.
34459  M00S19888.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
34460  M01S19889.251l664 ---|*         EXIT   (STAT) HAS BUFFERS BUSY STATUS SET.
34461  M01S19890.251l664 ---|*                (X1) = (STAT).

Seq #  *Modification Id* Act 
----------------------------+
34462  M01S01534.251l664 +++|*         EXIT   (X6) = 1/0, 1/1, 58/0   (BUSY STATUS).
34463  M00S19891.cpumtr  +++|*                PUT STATISTICS UPDATED.
34464  M00S19892.cpumtr  +++|*                CONTROL PASSED TO LBMXS.
34465  M00S19893.cpumtr  +++|*
34466  M00S19894.cpumtr  +++|*         USES   A - 1, 3, 6.
34467  M00S19895.cpumtr  +++|*                X - 1, 3, 4, 6.
34468  M00S19896.cpumtr  +++|
34469  M00S19897.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34470  M01S19898.283l840 ---| SBB      SA3    PUTO

Seq #  *Modification Id* Act 
----------------------------+
34471  M01S00489.283l840 +++| SBB      BSS    0           ENTRY
34472  M01S00490.283l840 +++|          SA3    PUTO

Seq #  *Modification Id* Act 
----------------------------+
34473  M01S19899.251l664 ---|          SX4    B1

Seq #  *Modification Id* Act 
----------------------------+
34474  M01S01535.251l664 +++|          SX6    B1
34475  M00S19900.cpumtr  +++|          LX3    PUTLS
34476  M00S19901.cpumtr  +++|          TA1    X3+ACRJ,PUT COUNT BUFFER BUSY

Seq #  *Modification Id* Act 
----------------------------+
34477  M01S19902.251l664 ---|          IX6    X1+X4
34478  M01S19903.251l664 ---|          SA6    A1
34479  M01S19904.251l664 ---|          ERRNZ  ACST-ACRJ-1 WORDS MUST BE CONTIGOUS
34480  M01S19905.251l664 ---|          SA1    A1+B1       COUNT BUFFER PROCESSED
34481  M01S19906.251l664 ---|          IX6    X1+X4
34482  M01S19907.251l664 ---|          SA6    A1
34483  M01S19908.251l664 ---|          LX4    58-0
34484  M01S19909.251l664 ---|          SA1    STAT        SET STATUS BUSY
34485  M01S19910.251l664 ---|          BX6    X1+X4
34486  M01S19911.251l664 ---|          BX1    X6
34487  M01S19912.251l664 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
34488  M01S01536.251l664 +++|          BX3    X1
34489  M01S01537.251l664 +++|          LX1    59-23
34490  M01S01538.251l664 +++|          NG     X1,SBB1     IF OVERFLOW
34491  M01S01539.251l664 +++|          IX7    X3+X6
34492  M01S01540.251l664 +++|          SA7    A1
34493  M01S01541.251l664 +++| SBB1     SA1    A1+B1
34494  M01S01542.251l664 +++|          ERRNZ  ACST-ACRJ-1 CODE DEPENDS ON VALUE
34495  M01S01543.251l664 +++|          BX3    X1
34496  M01S01544.251l664 +++|          LX1    59-35
34497  M01S01545.251l664 +++|          IX7    X3+X6
34498  M01S01546.251l664 +++|          NG     X1,SBB2     IF OVERFLOW
34499  M01S01547.251l664 +++|          SA7    A1+
34500  M01S01548.251l664 +++| SBB2     LX6    58-0        SET BUSY STATUS
34501  M00S19913.cpumtr  +++|          EQ     LBMXS       EXIT TO LBM

Seq #  *Modification Id* Act 
----------------------------+
34502  M01S00491.283l840 +++| SIS      SPACE  4,10
34503  M01S00492.283l840 +++|**        SIS - SET INACCESSIBLE DEVICE RESPONSE.
34504  M01S00493.283l840 +++|*
34505  M01S00494.283l840 +++|*         EXIT   TO *LBMXS* WITH DEVICE INACCESSIBLE STATUS.
34506  M01S00495.283l840 +++|*
34507  M01S00496.283l840 +++|*         USES   X - 6.
34508  M01S00497.283l840 +++|
34509  M01S00498.283l840 +++|
34510  M01S00499.283l840 +++| SIS      BSS    0           ENTRY
34511  M01S00500.283l840 +++|          SX6    B1
34512  M01S00501.283l840 +++|          LX6    56-0
34513  M01S00502.283l840 +++|          EQ     LBMXS       EXIT BUFFER MANAGER
34514  M00S19914.cpumtr  +++| SNS      SPACE  4,20
34515  M00S19915.cpumtr  +++|**        SNS - SET NEXT SECTOR.
34516  M00S19916.cpumtr  +++|*
34517  M00S19917.cpumtr  +++|*         ENTRY  (LSEC) = CURRENT LOGICAL SECTOR.
34518  M00S19918.cpumtr  +++|*                (LTRK) = CURRENT LOGICAL TRACK.
34519  M00S19919.cpumtr  +++|*                (MSTA) = MST ADDRESS.
34520  M00S19920.cpumtr  +++|*                (B3) = REGISTER SAVE BUFFER ADDRESS.
34521  M00S19921.cpumtr  +++|*                (B6) = RETURN ADDRESS.
34522  M00S19922.cpumtr  +++|*
34523  M00S19923.cpumtr  +++|*         EXIT   (X0) = NON-ZERO  IF END OF LOGICAL TRACK CHAIN.

Seq #  *Modification Id* Act 
----------------------------+
34524  M01S00032.cpum243 +++|*                (X7) PRESERVED.
34525  M00S19924.cpumtr  +++|*                (LSEC) UPDATED.
34526  M00S19925.cpumtr  +++|*                (LTRK) UPDATED.
34527  M00S19926.cpumtr  +++|*
34528  M00S19927.cpumtr  +++|*         USES   A - 1, 2, 6, 7.
34529  M00S19928.cpumtr  +++|*                B - 6.
34530  M00S19929.cpumtr  +++|*                X - 0, 1, 2, 6.
34531  M00S19930.cpumtr  +++|*
34532  M00S19931.cpumtr  +++|*         CALLS  RXR.
34533  M00S19932.cpumtr  +++|
34534  M00S19933.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34535  M01S19934.283l840 ---| SNS      SA7    B3+B1       SAVE (X7)

Seq #  *Modification Id* Act 
----------------------------+
34536  M01S00503.283l840 +++| SNS      BSS    0           ENTRY
34537  M01S00504.283l840 +++|          SA7    B3+B1       SAVE (X7)
34538  M00S19935.cpumtr  +++|          SB3    A7+B1
34539  M00S19936.cpumtr  +++|          SX7    B6          SAVE (B6)
34540  M00S19937.cpumtr  +++|          SA7    A7-B1
34541  M00S19938.cpumtr  +++|          SA1    LSEC
34542  M00S19939.cpumtr  +++|          SX2    LSLB
34543  M00S19940.cpumtr  +++|          IX6    X1+X2
34544  M00S19941.cpumtr  +++|          SA6    A1
34545  M00S19942.cpumtr  +++|          SA1    LTRK
34546  M00S19943.cpumtr  +++|          BX0    X1          (X0) = CURRENT LOGICAL TRACK
34547  M00S19944.cpumtr  +++|          SA1    MSTA
34548  M00S19945.cpumtr  +++|          MX2    -2
34549  M00S19946.cpumtr  +++|          BX2    -X2*X0      TRT BYTE INDEX
34550  M00S19947.cpumtr  +++|          LX2    2
34551  M00S19948.cpumtr  +++|          SB6    X2
34552  M00S19949.cpumtr  +++|          LX2    1
34553  M00S19950.cpumtr  +++|          SB6    X2+B6       BYTE INDEX*12D
34554  M00S19951.cpumtr  +++|          MX2    -9
34555  M00S19952.cpumtr  +++|          LX0    -2
34556  M00S19953.cpumtr  +++|          BX7    -X2*X0      TRT WORD INDEX
34557  M00S19954.cpumtr  +++|          SA2    X1+TRLL
34558  M00S19955.cpumtr  +++|          IX7    X2+X7
34559  M00S19956.cpumtr  +++|          SA2    X7          READ TRT WORD
34560  M00S19957.cpumtr  +++|          LX2    B6
34561  M00S19958.cpumtr  +++|          MX7    12
34562  M00S19959.cpumtr  +++|          SX0    B0          CLEAR EOI FLAG
34563  M00S19960.cpumtr  +++|          BX7    X7*X2       NEXT TRACK
34564  M00S19961.cpumtr  +++|          NG     X7,SNS1     IF CURRENT IS NOT EOI TRACK
34565  M00S19962.cpumtr  +++|          LX7    12
34566  M00S19963.cpumtr  +++|          IX2    X6-X7
34567  M00S19964.cpumtr  +++|          NG     X2,RXR      IF NEW BUFFER NOT BEYOND EOI
34568  M00S19965.cpumtr  +++|          ZR     X2,RXR      IF EOI IN NEW BUFFER
34569  M00S19966.cpumtr  +++|          SX0    B1          SET EOI FLAG
34570  M00S19967.cpumtr  +++|          EQ     RXR         EXIT
34571  M00S19968.cpumtr  +++|
34572  M00S19969.cpumtr  +++| SNS1     SA1    X1+MDGL     SECTOR LIMIT
34573  M00S19970.cpumtr  +++|          MX2    -12
34574  M00S19971.cpumtr  +++|          BX1    -X2*X1
34575  M00S19972.cpumtr  +++|          IX2    X6-X1
34576  M00S19973.cpumtr  +++|          NG     X2,RXR      IF NOT AT SECTOR LIMIT
34577  M00S19974.cpumtr  +++|          LX7    12
34578  M00S19975.cpumtr  +++|          SA7    LTRK        SET NEXT TRACK
34579  M00S19976.cpumtr  +++|          LX7    59-11
34580  M00S19977.cpumtr  +++|          MX6    0
34581  M00S19978.cpumtr  +++|          SA6    LSEC        RESET LOGICAL SECTOR
34582  M00S19979.cpumtr  +++|          EQ     RXR         RESTORE X2 AND X7 AND RETURN TO (X2)
34583  M00S19980.cpumtr  +++| SNT      SPACE  4,15
34584  M00S19981.cpumtr  +++|**        SNT - SET NEXT TRACK.
34585  M00S19982.cpumtr  +++|*
34586  M00S19983.cpumtr  +++|*         ENTRY  (X0) = CURRENT LOGICAL TRACK.
34587  M00S19984.cpumtr  +++|*                (X1) = MST ADDRESS.
34588  M00S19985.cpumtr  +++|*                (B6) = RETURN ADDRESS.
34589  M00S19986.cpumtr  +++|*
34590  M00S19987.cpumtr  +++|*         EXIT   (X6) = NEW LOGICAL TRACK.
34591  M00S19988.cpumtr  +++|*                (X2) = TRT WORD WITH NEXT TRACK IN BITS 48-59.
34592  M00S19989.cpumtr  +++|*
34593  M00S19990.cpumtr  +++|*         USES   A - 2.
34594  M00S19991.cpumtr  +++|*                X - 2, 6.
34595  M00S19992.cpumtr  +++|
34596  M00S19993.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34597  M01S19994.283l840 ---| SNT      MX2    -2

Seq #  *Modification Id* Act 
----------------------------+
34598  M01S00505.283l840 +++| SNT      BSS    0           ENTRY
34599  M01S00506.283l840 +++|          MX2    -2
34600  M00S19995.cpumtr  +++|          BX2    -X2*X0      BYTE INDEX
34601  M00S19996.cpumtr  +++|          SB1    B6          SAVE (B6)
34602  M00S19997.cpumtr  +++|          LX2    2
34603  M00S19998.cpumtr  +++|          SB6    X2
34604  M00S19999.cpumtr  +++|          LX2    1
34605  M00S20000.cpumtr  +++|          SB6    X2+B6       BYTE INDEX * 12D
34606  M00S20001.cpumtr  +++|          MX2    -9
34607  M00S20002.cpumtr  +++|          LX0    -2
34608  M00S20003.cpumtr  +++|          BX6    -X2*X0
34609  M00S20004.cpumtr  +++|          SA2    X1+TRLL
34610  M00S20005.cpumtr  +++|          IX6    X2+X6
34611  M00S20006.cpumtr  +++|          SA2    X6          READ TRT WORD
34612  M00S20007.cpumtr  +++|          LX2    B6
34613  M00S20008.cpumtr  +++|          SB6    B1          RESTORE (B6)
34614  M00S20009.cpumtr  +++|          SB1    1           RESTORE (B1)
34615  M00S20010.cpumtr  +++|          MX6    12
34616  M00S20011.cpumtr  +++|          LX0    2
34617  M00S20012.cpumtr  +++|          BX6    X6*X2       GET NEXT TRACK POINTER
34618  M00S20013.cpumtr  +++|          LX6    12
34619  M00S20014.cpumtr  +++|          JP     B6          RETURN

Seq #  *Modification Id* Act 
----------------------------+
34620  M01S20015.241l630 ---|SPC       SPACE  4,15
34621  M01S20016.241l630 ---|***       SPC - SET PHYSICAL CHARACTERISTICS OF DEVICE.
34622  M01S20017.241l630 ---|*
34623  M01S20018.241l630 ---|*         ENTRY  (X1) = *DILL* WORD FROM MST TO BE USED.
34624  M01S20019.241l630 ---|*                (B6) = LOGICAL UNIT NUMBER.
34625  M01S20020.241l630 ---|*                (B5) = RETURN ADDRESS.
34626  M01S20021.241l630 ---|*
34627  M01S20022.241l630 ---|*         EXIT   (PUTO) = PUT ORDINAL.
34628  M01S20023.241l630 ---|*                (HTA) = HASH TABLE ADDRESS.
34629  M01S20024.241l630 ---|*                (HTM) = HASH TABLE MASK.
34630  M01S20025.241l630 ---|*                (UNIT) = UNIT NUMBER.
34631  M01S20026.241l630 ---|*
34632  M01S20027.241l630 ---|*         USES   X - 1, 4, 6.
34633  M01S20028.241l630 ---|*                A - 1, 6.
34634  M01S20029.241l630 ---|*                B - 6.
34635  M01S20030.241l630 ---|
34636  M01S20031.241l630 ---|
34637  M01S20032.241l630 ---| SPC      MX4    -12
34638  M01S20033.241l630 ---|          LX1    -24
34639  M01S20034.241l630 ---|          ZR     B6,SPC2     IF LUN = 0
34640  M01S20035.241l630 ---| SPC1     BX6    -X4*X1      NEXT PUT ORDINAL
34641  M01S20036.241l630 ---|          LX6    PUTLS
34642  M01S20037.241l630 ---|          TA1    X6+HSCT,PUT READ NEXT ENTRY IN CHAIN
34643  M01S20038.241l630 ---|          SB6    B6-1        DECREMENT UNIT NUMBER
34644  M01S20039.241l630 ---|          NZ     B6,SPC1     IF NOT CORRECT UNIT
34645  M01S20040.241l630 ---| SPC2     BX6    -X4*X1      PUT ORDINAL
34646  M01S20041.241l630 ---|          SA6    PUTO        SET NEW PUT ORDINAL
34647  M01S20042.241l630 ---|          LX6    PUTLS
34648  M01S20043.241l630 ---|          TA1    X6+HSCT,PUT READ *PUT* ENTRY
34649  M01S20044.241l630 ---|          MX6    -18
34650  M01S20045.241l630 ---|          LX1    -24
34651  M01S20046.241l630 ---|          BX6    -X6*X1      HASH TABLE ADDRESS
34652  M01S20047.241l630 ---|          SA6    HTA
34653  M01S20048.241l630 ---|          LX1    -18
34654  M01S20049.241l630 ---|          MX6    -9
34655  M01S20050.241l630 ---|          BX6    -X6*X1      HASH TABLE MASK
34656  M01S20051.241l630 ---|          SA6    HTM
34657  M01S20052.241l630 ---|          SA1    A1-B1
34658  M01S20053.241l630 ---|          ERRNZ  HSCT-UNCT-1 ENTRIES MUST BE CONSECUTIVE
34659  M01S20054.241l630 ---|          MX6    -6
34660  M01S20055.241l630 ---|          AX1    48
34661  M01S20056.241l630 ---|          BX6    -X6*X1      UNIT NUMBER
34662  M01S20057.241l630 ---|          SA6    UNIT
34663  M01S20058.241l630 ---|          JP     B5          RETURN
34664  M00S20059.cpumtr  +++| SRC      SPACE  4,10
34665  M00S20060.cpumtr  +++|**        SRC - SET RECALL CONTROL.
34666  M00S20061.cpumtr  +++|*
34667  M00S20062.cpumtr  +++|*         ENTRY  (B6) = RETURN ADDRESS.
34668  M00S20063.cpumtr  +++|*                (X0) = CONTROL BUFFER INDEX.
34669  M00S20064.cpumtr  +++|*
34670  M00S20065.cpumtr  +++|*         USES   A - 1, 3, 6.
34671  M00S20066.cpumtr  +++|*                X - 1, 2, 3, 4, 6.
34672  M00S20067.cpumtr  +++|
34673  M00S20068.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34674  M01S20069.283l840 ---| SRC      BX2    X0          GET CONTROL BUFFER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
34675  M01S00507.283l840 +++| SRC      BSS    0           ENTRY
34676  M01S00508.283l840 +++|          BX2    X0          GET CONTROL BUFFER ADDRESS
34677  M00S20070.cpumtr  +++|          LX2    CBTLS
34678  M00S20071.cpumtr  +++|          TA3    X2+LSLK,CBT GET RECALL WORD
34679  M00S20072.cpumtr  +++|          SA1    RPRM        GET RECALL PARAMETER
34680  M00S20073.cpumtr  +++|          MX4    -24         SET RECALL CONTROL
34681  M00S20074.cpumtr  +++|          BX3    X4*X3
34682  M00S20075.cpumtr  +++|          BX6    X3+X1
34683  M00S20076.cpumtr  +++|          SA6    A3
34684  M00S20077.cpumtr  +++|          JP     B6          RETURN
34685  M00S20078.cpumtr  +++| SRR      SPACE  4,10
34686  M00S20079.cpumtr  +++|**        SRR - SET RECALL RESPONSE.
34687  M00S20080.cpumtr  +++|*

Seq #  *Modification Id* Act 
----------------------------+
34688  M01S20081.251l664 ---|*         EXIT   (STAT) HAS RECALL STATUS SET.
34689  M01S20082.251l664 ---|*                (X1) = (STAT).

Seq #  *Modification Id* Act 
----------------------------+
34690  M01S01549.251l664 +++|*         EXIT   (X6) = 1/1, 59/0   (RECALL STATUS).
34691  M00S20083.cpumtr  +++|*                PUT STATISTICS UPDATED.

Seq #  *Modification Id* Act 
----------------------------+
34692  M01S20084.251l664 ---|*                CONTROL PASSED TO LBMXS.

Seq #  *Modification Id* Act 
----------------------------+
34693  M01S01550.251l664 +++|*                CONTROL PASSED TO *LBMXS*.
34694  M00S20085.cpumtr  +++|*
34695  M00S20086.cpumtr  +++|*         USES   A - 1, 3, 6.
34696  M00S20087.cpumtr  +++|*                X - 1, 3, 4, 6.
34697  M00S20088.cpumtr  +++|
34698  M00S20089.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
34699  M01S20090.283l840 ---| SRR      SA3    PUTO

Seq #  *Modification Id* Act 
----------------------------+
34700  M01S00509.283l840 +++| SRR      BSS    0           ENTRY
34701  M01S00510.283l840 +++|          SA3    PUTO
34702  M00S20091.cpumtr  +++|          SX4    B1
34703  M00S20092.cpumtr  +++|          LX3    PUTLS

Seq #  *Modification Id* Act 
----------------------------+
34704  M01S20093.251l664 ---|          BX6    X4
34705  M01S20094.251l664 ---|          LX4    36-0
34706  M01S20095.251l664 ---|          BX6    X6+X4
34707  M01S20096.251l664 ---|          LX4    59-36

Seq #  *Modification Id* Act 
----------------------------+
34708  M01S01551.251l664 +++|          MX6    1
34709  M00S20097.cpumtr  +++|          TA1    X3+ACST,PUT COUNT BUFFER PROCESSED AND RECALLED

Seq #  *Modification Id* Act 
----------------------------+
34710  M01S01552.251l664 +++|          LX4    35-0
34711  M01S01553.251l664 +++|          BX6    -X1*X6
34712  M01S01554.251l664 +++|          BX4    -X1*X4
34713  M01S01555.251l664 +++|          LX6    36-59
34714  M01S01556.251l664 +++|          LX4    0-35
34715  M01S01557.251l664 +++|          BX6    X6+X4
34716  M00S20098.cpumtr  +++|          IX6    X1+X6
34717  M00S20099.cpumtr  +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
34718  M01S20100.251l664 ---|          SA1    STAT        SET RECALL STATUS
34719  M01S20101.251l664 ---|          BX6    X1+X4
34720  M01S20102.251l664 ---|          BX1    X6
34721  M01S20103.251l664 ---|          SA6    A1
34722  M01S20104.251l664 ---|          EQ     LBMXS       EXIT TO LBM

Seq #  *Modification Id* Act 
----------------------------+
34723  M01S01558.251l664 +++|          MX6    1           SET RECALL STATUS
34724  M01S01559.251l664 +++|          EQ     LBMXS       EXIT
34725  M00S20105.cpumtr  +++|          TITLE  CIO MONITOR MODE ROUTINES.
34726  M00S20106.cpumtr  +++| CPP      SPACE  4,10

Proceed to Part 28