Deck CPUMTR Part 033

308 Modifications

Seq #  *Modification Id* Act 
----------------------------+
42467  M01S26095.251l664 ---|
42468  M01S26096.251l664 ---| EMR3     SX7    B1
42469  M01S26097.251l664 ---|          LX7    36
42470  M01S26098.251l664 ---|          ZR     X4,EMR6     IF NO COMMUNICATION AREAS PRESENT
42471  M01S26099.251l664 ---|          SA2    MMFL
42472  M01S26100.251l664 ---|          NX0    X4,B4
42473  M01S26101.251l664 ---|          LX7    47-36
42474  M01S26102.251l664 ---|          SB6    MXMF
42475  M01S26103.251l664 ---|          AX2    12+8
42476  M01S26104.251l664 ---|          AX6    X7,B4       POSITION COMMUNICATION AREA BIT
42477  M01S26105.251l664 ---|          BX0    X2*X3       ACTIVE MACHINES SENDING REQUEST TO
42478  M01S26106.251l664 ---|          BX4    -X6*X4
42479  M01S26107.251l664 ---|          LX0    59-MXMF
42480  M01S26108.251l664 ---| EMR4     ZR     B6,EMR5     IF END OF MACHINES
42481  M01S26109.251l664 ---|          LX0    1
42482  M01S26110.251l664 ---|          SB6    B6-B1
42483  M01S26111.251l664 ---|          PL     X0,EMR4     IF NOT SENDING REQUEST TO THIS MACHINE
42484  M01S26112.251l664 ---|          SA2    TMRQ+B6     SET REQUEST BIT
42485  M01S26113.251l664 ---|          BX7    X2+X6
42486  M01S26114.251l664 ---|          SA7    A2
42487  M01S26115.251l664 ---|          EQ     EMR4
42488  M01S26116.251l664 ---|
42489  M01S26117.251l664 ---|*         WRITE REQUEST WORDS TO ECS COMMUNICATION AREA.
42490  M01S26118.251l664 ---|
42491  M01S26119.251l664 ---| EMR5     SX2    B1
42492  M01S26120.251l664 ---|          LX0    13          POSITION MACHINES SENDING REQUEST TO
42493  M01S26121.251l664 ---|          SB6    X5          (B6) = REQUEST NUMBER
42494  M01S26122.251l664 ---|          TLX2   23,MIN      POSITION MASK FOR MACHINE INITIATING REQUES
42495  M01S26123.251l664 ---|          BX0    X0+X2       FORM REQUEST HEADER
42496  M01S26124.251l664 ---|          SX2    B4
42497  M01S26125.251l664 ---|          PX7    X0,B6       MERGE FUNCTION NUMBER IN REQUEST
42498  M01S26126.251l664 ---|          SX0    B4
42499  M01S26127.251l664 ---|          LX2    3
42500  M01S26128.251l664 ---|          SA0    A3          SET MESSAGE ADDRESS
42501  M01S26129.251l664 ---|          SA7    A3          STORE FIRST WORD OF REQUEST
42502  M01S26130.251l664 ---|          IX0    X2-X0       COMPUTE COMMUNICATION AREA ADDRESS
42503  M01S26131.251l664 ---|          SX7    A0
42504  M01S26132.251l664 ---|          LX7    30
42505  M01S26133.251l664 ---|          TX0    X0+20B+CMLT*100B,ECLT  ADDRESS IN COMMUNICATION SECTOR
42506  M01S26134.251l664 ---|          BX0    X0+X7
42507  M01S26135.251l664 ---|          WE     7           WRITE MESSAGE WORDS
42508  M01S26136.251l664 ---|          PER    /PROGRAM/EMR3
42509  M01S26137.251l664 ---|          SA0    PBUF
42510  M01S26138.251l664 ---|          SX7    A0+
42511  M01S26139.251l664 ---|          TX0    X0+20B+CMLT*100B,ECLT
42512  M01S26140.251l664 ---|          LX7    30
42513  M01S26141.251l664 ---|          BX0    X7+X0
42514  M01S26142.251l664 ---|          SX7    B0+
42515  M01S26143.251l664 ---|          RE     7           VERIFY WORDS CAN BE READ
42516  M01S26144.251l664 ---|          PER    /PROGRAM/EMR3
42517  M01S26145.251l664 ---|
42518  M01S26146.251l664 ---|*         EXIT PROCESSING.
42519  M01S26147.251l664 ---|
42520  M01S26148.251l664 ---| EMR6     SB6    EMR7        EXIT PROCESSING ADDRESS
42521  M01S26149.251l664 ---|          JP     WMR         CLEAR *IFRI* INTERLOCK
42522  M01S26150.251l664 ---|
42523  M01S26151.251l664 ---| EMR7     ZR     X1,PRG1     IF RETURNING STATUS
42524  M01S26152.251l664 ---|          SB5    PRG         *REJ* RETURN ADDRESS
42525  M01S26153.251l664 ---|          ZR     X7,REJ      IF FUNCTION ENTERED.
42526  M01S26154.251l664 ---|
42527  M01S26155.251l664 ---|*         RELEASE FLAG REGISTER INTERLOCKS.
42528  M01S26156.251l664 ---|
42529  M01S26157.251l664 ---|          AX1    13
42530  M01S26158.251l664 ---|          TSX0   (403B,7B,ESM)
42531  M01S26159.251l664 ---|          LX0    21
42532  M01S26160.251l664 ---|          ZR     X1,EMR8     IF RELEASING FAT INTERLOCK
42533  M01S26161.251l664 ---|          TX1    .FATI+.TRTI,MMK  RELEASE TRTI INTERLOCK
42534  M01S26162.251l664 ---| EMR8     SX2    .FATI
42535  M01S26163.251l664 ---|          BX1    X1-X2
42536  M01S26164.251l664 ---|          BX0    X0+X1       FLAG REGISTER FUNCTION
42537  M01S26165.251l664 ---|          RE     /ECS/FRWC   CLEAR FLAG REGISTER INTERLOCK
42538  M01S26166.251l664 ---|          RJ     /ECS/ECH    HANG ON HALF EXIT
42539  M01S26167.251l664 ---|          EQ     REJ         REJECT PP REQUEST
42540  M01S26168.251l664 ---| PMR      SPACE  4
42541  M01S26169.251l664 ---|**        PMR - PROCESS INTER-MAINFRAME MESSAGE REQUESTS.
42542  M01S26170.251l664 ---|
42543  M01S26171.251l664 ---|
42544  M01S26172.251l664 ---| PMR      SB5    PMR1        *RMR* RETURN ADDRESS
42545  M01S26173.251l664 ---|          JP     RMR         READ MACHINE REQUESTS
42546  M01S26174.251l664 ---|
42547  M01S26175.251l664 ---| PMR1     NZ     X7,PRG      IF UNABLE TO SET INTERLOCK
42548  M01S26176.251l664 ---|          TA1    TMRQ-1,MIN  READ REQUESTS FOR THIS MACHINE
42549  M01S26177.251l664 ---|          MX0    -24
42550  M01S26178.251l664 ---|          BX6    -X0*X1      FLAWED COMMUNICATION AREAS
42551  M01S26179.251l664 ---|          LX6    24
42552  M01S26180.251l664 ---|          BX1    -X6*X1
42553  M01S26181.251l664 ---|          SB6    PRG
42554  M01S26182.251l664 ---|          BX1    X0*X1
42555  M01S26183.251l664 ---|
42556  M01S26184.251l664 ---|*         PROCESS REQUESTS.
42557  M01S26185.251l664 ---|
42558  M01S26186.251l664 ---| PMR2     ZR     X1,PMR9     IF NO REQUESTS PRESENT
42559  M01S26187.251l664 ---|          NX2,B4 X1          FIND COMMUNICATION AREA TO PROCESS
42560  M01S26188.251l664 ---|          SX5    B1
42561  M01S26189.251l664 ---|          SX0    B4
42562  M01S26190.251l664 ---|          LX5    47
42563  M01S26191.251l664 ---|          SX7    B4
42564  M01S26192.251l664 ---|          LX0    3
42565  M01S26193.251l664 ---|          AX5    X5,B4       CLEAR REQUEST BIT
42566  M01S26194.251l664 ---|          IX7    X0-X7
42567  M01S26195.251l664 ---|          TX0    X7+20B+CMLT*100B,ECLT
42568  M01S26196.251l664 ---|          BX6    -X5*X1
42569  M01S26197.251l664 ---|          LX7    X0
42570  M01S26198.251l664 ---|          SA6    PMRA        REQUESTS LEFT TO PROCESS
42571  M01S26199.251l664 ---|          SA0    IFR         COMMUNICATION AREA BUFFER
42572  M01S26200.251l664 ---|          SA7    A6+1        SAVE COMMUNICATION AREA ADDRESS
42573  M01S26201.251l664 ---|          SX7    A0+
42574  M01S26202.251l664 ---|          LX7    30
42575  M01S26203.251l664 ---|          BX0    X0+X7
42576  M01S26204.251l664 ---|          RE     7           READ COMMUNICATION AREA
42577  M01S26205.251l664 ---|          PER    /PROGRAM/PMR12  PARITY ERROR PROCESSOR
42578  M01S26206.251l664 ---|          SA2    A0          READ REQUEST WORD
42579  M01S26207.251l664 ---|          TX3    MMK         SET PROCESSED BY THIS MACHINE
42580  M01S26208.251l664 ---|          UX4,B4 X2          (B4) = FUNCTION NUMBER
42581  M01S26209.251l664 ---|          SA1    TPMR+B4     READ PROCESSOR ADDRESS
42582  M01S26210.251l664 ---|          SB6    MMXF-1
42583  M01S26211.251l664 ---|          NG     B4,PMR8     IF ILLEGAL FUNCTION NUMBER
42584  M01S26212.251l664 ---|          GT     B4,B6,PMR8  IF ILLEGAL FUNCTION NUMBER
42585  M01S26213.251l664 ---|          BX6    X2+X3       SET PROCESSED BY THIS MACHINE
42586  M01S26214.251l664 ---|          SB6    X1
42587  M01S26215.251l664 ---|          SA6    A2+
42588  M01S26216.251l664 ---|          JP     B6          JUMP TO PROCESSOR
42589  M01S26217.251l664 ---|          SPACE  4
42590  M01S26218.251l664 ---|**        EXIT TO PROCESSOR WITH -
42591  M01S26219.251l664 ---|*         (X3) = MACHINE MASK.
42592  M01S26220.251l664 ---|*         (X5) = COMMUNICATION AREA BIT.
42593  M01S26221.251l664 ---|*         (X6) = IFR HEADER WORD.
42594  M01S26222.251l664 ---|*         (B4) = FUNCTION NUMBER.
42595  M01S26223.251l664 ---|*         (A0) = STARTING ADDRESS OF IFR.
42596  M01S26224.251l664 ---|
42597  M01S26225.251l664 ---|
42598  M01S26226.251l664 ---|*         CLEAR REQUESTS FOR ALL MACHINES.
42599  M01S26227.251l664 ---|
42600  M01S26228.251l664 ---| PMR3     RE     /ECS/FRWC   CLEAR FLAG REGISTER INTERLOCK
42601  M01S26229.251l664 ---|          RJ     /ECS/ECH    HANG ON HALF EXIT
42602  M01S26230.251l664 ---| PMR4     BX6    X6-X6
42603  M01S26231.251l664 ---|          MX4    MXMF
42604  M01S26232.251l664 ---|          SA6    IFR         CLEAR REQUEST WORD
42605  M01S26233.251l664 ---| PMR5     SA1    A6-B1       CLEAR REQUEST BITS
42606  M01S26234.251l664 ---|          LX4    1
42607  M01S26235.251l664 ---|          BX6    -X5*X1
42608  M01S26236.251l664 ---|          SA6    A1
42609  M01S26237.251l664 ---|          NG     X4,PMR5     IF NOT ALL MACHINES
42610  M01S26238.251l664 ---|          EQ     PMR8
42611  M01S26239.251l664 ---|
42612  M01S26240.251l664 ---|*         CLEAR REQUEST FOR THIS MACHINE.
42613  M01S26241.251l664 ---|
42614  M01S26242.251l664 ---| PMR6     TA1    TMRQ-1,MIN  REQUEST FOR THIS MACHINE
42615  M01S26243.251l664 ---|          BX6    -X5*X1
42616  M01S26244.251l664 ---|          SA6    A1
42617  M01S26245.251l664 ---|          SA1    TMRQ        CHECK IF ALL MACHINES PROCESSED
42618  M01S26246.251l664 ---|          BX6    X6-X6
42619  M01S26247.251l664 ---|          MX4    MXMF
42620  M01S26248.251l664 ---| PMR7     BX2    X5*X1
42621  M01S26249.251l664 ---|          LX4    1
42622  M01S26250.251l664 ---|          NZ     X2,PMR8     IF REQUEST NOT PROCESSED BY THIS MACHINE
42623  M01S26251.251l664 ---|          SA1    A1+B1
42624  M01S26252.251l664 ---|          NG     X4,PMR7     IF NOT ALL MACHINES CHECKED
42625  M01S26253.251l664 ---|          SA6    A1          CLEAR REQUEST WORD
42626  M01S26254.251l664 ---|*         EQ     PMR8        PROCESS NEXT REQUEST
42627  M01S26255.251l664 ---|
42628  M01S26256.251l664 ---|*         REWRITE COMMUNICATION AREA TO ECS.
42629  M01S26257.251l664 ---|
42630  M01S26258.251l664 ---| PMR8     SA1    PMRB        ADDRESS OF MESSAGE AREA
42631  M01S26259.251l664 ---|          SA0    IFR
42632  M01S26260.251l664 ---|          SX4    A0+
42633  M01S26261.251l664 ---|          LX4    30
42634  M01S26262.251l664 ---|          BX0    X1+X4
42635  M01S26263.251l664 ---|          SA1    PMRA        CHECK FOR REQUESTS LEFT
42636  M01S26264.251l664 ---|          WE     7
42637  M01S26265.251l664 ---|          PER    /ECS/ECH1   HANG ON UNRECOVERED WRITE ERROR
42638  M01S26266.251l664 ---|          NZ     X1,PMR2     IF MORE REQUESTS
42639  M01S26267.251l664 ---| PMR9     MX4    MXMF
42640  M01S26268.251l664 ---|          SA1    TMRQ
42641  M01S26269.251l664 ---| PMR10    NZ     X1,PMR11    IF REQUESTS PRESENT FOR THIS MACHINE
42642  M01S26270.251l664 ---|          LX4    1
42643  M01S26271.251l664 ---|          SA1    A1+B1       NEXT REQUEST WORD
42644  M01S26272.251l664 ---|          NG     X4,PMR10    IF MORE MACHINES TO CHECK
42645  M01S26273.251l664 ---|          SB4    COMI
42646  M01S26274.251l664 ---|          SB6    PMR11       SET *CFR* RETURN
42647  M01S26275.251l664 ---|          EQ     /ECS/CFR    CLEAR *COMI* INTERLOCK
42648  M01S26276.251l664 ---|
42649  M01S26277.251l664 ---| PMR11    SB6    PRG         *CFR* RETURN
42650  M01S26278.251l664 ---|          EQ     WMR         CLEAR *IFRI* INTERLOCK
42651  M01S26279.251l664 ---|
42652  M01S26280.251l664 ---|*         FLAW COMMUNICATION AREA.
42653  M01S26281.251l664 ---|
42654  M01S26282.251l664 ---| PMR12    TA1    TMRQ-1,MIN  THIS MACHINES REQUEST WORD
42655  M01S26283.251l664 ---|          AX5    24
42656  M01S26284.251l664 ---|          BX6    X1+X5       SET FLAW BIT
42657  M01S26285.251l664 ---|          SA6    A1
42658  M01S26286.251l664 ---|          EQ     PMR11       EXIT
42659  M01S26287.251l664 ---|
42660  M01S26288.251l664 ---| PMRA     CON    0           REQUESTS TO BE PROCESSED FOR THIS MACHINE
42661  M01S26289.251l664 ---| PMRB     CON    0           ADDRESS OF COMMUNICATION AREA
42662  M01S26290.251l664 ---| TMRQ     SPACE  4
42663  M01S26291.251l664 ---|**        TMRQ - TABLE OF MACHINE IFR REQUESTS.
42664  M01S26292.251l664 ---|*         ENTRY  1 WORD PER MACHINE.
42665  M01S26293.251l664 ---|*
42666  M01S26294.251l664 ---|*T TMRQ   12/,24/  REQUEST BITS,24/  FLAW BITS

Figure TMRQ

42667  M01S26295.251l664 ---|
42668  M01S26296.251l664 ---|
42669  M01S26297.251l664 ---| TMRQ     BSS    MXMF
42670  M01S26298.251l664 ---| IFR      BSS    7           FUNCTION REQUEST WORDS
42671  M01S26299.251l664 ---| TPMR     SPACE  4
42672  M01S26300.251l664 ---|**        TPMR - TABLE OF IFR PROCESSOR PARAMETERS.
42673  M01S26301.251l664 ---|*         ENTRY  1 WORD.
42674  M01S26302.251l664 ---|*
42675  M01S26303.251l664 ---|*         INDEXED BY IFR REQUEST NUMBER.
42676  M01S26304.251l664 ---|*
42677  M01S26305.251l664 ---|*T TPMR   42/  ,18/PROC

Figure TPMR

