User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:cpumtr.034

Deck CPUMTR Part 034

308 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
44089  M02S01893.273l780 ---|          LX2    36
44090  M02S01894.273l780 ---|          BX7    -X1*X7      CLEAR INACCESSIBLE FLAG IF *UCTM* SET
44091  M02S01895.273l780 ---|          BX3    X3+X2
44092  M02S01896.273l780 ---|          LX7    6+24-59
44093  M02S01897.273l780 ---|          BX0    X3+X7
44094  M02S01898.273l780 ---|          SX6    1           PRESERVE PROGRAM/MONITOR MODE INTERLOCK
44095  M02S01899.273l780 ---|          BX7    X5
44096  M02S01900.273l780 ---|          SB5    CHR15       *CDI* RETURN ADDRESS
44097  M02S01901.273l780 ---|          EQ     /ISD/CDI    CLEAR *MCLL* BITS
Line S00884 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44098  M01S00884.273l780 +++| CHR14    SA3    /MONITOR/TFPL-1+/MONITOR/LA3RX  GET *3RX* PLD POINTER
44099  M01S00885.273l780 +++|          SX6    B1          PRESERVE PROGRAM/MONITOR MODE INTERLOCK
44100  M01S00886.273l780 +++|          SB5    B0          SET DIRECT RETURN FROM *CDI*
44101  M01S00887.273l780 +++|          SB4    X3+         *3RX* PLD ADDRESS
44102  M01S00888.273l780 +++|          SB3    CHR15       SET *CDI* RETURN ADDRESS
44103  M01S00889.273l780 +++|          NZ     B4,/ISD/CDI IF PLD NOT BEING MODIFIED
44104  M01S00890.273l780 +++|          EQ     CHR12       REJECT REQUEST
Line S01902 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44105  M01S01902.253l688 +++|
Line S01903 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44106  M02S01903.273l780 ---| CHR15    BX3    X0          *BOTM* PARAMETERS
Line S01904 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum217
M03 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44107  M03S01904.273l780 ---|          SB5    B0          NO PP SAVE AREA
44108  M03S01905.273l780 ---|          EQ     /MONITOR/IBF2  ISSUE *BOTM*
Line S00052 Modification History
M01 (Added by) cpum217
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44109  M02S00052.273l780 ---|          SB5    PPR1        SET RETURN ADDRESS
44110  M02S00053.273l780 ---|          EQ     /MONITOR/IBF  ISSUE *BOTM*
Line S00891 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44111  M01S00891.273l780 +++| CHR15    SA5    A5+         GET ORIGINAL OUTPUT REGISTER
44112  M01S00892.273l780 +++|          MX6    1
44113  M01S00893.273l780 +++|          BX7    X6*X7
44114  M01S00894.273l780 +++|          BX7    X6-X7       SET *MSD* SUBSYSTEM STATUS
44115  M01S00895.273l780 +++|          SB3    PPRX        SET *EFP* RETURN ADDRESS
44116  M01S00896.273l780 +++|          UX5    X5          SET OUTPUT REGISTER PARAMETERS
44117  M01S00897.273l780 +++|          EQ     /MONITOR/EFP  CALL *3RX* AND EXIT
Line S01906 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44118  M01S01906.253l688 +++| CHR      SPACE  4,10
44119  M01S01907.253l688 +++|**        IFT - ISHARED FUNCTION TABLE GENERATOR.
44120  M01S01908.253l688 +++|*
44121  M01S01909.253l688 +++|*         *IFT* DEFINES THE FUNCTION PROCESSOR, PP HELPER, AND
44122  M01S01910.253l688 +++|*         BOOTSTRAP PROGRAM FOR EACH ISHARED FUNCTION.  IT ALSO BUILDS
44123  M01S01911.253l688 +++|*         A MICRO WHICH WILL CREATE A BIT MAP OF THE ISHARED FUNCTIONS.
44124  M01S01912.253l688 +++|*
44125  M01S01913.253l688 +++|* FUNC    IFT    BOOT,HELPER,PROCR
44126  M01S01914.253l688 +++|*
44127  M01S01915.253l688 +++|*         ENTRY  *BOOT* = BOOTSTRAP PROGRAM NAME.
44128  M01S01916.253l688 +++|*                *HELPER* = HELPER PP NAME.
44129  M01S01917.253l688 +++|*                *PROCR* = *CPUMTR* PROCESSOR FOR FUNCTION.
44130  M01S01918.253l688 +++|
44131  M01S01919.253l688 +++|
44132  M01S01920.253l688 +++|          PURGMAC  IFT
44133  M01S01921.253l688 +++|
44134  M01S01922.253l688 +++|          MACRO  IFT,FUNC,BOOT,HELPER,PROCR
44135  M01S01923.253l688 +++| P        ERRPL  .1-FUNC     FUNCTIONS MUST BE IN ASCENDING ORDER
44136  M01S01924.253l688 +++| P        ERRNG  LA1RU-LA_HELPER  ASSUMED BY *PROHIBIT TRT UPDATE* TEST
44137  M01S01925.253l688 +++|          LOC    FUNC
44138  M01S01926.253l688 +++| .1       SET    FUNC
44139  M01S01927.253l688 +++| .A       IFC    EQ,$HELPER$1RU$
44140  M01S01928.253l688 +++| .B       IFC    EQ,$FUNC$DTKM$
44141  M01S01929.253l688 +++|          VFD    1/1,1/1,10/,6/0,6/LA_HELPER,6/LA_BOOT,1/1,11/,18/PROCR
44142  M01S01930.253l688 +++| .B       ELSE
44143  M01S01931.253l688 +++|          VFD    1/1,1/0,10/,6/0,6/LA_HELPER,6/LA_BOOT,1/1,11/,18/PROCR
44144  M01S01932.253l688 +++| .B       ENDIF
44145  M01S01933.253l688 +++| .A       ELSE
44146  M01S01934.253l688 +++|          VFD    1/0,11/,6/0,6/LA_HELPER,6/LA_BOOT,1/0,11/,18/PROCR
44147  M01S01935.253l688 +++| .A       ENDIF
44148  M01S01936.253l688 +++|          LOC    *O
44149  M01S01937.253l688 +++| .1       DECMIC FUNC-CPUM
44150  M01S01938.253l688 +++| .M       MICRO  1,,$1S".1"+".M"$
44151  M01S01939.253l688 +++| IFT      ENDM
44152  M01S01940.253l688 +++|
Line S00001 Modification History
M01 (Added by) cpum226
Seq #  *Modification Id* Act 
----------------------------+
44153  M01S00001.cpum226 +++|          QUAL   MONITOR
Line S01941 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44154  M01S01941.253l688 +++| .M       MICRO  0,,
44155  M01S01942.253l688 +++| .1       SET    0
44156  M01S01943.253l688 +++|
44157  M01S01944.253l688 +++|
44158  M01S01945.253l688 +++|**        TABLE OF ISHARED MONITOR FUNCTIONS.
44159  M01S01946.253l688 +++|*
44160  M01S01947.253l688 +++|*T        1/R, 1/D, 10/ ,18/ *IBF* PARAMETERS ,1/R, 11/ ,18/ PROCESSOR.
Figure

017182829 PROCESSOR. R304748575859 *IBF* PARAMETERS DR

