User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1da.011

Deck 1DA Part 011

24 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
12866  M00S06923.1da     +++|
12867  M00S06924.1da     +++|
Line S06925 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12868  M01S06925.ns2783  ---| IST5     LDD    DI          DEFINE END OF DEVICES
12869  M01S06926.ns2783  ---|          STM    DASA
12870  M01S06927.ns2783  ---|          LMC    DSTB        SET EXIT CONDITION
Line S02883 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12871  M01S02883.ns2783  +++| IST11    LDD    DI          DEFINE END OF DEVICE STATE TABLE
12872  M01S02884.ns2783  +++|          STM    DASB
12873  M00S06928.1da     +++|
12874  M00S06929.1da     +++| IST      SUBR               ENTRY/EXIT
Line S06930 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12875  M01S06930.ns2783  ---|          LDC    OCMD-1
Line S02885 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12876  M01S02885.ns2783  +++|          LDC    CSTBL-1
12877  M00S06931.1da     +++|          STDL   DI
Line S06932 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12878  M01S06932.ns2783  ---| IST1     LDN    0           CLEAR DEVICE STATE TABLE
Line S02886 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12879  M01S02886.ns2783  +++| IST1     LDN    0           CLEAR DEVICE AND CONTROLLER STATE TABLES
12880  M00S06933.1da     +++|          STI    DI
12881  M00S06934.1da     +++|          SOD    DI
12882  M00S06935.1da     +++|          LMC    DSTB
12883  M00S06936.1da     +++|          NJN    IST1        IF MORE TO CLEAR
12884  M00S06937.1da     +++|*         LDN    0
12885  M00S06938.1da     +++|          STD    FC          UNITS NOT CHECKED FOR FORMAT REQUEST
12886  M00S06939.1da     +++|          STD    T5          INITIALIZE *PUT* ORDINAL
Line S06940 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12887  M01S06940.ns2783  ---| IST2     AOD    T5
12888  M01S06941.ns2783  ---|          LMD    PT
12889  M01S06942.ns2783  ---|          ZJN    IST5        IF END OF PHYSICAL UNIT TABLE
Line S02887 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12890  M01S02887.ns2783  +++|
12891  M01S02888.ns2783  +++|*         PROCESS NEXT *PUT* ENTRY.
12892  M01S02889.ns2783  +++|
12893  M01S02890.ns2783  +++| IST2     AOD    T5          CHECK NEXT *PUT* ENTRY
12894  M01S02891.ns2783  +++|          LMM    PUTN        NUMBER OF *PUT* ENTRIES
12895  M01S02892.ns2783  +++|          ZJN    IST11       IF END OF PHYSICAL UNIT TABLE
12896  M00S06943.1da     +++|          LDD    T5
Line S06944 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12897  M01S06944.ns2783  ---|          SHN    PUTLS       READ *PUT* ENTRY
12898  M01S06945.ns2783  ---|          PUTE   *
12899  M01S06946.ns2783  ---|          ADC    UNCT        GET UNIT CONTROL WORD
Line S02893 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12900  M01S02893.ns2783  +++|          SHN    PUTLS       CALCULATE *PUT* ADDRESS
12901  M01S02894.ns2783  +++|          STD    T1
12902  M01S02895.ns2783  +++|          LDM    PUTA        FWA OF *PUT*
12903  M01S02896.ns2783  +++|          SHN    14
12904  M01S02897.ns2783  +++|          LMM    PUTA+1
12905  M01S02898.ns2783  +++|          ADD    T1
12906  M01S02899.ns2783  +++|          ADK    UNCT        GET UNIT CONTROL WORD
12907  M00S06947.1da     +++|          CRD    WB
12908  M00S06948.1da     +++|          SFA    EST,WB+1    FETCH EST ENTRY
12909  M00S06949.1da     +++|          ADK    EQDE
12910  M00S06950.1da     +++|          CRD    CM
Line S06951 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12911  M01S06951.ns2783  ---|          LDN    CM          INITIALIZE CHANNEL BYTE ADDRESS
12912  M01S06952.ns2783  ---|          STD    CM
12913  M01S06953.ns2783  ---| IST3     AOD    CM          ADVANCE PATH DESCRIPTER ADDRESS
12914  M01S06954.ns2783  ---|          LMN    CM+3
12915  M01S06955.ns2783  ---|          ZJN    IST2        IF TWO POSSIBLE CHANNELS CHECKED
12916  M01S06956.ns2783  ---|          LDI    CM
12917  M01S06957.ns2783  ---|          ZJN    IST3        IF NULL ACCESS
Line S02900 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12918  M01S02900.ns2783  +++|          ADK    EQAE-EQDE
12919  M01S02901.ns2783  +++|          CRD    CW
12920  M01S02902.ns2783  +++|          LDD    CM+1        CHECK FIRST CHANNEL
12921  M01S02903.ns2783  +++|          STD    T1
12922  M00S06958.1da     +++|          LMD    IR+4
12923  M00S06959.1da     +++|          LPN    77
Line S06960 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12924  M01S06960.ns2783  ---|          NJN    IST3        IF NOT THIS DRIVERS CHANNEL
12925  M01S06961.ns2783  ---|          LDD    T5          SET *PUT* ORDINAL IN STATE TABLE
Line S02904 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12926  M01S02904.ns2783  +++|          ZJN    IST3        IF CHANNEL FOR THIS DRIVER
12927  M01S02905.ns2783  +++|          LDD    CM+2        CHECK SECOND CHANNEL
12928  M01S02906.ns2783  +++|          STD    T1
12929  M01S02907.ns2783  +++|          ZJN    IST2        IF SECOND CHANNEL NOT DEFINED
12930  M01S02908.ns2783  +++|          LMD    IR+4
12931  M01S02909.ns2783  +++|          LPN    77
12932  M01S02910.ns2783  +++|          NJN    IST2        IF NOT CHANNEL FOR THIS DRIVER
12933  M01S02911.ns2783  +++|
12934  M01S02912.ns2783  +++|*         CREATE DEVICE STATE TABLE ENTRY FOR THIS DEVICE.
12935  M01S02913.ns2783  +++|
12936  M01S02914.ns2783  +++| IST3     LDD    T5          SET *PUT* ORDINAL IN STATE TABLE
12937  M00S06962.1da     +++|          STI    DI
12938  M00S06963.1da     +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
Line S06964 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12939  M01S06964.ns2783  ---|          LDI    CM
Line S02915 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12940  M01S02915.ns2783  +++|          LDD    T1
12941  M00S06965.1da     +++|          LPC    200         SET PORT NUMBER
12942  M00S06966.1da     +++|          SHN    11-7
12943  M00S06967.1da     +++|          STM    PNUN,DI
12944  M00S06968.1da     +++|          LDD    WB          GET EQUIPMENT AND UNIT NUMBERS
12945  M00S06969.1da     +++|          LPC    777
12946  M00S06970.1da     +++|          RAM    PNUN,DI     APPEND TO PORT NUMBER
Line S02916 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12947  M01S02916.ns2783  +++|          LDN    EQNS        DETERMINE DEVICE TYPE
12948  M01S02917.ns2783  +++|          STD    T1
12949  M01S02918.ns2783  +++| IST4     SOD    T1          CHECK NEXT DEVICE MNEMONIC
12950  M01S02919.ns2783  +++|          LDM    DM,T1
12951  M01S02920.ns2783  +++|          LMD    CM+3
12952  M01S02921.ns2783  +++|          NJN    IST4        IF DEVICE MNEMONIC DOES NOT MATCH
12953  M01S02922.ns2783  +++|          LDD    T1          SET DEVICE TYPE INDEX
12954  M01S02923.ns2783  +++|          LMC    1S13        SET *CHECK DRIVE TYPE* FLAG
12955  M01S02924.ns2783  +++|          STML   DVTP,DI
12956  M01S02925.ns2783  +++|          LDD    CM          CHECK FOR SHARED DEVICE
12957  M01S02926.ns2783  +++|          LPC    1000
12958  M01S02927.ns2783  +++|          ZJN    IST5        IF NOT SHARED DEVICE
12959  M01S02928.ns2783  +++|          RAML   DVTP,DI     SET *MMF SHARED DEVICE* FLAG
12960  M01S02929.ns2783  +++|          LDML   DM,T1
12961  M01S02930.ns2783  +++|          SHN    0-17        NONZERO IF PARITY DEVICE
12962  M01S02931.ns2783  +++|          SHN    12-0
12963  M01S02932.ns2783  +++|          RAML   DVTP,DI     SET *ENABLE MMF PARITY DEVICE ACCESS* FLAG
12964  M01S02933.ns2783  +++| IST5     LDD    CW+3
12965  M01S02934.ns2783  +++|          SHN    0-13        NONZERO IF PARTITIONED DEVICE
12966  M01S02935.ns2783  +++|          SHN    17-0
12967  M01S02936.ns2783  +++|          RAML   DVTP,DI     SET *PARTITIONED DEVICE* FLAG
12968  M01S02937.ns2783  +++|
12969  M01S02938.ns2783  +++|*         FIND CONTROLLER STATE TABLE ENTRY FOR THIS DEVICE.
12970  M01S02939.ns2783  +++|
12971  M01S02940.ns2783  +++|          LDN    0           INITIALIZE CONTROLLER STATE TABLE INDEX
12972  M01S02941.ns2783  +++|          STD    T1
12973  M01S02942.ns2783  +++| IST6     LDD    T1          CHECK NEXT CONTROLLER
12974  M01S02943.ns2783  +++|          SHN    2
12975  M01S02944.ns2783  +++|          ERRNZ  CSTBE-4     CODE DEPENDS ON VALUE
12976  M01S02945.ns2783  +++|          ADC    CSTB
12977  M01S02946.ns2783  +++|          STD    CI          SET CONTROLLER STATE TABLE ADDRESS
12978  M01S02947.ns2783  +++|          LDML   CTST,CI
12979  M01S02948.ns2783  +++|          NJN    IST7        IF CONTROLLER ALREADY IDENTIFIED
12980  M01S02949.ns2783  +++|          LDD    DI          SET *DSTB* ADDRESS OF FIRST DEVICE
12981  M01S02950.ns2783  +++|          LMC    1S14        SET *INITIAL RESET REQUIRED* FLAG
12982  M01S02951.ns2783  +++|          STML   CTST,CI
12983  M01S02952.ns2783  +++|          UJN    IST8        SET CONTROLLER STATE TABLE INDEX
12984  M01S02953.ns2783  +++|
12985  M01S02954.ns2783  +++| IST7     LPC    7777        *DSTB* OF FIRST DEVICE ON CONTROLLER
12986  M01S02955.ns2783  +++|          STD    T2
12987  M01S02956.ns2783  +++|          LDM    PNUN,T2     COMPARE CONTROLLER AND PORT NUMBERS
12988  M01S02957.ns2783  +++|          LMM    PNUN,DI
12989  M00S06971.1da     +++|          SHN    -6
Line S06972 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
12990  M01S06972.1da8    ---|          STD    WB+4        SET *CSTB* INDEX
Line S00592 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12991  M02S00592.ns2783  ---|          STD    CI          SET CONTROLLER STATE TABLE ADDRESS
Line S06973 Modification History
M01 (Removed by) ns2767
M02 (Removed by) ns2768
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12992  M03S06973.ns2783  ---|          LDD    CM+3
Line S00078 Modification History
M01 (Added by) ns2767
M02 (Removed by) ns2768
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
12993  M03S00078.ns2783  ---|
12994  M03S00079.ns2783  ---|*         IF A CLUSTERED DRIVE IS CONFIGURED DUAL ACCESS AND IT IS
12995  M03S00080.ns2783  ---|*         INITIALIZED TO A DIFFERENT DRIVE TYPE, THE OTHER CONTROLLER
12996  M03S00081.ns2783  ---|*         DOES NOT KNOW IT HAS CHANGED.  THE CHECK DRIVE BIT IS SET
12997  M03S00082.ns2783  ---|*         WHEN THE DRIVER IS LOADED TO FORCE THE DRIVE TO BE CHECKED
12998  M03S00083.ns2783  ---|*         BEFORE I/O REQUESTS TO PREVENT WRITING TO THE WRONG UNIT OR
12999  M03S00084.ns2783  ---|*         READING INCORRECT DATA.
13000  M03S00085.ns2783  ---|
13001  M03S00086.ns2783  ---|          LDD    CM+3        SET DRIVE TYPE
Line S06974 Modification History
M01 (Removed by) ns2768
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13002  M02S06974.ns2783  ---|          ADC    -2REA
Line S00156 Modification History
M01 (Added by) ns2768
M02 (Removed by) 284l847
M03 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13003  M03S00156.ns2783  ---|          LDN    DTNS        DETERMINE DEVICE TYPE
Line S00628 Modification History
M01 (Added by) 284l847
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13004  M02S00628.ns2783  ---|          LDN    EQNS        DETERMINE DEVICE TYPE
Line S00157 Modification History
M01 (Added by) ns2768
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13005  M02S00157.ns2783  ---|          STD    CM
13006  M02S00158.ns2783  ---| IST3.1   SOD    CM
13007  M02S00159.ns2783  ---|          LDM    DM,CM
13008  M02S00160.ns2783  ---|          LMD    CM+3
13009  M02S00161.ns2783  ---|          NJN    IST3.1      IF NOT THIS DEVICE TYPE
13010  M02S00162.ns2783  ---|          LDD    CM
Line S06975 Modification History
M01 (Removed by) ns2767
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13011  M02S06975.ns2783  ---|          LMC    1S13        CHECK DRIVE TYPE
13012  M02S06976.ns2783  ---|          STML   DVTP,DI     SAVE DRIVE TYPE
Line S00087 Modification History
M01 (Added by) ns2767
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13013  M02S00087.ns2783  ---|          LMC    1S13        SET *CHECK DRIVE TYPE* FLAG
13014  M02S00088.ns2783  ---|          STML   DVTP,DI
Line S02958 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13015  M01S02958.ns2783  +++|          ZJN    IST8        IF SAME CONTROLLER AND PORT NUMBERS
13016  M01S02959.ns2783  +++|          AOD    T1          CHECK NEXT CONTROLLER
13017  M01S02960.ns2783  +++|          LMN    MXCN
13018  M01S02961.ns2783  +++|          NJN    IST6        IF NOT END OF CONTROLLER STATE TABLE
13019  M01S02962.ns2783  +++|          STI    DI          CLEAR DEVICE STATE TABLE ENTRY
13020  M01S02963.ns2783  +++|          ERRNZ  PUTO        CODE DEPENDS ON VALUE
13021  M01S02964.ns2783  +++|          STM    PNUN,DI
13022  M01S02965.ns2783  +++|          STM    DVTP,DI
13023  M01S02966.ns2783  +++|          UJN    IST9        IGNORE DEVICE AND PROCESS NEXT *PUT*
Line S00089 Modification History
M01 (Added by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
13024  M01S00089.ns2767  +++|
Line S00090 Modification History
M01 (Added by) ns2767
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13025  M02S00090.ns2783  ---|*         FORCE LOGICAL RESET FOR EACH CONTROLLER.
Line S02967 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13026  M01S02967.ns2783  +++| IST8     LDD    T1          SET CONTROLLER STATE TABLE INDEX
13027  M01S02968.ns2783  +++|          SHN    14
13028  M01S02969.ns2783  +++|          RAML   PNUN,DI
13029  M01S02970.ns2783  +++|          LDN    DSTBE       ADVANCE DEVICE STATE TABLE ADDRESS
13030  M01S02971.ns2783  +++|          RAD    DI
13031  M01S02972.ns2783  +++|          LMC    DSTBL
13032  M01S02973.ns2783  +++|          ZJN    IST10       IF DEVICE STATE TABLE IS FULL
13033  M01S02974.ns2783  +++| IST9     LJM    IST2        PROCESS NEXT *PUT* ENTRY
Line S00091 Modification History
M01 (Added by) ns2767
Seq #  *Modification Id* Act 
----------------------------+
13034  M01S00091.ns2767  +++|
Line S06977 Modification History
M01 (Removed by) 1da8
Seq #  *Modification Id* Act 
----------------------------+
13035  M01S06977.1da8    ---|          LDML   CSTB,WB+4
Line S00593 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13036  M02S00593.ns2783  ---|          LDML   CSTB,CI
Line S06978 Modification History
M01 (Removed by) ns2767
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13037  M02S06978.ns2783  ---|          NJN    IST4        IF CONTROLLER IDENTIFIED
Line S00092 Modification History
M01 (Added by) ns2767
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13038  M02S00092.ns2783  ---|          NJN    IST4        IF CONTROLLER ALREADY IDENTIFIED
Line S06979 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13039  M01S06979.ns2783  ---|          LDD    DI
Line S06980 Modification History
M01 (Removed by) ns2767
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13040  M02S06980.ns2783  ---|          LMC    1S14        RESET FLAG + FIRST *PUT* ORDINAL
Line S00093 Modification History
M01 (Added by) ns2767
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13041  M02S00093.ns2783  ---|          LMC    1S14        SET RESET FLAG + FIRST *PUT* ORDINAL
Line S06981 Modification History
M01 (Removed by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13042  M02S06981.ns2783  ---|          STML   CSTB,WB+4
Line S00594 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13043  M02S00594.ns2783  ---|          STML   CSTB,CI
Line S06982 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13044  M01S06982.ns2783  ---| IST4     LDN    DSTBE
13045  M01S06983.ns2783  ---|          RAD    DI          ADVANCE STATE TABLE ADDRESS
13046  M01S06984.ns2783  ---|          LMC    DSTBL
13047  M01S06985.ns2783  ---|          NJP    IST2        IF DEVICE TABLE NOT FULL
13048  M01S06986.ns2783  ---|          LJM    IST5        SET INITIAL STATE TABLE ADDRESS
13049  M01S06987.ns2783  ---| MCI      SPACE  4,10
13050  M01S06988.ns2783  ---|**        MCI - MODIFY CHANNEL INSTRUCTIONS.
Line S02975 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13051  M01S02975.ns2783  +++| IST10    LJM    IST11       DEFINE END OF DEVICE STATE TABLE
13052  M01S02976.ns2783  +++| SMC      SPACE  4,10
13053  M01S02977.ns2783  +++|**        SMC - SET MMF CONSTANTS.
13054  M00S06989.1da     +++|*
Line S06990 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13055  M01S06990.ns2783  ---|*         ENTRY  (IR+4) = CONCURRENT CHANNEL NUMBER.
Line S02978 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13056  M01S02978.ns2783  +++|*         PERFORM CODE MODIFICATION FOR MMF OPERATION.
13057  M00S06991.1da     +++|*
Line S06992 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13058  M01S06992.ns2783  ---|*         EXIT   (A) = 0.
Line S02979 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13059  M01S02979.ns2783  +++|*         USES   CM - CM+4.
13060  M00S06993.1da     +++|*
Line S06994 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13061  M01S06994.ns2783  ---|*         USES   T1 - T3.
13062  M01S06995.ns2783  ---|*
13063  M01S06996.ns2783  ---|*         CALLS  C2D.
Line S02980 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13064  M01S02980.ns2783  +++|*         MACROS ISTORE.
13065  M00S06997.1da     +++|
13066  M00S06998.1da     +++|
Line S06999 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13067  M01S06999.ns2783  ---| MCI1     RAIL   T2          MODIFY CHANNEL INSTRUCTION
13068  M01S07000.ns2783  ---|          AOD    T1
13069  M01S07001.ns2783  ---| MCI2     LDML   TCHA,T1     EXTRACT NEXT ADDRESS
13070  M01S07002.ns2783  ---|          STDL   T2
13071  M01S07003.ns2783  ---|          LDD    T3          CHECK END OF LIST
13072  M01S07004.ns2783  ---|          CHTL   *
13073  M01S07005.ns2783  ---|          SBN    CH
13074  M01S07006.ns2783  ---|          NJN    MCI1        IF MORE INSTRUCTIONS TO MODIFY
Line S02981 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13075  M01S02981.ns2783  +++| SMC      SUBR               ENTRY/EXIT
13076  M01S02982.ns2783  +++|          LDK    MMFL        GET MMF WORD
13077  M01S02983.ns2783  +++|          CRD    CM
13078  M01S02984.ns2783  +++|          LDD    CM          SET MAINFRAME ID
13079  M01S02985.ns2783  +++|          STM    BSTA
13080  M01S02986.ns2783  +++|          LDD    CM+1
13081  M01S02987.ns2783  +++|          SHN    21-11
13082  M01S02988.ns2783  +++|          MJN    SMC1        IF SHARED BUFFERED DEVICES CONFIGURED
13083  M01S02989.ns2783  +++|          ISTORE CRIA,(UJN CRIX)  DISABLE MMF SLAVE RESET INTERLOCK
13084  M01S02990.ns2783  +++|          ISTORE SRIA,(UJN SRIX)
13085  M01S02991.ns2783  +++|          ISTORE CAAA,(UJN CAA8)  DISABLE CHECK FOR MMF PARITY RESTORE
13086  M01S02992.ns2783  +++|          ISTORE CETA,(UJN CETX)
13087  M01S02993.ns2783  +++|          UJN    SMCX        RESERVE CHANNEL
13088  M00S07007.1da     +++|
Line S07008 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13089  M01S07008.ns2783  ---| MCI      SUBR               ENTRY/EXIT
13090  M01S07009.ns2783  ---|          LDD    IR+4
13091  M01S07010.ns2783  ---|          LPN    37          EXTRACT CHANNEL NUMBER
13092  M01S07011.ns2783  ---|          STD    T3
13093  M01S07012.ns2783  ---|          RJM    C2D         CONVERT FOR OPERATOR MESSAGES
13094  M01S07013.ns2783  ---|          STM    SRSG+13
Line S00595 Modification History
M01 (Added by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13095  M02S00595.ns2783  ---|          STM    ERCR+10
13096  M02S00596.ns2783  ---|          STM    ERCD+16
13097  M02S00597.ns2783  ---|          STM    ERCE+16
Line S07014 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13098  M01S07014.ns2783  ---|          LDN    0           INITIALIZE REMOTE TABLE INDEX
13099  M01S07015.ns2783  ---|          STD    T1
13100  M01S07016.ns2783  ---|          UJN    MCI2        ENTER LOOP
Line S00532 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13101  M02S00532.ns2783  ---| SCT      SPACE  4,10
13102  M02S00533.ns2783  ---|**        SCT - SET CHANNEL TABLE ENTRY ADDRESSES.
13103  M02S00534.ns2783  ---|*
13104  M02S00535.ns2783  ---|*         ENTRY  (IR+4) = CHANNEL NUMBER.
13105  M02S00536.ns2783  ---|*
13106  M02S00537.ns2783  ---|*         USES   T1, T2, CM - CM+4.
13107  M02S00538.ns2783  ---|*
13108  M02S00539.ns2783  ---|*         CALLS  C2D, STA.
Line S02994 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13109  M01S02994.ns2783  +++| SMC1     LDD    CM+3        SET MACHINE MASKS
13110  M01S02995.ns2783  +++|          RAM    IPRB
13111  M01S02996.ns2783  +++|          LPN    77
13112  M01S02997.ns2783  +++|          RAM    CABA
13113  M01S02998.ns2783  +++|          LDD    CM+4        SET MACHINE INDEX
13114  M01S02999.ns2783  +++|          RAM    CFDA
13115  M01S03000.ns2783  +++|          STM    CFDB
13116  M01S03001.ns2783  +++|          LDD    CM+4        MACHINE INDEX
13117  M01S03002.ns2783  +++|          ADN    GPDA-1      *ACGL* BIT NUMBER
13118  M01S03003.ns2783  +++|          LMC    LCNI
13119  M01S03004.ns2783  +++|          STM    DMPA
13120  M01S03005.ns2783  +++|          LMC    LDNI&LCNI
13121  M01S03006.ns2783  +++|          STM    EMPA
13122  M01S03007.ns2783  +++|          UJP    SMCX        RETURN
13123  M01S03008.ns2783  +++|          SPACE  4,10
13124  M01S03009.ns2783  +++|*         CHECK FOR OVERFLOW.
Line S00540 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13125  M01S00540.283l840 +++|
13126  M01S00541.283l840 +++|
Line S00542 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13127  M02S00542.ns2783  ---| SCT      SUBR               ENTRY/EXIT
13128  M02S00543.ns2783  ---|          LDD    IR+4
13129  M02S00544.ns2783  ---|          STD    T1          SET CHANNEL NUMBER
13130  M02S00545.ns2783  ---|          STM    RCSA+3
13131  M02S00546.ns2783  ---|          RAM    PRSB
13132  M02S00547.ns2783  ---|          RJM    C2D         CONVERT FOR ERROR MESSAGE
13133  M02S00548.ns2783  ---|          STM    LDAA+6
13134  M02S00549.ns2783  ---|          LCN    0           WORD OFFSET
13135  M02S00550.ns2783  ---|          STD    T2
13136  M02S00551.ns2783  ---| SCT1     AOD    T2          INCREMENT WORD OFFSET
13137  M02S00552.ns2783  ---|          LCN    5
13138  M02S00553.ns2783  ---|          RAD    T1
13139  M02S00554.ns2783  ---|          PJN    SCT1        IF CHANNEL NOT IN THIS WORD
13140  M02S00555.ns2783  ---|          ADN    5
13141  M02S00556.ns2783  ---|          STD    T1
13142  M02S00557.ns2783  ---|          RAM    RCTA        SET BYTE OFFSET
13143  M02S00558.ns2783  ---|          LDD    T1
13144  M02S00559.ns2783  ---|          SHN    1           BYTE OFFSET * 2
13145  M02S00560.ns2783  ---|          ADD    T1          BYTE OFFSET * 3
13146  M02S00561.ns2783  ---|          SHN    2           BYTE OFFSET * 12
13147  M02S00562.ns2783  ---|          SBN    59D         (BYTE OFFSET * 12) - 59
13148  M02S00563.ns2783  ---|          LMC    -0          59 - (BYTE OFFSET * 12)
13149  M02S00564.ns2783  ---|          SBN    2
13150  M02S00565.ns2783  ---|          SHN    6
13151  M02S00566.ns2783  ---|          STM    SRFA+1      SET DRIVER FLAG BIT POSITION
13152  M02S00567.ns2783  ---|          LDK    CHTP
13153  M02S00568.ns2783  ---|          CRD    CM
13154  M02S00569.ns2783  ---|          LDD    T2          SET ADDRESS OF WORD IN CHANNEL TABLE
13155  M02S00570.ns2783  ---|          RAD    CM+3
13156  M02S00571.ns2783  ---|          SHN    -14
13157  M02S00572.ns2783  ---|          RAD    CM+2
13158  M02S00573.ns2783  ---| .CM2     EQU    CM+2
13159  M02S00574.ns2783  ---|          LDC    .CM2*20000+TCHT  SET CHANNEL TABLE ADDRESSES
13160  M02S00575.ns2783  ---|          RJM    STA
13161  M02S00576.ns2783  ---|          LJM    SCTX        RETURN
13162  M02S00577.ns2783  ---| SPA      SPACE  4,10
13163  M02S00578.ns2783  ---|**        SPA - SET PP EXCHANGE PACKAGE ADDRESSES.
13164  M02S00579.ns2783  ---|*
13165  M02S00580.ns2783  ---|*         USES   CM - CM+4, T1 - T5.
13166  M02S00581.ns2783  ---|*
13167  M02S00582.ns2783  ---|*         CALLS  STA.
Line S03010 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13168  M01S03010.ns2783  +++|          ERRNG  17777-*-5   OVERFLOW PAST END OF PP
Line S00583 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13169  M01S00583.283l840 +++|
13170  M01S00584.283l840 +++|
Line S00585 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13171  M02S00585.ns2783  ---| SPA      SUBR               ENTRY/EXIT
13172  M02S00586.ns2783  ---|          LDN    PXPP
13173  M02S00587.ns2783  ---|          CRD    CM          FETCH FWA OF PP EXCHANGE PACKAGE AREA
13174  M02S00588.ns2783  ---|          ADN    1
13175  M02S00589.ns2783  ---|          CRM    AMEA,ON     SET FIRST WORD OF PP EXCHANGE PACKAGE
13176  M02S00590.ns2783  ---|          ADN    PPCP-PXPP-2
13177  M02S00591.ns2783  ---|          CRD    T1          READ PP COMMUNICATION AREA POINTER
13178  M02S00592.ns2783  ---|          LDD    IA
13179  M02S00593.ns2783  ---|          STM    AMEA+4      SET (B0) NON-ZERO FOR EXCHANGE TEST
13180  M02S00594.ns2783  ---|          SBD    T1+4
13181  M02S00595.ns2783  ---|          SHN    -3          (A) = CPP NUMBER
13182  M02S00596.ns2783  ---|          SBN    24
13183  M02S00597.ns2783  ---|          SHN    6
13184  M02S00598.ns2783  ---|          STM    PRSB        INSERT CPP NUMBER IN BML MESSAGE
13185  M02S00599.ns2783  ---|          SHN    -6
13186  M02S00600.ns2783  ---|          ADN    24-2
13187  M02S00601.ns2783  ---|          STD    T1          CPP NUMBER - 2
13188  M02S00602.ns2783  ---|          SHN    4
13189  M02S00603.ns2783  ---|          ADD    T1          (CPP NUMBER - 2) * 21B
13190  M02S00604.ns2783  ---|          RAD    CM+4
13191  M02S00605.ns2783  ---|          SHN    -14
13192  M02S00606.ns2783  ---|          RAD    CM+3
13193  M02S00607.ns2783  ---| .CM3     EQU    CM+3
13194  M02S00608.ns2783  ---|          LDC    .CM3*20000+TEXP  SET EXCHANGE PACKAGE ADDRESSES
13195  M02S00609.ns2783  ---|          RJM    STA
13196  M02S00610.ns2783  ---|          LJM    SPAX        RETURN
13197  M02S00611.ns2783  ---| STA      SPACE  4,10
13198  M02S00612.ns2783  ---|**        STA - SET TABLE ADDRESSES.
13199  M02S00613.ns2783  ---|*
13200  M02S00614.ns2783  ---|*         ENTRY  (A) = 5/ TP, 13/ TA.
13201  M02S00615.ns2783  ---|*                (TP) = TABLE POINTER.
13202  M02S00616.ns2783  ---|*                (TA) = INSTRUCTION TABLE ADDRESS.
13203  M02S00617.ns2783  ---|*
13204  M02S00618.ns2783  ---|*         EXIT   (A) = 0.
13205  M02S00619.ns2783  ---|*
13206  M02S00620.ns2783  ---|*         USES   T1 - T3.
Line S03011 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13207  M01S03011.ns2783  +++|          QUAL   *
13208  M01S03012.ns2783  +++|          TTL    1DA - DISK ARRAY SUBSYSTEM (DAS) DRIVER.
Line S00621 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13209  M01S00621.283l840 +++|
13210  M01S00622.283l840 +++|
Line S00623 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13211  M02S00623.ns2783  ---| STA1     STDL   T2          SET INSTRUCTION ADDRESS
13212  M02S00624.ns2783  ---|          LDM    1,T1
13213  M02S00625.ns2783  ---|          RAM    1,T2        SET LOWER 12 BITS OF ADDRESS
13214  M02S00626.ns2783  ---|          SHN    -14
13215  M02S00627.ns2783  ---|          ADI    T1          SET UPPER 6 BITS OF ADDRESS
13216  M02S00628.ns2783  ---|          LPN    37
13217  M02S00629.ns2783  ---|          RAI    T2
13218  M02S00630.ns2783  ---|          AODL   T3          ADVANCE INSTRUCTION LIST
13219  M02S00631.ns2783  ---| STA2     LDIL   T3
13220  M02S00632.ns2783  ---|          NJN    STA1        IF NOT END OF TABLE
13221  M02S00633.ns2783  ---|
13222  M02S00634.ns2783  ---| STA      SUBR               ENTRY/EXIT
13223  M02S00635.ns2783  ---|          STDL   T3
13224  M02S00636.ns2783  ---|          SHN    -15         SET ADDRESS POINTER
13225  M02S00637.ns2783  ---|          STD    T1
13226  M02S00638.ns2783  ---|          LDDL   T3
13227  M02S00639.ns2783  ---|          LPC    17777
13228  M02S00640.ns2783  ---|          STDL   T3
13229  M02S00641.ns2783  ---|          UJN    STA2        ENTER LOOP
Line S07017 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13230  M01S07017.ns2783  ---| TCHA     SPACE  4,10
13231  M01S07018.ns2783  ---|**        TABLE OF CHANNEL INSTRUCTIONS ADDRESSES.
13232  M01S07019.ns2783  ---|
13233  M01S07020.ns2783  ---|
13234  M01S07021.ns2783  ---| TCHA     CHTB
13235  M01S07022.ns2783  ---|          RSTC               RESTORE CHANNEL INSTRUCTIONS
13236  M01S07023.ns2783  ---| TCBT     SPACE  4,10
13237  M01S07024.ns2783  ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *CBT*.
13238  M01S07025.ns2783  ---|
13239  M01S07026.ns2783  ---|
13240  M01S07027.ns2783  ---| TCBT     BSS    0
13241  M01S07028.ns2783  ---| TCBT     HERE
13242  M01S07029.ns2783  ---|          CON    0           TERMINATE TABLE
13243  M01S07030.ns2783  ---| TCCT     SPACE  4,10
13244  M01S07031.ns2783  ---|**        TABLE OF INSTRUCTIONS REQUIRING ADDRESS OF *CCT* ENTRY.
13245  M01S07032.ns2783  ---|
13246  M01S07033.ns2783  ---|
13247  M01S07034.ns2783  ---| TCCT     BSS    0
13248  M01S07035.ns2783  ---| TCCT     HERE
13249  M01S07036.ns2783  ---|          CON    0           TERMINATE TABLE
13250  M01S07037.ns2783  ---| TCHT     SPACE  4,10
13251  M01S07038.ns2783  ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF CHANNEL TABLE.
13252  M01S07039.ns2783  ---|
13253  M01S07040.ns2783  ---|
13254  M01S07041.ns2783  ---| TCHT     BSS    0
13255  M01S07042.ns2783  ---| TCHT     HERE
13256  M01S07043.ns2783  ---|          CON    0           TERMINATE TABLE
13257  M01S07044.ns2783  ---| TEMB     SPACE  4,10
13258  M01S07045.ns2783  ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *EMB*.
13259  M01S07046.ns2783  ---|
13260  M01S07047.ns2783  ---|
13261  M01S07048.ns2783  ---| TEMB     BSS    0
Line S00011 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13262  M02S00011.ns2783  ---|          QUAL   COMPIMB
Line S07049 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13263  M01S07049.ns2783  ---| TEMB     HERE
Line S00012 Modification History
M01 (Added by) ns2769
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13264  M02S00012.ns2783  ---|          QUAL   *
Line S07050 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13265  M01S07050.ns2783  ---|          CON    0           TERMINATE TABLE
13266  M01S07051.ns2783  ---| TEXP     SPACE  4,10
13267  M01S07052.ns2783  ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF PP EXCHANGE PACKAGE.
13268  M01S07053.ns2783  ---|
13269  M01S07054.ns2783  ---|
13270  M01S07055.ns2783  ---| TEXP     BSS    0
13271  M01S07056.ns2783  ---| TEXP     HERE
13272  M01S07057.ns2783  ---|          CON    0           TERMINATE TABLE
Line S07058 Modification History
M01 (Removed by) 1da8
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13273  M02S07058.ns2783  ---| TFTT     SPACE  4,10
13274  M02S07059.ns2783  ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *FTT*.
13275  M02S07060.ns2783  ---|
13276  M02S07061.ns2783  ---|
13277  M02S07062.ns2783  ---| TFTT     BSS    0
13278  M02S07063.ns2783  ---| TFTT     HERE
13279  M02S07064.ns2783  ---|          CON    0           TERMINATE TABLE
Line S07065 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13280  M01S07065.ns2783  ---| TPUT     SPACE  4,10
13281  M01S07066.ns2783  ---|**        TABLE OF INSTRUCTIONS REQUIRING FWA OF *PUT*.
13282  M01S07067.ns2783  ---|
13283  M01S07068.ns2783  ---|
13284  M01S07069.ns2783  ---| TPUT     BSS    0
13285  M01S07070.ns2783  ---| TPUT     HERE
13286  M01S07071.ns2783  ---|          CON    0           TERMINATE TABLE
Line S07072 Modification History
M01 (Removed by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13287  M02S07072.ns2783  ---| PRS      SPACE  4,15
13288  M02S07073.ns2783  ---|**        PRS - PRESET DRIVER FOR PROCESSING.
13289  M02S07074.ns2783  ---|*
13290  M02S07075.ns2783  ---|*         ENTRY  AT *PRS* WHEN DRIVER LOADED.
13291  M02S07076.ns2783  ---|*
13292  M02S07077.ns2783  ---|*         EXIT   TO *MRS+1* WHEN PRESET COMPLETE.
13293  M02S07078.ns2783  ---|*                (UC) = 0.
13294  M02S07079.ns2783  ---|*                TO *DAS5* IF CHANNEL DOWN.
13295  M02S07080.ns2783  ---|*
13296  M02S07081.ns2783  ---|*         USES   CT, PA, PT, UC, CM - CM+4, T2 - T7, WB - WB+4.
13297  M02S07082.ns2783  ---|*
13298  M02S07083.ns2783  ---|*         CALLS  CCP, IST, MCI, SCT, SPA, STA.
Line S00642 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13299  M02S00642.ns2783  ---|          SPACE  4,10
13300  M02S00643.ns2783  ---|          ERRNG  17777-*-5   CHECK FOR OVERFLOW
Line S07084 Modification History
M01 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
13301  M01S07084.ns2783  ---|
Line S07085 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13302  M01S07085.283l840 ---|
Line S07086 Modification History
M01 (Removed by) ns2762
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13303  M02S07086.283l840 ---| PRS      RJM    CCP         CHECK CALLING PROGRAM
Line S00001 Modification History
M01 (Added by) ns2762
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13304  M02S00001.283l840 ---| PRS      BSS    0           ENTRY
13305  M02S00002.283l840 ---|          LDD    IR+2        SAVE *CCT* ORDINAL
13306  M02S00003.283l840 ---|          STM    PRSA
13307  M02S00004.283l840 ---|          RJM    CCP         CHECK CALLING PROGRAM
Line S07087 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13308  M01S07087.283l840 ---|*         LDN    0
13309  M01S07088.283l840 ---|          STD    UC          SET NO UNITS RESERVED
13310  M01S07089.283l840 ---|          STD    PA          SET NO REQUEST IN PROGRESS
13311  M01S07090.283l840 ---|          STD    CT          DEFAULT TO 10 MB CHANNEL
13312  M01S07091.283l840 ---|          LDC    EDBF
13313  M01S07092.283l840 ---|          ERRPL  ENDD-EDBF   CODE DEPENDS ON VALUE
13314  M01S07093.283l840 ---|          STDL   T4
13315  M01S07094.283l840 ---|          RJM    MCI         MODIFY CHANNEL INSTRUCTIONS
13316  M01S07095.283l840 ---|*         LDN    0
13317  M01S07096.283l840 ---|          STD    CR          SET CHANNEL NOT RESERVED
13318  M01S07097.283l840 ---|
13319  M01S07098.283l840 ---|*         PRESET BML ERROR MESSAGE BUFFER.
13320  M01S07099.283l840 ---|
13321  M01S07100.283l840 ---| PRS1     STI    T4
13322  M01S07101.283l840 ---|          AODL   T4          ADVANCE BUFFER ADDRESS
13323  M01S07102.283l840 ---|          SHN    0-15
13324  M01S07103.283l840 ---|          ZJN    PRS1        IF NOT END OF BUFFER
13325  M01S07104.283l840 ---|          LDN    MLDY
13326  M01S07105.283l840 ---|          STM    MSGT
13327  M01S07106.283l840 ---|          RJM    SPA         SET PP EXCHANGE PACKAGE ADDRESSES
13328  M01S07107.283l840 ---|          IFEQ   TE,1        IF TRACE ENABLED
13329  M01S07108.283l840 ---|          LDM    BMLM+2
13330  M01S07109.283l840 ---|          SHN    -6
13331  M01S07110.283l840 ---|          LPN    17
13332  M01S07111.283l840 ---|          SBN    5
13333  M01S07112.283l840 ---|          ZJN    PRS2        IF PP5
13334  M01S07113.283l840 ---|          LDN    20
13335  M01S07114.283l840 ---| PRS2     ADN    20
13336  M01S07115.283l840 ---|          STM    TRBA        TRACE STARTING ADDRESS
13337  M01S07116.283l840 ---|          ADC    1400
13338  M01S07117.283l840 ---|          STM    TRB3
13339  M01S07118.283l840 ---|          ENDIF
13340  M01S07119.283l840 ---|          RJM    SCT         SET CHANNEL TABLE ADDRESSES
13341  M01S07120.283l840 ---|          LDK    BIOL
13342  M01S07121.283l840 ---|          CRD    CM          READ BUFFERED I/O POINTERS
13343  M01S07122.283l840 ---|          LDD    CM+1
13344  M01S07123.283l840 ---|          SHN    14
13345  M01S07124.283l840 ---|          LMD    CM+2
13346  M01S07125.283l840 ---|          ADN    FTTP        READ *FTT* POINTER
13347  M01S07126.283l840 ---|          CRD    T6
13348  M01S07127.283l840 ---|          SBN    FTTP-CCTP   READ *CCT* POINTER
13349  M01S07128.283l840 ---|          CRD    T4
13350  M01S07129.283l840 ---|          ADN    CBTP-CCTP   READ *CBT* POINTER
13351  M01S07130.283l840 ---|          CRD    WB
13352  M01S07131.283l840 ---|          SBN    CBTP-PUTP   READ *PUT* POINTER
13353  M01S07132.283l840 ---|          CRD    T2
13354  M01S07133.283l840 ---|          AOD    T2          SET NUMBER OF *PUT* ENTRIES
13355  M01S07134.283l840 ---|          STD    PT
13356  M01S07135.283l840 ---|          LDC    T5*20000+TPUT  SET *PUT* ADDRESSES
13357  M01S07136.283l840 ---|          RJM    STA
Line S07137 Modification History
M01 (Removed by) ns2762
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13358  M02S07137.283l840 ---|          LDD    IR+2        ADJUST CHANNEL CONTROL TABLE POINTER
Line S00005 Modification History
M01 (Added by) ns2762
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13359  M02S00005.283l840 ---|          LDC    **          ADJUST CHANNEL CONTROL TABLE POINTER
13360  M02S00006.283l840 ---| PRSA     EQU    *-1
13361  M02S00007.283l840 ---|          SCN    77
Line S07138 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13362  M01S07138.283l840 ---|          SHN    CCTLS-6
13363  M01S07139.283l840 ---|          RAD    CM
13364  M01S07140.283l840 ---|          SHN    -14
13365  M01S07141.283l840 ---|          RAD    T7
13366  M01S07142.283l840 ---|          LDC    T7*20000+TCCT  SET *CCT* ADDRESSES
13367  M01S07143.283l840 ---|          RJM    STA
13368  M01S07144.283l840 ---| .CM1     EQU    CM+1
13369  M01S07145.283l840 ---|          LDC    .CM1*20000+TFTT  SET *FTT* ADDRESSES
13370  M01S07146.283l840 ---|          RJM    STA
13371  M01S07147.283l840 ---| .WB3     EQU    WB+3
13372  M01S07148.283l840 ---|          LDC    .WB3*20000+TCBT  SET *CBT* ADDRESSES
13373  M01S07149.283l840 ---|          RJM    STA
13374  M01S07150.283l840 ---|          LDN    EMBP        FETCH *EMB* POINTER
13375  M01S07151.283l840 ---|          CRD    CM
13376  M01S07152.283l840 ---|          LDC    .CM1*20000+TEMB  SET *EMB* ADDRESSES
13377  M01S07153.283l840 ---|          RJM    STA
13378  M01S07154.283l840 ---|          LDK    UEML
13379  M01S07155.283l840 ---|          CRD    CM          READ UEM POINTERS
13380  M01S07156.283l840 ---|          LDD    CM
13381  M01S07157.283l840 ---|          SHN    11
13382  M01S07158.283l840 ---|*         SHN    11+EMSC
13383  M01S07159.283l840 ---|          SCN    77
13384  M01S07160.283l840 ---|          STM    SUAA        SET FWA OF UEM
13385  M01S07161.283l840 ---|          LDD    CM
13386  M01S07162.283l840 ---|          SHN    -3
13387  M01S07163.283l840 ---|*         SHN    EMSC-3
13388  M01S07164.283l840 ---|          STM    SUAB
13389  M01S07165.283l840 ---|          LDK    MMFL        FETCH MACHINE ID
13390  M01S07166.283l840 ---|          CRD    CM
13391  M01S07167.283l840 ---|          LDD    CM          SET MAINFRAME ID FOR BML MESSAGES
13392  M01S07168.283l840 ---|          STM    MFID
13393  M01S07169.283l840 ---|          RJM    IST         INITIALIZE DEVICE STATE TABLE
13394  M01S07170.283l840 ---|          ZJN    PRS4        IF NO DEVICES FOR THIS DRIVER
13395  M01S07171.283l840 ---|          LJM    CCR2        RESERVE CHANNEL
13396  M01S07172.283l840 ---|
13397  M01S07173.283l840 ---| PRS3     NJN    MRS         IF CHANNEL NOT DOWN
13398  M01S07174.283l840 ---| PRS4     LJM    DAS5        DROP CPP
13399  M01S07175.283l840 ---| MRS      SPACE  4,10
13400  M01S07176.283l840 ---|**        MRS - MASTER RESET SLAVES.
13401  M01S07177.283l840 ---|*
13402  M01S07178.283l840 ---|*         EXIT   TO *CMP* IF RESET SUCCESSFUL.
13403  M01S07179.283l840 ---|*                TO *DAS1* IF NO UNIT COULD BE INTERLOCKED.
13404  M01S07180.283l840 ---|*
13405  M01S07181.283l840 ---|*         USES   DI, TA, T1.
13406  M01S07182.283l840 ---|*
13407  M01S07183.283l840 ---|*         CALLS  FCN, IDU, LDP, RCR.
13408  M01S07184.283l840 ---|*
13409  M01S07185.283l840 ---|*         MACROS WAIT.
13410  M01S07186.283l840 ---|
13411  M01S07187.283l840 ---|
13412  M01S07188.283l840 ---| MRS      BSS    0           ENTRY
13413  M01S07189.283l840 ---|          LDC    DSTB        FIRST DEVICE TABLE ADDRESS
13414  M01S07190.283l840 ---| MRS1     STDL   DI
13415  M01S07191.283l840 ---|          STDL   TA
13416  M01S07192.283l840 ---|          LMM    DASA
13417  M01S07193.283l840 ---|          ZJP    DAS1        IF NO UNIT COULD BE INTERLOCKED
13418  M01S07194.283l840 ---|          RJM    LDP         LOAD DEVICE PARAMETERS
13419  M01S07195.283l840 ---|          RJM    IDU         INTERLOCK DISK UNIT
13420  M01S07196.283l840 ---|          ZJN    MRS2        IF UNIT INTERLOCKED
13421  M01S07197.283l840 ---|          LDN    DSTBE
13422  M01S07198.283l840 ---|          ADD    DI
13423  M01S07199.283l840 ---|          UJN    MRS1        TRY TO INTERLOCK NEXT DRIVE
13424  M01S07200.283l840 ---|
13425  M01S07201.283l840 ---| MRS2     RJM    RCR         MASTER CLEAR CHANNEL
13426  M01S07202.283l840 ---|          LDN    1
13427  M01S07203.283l840 ---|          STD    T1
13428  M01S07204.283l840 ---|          SHN    13-0        POSITION PORT NUMBER
13429  M01S07205.283l840 ---| MRS3     LMML   PAS,CT
13430  M01S07206.283l840 ---|          RJM    FCN         SELECT ADAPTER PORT
13431  M01S07207.283l840 ---|          LDC    F9213
13432  M01S07208.283l840 ---|          RJM    FCN         ISSUE MASTER RESET
13433  M01S07209.283l840 ---|          WAIT   10
13434  M01S07210.283l840 ---|          LDDL   LF          LAST FUNCTION
13435  M01S07211.283l840 ---|          SCN    2
13436  M01S07212.283l840 ---|          RJM    FCN         CLEAR SYNC OUT
13437  M01S07213.283l840 ---|          SOD    T1
13438  M01S07214.283l840 ---|          ZJN    MRS3        IF ANOTHER PORT TO PROCESS
13439  M01S07215.283l840 ---|          LJM    CMP         EXIT/CLEAR UNIT INTERLOCK
13440  M01S07216.283l840 ---| SCT      SPACE  4,10
13441  M01S07217.283l840 ---|**        SCT - SET CHANNEL TABLE ENTRY ADDRESSES.
13442  M01S07218.283l840 ---|*
13443  M01S07219.283l840 ---|*         ENTRY  (IR+4) = CHANNEL NUMBER.
13444  M01S07220.283l840 ---|*
13445  M01S07221.283l840 ---|*         USES   T1, T2, CM - CM+4.
13446  M01S07222.283l840 ---|*
13447  M01S07223.283l840 ---|*         CALLS  C2D, STA.
13448  M01S07224.283l840 ---|
13449  M01S07225.283l840 ---|
13450  M01S07226.283l840 ---| SCT      SUBR               ENTRY/EXIT
13451  M01S07227.283l840 ---|          LDD    IR+4
13452  M01S07228.283l840 ---|          STD    T1          SET CHANNEL NUMBER
13453  M01S07229.283l840 ---|          STM    RCSA+3
13454  M01S07230.283l840 ---|          RAM    BMLM+2
13455  M01S07231.283l840 ---|          RJM    C2D         CONVERT FOR ERROR MESSAGE
13456  M01S07232.283l840 ---|          STM    LDAA+6
13457  M01S07233.283l840 ---|          LCN    0           WORD OFFSET
13458  M01S07234.283l840 ---|          STD    T2
13459  M01S07235.283l840 ---| SCT1     AOD    T2          INCREMENT WORD OFFSET
13460  M01S07236.283l840 ---|          LCN    5
13461  M01S07237.283l840 ---|          RAD    T1
13462  M01S07238.283l840 ---|          PJN    SCT1        IF CHANNEL NOT IN THIS WORD
13463  M01S07239.283l840 ---|          ADN    5
13464  M01S07240.283l840 ---|          STD    T1
13465  M01S07241.283l840 ---|          RAM    RCTA        SET BYTE OFFSET
13466  M01S07242.283l840 ---|          LDD    T1
13467  M01S07243.283l840 ---|          SHN    1           BYTE OFFSET * 2
13468  M01S07244.283l840 ---|          ADD    T1          BYTE OFFSET * 3
13469  M01S07245.283l840 ---|          SHN    2           BYTE OFFSET * 12
13470  M01S07246.283l840 ---|          SBN    59D         (BYTE OFFSET * 12) - 59
13471  M01S07247.283l840 ---|          LMC    -0          59 - (BYTE OFFSET * 12)
13472  M01S07248.283l840 ---|          SBN    2
13473  M01S07249.283l840 ---|          SHN    6
13474  M01S07250.283l840 ---|          STM    SRFA+1      SET DRIVER FLAG BIT POSITION
13475  M01S07251.283l840 ---|          LDK    CHTP
13476  M01S07252.283l840 ---|          CRD    CM
13477  M01S07253.283l840 ---|          LDD    T2          SET ADDRESS OF WORD IN CHANNEL TABLE
13478  M01S07254.283l840 ---|          RAD    CM+3
13479  M01S07255.283l840 ---|          SHN    -14
13480  M01S07256.283l840 ---|          RAD    CM+2
13481  M01S07257.283l840 ---| .CM2     EQU    CM+2
13482  M01S07258.283l840 ---|          LDC    .CM2*20000+TCHT  SET CHANNEL TABLE ADDRESSES
13483  M01S07259.283l840 ---|          RJM    STA
13484  M01S07260.283l840 ---|          LJM    SCTX        RETURN
13485  M01S07261.283l840 ---| SPA      SPACE  4,10
13486  M01S07262.283l840 ---|**        SPA - SET PP EXCHANGE PACKAGE ADDRESSES.
13487  M01S07263.283l840 ---|*
13488  M01S07264.283l840 ---|*         USES   CM - CM+4, T1 - T5.
13489  M01S07265.283l840 ---|*
13490  M01S07266.283l840 ---|*         CALLS  STA.
13491  M01S07267.283l840 ---|
13492  M01S07268.283l840 ---|
13493  M01S07269.283l840 ---| SPA      SUBR               ENTRY/EXIT
13494  M01S07270.283l840 ---|          LDN    PXPP
13495  M01S07271.283l840 ---|          CRD    CM          FETCH FWA OF PP EXCHANGE PACKAGE AREA
13496  M01S07272.283l840 ---|          ADN    1
13497  M01S07273.283l840 ---|          CRM    AMEA,ON     SET FIRST WORD OF PP EXCHANGE PACKAGE
13498  M01S07274.283l840 ---|          ADN    PPCP-PXPP-2
13499  M01S07275.283l840 ---|          CRD    T1          READ PP COMMUNICATION AREA POINTER
13500  M01S07276.283l840 ---|          LDD    IA
13501  M01S07277.283l840 ---|          STM    AMEA+4      SET (B0) NON-ZERO FOR EXCHANGE TEST
13502  M01S07278.283l840 ---|          SBD    T1+4
13503  M01S07279.283l840 ---|          SHN    -3          (A) = CPP NUMBER
13504  M01S07280.283l840 ---|          SBN    24
13505  M01S07281.283l840 ---|          SHN    6
13506  M01S07282.283l840 ---|          STM    BMLM+2      INSERT CPP NUMBER IN BML MESSAGE
13507  M01S07283.283l840 ---|          SHN    -6
13508  M01S07284.283l840 ---|          ADN    24-2
13509  M01S07285.283l840 ---|          STD    T1          CPP NUMBER - 2
13510  M01S07286.283l840 ---|          SHN    4
13511  M01S07287.283l840 ---|          ADD    T1          (CPP NUMBER - 2) * 21B
13512  M01S07288.283l840 ---|          RAD    CM+4
13513  M01S07289.283l840 ---|          SHN    -14
13514  M01S07290.283l840 ---|          RAD    CM+3
13515  M01S07291.283l840 ---| .CM3     EQU    CM+3
13516  M01S07292.283l840 ---|          LDC    .CM3*20000+TEXP  SET EXCHANGE PACKAGE ADDRESSES
13517  M01S07293.283l840 ---|          RJM    STA
13518  M01S07294.283l840 ---|          LJM    SPAX        RETURN
13519  M01S07295.283l840 ---| STA      SPACE  4,10
Line S07296 Modification History
M01 (Removed by) ns2769
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13520  M02S07296.283l840 ---|**        STA - SET BUFFERED DEVICE TABLE ADDRESSES.
Line S00013 Modification History
M01 (Added by) ns2769
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13521  M02S00013.283l840 ---|**        STA - SET TABLE ADDRESSES.
Line S07297 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13522  M01S07297.283l840 ---|*
13523  M01S07298.283l840 ---|*         ENTRY  (A) = 5/ TP, 13/ TA.
Line S07299 Modification History
M01 (Removed by) ns2769
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13524  M02S07299.283l840 ---|*                (TP) = BUFFERED DEVICE TABLE POINTER.
Line S00014 Modification History
M01 (Added by) ns2769
M02 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13525  M02S00014.283l840 ---|*                (TP) = TABLE POINTER.
Line S07300 Modification History
M01 (Removed by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
13526  M01S07300.283l840 ---|*                (TA) = INSTRUCTION TABLE ADDRESS.
13527  M01S07301.283l840 ---|*
13528  M01S07302.283l840 ---|*         EXIT   (A) = 0.
13529  M01S07303.283l840 ---|*
13530  M01S07304.283l840 ---|*         USES   T1 - T3.
13531  M01S07305.283l840 ---|
13532  M01S07306.283l840 ---|
13533  M01S07307.283l840 ---| STA1     STDL   T2          SET INSTRUCTION ADDRESS
13534  M01S07308.283l840 ---|          LDM    1,T1
13535  M01S07309.283l840 ---|          RAM    1,T2        SET LOWER 12 BITS OF ADDRESS
13536  M01S07310.283l840 ---|          SHN    -14
13537  M01S07311.283l840 ---|          ADI    T1          SET UPPER 6 BITS OF ADDRESS
13538  M01S07312.283l840 ---|          LPN    37
13539  M01S07313.283l840 ---|          RAI    T2
13540  M01S07314.283l840 ---|          AODL   T3          ADVANCE INSTRUCTION LIST
13541  M01S07315.283l840 ---| STA2     LDIL   T3
13542  M01S07316.283l840 ---|          NJN    STA1        IF NOT END OF TABLE
13543  M01S07317.283l840 ---|
13544  M01S07318.283l840 ---| STA      SUBR               ENTRY/EXIT
13545  M01S07319.283l840 ---|          STDL   T3
13546  M01S07320.283l840 ---|          SHN    -15         SET ADDRESS POINTER
13547  M01S07321.283l840 ---|          STD    T1
13548  M01S07322.283l840 ---|          LDDL   T3
13549  M01S07323.283l840 ---|          LPC    17777
13550  M01S07324.283l840 ---|          STDL   T3
13551  M01S07325.283l840 ---|          UJN    STA2        ENTER LOOP
13552  M01S07326.283l840 ---|          SPACE  4,10
13553  M01S07327.283l840 ---| ENDD     BSS    0           END OF DRIVER
13554  M01S07328.283l840 ---|          SPACE  4,10
13555  M01S07329.283l840 ---|          OVERFLOW  OCMD,20000
13556  M01S07330.283l840 ---|
13557  M00S07331.1da     +++|          END
cdc/nos2.source/opl.opl871/deck/1da.011.txt ยท Last modified: by 127.0.0.1