42678  M01S26306.251l664 ---|*         PROC   FUNCTION PROCESSOR ADDRESS.
42679  M01S26307.251l664 ---|
42680  M01S26308.251l664 ---|
42681  M01S26309.251l664 ---| TPMR     BSS    0
42682  M01S26310.251l664 ---|          LOC    0
42683  M01S26311.251l664 ---|
42684  M01S26312.251l664 ---| DPEF     VFD    42/,18/DPE
42685  M01S26313.251l664 ---| FPEF     VFD    42/,18/FPE
42686  M01S26314.251l664 ---| MMSF     VFD    42/,18/MMS
42687  M01S26315.251l664 ---| STDF     VFD    42/,18/STD
42688  M01S26316.251l664 ---|
42689  M01S26317.251l664 ---|          LOC    *O
42690  M01S26318.251l664 ---| DPE      SPACE  4
42691  M01S26319.251l664 ---|**        DEVICE PARITY ERROR PROCESSING.
42692  M01S26320.251l664 ---|
42693  M01S26321.251l664 ---|
42694  M01S26322.251l664 ---| DPE      TA1    IFR,MIN     READ EQUIPMENT ADDRESS
42695  M01S26323.251l664 ---|          SB7    -B1         INITIALIZE *SSD* SEARCH
42696  M01S26324.251l664 ---|          AX1    36
42697  M01S26325.251l664 ---|          SB5    DPE1        SET *SSD* RETURN
42698  M01S26326.251l664 ---|          JP     SSD         SEARCH FOR SHARED DEVICE
42699  M01S26327.251l664 ---|
42700  M01S26328.251l664 ---| DPE1     NG     B7,DPE6     IF DEVICE NOT SHARED WITH THIS MACHINE
42701  M01S26329.251l664 ---|          BX2    X4-X1       COMPARE EST ADDRESSES
42702  M01S26330.251l664 ---|          AX3    24
42703  M01S26331.251l664 ---|          NZ     X2,SSD      IF NOT THIS DEVICE
42704  M01S26332.251l664 ---|          MX0    -12
42705  M01S26333.251l664 ---|          SA2    A4
42706  M01S26334.251l664 ---|          SA1    A3+TRLL     SET FWA OF TRT
42707  M01S26335.251l664 ---|          SB6    X1
42708  M01S26336.251l664 ---|          BX3    -X0*X3
42709  M01S26337.251l664 ---|          MX1    -MXMF
42710  M01S26338.251l664 ---|          TX0    X4+1000B,MRT  SET MRT ADDRESS FOR THIS MACHINE
42711  M01S26339.251l664 ---|          SA0    B6+X3       SET CM ADDRESS OF MRT
42712  M01S26340.251l664 ---|          SX6    A0
42713  M01S26341.251l664 ---|          LX6    30
42714  M01S26342.251l664 ---|          BX0    X0+X6
42715  M01S26343.251l664 ---|          BX6    X1*X2       CLEAR DEVICE INTERLOCK FIELD OF SDGL
42716  M01S26344.251l664 ---|          WE     100B        WRITE MRT TO ECS
42717  M01S26345.251l664 ---|          PER    /PROGRAM/PMR8
42718  M01S26346.251l664 ---|          SA6    A4          UPDATE *SDGL*
42719  M01S26347.251l664 ---|          SB4    X3+B6       TRT LWA + 1
42720  M01S26348.251l664 ---|          SA2    IFR+1
42721  M01S26349.251l664 ---|          SB5    DPE2        *CLM* RETURN ADDRESS
42722  M01S26350.251l664 ---|          JP     CLM         CHECPOINT LOCAL MST
42723  M01S26351.251l664 ---|
42724  M01S26352.251l664 ---| DPE2     IX7    X6-X2       CHECK MAXIMUM DEVICE UPDATE COUNT
42725  M01S26353.251l664 ---|          LX1    -1
42726  M01S26354.251l664 ---|          SA2    A2+1        CHECK NEXT MACHINE
42727  M01S26355.251l664 ---|          NG     X7,PMR8     IF OTHER MACHINE HAS MAXIMUM UPDATE COUNT
42728  M01S26356.251l664 ---|          PL     X1,DPE2     IF MORE MACHINES TO CHECK
42729  M01S26357.251l664 ---|
42730  M01S26358.251l664 ---|*         THIS MACHINE HAS THE UP-TO-DATE COPY OF THE MST/TRT.
42731  M01S26359.251l664 ---|
42732  M01S26360.251l664 ---|          SA1    /ECS/MC     ASSIGN *1MC* TO BUFFER IN ERROR DATA
42733  M01S26361.251l664 ---|          SX0    X4+TRST*100B  SET PARAMETERS FOR TRT ERROR PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
42734  M01S02156.251l664 +++|          TITLE  EXTENDED MEMORY ERROR RECOVERY PROCESSING.
42735  M01S02157.251l664 +++| PMR      SPACE  4,10
42736  M01S02158.251l664 +++|**        PMR - PROCESS EXTENDED MEMORY ERROR RECOVERY.
42737  M01S02159.251l664 +++|
42738  M01S02160.251l664 +++|
42739  M01S02161.251l664 +++| PMR      SA1    /ECS/MC     ASSIGN *1MC* TO PROCESS ERROR DATA
42740  M01S02162.251l664 +++|          SB3    PMR1        *APS* RETURN ADDRESS
42741  M01S02163.251l664 +++|          EQ     APS         ASSIGN *1MC*
42742  M01S02164.251l664 +++|
42743  M01S02165.251l664 +++| PMR1     BX7    X7-X7       INITIALIZE *1MC* BUFFER
42744  M01S02166.251l664 +++|          SB3    B0
42745  M01S02167.251l664 +++|          SA7    PMRA        CLEAR ERROR ENCOUNTERED
42746  M01S02168.251l664 +++|          ZR     X1,DPE      IF *1MC* NOT ASSIGNED ENTER PROCESSOR
42747  M01S02169.251l664 +++|          SA7    X1+1
42748  M01S02170.251l664 +++|          EQ     DPE         PROCESS MST/TRT PARITY ERRORS
42749  M01S02171.251l664 +++|
42750  M01S02172.251l664 +++|*         RELEASE *1MC* UPON COMPLETION OF ERROR RECOVERY.
42751  M01S02173.251l664 +++|
42752  M01S02174.251l664 +++| PMRX     SB4    COMI        CLEAR EM ERROR PROCESSING REQUEST
42753  M01S02175.251l664 +++|          ZR     X1,PMR2     IF NO *1MC* BUFFER
42754  M01S02176.251l664 +++|          SA1    X1          SET BUFFER COMPLETE
42755  M01S02177.251l664 +++|          MX6    1
42756  M01S02178.251l664 +++|          BX6    X6+X1
42757  M01S02179.251l664 +++|          SA6    A1
42758  M01S02180.251l664 +++| PMR2     SB6    PRG         *CFR* EXIT ADDRESS
42759  M01S02181.251l664 +++|          SA1    PMRA
42760  M01S02182.251l664 +++|          ZR     X1,/ECS/CFR IF NO ERRORS LEFT, CLEAR FLAG BIT
42761  M01S02183.251l664 +++|          EQ     PRG         EXIT
42762  M01S02184.251l664 +++|
42763  M01S02185.251l664 +++| PMRA     CON    0
42764  M01S02186.251l664 +++| DPE      SPACE  4,10
42765  M01S02187.251l664 +++|**        DPE - SHARED DEVICE ERROR PROCESSING.
42766  M01S02188.251l664 +++|*
42767  M01S02189.251l664 +++|*         THIS ROUTINE SCANS ALL SHARED DEVICES CHECKING TO SEE IF
42768  M01S02190.251l664 +++|*         THE UP-TO-DATE COPY OF THE MST/TRT ARE HELD BY THIS MACHINE.
42769  M01S02191.251l664 +++|*         IF THEY ARE THE CM TABLES ARE COMPARED WITH THE EXTENDED
42770  M01S02192.251l664 +++|*         MEMORY COPY.  ANY DIFFERENCES ARE REPORTED VIA *1MC* AND THE
42771  M01S02193.251l664 +++|*         CORRECT DATA IS WRITTEN TO EXTENDED MEMORY.
42772  M01S02194.251l664 +++|*
42773  M01S02195.251l664 +++|*         ENTRY  (X1) = *1MC* BUFFER ADDRESS.
42774  M01S02196.251l664 +++|*                TRTI FLAG BIT SET.
42775  M01S02197.251l664 +++|
42776  M01S02198.251l664 +++|
42777  M01S02199.251l664 +++| DPE      SB6    DPE1        *SFR* RETURN ADDRESS
42778  M01S02200.251l664 +++|          SB4    TRTI
42779  M01S02201.251l664 +++|          JP     /ECS/SFR    SET *TRTI* FLAG BIT
42780  M01S02202.251l664 +++|
42781  M01S02203.251l664 +++| DPE1     NZ     X7,PMRX     IF UNABLE TO SET INTERLOCK
42782  M01S02204.251l664 +++|          SB7    -1          INITIALIZE DEVICE SEARCH
42783  M01S02205.251l664 +++|          SB5    DPE2        SET *SSD* RETURN
42784  M01S02206.251l664 +++|          EQ     SSD         SEARCH FOR SHARED DEVICE
42785  M01S02207.251l664 +++|
42786  M01S02208.251l664 +++| DPE2     NG     B7,DPE7     IF END OF SHARED DEVICES
42787  M01S02209.251l664 +++|          SA0    PBUF        READ *SDGL* WORD
42788  M01S02210.251l664 +++|          SX0    X4+SDGL
42789  M01S02211.251l664 +++|          SX7    A0
42790  M01S02212.251l664 +++|          LX7    30
42791  M01S02213.251l664 +++|          SA4    A4
42792  M01S02214.251l664 +++|          BX0    X0+X7
42793  M01S02215.251l664 +++|          AX3    24
42794  M01S02216.251l664 +++|          MX6    -12
42795  M01S02217.251l664 +++|          RE     1
42796  M01S02218.251l664 +++|          EQ     DPE6        ERROR IN READING *SDGL*
42797  M01S02219.251l664 +++|
42798  M01S02220.251l664 +++|*         PROCESS TRT ERRORS.
42799  M01S02221.251l664 +++|
42800  M01S02222.251l664 +++|+         SA2    A3+TRLL     SET FWA OF TRT
42801  M01S02223.251l664 +++|          SB6    X2
42802  M01S02224.251l664 +++|          BX3    -X6*X3
42803  M01S02225.251l664 +++|          SB4    B6+X3       SET LWA OF TRT
42804  M01S02226.251l664 +++|          SA2    A0
42805  M01S02227.251l664 +++|          IX2    X2-X4       COMPARE *SDGL* WORDS
42806  M01S02228.251l664 +++|          AX4    36
42807  M01S02229.251l664 +++|          NZ     X2,DPE5     IF NOT UP-TO-DATE TABLES FOR THIS DEVICE
42808  M01S02230.251l664 +++|          SX0    X4+TRST*100B  SET TRT ADDRESS FOR THIS MACHINE

Seq #  *Modification Id* Act 
----------------------------+
42809  M01S26362.251l664 ---|          SA0    PBUF
42810  M01S26363.251l664 ---|          SB3    DRE         *APS* EXIT ADDRESS
42811  M00S26364.cpumtr  +++|          SB5    DPE3        *DRE* RETURN ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
42812  M01S26365.251l664 ---|          JP     APS         ASSIGN PP - EXITS TO *DRE*

Seq #  *Modification Id* Act 
----------------------------+
42813  M01S02231.251l664 +++|          JP     DRE1        DETECT ERROR IN TRT
42814  M00S26366.cpumtr  +++|
42815  M00S26367.cpumtr  +++|*         PROCESS MST ERRORS.
42816  M00S26368.cpumtr  +++|
42817  M00S26369.cpumtr  +++| DPE3     SX0    X4
42818  M00S26370.cpumtr  +++|          SB6    A3          FWA OF MST
42819  M00S26371.cpumtr  +++|          SB4    A3+GLGL     LWA+1 OF MST TO BE PROCESSED
42820  M00S26372.cpumtr  +++|          SB5    DPE4        *DRE* RETURN ADDRESS
42821  M00S26373.cpumtr  +++|          EQ     DRE1        PROCESS MST ERRORS
42822  M00S26374.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
42823  M01S26375.251l664 ---| DPE4     ZR     X1,DPE5     IF NO BUFFER ASSIGNED
42824  M01S26376.251l664 ---|          SA1    X1+         SET BUFFER COMPLETE
42825  M01S26377.251l664 ---|          MX6    1
42826  M01S26378.251l664 ---|          BX6    X6+X1
42827  M01S26379.251l664 ---|          SA6    A1+
42828  M01S26380.251l664 ---| DPE5     SX2    B1
42829  M01S26381.251l664 ---|          TSX0   (403B,7B,ESM)
42830  M01S26382.251l664 ---|          LX0    21
42831  M01S26383.251l664 ---|          MX6    -5
42832  M01S26384.251l664 ---|          BX0    -X6+X0
42833  M01S26385.251l664 ---|          LX2    50
42834  M01S26386.251l664 ---|
42835  M01S26387.251l664 ---|*         SET CHECKPOINT BIT.
42836  M01S26388.251l664 ---|

Seq #  *Modification Id* Act 
----------------------------+
42837  M01S02232.251l664 +++|*         SET CHECKPOINT BIT.
42838  M01S02233.251l664 +++|

Seq #  *Modification Id* Act 
----------------------------+
42839  M01S26389.251l664 ---|+         SA1    A3+STLL     ** PERFORM IN ONE WORD **
42840  M01S26390.251l664 ---|          BX6    X1+X2       ** PERFORM IN ONE WORD **
42841  M01S26391.251l664 ---|          SA6    A1          ** PERFORM IN ONE WORD **

Seq #  *Modification Id* Act 
----------------------------+
42842  M01S02234.251l664 +++| DPE4     SX6    B1
42843  M01S02235.251l664 +++|          SB5    DPE2        SET *SSD* RETURN
42844  M01S02236.251l664 +++|          LX6    50
42845  M01S02237.251l664 +++|+         SA2    A3+STLL     **** PERFORM IN ONE WORD ****
42846  M01S02238.251l664 +++|          BX6    X6+X2       **** PERFORM IN ONE WORD ****
42847  M01S02239.251l664 +++|          SA6    A2          **** PERFORM IN ONE WORD ****

Seq #  *Modification Id* Act 
----------------------------+
42848  M01S26392.251l664 ---|          JP     PMR3        CLEAR REQUESTS FOR ALL MACHINES
42849  M01S26393.251l664 ---|
42850  M01S26394.251l664 ---| DPE6     BX6    X6-X6       CLEAR DEVICE UPDATE COUNT FOR THIS MACHINE
42851  M01S26395.251l664 ---|          SA6    A1
42852  M01S26396.251l664 ---|          JP     PMR6

Seq #  *Modification Id* Act 
----------------------------+
42853  M01S02240.251l664 +++|          JP     SSD         CHECK NEXT DEVICE
42854  M01S02241.251l664 +++|
42855  M01S02242.251l664 +++|*         CHECK FOR ERROR IN MST/TRT.
42856  M01S02243.251l664 +++|
42857  M01S02244.251l664 +++| DPE5     BX0    X4+X7       SET MST ADDRESS
42858  M01S02245.251l664 +++|          RE     SDGL
42859  M01S02246.251l664 +++|          SA6    PMRA        NOTE ERROR IN MST READ
42860  M01S02247.251l664 +++|+         SX2    TRST*100B   ADVANCE TO TRT
42861  M01S02248.251l664 +++|          IX0    X0+X2
42862  M01S02249.251l664 +++|          RE     MECB        READ FIRST PART OF TRT
42863  M01S02250.251l664 +++|          SA6    PMRA        NOTE ERROR IN TRT READ
42864  M01S02251.251l664 +++|          SX2    MECB
42865  M01S02252.251l664 +++|          IX0    X0+X2
42866  M01S02253.251l664 +++|          RE     MECB        READ SECOND PART OF TRT
42867  M01S02254.251l664 +++|          SA6    PMRA        NOTE ERROR IN TRT READ
42868  M01S02255.251l664 +++|+         EQ     SSD         SEARCH FOR NEXT SHARED DEVICE
42869  M01S02256.251l664 +++|
42870  M01S02257.251l664 +++| DPE6     SA6    PMRA        SET ERROR ENCOUNTERED
42871  M01S02258.251l664 +++|          EQ     SSD         SEARCH FOR NEXT SHARED DEVICE
42872  M01S02259.251l664 +++|
42873  M01S02260.251l664 +++| DPE7     SB6    FPE         *CFR* RETURN ADDRESS
42874  M01S02261.251l664 +++|          SB4    TRTI
42875  M01S02262.251l664 +++|          JP     /ECS/CFR    CLEAR *TRTI* FLAG BIT
42876  M00S26397.cpumtr  +++| FPE      SPACE  4
42877  M00S26398.cpumtr  +++|**        FPE - FAST ATTACH TRACK PARITY ERROR PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
42878  M01S02263.251l664 +++|*
42879  M01S02264.251l664 +++|*         THIS ROUTINE RECOVERS FROM PARITY ERRORS IN THE FAT BY
42880  M01S02265.251l664 +++|*         REGENERATING THE DATA FOR GLOBAL FAST ATTACH FILES.
42881  M01S02266.251l664 +++|*         EACH MACHINE MUST PERFORM THE REGENERATION, SINCE THE
42882  M01S02267.251l664 +++|*         LOCAL COUNT WORD OF THE FAT IS KNOWN ONLY TO INDIVIDUAL
42883  M01S02268.251l664 +++|*         MACHINES.
42884  M00S26399.cpumtr  +++|
42885  M00S26400.cpumtr  +++|