44161  M01S01948.253l688 +++|*
44162  M01S01949.253l688 +++|*         R      1 = HELPER PP IS *1RU*.
44163  M01S01950.253l688 +++|*         D      1 = FUNCTION IS *DTKM*.
44164  M01S01951.253l688 +++|
44165  M01S01952.253l688 +++|
Line S01953 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum226
Seq #  *Modification Id* Act 
----------------------------+
44166  M02S01953.cpum226 ---|          QUAL   MONITOR
Line S01954 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44167  M01S01954.253l688 +++| AFAM     IFT    1BP,1FA,.AFAM
44168  M01S01955.253l688 +++| DLKM     IFT    1BP,1RU,PMR
44169  M01S01956.253l688 +++| DTKM     IFT    1BP,1RU,.DTKM
44170  M01S01957.253l688 +++| RTCM     IFT    1BP,1RU,PMR
44171  M01S01958.253l688 +++| STBM     IFT    1BP,1RU,/PROGRAM/CTR1
44172  M01S01959.253l688 +++| VMSM     IFT    1BP,1RU,PMR
44173  M01S01960.253l688 +++|          QUAL   *
44174  M01S01961.253l688 +++|
44175  M01S01962.253l688 +++| CHRA     CON    ".M"        ISHARED FUNCTION BIT MAP
44176  M01S01963.253l688 +++|
44177  M01S01964.253l688 +++| CHRB     CON    **          CURRENT MST *MCLL* ADDRESS
44178  M01S01965.253l688 +++| AMM      SPACE  4,10
44179  M01S01966.253l688 +++|**        AMM - ACTIVATE MONITOR MODE (PROGRAM MODE).
44180  M01S01967.253l688 +++|*
44181  M01S01968.253l688 +++|*         ENTRY  (X0) = PP REQUEST.
44182  M01S01969.253l688 +++|*                (B3) = EXIT ADDRESS.
44183  M01S01970.253l688 +++|*
44184  M01S01971.253l688 +++|*         USES   X - 6.
44185  M01S01972.253l688 +++|*                A - 6.
44186  M01S01973.253l688 +++|
44187  M01S01974.253l688 +++|
44188  M01S01975.253l688 +++|          QUAL   PROGRAM
44189  M01S01976.253l688 +++| AMM      SX6    -2          SET *MTR*-LIKE REQUEST TO MONITOR MODE
44190  M01S01977.253l688 +++|          SA6    PX
44191  M01S01978.253l688 +++|
44192  M01S01979.253l688 +++|          MJ                 EXCHANGE TO MONITOR MODE
44193  M01S01980.253l688 +++|
44194  M01S01981.253l688 +++|          JP     B3          RETURN
44195  M01S01982.253l688 +++|          QUAL   *
Line S01983 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44196  M02S01983.273l780 ---| CDI      SPACE  4,25
Line S00898 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44197  M01S00898.273l780 +++| CDI      SPACE  4,35
Line S01984 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44198  M01S01984.253l688 +++|**        CDI - CLEAR DEVICE INTERLOCK EXTENSION FOR ISHARED DEVICES.
44199  M01S01985.253l688 +++|*
44200  M01S01986.253l688 +++|*         *CDI* CLEARS THE PP-S REQUEST-IN-PROGRESS AND SET-REISSUE-BIT
44201  M01S01987.253l688 +++|*         BITS.  IF THE REQUEST ORIGINATED FROM THE PP THAT IS RUNNING
44202  M01S01988.253l688 +++|*         *1RU*, *CDI* ALSO CLEARS THE LATENCY ACTIVITY BIT.  IF ALL
44203  M01S01989.253l688 +++|*         THE ACTIVITY BITS IN *MCLL* ARE CLEARED, *CDI* CLEARS THE
44204  M01S01990.253l688 +++|*         TABLES-CURRENT FLAG IN *SDGL*.  SINCE CLEARING TABLES-CURRENT
44205  M01S01991.253l688 +++|*         CAN BE DONE IN MONITOR MODE, WITH OR WITHOUT THE *CPUMTR*
44206  M01S01992.253l688 +++|*         INTERLOCK SET, AND CAN ALSO BE DONE IN PROGRAM MODE, INSURING
44207  M01S01993.253l688 +++|*         THE INTEGRITY OF *SDGL* REQUIRES RESTRICTIONS ON THE CHANGES
44208  M01S01994.253l688 +++|*         THAT CAN BE MADE TO *SDGL* FROM THE TIME IT IS FETCHED BY
44209  M01S01995.253l688 +++|*         *CDI* IN THE *PROGRAM* BLOCK AND STORED BY *CDI* IN THE *ISD*
44210  M01S01996.253l688 +++|*         BLOCK.
44211  M01S01997.253l688 +++|*         THE CODE AT *CDI2* ASSUMES THAT THE ONLY CHANGES THAT WILL BE
44212  M01S01998.253l688 +++|*         MADE ARE THE CLEARING OF BITS, NAMELY THE *CPUMTR* INTERLOCK
44213  M01S01999.253l688 +++|*         AND THE TABLES-CURRENT BITS.
44214  M01S02000.253l688 +++|*
44215  M01S02001.253l688 +++|*         ENTRY  (A4) = *SDGL* ADDRESS.
44216  M01S02002.253l688 +++|*                (A5) = OUTPUT REGISTER ADDRESS.
44217  M01S02003.253l688 +++|*                (X6) = BIT 0 OF *SDGL* MASK.
44218  M01S02004.253l688 +++|*                       0, IF CLEARING PROGRAM/MONITOR MODE INTERLOCK.
44219  M01S02005.253l688 +++|*                       1, IF PRESERVING INTERLOCK.
Line S02006 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44220  M02S02006.273l780 ---|*                (X7) = OUTPUT REGISTER.
44221  M02S02007.273l780 ---|*                (B5) = *CSM* RETURN ADDRESS.
Line S00899 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44222  M01S00899.273l780 +++|*                (X7) = OUTPUT REGISTER IF TO EXIT TO *CSM*.
44223  M01S00900.273l780 +++|*                (B5) = *CSM* RETURN ADDRESS IF .NE. 0.
44224  M01S00901.273l780 +++|*                (B3) = RETURN ADDRESS IF (B5) .EQ. 0.
44225  M01S00902.273l780 +++|*
44226  M01S00903.273l780 +++|*         EXIT   TO *CSM* IF (B5) .NE. 0 ON ENTRY.
44227  M01S00904.273l780 +++|*                TO (B3) RETURN ADDRESS IF (B5) .EQ. 0 ON ENTRY.
44228  M01S00905.273l780 +++|*
44229  M01S00906.273l780 +++|*         USES   X - 1, 2, 3, 4, 5, 6.
44230  M01S00907.273l780 +++|*                A - 3, 4, 6.
44231  M01S00908.273l780 +++|*                B - 6.
Line S02008 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44232  M01S02008.253l688 +++|
44233  M01S02009.253l688 +++|
44234  M01S02010.253l688 +++| CDI      BSS    0
44235  M01S02011.253l688 +++|          SA3    A4+MCLL-SDGL  CLEAR ACTIVITY BITS
44236  M01S02012.253l688 +++|          TX2    A5-1+10B,-FP  GET PP BIT
44237  M01S02013.253l688 +++|          MX5    59          SAVE PROGRAM/MONITOR MODE INTERLOCK
44238  M01S02014.253l688 +++|          AX2    3
44239  M01S02015.253l688 +++|          BX4    X5+X6
44240  M01S02016.253l688 +++|          MX1    12          CHECK FOR CALL FROM *1RU*
44241  M01S02017.253l688 +++|          BX1    X1*X3
44242  M01S02018.253l688 +++|          SB6    X2+
44243  M01S02019.253l688 +++|          LX1    12
44244  M01S02020.253l688 +++|          SX3    A5
44245  M01S02021.253l688 +++|          LX2    X5,B6
44246  M01S02022.253l688 +++|          BX3    X1-X3
44247  M01S02023.253l688 +++|          LX6    X5,B6       CLEAR SET-REISSUE
44248  M01S02024.253l688 +++|          LX2    21
44249  M01S02025.253l688 +++|          NZ     X3,CDI1     IF NOT FROM *1RU*
44250  M01S02026.253l688 +++|          BX6    X6*X5       CLEAR LATENCY ACTIVITY BIT
44251  M01S02027.253l688 +++| CDI1     BX6    X6*X2       CLEAR REQUEST-IN-PROGRESS
44252  M01S02028.253l688 +++|          MX2    -42
44253  M01S02029.253l688 +++|          LX5    6
44254  M01S02030.253l688 +++|+         SA3    A3          **** PERFORM IN ONE WORD ****
44255  M01S02031.253l688 +++|          BX6    X6*X3       **** PERFORM IN ONE WORD ****
44256  M01S02032.253l688 +++|          SA6    A3          **** PERFORM IN ONE WORD ****
44257  M01S02033.253l688 +++|          SA3    A4          **** PERFORM IN ONE WORD ****
44258  M01S02034.253l688 +++|          BX2    -X2*X6      CHECK FOR NO OUTSTANDING FUNCTIONS
44259  M01S02035.253l688 +++|          BX6    X4
44260  M01S02036.253l688 +++|          LX4    X3,B1       CHECK TABLES CURRENT
44261  M01S02037.253l688 +++|          SX3    B0          MST/TRT UPDATE COUNTER INCREMENT
44262  M01S02038.253l688 +++|          PL     X4,CDI2     IF TABLES ARE NOT CURRENT
44263  M01S02039.253l688 +++|          ZR     X1,CDI2     IF *1RU* IS NOT ACTIVE
44264  M01S02040.253l688 +++|          NZ     X2,CDI2     IF FUNCTIONS REMAIN
44265  M01S02041.253l688 +++|          PX6    X6          CLEAR TABLES CURRENT BIT
44266  M01S02042.253l688 +++|          BX3    -X5         INCREMENT MST/TRT UPDATE COUNTER
44267  M01S02043.253l688 +++| CDI2     SA4    A4          **** PERFORM IN ONE WORD ****
44268  M01S02044.253l688 +++|          BX6    X6*X4       **** PERFORM IN ONE WORD ****
44269  M01S02045.253l688 +++|          IX6    X6+X3       **** PERFORM IN ONE WORD ****
44270  M01S02046.253l688 +++|          SA6    A4          **** PERFORM IN ONE WORD ****
Line S02047 Modification History
M01 (Added by) 253l688
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44271  M02S02047.273l780 ---|          EQ     /PROGRAM/CSM1  CHECK FOR STORAGE MOVE
Line S00909 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44272  M01S00909.273l780 +++|          NZ     B5,/PROGRAM/CSM1  IF EXIT VIA *CSM*
44273  M01S00910.273l780 +++|          JP     B3          RETURN
Line S02048 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44274  M01S02048.253l688 +++| CTR      SPACE  4,10
44275  M01S02049.253l688 +++|**        CTR - *CTR* ISHARED PROCESSING.
44276  M01S02050.253l688 +++|
44277  M01S02051.253l688 +++|
44278  M01S02052.253l688 +++| CTR3     BX0    X3          SET TRT LENGTH
44279  M01S02053.253l688 +++|          AX0    24
44280  M01S02054.253l688 +++|          BX0    -X5*X0
44281  M01S02055.253l688 +++|          SB4    X0
44282  M01S02056.253l688 +++|          BX0    X0-X0
44283  M01S02057.253l688 +++|          PX0    X0,B4
44284  M01S02058.253l688 +++|          ZR     B6,/PROGRAM/CTR2  IF NO INTERLOCK
44285  M01S02059.253l688 +++|          EQ     /PROGRAM/CTR1.1  INTERLOCK MST
44286  M01S02060.253l688 +++| MNR      SPACE  4,10
44287  M01S02061.253l688 +++|**        *MNR* EXTENSION FOR ISHARED PROCESSING.
44288  M01S02062.253l688 +++|*
44289  M01S02063.253l688 +++|*         PROCESS *MTR*-LIKE FUNCTION.
Line S02077 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
44290  M01S02077.271l750 +++|*
44291  M01S02078.271l750 +++|*         ENTRY  (X3) = MONITOR MODE START TIME.
Line S02064 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44292  M01S02064.253l688 +++|
44293  M01S02065.253l688 +++|
44294  M01S02066.253l688 +++| MNR5     NE     B3,B1,/MONITOR/MNR5  IF NOT *MTR*-LIKE REQUEST
44295  M01S02067.253l688 +++|          SA1    B2+10B      GET CALLER-S *X0* REGISTER
Line S02079 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
44296  M01S02079.271l750 +++|          BX5    X3          SET MONITOR MODE START TIME FOR *PMN*
Line S02068 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44297  M01S02068.253l688 +++|          BX0    X1
Line S02069 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
44298  M02S02069.271l750 ---|          SA1    X1
Line S02080 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
44299  M01S02080.271l750 +++|          SA1    X1+
Line S02070 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44300  M01S02070.253l688 +++|          SB3    X0-MXPF
Line S02071 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
44301  M02S02071.271l716 ---|          NG     B3,/MONITOR/PMN0  IF NOT PP REQUEST
Line S02075 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
44302  M01S02075.271l716 +++|          NG     B3,/MONITOR/PMN1  IF NOT PP REQUEST
Line S02072 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44303  M01S02072.253l688 +++|          MX7    -7-48       CLEAR PROGRAM MODE BIT
44304  M01S02073.253l688 +++|          BX7    -X7*X1
Line S02074 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
44305  M02S02074.271l750 ---|          SA7    A1
Line S02075 Modification History
M01 (Added by) 253l688
M02 (Removed by) 271l716
M03 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
44306  M03S02075.271l750 ---|          EQ     /MONITOR/PMN0  PROCESS FUNCTION
Line S02076 Modification History
M01 (Added by) 271l716
M02 (Removed by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
44307  M02S02076.271l750 ---|          EQ     /MONITOR/PMN1  PROCESS FUNCTION
Line S02081 Modification History
M01 (Added by) 271l750
Seq #  *Modification Id* Act 
----------------------------+
44308  M01S02081.271l750 +++|          SA7    A1+
44309  M01S02082.271l750 +++|          EQ     /MONITOR/PMN4  PROCESS PP FUNCTION
Line S02076 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44310  M02S02076.cpum212 ---| QDT      SPACE  4,10
Line S00033 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44311  M01S00033.cpum212 +++| QDT      SPACE  4,25
Line S02077 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44312  M01S02077.253l688 +++|**        QDT - QUEUE DROPPABLE TRACKS.
44313  M01S02078.253l688 +++|*
44314  M01S02079.253l688 +++|*         *QDT* COMPLETES *DTKM* REQUESTS BY PLACING THEM IN A QUEUE
44315  M01S02080.253l688 +++|*         WHEN THE FOLLOWING CONDITIONS ARE MET.
44316  M01S02081.253l688 +++|*                - THE PP ISSUING THE FUNCTION IS ASSIGNED TO A JOB.
Line S00034 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44317  M01S00034.cpum212 +++|*                - THE JOB IS NOT BEING STORAGE MOVED.
Line S02082 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44318  M01S02082.253l688 +++|*                - THE *DTKM* IS NOT SETTING *EOI*.
44319  M01S02083.253l688 +++|*                - THE QUEUE IN THE JOB-S NFL IS NOT FULL.
44320  M01S02084.253l688 +++|*
44321  M01S02085.253l688 +++|*         ENTRY  (A2) = ADDRESS OF *DALL* WORD IN THE MST.
44322  M01S02086.253l688 +++|*                (A3) = ADDRESS OF FUNCTION PARAMETERS.
44323  M01S02087.253l688 +++|*                (X1) = LOWER 48 BITS OF *OR* WITH BIT 45 MOVED TO 59.
44324  M01S02088.253l688 +++|*                (X3) = FUNCTION PARAMETERS.
44325  M01S02089.253l688 +++|*                (X5) = OUTPUT REGISTER.
44326  M01S02090.253l688 +++|*                (B7) = CONTROL POINT AREA ADDRESS.
44327  M01S02091.253l688 +++|*
44328  M01S02092.253l688 +++|*         EXIT   TO *CHR10* WITH *DTKM* BIT CLEARED, IF REQUEST CANNOT
Line S02093 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44329  M02S02093.cpum212 ---|*                BE QUEUED.
Line S00035 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44330  M01S00035.cpum212 +++|*                  BE QUEUED.
44331  M01S00036.cpum212 +++|*                TO *CHR12* TO REJECT REQUEST IF CONTROL POINT BEING
44332  M01S00037.cpum212 +++|*                  MOVED.
44333  M01S00038.cpum212 +++|*
44334  M01S00039.cpum212 +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
44335  M01S00040.cpum212 +++|*                A - 1, 2, 3, 4, 6.
44336  M01S00041.cpum212 +++|*                B - 3, 4, 6, 7.
Line S02094 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44337  M01S02094.253l688 +++|
44338  M01S02095.253l688 +++|
Line S02096 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44339  M02S02096.cpum212 ---| QDT      TX6    B7,-SCA
Line S00042 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44340  M01S00042.cpum212 +++| QDT      BSS    0           ENTRY
Line S00043 Modification History
M01 (Added by) cpum212
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44341  M02S00043.273l780 ---|          SA4    CMCL
Line S00911 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44342  M01S00911.273l780 +++|          SA4    SMRL
Line S00044 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44343  M01S00044.cpum212 +++|          SX6    B7+
Line S00045 Modification History
M01 (Added by) cpum212
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
44344  M02S00045.271l716 ---|          LX6    48
Line S02077 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44345  M02S02077.273l780 ---|          LX6    48-7
Line S00046 Modification History
M01 (Added by) cpum212
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44346  M02S00046.273l780 ---|          MX7    12
Line S00912 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44347  M01S00912.273l780 +++|          LX6    -7          CP NUMBER
44348  M01S00913.273l780 +++|          MX7    -12
Line S00047 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44349  M01S00047.cpum212 +++|          BX6    X4-X6
Line S00048 Modification History
M01 (Added by) cpum212
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44350  M02S00048.273l780 ---|          BX6    X7*X6
Line S00914 Modification History
M01 (Added by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
44351  M01S00914.273l780 +++|          BX6    -X7*X6
Line S00049 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44352  M01S00049.cpum212 +++|          ZR     X6,CHR12    IF CONTROL POINT MOVING
Line S02097 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44353  M01S02097.253l688 +++|          SA4    B7+FLSW     GET RA AND NFL
Line S00050 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44354  M01S00050.cpum212 +++|          TX6    B7,-SCA
44355  M01S00051.cpum212 +++|          ZR     X6,QDT3     IF SYSTEM CONTROL POINT
Line S02098 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44356  M01S02098.253l688 +++|          BX7    X5          CHECK REQUEST
Line S02099 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44357  M02S02099.cpum212 ---|          ZR     X6,QDT3     IF SYSTEM CONTROL POINT
Line S02100 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44358  M01S02100.253l688 +++|          MX6    -36
44359  M01S02101.253l688 +++|          ZR     B7,QDT3     IF SYSTEM CONTROL POINT
44360  M01S02102.253l688 +++|          LX7    59-35
44361  M01S02103.253l688 +++|          BX6    -X6*X4      GET RA/100
44362  M01S02104.253l688 +++|          PL     X7,QDT3     IF SET *EOI* REQUEST
44363  M01S02105.253l688 +++|          SX7    QFBN
44364  M01S02106.253l688 +++|          AX4    48          GET NFL
44365  M01S02107.253l688 +++|          AX6    12
44366  M01S02108.253l688 +++|          ZR     X4,QDT3     IF INSUFFICIENT NFL
44367  M01S02109.253l688 +++|          LX6    6           RA
44368  M01S02110.253l688 +++|          IX7    X6-X7       ABSOLUTE ADDRESS OF *QFBN* QUEUE
44369  M01S02111.253l688 +++|          SX6    -QFBL
44370  M01S02112.253l688 +++| QDT1     SX6    X6+B1       SEARCH FOR EMPTY ENTRY
44371  M01S02113.253l688 +++|          IX4    X7-X6
44372  M01S02114.253l688 +++|          ERX4   X4
44373  M01S02115.253l688 +++|          BX3    X4-X5
44374  M01S02116.253l688 +++|          NZ     X4,QDT2     IF ENTRY NOT AVAILABLE
44375  M01S02117.253l688 +++|          SB7    X6-1        SAVE ORDINAL OF AVAILABLE ENTRY
44376  M01S02118.253l688 +++| QDT2     LX3    0-45        IGNORE THE REQUEST FLAGS
44377  M01S02119.253l688 +++|          AX3    3
44378  M01S02120.253l688 +++|          ZR     X3,QDT3     IF REQUEST IS ALREADY IN THE TABLE
44379  M01S02121.253l688 +++|          NG     X6,QDT1     IF MORE ENTRIES TO CHECK
44380  M01S02122.253l688 +++|          NG     B7,QDT4     IF ENTRY IS AVAILABLE
44381  M01S02123.253l688 +++| QDT3     SA3    A3          RESTORE FUNCTION PARAMETERS
44382  M01S02124.253l688 +++|          MX6    -59         CLEAR *DTKM* BIT
44383  M01S02125.253l688 +++|          LX6    58-59
44384  M01S02126.253l688 +++|          BX3    -X6*X3
44385  M01S02127.253l688 +++|          EQ     CHR10       REQUEST CANNOT BE QUEUED
44386  M01S02128.253l688 +++|
44387  M01S02129.253l688 +++| QDT4     SX4    B7+B1       SET REQUEST IN *QFBN* QUEUE
44388  M01S02130.253l688 +++|          BX6    X5
44389  M01S02131.253l688 +++|          IX4    X7-X4
44390  M01S02132.253l688 +++|          EWX6   X4
44391  M01S02133.253l688 +++|
44392  M01S02134.253l688 +++|*         COMPUTE NUMBER OF SECTORS DROPPED.
44393  M01S02135.253l688 +++|
44394  M01S02136.253l688 +++|          SA2    A2+TRLL-DALL  SET TRT BASE ADDRESS
44395  M01S02137.253l688 +++|          MX6    12
44396  M01S02138.253l688 +++|          LX1    24-59+45    POSITION FIRST TRACK
44397  M01S02139.253l688 +++|          MX7    -2
44398  M01S02140.253l688 +++|          SB6    B0          PRESET TRACK COUNT
44399  M01S02141.253l688 +++|          SB3    X2-4000B/4  PRESET TRT FWA
44400  M01S02142.253l688 +++| QDT5     BX0    X6*X1       EXTRACT LINK
44401  M01S02143.253l688 +++|          LX0    10
44402  M01S02144.253l688 +++|          SB6    B6+B1
44403  M01S02145.253l688 +++|          SA1    B3+X0       READ TRT WORD
44404  M01S02146.253l688 +++|          LX0    2
44405  M01S02147.253l688 +++|          BX2    -X7*X0      EXTRACT BYTE
44406  M01S02148.253l688 +++|          LX2    2           BYTE * 4
44407  M01S02149.253l688 +++|          LX3    X2,B1       BYTE * 8
44408  M01S02150.253l688 +++|          IX2    X3+X2       BYTE * 12
44409  M01S02151.253l688 +++|          SB4    X2+
44410  M01S02152.253l688 +++|          LX1    X1,B4       POSITION TRACK BYTE
44411  M01S02153.253l688 +++|          NG     X1,QDT5     IF NOT END OF TRACK CHAIN
44412  M01S02154.253l688 +++|          SA2    A2+MDGL-TRLL  GET SECTORS PER TRACK
44413  M01S02155.253l688 +++|          SX3    B6-B1       NUMBER OF FULL TRACKS
Line S00052 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44414  M01S00052.cpum212 +++|          SA4    A2+SDGL-MDGL  SET *SDGL* ADDRESS
Line S02156 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44415  M01S02156.253l688 +++|          MX7    -12
44416  M01S02157.253l688 +++|          AX1    48          SECTORS IN LAST TRACK
44417  M01S02158.253l688 +++|          BX2    -X7*X2
Line S00053 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44418  M01S00053.cpum212 +++|          SX6    1           SET TO PRESERVE INTERLOCK
Line S02159 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44419  M01S02159.253l688 +++|          IX3    X3*X2
Line S00054 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44420  M01S00054.cpum212 +++|          SB5    PPR1        SET EXIT ADDRESS
Line S02160 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44421  M01S02160.253l688 +++|          IX7    X3+X1
Line S02161 Modification History
M01 (Added by) 253l688
M02 (Removed by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44422  M02S02161.cpum212 ---|          EQ     PPR1        RETURN NUMBER OF SECTORS DROPPED
Line S00055 Modification History
M01 (Added by) cpum212
Seq #  *Modification Id* Act 
----------------------------+
44423  M01S00055.cpum212 +++|          EQ     CDI         CLEAR PP ACTIVITY BITS
Line S02739 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44424  M02S02739.253l688 ---| CTR      SPACE  4,10
44425  M02S02740.253l688 ---|**        CTR - CTR ISD PROCESSING.
Line S02162 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44426  M01S02162.253l688 +++| RTC      SPACE  4,10
44427  M01S02163.253l688 +++|**        RTC - RTCM ISD PROCESSING.
Line S02741 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44428  M01S02741.251l664 +++|
44429  M01S02742.251l664 +++|
Line S02743 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44430  M02S02743.253l688 ---| CTR3     BX0    X3          SET TRT LENGTH
44431  M02S02744.253l688 ---|          AX0    24
44432  M02S02745.253l688 ---|          BX0    -X5*X0
44433  M02S02746.253l688 ---|          SB4    X0
44434  M02S02747.253l688 ---|          BX0    X0-X0
44435  M02S02748.253l688 ---|          PX0    X0,B4
44436  M02S02749.253l688 ---|          ZR     B6,/PROGRAM/CTR2  IF NO INTERLOCK
44437  M02S02750.253l688 ---|          EQ     /PROGRAM/CTR1.1  INTERLOCK MST
Line S02164 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44438  M01S02164.253l688 +++|*         SET INTERMEDIATE RESPONSE FOR ISHARED DEVICE.
44439  M01S02165.253l688 +++|
44440  M01S02166.253l688 +++| RTC      SX3    B4
44441  M01S02167.253l688 +++|          CX4    X3,EST      CONVERT EST ORDINAL TO OFFSET
44442  M01S02168.253l688 +++|          TA4    X4+EQDE,EST READ EST ENTRY
44443  M01S02169.253l688 +++|          LX4    59-52
44444  M01S02170.253l688 +++|          PL     X4,/PROGRAM/CTR  IF NOT ISHARED DEVICE
44445  M01S02171.253l688 +++|          SX0    A5          REISSUE FUNCTION
44446  M01S02172.253l688 +++|          SB3    /PROGRAM/PRG  RETURN ADDRESS
44447  M01S02173.253l688 +++|          EQ     /PROGRAM/AMM  ACTIVATE MONITOR MODE
44448  M01S02174.253l688 +++| SMD      SPACE  4,10
44449  M01S02175.253l688 +++|**        SMD - SMDM ISHARED PROCESSING.
44450  M01S02176.253l688 +++|
44451  M01S02177.253l688 +++|*         CTCS - CLEAR TABLES-CURRENT FLAG
44452  M01S02178.253l688 +++|
Line S02179 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44453  M02S02179.ns2579  ---|          SUBFUN SMDM,(CTCS)
44454  M02S02180.ns2579  ---|          SA4    A4          GET *SDGL*
Line S00013 Modification History
M01 (Added by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44455  M01S00013.ns2579  +++|          SUBFUN SMDM,(CTCS,C1AS)
Line S02181 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44456  M01S02181.253l688 +++|          SX7    X2-CTCS
Line S00014 Modification History
M01 (Added by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44457  M01S00014.ns2579  +++|          SA2    A3+MCLL-TDGL
44458  M01S00015.ns2579  +++|          ZR     X7,SMD1     IF *CTCS*
44459  M01S00016.ns2579  +++|          MX6    -48         CLEAR *1RU* OUTPUT REGISTER ADDRESS
44460  M01S00017.ns2579  +++|          BX6    -X6*X2
44461  M01S00018.ns2579  +++|          SA6    A2+
44462  M01S00019.ns2579  +++| SMD1     SA4    A4          GET *SDGL*
Line S02182 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44463  M01S02182.253l688 +++|          SX6    B1          PRESERVE PROGRAM/MONITOR MODE INTERLOCK
Line S02183 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44464  M02S02183.ns2579  ---|          NZ     X7,HNG1     IF NOT *CTCS*
Line S02184 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44465  M01S02184.253l688 +++|          EQ     /ISD/CDI    CLEAR WAITING FOR LATENCY
44466  M01S02185.253l688 +++| SMU      SPACE  4,25
44467  M01S02186.253l688 +++|**        SMU - SET MRT-UPDATED FLAG.
44468  M01S02187.253l688 +++|*
44469  M01S02188.253l688 +++|*         *SMU* SETS THE TRT- AND MRT-UPDATED FLAGS IN *SDGL*.  THIS
44470  M01S02189.253l688 +++|*         CAUSES *1RU* TO WRITE THE TRT AND MRT TO THE DEVICE.  *SMU*
44471  M01S02190.253l688 +++|*         ALSO COPIES THE (MST/RT UPDATE COUNTER + 1) FROM *SDGL* TO
44472  M01S02191.253l688 +++|*         THIS MAINFRAME-S *DIT* ENTRY.
44473  M01S02192.253l688 +++|*
44474  M01S02193.253l688 +++|*         ENTRY  (X0) = 12/ TRT LENGTH +2000B, 48/ 0.
44475  M01S02194.253l688 +++|*                (X4) = CALLER FLAG.
44476  M01S02195.253l688 +++|*                     .LT. 0, IF CALLED BY *DTC*.
44477  M01S02196.253l688 +++|*                     .EQ. 0, IF CALLED BY *STBM*.
44478  M01S02197.253l688 +++|*                     .GT. 0, IF CALLED BY *RTC*.
44479  M01S02198.253l688 +++|*                (A3) = MST ADDRESS (*TDGL*).
Line S02199 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2547
Seq #  *Modification Id* Act 
----------------------------+
44480  M02S02199.ns2547  ---|*                (A6) = MRT WORD.
Line S02200 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44481  M01S02200.253l688 +++|*                (B3) = MRT FWA.
44482  M01S02201.253l688 +++|*
44483  M01S02202.253l688 +++|*         EXIT   (X6) = 0.
44484  M01S02203.253l688 +++|*
44485  M01S02204.253l688 +++|*         USES   X - 0, 1, 6.
44486  M01S02205.253l688 +++|*                A - 1, 6.
44487  M01S02206.253l688 +++|*                B - 3.
44488  M01S02207.253l688 +++|
44489  M01S02208.253l688 +++|
44490  M01S02209.253l688 +++| SMU      MX6    2           SET TRT- AND MRT-UPDATE FLAGS
44491  M01S02210.253l688 +++|          LX0    12          POSITION TRT LENGTH
44492  M01S02211.253l688 +++|          LX6    -2
44493  M01S02212.253l688 +++|+         SA1    A3+SDGL-TDGL  **** PERFORM IN ONE WORD ****
44494  M01S02213.253l688 +++|          BX6    X1+X6         **** PERFORM IN ONE WORD ****
44495  M01S02214.253l688 +++|          SA6    A1            **** PERFORM IN ONE WORD ****
44496  M01S02215.253l688 +++|
44497  M01S02216.253l688 +++|*         SET THE UPDATE COUNTER IN THE *DIT*.
44498  M01S02217.253l688 +++|
44499  M01S02218.253l688 +++|          SA1    A3+DULL-TDGL  GET MAINFRAME INDEX
44500  M01S02219.253l688 +++|          SX0    X0-2000B+7  GET MRT LENGTH
44501  M01S02220.253l688 +++|          AX6    6           POSITION THE MST/TRT UPDATE COUNTER
44502  M01S02221.253l688 +++|          AX0    3
44503  M01S02222.253l688 +++|          SB3    B3+X0       FWA OF DIT
44504  M01S02223.253l688 +++|          SX0    B1
44505  M01S02224.253l688 +++|          IX6    X6+X0
44506  M01S02225.253l688 +++|          MX0    -4
44507  M01S02226.253l688 +++|          LX1    -24
44508  M01S02227.253l688 +++|          BX1    -X0*X1      MAINFRAME INDEX - 1
44509  M01S02228.253l688 +++|          SA1    X1+B3       DIT ENTRY FOR THIS MAINFRAME
44510  M01S02229.253l688 +++|          MX0    -30
44511  M01S02230.253l688 +++|          BX6    -X0*X6
44512  M01S02231.253l688 +++|          LX1    -18
44513  M01S02232.253l688 +++|          BX1    X0*X1       CLEAR THE OLD COUNTER VALUE
44514  M01S02233.253l688 +++|          BX6    X1+X6
44515  M01S02234.253l688 +++|          LX6    18
44516  M01S02235.253l688 +++|          SA6    A1
44517  M01S02236.253l688 +++|          SX6    B0+
44518  M01S02237.253l688 +++|          NG     X4,/PROGRAM/DTC5  IF CALLED BY *DTC*
44519  M01S02238.253l688 +++|          NZ     X4,/PROGRAM/RTC13  IF CALLED BY *RTC*
44520  M01S02239.253l688 +++|          EQ     /PROGRAM/CCP1  CHECK FOR CHECKPOINT REQUESTED
44521  M01S02240.253l688 +++| STB      SPACE  4,15
44522  M01S02241.253l688 +++|**        STB - STBM ISHARED PROCESSING.
44523  M01S02242.253l688 +++|
44524  M01S02243.253l688 +++|
44525  M01S02244.253l688 +++|
Line S26822 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44526  M01S26822.253l688 ---| RTC      SPACE  4,10
44527  M01S26823.253l688 ---|**        RTC - RTCM ISD PROCESSING.
Line S02245 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44528  M01S02245.253l688 +++|*         SET THE LONG-TERM DEVICE INTERLOCK IN *MCLL*.
44529  M01S02246.253l688 +++|*
44530  M01S02247.253l688 +++|*         ENTRY  (A3) = MST ADDRESS (*TDGL*).
44531  M01S02248.253l688 +++|*
44532  M01S02249.253l688 +++|*         EXIT   (X6) = 1.
44533  M01S02250.253l688 +++|*                TO */ISD/CDI*.
44534  M01S02251.253l688 +++|*
Line S02252 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44535  M02S02252.ns2579  ---|*         USES   X - 2, 6.
Line S00020 Modification History
M01 (Added by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44536  M01S00020.ns2579  +++|*         USES   X - 2, 6, 7.
Line S02253 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44537  M01S02253.253l688 +++|*                A - 2, 6.
44538  M00S26824.cpumtr  +++|
Line S02254 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44539  M01S02254.253l688 +++| STB2     SA2    A3+MCLL-TDGL  SET LONG-TERM INTERLOCK
Line S02255 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44540  M02S02255.ns2579  ---|          SX6    B1+
Line S00021 Modification History
M01 (Added by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44541  M01S00021.ns2579  +++|          SX6    B1
Line S02256 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44542  M01S02256.253l688 +++|          MX7    -42         GET ACTIVITY BITS
44543  M01S02257.253l688 +++|          LX6    47-0
44544  M01S02258.253l688 +++|          BX7    -X7*X2
44545  M01S02259.253l688 +++|          BX6    X6+X2
44546  M01S02260.253l688 +++|          CX7    X7
44547  M01S02261.253l688 +++|          AX7    1
Line S02262 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44548  M02S02262.ns2579  ---|          NZ     X7,STB3     IF OTHER REQUESTS REMAIN
44549  M02S02263.ns2579  ---|          SA6    A2
Line S00022 Modification History
M01 (Added by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44550  M01S00022.ns2579  +++|          ZR     X7,STB3.1   IF NO OTHER REQUESTS ARE PENDING
44551  M01S00023.ns2579  +++|          SA4    A4          CLEAR THE MST/TRT INTERLOCK
44552  M01S00024.ns2579  +++|          MX6    59
44553  M01S00025.ns2579  +++|          BX6    X6*X4
44554  M01S00026.ns2579  +++|          SA6    A4+
44555  M01S00027.ns2579  +++|          EQ     /PROGRAM/REJ  REJECT REQUEST
44556  M01S00028.ns2579  +++|
44557  M01S00029.ns2579  +++| STB3     SA2    A3+MCLL-TDGL  SET LONG-TERM INTERLOCK
44558  M01S00030.ns2579  +++|          SA1    B2+17B      GET ORIGINAL RESPONSE FROM PROGRAM MODE XP
Line S02264 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44559  M01S02264.253l688 +++|          SX6    B1
Line S00031 Modification History
M01 (Added by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44560  M01S00031.ns2579  +++|          LX6    47-0
44561  M01S00032.ns2579  +++|          BX6    X6+X2
44562  M01S00033.ns2579  +++|          BX7    X1
44563  M01S00034.ns2579  +++| STB3.1   SA6    A2
44564  M01S00035.ns2579  +++|          SX6    B1          PRESERVE MST/TRT INTERLOCK
Line S02265 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44565  M01S02265.253l688 +++|          EQ     /ISD/CDI    EXIT
Line S26825 Modification History
M01 (Removed by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44566  M01S26825.ns2579  ---|
Line S26826 Modification History
M01 (Removed by) 253l688
M02 (Removed by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44567  M02S26826.ns2579  ---|*         SET INTERMEDIATE RESPONSE FOR INDEPENDENT SHARED DEVICE.
Line S02266 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44568  M02S02266.ns2579  ---| STB3     SA4    A4          CLEAR THE INTERLOCK
44569  M02S02267.ns2579  ---|          MX6    59
44570  M02S02268.ns2579  ---|          BX6    X6*X4
44571  M02S02269.ns2579  ---|          SA6    A4
44572  M02S02270.ns2579  ---|          EQ     /PROGRAM/REJ  REJECT REQUEST
44573  M00S26827.cpumtr  +++|
Line S26828 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
44574  M01S26828.242l642 ---| RTC      SX4    B5
Line S00625 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44575  M02S00625.253l688 ---| RTC      SX4    B4
Line S26829 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44576  M01S26829.253l688 ---|          SX3    ESTE
44577  M01S26830.253l688 ---|          IX4    X4*X3
44578  M01S26831.253l688 ---|          TA4    X4+EQDE,EST READ EST ENTRY
44579  M01S26832.253l688 ---|          LX4    59-52
44580  M01S26833.253l688 ---|          PL     X4,/PROGRAM/CTR  IF NOT INDEPENDENT SHARE DEVICE
44581  M01S26834.253l688 ---|          MX4    3           SET INTERMEDIATE RESPONSE
44582  M01S26835.253l688 ---|          BX7    X4+X7
44583  M01S26836.253l688 ---|          SA7    A5+         STORE OR
44584  M01S26837.253l688 ---|          EQ     /PROGRAM/PRG  EXIT
44585  M01S26838.253l688 ---| STB      SPACE  4,10
44586  M01S26839.253l688 ---|**        STB - STBM ISD PROCESSING.
Line S02271 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44587  M01S02271.253l688 +++|*         CLEAR THE LONG-TERM DEVICE INTERLOCK IN *MCLL*.
44588  M01S02272.253l688 +++|*
44589  M01S02273.253l688 +++|*         ENTRY  (A3) = MST ADDRESS (*TDGL*).
44590  M01S02274.253l688 +++|*
44591  M01S02275.253l688 +++|*         EXIT   TO *CHR*.
44592  M01S02276.253l688 +++|*
44593  M01S02277.253l688 +++|*         USES   X - 2, 5, 6.
44594  M01S02278.253l688 +++|*                A - 2, 5, 6.
44595  M01S02279.253l688 +++|*                B - 3.
44596  M00S26840.cpumtr  +++|
Line S26841 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44597  M01S26841.253l688 ---|
44598  M01S26842.253l688 ---|*         IURS/DURS PROCESSING.
44599  M01S26843.253l688 ---|
44600  M01S26844.253l688 ---| STB24    SX1    B1
44601  M01S26845.253l688 ---|          MX0    -6
44602  M01S26846.253l688 ---|          SA4    A3+DULL     READ DEVICE REQUEST COUNTS
44603  M01S26847.253l688 ---|          LX4    12
44604  M01S26848.253l688 ---|          BX6    -X0*X4      CONSECUTIVE REQUEST COUNT
44605  M01S26849.253l688 ---|          LX4    -6
44606  M01S26850.253l688 ---|          BX7    -X0*X4      UNIT RESERVE COUNT
44607  M01S26851.253l688 ---|          LX2    -1
44608  M01S26852.253l688 ---|          NG     X2,STB26    IF DURS FUNCTION
44609  M01S26853.253l688 ---|          IX4    X4+X1
44610  M01S26854.253l688 ---|          SB4    X6-MCUR+1
44611  M01S26855.253l688 ---|          LX4    6
44612  M01S26856.253l688 ---|          IX6    X4+X1
44613  M01S26857.253l688 ---|          PL     B4,/PROGRAM/REJ  IF TOO MANY CONSECUTIVE REQUESTS
44614  M01S26858.253l688 ---|          NZ     X7,STB25    IF OTHER PPS ALREADY ACTIVE ON THIS DEVICE
44615  M01S26859.253l688 ---|          SA1    A3+SDGL     CHECK MST INTERLOCK
44616  M01S26860.253l688 ---|          MX2    -5
44617  M01S26861.253l688 ---|          LX2    1
44618  M01S26862.253l688 ---|          BX1    -X2*X1
44619  M01S26863.253l688 ---|          NZ     X1,/PROGRAM/REJ  IF LAST MST/TRT UPDATE NOT COMPLETE
44620  M01S26864.253l688 ---| STB25    LX6    -12         STORE INTERLOCK WORD
44621  M01S26865.253l688 ---|          SA6    A4          STORE INTERLOCK WORD
44622  M01S26866.253l688 ---|          LX7    36
44623  M01S26867.253l688 ---|          SA7    A5          STORE OR
44624  M01S26868.253l688 ---|          EQ     PPRX        EXIT
44625  M01S26869.253l688 ---|
44626  M01S26870.253l688 ---|*         DURS PROCESSING.
44627  M01S26871.253l688 ---|
44628  M01S26872.253l688 ---| STB26    IX7    X7-X1       DECREMENT RESERVE COUNT
44629  M01S26873.253l688 ---|          IX6    X4-X1
44630  M01S26874.253l688 ---|          NG     X7,HNG      IF UNDERFLOW
44631  M01S26875.253l688 ---|          LX6    6
44632  M01S26876.253l688 ---|          NZ     X7,STB25    IF NOT LAST RESERVE
44633  M01S26877.253l688 ---|          BX6    X5*X6
44634  M01S26878.253l688 ---|          EQ     STB25       EXIT TO STORE COUNTS
Line S02280 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44635  M01S02280.253l688 +++| STB4     SA2    A3+MCLL-TDGL  CLEAR LONG-TERM INTERLOCK
44636  M01S02281.253l688 +++|          SX6    B1
44637  M01S02282.253l688 +++|          SA5    A5          RESTORE INPUT REGISTER
44638  M01S02283.253l688 +++|          LX6    47-0
44639  M01S02284.253l688 +++|          SB6    B0          DO NOT GET INTERLOCK
44640  M01S02285.253l688 +++|          BX6    -X6*X2
44641  M01S02286.253l688 +++|          SA6    A2
Line S02287 Modification History
M01 (Added by) 253l688
M02 (Removed by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
44642  M02S02287.ns2552  ---|          SB3    /PROGRAM/CCP1  SET *CTR* EXIT ADDRESS
Line S00001 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
44643  M01S00001.ns2552  +++|          SB3    STB5        SET *CTR* EXIT ADDRESS
Line S02288 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44644  M01S02288.253l688 +++|          EQ     CHR         INITIATE *1RU*
Line S00002 Modification History
M01 (Added by) ns2552
Seq #  *Modification Id* Act 
----------------------------+
44645  M01S00002.ns2552  +++|
44646  M01S00003.ns2552  +++| STB5     UX4,B3 X0          SET *SMU* EXIT FLAG
44647  M01S00004.ns2552  +++|          SB3    B6+B3       *MRT* FWA
44648  M01S00005.ns2552  +++|          EQ     SMU         SET MRT UPDATE FLAG
Line S00036 Modification History
M01 (Added by) ns2579
Seq #  *Modification Id* Act 
----------------------------+
44649  M01S00036.ns2579  +++| VMS      SPACE  4,10
44650  M01S00037.ns2579  +++|**        VMS - *VMSM* EXTENSION FOR *ISHARED* DEVICES.
44651  M01S00038.ns2579  +++|*
44652  M01S00039.ns2579  +++|*         *VMS* DECIDES WHETHER *1RU* NEEDS TO BE CALLED FOR THIS
44653  M01S00040.ns2579  +++|*         SUBFUNCTION.
44654  M01S00041.ns2579  +++|
44655  M01S00042.ns2579  +++|
44656  M01S00043.ns2579  +++| VMS      SX3    X5          GET SUBFUNTION
44657  M01S00044.ns2579  +++|          AX3    12
44658  M01S00045.ns2579  +++|          NZ     X3,/MONITOR/PMR  IF *1RU* IS NOT REQUIRED
44659  M01S00046.ns2579  +++|          ERRNZ  VEIS        CODE ASSUMES VALUE
44660  M01S00047.ns2579  +++|          EQ     CHR         CHECK FOR HELPER REQUIRED
44661  M01S00048.ns2579  +++|
44662  M01S00049.ns2579  +++|
44663  M01S00050.ns2579  +++|*         SET/CLEAR LONG-TERM INTERLOCK IN *MCLL*.
44664  M01S00051.ns2579  +++|
44665  M01S00052.ns2579  +++|*         ENTRY  (X3) = 1, IF (X7) = 0.
44666  M01S00053.ns2579  +++|*                (X7) = RESPONSE.
44667  M01S00054.ns2579  +++|*                (A3) = ADDRESS OF MST WORD *TDGL*.
44668  M01S00055.ns2579  +++|*                (A5) = OUTPUT REGISTER ADDRESS.
44669  M01S00056.ns2579  +++|*                (B5) = RETURN ADDRESS.
44670  M01S00057.ns2579  +++|
44671  M01S00058.ns2579  +++| VMS1     SA4    A3+SDGL-TDGL
44672  M01S00059.ns2579  +++|          PL     X4,VMS3     IF NOT AN ISHARED DEVICE
44673  M01S00060.ns2579  +++|          SA2    A5          GET THE ORGINAL FUNCTION
44674  M01S00061.ns2579  +++|          SX4    X2          GET THE SUBFUNCTION
44675  M01S00062.ns2579  +++|          AX2    36          GET THE EST ORDINAL
44676  M01S00063.ns2579  +++|          AX4    12
44677  M01S00064.ns2579  +++|          SX2    X2+STBM*1S12-VMSM*1S12  CHANGE FUNCTION CODE TO *STBM*
44678  M01S00065.ns2579  +++|          SX6    SLTS        SET LONG-TERM INTERLOCK
44679  M01S00066.ns2579  +++|          LX2    24
44680  M01S00067.ns2579  +++|          BX6    X2+X6
44681  M01S00068.ns2579  +++|          NZ     X7,VMS2     IF VALIDATION ERRORS
44682  M01S00069.ns2579  +++|          BX4    X4-X3
44683  M01S00070.ns2579  +++|          ERRNZ  VEQS-1      CODE ASSUMES VALUE
44684  M01S00071.ns2579  +++|          NZ     X4,/PROGRAM/CDI  IF NOT *VEQS* SUBFUNCTION
44685  M01S00072.ns2579  +++|          IX6    X6+X3       CLEAR DEVICE INTERLOCK
44686  M01S00073.ns2579  +++|          ERRNZ  SLTS+1-CDIS CODE ASSUMES VALUE
44687  M01S00074.ns2579  +++| VMS2     LX6    12
44688  M01S00075.ns2579  +++|          SA6    A5
44689  M01S00076.ns2579  +++|          SX0    A5          ISSUE *STBM*
44690  M01S00077.ns2579  +++|          SB3    B5          RETURN ADDRESS
44691  M01S00078.ns2579  +++|          EQ     /PROGRAM/AMM  ACTIVATE MONITOR MODE
44692  M01S00079.ns2579  +++|
44693  M01S00080.ns2579  +++| VMS3     NZ     X7,/PROGRAM/CSM1  IF VALIDATION ERRORS
44694  M01S00081.ns2579  +++|          EQ     /PROGRAM/CDI  CLEAR DEVICE INTERLOCK
44695  M00S26879.cpumtr  +++|          SPACE  4,10
44696  M00S26880.cpumtr  +++|**        DEFINE TAGS FROM MAIN BLOCK.
44697  M00S26881.cpumtr  +++|
44698  M00S26882.cpumtr  +++| HNG      EQU    /MONITOR/HNG
Line S02289 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44699  M01S02289.253l688 +++| HNG1     EQU    /MONITOR/HNG1
44700  M00S26883.cpumtr  +++| PPRX     EQU    /MONITOR/PPRX
44701  M00S26884.cpumtr  +++| PPR1     EQU    /MONITOR/PPR1
44702  M00S26885.cpumtr  +++|
44703  M00S26886.cpumtr  +++|          ENDBLK
Line S26887 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44704  M01S26887.251l664 ---|          BLOCK  ISDMMF,(SHARED DEVICE PROCESSING - MMF OR ISD.)
Line S02751 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44705  M01S02751.251l664 +++|          BLOCK  ISDMMF,(SHARED DEVICE PROCESSING - MMF, LSPMMF OR ISD.)
Line S26888 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44706  M01S26888.253l688 ---| CMB      SPACE  4,10
Line S02290 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44707  M01S02290.253l688 +++| CMB      SPACE  4,15
44708  M00S26889.cpumtr  +++|**        CLEAR MRT BIT. (DROP TRACKS)
44709  M00S26890.cpumtr  +++|*         CALLED IN PROGRAM MODE.
Line S02291 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44710  M01S02291.253l688 +++|*
44711  M01S02292.253l688 +++|*         ENTRY  (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44712  M01S02293.253l688 +++|*                (X4) = -3777B.
44713  M01S02294.253l688 +++|*                (X7) = 2/ TRT BYTE, 40/, 18/ TRT WORD.
44714  M01S02295.253l688 +++|*                (A3) = ADDRESS OF *TDGL* MST WORD.
44715  M01S02296.253l688 +++|*                (B6) = TRT FWA.
44716  M01S02297.253l688 +++|*
44717  M01S02298.253l688 +++|*         EXIT   (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44718  M01S02299.253l688 +++|*                (X4) = -3777B.
44719  M01S02300.253l688 +++|*                (A6) = MRT WORD.
44720  M01S02301.253l688 +++|*                (B3) = MRT FWA.
44721  M00S26891.cpumtr  +++|
44722  M00S26892.cpumtr  +++|
Line S26893 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44723  M01S26893.253l688 ---| CMB      LX6    -3          SET MRT ADDRESS AND BIT NUMBER
44724  M01S26894.253l688 ---|          BX5    X4*X6       MRT BIT NUMBER
44725  M01S26895.253l688 ---|          SX7    B1
Line S02302 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44726  M01S02302.253l688 +++| CMB      LX7    -3          SET MRT ADDRESS AND BIT NUMBER
44727  M01S02303.253l688 +++|          BX5    X4*X7       MRT BIT NUMBER
44728  M01S02304.253l688 +++|          SX6    B1
44729  M00S26896.cpumtr  +++|          LX5    5
Line S26897 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44730  M01S26897.253l688 ---|          SB4    X5
44731  M01S26898.253l688 ---|          LX7    X7,B4       POSITION MRT BIT
44732  M01S26899.253l688 ---|          UX0,B4 X0          UNPACK LENGTH OF TRT
44733  M01S26900.253l688 ---|          SB4    B4+X6
44734  M01S26901.253l688 ---|          SA1    B4+B6       READ MRT WORD
44735  M01S26902.253l688 ---|          BX7    -X7*X1      CLEAR BIT
44736  M01S26903.253l688 ---|          BX5    X7-X1
44737  M01S26904.253l688 ---|          SA7    A1
44738  M01S26905.253l688 ---|          LX6    3
44739  M01S26906.253l688 ---|          BX7    X7-X7
Line S02305 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44740  M01S02305.253l688 +++|          SB3    X5
44741  M01S02306.253l688 +++|          LX6    X6,B3       POSITION MRT BIT
44742  M01S02307.253l688 +++|          UX1,B3 X0          UNPACK LENGTH OF TRT
44743  M01S02308.253l688 +++|          SB3    B3+B6
44744  M01S02309.253l688 +++|          SA1    B3+X7       READ MRT WORD
44745  M01S02310.253l688 +++|          BX6    -X6*X1      CLEAR BIT
44746  M01S02311.253l688 +++|          BX5    X6-X1
44747  M01S02312.253l688 +++|          SA6    A1
44748  M01S02313.253l688 +++|          LX7    3
44749  M01S02314.253l688 +++|          BX6    X6-X6
Line S26907 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44750  M01S26907.253l688 ---|          ZR     X5,CMB2     IF MRT BIT NOT SET FOR THIS MACHINE
Line S26908 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44751  M02S26908.253l688 ---| CMB1     TNZ    X0,(/PROGRAM/CMB,/PROGRAM/HNG,MMF)  IF MMF SHARED
Line S02752 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44752  M03S02752.253l688 ---| CMB1     TNZ    X0,(/PROGRAM/CMB,/LSPMMF/CMB,MMF)  IF MMF SHARED
Line S00858 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44753  M02S00858.253l688 ---| CMB1     TNZ    X0,(/PROGRAM/CMB,MMF,/LSPMMF/CMB)  IF MMF SHARED
Line S26909 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44754  M01S26909.253l688 ---|          EQ     /PROGRAM/DTC5  DROP TRACK CHAIN
44755  M01S26910.253l688 ---|
44756  M01S26911.253l688 ---| CMB2     SA1    A5          TEST ALLOWING DROP TRACKS FOR OTHER MF
Line S02315 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44757  M01S02315.253l688 +++|          NZ     X5,CMB1     IF MRT BIT SET FOR THIS MACHINE
44758  M01S02316.253l688 +++|          SA1    A5          TEST ALLOWING DROP TRACKS FOR OTHER MF
44759  M00S26912.cpumtr  +++|          LX1    59-46
44760  M00S26913.cpumtr  +++|          PL     X1,/PROGRAM/HNG  IF NOT ALLOWED TO DROP THIS FILE
Line S26914 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44761  M01S26914.253l688 ---|          EQ     CMB1        COMPLETE REQUEST
Line S26915 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44762  M02S26915.253l688 ---| CTR      SPACE  4,10
44763  M02S26916.253l688 ---|**        CTR - CTR ISD/MMF PROCESSING.
44764  M02S26917.253l688 ---|
44765  M02S26918.253l688 ---|
44766  M02S26919.253l688 ---| CTR3     TPL    X4,(/PROGRAM/SDI,/MONITOR/HNG1,MMF)  IF MMF SHARED
44767  M02S26920.253l688 ---|          BX0    X3          SET TRT LENGTH
44768  M02S26921.253l688 ---|          AX0    24
44769  M02S26922.253l688 ---|          BX0    -X5*X0
44770  M02S26923.253l688 ---|          SB4    X0
44771  M02S26924.253l688 ---|          BX4    X4-X4
44772  M02S26925.253l688 ---|          PX0    X4,B4
44773  M02S26926.253l688 ---|          ZR     B6,/PROGRAM/CTR2  IF NO INTERLOCK
44774  M02S26927.253l688 ---|          EQ     /PROGRAM/CTR1.1  INTERLOCK MST
Line S26928 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44775  M01S26928.253l688 ---| SMB      SPACE  4,10
Line S02317 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44776  M01S02317.253l688 +++| CMB1     TEQ    (/ISD/SMU,ISD,/PROGRAM/SMU,MMF,/LSPMMF/SMU)  COMPLETE
44777  M01S02318.253l688 +++| SMB      SPACE  4,15
44778  M00S26929.cpumtr  +++|**        SET MRT BIT. (REQUEST TRACKS)
44779  M00S26930.cpumtr  +++|*         CALLED IN PROGRAM MODE.
Line S02753 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44780  M01S02753.251l664 +++|*
Line S02754 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44781  M02S02754.253l688 ---|*         ENTRY  (X4) = TRACK TO SET MRT BIT FOR.
Line S02319 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44782  M01S02319.253l688 +++|*         ENTRY  (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44783  M01S02320.253l688 +++|*                (X4) = TRACK NUMBER.
Line S02755 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44784  M01S02755.251l664 +++|*                (A3) = ADDRESS OF *TDGL* MST WORD.
Line S02321 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44785  M01S02321.253l688 +++|*
44786  M01S02322.253l688 +++|*         EXIT   (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44787  M01S02323.253l688 +++|*                (X4) = TRACK NUMBER.
44788  M01S02324.253l688 +++|*                (A6) = MRT WORD.
44789  M01S02325.253l688 +++|*                (B3) = MRT FWA.
44790  M00S26931.cpumtr  +++|
44791  M00S26932.cpumtr  +++|
Line S26933 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44792  M01S26933.251l664 ---| SMB      MX6    -11
44793  M01S26934.251l664 ---|          BX1    -X6*X4
44794  M01S26935.251l664 ---|          MX6    -5
Line S02756 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44795  M01S02756.251l664 +++| SMB      MX6    -5
Line S26936 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44796  M01S26936.251l664 ---|          BX6    -X6*X1      MRT BIT NUMBER
44797  M01S26937.251l664 ---|          AX1    5
44798  M01S26938.251l664 ---|          UX0,B3 X0          UNPACK TRT LENGTH
44799  M01S26939.251l664 ---|          SB3    B3+X1
44800  M01S26940.251l664 ---|          SB1    X1          SAVE (X1)
44801  M01S26941.251l664 ---|          SA1    A3+TRLL-TDGL  SET FWA OF TRT
44802  M01S26942.251l664 ---|          SA0    X1
44803  M01S26943.251l664 ---|          SX1    B1          RESTORE (X1)
44804  M01S26944.251l664 ---|          SB1    1           RESTORE (B1)
44805  M01S26945.251l664 ---|          SA0    A0+B3
Line S02757 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44806  M01S02757.251l664 +++|          BX6    -X6*X4
44807  M00S26946.cpumtr  +++|          SB3    X6          MRT BIT NUMBER
44808  M00S26947.cpumtr  +++|          SX6    B1
44809  M00S26948.cpumtr  +++|          LX6    X6,B3       POSITION MRT BIT
Line S02758 Modification History
M01 (Added by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44810  M02S02758.253l688 ---|          UX0,B3 X0          UNPACK TRT LENGTH
Line S02326 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44811  M01S02326.253l688 +++|          UX1,B3 X0          UNPACK TRT LENGTH
Line S02759 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44812  M01S02759.251l664 +++|          SA1    A3+TRLL-TDGL  SET FWA OF TRT
44813  M01S02760.251l664 +++|          SB3    X1+B3       (B3) = START OF MRT
44814  M01S02761.251l664 +++|          SX1    X4-4000B
44815  M01S02762.251l664 +++|          LX1    -5
44816  M01S02763.251l664 +++|          SA1    B3+X1       (A1) = MRT WORD ADDRESS
44817  M01S02764.251l664 +++|          BX6    X1+X6
Line S26949 Modification History
M01 (Removed by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44818  M01S26949.251l664 ---|          TNZ    X0,(/PROGRAM/SMB,/PROGRAM/HNG,MMF)  IF MMF SHARED
44819  M01S26950.251l664 ---|          SA1    A0+         MRT WORD ADDRESS
44820  M01S26951.251l664 ---|          BX6    X1+X6
44821  M01S26952.251l664 ---|          SA6    A1
Line S02765 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44822  M01S02765.251l664 +++|          SA6    A1+
44823  M00S26953.cpumtr  +++|          SA0    /PROGRAM/TMSK-1      SCRATCH WORD
Line S02766 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
44824  M02S02766.252l678 ---|          TNZ    X0,(/PROGRAM/SMB,/LSPMMF/SMB,MMF)  IF MMF SHARED
Line S00859 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44825  M02S00859.253l688 ---|          TNZ    X0,(/PROGRAM/SMB,MMF,/LSPMMF/SMB)  IF MMF SHARED
Line S26954 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44826  M01S26954.253l688 ---|          JP     /PROGRAM/RTC13  RETURN
Line S02327 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44827  M01S02327.253l688 +++|          TEQ    (/ISD/SMU,ISD,/PROGRAM/SMU,MMF,/LSPMMF/SMU)  COMPLETE
44828  M00S26955.cpumtr  +++| STB      SPACE  4,10
44829  M00S26956.cpumtr  +++|*         STBM SET/CLEAR MRT BIT.
44830  M00S26957.cpumtr  +++|*         CALLED IN PROGRAM MODE.
Line S02328 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44831  M01S02328.253l688 +++|*
44832  M01S02329.253l688 +++|*         ENTRY  (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44833  M01S02330.253l688 +++|*                (X1) = 2/ TRT BYTE, 40/, 18/ TRT WORD.
44834  M01S02331.253l688 +++|*                (X4) = 0.
44835  M01S02332.253l688 +++|*                (A3) = ADDRESS OF *TDGL* MST WORD.
44836  M01S02333.253l688 +++|*                (B3) = RESERVATION BIT SHIFT COUNT (0=*STFS*/*CTFS*).
44837  M01S02334.253l688 +++|*                (B6) = TRT FWA.
44838  M01S02335.253l688 +++|*
44839  M01S02336.253l688 +++|*         EXIT   (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
44840  M01S02337.253l688 +++|*                (X4) = 0.
44841  M01S02338.253l688 +++|*                (A6) = MRT WORD.
44842  M01S02339.253l688 +++|*                (B3) = MRT FWA.
44843  M01S02340.253l688 +++|*                (B4) .LT. TRT FWA.
44844  M01S02341.253l688 +++|*                (X1) = FWA OF TRT TO UPDATE, IF NO MRT UPDATE.
44845  M01S02342.253l688 +++|*                (X5) = LWA + 1 OF TRT TO UPDATE, IF NO MRT UPDATE.
44846  M00S26958.cpumtr  +++|
Line S26959 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44847  M01S26959.253l688 ---| STB10    UX0,B4 X0
Line S02343 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44848  M01S02343.253l688 +++|
44849  M01S02344.253l688 +++| STB10    UX6,B4 X0
44850  M00S26960.cpumtr  +++|          ZR     B3,STB12    IF FLAW REQUEST (NO MRT PROCESSING)
44851  M00S26961.cpumtr  +++|          LX1    2
44852  M00S26962.cpumtr  +++|          SX6    B3-6
44853  M00S26963.cpumtr  +++|          AX6    59
44854  M00S26964.cpumtr  +++|          MX3    -5
44855  M00S26965.cpumtr  +++|          BX3    -X3*X1      MRT BIT POSITION
44856  M00S26966.cpumtr  +++|          AX1    5           MRT WORD
44857  M00S26967.cpumtr  +++|          SB3    X3
44858  M00S26968.cpumtr  +++|          SX3    B1
44859  M00S26969.cpumtr  +++|          LX3    X3,B3       POSITION MRT BIT
44860  M00S26970.cpumtr  +++|          NZ     X5,STB11    IF STIS/SPFS OPTION
44861  M00S26971.cpumtr  +++|          BX6    -X6
Line S26972 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44862  M01S26972.253l688 ---| STB11    SB4    B4+X1
Line S02345 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44863  M01S02345.253l688 +++| STB11    SB3    B4+B6
44864  M00S26973.cpumtr  +++|          BX6    X6*X3       NON ZERO IF SETTING MRT BIT
Line S26974 Modification History
M01 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44865  M01S26974.253l688 ---|          SA2    B6+B4
44866  M01S26975.253l688 ---|          BX2    -X3*X2      CLEAR OLD BIT
44867  M01S26976.253l688 ---|          BX6    X2+X6       MERGE NEW BIT
44868  M01S26977.253l688 ---|          SA6    A2
Line S26978 Modification History
M01 (Removed by) 251l664
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44869  M02S26978.253l688 ---|          TNZ    X0,(/PROGRAM/STB10,/PROGRAM/HNG,MMF)  IF MSD
44870  M02S26979.253l688 ---| STB12    TNZ    X0,(/PROGRAM/STB11,/PROGRAM/HNG,MMF)  IF MSD
Line S02767 Modification History
M01 (Added by) 251l664
M02 (Removed by) 252l678
M03 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44871  M03S02767.253l688 ---|          TNZ    X0,(/PROGRAM/STB10,/LSPMMF/STB,MMF)  IF MSD
Line S00860 Modification History
M01 (Added by) 252l678
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44872  M02S00860.253l688 ---|          TNZ    X0,(/PROGRAM/STB10,MMF,/LSPMMF/STB)  IF MSD
Line S02346 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
44873  M01S02346.253l688 +++|          SA1    B3+X1
44874  M01S02347.253l688 +++|          BX1    -X3*X1      CLEAR OLD BIT
44875  M01S02348.253l688 +++|          BX6    X1+X6       MERGE NEW BIT
44876  M01S02349.253l688 +++|          SA6    A1
44877  M01S02350.253l688 +++|          TEQ    (/ISD/SMU,ISD,/PROGRAM/SMU,MMF,/LSPMMF/SMU)  COMPLETE
44878  M01S02351.253l688 +++|
Line S02768 Modification History
M01 (Added by) 251l664
Seq #  *Modification Id* Act 
----------------------------+
44879  M01S02768.251l664 +++| STB12    SX1    A4-B6       SET ONE WORD UPDATE FOR *CDI*
44880  M01S02769.251l664 +++|          SX5    X1+B1
44881  M00S26980.cpumtr  +++|          EQ     /PROGRAM/CCP1  RELEASE INTERLOCK
44882  M00S26981.cpumtr  +++|
44883  M00S26982.cpumtr  +++|          ENDBLK
Line S00520 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
44884  M01S00520.283l840 +++|          BLOCK  BIOMMF,(SHARED BUFFERED DEVICE PROCESSING.)
44885  M01S00521.283l840 +++|
44886  M01S00522.283l840 +++|          QUAL   BUFIO
44887  M01S00523.283l840 +++| MTE      SPACE  4,10
44888  M01S00524.283l840 +++|**        MTE - PROCESS *MTEM* FUNCTION.
44889  M01S00525.283l840 +++|*
44890  M01S00526.283l840 +++|*         PARAMETERS ARE VALIDATED AND THE FUNCTION PASSED
44891  M01S00527.283l840 +++|*         TO *MTE*.
44892  M01S00528.283l840 +++|
44893  M01S00529.283l840 +++|
44894  M01S00530.283l840 +++| MTE      BSS    0           ENTRY
44895  M01S00531.283l840 +++|          MX3    -12
44896  M01S00532.283l840 +++|          AX1    36
44897  M01S00533.283l840 +++|          SB4    X1-MXMTEM
44898  M01S00534.283l840 +++|          PL     B4,/MONITOR/HNG  IF INVALID SUBFUNCTION
44899  M01S00535.283l840 +++|          BX2    -X3*X5      ISOLATE PARAMETER
44900  M01S00536.283l840 +++|          LX5    -12         POSITION FOR NEXT PARAMETER
44901  M01S00537.283l840 +++|          JP     TMTE+TMTEL+B4  JUMP TO PROCESS FUNCTION
44902  M01S00538.283l840 +++|
44903  M01S00539.283l840 +++|*         SUBFUNCTION TABLE.
44904  M01S00540.283l840 +++|
44905  M01S00541.283l840 +++| TMTE     BSS    0
44906  M01S00542.283l840 +++|          LOC    0
44907  M01S00543.283l840 +++|
44908  M01S00544.283l840 +++|+         LX5    -12         (CBRS) - CLEAR BAT READ ACCESS
44909  M01S00545.283l840 +++|          BX4    -X3*X5      ISOLATE MACHINE INDEX
44910  M01S00546.283l840 +++|          EQ     MTE1        VALIDATE MACHINE INDEX/EST ORDINAL
44911  M01S00547.283l840 +++|
44912  M01S00548.283l840 +++|+         LX5    -12         (CBWS) - CLEAR BAT READ/WRITE ACCESS
44913  M01S00549.283l840 +++|          BX4    -X3*X5
44914  M01S00550.283l840 +++|          EQ     MTE1        VALIDATE MACHINE INDEX/EST ORDINAL
44915  M01S00551.283l840 +++|
44916  M01S00552.283l840 +++|+         BX4    -X3*X5      (CEMS) - CLEAR EXTENDED MEMORY TRACK
44917  M01S00553.283l840 +++|          LX5    -12
44918  M01S00554.283l840 +++|          EQ     MTE3        VALIDATE TRACK/SECTORS
44919  M01S00555.283l840 +++|
44920  M01S00556.283l840 +++|+         BX4    -X3*X5      (EBRS) - ENABLE BRT PROCESSING
44921  M01S00557.283l840 +++|          EQ     /LSPMMF/QPR QUEUE *MTE* REQUEST
44922  M01S00558.283l840 +++|
Line S00559 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44923  M02S00559.ns2783  ---|+         EQ     MTE2        (SBDS) - SET BUFFERED DEVICE INTERLOCK
Line S00128 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44924  M01S00128.ns2783  +++|+         EQ     MTE2        (SEPS) - SET ERROR PROCESSING INTERLOCK
Line S00560 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
44925  M01S00560.283l840 +++|
Line S00561 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44926  M02S00561.ns2783  ---|+         EQ     MTE2        (CBDS) - CLEAR BUFFERED DEVICE INTERLOCK
Line S00129 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44927  M01S00129.ns2783  +++|+         EQ     MTE2        (CEPS) - CLEAR ERROR PROCESSING INTERLOCK
Line S00562 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
44928  M01S00562.283l840 +++|
Line S00563 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44929  M02S00563.ns2783  ---|+         EQ     /LSPMMF/QPR (SRIS) - SET RECOVERY INTERLOCK
Line S00130 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44930  M01S00130.ns2783  +++|+         EQ     /LSPMMF/QPR (SRIS) - SET RECOVERY ERROR INTERLOCK
Line S00564 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
44931  M01S00564.283l840 +++|
Line S00565 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44932  M02S00565.ns2783  ---|+         EQ     /LSPMMF/QPR (CRIS) - CLEAR RECOVERY INTERLOCK
Line S00131 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44933  M01S00131.ns2783  +++|+         EQ     /LSPMMF/QPR (CRIS) - CLEAR RECOVERY ERROR INTERLOCK
Line S00566 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
44934  M01S00566.283l840 +++|
Line S00017 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
44935  M01S00017.ns2780  +++|+         EQ     MTE2        (RBPS) - RELEASE BAT/BST PERMISSIONS
Line S00132 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44936  M01S00132.ns2783  +++|
44937  M01S00133.ns2783  +++|+         EQ     /LSPMMF/QPR (GRIS) - GET RECOVERY INTERLOCK STATUS
44938  M01S00134.ns2783  +++|
44939  M01S00135.ns2783  +++|+         EQ     MTE2        (SRPS) - SET RESTORE PARITY INTERLOCK
44940  M01S00136.ns2783  +++|
44941  M01S00137.ns2783  +++|+         EQ     MTE2        (CRPS) - CLEAR RESTORE PARITY INTERLOCK
44942  M01S00138.ns2783  +++|
44943  M01S00139.ns2783  +++|+         EQ     MTE2        (GBDS) - GET *BDT* ENTRY
Line S00018 Modification History
M01 (Added by) ns2780
Seq #  *Modification Id* Act 
----------------------------+
44944  M01S00018.ns2780  +++|
Line S00567 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
44945  M01S00567.283l840 +++|
44946  M01S00568.283l840 +++| TMTEL    BSS    0
44947  M01S00569.283l840 +++|          LOC    *O
44948  M01S00570.283l840 +++|
44949  M01S00571.283l840 +++| MTE1     SX4    X4-MXMF
44950  M01S00572.283l840 +++|          PL     X4,/MONITOR/HNG  IF INVALID MACHINE INDEX
44951  M01S00573.283l840 +++| MTE2     CX4    X2,EST
44952  M01S00574.283l840 +++|          TA4    X4+EQDE,EST READ EST ENTRY
44953  M01S00575.283l840 +++|          BX1    X4
44954  M01S00576.283l840 +++|          LX4    59-57
44955  M01S00577.283l840 +++|          PL     X4,/MONITOR/HNG  IF NOT SHARED
Line S00578 Modification History
M01 (Added by) 283l840
M02 (Removed by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44956  M02S00578.ns2783  ---|          LX4    57-53
Line S00140 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44957  M01S00140.ns2783  +++|          LX4    59-53-59+57
Line S00579 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
44958  M01S00579.283l840 +++|          PL     X4,/MONITOR/HNG  IF NOT BUFFERED
44959  M01S00580.283l840 +++|          TX0    X2,-ESTL
44960  M01S00581.283l840 +++|          BX0    X1*X0
44961  M01S00582.283l840 +++|          PL     X0,/MONITOR/HNG  IF NOT MASS STORAGE OR OUT OF EST
Line S00141 Modification History
M01 (Added by) ns2783
Seq #  *Modification Id* Act 
----------------------------+
44962  M01S00141.ns2783  +++|          MX0    -12         GET MST ADDRESS
44963  M01S00142.ns2783  +++|          BX0    -X0*X1
44964  M01S00143.ns2783  +++|          LX0    3
44965  M01S00144.ns2783  +++|          SA1    X0+MDGL     GET *DAT* POINTER
44966  M01S00145.ns2783  +++|          MX0    -8
44967  M01S00146.ns2783  +++|          LX1    -48
44968  M01S00147.ns2783  +++|          BX1    -X0*X1
44969  M01S00148.ns2783  +++|          ZR     X1,/MONITOR/HNG  IF DEVICE IS NOT IN *DAT*
Line S00583 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
44970  M01S00583.283l840 +++|          EQ     /LSPMMF/QPR QUEUE FUNCTION FOR *MTE*
44971  M01S00584.283l840 +++|
44972  M01S00585.283l840 +++| MTE3     SX2    X2-4000B
44973  M01S00586.283l840 +++|          NG     X2,/MONITOR/HNG  IF INVALID TRACK TO CLEAR
44974  M01S00587.283l840 +++|          BX3    -X3*X5      FIRST SECTOR TO CLEAR
44975  M01S00588.283l840 +++|          IX3    X3+X4       COMPUTE LAST SECTOR TO CLEAR
44976  M01S00589.283l840 +++|          SA2    MMFL        GET LINK DEVICE EST ORDINAL
44977  M01S00590.283l840 +++|          MX0    -9
44978  M01S00591.283l840 +++|          LX2    -36
44979  M01S00592.283l840 +++|          BX2    -X0*X2
44980  M01S00593.283l840 +++|          CX4    X2,EST
44981  M01S00594.283l840 +++|          TA4    X4+EQAE,EST READ EST ENTRY
44982  M01S00595.283l840 +++|          LX4    -24
44983  M01S00596.283l840 +++|          MX0    -2
44984  M01S00597.283l840 +++|          BX4    -X0*X4      EXTENDED MEMORY SHIFT COUNT
44985  M01S00598.283l840 +++|          SB3    X4
44986  M01S00599.283l840 +++|          SX1    20B
44987  M01S00600.283l840 +++|          LX1    B3,X1       SECTOR LIMIT
44988  M01S00601.283l840 +++|          IX1    X3-X1
44989  M01S00602.283l840 +++|          PL     X1,/MONITOR/HNG  IF LAST SECTOR PAST TRACK END
44990  M01S00603.283l840 +++|          EQ     /LSPMMF/QPR QUEUE FUNCTION FOR *MTE*
44991  M01S00604.283l840 +++| LBS      SPACE  4,10
44992  M01S00605.283l840 +++|**        LBS - *LBM* EXTENSION FOR SHARED DEVICES.
44993  M01S00606.283l840 +++|*
44994  M01S00607.283l840 +++|*         ENTRY  (B6) = BUFFER MANAGER OPERATION CODE.
44995  M01S00608.283l840 +++|*
44996  M01S00609.283l840 +++|*         EXIT   TO BUFFER MANAGER FUNCTION PROCESSOR.
44997  M01S00610.283l840 +++|*
44998  M01S00611.283l840 +++|*         USES   X - 0, 1, 2, 6.
44999  M01S00612.283l840 +++|*                A - 1, 2, 6.
45000  M01S00613.283l840 +++|
45001  M01S00614.283l840 +++|
45002  M01S00615.283l840 +++| LBS      BSS    0           ENTRY
Line S00616 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45003  M02S00616.cpum244 ---|          SA1    SDUR
45004  M02S00617.cpum244 ---|          ZR     X1,LBS1     IF NO UNABLE TO RELEASE ACCESS STATUS
Line S00618 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45005  M01S00618.283l840 +++|          SA2    RTCL
Line S00006 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45006  M01S00006.cpum244 +++|          SA1    SDWR
Line S00619 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45007  M01S00619.283l840 +++|          MX0    -36
Line S00007 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45008  M01S00007.cpum244 +++|          BX2    -X0*X2
45009  M01S00008.cpum244 +++|          ZR     X1,LBS1     IF NO WRITE ACCESS REQUEST
Line S00620 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45010  M01S00620.283l840 +++|          BX1    -X0*X1
Line S00621 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45011  M02S00621.cpum244 ---|          BX2    -X0*X2
Line S00622 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45012  M01S00622.283l840 +++|          IX1    X2-X1
45013  M01S00623.283l840 +++|          NG     X1,LBS1     IF TIMEOUT NOT ELAPSED
45014  M01S00624.283l840 +++|          SX6    B0+         CLEAR STATUS
45015  M01S00625.283l840 +++|          SA6    A1+
Line S00626 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45016  M02S00626.cpum244 ---| LBS1     JP     B6+LBMA     PROCESS FUNCTION
Line S00009 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45017  M01S00009.cpum244 +++| LBS1     SA1    SDUR
45018  M01S00010.cpum244 +++|          ZR     X1,LBS2     IF NO UNABLE TO RELEASE ACCESS STATUS
45019  M01S00011.cpum244 +++|          BX1    -X0*X1
45020  M01S00012.cpum244 +++|          IX1    X2-X1
45021  M01S00013.cpum244 +++|          NG     X1,LBS2     IF TIMEOUT NOT ELAPSED
45022  M01S00014.cpum244 +++|          SX6    B0+         CLEAR STATUS
45023  M01S00015.cpum244 +++|          SA6    A1+
45024  M01S00016.cpum244 +++| LBS2     JP     B6+LBMA     PROCESS FUNCTION
Line S00627 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45025  M01S00627.283l840 +++| CRR      SPACE  4,10
45026  M01S00628.283l840 +++|**        CRR - COMPLETE *MTE* REQUEST FOR READ ACCESS.
45027  M01S00629.283l840 +++|*
45028  M01S00630.283l840 +++|*         EXIT   TO *LBMX*.
45029  M01S00631.283l840 +++|*
45030  M01S00632.283l840 +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
45031  M01S00633.283l840 +++|*                A - 1, 2, 6.
45032  M01S00634.283l840 +++|*                B - 4, 5.
45033  M01S00635.283l840 +++|*
45034  M01S00636.283l840 +++|*         CALLS  SBP.
45035  M01S00637.283l840 +++|
45036  M01S00638.283l840 +++|
45037  M01S00639.283l840 +++| CRR      BSS    0           ENTRY
45038  M01S00640.283l840 +++|          SX5    2           SET NEW STATUS
45039  M01S00641.283l840 +++|          SX7    7           SET STATUS TO CHECK
45040  M01S00642.283l840 +++|
45041  M01S00643.283l840 +++|*         ENTRY FROM *CWR*.
45042  M01S00644.283l840 +++|
45043  M01S00645.283l840 +++| CRR1     SA1    SDEO
45044  M01S00646.283l840 +++|          SB5    CRR2        SET *SBP* RETURN ADDRESS
45045  M01S00647.283l840 +++|          ZR     X1,/PROGRAM/HNG  IF NOT SHARED DEVICE
45046  M01S00648.283l840 +++|          EQ     SBP         SET BST PARAMETERS
45047  M01S00649.283l840 +++|
45048  M01S00650.283l840 +++| CRR2     NG     X2,/PROGRAM/HNG  IF BST PROCESSING DISABLED
45049  M01S00651.283l840 +++|          SA2    OPAR        GET COMPLETION STATUS
45050  M01S00652.283l840 +++|          BX7    X7*X4
45051  M01S00653.283l840 +++|          SX7    X7-1
45052  M01S00654.283l840 +++|          MX0    -1
45053  M01S00655.283l840 +++|          NZ     X7,/PROGRAM/HNG  IF INCORRECT STATUS FOR RESPONSE
45054  M01S00656.283l840 +++|          SB5    X2-1
45055  M01S00657.283l840 +++|          BX4    X0*X4       CLEAR REQUEST IN PROGRESS FLAG
45056  M01S00658.283l840 +++|          NG     B5,CRR3     IF NORMAL COMPLETION
45057  M01S00659.283l840 +++|          SX5    B0
45058  M01S00660.283l840 +++|          ZR     B5,CRR3     IF *BRT* ENTRY EVICTED BY *MTE*
45059  M01S00661.283l840 +++|          GT     B5,B1,/PROGRAM/HNG  IF INCORRECT RESPONSE STATUS
45060  M01S00662.283l840 +++|          LX1    48
45061  M01S00663.283l840 +++|          LX3    36
45062  M01S00664.283l840 +++|          SX7    B1+B1
45063  M01S00665.283l840 +++|          BX6    X1+X3       SET EST ORDINAL AND TRACK
45064  M01S00666.283l840 +++|          SA1    SDUR
45065  M01S00667.283l840 +++|          SA2    RTCL
45066  M01S00668.283l840 +++|          MX0    -36
45067  M01S00669.283l840 +++|          BX7    X7*X4
45068  M01S00670.283l840 +++|          NZ     X7,/PROGRAM/HNG  IF READ ACCESS CURRENTLY PRESENT
Line S00671 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45069  M02S00671.cpum244 ---|          SX7    100
Line S00017 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45070  M01S00017.cpum244 +++|          SX7    SDUD
Line S00672 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45071  M01S00672.283l840 +++|          NZ     X1,CRR3     IF STATUS WORD IN USE
45072  M01S00673.283l840 +++|          BX2    -X0*X2      SET TIMEOUT
45073  M01S00674.283l840 +++|          IX2    X2+X7
45074  M01S00675.283l840 +++|          BX6    X6+X2       SET UNABLE TO RELEASE ACCESS STATUS
45075  M01S00676.283l840 +++|          SA6    A1
45076  M01S00677.283l840 +++| CRR3     SX1    60
45077  M01S00678.283l840 +++|          SB4    -B4
45078  M01S00679.283l840 +++|          BX4    X4+X5       SET NEW STATUS
45079  M01S00680.283l840 +++|          SB4    X1+B4       SHIFT COUNT TO RESTORE ENTRY
45080  M01S00681.283l840 +++|          LX6    B4,X4       UPDATE BST ENTRY
45081  M01S00682.283l840 +++|          SA6    A4+
45082  M01S00683.283l840 +++|          EQ     LBMX        EXIT BUFFER MANAGER
45083  M01S00684.283l840 +++| CWR      SPACE  4,10
45084  M01S00685.283l840 +++|**        CWR - COMPLETE *MTE* REQUEST FOR WRITE ACCESS.
45085  M01S00686.283l840 +++|*
45086  M01S00687.283l840 +++|*         EXIT   TO *CRR1*.
45087  M01S00688.283l840 +++|*
45088  M01S00689.283l840 +++|*         USES   X - 5, 6.
45089  M01S00690.283l840 +++|
45090  M01S00691.283l840 +++|
45091  M01S00692.283l840 +++| CWR      BSS    0           ENTRY
45092  M01S00693.283l840 +++|          SX5    6           SET NEW STATUS
45093  M01S00694.283l840 +++|          SX7    5           SET STATUS TO CHECK
45094  M01S00695.283l840 +++|          EQ     CRR1        EXIT TO READ ACCESS PROCESSOR
45095  M01S00696.283l840 +++| RRA      SPACE  4,15
45096  M01S00697.283l840 +++|**        RRA - RELEASE READ ACCESS.
45097  M01S00698.283l840 +++|*
45098  M01S00699.283l840 +++|*         EXIT   TO *LBMX* IF ALL BUFFERS FLUSHED OR RELEASED.
45099  M01S00700.283l840 +++|*                TO *SIS* IF WRITE ERROR ON BUFFER FLUSH.
45100  M01S00701.283l840 +++|*                TO *SBB* IF ALL BUFFERS NOT FLUSHED OR RELEASED.
45101  M01S00702.283l840 +++|*
45102  M01S00703.283l840 +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
45103  M01S00704.283l840 +++|*                A - 1, 3, 4, 6.
45104  M01S00705.283l840 +++|*                B - 4, 5, 6.
45105  M01S00706.283l840 +++|*
45106  M01S00707.283l840 +++|*         CALLS  CHA, DCC, DCH, LCC, SBP.
45107  M01S00708.283l840 +++|
45108  M01S00709.283l840 +++|
45109  M01S00710.283l840 +++| RRA      BSS    0           ENTRY
45110  M01S00711.283l840 +++|          SX7    6           SET TO CLEAR READ AND WRITE ACCESS
45111  M01S00712.283l840 +++|
45112  M01S00713.283l840 +++|*         SET BST INTERLOCK AND FIND HASH TABLE ENTRY.
45113  M01S00714.283l840 +++|*         ENTRY FROM *RWA*.
45114  M01S00715.283l840 +++|
45115  M01S00716.283l840 +++| RRA1     SA1    SDEO
45116  M01S00717.283l840 +++|          SB5    RRA2        SET RETURN ADDRESS
45117  M01S00718.283l840 +++|          ZR     X1,/PROGRAM/HNG  IF NOT SHARED DEVICE
45118  M01S00719.283l840 +++|          EQ     SBP         SET BST PARAMETERS
45119  M01S00720.283l840 +++|
45120  M01S00721.283l840 +++|*         IN SOME CASES, *MTE* WILL REISSUE A *BMTR* OR *BMTW* REQUEST
45121  M01S00722.283l840 +++|*         THAT HAD BEEN PREVIOUSLY COMPLETED SUCCESSFULLY BY *CPUMTR*.
45122  M01S00723.283l840 +++|*         THIS IS NOT CONSIDERED AN ERROR CONDITION.
45123  M01S00724.283l840 +++|
45124  M01S00725.283l840 +++| RRA2     SX6    A4+
45125  M01S00726.283l840 +++|          BX2    X7*X4
45126  M01S00727.283l840 +++|          PX6    B4,X6
45127  M01S00728.283l840 +++|          ZR     X2,LBMX     IF REQUEST PREVIOUSLY PROCESSED
45128  M01S00729.283l840 +++|          SA6    RRAA        SAVE BST POINTERS
45129  M01S00730.283l840 +++|
45130  M01S00731.283l840 +++|*         FIND HASH TABLE ENTRY.
45131  M01S00732.283l840 +++|
45132  M01S00733.283l840 +++| RRA3     SA7    RRAB        SAVE ACCESS INFORMATION
45133  M01S00734.283l840 +++|          SB6    RRA4        SET *CHA* RETURN ADDRESS
45134  M01S00735.283l840 +++|          SX7    -1          SET LOCATE HASH TABLE ENTRY
45135  M01S00736.283l840 +++|          EQ     CHA         CALCULATE HASH ADDRESS
45136  M01S00737.283l840 +++|
45137  M01S00738.283l840 +++| RRA4     SA3    RRAB
Line S00739 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum240
Seq #  *Modification Id* Act 
----------------------------+
45138  M02S00739.cpum240 ---|          SX7    X3+         RESET ACCESS INFORMATION
Line S00001 Modification History
M01 (Added by) cpum240
Seq #  *Modification Id* Act 
----------------------------+
45139  M01S00001.cpum240 +++|          BX7    X3          RESET ACCESS INFORMATION
Line S00740 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45140  M01S00740.283l840 +++|          ZR     X1,RRA13    IF HASH TABLE ENTRY NOT FOUND
45141  M01S00741.283l840 +++|          SA3    X1          GET HASH TABLE ENTRY
45142  M01S00742.283l840 +++|          LX3    24
45143  M01S00743.283l840 +++|
45144  M01S00744.283l840 +++|*         GET BUFFER STATUS.
45145  M01S00745.283l840 +++|
45146  M01S00746.283l840 +++| RRA5     LX3    -24
45147  M01S00747.283l840 +++|          MX0    -12
45148  M01S00748.283l840 +++|          BX6    -X0*X3      NEXT BUFFER ORDINAL
45149  M01S00749.283l840 +++|          BX0    -X0*X3
45150  M01S00750.283l840 +++|          SA6    INLB        SET/CLEAR BUFFER INTERLOCK
45151  M01S00751.283l840 +++|          LX6    CBTLS       SET BUFFER ADDRESS
45152  M01S00752.283l840 +++|          ZR     X6,RRA13    IF END OF BUFFERS
45153  M01S00753.283l840 +++|          TA2    X6+IOLK,CBT GET I/O INTERLOCK AND WRITE STATUS
45154  M01S00754.283l840 +++|          SA3    A2+B1       GET HASH LINK
45155  M01S00755.283l840 +++|          ERRNZ  HSLK-IOLK-1
45156  M01S00756.283l840 +++|          SA4    A3+B1       GET ACTIVITY COUNT
45157  M01S00757.283l840 +++|          ERRNZ  LSLK-HSLK-1
45158  M01S00758.283l840 +++|          MX1    1
45159  M01S00759.283l840 +++|          BX1    X1*X2       I/O INTERLOCK FLAG
45160  M01S00760.283l840 +++|          BX6    X3
45161  M01S00761.283l840 +++|          SA6    RRAC        SAVE HASH LINKAGE
45162  M01S00762.283l840 +++|          MX6    12
45163  M01S00763.283l840 +++|          BX4    X6*X4       ACTIVITY COUNT
45164  M01S00764.283l840 +++|          LX2    59-57
45165  M01S00765.283l840 +++|          BX4    X1+X4
45166  M01S00766.283l840 +++|          SX6    X0
45167  M01S00767.283l840 +++|          PL     X2,RRA8     IF NO WRITE DATA IN BUFFER
45168  M01S00768.283l840 +++|
45169  M01S00769.283l840 +++|*         FLUSH AND RELINK WRITE BUFFER.
45170  M01S00770.283l840 +++|
45171  M01S00771.283l840 +++|          MX1    1
45172  M01S00772.283l840 +++|          BX7    X7+X1       INDICATE WRITE BUFFER FOUND
45173  M01S00773.283l840 +++|          NZ     X4,RRA7     IF I/O INTERLOCK OR ACTIVITY PRESENT
45174  M01S00774.283l840 +++|          TA6    IORQ        SET I/O REQUEST
45175  M01S00775.283l840 +++|+         XJ                 FLUSH BUFFER
45176  M01S00776.283l840 +++|
45177  M01S00777.283l840 +++|          SB6    RRA6        SET *DCC* RETURN ADDRESS
45178  M01S00778.283l840 +++|          EQ     DCC         DELINK BUFFER FROM CURRENT LIST
45179  M01S00779.283l840 +++|
45180  M01S00780.283l840 +++| RRA6     SB6    RRA11       SET *LCC* RETURN ADDRESS
45181  M01S00781.283l840 +++|          TX1    DWTB
45182  M01S00782.283l840 +++|          EQ     LCC         LINK BUFFER TO DATA WRITTEN LIST
45183  M01S00783.283l840 +++|
45184  M01S00784.283l840 +++| RRA7     PL     X3,RRA11    IF NO WRITE ERROR
45185  M01S00785.283l840 +++|          SX1    B1
45186  M01S00786.283l840 +++|          LX1    57-0
45187  M01S00787.283l840 +++|          BX7    X7+X1       SET WRITE ERROR
45188  M01S00788.283l840 +++|          EQ     RRA11       SET BUFFER NOT RELEASED
45189  M01S00789.283l840 +++|
45190  M01S00790.283l840 +++|*         DELINK READ BUFFER FROM HASH TABLE.
45191  M01S00791.283l840 +++|
45192  M01S00792.283l840 +++| RRA8     SX1    X7-4
45193  M01S00793.283l840 +++|          ZR     X1,RRA11    IF RELEASING WRITE ACCESS
45194  M01S00794.283l840 +++|          NZ     X4,RRA11    IF I/O INTERLOCK OR ACTIVITY PRESENT
45195  M01S00795.283l840 +++|          SB6    RRA9        SET *DCH* RETURN ADDRESS
45196  M01S00796.283l840 +++|          EQ     DCH         DELINK BUFFER FROM HASH TABLE
45197  M01S00797.283l840 +++|
45198  M01S00798.283l840 +++| RRA9     SB6    RRA10       SET *DCC* RETURN ADDRESS
45199  M01S00799.283l840 +++|          EQ     DCC         DELINK BUFFER FROM CURRENT LIST
45200  M01S00800.283l840 +++|
45201  M01S00801.283l840 +++| RRA10    SB6    RRA12       SET *LCC* RETURN ADDRESS
45202  M01S00802.283l840 +++|          TX1    EMTB
45203  M01S00803.283l840 +++|          EQ     LCC         LINK BUFFER TO EMPTY LIST
45204  M01S00804.283l840 +++|
45205  M01S00805.283l840 +++|*         SET BUFFER NOT RELEASED.
45206  M01S00806.283l840 +++|
45207  M01S00807.283l840 +++| RRA11    SX1    1
45208  M01S00808.283l840 +++|          LX1    58-0
45209  M01S00809.283l840 +++|          BX7    X7+X1       INDICATE BUFFER NOT RELEASED
45210  M01S00810.283l840 +++|
45211  M01S00811.283l840 +++|*         ADVANCE TO NEXT BUFFER.
45212  M01S00812.283l840 +++|
45213  M01S00813.283l840 +++| RRA12    SA3    RRAC        RESTORE *HSLK* INFORMATION
45214  M01S00814.283l840 +++|          EQ     RRA5        PROCESS NEXT BUFFER
45215  M01S00815.283l840 +++|
45216  M01S00816.283l840 +++|*         CHECK FOR MULTI-UNIT EQUIPMENT.
45217  M01S00817.283l840 +++|
45218  M01S00818.283l840 +++| RRA13    SA1    PUTO
45219  M01S00819.283l840 +++|          MX0    -12
45220  M01S00820.283l840 +++|          BX2    -X0*X1      CURRENT PUT ORDINAL
45221  M01S00821.283l840 +++|          LX2    PUTLS
45222  M01S00822.283l840 +++|          TA2    X2+HSCT,PUT
45223  M01S00823.283l840 +++|          BX2    -X0*X2      NEXT PUT ORDINAL
45224  M01S00824.283l840 +++|          ZR     X2,RRA14    IF END OF UNITS
45225  M01S00825.283l840 +++|          SA2    LSEC
45226  M01S00826.283l840 +++|          AX1    36          SINGLE UNIT SECTOR LIMIT
45227  M01S00827.283l840 +++|          IX6    X2+X1       ADVANCE SECTOR TO NEXT UNIT
45228  M01S00828.283l840 +++|          SA6    A2+
45229  M01S00829.283l840 +++|          EQ     RRA3        PROCESS NEXT UNIT
45230  M01S00830.283l840 +++|
45231  M01S00831.283l840 +++|*         CLEAR ACCESS FLAGS IN BST IF ALL BUFFERS RELEASED OR FLUSHED.
Line S00018 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45232  M01S00018.cpum244 +++|*         IF ANOTHER MACHINE IS WAITING FOR WRITE ACCESS TO THE TRACK
45233  M01S00019.cpum244 +++|*         AND NO ACTIVITY REMAINS ON THIS MACHINE, THE TIMEOUT DELAY IN
45234  M01S00020.cpum244 +++|*         *SDWR* IS SET TO *SDMD* MILLISECONDS FROM THE CURRENT TIME.
45235  M01S00021.cpum244 +++|*         THIS IS TO ALLOW *MTE* ON THE MACHINE REQUESTING WRITE ACCESS
45236  M01S00022.cpum244 +++|*         TIME TO PROCESS THE REQUEST.
Line S00832 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45237  M01S00832.283l840 +++|
45238  M01S00833.283l840 +++| RRA14    SA4    RRAA
45239  M01S00834.283l840 +++|          BX1    X7
45240  M01S00835.283l840 +++|          LX1    3
45241  M01S00836.283l840 +++|          SX7    X7          STATUS FLAGS TO CLEAR
45242  M01S00837.283l840 +++|          SX1    X1          CURRENT BUFFER ACCESS STATUS
45243  M01S00838.283l840 +++|          BX2    X1*X7
45244  M01S00839.283l840 +++|          UX4,B4 X4          RESET BST PARAMETERS
45245  M01S00840.283l840 +++|          NZ     X2,RRA15    IF NOT ALL BUFFERS RELEASED/FLUSHED
45246  M01S00841.283l840 +++|          SA4    X4          GET BST ENTRY
45247  M01S00842.283l840 +++|          LX4    B4
45248  M01S00843.283l840 +++|          SB5    60
45249  M01S00844.283l840 +++|          BX4    -X7*X4      CLEAR READ/WRITE ACCESS
45250  M01S00845.283l840 +++|          SB4    B5-B4
45251  M01S00846.283l840 +++|          LX6    X4,B4
45252  M01S00847.283l840 +++|          SA6    A4          UPDATE BST ENTRY
Line S00023 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45253  M01S00023.cpum244 +++|          SX1    X7-6
45254  M01S00024.cpum244 +++|          NZ     X1,LBMX     IF NOT RELEASING READ ACCESS
45255  M01S00025.cpum244 +++|          SA1    SDWR
45256  M01S00026.cpum244 +++|          SA3    LTRK
45257  M01S00027.cpum244 +++|          SA4    SDEO
45258  M01S00028.cpum244 +++|          AX1    36
45259  M01S00029.cpum244 +++|          LX4    12
45260  M01S00030.cpum244 +++|          BX4    X4+X3
45261  M01S00031.cpum244 +++|          BX6    X4-X1
45262  M01S00032.cpum244 +++|          NZ     X6,LBMX     IF NO WAIT REQUEST FOR TRACK
45263  M01S00033.cpum244 +++|          SA2    RTCL
45264  M01S00034.cpum244 +++|          MX0    -36
45265  M01S00035.cpum244 +++|          LX1    36
45266  M01S00036.cpum244 +++|          SX7    SDMD
45267  M01S00037.cpum244 +++|          BX6    X1+X7
45268  M01S00038.cpum244 +++|          BX2    -X0*X2
45269  M01S00039.cpum244 +++|          IX6    X6+X2       SET TIME DELAY
45270  M01S00040.cpum244 +++|          SA6    A1          UPDATE REQUEST
Line S00848 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45271  M01S00848.283l840 +++|          EQ     LBMX        EXIT WITH NORMAL STATUS
45272  M01S00849.283l840 +++|
45273  M01S00850.283l840 +++|*         PROCESS ERROR RETURN.
45274  M01S00851.283l840 +++|
45275  M01S00852.283l840 +++| RRA15    LX1    59-0
Line S00041 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45276  M01S00041.cpum244 +++|          MX0    -36
Line S00853 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45277  M01S00853.283l840 +++|          NG     X1,SIS      IF WRITE ERROR ON FLUSH
Line S00042 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45278  M01S00042.cpum244 +++|          SX1    X7-6
45279  M01S00043.cpum244 +++|          NZ     X1,SBB      IF NOT RELEASING READ ACCESS
45280  M01S00044.cpum244 +++|          SA1    SDWR
45281  M01S00045.cpum244 +++|          SA2    RTCL
45282  M01S00046.cpum244 +++|          SA3    LTRK
45283  M01S00047.cpum244 +++|          SA4    SDEO
45284  M01S00048.cpum244 +++|          NZ     X1,SBB      IF STATUS WORD IN USE
45285  M01S00049.cpum244 +++|          SX7    SDWD        SET TIME DELAY
45286  M01S00050.cpum244 +++|          BX2    -X0*X2
45287  M01S00051.cpum244 +++|          LX3    36
45288  M01S00052.cpum244 +++|          LX4    48
45289  M01S00053.cpum244 +++|          IX7    X2+X7       SET TIMEOUT
45290  M01S00054.cpum244 +++|          BX6    X4+X3       MERGE EST ORDINAL AND TRACK
45291  M01S00055.cpum244 +++|          BX6    X6+X7       MERGE TIMEOUT
45292  M01S00056.cpum244 +++|          SA6    A1+         SET WRITE ACCESS REQUESTED
Line S00854 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45293  M01S00854.283l840 +++|          EQ     SBB         RETURN BUFFER BUSY STATUS
45294  M01S00855.283l840 +++|
45295  M01S00856.283l840 +++|
45296  M01S00857.283l840 +++| RRAA     BSS    1           BST PARAMETERS
45297  M01S00858.283l840 +++| RRAB     BSS    1           ACCESS MASK
45298  M01S00859.283l840 +++| RRAC     BSS    1           CURRENT *HSLK* WORD
45299  M01S00860.283l840 +++| RWA      SPACE  4,10
45300  M01S00861.283l840 +++|**        RWA - RELEASE WRITE ACCESS.
45301  M01S00862.283l840 +++|*
45302  M01S00863.283l840 +++|*         EXIT   TO *RRA1* TO PROCESS FUNCTION.
45303  M01S00864.283l840 +++|*
45304  M01S00865.283l840 +++|*         USES   X - 7.
45305  M01S00866.283l840 +++|
45306  M01S00867.283l840 +++|
45307  M01S00868.283l840 +++| RWA      BSS    0           ENTRY
45308  M01S00869.283l840 +++|          SX7    4           SET TO CLEAR WRITE ACCESS
45309  M01S00870.283l840 +++|          EQ     RRA1        EXIT TO PROCESS FUNCTION
45310  M01S00871.283l840 +++| CSD      SPACE  4,25
45311  M01S00872.283l840 +++|**        CSD - CHECK SHARED DEVICE ACCESS.
45312  M01S00873.283l840 +++|*
45313  M01S00874.283l840 +++|*         ENTRY  (B6) = *CHA* RETURN ADDRESS.
45314  M01S00875.283l840 +++|*                (X7) = BUFFERS ALLOCATED FLAG.
45315  M01S00876.283l840 +++|*
45316  M01S00877.283l840 +++|*         EXIT   TO *CHA* IF NOT SHARED DEVICE OR IF SHARED DEVICE AND
45317  M01S00878.283l840 +++|*                  BUFFER CAN BE ACCESSED.
45318  M01S00879.283l840 +++|*                TO *CHA* RETURN ADDRESS IF SHARED DEVICE AND BUFFER
45319  M01S00880.283l840 +++|*                  CANNOT BE ACCESSED IN REQUESTED MODE.
45320  M01S00881.283l840 +++|*                TO *SIS* IF BUFFER ON MACHINE HOLDING WRITE ACCESS
45321  M01S00882.283l840 +++|*                  CANNOT BE FLUSHED (DEVICE INACCESSIBLE).
45322  M01S00883.283l840 +++|*                (X2) = -2 (REQUIRED FOR EXIT TO *CHA* CALLER WHEN
45323  M01S00884.283l840 +++|*                          BUFFER CANNOT BE ACCESSED IN REQUESTED
45324  M01S00885.283l840 +++|*                          MODE).
45325  M01S00886.283l840 +++|*                (X7) = BUFFERS ALLOCATED FLAG.
45326  M01S00887.283l840 +++|*
45327  M01S00888.283l840 +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
45328  M01S00889.283l840 +++|*                A - 1, 2, 6.
45329  M01S00890.283l840 +++|*                B - 4, 5.
45330  M01S00891.283l840 +++|*
45331  M01S00892.283l840 +++|*         CALLS  SBP.
45332  M01S00893.283l840 +++|
45333  M01S00894.283l840 +++|
45334  M01S00895.283l840 +++| CSD      BSS    0           ENTRY
45335  M01S00896.283l840 +++|
45336  M01S00897.283l840 +++|*         ENTRY FOR READ ACCESS.
45337  M01S00898.283l840 +++|
45338  M01S00899.283l840 +++|          SX5    2           SET TO CHECK READ ACCESS
45339  M01S00900.283l840 +++|          EQ     CSD2
45340  M01S00901.283l840 +++|
45341  M01S00902.283l840 +++|*         ENTRY FOR WRITE ACCESS.
45342  M01S00903.283l840 +++|
45343  M01S00904.283l840 +++| CSD1     SX5    4           SET TO CHECK WRITE ACCESS
45344  M01S00905.283l840 +++|
45345  M01S00906.283l840 +++|*         CHECK ACCESS TO SHARED DEVICE.
45346  M01S00907.283l840 +++|
45347  M01S00908.283l840 +++| CSD2     SA1    SDEO        GET EST ORDINAL IF SHARED DEVICE
45348  M01S00909.283l840 +++|          ZR     X1,CHA      IF NOT SHARED DEVICE
45349  M01S00910.283l840 +++|          SB5    CSD3        SET *SBP* RETURN ADDRESS
45350  M01S00911.283l840 +++|          EQ     SBP         SET BST PARAMETERS
45351  M01S00912.283l840 +++|
45352  M01S00913.283l840 +++| CSD3     NG     X2,CHA      IF BST PROCESSING DISABLED
Line S00914 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45353  M02S00914.cpum244 ---|          BX0    X5*X4
45354  M02S00915.cpum244 ---|          AX5    2
45355  M02S00916.cpum244 ---|          NZ     X0,CHA      IF ACCESS PRESENT
45356  M02S00917.cpum244 ---|          SA2    SDUR
Line S00057 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45357  M01S00057.cpum244 +++|          SA2    SDWR
Line S00918 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45358  M01S00918.283l840 +++|          LX1    48
45359  M01S00919.283l840 +++|          LX3    36
45360  M01S00920.283l840 +++|          MX0    24
45361  M01S00921.283l840 +++|          BX6    X1+X3       FORMAT EST ORDINAL AND TRACK FOR REQUEST
Line S00058 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45362  M01S00058.cpum244 +++|          BX1    X5*X4
Line S00922 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45363  M01S00922.283l840 +++|          BX2    X0*X2
Line S00059 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45364  M01S00059.cpum244 +++|          AX5    2
Line S00923 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45365  M01S00923.283l840 +++|          BX2    X2-X6
Line S00924 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45366  M02S00924.cpum244 ---|          ZR     X2,SIS      IF UNABLE TO RELEASE ACCESS CONDITION
Line S00060 Modification History
M01 (Added by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45367  M01S00060.cpum244 +++|          ZR     X2,CSD4     IF WRITE ACCESS REQUESTED ON OTHER MACHINE
45368  M01S00061.cpum244 +++|          NZ     X1,CHA      IF REQUESTED ACCESS PRESENT
45369  M01S00062.cpum244 +++|          SA2    SDUR
45370  M01S00063.cpum244 +++|          BX2    X0*X2
45371  M01S00064.cpum244 +++|          BX2    X2-X6
45372  M01S00065.cpum244 +++|          ZR     X2,SIS      IF UNABLE TO RELEASE WRITE ACCESS
Line S00925 Modification History
M01 (Added by) 283l840
Seq #  *Modification Id* Act 
----------------------------+
45373  M01S00925.283l840 +++|
45374  M01S00926.283l840 +++|*         MAKE *MTE* REQUEST.
45375  M01S00927.283l840 +++|
45376  M01S00928.283l840 +++|          SX0    B1
45377  M01S00929.283l840 +++|          BX1    X0*X4
45378  M01S00930.283l840 +++|          NZ     X1,CSD4     IF *MTE* REQUEST ALREADY IN PROGRESS
45379  M01S00931.283l840 +++|          SA1    /LSPMMF/MTIN  READ *IN*
45380  M01S00932.283l840 +++|          SA2    A1+B1       READ *OUT*
45381  M01S00933.283l840 +++|          ERRNZ  /LSPMMF/MTOT-/LSPMMF/MTIN-1
45382  M01S00934.283l840 +++|          LX5    35-0
45383  M01S00935.283l840 +++|          BX6    X6+X5       SET READ/WRITE FLAG IN REQUEST
45384  M01S00936.283l840 +++|          BX4    X4+X0       SET *MTE* REQUEST FLAG
45385  M01S00937.283l840 +++|          MX0    -6
45386  M01S00938.283l840 +++|          SX3    X1+B1
45387  M01S00939.283l840 +++|          BX3    -X0*X3      NEW *IN*
45388  M01S00940.283l840 +++|          BX2    X2-X3
45389  M01S00941.283l840 +++|          ZR     X2,CSD4     IF REQUEST QUEUE FULL
45390  M01S00942.283l840 +++|          SA6    X1+/LSPMMF/MTBT  ENTER REQUEST
Line S00943 Modification History
M01 (Added by) 283l840
M02 (Removed by) cpum244
Seq #  *Modification Id* Act 
----------------------------+
45391  M02S00943.cpum244 ---|          SX6    X3+
Proceed to Part 35
cdc/nos2.source/opl.opl871/deck/cpumtr.034.txt ยท Last modified: by 127.0.0.1