Deck 1XY Part 002

32 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
03360  M00S02823.1xy     +++|          STD    CM+3
03361  M00S02824.1xy     +++|          LDD    T5          SET EQUIPMENT
03362  M00S02825.1xy     +++|          STD    CM+1
03363  M00S02826.1xy     +++|          MONITOR STBM       SET TRACK FLAW
03364  M00S02827.1xy     +++|          UJN    FLTX        EXIT
03365  M00S02828.1xy     +++| F8D      SPACE  4,10
03366  M00S02829.1xy     +++|**        F8D - FORMAT 895 DEVICE.
03367  M00S02830.1xy     +++|*
03368  M00S02831.1xy     +++|*         ENTRY  (T5) = EST ORDINAL.
03369  M00S02832.1xy     +++|*                (SR - SR+2) = FORMAT PARAMETER BLOCK.
03370  M00S02833.1xy     +++|*
03371  M00S02834.1xy     +++|*         EXIT   (A) .LT. 0, IF ERRORS OCCURRED.
03372  M00S02835.1xy     +++|*
Line S02836 Modification History
M01 (Removed by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03373  M01S02836.1xy5    ---|*         USES   SR, SR+3, CM - CM+4.
Line S00001 Modification History
M01 (Added by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03374  M01S00001.1xy5    +++|*         USES   SR, SR+2, SR+3, T2, CM - CM+4.
03375  M00S02837.1xy     +++|*
03376  M00S02838.1xy     +++|*         CALLS  C2D, FNC, WNB.
03377  M00S02839.1xy     +++|
03378  M00S02840.1xy     +++|
Line S02841 Modification History
M01 (Removed by) 1xy1
Seq #  *Modification Id* Act 
----------------------------+
03379  M01S02841.1xy1    ---| F8D2     LDD    MA          UPDATE CYLINDER NUMBER IN MESSAGE
03380  M01S02842.1xy1    ---|          ADN    2
Line S00003 Modification History
M01 (Added by) 1xy1
M02 (Removed by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03381  M02S00003.1xy5    ---| F8D2     LDD    CP          UPDATE CYLINDER NUMBER IN MESSAGE
Line S00002 Modification History
M01 (Added by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03382  M01S00002.1xy5    +++| F8D2     LDD    T2
03383  M01S00003.1xy5    +++|          ZJN    F8D2.1      IF NOT DISPLAYING THE FORMATTING MESSAGE
03384  M01S00004.1xy5    +++|          LDD    CP          UPDATE CYLINDER NUMBER IN MESSAGE
Line S00004 Modification History
M01 (Added by) 1xy1
Seq #  *Modification Id* Act 
----------------------------+
03385  M01S00004.1xy1    +++|          ADN    MS2W+2
03386  M00S02843.1xy     +++|          CWD    CM
Line S02844 Modification History
M01 (Removed by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03387  M01S02844.1xy5    ---|          LDC    FCFP        ISSUE FORMAT FUNCTION
Line S00005 Modification History
M01 (Added by) 1xy5
M02 (Removed by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03388  M02S00005.1xy10   ---| F8D2.1   LDC    FCFP        ISSUE FORMAT FUNCTION
Line S00001 Modification History
M01 (Added by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03389  M01S00001.1xy10   +++| F8D2.1   LDK    FCFP        ISSUE FORMAT FUNCTION
03390  M00S02845.1xy     +++|          RJM    FNC
Line S02846 Modification History
M01 (Removed by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03391  M01S02846.1xy10   ---|          MJP    F8DX        IF ERRORS ENCOUNTERED
Line S00002 Modification History
M01 (Added by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03392  M01S00002.1xy10   +++|          MJN    F8D3.2      IF ERRORS ENCOUNTERED
03393  M00S02847.1xy     +++|          LDN    FPBL        OUTPUT PARAMETER BLOCK
03394  M00S02848.1xy     +++|          OAM    SR,CH
Line S00003 Modification History
M01 (Added by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03395  M01S00003.1xy10   +++|          NJN    F8D3.1      IF INCOMPLETE DATA TRANSFER
03396  M00S02849.1xy     +++| F8D3     EJM    F8D4,CH     IF TRANSMISSION COMPLETE
03397  M00S02850.1xy     +++|          SBN    1
03398  M00S02851.1xy     +++|          NJN    F8D3        IF NOT END OF DELAY
Line S00004 Modification History
M01 (Added by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03399  M01S00004.1xy10   +++| F8D3.1   DCN    CH+40
03400  M00S02852.1xy     +++|          LCN    1
Line S02853 Modification History
M01 (Removed by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03401  M01S02853.1xy5    ---|          UJN    F8DX        EXIT WITH ERROR
Line S00006 Modification History
M01 (Added by) 1xy5
M02 (Removed by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03402  M02S00006.1xy10   ---|          LJM    F8DX        EXIT WITH ERROR
Line S00005 Modification History
M01 (Added by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03403  M01S00005.1xy10   +++| F8D3.2   LJM    F8DX        EXIT WITH ERROR
03404  M00S02854.1xy     +++|
03405  M00S02855.1xy     +++| F8D4     DCN    CH+40
03406  M00S02856.1xy     +++|          RJM    WNB         WAIT NOT BUSY
03407  M00S02857.1xy     +++|          MJN    F8DX        IF ERRORS ENCOUNTERED
Line S02858 Modification History
M01 (Removed by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03408  M01S02858.1xy5    ---|          LDD    SR+1
03409  M01S02859.1xy5    ---|          SHN    21-12
03410  M01S02860.1xy5    ---|          MJN    F8D5        IF FORMATTING ALL CYLINDERS
Line S00007 Modification History
M01 (Added by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03411  M01S00007.1xy5    +++|          LDD    T2
03412  M01S00008.1xy5    +++|          NJN    F8D5        IF FORMATTING ALL CYLINDERS
03413  M00S02861.1xy     +++|          AOD    SR+2
03414  M00S02862.1xy     +++|          LPN    77
03415  M00S02863.1xy     +++|          LMN    PTCYDC
03416  M00S02864.1xy     +++|          NJN    F8D2        IF ALL TRACKS NOT FORMATTED
Line S02865 Modification History
M01 (Removed by) 1xy1
Seq #  *Modification Id* Act 
----------------------------+
03417  M01S02865.1xy1    ---|          UJN    F8DX        RETURN
Line S00005 Modification History
M01 (Added by) 1xy1
Seq #  *Modification Id* Act 
----------------------------+
03418  M01S00005.1xy1    +++|          UJN    F8D7        RETURN
03419  M00S02866.1xy     +++|
03420  M00S02867.1xy     +++| F8D5     AOD    SR          ADVANCE CYLINDER NUMBER
03421  M00S02868.1xy     +++| F8D6     RJM    C2D
03422  M00S02869.1xy     +++|          STD    CM+2
03423  M00S02870.1xy     +++|          LDD    SR          CONVERT VALUE FOR MESSAGE
03424  M00S02871.1xy     +++|          SHN    -6
03425  M00S02872.1xy     +++|          RJM    C2D
03426  M00S02873.1xy     +++|          STD    CM+1
03427  M00S02874.1xy     +++|          LDD    SR
03428  M00S02875.1xy     +++|          LMD    SR+3
03429  M00S02876.1xy     +++|          NJP    F8D2        IF MORE CYLINDERS TO FORMAT
Line S00006 Modification History
M01 (Added by) 1xy1
M02 (Removed by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03430  M02S00006.1xy5    ---| F8D7     STD    CM          CLEAR MESSAGE
Line S00009 Modification History
M01 (Added by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03431  M01S00009.1xy5    +++| F8D7     LDD    T2
03432  M01S00010.1xy5    +++|          ZJN    F8DX        IF NO MESSAGE DISPLAYED
03433  M01S00011.1xy5    +++|          LDN    0           CLEAR THE MESSAGE
03434  M01S00012.1xy5    +++|          STD    CM
Line S00007 Modification History
M01 (Added by) 1xy1
Seq #  *Modification Id* Act 
----------------------------+
03435  M01S00007.1xy1    +++|          LDD    CP
03436  M01S00008.1xy1    +++|          ADN    MS2W
03437  M01S00009.1xy1    +++|          CWD    CM
03438  M00S02877.1xy     +++|
03439  M00S02878.1xy     +++| F8D      SUBR               ENTRY/EXIT
03440  M00S02879.1xy     +++|          LDD    SR+1
03441  M00S02880.1xy     +++|          RJM    C2D         CONVERT UNIT NUMBER
03442  M00S02881.1xy     +++|          STM    F8DB+4
03443  M00S02882.1xy     +++|          LDD    T5          SET EQUIPMENT IN MESSAGE
03444  M00S02883.1xy     +++|          RJM    C2D
03445  M00S02884.1xy     +++|          STM    F8DB+2      INSERT UNIT DESIGNATOR
03446  M00S02885.1xy     +++|          LDD    T5
03447  M00S02886.1xy     +++|          SHN    -6
03448  M00S02887.1xy     +++|          ADC    2RC0
03449  M00S02888.1xy     +++|          STM    F8DB+1
Line S00013 Modification History
M01 (Added by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03450  M01S00013.1xy5    +++|          LDD    SR+1
03451  M01S00014.1xy5    +++|          SHN    0-12
03452  M01S00015.1xy5    +++|          LPN    1
03453  M01S00016.1xy5    +++|          STD    T2
03454  M01S00017.1xy5    +++|          ZJN    F8D1        IF NOT DISPLAYING THE FORMATTING MESSAGE
Line S02889 Modification History
M01 (Removed by) 1xy1
Seq #  *Modification Id* Act 
----------------------------+
03455  M01S02889.1xy1    ---|          LDD    MA
Line S00010 Modification History
M01 (Added by) 1xy1
Seq #  *Modification Id* Act 
----------------------------+
03456  M01S00010.1xy1    +++|          LDD    CP
03457  M01S00011.1xy1    +++|          ADN    MS2W
03458  M00S02890.1xy     +++|          CWM    F8DA,TR     SET MESSAGE
03459  M00S02891.1xy     +++|          SBN    1
03460  M00S02892.1xy     +++|          CRD    CM
03461  M00S02893.1xy     +++|          LDC    NTDC/2
03462  M00S02894.1xy     +++|          ERRNZ  TTDC        CODE DEPENDS ON VALUE
03463  M00S02895.1xy     +++|          STD    SR+3
03464  M00S02896.1xy     +++|          LDD    SR
Line S02897 Modification History
M01 (Removed by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03465  M01S02897.1xy5    ---|          LJM    F8D6        FORMAT DEVICE
Line S00018 Modification History
M01 (Added by) 1xy5
Seq #  *Modification Id* Act 
----------------------------+
03466  M01S00018.1xy5    +++| F8D1     LJM    F8D6        FORMAT DEVICE
03467  M00S02898.1xy     +++|
03468  M00S02899.1xy     +++| F8DA     DATA   H*FORMATTING*
03469  M00S02900.1xy     +++| F8DB     DATA   H* DC    U  *
03470  M00S02901.1xy     +++|          DATA   C* C0000.*
03471  M00S02902.1xy     +++| PFM      SPACE  4,10
03472  M00S02903.1xy     +++|**        PFM - PROCESS FLAW MAPS.
03473  M00S02904.1xy     +++|*
03474  M00S02905.1xy     +++|*         ENTRY  (S2) = UNIT NUMBER.
03475  M00S02906.1xy     +++|*
03476  M00S02907.1xy     +++|*         EXIT   (A) .LT. 0, IF ERRORS OCCURRED.
03477  M00S02908.1xy     +++|*
03478  M00S02909.1xy     +++|*         USES   T4, T6.
03479  M00S02910.1xy     +++|*
03480  M00S02911.1xy     +++|*         CALLS  FLT, RFS.
03481  M00S02912.1xy     +++|
03482  M00S02913.1xy     +++|
03483  M00S02914.1xy     +++| PFM      SUBR
03484  M00S02915.1xy     +++|          LDD    S2
03485  M00S02916.1xy     +++|          SHN    14
03486  M00S02917.1xy     +++|          LMC    FCRU+100
03487  M00S02918.1xy     +++|          RJM    RFS         READ UTILITY SECTOR
03488  M00S02919.1xy     +++|          MJN    PFMX        IF ERROR
03489  M00S02920.1xy     +++|
03490  M00S02921.1xy     +++|*         CONVERT FLAWS FROM PHYSICAL TO LOGICAL.
03491  M00S02922.1xy     +++|
03492  M00S02923.1xy     +++|          LDC    BUFF
03493  M00S02924.1xy     +++|          STD    T4
03494  M00S02925.1xy     +++| PFM1     LDI    T4          READ TRACK ADDRESS
03495  M00S02926.1xy     +++|          ZJN    PFMX        IF NO MORE FLAWS
03496  M00S02927.1xy     +++|          LPC    1777
03497  M00S02928.1xy     +++|          SHN    1
03498  M00S02929.1xy     +++|          STD    T6
03499  M00S02930.1xy     +++|          LDM    1,T4
03500  M00S02931.1xy     +++|          SHN    -6
03501  M00S02932.1xy     +++|          SBN    7
03502  M00S02933.1xy     +++|          MJN    PFM3        IF IN FIRST TRACK
03503  M00S02934.1xy     +++|          NJN    PFM2        IF IN SECOND TRACK
03504  M00S02935.1xy     +++|          RJM    FLT         FLAW BOTH TRACKS
03505  M00S02936.1xy     +++| PFM2     AOD    T6
03506  M00S02937.1xy     +++| PFM3     RJM    FLT         FLAW LOGICAL TRACK
03507  M00S02938.1xy     +++|          LDN    2           ADVANCE UTILITY SECTOR INDEX
03508  M00S02939.1xy     +++|          RAD    T4
03509  M00S02940.1xy     +++|          UJN    PFM1        CONTINUE PROCESSING
03510  M00S02941.1xy     +++| PSP      SPACE  4,10
03511  M00S02942.1xy     +++|***       PSP - PACK SERIAL NUMBER PROCESSOR.
03512  M00S02943.1xy     +++|*
03513  M00S02944.1xy     +++|*         ENTRY  (S2) = UNIT NUMBER.
03514  M00S02945.1xy     +++|*
03515  M00S02946.1xy     +++|*         EXIT   (A) .LT. 0, IF ERRORS OCCURRED.
03516  M00S02947.1xy     +++|*
03517  M00S02948.1xy     +++|*         USES   T4, CM - CM+4.
03518  M00S02949.1xy     +++|*
03519  M00S02950.1xy     +++|*         CALLS  CSD, C2D, RFS.
03520  M00S02951.1xy     +++|
03521  M00S02952.1xy     +++|
03522  M00S02953.1xy     +++| PSP      SUBR               ENTRY/EXIT
03523  M00S02954.1xy     +++|          LDD    S2
03524  M00S02955.1xy     +++|          SHN    14
03525  M00S02956.1xy     +++|          LMC    FCRP        READ FACTORY SECTOR
03526  M00S02957.1xy     +++|          RJM    RFS
03527  M00S02958.1xy     +++|          MJN    PSPX        IF ERROR
Line S02959 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03528  M01S02959.271l716 ---|          LDD    S2          PUT PHYSICAL UNIT NUMBER IN MESSAGE
03529  M01S02960.271l716 ---|          STM    PSPB+11
Line S00038 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03530  M01S00038.271l716 +++|          LDD    S2
03531  M01S00039.271l716 +++|          STM    PSPB+3      PUT PHYSICAL UNIT NUMBER IN MESSAGE
03532  M00S02961.1xy     +++|          RJM    C2D
03533  M00S02962.1xy     +++|          STM    PSPA+4
03534  M00S02963.1xy     +++|          LDC    BUFF        SET ADDRESS OF PACK SERIAL NUMBER
03535  M00S02964.1xy     +++|          STD    CM
03536  M00S02965.1xy     +++|          LDC    PSPA+7      SET ERRLOG MESSAGE DESTINATION ADDRESS
03537  M00S02966.1xy     +++|          STD    CM+1
Line S02967 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03538  M01S02967.271l716 ---|          LDC    PSPB+5      SET BML MESSAGE DESTINATION ADDRESS
Line S00040 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03539  M01S00040.271l716 +++|          LDC    PSPB+7      SET BML MESSAGE DESTINATION ADDRESS
03540  M00S02968.1xy     +++|          STD    CM+2
03541  M00S02969.1xy     +++|          RJM    CSD         CONVERT 6 BCD DIGITS TO DISPLAY
Line S02970 Modification History
M01 (Removed by) ns2596
Seq #  *Modification Id* Act 
----------------------------+
03542  M01S02970.ns2596  ---|          LDC    PSPA+ERLN   ISSUE MESSAGE TO ERRLOG
Line S00001 Modification History
M01 (Added by) ns2596
Seq #  *Modification Id* Act 
----------------------------+
03543  M01S00001.ns2596  +++|          LDC    PSPA+ERLN+400000  ISSUE MESSAGE TO ERRLOG
03544  M00S02971.1xy     +++|          RJM    DFM
03545  M00S02972.1xy     +++|          LDC    PSPBL
03546  M00S02973.1xy     +++|          STD    CM+1
Line S02974 Modification History
M01 (Removed by) ns2596
Seq #  *Modification Id* Act 
----------------------------+
03547  M01S02974.ns2596  ---|          LDC    PSPB+BMLN   ISSUE MESSAGE TO BML
Line S00002 Modification History
M01 (Added by) ns2596
Seq #  *Modification Id* Act 
----------------------------+
03548  M01S00002.ns2596  +++|          LDC    PSPB+BMLN+400000  ISSUE MESSAGE TO BML
03549  M00S02975.1xy     +++|          RJM    DFM
03550  M00S02976.1xy     +++|          LJM    PSPX        EXIT
03551  M00S02977.1xy     +++|
03552  M00S02978.1xy     +++|
03553  M00S02979.1xy     +++| PSPA     DATA   C*DC000, U00,PS=000000.*
03554  M00S02980.1xy     +++|
03555  M00S02981.1xy     +++| PSPB     CON    DM0401      MESSAGE ID
03556  M00S02982.1xy     +++|          CON    HI0100      MESSAGE SYMPTOM
03557  M00S02983.1xy     +++|          CON    2RDC        DEVICE TYPE (DISPLAY CODE)
Line S02984 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03558  M01S02984.271l716 ---|          BSSZ   2           RESERVED FOR CDC
03559  M01S02985.271l716 ---|          DATA   6AXXXXXX    PACK SERIAL NUMBER (DISPLAY CODE)
03560  M01S02986.271l716 ---|          CON    0           EST ORDINAL (BINARY)
03561  M01S02987.271l716 ---|          CON    0           UNIT NUMBER (BINARY)
Line S00041 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03562  M01S00041.271l716 +++|          CON    0           UNIT NUMBER (BINARY)
03563  M01S00042.271l716 +++|          CON    0           RESERVED FOR CDC
03564  M01S00043.271l716 +++|          CON    0           EST ORDINAL (BINARY)
03565  M01S00044.271l716 +++|          CON    0           RESERVED FOR CDC
03566  M01S00045.271l716 +++|          DATA   6AXXXXXX    PACK SERIAL NUMBER (DISPLAY CODE)
03567  M00S02988.1xy     +++| PSPBL    EQU    *-PSPB      REGULAR BML MESSAGE LENGTH
03568  M00S02989.1xy     +++| PSR      SPACE  4,10
03569  M00S02990.1xy     +++|**        PSR - PROCESS SPECIAL REQUESTS.
03570  M00S02991.1xy     +++|*
03571  M00S02992.1xy     +++|*         ENTRY  (CM - CM+4) = *PUT* WORD *UNCT*.
03572  M00S02993.1xy     +++|*
03573  M00S02994.1xy     +++|*         EXIT   SPECIAL REQUESTS PROCESSED.
03574  M00S02995.1xy     +++|*
Line S02996 Modification History
M01 (Removed by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03575  M01S02996.1xy3    ---|*         USES   CS, PR, S2, CM - CM+4, CN - CN+4, SR - SR+4.
Line S00006 Modification History
M01 (Added by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03576  M01S00006.1xy3    +++|*         USES   CS, PR, S2, T5, CM - CM+4, CN - CN+4, SR - SR+4.
03577  M00S02997.1xy     +++|*
03578  M00S02998.1xy     +++|*         CALLS  C2D, FIP, F8D, OVI, PFM, PSP, RHR, RPI.
03579  M00S02999.1xy     +++|*
03580  M00S03000.1xy     +++|*         MACROS CPTA, MONITOR.
03581  M00S03001.1xy     +++|
03582  M00S03002.1xy     +++|
03583  M00S03003.1xy     +++| PSR9     RJM    RPI         RELEASE *PUT* INTERLOCK
Line S03004 Modification History
M01 (Removed by) 1xy4
Seq #  *Modification Id* Act 
----------------------------+
03584  M01S03004.1xy4    ---|          LDN    0
Line S00001 Modification History
M01 (Added by) 1xy4
Seq #  *Modification Id* Act 
----------------------------+
03585  M01S00001.1xy4    +++| PSR10    LDN    0           CLEAR SPECIAL REQUEST IN PROGRESS FLAG
03586  M00S03005.1xy     +++|          STD    PR
03587  M00S03006.1xy     +++|
03588  M00S03007.1xy     +++| PSR      SUBR               ENTRY/EXIT
Line S03008 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03589  M01S03008.271l716 ---|          LDD    CM          SAVE UNIT NUMBER
03590  M01S03009.271l716 ---|          LPN    77
03591  M01S03010.271l716 ---|          STD    S2
03592  M01S03011.271l716 ---|          LDD    CM+1        SET EST ORDINAL IN MESSAGE
Line S00007 Modification History
M01 (Added by) 1xy3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03593  M02S00007.271l716 ---|          LPC    777
03594  M02S00008.271l716 ---|          STD    T5
Line S03012 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03595  M01S03012.271l716 ---|          SHN    -3
Line S00046 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03596  M01S00046.271l716 +++|          LDD    CM
03597  M01S00047.271l716 +++|          LPN    77          SAVE UNIT NUMBER
03598  M01S00048.271l716 +++|          STD    S2
03599  M01S00049.271l716 +++|          LDD    CM+1        SET EST ORDINAL IN BML MESSAGE
03600  M01S00050.271l716 +++|          STM    PSPB+5
Line S00006 Modification History
M01 (Added by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03601  M01S00006.1xy10   +++|          STD    T5
Line S00051 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03602  M01S00051.271l716 +++|          SHN    -3          CONVERT FOR ERRLOG MESSAGE
03603  M00S03013.1xy     +++|          RJM    C2D
03604  M00S03014.1xy     +++|          STM    PSPA+1
03605  M00S03015.1xy     +++|          LDD    CM+1
03606  M00S03016.1xy     +++|          LPN    7
03607  M00S03017.1xy     +++|          SHN    6
03608  M00S03018.1xy     +++|          ADC    2R0,
03609  M00S03019.1xy     +++|          STM    PSPA+2
03610  M00S03020.1xy     +++|          LDN    1           SET SPECIAL REQUESTS IN PROGRESS
03611  M00S03021.1xy     +++|          STD    PR
03612  M00S03022.1xy     +++|          RJM    OVI         INTERLOCK THE *PUT*
Line S03023 Modification History
M01 (Removed by) 1xy4
Seq #  *Modification Id* Act 
----------------------------+
03613  M01S03023.1xy4    ---|          NJN    PSRX        IF *PUT* NOT INTERLOCKED
Line S00002 Modification History
M01 (Added by) 1xy4
Seq #  *Modification Id* Act 
----------------------------+
03614  M01S00002.1xy4    +++|          NJN    PSR10       IF *PUT* NOT INTERLOCKED
03615  M00S03024.1xy     +++|          CPTA   PILL        REREAD SPECIAL REQUEST FLAGS
03616  M00S03025.1xy     +++|          CRD    CN
03617  M00S03026.1xy     +++|          LDD    CN+3
Line S03027 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03618  M01S03027.271l716 ---|          SHN    -LPSN+12D+21
03619  M01S03028.271l716 ---|          MJN    PSR1        IF PACK SERIAL NUMBER REQUEST
03620  M01S03029.271l716 ---|          SHN    LPSN-PRFM
03621  M01S03030.271l716 ---|          MJN    PSR2        IF PROCESS FLAW MAP REQUEST
03622  M01S03031.271l716 ---|          SHN    PRFM-LFMI
03623  M01S03032.271l716 ---|          MJN    PSR3        IF FIRMWARE IDENT REQUEST
03624  M01S03033.271l716 ---|          SHN    LFMI-FMMC
03625  M01S03034.271l716 ---|          MJP    PSR6        IF FORMAT REQUEST
03626  M01S03035.271l716 ---|          LJM    PSR9        RETURN
03627  M01S03036.271l716 ---|
03628  M01S03037.271l716 ---|*         PACK SERIAL NUMBER REQUEST.
03629  M01S03038.271l716 ---|
03630  M01S03039.271l716 ---| PSR1     LDN    LPSN        SET *UTEM* PARAMETER
03631  M01S03040.271l716 ---|          SHN    6
03632  M01S03041.271l716 ---|          STM    PSRA+1
03633  M01S03042.271l716 ---|          RJM    PSP         LIST PACK SERIAL NUMBER
03634  M01S03043.271l716 ---|          UJN    PSR5        COMPLETE THE REQUEST
03635  M01S03044.271l716 ---|
03636  M01S03045.271l716 ---|*         FLAW MAP REQUEST.
03637  M01S03046.271l716 ---|
03638  M01S03047.271l716 ---| PSR2     LDN    PRFM        SET *UTEM* PARAMETER
03639  M01S03048.271l716 ---|          SHN    6
03640  M01S03049.271l716 ---|          STM    PSRA+1
03641  M01S03050.271l716 ---|          RJM    PFM         PROCESS THE FLAW MAPS
03642  M01S03051.271l716 ---|          UJN    PSR5        COMPLETE THE REQUEST
03643  M01S03052.271l716 ---|
03644  M01S03053.271l716 ---|*         FIRMWARE IDENT REQUEST.
03645  M01S03054.271l716 ---|
03646  M01S03055.271l716 ---| PSR3     LDD    CN+3
03647  M01S03056.271l716 ---|          SHN    -6
03648  M01S03057.271l716 ---|          LMD    IR+4
03649  M01S03058.271l716 ---|          NJP    PSR9        IF REQUEST NOT FOR THIS DRIVER
03650  M01S03059.271l716 ---|          LDN    LFMI        SET *UTEM* PARAMETER
03651  M01S03060.271l716 ---|          SHN    6
03652  M01S03061.271l716 ---|          STM    PSRA+1
03653  M01S03062.271l716 ---|          RJM    FIP         PROCESS FIRMWARE IDENT MESSAGE
03654  M01S03063.271l716 ---| PSR5     UJN    PSR8        COMPLETE THE REQUEST
03655  M01S03064.271l716 ---|
03656  M01S03065.271l716 ---|*         FORMAT PACK REQUEST.
03657  M01S03066.271l716 ---|
03658  M01S03067.271l716 ---| PSR6     LDN    FMMC        SET *UTEM* PARAMETER
03659  M01S03068.271l716 ---|          SHN    6
03660  M01S03069.271l716 ---|          STM    PSRA+1
03661  M01S03070.271l716 ---|          LDC    MCLTDC/2-4000/2  SET MAINTENANCE CYLINDER
03662  M01S03071.271l716 ---|          STD    SR
03663  M01S03072.271l716 ---|          LDD    TH          SET LARGE RECORD SIZE
03664  M01S03073.271l716 ---|          STD    SR+2
03665  M01S03074.271l716 ---|          LDD    S2          SET UNIT
03666  M01S03075.271l716 ---|          LMC    3S6         SET OPERATION STATUS
03667  M01S03076.271l716 ---|          STD    SR+1
03668  M01S03077.271l716 ---|          RJM    F8D         PROCESS THE FORMAT REQUEST
03669  M01S03078.271l716 ---| PSR8     SHN    0-21
Line S00052 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03670  M01S00052.271l716 +++|
03671  M01S00053.271l716 +++|*         CHECK FOR FORMAT PACK REQUEST.
03672  M01S00054.271l716 +++|
03673  M01S00055.271l716 +++| .M       SET    0           INITIALIZE SHIFT COUNT CALCULATION
03674  M01S00056.271l716 +++|          CSHN   FMMC
03675  M01S00057.271l716 +++|          PJN    PSR1        IF NOT FORMAT REQUEST
03676  M01S00058.271l716 +++|          LDN    FMMC
03677  M01S00059.271l716 +++|          SHN    6           SET *UTEM* PARAMETER
03678  M01S00060.271l716 +++|          STM    PSRA+1
03679  M01S00061.271l716 +++|          LDC    MCLTDC/2-4000/2  MAINTENANCE CYLINDER
03680  M01S00062.271l716 +++|          STD    SR
03681  M01S00063.271l716 +++|          LDD    TH          SET LARGE RECORD SIZE
03682  M01S00064.271l716 +++|          STD    SR+2
03683  M01S00065.271l716 +++|          LDD    S2          UNIT + OPERATION STATUS
03684  M01S00066.271l716 +++|          LMC    3S6
03685  M01S00067.271l716 +++|          STD    SR+1
03686  M01S00068.271l716 +++|          RJM    F8D         PROCESS THE FORMAT REQUEST
03687  M01S00069.271l716 +++|          UJN    PSR4        COMPLETE THE REQUEST
03688  M01S00070.271l716 +++|
03689  M01S00071.271l716 +++|*         CHECK FOR FIRMWARE IDENTIFICATION REQUEST.
03690  M01S00072.271l716 +++|
03691  M01S00073.271l716 +++| PSR1     CSHN   LFMI
03692  M01S00074.271l716 +++|          PJN    PSR2        IF NOT FIRMWARE IDENT REQUEST
03693  M01S00075.271l716 +++|*         LDD    CN+3
03694  M01S00076.271l716 +++|          ERRNZ  .M-6        CODE DEPENDS ON VALUE
03695  M01S00077.271l716 +++|*         SHN    14
03696  M01S00078.271l716 +++|          LPN    77          CHECK CHANNEL NUMBER
03697  M01S00079.271l716 +++|          LMD    IR+4
03698  M01S00080.271l716 +++|          NJN    PSR6        IF REQUEST NOT FOR THIS DRIVER
03699  M01S00081.271l716 +++|          LDN    LFMI
03700  M01S00082.271l716 +++|          SHN    6           SET *UTEM* PARAMETER
03701  M01S00083.271l716 +++|          STM    PSRA+1
03702  M01S00084.271l716 +++|          RJM    FIP         PROCESS FIRMWARE IDENT MESSAGE
03703  M01S00085.271l716 +++|          UJN    PSR7        COMPLETE THE REQUEST
03704  M01S00086.271l716 +++|
03705  M01S00087.271l716 +++|*         CHECK FOR PACK SERIAL NUMBER REQUEST.
03706  M01S00088.271l716 +++|
03707  M01S00089.271l716 +++| PSR2     CSHN   LPSN
03708  M01S00090.271l716 +++|          PJN    PSR5        IF NOT SERIAL NUMBER REQUEST
03709  M01S00091.271l716 +++|          LDN    LPSN
03710  M01S00092.271l716 +++|          SHN    6           SET *UTEM* PARAMETER
03711  M01S00093.271l716 +++|          STM    PSRA+1
03712  M01S00094.271l716 +++|          RJM    PSP         LIST PACK SERIAL NUMBER
03713  M01S00095.271l716 +++| PSR4     UJN    PSR7        COMPLETE THE REQUEST
03714  M01S00096.271l716 +++|
03715  M01S00097.271l716 +++|*         CHECK FOR FLAW MAP REQUEST.
03716  M01S00098.271l716 +++|
03717  M01S00099.271l716 +++| PSR5     CSHN   PRFM
03718  M01S00100.271l716 +++| PSR6     PJP    PSR9        IF NOT FLAW MAP REQUEST
03719  M01S00101.271l716 +++|          LDN    PRFM
03720  M01S00102.271l716 +++|          SHN    6           SET *UTEM* PARAMETER
03721  M01S00103.271l716 +++|          STM    PSRA+1
03722  M01S00104.271l716 +++|          RJM    PFM         PROCESS THE FLAW MAPS
03723  M01S00105.271l716 +++| PSR7     SHN    0-21
03724  M00S03079.1xy     +++|          STM    PSRA+5+4
03725  M00S03080.1xy     +++|          CPTA   UNCT        CLEAR REQUEST BIT SET RESPONSE
03726  M00S03081.1xy     +++|          STD    CM+4
03727  M00S03082.1xy     +++|          SHN    -14
03728  M00S03083.1xy     +++|          STD    CM+3
03729  M00S03084.1xy     +++|          LDN    2
03730  M00S03085.1xy     +++|          STD    CM+1
03731  M00S03086.1xy     +++|          LDD    MA
03732  M00S03087.1xy     +++|          CWM    PSRA,CM+1
03733  M00S03088.1xy     +++|          MONITOR  UTEM
03734  M00S03089.1xy     +++|          LDD    CS
03735  M00S03090.1xy     +++|          SCN    10
03736  M00S03091.1xy     +++|          LMN    10
03737  M00S03092.1xy     +++|          STD    CS
03738  M00S03093.1xy     +++|          RJM    RHR         RELEASE DRIVES
03739  M00S03094.1xy     +++|          LJM    PSR9        CLEAR *PUT* INTERLOCK
Line S00106 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03740  M01S00106.271l716 +++|
03741  M00S03095.1xy     +++|
03742  M00S03096.1xy     +++| PSRA     VFD    6/PILL,6/1,6/0,42/0
03743  M00S03097.1xy     +++|          VFD    6/PILL,6/1,6/PERR,42/0
03744  M00S03098.1xy     +++| RFS      SPACE  4,10
03745  M00S03099.1xy     +++|**        RFS - READ FACTORY SECTORS.
03746  M00S03100.1xy     +++|*
03747  M00S03101.1xy     +++|*         ENTRY  (A) = 6/UN, 6/SC, 6/ FCN.
03748  M00S03102.1xy     +++|*
03749  M00S03103.1xy     +++|*         EXIT   (A) .LT. 0, IF ERRORS.
03750  M00S03104.1xy     +++|*
03751  M00S03105.1xy     +++|*         CALLS  FNC, GGS.
03752  M00S03106.1xy     +++|
03753  M00S03107.1xy     +++|
03754  M00S03108.1xy     +++| RFS      SUBR               ENTRY/EXIT
03755  M00S03109.1xy     +++|          STM    RFSA        SAVE FUNCTION
03756  M00S03110.1xy     +++|          SCN    77
03757  M00S03111.1xy     +++|          SHN    6
03758  M00S03112.1xy     +++|          STM    RFSB        SET UNIT IN SEEK PARAMETER BLOCK
03759  M00S03113.1xy     +++|          SHN    6
03760  M00S03114.1xy     +++|          LPN    77
03761  M00S03115.1xy     +++|          STM    RFSC        SET SECTOR IN SEEK PARAMETER BLOCK
03762  M00S03116.1xy     +++| RFS1     LDN    FCSK        ISSUE SEEK FUNCTION
03763  M00S03117.1xy     +++|          RJM    FNC
03764  M00S03118.1xy     +++|          MJN    RFSX        IF ERROR ENCOUNTERED
03765  M00S03119.1xy     +++|          LDN    FCSKL       OUTPUT SEEK PARAMETERS
03766  M00S03120.1xy     +++|          OAM    RFSB,CH
03767  M00S03121.1xy     +++|          ZJN    RFS4        IF ALL DATA TAKEN
03768  M00S03122.1xy     +++| RFS2     DCN    CH+40
03769  M00S03123.1xy     +++| RFS3     LCN    1           INDICATE ERROR
03770  M00S03124.1xy     +++|          UJN    RFSX        RETURN ERROR STATUS
03771  M00S03125.1xy     +++|
03772  M00S03126.1xy     +++| RFS4     EJM    RFS5,CH     IF ALL DATA TAKEN
03773  M00S03127.1xy     +++|          SBN    1
03774  M00S03128.1xy     +++|          NJN    RFS4        IF NOT END OF DELAY
03775  M00S03129.1xy     +++|          UJN    RFS2        REPORT ERROR STATUS
03776  M00S03130.1xy     +++|
03777  M00S03131.1xy     +++| RFS5     DCN    CH+40
03778  M00S03132.1xy     +++|          RJM    GGS         GET GENERAL STATUS
03779  M00S03133.1xy     +++|          MJN    RFSX        IF ERROR OCCURRED
03780  M00S03134.1xy     +++|          LDD    GS
03781  M00S03135.1xy     +++|          SHN    21-13
03782  M00S03136.1xy     +++|          MJN    RFS3        IF ERROR STATUS
03783  M00S03137.1xy     +++|          NJN    RFS1        IF NOT ON CYLINDER
03784  M00S03138.1xy     +++|          LDC    **          ISSUE SPECIAL READ FUNCTION
03785  M00S03139.1xy     +++| RFSA     EQU    *-1
03786  M00S03140.1xy     +++|          LPN    77
03787  M00S03141.1xy     +++|          RJM    FNC
03788  M00S03142.1xy     +++|          MJN    RFS3        IF ERROR
03789  M00S03143.1xy     +++| RFS6     FJM    RFS7,CH     IF DATA PRESENT
03790  M00S03144.1xy     +++|          SBN    1
03791  M00S03145.1xy     +++|          NJN    RFS6        IF NOT END OF DELAY
03792  M00S03146.1xy     +++|          UJN    RFS2        REPORT ERROR
03793  M00S03147.1xy     +++|
03794  M00S03148.1xy     +++| RFS7     LDC    502         READ SPECIAL SECTOR
03795  M00S03149.1xy     +++|          IAM    BUFF,CH
03796  M00S03150.1xy     +++|          NJN    RFS2        IF ALL DATA NOT RECEIVED
03797  M00S03151.1xy     +++|          SFM    RFS2,CH     IF CHANNEL PARITY ERROR
03798  M00S03152.1xy     +++|          DCN    CH+40
03799  M00S03153.1xy     +++|          RJM    GGS         GET GENERAL STATUS
03800  M00S03154.1xy     +++|          MJN    RFS8        IF ERROR ENCOUNTERED
03801  M00S03155.1xy     +++|          LDD    GS
03802  M00S03156.1xy     +++|          SHN    21-13
03803  M00S03157.1xy     +++| RFS8     LJM    RFSX        RETURN
03804  M00S03158.1xy     +++|
03805  M00S03159.1xy     +++| RFSB     CON    0           UNIT
03806  M00S03160.1xy     +++|          CON    3352/2      CYLINDER
03807  M00S03161.1xy     +++|          CON    0           TRACK
03808  M00S03162.1xy     +++| RFSC     CON    0           SECTOR
03809  M00S03163.1xy     +++| WNB      SPACE  4,10
03810  M00S03164.1xy     +++|**        WNB - WAIT NOT BUSY.
03811  M00S03165.1xy     +++|*
Line S00009 Modification History
M01 (Added by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03812  M01S00009.1xy3    +++|*         ENTRY  (T5) = EST ORDINAL.
03813  M01S00010.1xy3    +++|*                (IR+4) = CHANNEL.
03814  M01S00011.1xy3    +++|*
03815  M00S03166.1xy     +++|*         EXIT   (A) .LT. 0, IF CONTROLLER HUNG BUSY.
03816  M00S03167.1xy     +++|*
03817  M00S03168.1xy     +++|*         USES   GS, T4.
03818  M00S03169.1xy     +++|*
03819  M00S03170.1xy     +++|*         CALLS  C2D, DFM, GGS.
03820  M00S03171.1xy     +++|
03821  M00S03172.1xy     +++|
03822  M00S03173.1xy     +++| WNB      SUBR               ENTRY/EXIT
Line S03174 Modification History
M01 (Removed by) ns2559
Seq #  *Modification Id* Act 
----------------------------+
03823  M01S03174.ns2559  ---|          LDC    400D
03824  M01S03175.ns2559  ---|          STD    T4          SET 400 MILLISECOND DELAY
Line S00001 Modification History
M01 (Added by) ns2559
Seq #  *Modification Id* Act 
----------------------------+
03825  M01S00001.ns2559  +++|          LCN    0           SET 4 SECOND TIMEOUT
03826  M01S00002.ns2559  +++|          STD    T4
03827  M00S03176.1xy     +++| WNB1     DELAY  10
03828  M00S03177.1xy     +++|          RJM    GGS         GET GENERAL STATUS
03829  M00S03178.1xy     +++|          MJN    WNB2        IF ERROR OCCURRED
03830  M00S03179.1xy     +++|          LPN    2
03831  M00S03180.1xy     +++|          ZJN    WNBX        IF NOT BUSY
03832  M00S03181.1xy     +++|          SOD    T4
03833  M00S03182.1xy     +++|          NJN    WNB1        IF NOT TIMEOUT
03834  M00S03183.1xy     +++| WNB2     LDD    GS
03835  M00S03184.1xy     +++|          SHN    -6
03836  M00S03185.1xy     +++|          RJM    C2D         CONVERT GENERAL STATUS
Line S03186 Modification History
M01 (Removed by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03837  M01S03186.1xy3    ---|          STM    WNBA+11
Line S00012 Modification History
M01 (Added by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03838  M01S00012.1xy3    +++|          STM    WNBB+11
03839  M00S03187.1xy     +++|          LDD    GS
03840  M00S03188.1xy     +++|          RJM    C2D
Line S03189 Modification History
M01 (Removed by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03841  M01S03189.1xy3    ---|          STM    WNBA+12     STORE IN MESSAGE
Line S00013 Modification History
M01 (Added by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03842  M01S00013.1xy3    +++|          STM    WNBB+12     STORE IN MESSAGE
03843  M01S00014.1xy3    +++|          LDD    IR+4        SET CHANNEL IN MESSAGE
Line S00007 Modification History
M01 (Added by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03844  M01S00007.1xy10   +++|          LPN    37
Line S00015 Modification History
M01 (Added by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03845  M01S00015.1xy3    +++|          RJM    C2D
03846  M01S00016.1xy3    +++|          STM    WNBA+2
03847  M01S00017.1xy3    +++|          LDD    T5          SET EST ORDINAL IN MESSAGE
Line S00018 Modification History
M01 (Added by) 1xy3
M02 (Removed by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03848  M02S00018.1xy10   ---|          SHN    -7
Line S00008 Modification History
M01 (Added by) 1xy10
Seq #  *Modification Id* Act 
----------------------------+
03849  M01S00008.1xy10   +++|          SHN    -3
Line S00019 Modification History
M01 (Added by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03850  M01S00019.1xy3    +++|          RJM    C2D
03851  M01S00020.1xy3    +++|          STM    WNBA+5
03852  M01S00021.1xy3    +++|          LDD    T5
03853  M01S00022.1xy3    +++|          LPN    7
03854  M01S00023.1xy3    +++|          SHN    6
03855  M01S00024.1xy3    +++|          ADC    2R0,
03856  M01S00025.1xy3    +++|          STM    WNBA+6
03857  M00S03190.1xy     +++|          LDC    ERLN+WNBA+400000
Line S00026 Modification History
M01 (Added by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03858  M01S00026.1xy3    +++|          RJM    DFM
03859  M01S00027.1xy3    +++|          LDC    ERLN+WNBB+400000
03860  M00S03191.1xy     +++|          RJM    DFM
03861  M00S03192.1xy     +++|          LCN    1
03862  M00S03193.1xy     +++|          LJM    WNBX        EXIT WITH ERROR FLAG
03863  M00S03194.1xy     +++|
Line S03195 Modification History
M01 (Removed by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03864  M01S03195.1xy3    ---| WNBA     DATA   C* HUNG BUSY - GS = XXXX.*
Line S00028 Modification History
M01 (Added by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
03865  M01S00028.1xy3    +++| WNBA     DATA   C* CCHXX, DCYYY, FORMAT FAILURE.*
03866  M01S00029.1xy3    +++| WNBB     DATA   C* HUNG BUSY - GS = ZZZZ.*
03867  M00S03196.1xy     +++| 1XY      SPACE  4
03868  M00S03197.1xy     +++|          USE    PRESET      DEFINE LITERAL BLOCK BEFORE PRESET
Line S03198 Modification History
M01 (Removed by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
03869  M01S03198.1xy2    ---| MSGA     DATA   C* 1XY CHANNEL  XX NOT RESPONDING.*
03870  M00S03199.1xy     +++| BUFF     EQU    *           DATA BUFFER
03871  M00S03200.1xy     +++| BUFFL    MAX    502B,HLEN
03872  M00S03201.1xy     +++|          ERRPL  BUFF+BUFFL-10000  BUFFER OVERFLOWS PP
03873  M00S03202.1xy     +++| PRS      TITLE  PRESET PROGRAM.
03874  M00S03203.1xy     +++| PRS      SPACE  4,10
03875  M00S03204.1xy     +++|**        PRS - PRESET *1XY*.
03876  M00S03205.1xy     +++|*
03877  M00S03206.1xy     +++|*         EXIT   (CC) = 0.
03878  M00S03207.1xy     +++|*                (CS) = 1.
03879  M00S03208.1xy     +++|*                (EC) = 0.
03880  M00S03209.1xy     +++|*                (EP) = 0.
03881  M00S03210.1xy     +++|*                (ER) = 0.
03882  M00S03211.1xy     +++|*                (FU - FU+1) = UEM BASE ADDRESS.
03883  M00S03212.1xy     +++|*                (IL) = 0.
03884  M00S03213.1xy     +++|*                (RC) = 0.
03885  M00S03214.1xy     +++|*                (TI) = 0.
03886  M00S03215.1xy     +++|*                (BMLCR) = 6/ CHANNEL, 6/0.
03887  M00S03216.1xy     +++|*                (BMLMF) = MAINFRAME ID.
03888  M00S03217.1xy     +++|*                (BMLPP) = 6/ PP NUMBER, 6/ CHANNEL.
03889  M00S03218.1xy     +++|*                (CCRA) = WORD ADDRESS OF CHANNEL TABLE ENTRY.
03890  M00S03219.1xy     +++|*                (CCRB) = BYTE ADDRESS OF CHANNEL TABLE ENTRY + LDDI.
03891  M00S03220.1xy     +++|*                (CRQA) = FWA OF PP EXCHANGE PACKAGE.
03892  M00S03221.1xy     +++|*                (CRQB) = FWA OF PP EXCHANGE PACKAGE.
03893  M00S03222.1xy     +++|*                (CRQC) = CPU EXCHANGE INSTRUCTION (MXN).
03894  M00S03223.1xy     +++|*                (CRQD) = FIRST WORD OF PP EXCHANGE PACKAGE.
Line S03224 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03895  M01S03224.ns2769  ---|*                (IMSA) = FWA OF *EMB*.
03896  M01S03225.ns2769  ---|*                (IMSB) = FWA OF *EMB*.
03897  M01S03226.ns2769  ---|*                (IMSC) = FWA OF *EMB*.
03898  M01S03227.ns2769  ---|*                (IMSD) = FWA OF *EMB*.
03899  M01S03228.ns2769  ---|*                (IMSF) = FWA OF *EMB*.
03900  M00S03229.1xy     +++|*                (SASA) = LONG CONSTANTS.
03901  M00S03230.1xy     +++|*                (WTRA) = BYTE LENGTH OF I/O TRANSFER.
03902  M00S03231.1xy     +++|*                (MSD) = 0.
Line S03232 Modification History
M01 (Removed by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
03903  M01S03232.ns2507  ---|*                (RCSA+3) = CHANNEL NUMBER.
03904  M00S03233.1xy     +++|*                (SCDA) = WORD ADDRESS OF CONTROLWARE TABLE ENTRY.
03905  M00S03234.1xy     +++|*                (SCDB) = BIT NUMBER OF DRIVER DROP FLAG.
03906  M00S03235.1xy     +++|*                ALL *CCBA* REFERENCES TO *CBT* PLUGGED.
03907  M00S03236.1xy     +++|*                ALL *CPTA* REFERENCES TO *PUT* PLUGGED.
Line S00151 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03908  M01S00151.ns2769  +++|*                ALL *EMBE* REFERENCES TO *EMB* PLUGGED.
03909  M00S03237.1xy     +++|*
03910  M00S03238.1xy     +++|*         USES   BL, CC, CS, EC, EP, ER, IL, RC, TI, CM - CM+4,
03911  M00S03239.1xy     +++|*                CN - CN+4, T0 - T7.
03912  M00S03240.1xy     +++|*
Line S03241 Modification History
M01 (Removed by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
03913  M01S03241.1xy2    ---|*         CALLS  CFR, DFM, FNC, FNN, RCH, RCS, SCD.
Line S00034 Modification History
M01 (Added by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
03914  M01S00034.1xy2    +++|*         CALLS  CFR, DFM, FNC, FNN, RCH, SCD.
03915  M00S03242.1xy     +++|*
03916  M00S03243.1xy     +++|*         MACROS CPTA, MONITOR, SETMS, SFA.
03917  M00S03244.1xy     +++|
03918  M00S03245.1xy     +++|
03919  M00S03246.1xy     +++| PRS      SUBR               ENTRY/EXIT
03920  M00S03247.1xy     +++|          SETMS  NODRIVER    FORCE DRIVER LOAD ON NEXT *SETMS*
03921  M00S03248.1xy     +++|          LDK    NCPL        VALIDATE CALLER
03922  M00S03249.1xy     +++|          CRD    CM
03923  M00S03250.1xy     +++|          AOD    CM+1        NUMBER OF CONTROL POINTS
03924  M00S03251.1xy     +++|          SHN    7
03925  M00S03252.1xy     +++|          LMD    CP
03926  M00S03253.1xy     +++|          ZJN    PRS1        IF SYSTEM CONTROL POINT
03927  M00S03254.1xy     +++|          LDC    =C* 1XY - UNAUTHORIZED CALL.*
03928  M00S03255.1xy     +++|          RJM    DFM         ISSUE DAYFILE MESSAGE
03929  M00S03256.1xy     +++|          MONITOR  ABTM      ABORT CONTROL POINT
03930  M00S03257.1xy     +++|          LJM    PPR         RETURN
03931  M00S03258.1xy     +++|
03932  M00S03259.1xy     +++| PRS1     LDC    PRSE        SETUP LONG INSTRUCTIONS
03933  M00S03260.1xy     +++|          STD    CM+4
03934  M00S03261.1xy     +++| PRS2     LDI    CM+4        GET NEXT INSTRUCTION
03935  M00S03262.1xy     +++|          ZJN    PRS2.1      IF END OF LIST
03936  M00S03263.1xy     +++|          STD    T3
03937  M00S03264.1xy     +++|          BLI    T3          BUILD LONG INSTRUCTION
03938  M00S03265.1xy     +++|          AOD    CM+4
03939  M00S03266.1xy     +++|          UJN    PRS2        LOOP
03940  M00S03267.1xy     +++|
03941  M00S03268.1xy     +++| PRS2.1   STD    CB          CLEAR CURRENT BUFFER ORDINAL
03942  M00S03269.1xy     +++|          STD    CC          CLEAR COMPLETION REQUEST COUNT
03943  M00S03270.1xy     +++|          STD    CS          CLEAR CHANNEL STATUS
03944  M00S03271.1xy     +++|          STD    EC          CLEAR ERROR CODE
03945  M00S03272.1xy     +++|          STD    EP          CLEAR ERROR ON PREVIOUS SECTOR FLAG
03946  M00S03273.1xy     +++|          STD    ER          CLEAR RECOVERY IN PROGRESS FLAG
03947  M00S03274.1xy     +++|          STD    IL          CLEAR *PUT* INTERLOCK FLAG
03948  M00S03275.1xy     +++|          STD    PB          CLEAR PREVIOUS BUFFER
03949  M00S03276.1xy     +++|          STD    PR          CLEAR SPECIAL REQUEST FLAG
03950  M00S03277.1xy     +++|          STD    RC          CLEAR RETRY COUNT
03951  M00S03278.1xy     +++|          STD    TI          INITIALIZE *TPOR* INDEX
03952  M00S03279.1xy     +++|          LDD    IR+4        CHANNEL NUMBER
03953  M00S03280.1xy     +++|          STM    BMLPP
Line S03281 Modification History
M01 (Removed by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
03954  M01S03281.ns2507  ---|          STM    RCSA+3
Line S00107 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
03955  M01S00107.271l716 +++|          STM    FIPB+2
03956  M01S00108.271l716 +++|          RJM    C2D         CONVERT FOR CODED MESSAGES
03957  M01S00109.271l716 +++|          STM    FIPA+1
03958  M00S03282.1xy     +++|
03959  M00S03283.1xy     +++|*         PLUG LONG CONSTANTS.
03960  M00S03284.1xy     +++|
03961  M00S03285.1xy     +++|          LDC    FCRO
03962  M00S03286.1xy     +++|          STML   SASA
03963  M00S03287.1xy     +++|          LDC    FCRC
03964  M00S03288.1xy     +++|          STML   SASA+1
03965  M00S03289.1xy     +++|          LDC    FCRE
03966  M00S03290.1xy     +++|          STML   SASA+2
03967  M00S03291.1xy     +++|          LDC    40000
03968  M00S03292.1xy     +++|          STML   WTRA
03969  M00S03293.1xy     +++|
03970  M00S03294.1xy     +++|*         PLUG CHANNEL INSTRUCTIONS.
03971  M00S03295.1xy     +++|
Line S03296 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03972  M01S03296.ns2769  ---|          LDC    PRSC        SET FWA OF CHANNEL TABLE
Line S00152 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
03973  M01S00152.ns2769  +++|          LDC    PRSD        SET FWA OF CHANNEL TABLE
03974  M00S03297.1xy     +++|          STD    T1
03975  M00S03298.1xy     +++| PRS3     LDI    T1
03976  M00S03299.1xy     +++|          ZJN    PRS4        IF END OF CHANNEL TABLE
03977  M00S03300.1xy     +++|          STD    T2
03978  M00S03301.1xy     +++|          LDD    IR+4        CHANNEL
03979  M00S03302.1xy     +++|          LPN    37
03980  M00S03303.1xy     +++|          RAI    T2          STORE CHANNEL IN INSTRUCTION
03981  M00S03304.1xy     +++|          AOD    T1          ADVANCE CHANNEL TABLE POINTER
03982  M00S03305.1xy     +++|          UJN    PRS3        CONTINUE
03983  M00S03306.1xy     +++|
03984  M00S03307.1xy     +++|*         REQUEST CHANNEL AND SET CHANNEL FLAG.
03985  M00S03308.1xy     +++|
03986  M00S03309.1xy     +++| PRS4     RJM    RCH         REQUEST CHANNEL
03987  M00S03310.1xy     +++|          ZJN    PRS4        IF CHANNEL NOT ASSIGNED
03988  M00S03311.1xy     +++|
03989  M00S03312.1xy     +++|*         PLUG EXCHANGE PACKAGE LOCATIONS.
03990  M00S03313.1xy     +++|
03991  M00S03314.1xy     +++|          LDK    PXPP        READ PPU STATUS
03992  M00S03315.1xy     +++|          CRD    CN
03993  M00S03316.1xy     +++|          ADN    1
03994  M00S03317.1xy     +++|          CRM    CRQD,ON     READ FIRST WORD OF PP XP
03995  M00S03318.1xy     +++|          AOM    CRQD+4
03996  M00S03319.1xy     +++|          LDK    PPCP        READ PP COMMUNICATIONS AREA POINTER
03997  M00S03320.1xy     +++|          CRD    CM
03998  M00S03321.1xy     +++|          ADK    MMFL-PPCP
03999  M00S03322.1xy     +++|          CRD    T1
04000  M00S03323.1xy     +++|          LDD    T1          SAVE MAINFRAME ID
04001  M00S03324.1xy     +++|          STM    BMLMF
04002  M00S03325.1xy     +++|          LDD    IA          GET ((PP NUMBER - 2) * 10B)
04003  M00S03326.1xy     +++|          SBD    CM+4
04004  M00S03327.1xy     +++|          SBN    20
04005  M00S03328.1xy     +++|          SHN    -3
04006  M00S03329.1xy     +++|          STD    T1          PP NUMBER - 2
Line S03330 Modification History
M01 (Removed by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
04007  M01S03330.ns2732  ---|          ADN    2
Line S00181 Modification History
M01 (Added by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
04008  M01S00181.ns2732  +++|          ADN    16          ADJUST FOR CONCURRENT PP NUMBER
04009  M00S03331.1xy     +++|          SHN    6
04010  M00S03332.1xy     +++|          RAM    BMLPP       SET PP NUMBER
04011  M00S03333.1xy     +++|          SHN    6
04012  M00S03334.1xy     +++|          STM    BMLCR       SET RECOVERY CHANNEL
04013  M00S03335.1xy     +++|          LDD    T1          PP NUMBER - 2
04014  M00S03336.1xy     +++|          SHN    4
04015  M00S03337.1xy     +++|          ADD    T1          (PP NUMBER - 2) * 21B
04016  M00S03338.1xy     +++|          RAD    CN+4        SET EXCHANGE ADDRESS
04017  M00S03339.1xy     +++|          STM    CRQA
04018  M00S03340.1xy     +++|          STM    CRQB
04019  M00S03341.1xy     +++|          SHN    -14
04020  M00S03342.1xy     +++|          RAD    CN+3
04021  M00S03343.1xy     +++|          RAM    CRQA-1
04022  M00S03344.1xy     +++|          STM    CRQB-1
04023  M00S03345.1xy     +++|          LDD    CN+4        SET *MA* ADDRESS
04024  M00S03346.1xy     +++|          ADN    6
04025  M00S03347.1xy     +++|          STM    CRQE
04026  M00S03348.1xy     +++|          SHN    -14
04027  M00S03349.1xy     +++|          ADD    CN+3
04028  M00S03350.1xy     +++|          RAM    CRQE-1
04029  M00S03351.1xy     +++|          LDD    IR+4
04030  M00S03352.1xy     +++|          STD    T2
04031  M00S03353.1xy     +++|          LDK    ACPL        CHECK CPU STATUS
04032  M00S03354.1xy     +++|          CRD    CM
04033  M00S03355.1xy     +++|          LCN    0
04034  M00S03356.1xy     +++|          STD    T1          PRESET CHANNEL TABLE WORD INDEX
04035  M00S03357.1xy     +++|          LDN    60D         PRESET BIT POSITION FOR LOAD REQUEST
04036  M00S03358.1xy     +++|          STD    T3
04037  M00S03359.1xy     +++|          LDD    CM
04038  M00S03360.1xy     +++|          SHN    21-13
04039  M00S03361.1xy     +++|          PJN    PRS6        IF CPU 0 ON
04040  M00S03362.1xy     +++|          AOM    CRQC        SET EXCHANGE TO CPU 1
04041  M00S03363.1xy     +++|          LDD    HN
04042  M00S03364.1xy     +++|          RAM    CRQD+3      SET (A0) TO 1
04043  M00S03365.1xy     +++|
04044  M00S03366.1xy     +++|*         PLUG CHANNEL TABLE ADDRESSES.
04045  M00S03367.1xy     +++|
04046  M00S03368.1xy     +++| PRS6     AOD    T1          ADVANCE CM TABLE INDEX
04047  M00S03369.1xy     +++|          LCN    5
04048  M00S03370.1xy     +++|          RAD    T2
04049  M00S03371.1xy     +++|          PJN    PRS6        IF NOT TO PROPER INDEX
04050  M00S03372.1xy     +++|          ADN    5
04051  M00S03373.1xy     +++|          RAM    CCRB        PRESET CHANNEL TABLE BYTE INDEX
04052  M00S03374.1xy     +++|          LPN    7           BYTE ADDRESS
04053  M00S03375.1xy     +++|          STD    T2
04054  M00S03376.1xy     +++| PRS7     LCN    12D
04055  M00S03377.1xy     +++|          RAD    T3          DECREMENT POSITION
04056  M00S03378.1xy     +++|          SOD    T2
04057  M00S03379.1xy     +++|          PJN    PRS7        IF NOT TO PROPER POSITION
04058  M00S03380.1xy     +++|          LDD    T3          BIT POSITION
04059  M00S03381.1xy     +++|          ADN    13          ADD OFFSET WITHIN BYTE
04060  M00S03382.1xy     +++|          SHN    6
04061  M00S03383.1xy     +++|          SBK    200
04062  M00S03384.1xy     +++|          STM    SCDB+1
04063  M00S03385.1xy     +++|          LDK    CHTP        CHANNEL TABLE(S) POINTER
04064  M00S03386.1xy     +++|          CRD    CM
04065  M00S03387.1xy     +++|          LDD    CM+2        FWA OF CHANNEL TABLE
04066  M00S03388.1xy     +++|          SHN    14
04067  M00S03389.1xy     +++|          LMD    CM+3
04068  M00S03390.1xy     +++|          ADD    T1          ADD WORD INDEX
04069  M00S03391.1xy     +++|          STM    CCRA        CM ADDRESS OF CHANNEL TABLE ENTRY
04070  M00S03392.1xy     +++|          SHN    -14
04071  M00S03393.1xy     +++|          RAM    CCRA-1
04072  M00S03394.1xy     +++|          LDD    CM+2        COMPUTE FWA OF CONTROLWARE TABLE
04073  M00S03395.1xy     +++|          SHN    14
04074  M00S03396.1xy     +++|          LMD    CM+3
04075  M00S03397.1xy     +++|          ADN    CTALL*2
04076  M00S03398.1xy     +++|          ADD    T1          ADD WORD INDEX
04077  M00S03399.1xy     +++|          STM    SCDA
04078  M00S03400.1xy     +++|          SHN    -14
04079  M00S03401.1xy     +++|          RAM    SCDA-1
04080  M00S03402.1xy     +++|
04081  M00S03403.1xy     +++|*         SET UEM BASE ADDRESS.
04082  M00S03404.1xy     +++|
04083  M00S03405.1xy     +++|          LDK    UEML
04084  M00S03406.1xy     +++|          CRD    CM
04085  M00S03407.1xy     +++|          LDD    CM
04086  M00S03408.1xy     +++|          SHN    21-2
04087  M00S03409.1xy     +++|          STD    FU
04088  M00S03410.1xy     +++|          SHN    2-21
04089  M00S03411.1xy     +++|          SHN    11
04090  M00S03412.1xy     +++|          STD    FU+1
04091  M00S03413.1xy     +++|
Line S00153 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04092  M01S00153.ns2769  +++|*         PLUG *EMB* ADDRESSES.
04093  M01S00154.ns2769  +++|
04094  M01S00155.ns2769  +++|          LDN    EMBP        FETCH *EMB* POINTER
04095  M01S00156.ns2769  +++|          CRD    CM
04096  M01S00157.ns2769  +++| .CM1     EQU    CM+1
04097  M01S00158.ns2769  +++|          LDC    .CM1*10000+PRSC
04098  M01S00159.ns2769  +++|          RJM    STA         SET *EMB* ADDRESSES
04099  M01S00160.ns2769  +++|
04100  M00S03414.1xy     +++|*         READ BUFFERED I/O TABLE POINTERS.
04101  M00S03415.1xy     +++|
04102  M00S03416.1xy     +++|          LDK    BIOL
04103  M00S03417.1xy     +++|          CRD    CM
04104  M00S03418.1xy     +++|          LDD    CM+1
04105  M00S03419.1xy     +++|          SHN    14
04106  M00S03420.1xy     +++|          LMD    CM+2
04107  M00S03421.1xy     +++|          ADK    CCTP        GET *CCT* DESCRIPTOR
04108  M00S03422.1xy     +++|          CRD    CA
04109  M00S03423.1xy     +++|          ADK    PUTP-CCTP   GET *PUT* DESCRIPTOR
04110  M00S03424.1xy     +++|          CRD    T3
04111  M00S03425.1xy     +++|          ADN    CBTP-PUTP   GET *CBT* DESCRIPTOR
04112  M00S03426.1xy     +++|          CRD    CN
04113  M00S03427.1xy     +++|          AOD    T3
04114  M00S03428.1xy     +++|
04115  M00S03429.1xy     +++|*         PLUG *CCT* ADDRESS.
04116  M00S03430.1xy     +++|
04117  M00S03431.1xy     +++|          LDD    IR+2        SET ADDRESS OF *CCT*
04118  M00S03432.1xy     +++|          SHN    CCTLS-6
04119  M00S03433.1xy     +++|          ADD    CA+4
04120  M00S03434.1xy     +++|          RAM    OVIA+1
04121  M00S03435.1xy     +++|          STM    RPIA+1
04122  M00S03436.1xy     +++|          SHN    -14
04123  M00S03437.1xy     +++|          ADD    CA+3
04124  M00S03438.1xy     +++|          RAM    OVIA
04125  M00S03439.1xy     +++|          STM    RPIA
04126  M00S03440.1xy     +++|
Line S00161 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04127  M01S00161.ns2769  +++|*         PLUG *CBT* ADDRESSES.
04128  M01S00162.ns2769  +++|
04129  M01S00163.ns2769  +++| .CN3     EQU    CN+3
04130  M01S00164.ns2769  +++|          LDC    .CN3*10000+PRSA
04131  M01S00165.ns2769  +++|          RJM    STA         SET *CBT* ADDRESSES
04132  M01S00166.ns2769  +++|
04133  M01S00167.ns2769  +++|*         PLUG *PUT* ADDRESSES.
04134  M01S00168.ns2769  +++|
04135  M01S00169.ns2769  +++|          LDC    T6*10000+PRSB
04136  M01S00170.ns2769  +++|          RJM    STA         SET *PUT* ADDRESSES
04137  M01S00171.ns2769  +++|
Line S03441 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04138  M01S03441.ns2769  ---|*         PLUG *EMB* ADDRESSES.
04139  M01S03442.ns2769  ---|
04140  M01S03443.ns2769  ---|          LDN    EMBP        FETCH *EMB* POINTER
04141  M01S03444.ns2769  ---|          CRD    CM
04142  M01S03445.ns2769  ---|          LDD    CM+2        SET *EMB* ADDRESS
04143  M01S03446.ns2769  ---|          STM    IMSA
04144  M01S03447.ns2769  ---|          STM    IMSB
04145  M01S03448.ns2769  ---|          STM    IMSC
04146  M01S03449.ns2769  ---|          STM    IMSD
04147  M01S03450.ns2769  ---|          STM    IMSF
04148  M01S03451.ns2769  ---|          LDD    CM+1
04149  M01S03452.ns2769  ---|          RAM    IMSA-1
04150  M01S03453.ns2769  ---|          STM    IMSB-1
04151  M01S03454.ns2769  ---|          STM    IMSC-1
04152  M01S03455.ns2769  ---|          STM    IMSD-1
04153  M01S03456.ns2769  ---|          STM    IMSF-1
04154  M01S03457.ns2769  ---|
04155  M01S03458.ns2769  ---|*         PLUG *CBT* ADDRESSES.
04156  M01S03459.ns2769  ---|
04157  M01S03460.ns2769  ---|          LDC    PRSA
04158  M01S03461.ns2769  ---|          STD    T1
04159  M01S03462.ns2769  ---| PRS8     LDI    T1
04160  M01S03463.ns2769  ---|          ZJN    PRS9        IF END OF TABLE
04161  M01S03464.ns2769  ---|          STD    T2
04162  M01S03465.ns2769  ---|          LDD    CN+4        LAST PART OF ADDRESS
Line S03466 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04163  M02S03466.ns2769  ---|          RAI    T2
04164  M02S03467.ns2769  ---|          SHN    -14         SAVE CARRY
04165  M02S03468.ns2769  ---|          STD    T0
04166  M02S03469.ns2769  ---|          SOD    T2          SUBTRACT ONE FROM ADDRESS
04167  M02S03470.ns2769  ---|          LDD    CN+3        ADD FIRST PART OF ADDRESS
04168  M02S03471.ns2769  ---|          ADD    T0
Line S00110 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04169  M02S00110.ns2769  ---|          RAM    1,T2
04170  M02S00111.ns2769  ---|          SHN    -14
04171  M02S00112.ns2769  ---|          ADD    CN+3        MODIFY UPPER BYTE OF INSTRUCTION
Line S03472 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04172  M01S03472.ns2769  ---|          RAI    T2
04173  M01S03473.ns2769  ---|          AOD    T1
04174  M01S03474.ns2769  ---|          UJN    PRS8        CONTINUE
04175  M01S03475.ns2769  ---|
04176  M01S03476.ns2769  ---|*         PLUG *PUT* ADDRESSES.
04177  M01S03477.ns2769  ---|
04178  M01S03478.ns2769  ---| PRS9     LDC    PRSB
04179  M01S03479.ns2769  ---|          STD    T1
04180  M01S03480.ns2769  ---| PRS10    LDI    T1
04181  M01S03481.ns2769  ---|          ZJN    PRS11       IF END OF TABLE
04182  M01S03482.ns2769  ---|          STD    T2          SET ADDRESS OF LOWER BYTE OF INSTRUCTION
04183  M01S03483.ns2769  ---|          LDD    T7          MODIFY LOWER BYTE OF INSTRUCTION
Line S03484 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04184  M02S03484.ns2769  ---|          RAI    T2
04185  M02S03485.ns2769  ---|          SHN    -14         SAVE CARRY
04186  M02S03486.ns2769  ---|          STD    T0
04187  M02S03487.ns2769  ---|          SOD    T2          DECREMENT TO UPPER BYTE OF INSTRUCTION
04188  M02S03488.ns2769  ---|          LDD    T6          MODIFY UPPER BYTE OF INSTRUCTION
04189  M02S03489.ns2769  ---|          ADD    T0
Line S00113 Modification History
M01 (Added by) 271l716
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04190  M02S00113.ns2769  ---|          RAM    1,T2
04191  M02S00114.ns2769  ---|          SHN    -14
04192  M02S00115.ns2769  ---|          ADD    T6          MODIFY UPPER BYTE OF INSTRUCTION
04193  M02S00116.ns2769  ---|          LPN    37
Line S03490 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04194  M01S03490.ns2769  ---|          RAI    T2
04195  M01S03491.ns2769  ---|          AOD    T1          ADVANCE TABLE INDEX
04196  M01S03492.ns2769  ---|          UJN    PRS10       CONTINUE
04197  M01S03493.ns2769  ---|
04198  M01S03494.ns2769  ---| PRS11    STD    TB          CLEAR TOTAL BUFFER COUNT
Line S00172 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04199  M01S00172.ns2769  +++|*         LDN    0
04200  M01S00173.ns2769  +++|          STD    TB          CLEAR TOTAL BUFFER COUNT
Line S03495 Modification History
M01 (Removed by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
04201  M01S03495.ns2732  ---|          DCN    CH+40       INSURE CHANNEL IN CORRECT STATE
04202  M01S03496.ns2732  ---|          LDC    FCMC        MASTER CLEAR THE CHANNEL ADAPTER
04203  M01S03497.ns2732  ---|          RJM    FNN
04204  M01S03498.ns2732  ---|          MJN    PRS11.2     IF ERROR ON CHANNEL ACCESS
04205  M01S03499.ns2732  ---|          LDC    FCWC        WRITE ADAPTER CONTROL REGISTER
04206  M01S03500.ns2732  ---|          RJM    FNC
04207  M01S03501.ns2732  ---|          MJN    PRS11.2     IF ERROR ON CHANNEL ACCESS
Line S03502 Modification History
M01 (Removed by) 1xy9
M02 (Removed by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
04208  M02S03502.ns2732  ---|          LDC    20000       SELECT 60 BIT CM WORD ACCESS
Line S00002 Modification History
M01 (Added by) 1xy9
M02 (Removed by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
04209  M02S00002.ns2732  ---|          LDC    20400       60 BIT CM WORD ACCESS AND NO ERROR CLEAR
Line S03503 Modification History
M01 (Removed by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
04210  M01S03503.ns2732  ---|          OAN    CH
04211  M01S03504.ns2732  ---| PRS11.1  SBN    1
04212  M01S03505.ns2732  ---|          ZJN    PRS11.2     IF TIMEOUT ON CONTROL REGISTER WRITE
04213  M01S03506.ns2732  ---|          FJM    PRS11.1,CH  IF DATA NOT ACCEPTED
04214  M01S03507.ns2732  ---|          DCN    CH+40
04215  M01S03508.ns2732  ---|          LDN    0           INITIALIZE *TPOR* INDEX
04216  M01S03509.ns2732  ---|          STD    T1
04217  M01S03510.ns2732  ---|          UJN    PRS12       CONTINUE
Line S00182 Modification History
M01 (Added by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
04218  M01S00182.ns2732  +++|          RJM    MCA         MASTER CLEAR ADAPTER
Line S00183 Modification History
M01 (Added by) ns2732
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04219  M02S00183.ns2769  ---|          PJN    PRS11.1     IF MASTER CLEAR WAS SUCCESSFUL
Line S00174 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04220  M01S00174.ns2769  +++|          PJN    PRS11       IF MASTER CLEAR WAS SUCCESSFUL
04221  M00S03511.1xy     +++|
Line S03512 Modification History
M01 (Removed by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
04222  M01S03512.1xy2    ---| PRS11.2  DCN    CH+40
Line S03513 Modification History
M01 (Removed by) 1xy2
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
04223  M02S03513.271l716 ---|          LDD    IR+4        SET CHANNEL IN MESSAGE
04224  M02S03514.271l716 ---|          RJM    C2D
04225  M02S03515.271l716 ---|          STM    MSGA+7
Line S03516 Modification History
M01 (Removed by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
04226  M01S03516.1xy2    ---|          LDC    MSGA
04227  M01S03517.1xy2    ---|          RJM    DFM
04228  M01S03518.1xy2    ---|*         LDN    0
04229  M01S03519.1xy2    ---|          RJM    RCS         DOWN THE CHANNEL
04230  M01S03520.1xy2    ---|          RJM    SCD         FLAG DRIVER DROPPED
04231  M01S03521.1xy2    ---|          MONITOR  DPPM
04232  M01S03522.1xy2    ---|          LJM    PPR         RETURN TO PPR
Line S00035 Modification History
M01 (Added by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
04233  M01S00035.1xy2    +++|*         PREVENT ANY I/O FROM BEING PERFORMED ON THIS CHANNEL.  THE
04234  M01S00036.1xy2    +++|*         UNIT QUEUES MUST CONTINUE TO BE SERVICED BY THIS DRIVER TO
04235  M01S00037.1xy2    +++|*         ENSURE THAT CHANNEL SPECIFIC REQUESTS ARE PROCESSED.
04236  M01S00038.1xy2    +++|*         ALTHOUGH THIS DRIVER WILL BE FREE TO SELECT I/O REQUESTS, ANY
04237  M01S00039.1xy2    +++|*         ATTEMPT TO ISSUE A CHANNEL FUNCTION WILL RESULT IN A *CHANNEL
04238  M01S00040.1xy2    +++|*         FAILURE* ERROR.  THE ERROR PROCESSOR WILL SET THE SUSPECT
04239  M01S00041.1xy2    +++|*         FLAG, CAUSING *1MV* TO PERFORM A HARDWARE VERIFICATION.  THE
04240  M01S00042.1xy2    +++|*         EXPECTED RESULT OF THIS VERIFICATION IS THAT *1MV* WILL DOWN
04241  M01S00043.1xy2    +++|*         THE CHANNEL ON THE DEVICE.
04242  M01S00044.1xy2    +++|
Line S00045 Modification History
M01 (Added by) 1xy2
M02 (Removed by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
04243  M02S00045.ns2732  ---| PRS11.2  DCN    CH+40
Line S00046 Modification History
M01 (Added by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
04244  M01S00046.1xy2    +++|          ISTORE  FNCC,(UJN FNC5.1)
04245  M01S00047.1xy2    +++|          ISTORE  FNNA,(UJN FNN5.1)
Line S00184 Modification History
M01 (Added by) ns2732
M02 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04246  M02S00184.ns2769  ---| PRS11.1  LDN    0           INITIALIZE *TPOR* INDEX
Line S00175 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04247  M01S00175.ns2769  +++| PRS11    LDN    0           INITIALIZE *TPOR* INDEX
Line S00185 Modification History
M01 (Added by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
04248  M01S00185.ns2732  +++|          STD    T1
04249  M00S03523.1xy     +++|
04250  M00S03524.1xy     +++|*         BUILD *TPOR* TABLE.
04251  M00S03525.1xy     +++|
04252  M00S03526.1xy     +++| PRS12    SOD    T3          DECREMENT *PUT* ORDINAL
04253  M00S03527.1xy     +++|          STD    PO          SET *PUT* ORDINAL
04254  M00S03528.1xy     +++|          ZJP    PRSX        IF SCAN COMPLETE
04255  M00S03529.1xy     +++|          CPTA   UNCT,A      READ *PUT* ENTRY
04256  M00S03530.1xy     +++|          CRD    CM
04257  M00S03531.1xy     +++|          LDD    CM+1        SAVE THE EST ORDINAL
04258  M00S03532.1xy     +++|          STD    T5
04259  M00S03533.1xy     +++|          SFA    EST,CM+1    READ EST ENTRY
04260  M00S03534.1xy     +++|          ADK    EQDE
04261  M00S03535.1xy     +++|          CRD    CM
04262  M00S03536.1xy     +++|          LDN    0           INITIALIZE EST CHANNEL BYTE INDEX
04263  M00S03537.1xy     +++|          STD    T2
04264  M00S03538.1xy     +++|          LDD    CM+1
04265  M00S03539.1xy     +++|          LPN    77
04266  M00S03540.1xy     +++|          LMD    IR+4
04267  M00S03541.1xy     +++|          ZJN    PRS13       IF DEVICE SUPPORTED BY THIS DRIVER
04268  M00S03542.1xy     +++|          LDD    CM+2
04269  M00S03543.1xy     +++|          ZJN    PRS14       IF SINGLE ACCESS DEVICE
04270  M00S03544.1xy     +++|          LPN    77
04271  M00S03545.1xy     +++|          LMD    IR+4
04272  M00S03546.1xy     +++|          NJN    PRS14       IF DEVICE NOT SUPPORTED BY THIS DRIVER
04273  M00S03547.1xy     +++|          AOD    T2          INCREMENT CHANNEL BYTE INDEX
04274  M00S03548.1xy     +++| PRS13    AOD    T1          INCREMENT *TPOR* INDEX
04275  M00S03549.1xy     +++|          ERRNZ  TPORE-1     CODE DEPENDS ON VALUE
04276  M00S03550.1xy     +++|          LMK    MAXU+1
04277  M00S03551.1xy     +++|          ZJN    PRS15       IF TOO MANY UNITS ON CHANNEL
Line S03552 Modification History
M01 (Removed by) ns2643
Seq #  *Modification Id* Act 
----------------------------+
04278  M01S03552.ns2643  ---|          LDD    T2          POSITION CHANNEL BYTE INDEX
04279  M01S03553.ns2643  ---|          SHN    6
04280  M01S03554.ns2643  ---|          LMD    T3          SET *PUT* ORDINAL
Line S00010 Modification History
M01 (Added by) ns2643
Seq #  *Modification Id* Act 
----------------------------+
04281  M01S00010.ns2643  +++|          LDD    T3          POSITION *PUT* ORDINAL
04282  M01S00011.ns2643  +++|          SHN    1
04283  M01S00012.ns2643  +++|          LMD    T2          SET CHANNEL BYTE INDEX
04284  M00S03555.1xy     +++|          STM    TPOR-1,T1
04285  M00S03556.1xy     +++|          LDD    MA          SAVE (T1), (T2) AND (T3)
04286  M00S03557.1xy     +++|          CWD    T1
04287  M00S03558.1xy     +++|          CRM    PRSF,ON
04288  M00S03559.1xy     +++|          RJM    CFR         CHECK FOR FORMAT REQUESTED
04289  M00S03560.1xy     +++|          LDD    MA
04290  M00S03561.1xy     +++|          CWM    PRSF,ON     RESTORE (T1), (T2) AND (T3)
04291  M00S03562.1xy     +++|          SBN    1
04292  M00S03563.1xy     +++|          CRD    T1
04293  M00S03564.1xy     +++| PRS14    LJM    PRS12       CONTINUE SCAN
04294  M00S03565.1xy     +++|
04295  M00S03566.1xy     +++| PRS15    LDC    =C* 1XM - TOO MANY UNITS ON CHANNEL.*
04296  M00S03567.1xy     +++|          RJM    DFM         ISSUE SYSTEM DAYFILE MESSAGE
04297  M00S03568.1xy     +++|          MONITOR  HNGM
04298  M00S03569.1xy     +++|          UJN    *           HANG
04299  M00S03570.1xy     +++| 1XM      SPACE  4
04300  M00S03571.1xy     +++| PRSA     BSS    0           TABLE OF *CBT* ADDRESSES
Line S03572 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04301  M01S03572.ns2769  ---| CBTA     HERE
Line S00176 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04302  M01S00176.ns2769  +++| TCBT     HERE
04303  M00S03573.1xy     +++|          CON    0           TERMINATE TABLE
04304  M00S03574.1xy     +++|
04305  M00S03575.1xy     +++| PRSB     BSS    0           TABLE OF *PUT* ADDRESSES
Line S03576 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04306  M01S03576.ns2769  ---| PUTA     HERE
Line S00177 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04307  M01S00177.ns2769  +++| TPUT     HERE
04308  M00S03577.1xy     +++|          CON    0           TERMINATE TABLE
04309  M00S03578.1xy     +++|
Line S03579 Modification History
M01 (Removed by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04310  M01S03579.ns2769  ---| PRSC     BSS    0           TABLE OF CHANNEL INSTRUCTION ADDRESSES
Line S00178 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04311  M01S00178.ns2769  +++| PRSC     BSS    0           TABLE OF *EMB* ADDRESSES
04312  M01S00179.ns2769  +++|          QUAL   COMPIMB
04313  M01S00180.ns2769  +++| TEMB     HERE
04314  M01S00181.ns2769  +++|          QUAL   *
04315  M01S00182.ns2769  +++|          CON    0           TERMINATE TABLE
04316  M01S00183.ns2769  +++|
04317  M01S00184.ns2769  +++| PRSD     BSS    0           TABLE OF CHANNEL INSTRUCTION ADDRESSES
04318  M00S03580.1xy     +++|          CHTB
04319  M00S03581.1xy     +++|
04320  M00S03582.1xy     +++| PRSE     BSS    0           16 BIT INSTRUCTION ADDRESSES
04321  M00S03583.1xy     +++|          LIST16
04322  M00S03584.1xy     +++| PRSF     BSS    5           DIRECT CELL SAVE AREA
04323  M00S03585.1xy     +++| CFR      SPACE  4,10
04324  M00S03586.1xy     +++|**        CFR - CHECK FOR FORMAT REQUEST.
04325  M00S03587.1xy     +++|*
04326  M00S03588.1xy     +++|*         ENTRY  (CM - CM+4) = EST ENTRY.
04327  M00S03589.1xy     +++|*
04328  M00S03590.1xy     +++|*         EXIT   DISK FORMATTTED IF REQUIRED.
04329  M00S03591.1xy     +++|*                PP HUNG IF FORMATTING ERRORS.
04330  M00S03592.1xy     +++|*
04331  M00S03593.1xy     +++|*         USES   CS, PR, CA - CA+4, CN - CN+4, SR - SR+4.
04332  M00S03594.1xy     +++|*
04333  M00S03595.1xy     +++|*         CALLS  F8D, OVI, RHR, RPI, TLB.
04334  M00S03596.1xy     +++|
04335  M00S03597.1xy     +++|
04336  M00S03598.1xy     +++| CFR      SUBR               ENTRY/EXIT
04337  M00S03599.1xy     +++|          LDD    CM+1
04338  M00S03600.1xy     +++|          SHN    21-5
04339  M00S03601.1xy     +++|          PJN    CFRX        IF CHANNEL IS NOT CONCURRENT
04340  M00S03602.1xy     +++|          LDD    CM+2
04341  M00S03603.1xy     +++|          SHN    21-13
04342  M00S03604.1xy     +++|          PJN    CFR1        IF ONLY ONE CHANNEL
04343  M00S03605.1xy     +++|          SHN    21-5-21+13
04344  M00S03606.1xy     +++|          PJN    CFRX        IF SECOND CHANNEL IS NOT CONCURRENT
04345  M00S03607.1xy     +++| CFR1     LDD    CM+4
04346  M00S03608.1xy     +++|          STM    CFRA        SAVE MST ADDRESS
04347  M00S03609.1xy     +++| CFR2     LDC    **
04348  M00S03610.1xy     +++| CFRA     EQU    *-1
04349  M00S03611.1xy     +++|          SHN    3
04350  M00S03612.1xy     +++|          ADN    STLL
04351  M00S03613.1xy     +++|          CRD    CN
04352  M00S03614.1xy     +++|          ADN    DDLL-STLL
04353  M00S03615.1xy     +++|          CRD    CA
04354  M00S03616.1xy     +++|          LDD    CN
04355  M00S03617.1xy     +++|          SHN    21-13
04356  M00S03618.1xy     +++|          PJN    CFRX        IF NO FORMAT REQUEST
04357  M00S03619.1xy     +++|          LDD    MA
04358  M00S03620.1xy     +++|          CWM    CFRB,TR
04359  M00S03621.1xy     +++|          LDN    1           SET *PUT* REQUEST ACTIVE
04360  M00S03622.1xy     +++|          STD    PR
04361  M00S03623.1xy     +++|          RJM    OVI         INTERLOCK THE *PUT*
04362  M00S03624.1xy     +++|          NJN    CFR2        IF *PUT* NOT INTERLOCKED
04363  M00S03625.1xy     +++| CFR3     LDN    0           SET FIRST CYLINDER
04364  M00S03626.1xy     +++|          STD    SR
04365  M00S03627.1xy     +++|          LDD    TH          SET LARGE RECORD SIZE
04366  M00S03628.1xy     +++|          STD    SR+2
04367  M00S03629.1xy     +++|          LDD    CA+4        SET UNIT
04368  M00S03630.1xy     +++|          SHN    14
04369  M00S03631.1xy     +++|          STD    CA+4
04370  M00S03632.1xy     +++|          SHN    -14
04371  M00S03633.1xy     +++|          LMC    1S10+3S6
04372  M00S03634.1xy     +++|          STD    SR+1
04373  M00S03635.1xy     +++|          RJM    F8D         FORMAT DISK
04374  M00S03636.1xy     +++|          PJN    CFR4        IF NO ERRORS
04375  M00S03637.1xy     +++|          MONITOR HNGM
04376  M00S03638.1xy     +++| CFR4     LDD    CS
04377  M00S03639.1xy     +++|          SCN    10
04378  M00S03640.1xy     +++|          LMN    10
04379  M00S03641.1xy     +++|          STD    CS
04380  M00S03642.1xy     +++|          RJM    RHR         RELEASE DRIVES
04381  M00S03643.1xy     +++|          LDD    CA          CHECK FOR MULTIPLE UNITS
04382  M00S03644.1xy     +++|          LPN    7
04383  M00S03645.1xy     +++|          SBN    1
04384  M00S03646.1xy     +++|          STD    CA
04385  M00S03647.1xy     +++|          PJN    CFR3        IF MORE UNITS
04386  M00S03648.1xy     +++|          LCN    LFPR        CLEAR FORMAT REQUEST
04387  M00S03649.1xy     +++|          RJM    TLB
04388  M00S03650.1xy     +++|          RJM    RPI         CLEAR *PUT* INTERLOCK
04389  M00S03651.1xy     +++|          LDN    0           CLEAR *PUT* REQUEST ACTIVE
04390  M00S03652.1xy     +++|          STD    PR
04391  M00S03653.1xy     +++|          LJM    CFRX        RETURN
04392  M00S03654.1xy     +++|
04393  M00S03655.1xy     +++| CFRB     DATA   C*INTERLOCKING PUT.*
Line S00185 Modification History
M01 (Added by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
04394  M01S00185.ns2769  +++| STA      SPACE  4,10
04395  M01S00186.ns2769  +++|**        STA - SET TABLE ADDRESSES.
04396  M01S00187.ns2769  +++|*
04397  M01S00188.ns2769  +++|*         ENTRY  (A) = 6/ TP, 12/ TA
04398  M01S00189.ns2769  +++|*                      TP = TABLE POINTER.
04399  M01S00190.ns2769  +++|*                      TA = INSTRUCTION TABLE ADDRESS.
04400  M01S00191.ns2769  +++|*
04401  M01S00192.ns2769  +++|*         EXIT   (A) = 0.
04402  M01S00193.ns2769  +++|*
04403  M01S00194.ns2769  +++|*         USES   T0, T1, T2.
04404  M01S00195.ns2769  +++|
04405  M01S00196.ns2769  +++|
04406  M01S00197.ns2769  +++| STA1     STD    T2          SET INSTRUCTION ADDRESS
04407  M01S00198.ns2769  +++|          LDM    1,T1
04408  M01S00199.ns2769  +++|          RAM    1,T2        SET LOWER 12 BITS OF ADDRESS
04409  M01S00200.ns2769  +++|          SHN    -14
04410  M01S00201.ns2769  +++|          ADI    T1          SET UPPER 6 BITS OF ADDRESS
04411  M01S00202.ns2769  +++|          LPN    37
04412  M01S00203.ns2769  +++|          RAI    T2
04413  M01S00204.ns2769  +++|          AOD    T0          ADVANCE INSTRUCTION LIST
04414  M01S00205.ns2769  +++| STA2     LDI    T0
04415  M01S00206.ns2769  +++|          NJN    STA1        IF NOT END OF TABLE
04416  M01S00207.ns2769  +++|
04417  M01S00208.ns2769  +++| STA      SUBR               ENTRY/EXIT
04418  M01S00209.ns2769  +++|          STD    T0
04419  M01S00210.ns2769  +++|          SHN    -14         SET ADDRESS POINTER
04420  M01S00211.ns2769  +++|          STD    T1
04421  M01S00212.ns2769  +++|          UJN    STA2        ENTER LOOP
04422  M00S03656.1xy     +++| 1XY      SPACE  4
04423  M00S03657.1xy     +++|
04424  M00S03658.1xy     +++|*         PRESET COMMON DECKS.
04425  M00S03659.1xy     +++|
04426  M00S03660.1xy     +++|*CALL     COMPTLB
04427  M00S03661.1xy     +++| 1XY      SPACE  4
04428  M00S03662.1xy     +++|          OVERFLOW
04429  M00S03663.1xy     +++|
04430  M00S03664.1xy     +++|          USE    *
04431  M00S03665.1xy     +++|
04432  M00S03666.1xy     +++|          END