Seq #  *Modification Id* Act 
----------------------------+
42886  M01S26401.251l664 ---| FPE      SA2    /MMF/IAUA   READ FAT ADDRESS
42887  M01S26402.251l664 ---|          SX0    X2
42888  M01S26403.251l664 ---|          SA1    A0+B1       ADDRESS IN FAT TRACK
42889  M01S26404.251l664 ---|          SA0    PBUF
42890  M01S26405.251l664 ---|          IX0    X0+X1
42891  M01S26406.251l664 ---|          SX2    A0
42892  M01S26407.251l664 ---|          LX2    30
42893  M01S26408.251l664 ---|          BX0    X2+X0
42894  M01S26409.251l664 ---|          RE     10B         READ FAT ENTRY
42895  M01S26410.251l664 ---| +        SA2    MMFL        READ ACTIVE MACHINES
42896  M01S26411.251l664 ---|          BX7    X7-X7
42897  M01S26412.251l664 ---|          LX2    59-24
42898  M01S26413.251l664 ---|          SB4    MXMF
42899  M01S26414.251l664 ---|          SB3    B4+B1
42900  M01S26415.251l664 ---|          BX4    X6
42901  M01S26416.251l664 ---|
42902  M01S26417.251l664 ---|*         CLEAR ENTRIES FOR MACHINES NOT UP.
42903  M01S26418.251l664 ---|
42904  M01S26419.251l664 ---| FPE1     ZR     B4,FPE2     IF END OF MACHINES
42905  M01S26420.251l664 ---|          LX2    1
42906  M01S26421.251l664 ---|          SB4    B4-B1
42907  M01S26422.251l664 ---|          NG     X2,FPE1     IF MACHINE ACTIVE
42908  M01S26423.251l664 ---|          SA7    PBUF+2+B4   ZERO SLOT FOR NON-ACTIVE MACHINE
42909  M01S26424.251l664 ---| FPE2     NZ     B4,FPE1     IF NOT END OF MACHINES
42910  M01S26425.251l664 ---|          AX4    12          COMPUTE MACHINES LEFT TO PROCESS
42911  M01S26426.251l664 ---|          BX6    X6-X4
42912  M01S26427.251l664 ---|          MX4    -6
42913  M01S26428.251l664 ---|          BX6    -X4*X6
42914  M01S26429.251l664 ---|          SA7    PBUF+7
42915  M01S26430.251l664 ---|          SB6    X6          MACHINES LEFT TO PROCESS
42916  M01S26431.251l664 ---|          ZR     X1,FPE5     IF ENTRY 0 (PFNL)
42917  M01S26432.251l664 ---|          LX1    -3
42918  M01S26433.251l664 ---|          TA3    -FNTE,FNT   INITIALIZE SYSTEM FNT SEARCH
42919  M01S26434.251l664 ---|          SB5    -FAFT
42920  M01S26435.251l664 ---|
42921  M01S26436.251l664 ---|*         SEARCH FNT FOR FAST ATTACH ENTRY WITH CORRECT INDEX.
42922  M01S26437.251l664 ---|
42923  M01S26438.251l664 ---| FPE3     TX6    A3+FNTE,-FNTLWA
42924  M01S26439.251l664 ---|          SA3    A3+FNTE     GET NEXT FNT ENTRY
42925  M01S26440.251l664 ---|          ZR     X6,FPE4     IF END OF FNT

Seq #  *Modification Id* Act 
----------------------------+
42926  M01S02269.251l664 +++| FPE      SB6    FPE1        *SFR* RETURN ADDRESS
42927  M01S02270.251l664 +++|          SB4    FATI
42928  M01S02271.251l664 +++|          JP     /ECS/SFR    SET *FATI* FLAG BIT
42929  M01S02272.251l664 +++|
42930  M01S02273.251l664 +++| FPE1     NZ     X7,PMRX     IF UNABLE TO INTERLOCK
42931  M01S02274.251l664 +++|          TA3    -FNTE,FNT   INITIALIZE SYSTEM FNT SEARCH
42932  M01S02275.251l664 +++|
42933  M01S02276.251l664 +++|*         SEARCH FNT FOR GLOBAL FAST ATTACH ENTRY.
42934  M01S02277.251l664 +++|
42935  M01S02278.251l664 +++| FPE2     TX6    A3+FNTE,-FNTLWA
42936  M01S02279.251l664 +++|          SA3    A3+FNTE     GET NEXT FNT ENTRY
42937  M01S02280.251l664 +++|          ZR     X6,FPE10    IF END OF FNT
42938  M01S02281.251l664 +++|          MX4    -6
42939  M00S26441.cpumtr  +++|          AX3    6
42940  M00S26442.cpumtr  +++|          BX2    -X4*X3      FILE TYPE

Seq #  *Modification Id* Act 
----------------------------+
42941  M01S26443.251l664 ---|          SB4    X2+B5

Seq #  *Modification Id* Act 
----------------------------+
42942  M01S02282.251l664 +++|          SB4    X2-FAFT
42943  M00S26444.cpumtr  +++|          AX3    6

Seq #  *Modification Id* Act 
----------------------------+
42944  M01S26445.251l664 ---|          NZ     B4,FPE3     IF NOT FAST ATTACH FILE
42945  M01S26446.251l664 ---|          BX2    X3-X1       CHECK FAT INDEX
42946  M01S26447.251l664 ---|          BX2    -X4*X2
42947  M01S26448.251l664 ---|          NZ     X2,FPE3     IF NOT PROPER FAT INDEX
42948  M01S26449.251l664 ---|          BX7    X4*X3       SAVE FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
42949  M01S02283.251l664 +++|          NZ     B4,FPE2     IF NOT FAST ATTACH FILE
42950  M01S02284.251l664 +++|          BX7    -X4*X3
42951  M01S02285.251l664 +++|          LX7    FATS
42952  M01S02286.251l664 +++|          ZR     X7,FPE2     IF NO FAT INDEX
42953  M01S02287.251l664 +++|
42954  M01S02288.251l664 +++|*         READ FAT ENTRY TO CHECK FOR ERRORS.
42955  M01S02289.251l664 +++|
42956  M01S02290.251l664 +++|          TA2    ALGL,EMS    COMPUTE FAT ADDRESS
42957  M01S02291.251l664 +++|          MX0    -11
42958  M01S02292.251l664 +++|          BX2    -X0*X2
42959  M01S02293.251l664 +++|          ZR     X2,FPE10    IF FAT TRACK NOT YET ALLOCATED

Seq #  *Modification Id* Act 
----------------------------+
42960  M02S02294.252l678 ---|          SX6    SLDE*101B

Seq #  *Modification Id* Act 
----------------------------+
42961  M01S00855.252l678 +++|          SX6    2020B       PRESERVE LINKAGE WITHIN TRACK
42962  M01S00856.252l678 +++|          TLX6   0,TNSC

Seq #  *Modification Id* Act 
----------------------------+
42963  M01S02295.251l664 +++|          IX0    X6*X2
42964  M01S02296.251l664 +++|          IX0    X0+X7       ADD FAT INDEX

Seq #  *Modification Id* Act 
----------------------------+
42965  M02S02297.252l678 ---|          SX0    X0+SLDE+FAST*100B

Seq #  *Modification Id* Act 
----------------------------+
42966  M01S00857.252l678 +++|          TX0    X0+FAST*100B,TCNT

Seq #  *Modification Id* Act 
----------------------------+
42967  M01S02298.251l664 +++|          SA0    PBUF
42968  M01S02299.251l664 +++|          SX2    A0
42969  M01S02300.251l664 +++|          LX2    30
42970  M01S02301.251l664 +++|          BX0    X0+X2
42971  M01S02302.251l664 +++|          BX6    X4*X3
42972  M01S02303.251l664 +++|          RE     2+MXMF
42973  M01S02304.251l664 +++|          SA6    PMRA        NOTE ERROR IN READ
42974  M01S02305.251l664 +++|
42975  M01S02306.251l664 +++|*         PROCESS FILE NAME WORD OF FAT.
42976  M01S02307.251l664 +++|
42977  M01S02308.251l664 +++|+         LX6    12
42978  M01S02309.251l664 +++|          SA6    A0          STORE CORRECT FILE NAME
42979  M01S02310.251l664 +++|          SA0    A0+1        SET SCRATCH CELL ADDRESS
42980  M01S02311.251l664 +++|          SX5    -B1         INITIALIZE MACHINE INDEX
42981  M01S02312.251l664 +++|          SB6    A6          FWA OF BUFFER TO COMPARE
42982  M01S02313.251l664 +++|          SB4    B6+B1       LWA OF BUFFER TO COMPARE
42983  M01S02314.251l664 +++|          SB5    FPE3        *DRE* RETURN ADDRESS
42984  M01S02315.251l664 +++|          EQ     DRE1        DETECT ERRORS IN FILE NAME
42985  M01S02316.251l664 +++|
42986  M01S02317.251l664 +++|*         PROCESS LOCAL COUNT WORDS.
42987  M01S02318.251l664 +++|
42988  M01S02319.251l664 +++| FPE3     SX6    B1          ADVANCE FAT ADDRESS
42989  M01S02320.251l664 +++|          IX0    X0+X6
42990  M01S02321.251l664 +++| FPE4     SX5    X5+1
42991  M01S02322.251l664 +++|          SX3    X5-MXMF
42992  M01S02323.251l664 +++|          PL     X3,FPE6     IF END OF LOCAL COUNT WORDS
42993  M01S02324.251l664 +++|          SA2    /MMF/TMMF+X5  READ MACHINE STATE
42994  M01S02325.251l664 +++|          BX6    X6-X6
42995  M01S02326.251l664 +++|          SX2    X2
42996  M01S02327.251l664 +++|          ZR     X2,FPE5     IF MACHINE NOT PRESENT
42997  M01S02328.251l664 +++|          TX3    X5+1,-MIN
42998  M01S02329.251l664 +++|          NZ     X3,FPE3     IF NOT THIS MACHINE
42999  M00S26450.cpumtr  +++|          SA2    A3+B1       GET FST ENTRY
43000  M00S26451.cpumtr  +++|          ERRNZ  FSTG-FNTG-1 CODE DEPENDS ON VALUE

Seq #  *Modification Id* Act 
----------------------------+
43001  M01S26452.251l664 ---|          LX7    12
43002  M01S26453.251l664 ---|          SA7    A0
43003  M01S26454.251l664 ---|          LX2    12
43004  M01S26455.251l664 ---|          MX4    -12

Seq #  *Modification Id* Act 
----------------------------+
43005  M01S02330.251l664 +++|          MX3    -36
43006  M01S02331.251l664 +++|          BX6    -X3*X2      FORM ENTRY FOR THIS MACHINE
43007  M01S02332.251l664 +++|          TX4    MID         MERGE MACHINE ID IN ENTRY
43008  M01S02333.251l664 +++|          LX4    -12
43009  M01S02334.251l664 +++|          BX6    X6+X4
43010  M01S02335.251l664 +++| FPE5     SA6    PBUF
43011  M01S02336.251l664 +++|          SB6    A6          FWA TO CHECK
43012  M01S02337.251l664 +++|          SB4    A6+B1       LWA + 1 TO CHECK
43013  M01S02338.251l664 +++|          SB5    FPE4        *DRE* RETURN ADDRESS
43014  M01S02339.251l664 +++|          EQ     DRE1        CHECK LOCAL COUNT WORD
43015  M01S02340.251l664 +++|
43016  M01S02341.251l664 +++|*         CHECK FAMILY NAME WORD.
43017  M01S02342.251l664 +++|
43018  M01S02343.251l664 +++| FPE6     SA2    A3+B1
43019  M01S02344.251l664 +++|          LX2    12
43020  M01S02345.251l664 +++|          MX4    -9
43021  M00S26456.cpumtr  +++|          BX3    -X4*X2      EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
43022  M01S26457.261l700 ---|          R=     X7,ESTE
43023  M01S26458.261l700 ---|          IX3    X3*X7

Seq #  *Modification Id* Act 
----------------------------+
43024  M02S26459.261l700 ---|          TA3    X3+EQDE,EST READ EST ENTRY
43025  M02S26460.261l700 ---|          BX3    -X4*X3
43026  M02S26461.261l700 ---|          LX3    3
43027  M02S26462.261l700 ---|          SA3    X3+PFGL
43028  M02S26463.261l700 ---|          BX7    X4*X3
43029  M02S26464.261l700 ---|          SA7    PBUF+6      STORE FAMILY NAME + DEVICE NUMBER
43030  M02S26465.261l700 ---|          MX4    12
43031  M02S26466.261l700 ---|          BX7    X4*X2       TRACK NUMBER
43032  M02S26467.261l700 ---|          LX2    -12
43033  M02S26468.261l700 ---|          LX7    -12
43034  M02S26469.261l700 ---|          MX3    27
43035  M02S26470.261l700 ---|          LX3    27+9        FORM FAST ATTACH MASK
43036  M02S26471.261l700 ---|          BX6    X3*X2       FORM ENTRY FOR THIS MACHINE
43037  M02S26472.261l700 ---|          TX4    MID         MERGE MACHINE ID IN ENTRY
43038  M02S26473.261l700 ---|          LX4    -12
43039  M02S26474.261l700 ---|          BX6    X6+X4
43040  M02S26475.261l700 ---|          EQ     FPE6
43041  M02S26476.261l700 ---|
43042  M02S26477.261l700 ---| FPE4     SB6    B1          DO NOT COMPUTE TOTALS IF NOT FOUND
43043  M02S26478.261l700 ---|          EQ     FPE6
43044  M02S26479.261l700 ---|
43045  M02S26480.261l700 ---|*         PROCESS PFNL ENTRY.
43046  M02S26481.261l700 ---|
43047  M02S26482.261l700 ---| FPE5     SA7    A7-B1
43048  M02S26483.261l700 ---|          MX3    36          FORM PFNL MASK
43049  M02S26484.261l700 ---|          SA7    A0
43050  M02S26485.261l700 ---|          LX3    -12
43051  M02S26486.261l700 ---|          SA2    PFNL
43052  M02S26487.261l700 ---|          BX3    X3-X4
43053  M02S26488.261l700 ---|          BX6    X3*X2
43054  M02S26489.261l700 ---|
43055  M02S26490.261l700 ---| FPE6     TA1    PBUF+1,MIN  READ THIS MACHINES ENTRY
43056  M02S26491.261l700 ---|          SA6    A1          STORE COMPUTED ENTRY
43057  M02S26492.261l700 ---|          BX6    X6-X1
43058  M02S26493.261l700 ---|          ZR     B6,FPE9     IF ALL MACHINES PROCESSED
43059  M02S26494.261l700 ---|          ZR     X6,PMR8     IF NO ERROR FOR THIS MACHINE
43060  M02S26495.261l700 ---|          SA0    A1+B1       SCRATCH WORD ADDRESS
43061  M02S26496.261l700 ---|          SB6    A1          ADDRESS OF DATA TO COMPARE
43062  M02S26497.261l700 ---|          SB5    FPE8        *DRE* RETURN ADDRESS
43063  M02S26498.261l700 ---|          TX0    X0+1,MIN    ADDRESS OF THIS MACHINES ENTRY
43064  M02S26499.261l700 ---|          BX4    X4-X4
43065  M02S26500.261l700 ---|          SB7    B6+B1
43066  M02S26501.261l700 ---| FPE7     SB3    DRE         *APS* RETURN ADDRESS
43067  M02S26502.261l700 ---|
43068  M02S26503.261l700 ---|*         ASSIGN 1MC TO PROCESS ERROR DATA.
43069  M02S26504.261l700 ---|
43070  M02S26505.261l700 ---|          SA1    /ECS/MC
43071  M02S26506.261l700 ---|          EQ     APS         ASSIGN *1MC*
43072  M02S26507.261l700 ---|
43073  M02S26508.261l700 ---| FPE8     SB3    PMR8        TERMINATE ERROR DATA
43074  M02S26509.261l700 ---|          EQ     FPE11
43075  M02S26510.261l700 ---|
43076  M02S26511.261l700 ---|*         COMPUTE TOTALS AND VERIFY.
43077  M02S26512.261l700 ---|
43078  M02S26513.261l700 ---| FPE9     SA4    A0+B3
43079  M02S26514.261l700 ---|          BX4    X3*X4
43080  M02S26515.261l700 ---|          SB3    B3-B1
43081  M02S26516.261l700 ---|          IX7    X4+X7
43082  M02S26517.261l700 ---|          NE     B3,B1,FPE9  IF MORE ENTRIES
43083  M02S26518.261l700 ---|          SA7    A0+B1       STORE TOTALS
43084  M02S26519.261l700 ---|          SB6    A0
43085  M02S26520.261l700 ---|          SA0    PBUF+10B
43086  M02S26521.261l700 ---|          SB4    A0+
43087  M02S26522.261l700 ---|          SB5    FPE10       *DRE* RETURN
43088  M02S26523.261l700 ---|          EQ     FPE7        ASSIGN *1MC* TO PROCESS ERRORS
43089  M02S26524.261l700 ---|
43090  M02S26525.261l700 ---| FPE10    SB3    PMR3        *PPB* RETURN ADDRESS
43091  M02S26526.261l700 ---|          SX4    .FATI
43092  M02S26527.261l700 ---| FPE11    ZR     X1,FPE12    IF NO BUFFER ASSIGNED
43093  M02S26528.261l700 ---|          SA1    X1+         SET BUFFER COMPLETE
43094  M02S26529.261l700 ---|          MX6    1
43095  M02S26530.261l700 ---|          BX6    X1+X6
43096  M02S26531.261l700 ---|          SA6    A1+
43097  M02S26532.261l700 ---| FPE12    TSX0   (403B,7B,ESM)  CLEAR FLAG REGISTER INTERLOCK
43098  M02S26533.261l700 ---|          LX0    21
43099  M02S26534.261l700 ---|          BX0    X0+X4
43100  M02S26535.261l700 ---|          JP     B3          EXIT
43101  M02S26536.261l700 ---| MMS      SPACE  4
43102  M02S26537.261l700 ---|**        MMS - MESSAGE TO SYSTEM CONTROL POINT.
43103  M02S26538.261l700 ---|
43104  M02S26539.261l700 ---|
43105  M02S26540.261l700 ---| MMS      SX1    A0+1        SET ADDRESS OF MESSAGE
43106  M02S26541.261l700 ---|          SB5    PMR6        SET *MSC* RETURN
43107  M02S26542.261l700 ---|          EQ     /MONITOR/MSC  SET MESSAGE
43108  M02S26543.261l700 ---| STD      SPACE  4
43109  M02S26544.261l700 ---|**        STD - SET SYSTEM TIME AND DATE.
43110  M02S26545.261l700 ---|
43111  M02S26546.261l700 ---|
43112  M02S26547.261l700 ---| STD      SA4    TIML        CHECK SENDING SYSTEM TIME
43113  M02S26548.261l700 ---|          TLX2   59+1-24,-MIN
43114  M02S26549.261l700 ---|          SB5    A0+B1
43115  M02S26550.261l700 ---|          PL     X2,STD1     IF SENDING TIME WORDS
43116  M02S26551.261l700 ---|          SB5    A4          REVERSE TRANSFER
43117  M02S26552.261l700 ---|          SA4    A0+B1
43118  M02S26553.261l700 ---| STD1     SA3    A4+B1
43119  M02S26554.261l700 ---|          BX6    X4
43120  M02S26555.261l700 ---|          LX7    X3
43121  M02S26556.261l700 ---|          SA6    B5
43122  M02S26557.261l700 ---|          SA7    B5+1
43123  M02S26558.261l700 ---|          PL     X2,PMR6     IF SENDING TIME WORDS
43124  M02S26559.261l700 ---|          EQ     PMR4        SET REQUEST COMPLETE

Seq #  *Modification Id* Act 
----------------------------+
43125  M02S02346.261l700 ---|          TA4    X3+EQDE,EST READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
43126  M01S00143.261l700 +++|          CX4    X3,EST      CONVERT EST ORDINAL TO OFFSET
43127  M01S00144.261l700 +++|          TA4    X4+EQDE,EST READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
43128  M01S02347.251l664 +++|          MX3    -12
43129  M01S02348.251l664 +++|          BX4    -X3*X4
43130  M01S02349.251l664 +++|          SB5    FPE7        *DRE* RETURN ADDRESS
43131  M01S02350.251l664 +++|          LX4    3
43132  M01S02351.251l664 +++|          SA4    X4+PFGL
43133  M01S02352.251l664 +++|          BX6    X3*X4
43134  M01S02353.251l664 +++|          SA6    PBUF        STORE FAMILY NAME + DEVICE NUMBER
43135  M01S02354.251l664 +++|          SB6    A6          FWA TO CHECK
43136  M01S02355.251l664 +++|          SB4    A6+B1       LWA + 1 TO CHECK
43137  M01S02356.251l664 +++|          EQ     DRE1        CHECK FAMILY NAME WORD
43138  M01S02357.251l664 +++|
43139  M01S02358.251l664 +++| FPE7     SX4    B1          ACCUMULATE GLOBAL COUNTS
43140  M01S02359.251l664 +++|          SA2    A3+B1       READ FST
43141  M01S02360.251l664 +++|          MX6    12
43142  M01S02361.251l664 +++|          LX6    -12
43143  M01S02362.251l664 +++|          BX6    X6*X2       EXTRACT FIRST TRACK
43144  M01S02363.251l664 +++|          MX3    -36
43145  M01S02364.251l664 +++|          IX0    X0-X4
43146  M01S02365.251l664 +++|          MX5    MXMF
43147  M01S02366.251l664 +++| FPE8     IX0    X0-X4
43148  M01S02367.251l664 +++|          PL     X5,FPE9     IF END OF LOCAL WORDS
43149  M01S02368.251l664 +++|          LX5    1
43150  M01S02369.251l664 +++|          RE     1
43151  M01S02370.251l664 +++|          EQ     FPE2        QUIT ON ERROR
43152  M01S02371.251l664 +++|          SA2    A0+
43153  M01S02372.251l664 +++|          BX2    -X3*X2
43154  M01S02373.251l664 +++|          IX6    X6+X2
43155  M01S02374.251l664 +++|          EQ     FPE8        LOOP
43156  M01S02375.251l664 +++|
43157  M01S02376.251l664 +++| FPE9     SA6    PBUF        STORE COMPUTED ENTRY
43158  M01S02377.251l664 +++|          SB6    A6          FWA TO CHECK
43159  M01S02378.251l664 +++|          SB4    A6+B1       LWA + 1 TO CHECK
43160  M01S02379.251l664 +++|          SB5    FPE2        *DRE* RETURN ADDRESS
43161  M01S02380.251l664 +++|          EQ     DRE1        CHECK GLOBAL COUNT WORD
43162  M01S02381.251l664 +++|
43163  M01S02382.251l664 +++|*         CLEAR FAT ENTRY AND EXIT.
43164  M01S02383.251l664 +++|
43165  M01S02384.251l664 +++| FPE10    SB6    PMRX        *CFR* RETURN ADDRESS
43166  M01S02385.251l664 +++|          SB4    FATI
43167  M01S02386.251l664 +++|          JP     /ECS/CFR    CLEAR FLAG BIT
43168  M00S26560.cpumtr  +++|          TITLE  SUBROUTINES.
43169  M00S26561.cpumtr  +++| DRE      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
43170  M01S26562.v23l617 ---|**        DRE - DETECT / REPORT AND RECOVER ECS ERRORS.

Seq #  *Modification Id* Act 
----------------------------+
43171  M01S00487.v23l617 +++|**        DRE - DETECT / REPORT AND RECOVER EXTENDED MEMORY ERRORS.
43172  M00S26563.cpumtr  +++|*
43173  M00S26564.cpumtr  +++|*         ENTRY  (X0) = FWA OF ECS WORDS TO CHECK.
43174  M00S26565.cpumtr  +++|*                (X1) = COMMUNICATION BUFFER ADDRESS.
43175  M00S26566.cpumtr  +++|*                (B4) = LWA OF CM BUFFER TO COMPARE WITH ECS.
43176  M00S26567.cpumtr  +++|*                (B5) = EXIT ADDRESS.
43177  M00S26568.cpumtr  +++|*                (B6) = FWA OF CM BUFFER TO COMPARE WITH ECS.

Seq #  *Modification Id* Act 
----------------------------+
43178  M01S26569.v23l617 ---|*                (A0) = SCRATCH WORD FOR ECS READ.

Seq #  *Modification Id* Act 
----------------------------+
43179  M01S00488.v23l617 +++|*                (A0) = SCRATCH WORD FOR EXTENDED MEMORY READ.
43180  M00S26570.cpumtr  +++|
43181  M00S26571.cpumtr  +++|
43182  M00S26572.cpumtr  +++| DRE      SB3    B0          REPORTED INDEX
43183  M00S26573.cpumtr  +++|          ZR     X1,DRE1     IF NO BUFFER ASSIGNED
43184  M00S26574.cpumtr  +++|          BX7    X7-X7       INITIALIZE BUFFER
43185  M00S26575.cpumtr  +++|          SA7    X1+1
43186  M00S26576.cpumtr  +++| DRE1     SA2    B6+         READ GOOD DATA
43187  M00S26577.cpumtr  +++|          MX7    -24
43188  M00S26578.cpumtr  +++|          BX0    -X7*X0
43189  M00S26579.cpumtr  +++|          SX7    A0+
43190  M00S26580.cpumtr  +++|          LX7    30
43191  M00S26581.cpumtr  +++|          BX0    X7+X0
43192  M00S26582.cpumtr  +++|          BX6    X2          GOOD DATA
43193  M00S26583.cpumtr  +++|          SX3    701B        UNRECOVERED WITH GOOD AND BAD DATA
43194  M00S26584.cpumtr  +++|          RE     1
43195  M00S26585.cpumtr  +++|          EQ     DRE2        IF ERROR DETECTED
43196  M00S26586.cpumtr  +++|          SX3    301B        RECOVERED WITH GOOD AND BAD DATA
43197  M00S26587.cpumtr  +++|          SA2    A0+         READ POSSIBLE BAD DATA
43198  M00S26588.cpumtr  +++|          BX2    X2-X6
43199  M00S26589.cpumtr  +++|          CX2    X2
43200  M00S26590.cpumtr  +++|          ZR     X2,DRE3     IF DATA VERIFIES
43201  M00S26591.cpumtr  +++| DRE2     MX7    -24
43202  M00S26592.cpumtr  +++|          BX0    -X7*X0      ECS ADDRESS
43203  M00S26593.cpumtr  +++|          SX7    B6          CM ADDRESS OF GOOD DATA
43204  M00S26594.cpumtr  +++|          LX7    30
43205  M00S26595.cpumtr  +++|          BX0    X7+X0
43206  M00S26596.cpumtr  +++|          SX7    A0          SAVE (A0)
43207  M00S26597.cpumtr  +++|          SA0    B6+         ADDRESS OF GOOD DATA
43208  M00S26598.cpumtr  +++|          WE     1           RESTORE GOOD DATA
43209  M00S26599.cpumtr  +++|          PER    /ECS/ECH1   HANG ON UNRECOVERED WRITE ERROR
43210  M00S26600.cpumtr  +++|          SA0    X7+         RESTORE (A0)
43211  M00S26601.cpumtr  +++|          ZR     X1,DRE3     IF NO BUFFER ASSIGNED
43212  M00S26602.cpumtr  +++|          GT     B3,B1,DRE3  IF TWO ERRORS REPORTED
43213  M00S26603.cpumtr  +++|          SB3    B3+B1       INCREMENT ERROR INDEX
43214  M00S26604.cpumtr  +++|          SA2    X7          BAD DATA
43215  M00S26605.cpumtr  +++|          LX3    -18         STATUS
43216  M00S26606.cpumtr  +++|          LX7    24          CM ADDRESS
43217  M00S26607.cpumtr  +++|          BX7    X7+X3
43218  M00S26608.cpumtr  +++|          MX3    -24
43219  M00S26609.cpumtr  +++|          BX0    -X3*X0      ECS ADDRESS
43220  M00S26610.cpumtr  +++|          BX7    X7+X0
43221  M00S26611.cpumtr  +++|          SA7    A7
43222  M00S26612.cpumtr  +++|          BX7    X2
43223  M00S26613.cpumtr  +++|          SA7    A7+B1       BAD DATA
43224  M00S26614.cpumtr  +++|          SA6    A7+B1       GOOD DATA
43225  M00S26615.cpumtr  +++|          BX7    X7-X7
43226  M00S26616.cpumtr  +++|          SA7    A6+B1
43227  M00S26617.cpumtr  +++| DRE3     SX6    B1+         ADVANCE ADDRESSES
43228  M00S26618.cpumtr  +++|          SB6    B6+B1
43229  M00S26619.cpumtr  +++|          IX0    X0+X6
43230  M00S26620.cpumtr  +++|          LT     B6,B4,DRE1  IF NOT END OF WORDS TO CHECK
43231  M00S26621.cpumtr  +++|          JP     B5          RETURN

Seq #  *Modification Id* Act 
----------------------------+
43232  M01S26622.251l664 ---| RMR      SPACE  4
43233  M01S26623.251l664 ---|**        RMR - READ MACHINE REQUESTS.
43234  M01S26624.251l664 ---|*
43235  M01S26625.251l664 ---|*         ENTRY  (B5) = EXIT ADDRESS.
43236  M01S26626.251l664 ---|*
43237  M01S26627.251l664 ---|*         EXIT   (TMRQ) = MACHINE REQUEST WORD.
43238  M01S26628.251l664 ---|*
43239  M01S26629.251l664 ---|*         USES   X - 0.
43240  M01S26630.251l664 ---|*                B - NONE.
43241  M01S26631.251l664 ---|*                A - 0.
43242  M01S26632.251l664 ---|
43243  M01S26633.251l664 ---|
43244  M01S26634.251l664 ---| RMR      SB6    RMR1        *SFR* RETURN ADDRESS
43245  M01S26635.251l664 ---|          SB4    IFRI
43246  M01S26636.251l664 ---|          JP     /ECS/SFR    SET *IFRI* FLAG BIT
43247  M01S26637.251l664 ---|
43248  M01S26638.251l664 ---| RMR1     NZ     X7,RMR6     IF FLAG BIT INTERLOCKED
43249  M01S26639.251l664 ---|          SB4    MXMF-1
43250  M01S26640.251l664 ---|          TSX0   (400B,4B,ESM)
43251  M01S26641.251l664 ---|          SX2    .COMI
43252  M01S26642.251l664 ---|          LX0    21
43253  M01S26643.251l664 ---|          BX0    X2+X0
43254  M01S26644.251l664 ---|          RE     /ECS/FRWC   SET *COMI* FLAG BIT
43255  M01S26645.251l664 ---|          JP     RMR3        IF PREVIOUSLY SET
43256  M01S26646.251l664 ---|
43257  M01S26647.251l664 ---|*         CLEAR MACHINE REQUESTS IF *COMI* NOT SET.
43258  M01S26648.251l664 ---|
43259  M01S26649.251l664 ---| RMR2     SA7    TMRQ+B4
43260  M01S26650.251l664 ---|          SB4    B4-B1
43261  M01S26651.251l664 ---|          PL     B4,RMR2     IF NOT END OF MACHINES
43262  M01S26652.251l664 ---|          JP     RMR4
43263  M01S26653.251l664 ---|
43264  M01S26654.251l664 ---|*         READ MACHINE REQUESTS IF PRESENT.
43265  M01S26655.251l664 ---|
43266  M01S26656.251l664 ---| RMR3     SA0    TMRQ
43267  M01S26657.251l664 ---|          TX0    20B+ETLT*100B+CMET,ECLT
43268  M01S26658.251l664 ---|          SX2    A0+
43269  M01S26659.251l664 ---|          LX2    30
43270  M01S26660.251l664 ---|          BX0    X2+X0
43271  M01S26661.251l664 ---|          RE     MXMF
43272  M01S26662.251l664 ---|          PER    /PROGRAM/RMR5
43273  M01S26663.251l664 ---| RMR4     JP     B5          EXIT
43274  M01S26664.251l664 ---|
43275  M01S26665.251l664 ---| RMR5     TX0    20B+ETLT*100B+CMET+4,ECLT
43276  M01S26666.251l664 ---|          SX2    A0+
43277  M01S26667.251l664 ---|          LX2    30
43278  M01S26668.251l664 ---|          BX0    X2+X0
43279  M01S26669.251l664 ---|          RE     MXMF
43280  M01S26670.251l664 ---|          PER    /PROGRAM/STE
43281  M01S26671.251l664 ---|          JP     B5          EXIT
43282  M01S26672.251l664 ---|
43283  M01S26673.251l664 ---| RMR6     SA0    PBUF        CHECK *IFRI* INTERLOCKED BY THIS MACHINE
43284  M01S26674.251l664 ---|          TX0    20B+ETLT*100B+FRET+IFRI,ECLT
43285  M01S26675.251l664 ---|          SX2    A0+
43286  M01S26676.251l664 ---|          LX2    30
43287  M01S26677.251l664 ---|          BX0    X2+X0
43288  M01S26678.251l664 ---|          RE     1
43289  M01S26679.251l664 ---|          PER    /PROGRAM/RMR4
43290  M01S26680.251l664 ---|          SA2    A0
43291  M01S26681.251l664 ---|          TLX2   59-12+1,-MIN
43292  M01S26682.251l664 ---|          PL     X2,RMR4     IF INTERLOCKED BY OTHER MACHINE
43293  M01S26683.251l664 ---|          BX7    X7-X7       SET INTERLOCK OBTAINED
43294  M01S26684.251l664 ---|          JP     RMR1
43295  M00S26685.cpumtr  +++| STE      SPACE  4
43296  M00S26686.cpumtr  +++|**        STE - ECS SYSTEM TABLE ERROR.
43297  M00S26687.cpumtr  +++|*
43298  M00S26688.cpumtr  +++|*         ENTRY  (B5) = EXIT ADDRESS IF ENTERED AT STE1.
43299  M00S26689.cpumtr  +++|*
43300  M00S26690.cpumtr  +++|*         EXIT   NONE.
43301  M00S26691.cpumtr  +++|*
43302  M00S26692.cpumtr  +++|*         USES   X - 1, 6.
43303  M00S26693.cpumtr  +++|*                B - NONE.
43304  M00S26694.cpumtr  +++|*                A - 1, 6.
43305  M00S26695.cpumtr  +++|
43306  M00S26696.cpumtr  +++|
43307  M00S26697.cpumtr  +++| STE      SB5    PRG         SET EXIT ADDRESS
43308  M00S26698.cpumtr  +++|
43309  M00S26699.cpumtr  +++| STE1     SX1    STEM        *SYSTEM ECS TABLE ERROR.*
43310  M00S26700.cpumtr  +++|          JP     /MONITOR/MSC  SEND MESSAGE TO SYSTEM CONTROL POINT
43311  M00S26701.cpumtr  +++|
43312  M00S26702.cpumtr  +++| STEM     DATA   C*SYSTEM ECS TABLE ERROR.*

Seq #  *Modification Id* Act 
----------------------------+
43313  M01S26703.251l664 ---| WMR      SPACE  4
43314  M01S26704.251l664 ---|**        WMR - WRITE MACHINE REQUEST WORDS.
43315  M01S26705.251l664 ---|*
43316  M01S26706.251l664 ---|*         ENTRY  (B6) = EXIT ADDRESS.
43317  M01S26707.251l664 ---|*
43318  M01S26708.251l664 ---|*         EXIT   (TMRQ) WRITTEN TO ECS IN DUPLICATE.
43319  M01S26709.251l664 ---|*                EXITS THROUGH *CFR* TO CLEAR IFRI INTERLOCK.
43320  M01S26710.251l664 ---|
43321  M01S26711.251l664 ---|
43322  M01S26712.251l664 ---| WMR      SA0    TMRQ
43323  M01S26713.251l664 ---|          TX0    20B+ETLT*100B+CMET,ECLT
43324  M01S26714.251l664 ---|          SX2    A0+
43325  M01S26715.251l664 ---|          LX2    30
43326  M01S26716.251l664 ---|          BX0    X0+X2
43327  M01S26717.251l664 ---|          WE     MXMF
43328  M01S26718.251l664 ---|          PER    /ECS/ECH1   HANG ON UNRECOVERED WRITE ERROR
43329  M01S26719.251l664 ---|          SX2    4
43330  M01S26720.251l664 ---|          IX0    X0+X2
43331  M01S26721.251l664 ---|          WE     MXMF
43332  M01S26722.251l664 ---|          PER    /ECS/ECH1   HANG ON UNRECOVERED WRITE ERROR
43333  M01S26723.251l664 ---|          SB4    IFRI
43334  M01S26724.251l664 ---|          JP     /ECS/CFR    CLEAR *IFRI* FLAG BIT ON EXIT
43335  M00S26725.cpumtr  +++|
43336  M00S26726.cpumtr  +++|          ENDBLK

Seq #  *Modification Id* Act 
----------------------------+
43337  M01S26727.251l664 ---|          BLOCK  0MMF,(NO MULTI-MAINFRAME PROCESSING ROUTINES.)
43338  M01S26728.251l664 ---| AFA      SPACE  4,10
43339  M01S26729.251l664 ---|**        AFAM - ACCESS FAST ATTACH
43340  M01S26730.251l664 ---|*
43341  M01S26731.251l664 ---|*         ENTRY  (A5) = PP *OR* ADDRESS.
43342  M01S26732.251l664 ---|*
43343  M01S26733.251l664 ---|*         EXIT   NONE.
43344  M01S26734.251l664 ---|*
43345  M01S26735.251l664 ---|*         USES   X - ALL.
43346  M01S26736.251l664 ---|*                A - 1, 2, 3, 6, 7.
43347  M01S26737.251l664 ---|*                B - 5, 6.
43348  M01S26738.251l664 ---|
43349  M01S26739.251l664 ---|
43350  M01S26740.251l664 ---| AFA      MX4    -12
43351  M01S26741.251l664 ---|          LX1    48
43352  M01S26742.251l664 ---|          BX2    -X4*X5      FNT ORDINAL
43353  M01S26743.251l664 ---|          BX5    -X4*X1      SUBFUNCTION CODE
43354  M01S26744.251l664 ---|          LX5    59
43355  M01S26745.251l664 ---|          SB6    X5
43356  M01S26746.251l664 ---|          NZ     B6,HNG      IF ILLEGAL SUBFUNCTION
43357  M01S26747.251l664 ---|          LX1    48
43358  M01S26748.251l664 ---|          MX7    -11
43359  M01S26749.251l664 ---|          BX0    -X7*X1      MODE OF FAST ATTACH FILE
43360  M01S26750.251l664 ---|          MX7    -1
43361  M01S26751.251l664 ---|          LX1    -11
43362  M01S26752.251l664 ---|          BX6    -X7*X1
43363  M01S26753.251l664 ---|          TX7    X2,-FNTM    ORDINAL - MAXIMUM NUMBER OF ENTRIES
43364  M01S26754.251l664 ---|          BX5    X5+X6       SAVE SUBFUNCTION/NON-ROLLABLE OPTION
43365  M01S26755.251l664 ---|          SX3    X0-TFASL
43366  M01S26756.251l664 ---|          BX7    X3*X7
43367  M01S26757.251l664 ---|          R=     X1,FNTE     LENGTH OF SYSTEM FNT ENTRY
43368  M01S26758.251l664 ---|          IX2    X1*X2
43369  M01S26759.251l664 ---|          PL     X7,HNG      IF ILLEGAL FNT ORDINAL/ATTACH MODE
43370  M01S26760.251l664 ---|          TA2    X2+FNTG,FNT GET FNT ENTRY
43371  M01S26761.251l664 ---|          SA1    A2+B1       GET FST ENTRY
43372  M01S26762.251l664 ---|          ERRNZ  FSTG-FNTG-1 CODE DEPENDS ON VALUE
43373  M01S26763.251l664 ---|          BX7    -X4*X2
43374  M01S26764.251l664 ---|          LX2    -1
43375  M01S26765.251l664 ---|          SB5    PPRX        SET *REJ* EXIT
43376  M01S26766.251l664 ---|          NG     X2,/PROGRAM/REJ  IF FILE BUSY
43377  M01S26767.251l664 ---|          AX7    6
43378  M01S26768.251l664 ---|          SX7    X7-FAFT
43379  M01S26769.251l664 ---|          SA3    TFAS+X0     READ MODE PARAMETERS
43380  M01S26770.251l664 ---|          NZ     X7,HNG      IF NOT *FAFT* FILE
43381  M01S26771.251l664 ---|          UX3,B6 X3          (B6) = POSITION OF FIELD
43382  M01S26772.251l664 ---|          BX2    -X4*X3      (X2) = FIELD MASK
43383  M01S26773.251l664 ---|          AX0    X1,B6       POSITION FIELD TO BOTTOM OF WORD
43384  M01S26774.251l664 ---|          LX3    -24
43385  M01S26775.251l664 ---|          BX0    X2*X0       CURRENT VALUE OF FIELD
43386  M01S26776.251l664 ---|          BX4    -X4*X3
43387  M01S26777.251l664 ---|          LX4    X4,B6       INCREMENT SHIFTED TO FIELD POSITION
43388  M01S26778.251l664 ---|          NG     X5,AFA1     IF DECREMENTING FIELD
43389  M01S26779.251l664 ---|          UX3,B5 X3          (B5) = -MASK WIDTH
43390  M01S26780.251l664 ---|          MX7    1
43391  M01S26781.251l664 ---|          LX3    -12
43392  M01S26782.251l664 ---|          AX6    X7,B5       FORM BUSY MASK
43393  M01S26783.251l664 ---|          BX4    -X4         COMPLEMENT INCREMENT VALUE
43394  M01S26784.251l664 ---|          SB5    X3
43395  M01S26785.251l664 ---|          LX6    X6,B5
43396  M01S26786.251l664 ---|          BX0    X2-X0
43397  M01S26787.251l664 ---|          BX7    -X6*X1      CHECK IF BUSY STATUS
43398  M01S26788.251l664 ---|          NZ     X7,AFA5     IF BUSY
43399  M01S26789.251l664 ---| AFA1     ZR     X0,AFA4     IF OVERFLOW/UNDERFLOW
43400  M01S26790.251l664 ---|          IX6    X1-X4       INCREMENT/DECREMENT FIELD
43401  M01S26791.251l664 ---|          SB5    B6-8
43402  M01S26792.251l664 ---|          NZ     B5,AFA3     IF NOT WRITEABLE MODE
43403  M01S26793.251l664 ---|          NG     X5,AFA2     IF RETURNING FAST ATTACH FILE
43404  M01S26794.251l664 ---|          LX2    X5,B1
43405  M01S26795.251l664 ---|          BX6    X2+X6       SET NON-ROLLABLE BIT IF REQUESTED
43406  M01S26796.251l664 ---|          EQ     AFA3        STORE GLOBAL FST ENTRY
43407  M01S26797.251l664 ---|
43408  M01S26798.251l664 ---| AFA2     SX2    B1+B1       CLEAR NON-ROLLABLE BIT
43409  M01S26799.251l664 ---|          BX6    -X2*X6
43410  M01S26800.251l664 ---| AFA3     SA6    A1          STORE GLOBAL FST ENTRY
43411  M01S26801.251l664 ---|          SA7    A5          STORE OR
43412  M01S26802.251l664 ---|          EQ     PPRX        EXIT
43413  M01S26803.251l664 ---|
43414  M01S26804.251l664 ---| AFA4     NG     X5,HNG      IF DECREMENTING FIELD (UNDERFLOW)
43415  M01S26805.251l664 ---| AFA5     MX4    -12
43416  M01S26806.251l664 ---|          SX7    B1          SET STATUS
43417  M01S26807.251l664 ---|          BX3    -X4*X1
43418  M01S26808.251l664 ---|          LX7    36
43419  M01S26809.251l664 ---|          BX7    X7+X3
43420  M01S26810.251l664 ---|          SA7    A5          STORE OR
43421  M01S26811.251l664 ---|          EQ     PPRX        EXIT
43422  M01S26812.251l664 ---|
43423  M01S26813.251l664 ---|**        DEFINE TAGS FROM MAIN BLOCK.
43424  M01S26814.251l664 ---|
43425  M01S26815.251l664 ---| HNG      EQU    /MONITOR/HNG
43426  M01S26816.251l664 ---| PPRX     EQU    /MONITOR/PPRX
43427  M01S26817.251l664 ---| TFAS     EQU    /MONITOR/TFAS
43428  M01S26818.251l664 ---| TFASL    EQU    /MONITOR/TFASL
43429  M01S26819.251l664 ---|
43430  M01S26820.251l664 ---|          ENDBLK

Seq #  *Modification Id* Act 
----------------------------+
43431  M01S02387.251l664 +++|          BLOCK  LSPMMF,(MULTI-MAINFRAME VIA LOW SPEED PORT TO EM.)
43432  M01S02388.251l664 +++| AFA      SPACE  4,10
43433  M01S02389.251l664 +++|**        AFA - PASS *AFAM* FUNCTION TO *MTE*.
43434  M01S02390.251l664 +++|*
43435  M01S02391.251l664 +++|*         ENTRY  (A2) = FNT ADDRESS, FNT IS NOT BUSY.
43436  M01S02392.251l664 +++|*                (A5) = OUTPUT REGISTER ADDRESS.
43437  M01S02393.251l664 +++|
43438  M01S02394.251l664 +++|
43439  M01S02395.251l664 +++| AFA      SA2    A2          SET FILE BUSY
43440  M01S02396.251l664 +++|          SX6    B1
43441  M01S02397.251l664 +++|          BX6    X2+X6
43442  M01S02398.251l664 +++|          SA6    A2
43443  M01S02399.251l664 +++|          EQ     QPR         QUEUE PP REQUEST TO *MTE*
43444  M01S02400.251l664 +++| CDI      SPACE  4,20
43445  M01S02401.251l664 +++|**        CDI - CLEAR DEVICE INTERLOCK.
43446  M01S02402.251l664 +++|*
43447  M01S02403.251l664 +++|*         CHECK FOR ALL QUEUED DEVICE REQUESTS BEING COMPLETE, AND
43448  M01S02404.251l664 +++|*         REQUEST *MTE* TO WRITE THE MST/TRT/MRT TO EXTENDED MEMORY.
43449  M01S02405.251l664 +++|*
43450  M01S02406.251l664 +++|*         ENTRY  (X1) = FIRST WORD OF TRT TO UPDATE.
43451  M01S02407.251l664 +++|*                (X5) = LAST WORD + 1 OF TRT TO UPDATE.
43452  M01S02408.251l664 +++|*                (X6) = *SDGL* MST WORD WITH BIT 0 CLEARED.
43453  M01S02409.251l664 +++|*                (X7) = WORD TO BE STORED IN OUTPUT REGISTER.
43454  M01S02410.251l664 +++|*                (B4) = TRT LINK WORD TO UPDATE.
43455  M01S02411.251l664 +++|*                (B5) = EXIT ADDRESS.
43456  M01S02412.251l664 +++|*                (B6) = START OF TRT.
43457  M01S02413.251l664 +++|*                (A3) = ADDRESS OF MST IN CM.
43458  M01S02414.251l664 +++|*                (A5) = OUTPUT REGISTER ADDRESS.
43459  M01S02415.251l664 +++|
43460  M01S02416.251l664 +++|
43461  M01S02417.251l664 +++| CDI      BSS    0           ENTRY
43462  M01S02418.251l664 +++|          BX2    X2-X2
43463  M01S02419.251l664 +++|          NG     X5,CDI3     IF NO UPDATE OF TRT TO EXTENDED MEMORY
43464  M01S02420.251l664 +++|
43465  M01S02421.251l664 +++|*         SET FIRST WORD OF TRT TO WRITE TO EXTENDED MEMORY.
43466  M01S02422.251l664 +++|
43467  M01S02423.251l664 +++|          SB4    B4-B6
43468  M01S02424.251l664 +++|          SB6    X1
43469  M01S02425.251l664 +++|          NG     B4,CDI2     IF NO LINK WORD
43470  M01S02426.251l664 +++|          SB3    X5
43471  M01S02427.251l664 +++|          GE     B4,B6,CDI1  IF LINK WORD IS NOT FIRST WORD TO WRITE
43472  M01S02428.251l664 +++|          SX1    B4+         SET FIRST WORD
43473  M01S02429.251l664 +++| CDI1     GE     B3,B4,CDI2  IF LINK WORD IS NOT LAST WORD TO WRITE
43474  M01S02430.251l664 +++|          SX5    B4+1
43475  M01S02431.251l664 +++|
43476  M01S02432.251l664 +++|*         UPDATE LAST WORD OF TRT TO WRITE TO EXTENDED MEMORY.
43477  M01S02433.251l664 +++|
43478  M01S02434.251l664 +++| CDI2     LX5    36
43479  M01S02435.251l664 +++|          LX1    48
43480  M01S02436.251l664 +++|          BX2    X5+X1
43481  M01S02437.251l664 +++| CDI3     MX1    1           SET PROGRAM MODE BIT IN OUTPUT REGISTER
43482  M01S02438.251l664 +++|          LX1    -1
43483  M01S02439.251l664 +++|          BX7    X7+X1
43484  M01S02440.251l664 +++|          SA7    A5
43485  M01S02441.251l664 +++|
43486  M01S02442.251l664 +++|*         CLEAR MST/TRT CURRENT FLAG AND REQUEST *CDIF* OF *MTE*.
43487  M01S02443.251l664 +++|
43488  M01S02444.251l664 +++|          SA4    A3+MCLL     READ *MCLL*
43489  M01S02445.251l664 +++|          LX4    47-35       POSITION MRT WRITE FLAG
43490  M01S02446.251l664 +++|          SX1    B1
43491  M01S02447.251l664 +++|          LX1    47-0
43492  M01S02448.251l664 +++|          BX4    X1*X4
43493  M01S02449.251l664 +++|          BX2    X2+X4
43494  M01S02450.251l664 +++|          SX1    A5          ADD OUTPUT REGISTER ADDRESS
43495  M01S02451.251l664 +++|          LX1    24
43496  M01S02452.251l664 +++|          BX2    X1+X2
43497  M01S02453.251l664 +++|          MX7    54          CLEAR MST/TRT CURRENT IN CM
43498  M01S02454.251l664 +++|          BX6    X7*X6
43499  M01S02455.251l664 +++|          SA6    A3+SDGL
43500  M01S02456.251l664 +++|          SX0    A3+         SET MST ADDRESS
43501  M01S02457.251l664 +++|          SX6    CDIF        CLEAR DEVICE INTERLOCK FUNCTION FOR *MTE*
43502  M01S02458.251l664 +++|          LX0    12-3
43503  M01S02459.251l664 +++|          BX2    X2+X6       MERGE *MCLL* INFORMATION
43504  M01S02460.251l664 +++|          BX6    X0+X2
43505  M01S02461.251l664 +++|          SB4    B5          SAVE RETURN ADDRESS
43506  M01S02462.251l664 +++|          SB5    CDI4        *QPR* RETURN ADDRESS
43507  M01S02463.251l664 +++|          EQ     QPR3        QUEUE REQUEST
43508  M01S02464.251l664 +++|
43509  M01S02465.251l664 +++| CDI4     SX7    B0+         CLEAR *MCLL*
43510  M01S02466.251l664 +++|          SA7    A3+MCLL
43511  M01S02467.251l664 +++|          JP     B4          RETURN
43512  M01S02468.251l664 +++| CME      SPACE  4,15
43513  M01S02469.251l664 +++|**        CME - CHECK FOR *MTE* DEVICE INTERLOCK REQUEST NEEDED.
43514  M01S02470.251l664 +++|*
43515  M01S02471.251l664 +++|*         THIS ROUTINE IS CALLED BY MST/TRT MANIPULATION FUNCTIONS
43516  M01S02472.251l664 +++|*         WHICH EXECUTE IN PROGRAM MODE.  IF THE REQUEST IS FOR A
43517  M01S02473.251l664 +++|*         LSPMMF DEVICE AND THE MST/TRT NEED TO BE INTERLOCKED IN
43518  M01S02474.251l664 +++|*         EM, THEN THE FUNCTION IS QUEUED TO *MTE* FOR PROCESSING.
43519  M01S02475.251l664 +++|*         IF THE MST/TRT ARE INTERLOCKED IN EM, THEN THE FUNCTION IS
43520  M01S02476.251l664 +++|*         PASSED TO PROGRAM MODE TO EXECUTION.  THIS AVOIDS GOING TO
43521  M01S02477.251l664 +++|*         PROGRAM MODE TO PASS REQUESTS TO *MTE*.

Seq #  *Modification Id* Act 
----------------------------+
43522  M02S02478.cpum164 ---|*
43523  M02S02479.cpum164 ---|*         ENTRY  FROM *PPR*.

Seq #  *Modification Id* Act 
----------------------------+
43524  M01S02480.251l664 +++|
43525  M01S02481.251l664 +++|

Seq #  *Modification Id* Act 
----------------------------+
43526  M01S00003.cpum164 +++|*         ENTRY FOR *VMSM*.
43527  M01S00004.cpum164 +++|
43528  M01S00005.cpum164 +++| CME0     SX3    X1
43529  M01S00006.cpum164 +++|          AX3    12
43530  M01S00007.cpum164 +++|          NZ     X3,/MONITOR/PMR  IF NOT SUBFUNCTION *VEIS*
43531  M01S00008.cpum164 +++|          ERRNZ  VEIS        CODE DEPENDS ON VALUE
43532  M01S00009.cpum164 +++|
43533  M01S00010.cpum164 +++|*         ENTRY FOR *DLKM* AND *RTCM*.
43534  M01S00011.cpum164 +++|

Seq #  *Modification Id* Act 
----------------------------+
43535  M01S02482.251l664 +++| CME      LX1    24          POSITION EQUIPMENT FIELD
43536  M01S02483.251l664 +++|          MX3    -9
43537  M01S02484.251l664 +++|          BX3    -X3*X1      EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
43538  M02S02485.261l700 ---|          ERRNZ  ESTE-2
43539  M02S02486.261l700 ---|          LX3    1
43540  M02S02487.261l700 ---|          TA4    X3+EQDE,EST READ EST ENTRY
43541  M02S02488.261l700 ---|          AX3    1

Seq #  *Modification Id* Act 
----------------------------+
43542  M01S00145.261l700 +++|          CX4    X3,EST      CONVERT EST ORDINAL TO OFFSET
43543  M01S00146.261l700 +++|          TA4    X4+EQDE,EST READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
43544  M01S02489.251l664 +++|          LX4    59-57
43545  M01S02490.251l664 +++|          PL     X4,/MONITOR/PMR  IF NOT SHARED
43546  M01S02491.251l664 +++|          LX4    -59+57
43547  M01S02492.251l664 +++|          MX6    -5
43548  M01S02493.251l664 +++|          TX0    X3,-ESTL
43549  M01S02494.251l664 +++|          MX3    -12
43550  M01S02495.251l664 +++|          BX3    -X3*X4      MST ADDRESS / 10B
43551  M01S02496.251l664 +++|          BX0    X4*X0
43552  M01S02497.251l664 +++|          LX3    3
43553  M01S02498.251l664 +++|          PL     X0,/MONITOR/HNG1  IF NOT MASS STORAGE OR OUT OF EST
43554  M01S02499.251l664 +++|          SA4    X3+SDGL     CHECK SHARED STATUS
43555  M01S02500.251l664 +++|          AX4    1
43556  M01S02501.251l664 +++|          BX6    -X6*X4
43557  M01S02502.251l664 +++|          NZ     X6,/MONITOR/PMR  IF INTERLOCKED IN EXTENDED MEMORY
43558  M01S02503.251l664 +++|          ZR     X4,/MONITOR/PMR  IF NO EXTENDED MEMORY ADDRESS PRESENT
43559  M01S02504.251l664 +++|

Seq #  *Modification Id* Act 
----------------------------+
43560  M02S02505.cpum164 ---|*         ENTER HERE TO QUEUE MST/TRT READ TO *MTE*.

Seq #  *Modification Id* Act 
----------------------------+
43561  M01S00012.cpum164 +++|*         ENTRY FOR *DTKM* (QUEUE *MTE* REQUEST).

Seq #  *Modification Id* Act 
----------------------------+
43562  M01S02506.251l664 +++|
43563  M01S02507.251l664 +++| CME1     TX2    A5-1,-FP    COMPUTE PP REQUEST BIT
43564  M01S02508.251l664 +++|          SX3    B1
43565  M01S02509.251l664 +++|          AX2    3
43566  M01S02510.251l664 +++|          SB6    X2
43567  M01S02511.251l664 +++|          LX6    X3,B6
43568  M01S02512.251l664 +++|          SB5    /MONITOR/PPRX  SET RETURN ADDRESS
43569  M01S02513.251l664 +++|          SX2    A4+MCLL-SDGL
43570  M01S02514.251l664 +++|
43571  M01S02515.251l664 +++|*         SET INTERLOCK BIT FOR THIS PP IF NO REQUESTS PENDING.
43572  M01S02516.251l664 +++|

Seq #  *Modification Id* Act 
----------------------------+
43573  M02S02517.cpum242 ---|+         SA2    X2               **** PERFORM IN ONE WORD ****
43574  M02S02518.cpum242 ---|          NZ     X2,/PROGRAM/REJ  **** PERFORM IN ONE WORD ****
43575  M02S02519.cpum242 ---|          SA6    A2               **** PERFORM IN ONE WORD ****

Seq #  *Modification Id* Act 
----------------------------+
43576  M01S00042.cpum242 +++|+         SA2    X2                       **** PERFORM IN ONE WORD ****
43577  M01S00043.cpum242 +++|          NZ     X2,/PROGRAM/REJ  IF SET  **** PERFORM IN ONE WORD ****
43578  M01S00044.cpum242 +++|          SA6    A2                       **** PERFORM IN ONE WORD ****

Seq #  *Modification Id* Act 
----------------------------+
43579  M01S02520.251l664 +++|          EQ     QPR2        PASS REQUEST TO *MTE*
43580  M01S02521.251l664 +++| ECS      SPACE  4,10
43581  M01S02522.251l664 +++|**        ECS - *ECSM* EXTENSION FOR LOW SPEED PORT MMF MODE.
43582  M01S02523.251l664 +++|*
43583  M01S02524.251l664 +++|*         *ECSM* SUBFUNCTIONS ARE PROCESSED EITHER BY *CPUMTR* OR BY
43584  M01S02525.251l664 +++|*         *MTE* AS SHOWN BY THE FOLLOWING TABLE.
43585  M01S02526.251l664 +++|*
43586  M01S02527.251l664 +++|*         *MTE*  *CPUMTR*
43587  M01S02528.251l664 +++|*
43588  M01S02529.251l664 +++|*                  RRES        READ RELATIVE USER EXTENDED MEMORY
43589  M01S02530.251l664 +++|*                  WRES        WRITE RELATIVE USER EXTENDED MEMORY
43590  M01S02531.251l664 +++|*          RECS                READ SYSTEM EM (LINK DEVICE).
43591  M01S02532.251l664 +++|*          WECS                WRITE SYSTEM EM (LINK DEVICE).
43592  M01S02533.251l664 +++|*          SFRS                SET FLAG REGISTER BIT (LINK DEVICE).
43593  M01S02534.251l664 +++|*          CFRS                CLEAR FLAG REGISTER BIT (LINK DEVICE).
43594  M01S02535.251l664 +++|*          PELS                PROCESS EM LIST FUNCTION ABSOLUTE.
43595  M01S02536.251l664 +++|*                  PELS        PROCESS EM LIST FUNCTION RELATIVE.
43596  M01S02537.251l664 +++|*                              BIT 20 OF OR INDICATES RELATIVE LIST.
43597  M01S02538.251l664 +++|
43598  M01S02539.251l664 +++|
43599  M01S02540.251l664 +++| ECS      MX2    -24
43600  M01S02541.251l664 +++|          BX2    -X2*X1
43601  M01S02542.251l664 +++|          AX2    21
43602  M01S02543.251l664 +++|          SB3    X2
43603  M01S02544.251l664 +++|          LE     B3,B1,/ECS/ECS  IF READ/WRITE RELATIVE EM
43604  M01S02545.251l664 +++|          SB4    PELS
43605  M01S02546.251l664 +++|          LT     B3,B4,QPR   IF LINK DEVICE FUNCTION - PASS TO *MTE*
43606  M01S02547.251l664 +++|          NE     B3,B4,/ECS/ECS  IF INVALID FUNCTION
43607  M01S02548.251l664 +++|          LX1    59-19
43608  M01S02549.251l664 +++|          PL     X1,QPR      IF NOT RELATIVE ADDRESS LIST
43609  M01S02550.251l664 +++|          LX1    19-59
43610  M01S02551.251l664 +++|          EQ     /ECS/ECS    PROCESS RELATIVE LIST
43611  M01S02552.251l664 +++| SDI      SPACE  4,10
43612  M01S02553.251l664 +++|**        SDI - SET DEVICE INTERLOCK.
43613  M01S02554.251l664 +++|*
43614  M01S02555.251l664 +++|*         ENTRY  (X3) = *TDGL* WORD OF MST.

Seq #  *Modification Id* Act 
----------------------------+
43615  M01S00001.cpum149 +++|*                (X5) = -7777B.

Seq #  *Modification Id* Act 
----------------------------+
43616  M01S02556.251l664 +++|*                (X6) = INTERLOCK FIELD (LOWER 6 BITS) OF *SDGL*.
43617  M01S02557.251l664 +++|*                (B5) = EXIT ADDRESS, IF NEED TO READ MST/TRT.
43618  M01S02558.251l664 +++|*                (B6) = 0, IF NOT TO INTERLOCK MST/TRT.
43619  M01S02559.251l664 +++|*                (A4) = ADDRESS OF *SDGL* WORD OF MST.

Seq #  *Modification Id* Act 
----------------------------+
43620  M01S00002.cpum149 +++|*
43621  M01S00003.cpum149 +++|*         EXIT   (B4) = TRT LENGTH.

Seq #  *Modification Id* Act 
----------------------------+
43622  M01S02560.251l664 +++|
43623  M01S02561.251l664 +++|
43624  M01S02562.251l664 +++| SDI      LX3    24
43625  M01S02563.251l664 +++|          SX0    B1
43626  M01S02564.251l664 +++|          LX0    58
43627  M01S02565.251l664 +++|          BX0    X0+X3

Seq #  *Modification Id* Act 
----------------------------+
43628  M01S00004.cpum149 +++|          LX3    12          SET TRT LENGTH
43629  M01S00005.cpum149 +++|          BX3    -X5*X3
43630  M01S00006.cpum149 +++|          SB4    X3

Seq #  *Modification Id* Act 
----------------------------+
43631  M01S02566.251l664 +++|          ZR     B6,/PROGRAM/CTR2  IF NOT TO INTERLOCK DEVICE
43632  M01S02567.251l664 +++|          TX2    A5-1,-FP    COMPUTE PP REQUEST BIT
43633  M01S02568.251l664 +++|          SX3    B1
43634  M01S02569.251l664 +++|          AX2    3
43635  M01S02570.251l664 +++|          SB6    X2
43636  M01S02571.251l664 +++|          LX6    X3,B6
43637  M01S02572.251l664 +++|          SX2    A4+MCLL-SDGL
43638  M01S02573.251l664 +++|
43639  M01S02574.251l664 +++|*         SET INTERLOCK BIT FOR THIS PP IF NO REQUEST PENDING.
43640  M01S02575.251l664 +++|

Seq #  *Modification Id* Act 
----------------------------+
43641  M02S02576.cpum242 ---|+         SA2    X2          **** PERFORM IN ONE WORD ****
43642  M02S02577.cpum242 ---|          NZ     X2,SDI1     **** PERFORM IN ONE WORD ****
43643  M02S02578.cpum242 ---|          SA6    A2          **** PERFORM IN ONE WORD ****

Seq #  *Modification Id* Act 
----------------------------+
43644  M01S00045.cpum242 +++|+         SA2    X2                  **** PERFORM IN ONE WORD ****
43645  M01S00046.cpum242 +++|          NZ     X2,SDI1     IF SET  **** PERFORM IN ONE WORD ****
43646  M01S00047.cpum242 +++|          SA6    A2                  **** PERFORM IN ONE WORD ****

Seq #  *Modification Id* Act 
----------------------------+
43647  M01S02579.251l664 +++|          EQ     SDI2        REREAD *SDGL*
43648  M01S02580.251l664 +++|
43649  M01S02581.251l664 +++| SDI1     BX2    X6-X2
43650  M01S02582.251l664 +++|          NZ     X2,/PROGRAM/REJ  IF INTERLOCK OWNED BY ANOTHER PP
43651  M01S02583.251l664 +++| SDI2     SA4    A4          REREAD MST/TRT CURRENT FLAG
43652  M01S02584.251l664 +++|          MX7    -6
43653  M01S02585.251l664 +++|          BX7    -X7*X4
43654  M01S02586.251l664 +++|          LX7    59-0
43655  M01S02587.251l664 +++|          NG     X7,/PROGRAM/REJ  IF INTERLOCK SET
43656  M01S02588.251l664 +++|          ZR     X7,QPR1     IF MST/TRT NOT VALID IN CM
43657  M01S02589.251l664 +++|
43658  M01S02590.251l664 +++|*         SET MST INTERLOCK.
43659  M01S02591.251l664 +++|
43660  M01S02592.251l664 +++|+         SA4    A4          **** PERFORM IN ONE WORD ****
43661  M01S02593.251l664 +++|          BX6    X3+X4       **** PERFORM IN ONE WORD ****
43662  M01S02594.251l664 +++|          SA6    A4          **** PERFORM IN ONE WORD ****
43663  M01S02595.251l664 +++|          BX6    X6-X4
43664  M01S02596.251l664 +++|          NZ     X6,/PROGRAM/CTR2  IF INTERLOCK OBTAINED
43665  M01S02597.251l664 +++|          EQ     /PROGRAM/REJ  REJECT REQUEST
43666  M01S02598.251l664 +++| QPR      SPACE  4,15
43667  M01S02599.251l664 +++|**        QPR - QUEUE PP REQUEST TO *MTE*.
43668  M01S02600.251l664 +++|*
43669  M01S02601.251l664 +++|*         THIS ROUTINE PASSES REQUESTS TO *MTE* FOR PROCESSING.
43670  M01S02602.251l664 +++|*
43671  M01S02603.251l664 +++|*         NOTE - THIS ROUTINE MUST BE INTERRUPTABLE ON EACH WORD
43672  M01S02604.251l664 +++|*         BOUNDARY SINCE IT MAY BE ENTERED FROM BOTH MONITOR AND
43673  M01S02605.251l664 +++|*         PROGRAM MODE.
43674  M01S02606.251l664 +++|*
43675  M01S02607.251l664 +++|*         ENTRY  (A5) = PP OUTPUT REGISTER ADDRESS.
43676  M01S02608.251l664 +++|*                (B5) = EXIT ADDRESS, IF ENTERED AT *QPR1*.
43677  M01S02609.251l664 +++|*                (X6) = 36/,12/  PM,12/  FN, IF ENTERED AT *QPR3*.
43678  M01S02610.251l664 +++|*                       PM = FUNCTION PARAMETER.
43679  M01S02611.251l664 +++|*                            OUTPUT REGISTER ADDRESS FOR *SDIF*/*AFAF*.
43680  M01S02612.251l664 +++|*                            MST ADDRESS / 10B FOR *CDIF*.
43681  M01S02613.251l664 +++|*                       FN = *MTE* FUNCTION CODE.
43682  M01S02614.251l664 +++|
43683  M01S02615.251l664 +++|
43684  M01S02616.251l664 +++| QPR      SB5    /MONITOR/PPRX  SET RETURN ADDRESS
43685  M01S02617.251l664 +++|          EQ     QPR2        SKIP CLEARING PROGRAM MODE BIT
43686  M01S02618.251l664 +++|
43687  M01S02619.251l664 +++| QPR1     SA5    A5          CLEAR PROGRAM MODE
43688  M01S02620.251l664 +++|          MX7    5
43689  M01S02621.251l664 +++|          BX7    -X7*X5
43690  M01S02622.251l664 +++|          SA7    A5
43691  M01S02623.251l664 +++| QPR2     SX6    A5          SET FUNCTION FOR *MTE*
43692  M01S02624.251l664 +++|          R=     X1,PPRF
43693  M01S02625.251l664 +++|          LX6    12
43694  M01S02626.251l664 +++|          BX6    X6+X1
43695  M01S02627.251l664 +++|
43696  M01S02628.251l664 +++|*         ENTER HERE IF (B5) SET AND NOT TO CLEAR PROGRAM MODE BIT.
43697  M01S02629.251l664 +++|
43698  M01S02630.251l664 +++| QPR3     SX1    QE
43699  M01S02631.251l664 +++|          SX5    77B
43700  M01S02632.251l664 +++|          ERRNZ  MXQP-100B   CODE DEPENDS ON LENGTH OF TABLE
43701  M01S02633.251l664 +++|+         SA1    X1          **** PERFORM IN ONE WORD ****
43702  M01S02634.251l664 +++|          IX7    X1+X5       **** PERFORM IN ONE WORD ****
43703  M01S02635.251l664 +++|          BX7    X5*X7       **** PERFORM IN ONE WORD ****
43704  M01S02636.251l664 +++|          SA7    A1          **** PERFORM IN ONE WORD ****
43705  M01S02637.251l664 +++|          SA6    MTET+X1
43706  M01S02638.251l664 +++|          JP     B5          RETURN

Seq #  *Modification Id* Act 
----------------------------+
43707  M02S02639.253l688 +++| VMS      SPACE  4,15
43708  M02S02640.253l688 +++|**        VMS - VALIDATE MASS STORAGE.
43709  M02S02641.253l688 +++|*
43710  M02S02642.253l688 +++|*         WHEN *VMSM* DETERMINES THAT A DEVICE VALIDATION ERROR EXISTS
43711  M02S02643.253l688 +++|*         IT LEAVES THE DEVICE INTERLOCKED.  IT MUST NOT LEAVE THE
43712  M02S02644.253l688 +++|*         PP MASK BIT SET IN *MCLL*.  THIS BIT BEING SET WOULD PREVENT
43713  M02S02645.253l688 +++|*         THE MST/TRT FROM BEING WRITTEN BACK TO EXTENDED MEMORY WHEN
43714  M02S02646.253l688 +++|*         *DSD* ISSUES A *VMSM* IN RESPONSE TO A *VALIDATE* COMMAND.
43715  M02S02647.253l688 +++|*
43716  M02S02648.253l688 +++|*         ENTRY  (A3) = ADDRESS OF *TDGL* MST WORD.
43717  M02S02649.253l688 +++|*
43718  M02S02650.253l688 +++|*         EXIT   TO /PROGRAM/PRG.
43719  M02S02651.253l688 +++|
43720  M02S02652.253l688 +++|
43721  M02S02653.253l688 +++| VMS      SA2    A3+MCLL-TDGL  CLEAR BITS FOR ALL PP-S
43722  M02S02654.253l688 +++|          MX6    -20
43723  M02S02655.253l688 +++|          BX6    X6*X2
43724  M02S02656.253l688 +++|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
43725  M02S02657.253l688 ---|          EQ     /PROGRAM/PRG  RETURN

Seq #  *Modification Id* Act 
----------------------------+
43726  M01S01661.253l688 +++|          EQ     /PROGRAM/CSM1  CHECK FOR STORAGE MOVE

Seq #  *Modification Id* Act 
----------------------------+
43727  M01S02658.251l664 +++| TMMF     SPACE  4,10
43728  M01S02659.251l664 +++| TMMF     BSS    0           MAINFRAME STATE TABLE
43729  M01S02660.251l664 +++|          DUP    MXMF,1
43730  M01S02661.251l664 +++|          DATA   0
43731  M01S02662.251l664 +++| MTET     BSS    0           PP REQUEST LIST
43732  M01S02663.251l664 +++|          DUP    MXQP,1
43733  M01S02664.251l664 +++|          DATA   0
43734  M01S02665.251l664 +++| QE       CON    MXQP-1      END OF QUEUE POINTER (PP NUMBER)

Seq #  *Modification Id* Act 
----------------------------+
43735  M01S00515.283l840 +++| MTIN     DATA   0           SHARED DEVICE REQUEST QUEUE *IN* POINTER
43736  M01S00516.283l840 +++| MTOT     DATA   0           SHARED DEVICE REQUEST QUEUE *OUT* POINTER
43737  M01S00517.283l840 +++| MTBT     BSS    0           SHARED DEVICE REQUEST QUEUE
43738  M01S00518.283l840 +++|          DUP    MXQP,1
43739  M01S00519.283l840 +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
43740  M02S02666.253l688 ---| CMB      SPACE  4,15
43741  M02S02667.253l688 ---|**        CMB - FLAG MRT UPDATE TO *MTE*.

Seq #  *Modification Id* Act 
----------------------------+
43742  M01S01662.253l688 +++| SMU      SPACE  4,25
43743  M01S01663.253l688 +++|**        SMU - FLAG MRT UPDATE TO *MTE*.

Seq #  *Modification Id* Act 
----------------------------+
43744  M01S02668.251l664 +++|*

Seq #  *Modification Id* Act 
----------------------------+
43745  M02S02669.253l688 ---|*         THIS ROUTINE IS CALLED WHEN CLEARING AN MRT BIT.  IT SETS

Seq #  *Modification Id* Act 
----------------------------+
43746  M01S01664.253l688 +++|*         THIS ROUTINE IS CALLED WHEN CHANGING AN MRT BIT.  IT SETS

Seq #  *Modification Id* Act 
----------------------------+
43747  M01S02670.251l664 +++|*         THE MRT UPDATED FLAG IN *MCLL* WHICH CAUSES *MTE* TO WRITE
43748  M01S02671.251l664 +++|*         THE MRT TO EXTENDED MEMORY.
43749  M01S02672.251l664 +++|*

Seq #  *Modification Id* Act 
----------------------------+
43750  M02S02673.253l688 ---|*         ENTRY  (A3) = MST ADDRESS (*TDGL*)
43751  M02S02674.253l688 ---|*
43752  M02S02675.253l688 ---|*         EXIT   (X7) = 0.
43753  M02S02676.253l688 ---|*                TO *DTC5*.
43754  M02S02677.253l688 ---|*
43755  M02S02678.253l688 ---|*         USES   X - 1, 7.
43756  M02S02679.253l688 ---|*                A - 1, 7.
43757  M02S02680.253l688 ---|
43758  M02S02681.253l688 ---|
43759  M02S02682.253l688 ---| CMB      BSS    0           ENTRY
43760  M02S02683.253l688 ---|          SA1    A3+MCLL-TDGL  UPDATE *MCLL*
43761  M02S02684.253l688 ---|          SX7    B1
43762  M02S02685.253l688 ---|          LX7    35
43763  M02S02686.253l688 ---|          BX7    X1+X7
43764  M02S02687.253l688 ---|          SA7    A1+
43765  M02S02688.253l688 ---|          BX7    X7-X7
43766  M02S02689.253l688 ---|          EQ     /PROGRAM/DTC5  CONTINUE
43767  M02S02690.253l688 ---| SMB      SPACE  4,15
43768  M02S02691.253l688 ---|**        SMB - FLAG MRT UPDATE TO *MTE*.
43769  M02S02692.253l688 ---|*
43770  M02S02693.253l688 ---|*         THIS ROUTINE IS CALLED WHEN SETTING AN MRT BIT.  IT SETS
43771  M02S02694.253l688 ---|*         THE MRT UPDATED FLAG IN *MCLL* WHICH CAUSES *MTE* TO WRITE
43772  M02S02695.253l688 ---|*         THE MRT TO EXTENDED MEMORY.
43773  M02S02696.253l688 ---|*
43774  M02S02697.253l688 ---|*         ENTRY  (A3) = MST ADDRESS (*TDGL*).
43775  M02S02698.253l688 ---|*
43776  M02S02699.253l688 ---|*         EXIT   TO *RTC13*.

Seq #  *Modification Id* Act 
----------------------------+
43777  M01S01665.253l688 +++|*         ENTRY  (X0) = 12/ TRT LENGTH +2000B, 48/ MRT ADDRESS IN EM.
43778  M01S01666.253l688 +++|*                (X4) = CALLER FLAG.
43779  M01S01667.253l688 +++|*                     .LT. 0, IF CALLED BY *DTC*.
43780  M01S01668.253l688 +++|*                     .EQ. 0, IF CALLED BY *STBM*.
43781  M01S01669.253l688 +++|*                     .GT. 0, IF CALLED BY *RTC*.
43782  M01S01670.253l688 +++|*                (A3) = MST ADDRESS (*TDGL*).
43783  M01S01671.253l688 +++|*                (A6) = MRT WORD.
43784  M01S01672.253l688 +++|*                (B3) = MRT FWA.
43785  M01S01673.253l688 +++|*
43786  M01S01674.253l688 +++|*         EXIT   (X6) = 0.
43787  M01S01675.253l688 +++|*                (X1) = FWA OF TRT TO UPDATE, IF *STBM* CALL.
43788  M01S01676.253l688 +++|*                (X5) = LWA + 1 OF TRT TO UPDATE, IF *STBM* CALL.

Seq #  *Modification Id* Act 
----------------------------+
43789  M01S02700.251l664 +++|*
43790  M01S02701.251l664 +++|*         USES   X - 1, 6.
43791  M01S02702.251l664 +++|*                A - 1, 6.
43792  M01S02703.251l664 +++|
43793  M01S02704.251l664 +++|

Seq #  *Modification Id* Act 
----------------------------+
43794  M02S02705.253l688 ---| SMB      BSS    0           ENTRY
43795  M02S02706.253l688 ---|          SA1    A3+MCLL-TDGL  UPDATE *MCLL*

Seq #  *Modification Id* Act 
----------------------------+
43796  M01S01677.253l688 +++| SMU      SA1    A3+MCLL-TDGL  UPDATE *MCLL*

Seq #  *Modification Id* Act 
----------------------------+
43797  M01S02707.251l664 +++|          SX6    B1
43798  M01S02708.251l664 +++|          LX6    35
43799  M01S02709.251l664 +++|          BX6    X1+X6

Seq #  *Modification Id* Act 
----------------------------+
43800  M02S02710.253l688 ---|          SA6    A1
43801  M02S02711.253l688 ---|          EQ     /PROGRAM/RTC13  RETURN TO REQUEST TRACKS
43802  M02S02712.253l688 ---| STB      SPACE  4,15
43803  M02S02713.253l688 ---|**        STB - FLAG MRT UPDATE TO *MTE*.
43804  M02S02714.253l688 ---|*
43805  M02S02715.253l688 ---|*         THIS ROUTINE IS CALLED WHEN *STBM* CHANGES AN MRT BIT.  IT
43806  M02S02716.253l688 ---|*         SETS THE MRT UPDATED FLAG IN *MCLL* WHICH CAUSES *MTE* TO
43807  M02S02717.253l688 ---|*         WRITE THE MRT TO EXTENDED MEMORY.
43808  M02S02718.253l688 ---|*
43809  M02S02719.253l688 ---|*         ENTRY  (A3) = MST ADDRESS (*TDGL*).
43810  M02S02720.253l688 ---|*
43811  M02S02721.253l688 ---|*         EXIT   (X1) = FIRST WORD OF TRT TO UPDATE.
43812  M02S02722.253l688 ---|*                (X5) = LWA + 1 OF TRT TO UPDATE.
43813  M02S02723.253l688 ---|*                TO *CCP1*.
43814  M02S02724.253l688 ---|*
43815  M02S02725.253l688 ---|*         USES   X - 1, 2, 5, 6.
43816  M02S02726.253l688 ---|*                A - 2, 6.
43817  M02S02727.253l688 ---|
43818  M02S02728.253l688 ---| STB      BSS    0           ENTRY
43819  M02S02729.253l688 ---|          SA2    A3+MCLL-TDGL  UPDATE *MCLL*
43820  M02S02730.253l688 ---|          SX6    B1

Seq #  *Modification Id* Act 
----------------------------+
43821  M01S01678.253l688 +++|          SA6    A1+
43822  M01S01679.253l688 +++|          BX6    X6-X6
43823  M01S01680.253l688 +++|          NG     X4,/PROGRAM/DTC5  IF CALLED BY *DTC*
43824  M01S01681.253l688 +++|          NZ     X4,/PROGRAM/RTC13  IF CALLED BY *RTC*

Seq #  *Modification Id* Act 
----------------------------+
43825  M01S02731.251l664 +++|          SX1    A4-B6       SET ONE WORD UPDATE FOR *CDI*
43826  M01S02732.251l664 +++|          SX5    X1+B1

Seq #  *Modification Id* Act 
----------------------------+
43827  M02S02733.253l688 ---|          LX6    35
43828  M02S02734.253l688 ---|          BX6    X2+X6
43829  M02S02735.253l688 ---|          SA6    A2
43830  M02S02736.253l688 ---|          EQ     /PROGRAM/CCP1  RETURN TO CLEAR DEVICE INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
43831  M01S01682.253l688 +++|          EQ     /PROGRAM/CCP1  CHECK FOR CHECKPOINT REQUESTED

Seq #  *Modification Id* Act 
----------------------------+
43832  M01S02737.251l664 +++|
43833  M01S02738.251l664 +++|          ENDBLK
43834  M00S26821.cpumtr  +++|          BLOCK  ISD,(INDEPENDENT SHARED DEVICE PROCESSING.)

Seq #  *Modification Id* Act 
----------------------------+
43835  M02S01683.ns2579  ---| VMS      SPACE  4,10
43836  M02S01684.ns2579  ---|**        VMS - *VMSM* EXTENSION FOR *ISHARED* DEVICES.
43837  M02S01685.ns2579  ---|*
43838  M02S01686.ns2579  ---|*         *VMS* DECIDES WHETHER *1RU* NEEDS TO BE CALLED FOR THIS
43839  M02S01687.ns2579  ---|*         SUBFUNCTION.
43840  M02S01688.ns2579  ---|
43841  M02S01689.ns2579  ---|
43842  M02S01690.ns2579  ---| VMS      SX3    X5          GET SUBFUNTION
43843  M02S01691.ns2579  ---|          AX3    12
43844  M02S01692.ns2579  ---|          NZ     X3,/MONITOR/PMR  IF *1RU* IS NOT REQUIRED
43845  M02S01693.ns2579  ---|          ERRNZ  VEIS        CODE ASSUMES VALUE
43846  M02S01694.ns2579  ---|*         EQ     CHR         CHECK FOR HELPER REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
43847  M02S01695.cpum212 ---| CHR      SPACE  4,30

Seq #  *Modification Id* Act 
----------------------------+
43848  M01S00001.cpum212 +++| CHR      SPACE  4,40

Seq #  *Modification Id* Act 
----------------------------+
43849  M01S01696.253l688 +++|**        CHR - CHECK FOR HELPER PP REQUIRED.
43850  M01S01697.253l688 +++|*
43851  M01S01698.253l688 +++|*         *CHR* WILL EXIT TO A FUNCTION PROCESSOR, REJECT THE FUNCTION,
43852  M01S01699.253l688 +++|*         QUEUE IT, OR ISSUE A *BOTM* FUNCTION TO INITIATE A HELPER,
43853  M01S01700.253l688 +++|*         DEPENDING ON THE DEVICE STATUS AND THE REQUEST.
43854  M01S01701.253l688 +++|*

Seq #  *Modification Id* Act 
----------------------------+
43855  M02S01702.cpum212 ---|*         IT WILL EXIT TO THE FUNCTION PROCESSOR WHEN THE DEVICE IS NOT
43856  M02S01703.cpum212 ---|*         ISHARED.
43857  M02S01704.cpum212 ---|*         IT WILL RETURN THE DEVICE INACCESSIBLE STATUS WHEN THE DEVICE
43858  M02S01705.cpum212 ---|*         IS INACCESSIBLE AND RETURN-ON-INACCESSIBLE IS REQUESTED.
43859  M02S01706.cpum212 ---|*         IT WILL EXIT TO THE PROCESSOR WHEN THE CENTRAL MEMORY COPY OF
43860  M02S01707.cpum212 ---|*         THE TABLES IS CURRENT.
43861  M02S01708.cpum212 ---|*         IT WILL QUEUE THE REQUEST WHEN A HELPER IS ALREADY ASSIGNED,
43862  M02S01709.cpum212 ---|*         AND THERE ARE FUNCTIONS PENDING.
43863  M02S01710.cpum212 ---|*         FINALLY, IT WILL REJECT THE FUNCTION WHEN A HELPER IS ALREADY
43864  M02S01711.cpum212 ---|*         ASSIGNED, AND THERE ARE NO FUNCTIONS PENDING.

Seq #  *Modification Id* Act 
----------------------------+
43865  M01S00002.cpum212 +++|*         - IF THE DEVICE IS NOT ISHARED OR THE CENTRAL MEMORY COPY OF
43866  M01S00003.cpum212 +++|*           THE TABLES ARE CURRENT, THE FUNCTION WILL BE PROCESSED.
43867  M01S00004.cpum212 +++|*
43868  M01S00005.cpum212 +++|*         - IF THE DEVICE IS NOT REMOVABLE, IS INACCESSIBLE, AND THE
43869  M01S00006.cpum212 +++|*           FUNCTION BEING PROCESSED IS *DTKM*, THE *DTKM* FUNCTION
43870  M01S00007.cpum212 +++|*           WILL BE QUEUED FOR LATER PROCESSING AND FUNCTION COMPLETE
43871  M01S00008.cpum212 +++|*           STATUS WILL BE RETURNED TO THE CALLER.
43872  M01S00009.cpum212 +++|*
43873  M01S00010.cpum212 +++|*         - IF THE DEVICE IS INACCESSIBLE, THE FUNCTION BEING PROCESSED
43874  M01S00011.cpum212 +++|*           CANNOT BE QUEUED FOR LATER PROCESSING (NOT *DTKM* OR *DTKM*
43875  M01S00012.cpum212 +++|*           ON A REMOVABLE DEVICE), AND RETURN ON INACCESSIBLE IS
43876  M01S00013.cpum212 +++|*           SELECTED, THE INACCESSIBLE STATUS WILL BE RETURNED TO THE
43877  M01S00014.cpum212 +++|*           CALLER.
43878  M01S00015.cpum212 +++|*
43879  M01S00016.cpum212 +++|*         - IF *1RU* IS ACTIVE AND OTHER FUNCTIONS ARE PENDING, THE
43880  M01S00017.cpum212 +++|*           REQUEST WILL BE QUEUED.
43881  M01S00018.cpum212 +++|*
43882  M01S00019.cpum212 +++|*         - IF *1RU* IS ACTIVE AND NO OTHER FUNCTIONS ARE PENDING, THE
43883  M01S00020.cpum212 +++|*           FUNCTION WILL BE REJECTED.

Seq #  *Modification Id* Act 
----------------------------+
43884  M01S01712.253l688 +++|*
43885  M01S01713.253l688 +++|*         ENTRY  (X5) = REQUEST.
43886  M01S01714.253l688 +++|*
43887  M01S01715.253l688 +++|*         EXIT   (X1) = UNPACKED REQUEST.
43888  M01S01716.253l688 +++|*

Seq #  *Modification Id* Act 
----------------------------+
43889  M02S01717.cpum212 ---|*         USES   X - 1, 2, 3, 4, 6, 7.
43890  M02S01718.cpum212 ---|*                A - 2, 3, 4, 6.
43891  M02S01719.cpum212 ---|*                B - 4, 5 (SEE NOTE).

Seq #  *Modification Id* Act 
----------------------------+
43892  M01S00021.cpum212 +++|*         USES   X - ALL.
43893  M01S00022.cpum212 +++|*                A - 1, 2, 3, 4, 5, 6.
43894  M01S00023.cpum212 +++|*                B - 3, 4, 5 (SEE NOTE).

Seq #  *Modification Id* Act 
----------------------------+
43895  M01S01720.253l688 +++|*
43896  M01S01721.253l688 +++|*         NOTE - *B5* IS ONLY USED WHEN A FUNCTION IS REJECTED.
43897  M01S01722.253l688 +++|*                OTHERWISE, IT MUST BE PRESERVED AS AN ENTRY CONDITION
43898  M01S01723.253l688 +++|*                FOR *CTR1*.
43899  M01S01724.253l688 +++|
43900  M01S01725.253l688 +++|
43901  M01S01726.253l688 +++| CHR      BSS    0           ENTRY
43902  M01S01727.253l688 +++|          SA3    CHRA        GET FUNCTION INDEX
43903  M01S01728.253l688 +++|          UX1,B4 X5          GET THE FUNCTION NUMBER
43904  M01S01729.253l688 +++|          MX6    -9
43905  M01S01730.253l688 +++|          LX1    -36         GET THE EST ORDINAL
43906  M01S01731.253l688 +++|          SB4    B4+1777B-CPUM
43907  M01S01732.253l688 +++|          BX6    -X6*X1
43908  M01S01733.253l688 +++|          AX3    B4
43909  M01S01734.253l688 +++|          CX7    X6,EST      CONVERT EST ORDINAL TO OFFSET
43910  M01S01735.253l688 +++|          TX6    X6,-ESTL
43911  M01S01736.253l688 +++|          TA4    X7+EQDE,EST
43912  M01S01737.253l688 +++|          CX3    X3
43913  M01S01738.253l688 +++|          MX7    -12

Seq #  *Modification Id* Act 
----------------------------+
43914  M02S01739.cpum212 ---|          SB4    X3

Seq #  *Modification Id* Act 
----------------------------+
43915  M01S00024.cpum212 +++|          SB4    X3+

Seq #  *Modification Id* Act 
----------------------------+
43916  M01S01740.253l688 +++|          SA3    A3-B4       GET FUNCTION PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
43917  M01S00025.cpum212 +++|          SX0    1
43918  M01S00026.cpum212 +++|          LX0    56-0
43919  M01S00027.cpum212 +++|          BX0    X0*X4       REMOVABLE DEVICE FLAG
43920  M01S00028.cpum212 +++|          LX0    58-56
43921  M01S00029.cpum212 +++|          BX3    -X0*X3      CLEAR *DTKM* FLAG IF REMOVABLE DEVICE

Seq #  *Modification Id* Act 
----------------------------+
43922  M01S01741.253l688 +++|          BX7    -X7*X4      GET THE MST ADDRESS
43923  M01S01742.253l688 +++|          BX6    X6*X4
43924  M01S01743.253l688 +++|          LX4    59-52
43925  M01S01744.253l688 +++|          LX7    3
43926  M01S01745.253l688 +++|          NG     X4,CHR2     IF *ISHARED* DEVICE
43927  M01S01746.253l688 +++| CHR1     SB4    X3          GET FUNCTION PROCESSOR ADDRESS
43928  M01S01747.253l688 +++|          UX1    X5          RESTORE PARAMETERS
43929  M01S01748.253l688 +++|          JP     B4          PROCESS THE REQUEST

Seq #  *Modification Id* Act 
----------------------------+
43930  M01S00001.ns2576  +++|

Seq #  *Modification Id* Act 
----------------------------+
43931  M01S01749.253l688 +++| CHR2     PL     X6,CHR13    IF NOT MASS STORAGE OR OUT OF EST
43932  M01S01750.253l688 +++|          SA2    X7+STLL     GET PROHIBIT TRT UPDATE BIT
43933  M01S01751.253l688 +++|          SA4    X7+SDGL     GET TABLES-CURRENT BIT

Seq #  *Modification Id* Act 
----------------------------+
43934  M02S01752.ns2576  ---|          LX2    59-52

Seq #  *Modification Id* Act 
----------------------------+
43935  M01S00002.ns2576  +++|          LX2    59-LPTU

Seq #  *Modification Id* Act 
----------------------------+
43936  M01S01753.253l688 +++|          BX6    X3*X2       *1RU* HELPER .AND. PROHIBIT TRT UPDATE
43937  M01S01754.253l688 +++|          SA2    X7+DALL     GET SUSPECT BIT
43938  M01S01755.253l688 +++|          NG     X6,CHR1     IF *1RU* NOT NEEDED
43939  M01S01756.253l688 +++|          LX2    59-55
43940  M01S01757.253l688 +++|          LX1    59-45+36
43941  M01S01758.253l688 +++|          NG     X2,CHR10    IF DEVICE IS SUSPECT
43942  M01S01759.253l688 +++|
43943  M01S01760.253l688 +++|*         INITIATE PP HELPER PROGRAM.
43944  M01S01761.253l688 +++|
43945  M01S01762.253l688 +++| CHR3     AX3    30          POSITION *BOTM* PARAMETERS
43946  M01S01763.253l688 +++|          SX1    B1
43947  M01S01764.253l688 +++|          SA2    A2+MCLL-DALL
43948  M01S01765.253l688 +++|          PL     X3,CHR8     IF HELPER IS NOT *1RU*
43949  M01S01766.253l688 +++|          TX7    A5-1+10B,-FP  GET PP BIT
43950  M01S01767.253l688 +++|          SX6    A2
43951  M01S01768.253l688 +++|          AX7    3
43952  M01S01769.253l688 +++|          SA6    CHRB
43953  M01S01770.253l688 +++|          SA3    A3          RESTORE PROCESSOR ADDRESS
43954  M01S01771.253l688 +++|          SB4    X7
43955  M01S01772.253l688 +++|          MX7    12+1        GET OR ADDRESS AND LONG-TERM INTERLOCK
43956  M01S01773.253l688 +++|          LX1    B4
43957  M01S01774.253l688 +++|          BX7    X7*X2
43958  M01S01775.253l688 +++|          BX6    X2+X1       SET REQUEST-IN-PROGRESS
43959  M01S01776.253l688 +++|          LX1    21
43960  M01S01777.253l688 +++|          BX6    -X1*X6      CLEAR SET-REISSUE
43961  M01S01778.253l688 +++|          NZ     X7,CHR9     IF *1RU* ACTIVE OR *SDIS* IN EFFECT
43962  M01S01779.253l688 +++|          SX2    B1          SET LATENCY ACTIVITY BIT
43963  M01S01780.253l688 +++|          AX5    36          GET EST ORDINAL
43964  M01S01781.253l688 +++|          BX6    X6+X2
43965  M01S01782.253l688 +++|          SX2    3R1RU       BUILD *1RU* CALL
43966  M01S01783.253l688 +++|          SA6    A2
43967  M01S01784.253l688 +++|          MX6    -9
43968  M01S01785.253l688 +++|          SB3    CHR4        *APQ* RETURN ADDRESS
43969  M01S01786.253l688 +++|          BX6    -X6*X5
43970  M01S01787.253l688 +++|          LX2    -18
43971  M01S01788.253l688 +++|          SB4    -B1         RETURN IF UNASSIGNABLE
43972  M01S01789.253l688 +++|          TB7    0,SCA
43973  M01S01790.253l688 +++|          BX6    X2+X6
43974  M01S01791.253l688 +++|          EQ     /MONITOR/APQ  ATTEMPT TO ASSIGN *1RU*
43975  M01S01792.253l688 +++|
43976  M01S01793.253l688 +++| CHR4     SA2    CHRB        GET *MCLL* ADDRESS
43977  M01S01794.253l688 +++|          SX3    /MONITOR/LA1RU*100B+/MONITOR/LA1BP  SET *BOTM* PARAMS
43978  M01S01795.253l688 +++|          SA2    X2
43979  M01S01796.253l688 +++|          ZR     X1,CHR6     IF NOT ASSIGNED
43980  M01S01797.253l688 +++|          SX1    X1+B1       GET *1RU-S* OUTPUT REGISTER ADDRESS
43981  M01S01798.253l688 +++|          TX7    A5-1+22*10B,-FP  GET CALLER-S BIT
43982  M01S01799.253l688 +++|          LX1    48
43983  M01S01800.253l688 +++|          AX7    3
43984  M01S01801.253l688 +++|          BX6    X2+X1
43985  M01S01802.253l688 +++|          SX1    B1
43986  M01S01803.253l688 +++|          SB4    X7
43987  M01S01804.253l688 +++|          LX1    B4
43988  M01S01805.253l688 +++| CHR5     SA5    A5          SET STORAGE MOVABLE BIT
43989  M01S01806.253l688 +++|          MX7    1
43990  M01S01807.253l688 +++|          BX6    X6+X1       SET SET-REISSUE
43991  M01S01808.253l688 +++|          LX7    56-59
43992  M01S01809.253l688 +++|          SA6    A2
43993  M01S01810.253l688 +++|          BX7    X5+X7
43994  M01S01811.253l688 +++|          JP     PPR1        LEAVE REQUEST PENDING
43995  M01S01812.253l688 +++|
43996  M01S01813.253l688 +++| CHR6     SX7    A5          SET PP OUTPUT REGISTER ADDRESS
43997  M01S01814.253l688 +++|          SB5    CHR7        *IBF* REJECT RETURN ADDRESS
43998  M01S01815.253l688 +++|          LX7    48
43999  M01S01816.253l688 +++|          BX6    X2+X7
44000  M01S01817.253l688 +++|          SA6    A2
44001  M01S01818.253l688 +++|          JP     /MONITOR/IBF  ISSUE *BOTM* FUNCTION
44002  M01S01819.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
44003  M02S01820.cpum217 ---| CHR7     MX2    22+12       CLEAR OUTPUT REGISTER ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
44004  M01S00047.cpum217 +++| CHR7     SA1    CHRB        GET *MCLL* ADDRESS
44005  M01S00048.cpum217 +++|          SA1    X1          GET *MCLL*
44006  M01S00049.cpum217 +++|          MX2    22+12

Seq #  *Modification Id* Act 
----------------------------+
44007  M01S01821.253l688 +++|          LX2    22          CLEAR REQUESTS-IN-PROGRESS/LATENCY BITS

Seq #  *Modification Id* Act 
----------------------------+
44008  M02S01822.cpum217 ---|          BX6    -X2*X6
44009  M02S01823.cpum217 ---|          SA6    A6

Seq #  *Modification Id* Act 
----------------------------+
44010  M01S00050.cpum217 +++|          BX6    -X2*X1
44011  M01S00051.cpum217 +++|          SA6    A1+

Seq #  *Modification Id* Act 
----------------------------+
44012  M01S01824.253l688 +++|          EQ     PPRX        EXIT
44013  M01S01825.253l688 +++|
44014  M01S01826.253l688 +++| CHR8     SB5    PPRX        SET *IBF* REJECT RETURN ADDRESS
44015  M01S01827.253l688 +++|          EQ     /MONITOR/IBF  ISSUE *BOTM* FUNCTION
44016  M01S01828.253l688 +++|
44017  M01S01829.253l688 +++| CHR9     SA4    A2+SDGL-MCLL  GET TABLES-CURRENT BIT
44018  M01S01830.253l688 +++|          MX7    -42         GET ACTIVITY BITS
44019  M01S01831.253l688 +++|          BX7    -X7*X2
44020  M01S01832.253l688 +++|          ZR     X7,CHR12    IF TABLES ARE BEING REWRITTEN
44021  M01S01833.253l688 +++|          LX4    59-58
44022  M01S01834.253l688 +++|          SA6    A2          SET REQUEST IN PROGRESS BIT
44023  M01S01835.253l688 +++|          PL     X4,CHR5     IF TABLES ARE NOT CURRENT
44024  M01S01836.253l688 +++|          EQ     CHR1        PROCESS REQUEST
44025  M01S01837.253l688 +++|
44026  M01S01838.253l688 +++|*         CHECK CALLER FOR ACCESSIBILITY TO SUSPECT DEVICE.
44027  M01S01839.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
44028  M02S01840.273l780 ---| CHR10    SA4    A5-B1       GET CONTROL POINT

Seq #  *Modification Id* Act 
----------------------------+
44029  M01S00880.273l780 +++| CHR10    TX4    A5-1,-FP
44030  M01S00881.273l780 +++|          LX4    PPXES-PPCES

Seq #  *Modification Id* Act 
----------------------------+
44031  M01S01841.253l688 +++|          LX7    X3,B1       POSITION *DTKM* BIT

Seq #  *Modification Id* Act 
----------------------------+
44032  M02S01842.273l780 ---|          SX6    7600B
44033  M02S01843.273l780 ---|          AX4    36-7
44034  M02S01844.273l780 ---|          BX4    X4*X6       CONTROL POINT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
44035  M01S00882.273l780 +++|          TA4    X4+ACPP,FPX

Seq #  *Modification Id* Act 
----------------------------+
44036  M01S01845.253l688 +++|          MX6    -36

Seq #  *Modification Id* Act 
----------------------------+
44037  M02S01846.273l780 ---|          SB7    X4

Seq #  *Modification Id* Act 
----------------------------+
44038  M01S00883.273l780 +++|          SB7    X4          CP ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
44039  M01S01847.253l688 +++|          NG     X7,QDT      IF *DTKM* FUNCTION
44040  M01S01848.253l688 +++|          SA4    B7+JCIW     GET SUBSYSTEM ID
44041  M01S01849.253l688 +++|          BX6    -X6*X4
44042  M01S01850.253l688 +++|          SA4    B7+SEPW     GET *UTL=* BIT
44043  M01S01851.253l688 +++|          SX2    X2+B1       CHECK FOR *DOWN* STATE
44044  M01S01852.253l688 +++|          AX6    24
44045  M01S01853.253l688 +++|          LX2    59-2
44046  M01S01854.253l688 +++|          SX6    X6-LSSI-1
44047  M01S01855.253l688 +++|          LX4    59-56
44048  M01S01856.253l688 +++|          BX7    -X6+X4
44049  M01S01857.253l688 +++|          SA4    A2+SDGL-DALL
44050  M01S01858.253l688 +++|          NG     X2,CHR11    IF DEVICE IS DOWN
44051  M01S01859.253l688 +++|          NG     X7,CHR3     IF SUBSYSTEM OR *UTL=* ENTRY POINT IS SET
44052  M01S01860.253l688 +++| CHR11    NG     X1,CHR14    IF RETURN-ON-INACCESSIBLE REQUESTED
44053  M01S01861.253l688 +++|          SB5    CHR12
44054  M01S01862.253l688 +++|          SX6    B1          PRESERVE PROGRAM/MONITOR MODE INTERLOCK
44055  M01S01863.253l688 +++|          BX7    X5          RESTORE REQUEST
44056  M01S01864.253l688 +++|          EQ     /ISD/CDI    CLEAR *MCLL* BITS AND RETURN
44057  M01S01865.253l688 +++|
44058  M01S01866.253l688 +++| CHR12    SB5    PPRX        SET *REJ* RETURN ADDRESS
44059  M01S01867.253l688 +++|          EQ     /PROGRAM/REJ  REJECT REQUEST
44060  M01S01868.253l688 +++|
44061  M01S01869.253l688 +++| CHR13    SB5    PPRX        SET *HNG* RETURN ADDRESS
44062  M01S01870.253l688 +++|          EQ     HNG1        HANG PP
44063  M01S01871.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
44064  M02S01872.cpum212 ---| CHR14    SA3    A5-B1       GET CONTROL POINT NUMBER
44065  M02S01873.cpum212 ---|          SA1    CMCL        CHECK FOR MOVE IN PROGRESS

Seq #  *Modification Id* Act 
----------------------------+
44066  M02S00030.273l780 ---| CHR14    SA1    CMCL        CHECK FOR MOVE IN PROGRESS
44067  M02S00031.273l780 ---|          SX3    B7

Seq #  *Modification Id* Act 
----------------------------+
44068  M02S01874.273l780 ---|          MX0    12
44069  M02S01875.273l780 ---|          SA2    B7+TFSW     GET EJT ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
44070  M03S01876.273l780 ---|          LX3    12+7

Seq #  *Modification Id* Act 
----------------------------+
44071  M03S00032.273l780 ---|          LX3    48

Seq #  *Modification Id* Act 
----------------------------+
44072  M02S02074.273l780 ---|          LX3    48-7

Seq #  *Modification Id* Act 
----------------------------+
44073  M02S01877.273l780 ---|          BX1    X3-X1
44074  M02S01878.273l780 ---|          BX1    X0*X1
44075  M02S01879.273l780 ---|          MX7    1
44076  M02S01880.273l780 ---|          ZR     X1,CHR12    IF CONTROL POINT IS BEING MOVED
44077  M02S01881.273l780 ---|          BX2    X0*X2
44078  M02S01882.273l780 ---|          NO
44079  M02S01883.273l780 ---|          LX2    12
44080  M02S01884.273l780 ---|          BX6    X7*X6       SUBSYSTEM STATUS
44081  M02S01885.273l780 ---|          CX1    X2,EJT      CONVERT EJT ORDINAL TO OFFSET
44082  M02S01886.273l780 ---|          TA1    X1+SCHE,EJT GET JOB TERMINATION CODE
44083  M02S01887.273l780 ---|          SX3    /MONITOR/LA3RX  BUILD *IBF* PARAMETER WORD
44084  M02S01888.273l780 ---|          LX6    11+24-59
44085  M02S01889.273l780 ---|          SX2    MSD
44086  M02S01890.273l780 ---|          BX3    X3+X6
44087  M02S01891.273l780 ---|          LX1    59-34
44088  M02S01892.273l780 ---|          ERRNZ  UCTM-2      CODE ASSUMES VALUE

Proceed to Part 34