Deck MAGNET Part 012

50 Modifications

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

Seq #  *Modification Id* Act 
----------------------------+
08195  M02S02495.282l826 ---|          SX5    B0

Seq #  *Modification Id* Act 
----------------------------+
08196  M02S02496.282l826 ---|          BX4    X2+X4

Seq #  *Modification Id* Act 
----------------------------+
08197  M02S02497.282l826 ---|          TA2    -1,UQUE

Seq #  *Modification Id* Act 
----------------------------+
08198  M02S02498.282l826 ---| GER1     SA2    A2+1

Seq #  *Modification Id* Act 
----------------------------+
08199  M02S02499.282l826 ---|          NG     X2,GER2     IF END OF QUEUE

Seq #  *Modification Id* Act 
----------------------------+
08200  M02S02500.282l826 ---|          BX6    X2-X1

Seq #  *Modification Id* Act 
----------------------------+
08201  M02S02501.282l826 ---|          BX6    X4*X6

Seq #  *Modification Id* Act 
----------------------------+
08202  M02S02502.282l826 ---|          NZ     X6,GER1     IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
08203  M02S02503.282l826 ---|          NZ     X5,GER3     IF PREVIOUS ENTRY LOCATED

Seq #  *Modification Id* Act 
----------------------------+
08204  M02S02504.282l826 ---|          SX5    A2+

Seq #  *Modification Id* Act 
----------------------------+
08205  M02S02505.282l826 ---|          EQ     GER1        CONTINUE SEARCH OF QUEUE
08206  M01S02506.magnet  +++| GNS      SPACE  4,15
08207  M01S02507.magnet  +++|**        GNS - GET NEXT STRING ITEM.
08208  M01S02508.magnet  +++|*         ALL ITEMS WITH BIT 11 SET (PARAMETERS) ARE SKIPPED OVER.
08209  M01S02509.magnet  +++|*
08210  M01S02510.magnet  +++|*         ENTRY  (X4) = REQUEST POINTER.
08211  M01S02511.magnet  +++|*                (A4) = A0+UREQ.
08212  M01S02512.magnet  +++|*

Seq #  *Modification Id* Act 
----------------------------+
08213  M02S02513.282l826 ---|*         EXIT   (X4) = UNDATED.
08214  M01S01775.282l826 +++|*         EXIT   (X4) = UPDATED.
08215  M01S02514.magnet  +++|*                (X7) = PROCESSOR OR 0, IF NONE.
08216  M01S02515.magnet  +++|*                (A0+UREQ) = (X6) = UPDATED REQUEST POINTER.
08217  M01S02516.magnet  +++|*

Seq #  *Modification Id* Act 
----------------------------+
08218  M02S02517.282l826 ---|*         USES   A - 1, 6.
08219  M01S01776.282l826 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
08220  M01S01777.282l826 +++|*                A - 1, 6, 7.
08221  M01S02518.magnet  +++|*                B - 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
08222  M02S02519.282l826 ---|*                X - 1, 2, 3, 6, 7.
08223  M01S02520.magnet  +++|
08224  M01S02521.magnet  +++|
08225  M01S02522.magnet  +++| GNS3     BX4    X4-X4
08226  M01S02523.magnet  +++|          SA7    A4          CLEAR REQUEST WORD
08227  M01S02524.magnet  +++|
08228  M01S02525.magnet  +++| GNS      SUBR               ENTRY/EXIT
08229  M01S02526.magnet  +++| GNS1     MX3    -12         EXTRACT ADDRESS
08230  M01S02527.magnet  +++|          LX4    -36
08231  M01S02528.magnet  +++|          BX7    -X3*X4
08232  M01S02529.magnet  +++|          LX4    -12         EXTRACT BYTE POINTER
08233  M01S02530.magnet  +++|          BX6    -X3*X4
08234  M01S02531.magnet  +++|          SA1    X7          READ PROCESSOR TABLE
08235  M01S02532.magnet  +++|          SB6    X6
08236  M01S02533.magnet  +++|          LX2    X1,B6       EXTRACT NEXT OPERATION
08237  M01S02534.magnet  +++|          BX7    -X3*X2
08238  M01S02535.magnet  +++|          LX2    59-11
08239  M01S02536.magnet  +++|          ZR     X7,GNS3     IF END OF STRING
08240  M01S02537.magnet  +++|          SB5    B6-60       ADVANCE STRING POINTER
08241  M01S02538.magnet  +++|          NZ     B5,GNS2     IF NOT AT END OF WORD
08242  M01S02539.magnet  +++|          SX6    B1          ADVANCE WORD
08243  M01S02540.magnet  +++|          BX4    X3*X4       CLEAR BYTE INDEX
08244  M01S02541.magnet  +++|          LX6    48
08245  M01S02542.magnet  +++|          IX4    X4+X6
08246  M01S02543.magnet  +++| GNS2     SX3    12
08247  M01S02544.magnet  +++|          IX4    X4+X3
08248  M01S02545.magnet  +++|          LX4    48
08249  M01S02546.magnet  +++|          NG     X2,GNS1     IF PARAMETER SKIP IT
08250  M01S02547.magnet  +++|          BX6    X4
08251  M01S02548.magnet  +++|          SA6    A4
08252  M01S02549.magnet  +++|          EQ     GNSX        RETURN
08253  M01S02550.magnet  +++| GPI      SPACE  4,15
08254  M01S02551.magnet  +++|**        GPI - GET PARAMETER ITEM IF NEXT IN STRING.
08255  M01S01778.282l826 +++|*
08256  M01S02552.magnet  +++|*         ONLY AN ITEM WITH BIT 11 SET (PARAMETERS) IS RETURNED.
08257  M01S02553.magnet  +++|*
08258  M01S02554.magnet  +++|*         ENTRY  (X4) = REQUEST POINTER.
08259  M01S02555.magnet  +++|*                (A4) = A0+UREQ.
08260  M01S02556.magnet  +++|*
08261  M01S02557.magnet  +++|*         EXIT   (X2) = 0, IF NO PARAMETER RETURNED.

Seq #  *Modification Id* Act 
----------------------------+
08262  M02S02558.274l797 ---|*                (X4) = UNDATED IF PARAMETER FOUND.
08263  M01S01985.274l797 +++|*                (X4) = UPDATED IF PARAMETER FOUND.
08264  M01S02559.magnet  +++|*                (X7) = PROCESSOR OR 0, IF NONE.
08265  M01S02560.magnet  +++|*                (A0+UREQ) = (X6) = UPDATED REQUEST POINTER.
08266  M01S02561.magnet  +++|*

Seq #  *Modification Id* Act 
----------------------------+
08267  M02S02562.282l826 ---|*         USES   A - 1, 6.
08268  M01S01779.282l826 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
08269  M01S01780.282l826 +++|*                A - 1, 6.
08270  M01S02563.magnet  +++|*                B - 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
08271  M02S02564.282l826 ---|*                X - 1, 2, 3, 6, 7.
08272  M01S02565.magnet  +++|
08273  M01S02566.magnet  +++|
08274  M01S02567.magnet  +++| GPI2     SX7    B0+
08275  M01S02568.magnet  +++|          BX2    X2-X2
08276  M01S02569.magnet  +++|          LX4    48
08277  M01S02570.magnet  +++|
08278  M01S02571.magnet  +++| GPI      SUBR               ENTRY/EXIT
08279  M01S02572.magnet  +++|          MX3    -12         EXTRACT ADDRESS
08280  M01S02573.magnet  +++|          LX4    -36
08281  M01S02574.magnet  +++|          BX7    -X3*X4
08282  M01S02575.magnet  +++|          LX4    -12         EXTRACT BYTE POINTER
08283  M01S02576.magnet  +++|          BX6    -X3*X4
08284  M01S02577.magnet  +++|          SA1    X7          READ PROCESSOR TABLE
08285  M01S02578.magnet  +++|          SB6    X6
08286  M01S02579.magnet  +++|          LX2    X1,B6       EXTRACT NEXT OPERATION
08287  M01S02580.magnet  +++|          BX7    -X3*X2
08288  M01S02581.magnet  +++|          LX2    59-11
08289  M01S02582.magnet  +++|          PL     X2,GPI2     IF NOT PARAMETER
08290  M01S02583.magnet  +++|          SB5    B6-60       ADVANCE STRING POINTER
08291  M01S02584.magnet  +++|          NZ     B5,GPI1     IF NOT AT END OF WORD
08292  M01S02585.magnet  +++|          SX2    B1          ADVANCE WORD
08293  M01S02586.magnet  +++|          BX4    X3*X4       CLEAR BYTE INDEX
08294  M01S02587.magnet  +++|          LX2    48
08295  M01S02588.magnet  +++|          IX4    X4+X2
08296  M01S02589.magnet  +++| GPI1     SX3    12          ADVANCE BYTE INDEX
08297  M01S02590.magnet  +++|          IX6    X4+X3
08298  M01S02591.magnet  +++|          SX2    B1
08299  M01S02592.magnet  +++|          LX6    48
08300  M01S02593.magnet  +++|          BX4    X6
08301  M01S02594.magnet  +++|          SA6    A4
08302  M01S02595.magnet  +++|          LX2    11
08303  M01S02596.magnet  +++|          BX7    -X2*X7
08304  M01S02597.magnet  +++|          EQ     GPIX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
08305  M02S02598.282l826 ---| GNR      SPACE  4,15
08306  M01S01781.282l826 +++| GNR      SPACE  4,10
08307  M01S02599.magnet  +++|**        GNR - GET NEXT REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
08308  M02S02600.282l826 ---|*         IF REQUEST PRESENT IN UDT, IT IS RETURNED.  OTHERWISE IT

Seq #  *Modification Id* Act 
----------------------------+
08309  M02S02601.282l826 ---|*         SEARCHES UNIT REQUEST QUEUE FOR NEXT REQUEST FOR UNIT.
08310  M01S02602.magnet  +++|*
08311  M01S02603.magnet  +++|*         EXIT   (X4) = 0, OR REQUEST IF ONE FOUND.

Seq #  *Modification Id* Act 
----------------------------+
08312  M02S02604.282l826 ---|*                STACKED REQUEST FLAG IS CLEARED IF NO STACKED REQUESTS.

Seq #  *Modification Id* Act 
----------------------------+
08313  M02S02605.282l826 ---|*                ALSO STORES REQUEST AT (A0+UREQ) IF EXTRACTED FROM

Seq #  *Modification Id* Act 
----------------------------+
08314  M02S02606.282l826 ---|*                UNIT REQUEST QUEUE.
08315  M01S02607.magnet  +++|*                (A4) = A0+UREQ.
08316  M01S01782.282l826 +++|*                STACKED REQUEST FLAG CLEARED IF NO STACKED REQUESTS.
08317  M01S01783.282l826 +++|*                REQUEST STORED AT (A0+UREQ) IF EXTRACTED FROM UNIT
08318  M01S01784.282l826 +++|*                  REQUEST QUEUE.
08319  M01S02608.magnet  +++|*

Seq #  *Modification Id* Act 
----------------------------+
08320  M02S02609.282l826 ---|*         USES   A - 1, 3, 4, 6.

Seq #  *Modification Id* Act 
----------------------------+
08321  M02S02610.282l826 ---|*                X - 1, 2, 3, 4, 6.
08322  M01S01785.282l826 +++|*         USES   X - 1, 2, 3, 4, 6.
08323  M01S01786.282l826 +++|*                A - 1, 3, 4, 6.
08324  M01S02611.magnet  +++|
08325  M01S02612.magnet  +++|
08326  M01S02613.magnet  +++| GNR2     MX2    -59         CLEAR STACKED REQUEST FLAG
08327  M01S02614.magnet  +++|          BX6    -X2*X3
08328  M01S02615.magnet  +++|          SX4    B0
08329  M01S02616.magnet  +++|          SA6    A3
08330  M01S02617.magnet  +++|
08331  M01S02618.magnet  +++| GNR      SUBR               ENTRY/EXIT
08332  M01S02619.magnet  +++|          SA4    A0+UREQ
08333  M01S02620.magnet  +++|          NZ     X4,GNRX     IF REQUEST FOUND
08334  M01S02621.magnet  +++|          SA3    A0+UFLA
08335  M01S02622.magnet  +++|          PL     X3,GNRX     IF NOT STACKED REQUESTS
08336  M01S02623.magnet  +++|          TA1    -1,UQUE     UNIT REQUEST BUFFER
08337  M01S02624.magnet  +++|          SX2    B2
08338  M01S02625.magnet  +++|          LX2    54

Seq #  *Modification Id* Act 
----------------------------+
08339  M02S02626.282l826 ---| GNR1     SA1    A1+B1       READ NEXT ENTRY
08340  M01S01787.282l826 +++| GNR1     SA1    A1+1        READ NEXT ENTRY
08341  M01S01788.282l826 +++|          NG     X1,GNR2     IF END OF TABLE
08342  M01S02627.magnet  +++|          BX6    X1-X2

Seq #  *Modification Id* Act 
----------------------------+
08343  M02S02628.282l826 ---|          NG     X1,GNR2     IF END OF TABLE
08344  M01S01789.282l826 +++|          ZR     X1,GNR1     IF EMPTY ENTRY
08345  M01S02629.magnet  +++|          AX6    54
08346  M01S02630.magnet  +++|          NZ     X6,GNR1     IF NOT THIS UNIT
08347  M01S02631.magnet  +++|          SA6    A1          CLEAR REQUEST
08348  M01S02632.magnet  +++|          BX6    X1-X2

Seq #  *Modification Id* Act 
----------------------------+
08349  M02S02633.282l826 ---|          SA6    A4+         STORE REQUEST
08350  M01S01790.282l826 +++|          SA6    A4          STORE REQUEST
08351  M01S02634.magnet  +++|          BX4    X1-X2
08352  M01S02635.magnet  +++|          EQ     GNRX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
08353  M02S01986.282l826 ---| IAR      SPACE  4,10
08354  M01S01791.282l826 +++| HGU      SPACE  4,10
08355  M01S01792.282l826 +++|**        HGU - HANG UNIT ON SYSTEM ERROR.
08356  M01S01793.282l826 +++|*
08357  M01S01794.282l826 +++|*         USES   X - 7.
08358  M01S01795.282l826 +++|
08359  M01S01796.282l826 +++|
08360  M01S01797.282l826 +++| HGU      BSS    0           ENTRY
08361  M01S01798.282l826 +++|          SX7    PHNG        HANG UNIT
08362  M01S01799.282l826 +++|          EQ     EXI4        MAKE REQUEST
08363  M01S01800.282l826 +++| IAR      SPACE  4,15
08364  M01S01987.274l797 +++|**        IAR - INITIATE ATF REQUEST.
08365  M01S01988.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08366  M02S01989.282l826 ---|*         ENTRY  (A3) = *AMST* ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08367  M02S01990.282l826 ---|*                (X3) = *AMST*.
08368  M01S01801.282l826 +++|*         ENTRY  (A3) = *UMST* ADDRESS.
08369  M01S01802.282l826 +++|*                (X3) = *UMST*.
08370  M01S01991.274l797 +++|*                (X6) = ATF REQUEST CODE.
08371  M01S01992.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08372  M02S01993.282l826 ---|*         EXIT   *ARQP* SET WITH REQUEST CODE AND SEQUENCE NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
08373  M02S01994.282l826 ---|*                *ARQP* TIME FIELD = 0.

Seq #  *Modification Id* Act 
----------------------------+
08374  M02S01995.282l826 ---|*                SEND REQUEST FLAG SET IN *AMST*.
08375  M01S01803.282l826 +++|*         EXIT   *UARP* SET WITH REQUEST CODE AND SEQUENCE NUMBER.
08376  M01S01804.282l826 +++|*                *UARP* TIME FIELD = 0.
08377  M01S01805.282l826 +++|*                SEND REQUEST FLAG SET IN *UMST*.
08378  M01S01996.274l797 +++|*                (ATFS) .NE. 0.
08379  M01S01997.274l797 +++|*
08380  M01S01998.274l797 +++|*         USES   X - 1, 2, 6, 7.
08381  M01S01999.274l797 +++|*                A - 1, 6, 7.
08382  M01S02000.274l797 +++|
08383  M01S02001.274l797 +++|
08384  M01S02002.274l797 +++| IAR      SUBR               ENTRY/EXIT
08385  M01S02003.274l797 +++|          SA1    IARA        GET NEXT REQUEST SEQUENCE NUMBER
08386  M01S02004.274l797 +++|          LX6    36
08387  M01S02005.274l797 +++|          MX7    -16
08388  M01S02006.274l797 +++|          SX2    X1+B1       ADVANCE SEQUENCE NUMBER
08389  M01S02007.274l797 +++|          BX7    -X7*X2
08390  M01S02008.274l797 +++|          SA7    A1          SET NEXT SEQUENCE NUMBER
08391  M01S02009.274l797 +++|          LX1    42
08392  M01S02010.274l797 +++|          SX7    B1
08393  M01S02011.274l797 +++|          BX6    X6+X1       SET REQUEST ID AND REQUEST CODE
08394  M01S02012.274l797 +++|          SA7    ATFS        SET ATF REQUEST FLAG

Seq #  *Modification Id* Act 
----------------------------+
08395  M02S02013.282l826 ---|          SA6    A3+ARQP-AMST  SET REQUEST PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
08396  M02S02014.282l826 ---|          LX7    6-0
08397  M01S01806.282l826 +++|          SA6    A3+UARP-UMST  SET REQUEST PARAMETERS
08398  M01S01807.282l826 +++|          LX7    3-0
08399  M01S02015.274l797 +++|          BX7    X3+X7       SET SEND REQUEST FLAG
08400  M01S02016.274l797 +++|          SA7    A3          UPDATE MOUNT STATUS
08401  M01S02017.274l797 +++|          EQ     IARX        RETURN
08402  M01S02018.274l797 +++|
08403  M01S02019.274l797 +++|
08404  M01S02020.274l797 +++| IARA     CON    0           ATF REQUEST SEQUENCE NUMBER
08405  M01S01808.282l826 +++| IXR      SPACE  4,15
08406  M01S01809.282l826 +++|**        IXR - ISSUE INCORRECT EXTERNAL REQUEST MESSAGE.
08407  M01S01810.282l826 +++|*
08408  M01S01811.282l826 +++|*         ENTRY  (X1) = REQUEST WORD IN ERROR.
08409  M01S01812.282l826 +++|*                (X2) = MESSAGE TERMINATION TEXT.
08410  M01S01813.282l826 +++|*
08411  M01S01814.282l826 +++|*         EXIT   ERROR MESSAGE ISSUED.
08412  M01S01815.282l826 +++|*
08413  M01S01816.282l826 +++|*         USES   X - 6, 7.
08414  M01S01817.282l826 +++|*                A - 6, 7.
08415  M01S01818.282l826 +++|*
08416  M01S01819.282l826 +++|*         CALLS  WOD.
08417  M01S01820.282l826 +++|*
08418  M01S01821.282l826 +++|*         MACROS MESSAGE.
08419  M01S01822.282l826 +++|
08420  M01S01823.282l826 +++|
08421  M01S01824.282l826 +++| IXR      SUBR               ENTRY/EXIT
08422  M01S01825.282l826 +++|          BX6    X2          TERMINATE MESSAGE
08423  M01S01826.282l826 +++|          SA6    IXRA+5
08424  M01S01827.282l826 +++|          RJ     WOD         CONVERT BAD REQUEST
08425  M01S01828.282l826 +++|          SA6    IXRA+3
08426  M01S01829.282l826 +++|          SA7    IXRA+4
08427  M01S01830.282l826 +++|          MESSAGE IXRA       ISSUE ERROR MESSAGE
08428  M01S01831.282l826 +++|          EQ     IXRX        RETURN
08429  M01S01832.282l826 +++|
08430  M01S01833.282l826 +++|
08431  M01S01834.282l826 +++| IXRA     DATA   30H INCORRECT EXTERNAL REQUEST -
08432  M01S01835.282l826 +++|          BSSZ   3
08433  M01S02021.274l797 +++| MAV      SPACE  4,15
08434  M01S02022.274l797 +++|**        MAV - MOUNT ACS VSN.
08435  M01S02023.274l797 +++|*
08436  M01S02024.274l797 +++|*         ENTRY  (X1) = VSN TO MOUNT LEFT JUSTIFIED.

Seq #  *Modification Id* Act 
----------------------------+
08437  M02S02025.282l826 ---|*                (B6) = AST ADDRESS OF UNIT FOR MOUNT.
08438  M01S01836.282l826 +++|*                (B6) = UDT ADDRESS OF UNIT FOR MOUNT.
08439  M01S02026.274l797 +++|*                UNIT DISMOUNTED.
08440  M01S02027.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08441  M02S02028.282l826 ---|*         EXIT   (B6) = AST ADDRESS OF UNIT FOR MOUNT.
08442  M01S01837.282l826 +++|*         EXIT   (B6) = UDT ADDRESS OF UNIT FOR MOUNT.
08443  M01S02029.274l797 +++|*                MOUNT INITIATED ON ACS UNIT.
08444  M01S02030.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
08445  M02S02031.282l826 ---|*         USES   X - 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
08446  M02S02032.282l826 ---|*                A - 3.
08447  M01S01838.282l826 +++|*         USES   X - 2, 3, 6, 7.
08448  M01S01839.282l826 +++|*                A - 3, 6.
08449  M01S02033.274l797 +++|*
08450  M01S02034.274l797 +++|*         CALLS  IAR.
08451  M01S02035.274l797 +++|
08452  M01S02036.274l797 +++|
08453  M01S02037.274l797 +++| MAV      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
08454  M02S02038.282l826 ---|          SA3    B6+AMST
08455  M01S01840.282l826 +++|          SA3    B6+UMST
08456  M01S02039.274l797 +++|          MX6    36
08457  M01S02040.274l797 +++|          BX6    X6*X1       VSN
08458  M01S02041.274l797 +++|          SX7    1
08459  M01S02042.274l797 +++|          BX6    X6+X7       VSN AND MOUNT IN PROGRESS STATUS

Seq #  *Modification Id* Act 
----------------------------+
08460  M02S02043.282l826 ---|          MX7    54
08461  M01S01841.282l826 +++|          MX7    57
08462  M01S02044.274l797 +++|          BX3    X7*X3       CLEAR ERROR AND STATUS FLAGS
08463  M01S02045.274l797 +++|          BX3    X3+X6       SET VSN AND MOUNT IN PROGRESS
08464  M01S02046.274l797 +++|          SX6    /ATF/MNT    SET MOUNT REQUEST
08465  M01S02047.274l797 +++|          RJ     IAR         INITIATE ATF REQUEST

Seq #  *Modification Id* Act 
----------------------------+
08466  M02S02048.282l826 ---|          SX6    B6+ASTE     ADVANCE NEXT UNIT POINTER

Seq #  *Modification Id* Act 
----------------------------+
08467  M02S02049.282l826 ---|          TX2    X6,-UAST,LWA

Seq #  *Modification Id* Act 
----------------------------+
08468  M02S02050.282l826 ---|          NG     X2,MAV1     IF NOT END OF AST

Seq #  *Modification Id* Act 
----------------------------+
08469  M02S02051.282l826 ---|          TX6    0,UAST      SET FIRST UNIT
08470  M01S01842.282l826 +++|          SX6    B6+UNITL    ADVANCE NEXT UNIT POINTER
08471  M01S01843.282l826 +++|          TX2    X6,-UBUF,LWA
08472  M01S01844.282l826 +++|          NG     X2,MAV1     IF NOT END OF UDT
08473  M01S01845.282l826 +++|          TX6    0,UBUF      SET FIRST UNIT
08474  M01S02052.274l797 +++| MAV1     SA6    NXAU        SET NEXT UNIT TO ASSIGN
08475  M01S02053.274l797 +++|          EQ     MAVX        RETURN
08476  M01S02636.magnet  +++| MQE      SPACE  4,15
08477  M01S02637.magnet  +++|**        MQE - MAKE QUEUED ENTRY.
08478  M01S02638.magnet  +++|*
08479  M01S02639.magnet  +++|*         ENTRY  (A0) = UDT ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08480  M02S02640.282l826 ---|*                (B2) = 0 IF EXTERNAL REQUEST TO BE QUEUED.

Seq #  *Modification Id* Act 
----------------------------+
08481  M02S02641.282l826 ---|*                (B2) = UDT NUMBER IF PROCESSOR STRING TO BE QUEUED.

Seq #  *Modification Id* Act 
----------------------------+
08482  M02S02642.282l826 ---|*                (X5) = EXTERNAL REQUEST.
08483  M01S01846.282l826 +++|*                (B2) = UDT ORDINAL.
08484  M01S02643.magnet  +++|*                (X5) = PROCESSOR STRING VALUE TO BE SAVED (BITS 0-29).

Seq #  *Modification Id* Act 
----------------------------+
08485  M02S02644.274l797 ---|*                (X7) = FWA PROCESSOR STRING.

Seq #  *Modification Id* Act 
----------------------------+
08486  M02S02054.282l826 ---|*                (X7) = FWA PROCESSOR STRING IF NOT EXTERNAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
08487  M02S02055.282l826 ---|*                         CALL.
08488  M01S01847.282l826 +++|*                (X7) = FWA PROCESSOR STRING.
08489  M01S02645.magnet  +++|*

Seq #  *Modification Id* Act 
----------------------------+
08490  M02S02646.253l688 ---|*         USES   A - 1, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
08491  M02S02647.253l688 ---|*                B - 7.

Seq #  *Modification Id* Act 
----------------------------+
08492  M02S02648.253l688 ---|*                X - 1, 2, 3, 4, 5, 6, 7.
08493  M01S00322.253l688 +++|*         USES   X - 1, 2, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
08494  M02S00323.274l797 ---|*                A - 1, 2, 4, 5, 6, 7.
08495  M01S02056.274l797 +++|*                A - 1, 2, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
08496  M02S00324.282l826 ---|*                B - 2, 3, 7.
08497  M01S01848.282l826 +++|*                B - 2, 7.
08498  M01S00325.253l688 +++|*
08499  M01S00326.253l688 +++|*         MACROS MEMORY.
08500  M01S02649.magnet  +++|
08501  M01S02650.magnet  +++|
08502  M01S02651.magnet  +++| MQE10    MX7    60          SET NEW END OF TABLE
08503  M01S02652.magnet  +++|          SA7    A2+B7
08504  M01S02653.magnet  +++|          EQ     MQE3        CHECK FL REQUIREMENTS
08505  M01S02654.magnet  +++|
08506  M01S02655.magnet  +++| MQE11    SA1    A0+UFLA     SET STACKED REQUEST FLAG
08507  M01S02656.magnet  +++|          SA6    A2+
08508  M01S02657.magnet  +++|          BX7    X3+X1
08509  M01S02658.magnet  +++|          SA7    A1
08510  M01S02659.magnet  +++|          NG     X2,MQE10    IF STORED AT END OF STACK
08511  M01S02660.magnet  +++|
08512  M01S02661.magnet  +++| MQE      SUBR               ENTRY/EXIT
08513  M01S02662.magnet  +++|          TA2    0,UQUE
08514  M01S02663.magnet  +++|          MX3    24
08515  M01S02664.magnet  +++|          LX7    36

Seq #  *Modification Id* Act 
----------------------------+
08516  M02S02665.282l826 ---|          ZR     B2,MQE4     IF TO QUEUE EXTERNAL REQUEST
08517  M01S02666.magnet  +++|          SX1    12          BUILD PROCESSOR STRING QUEUED ENTRY
08518  M01S02667.magnet  +++|          SA4    A0+UREQ
08519  M01S02668.magnet  +++|          BX5    -X3*X5
08520  M01S02669.magnet  +++|          LX1    48
08521  M01S02670.magnet  +++|          BX3    X7+X5
08522  M01S02671.magnet  +++|          IX6    X3+X1
08523  M01S02672.magnet  +++|          MX7    6
08524  M01S02673.magnet  +++|          SA6    A4
08525  M01S02674.magnet  +++|          ZR     X4,MQEX     IF NO QUEUED REQUESTS

Seq #  *Modification Id* Act 
----------------------------+
08526  M02S02675.282l826 ---|          SX5    B2          SET UNIT NUMBER IN ENTRY
08527  M01S01849.282l826 +++|          SX5    B2          SET UDT ORDINAL IN ENTRY
08528  M01S02676.magnet  +++|          LX5    54
08529  M01S02677.magnet  +++|          BX6    X4+X5
08530  M01S02678.magnet  +++|          MX3    1
08531  M01S02679.magnet  +++|          SB7    2
08532  M01S02680.magnet  +++| MQE1     BX4    X2-X5
08533  M01S02681.magnet  +++|          ZR     X2,MQE11    IF EMPTY SLOT OR END OF TABLE
08534  M01S02682.magnet  +++|          SA2    A2+B1
08535  M01S02683.magnet  +++|          BX4    X7*X4
08536  M01S02684.magnet  +++|          NZ     X4,MQE1     IF NOT ENTRY FOR THIS UNIT
08537  M01S02685.magnet  +++|          SA1    A2-B1       REREAD ENTRY HIT MADE ON
08538  M01S02686.magnet  +++|          SA6    A2-1        STORE NEW ENTRY
08539  M01S02687.magnet  +++|
08540  M01S02688.magnet  +++|*         MOVE TABLE DOWN.
08541  M01S02689.magnet  +++|
08542  M01S02690.magnet  +++| MQE2     BX6    X1
08543  M01S02691.magnet  +++|          LX7    X2
08544  M01S02692.magnet  +++|          SA1    A1+B7
08545  M01S02693.magnet  +++|          SA2    A2+B7
08546  M01S02694.magnet  +++|          SA6    A1-B1
08547  M01S02695.magnet  +++|          SA7    A2-B1
08548  M01S02696.magnet  +++|          PL     X7,MQE2     IF NOT END OF TABLE
08549  M01S02697.magnet  +++|          BX6    X1
08550  M01S02698.magnet  +++|          LX7    X2
08551  M01S02699.magnet  +++|          SA6    A6+B7
08552  M01S02700.magnet  +++|          SA7    A7+B7
08553  M01S02701.magnet  +++|
08554  M01S02702.magnet  +++|*         CHECK IF MORE STORAGE NEEDED.
08555  M01S02703.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
08556  M02S02704.253l688 ---| MQE3     SA1    FLST

Seq #  *Modification Id* Act 
----------------------------+
08557  M02S02705.253l688 ---|          SX7    A7+6        ROUND UP STORAGE NEEDED

Seq #  *Modification Id* Act 
----------------------------+
08558  M02S02706.253l688 ---|          AX1    30

Seq #  *Modification Id* Act 
----------------------------+
08559  M02S02707.253l688 ---|          IX3    X1-X7

Seq #  *Modification Id* Act 
----------------------------+
08560  M02S02708.253l688 ---|          PL     X3,MQEX     IF ENOUGH FL

Seq #  *Modification Id* Act 
----------------------------+
08561  M02S02709.253l688 ---|          MEMORY CM,A1,R,X7  REQUEST MEMORY
08562  M01S00327.253l688 +++| MQE3     SA1    TSRP        CHECK SPACE LEFT BETWEEN *UQUE* AND *TSRP*
08563  M01S00328.253l688 +++|          SX7    A7+6
08564  M01S00329.253l688 +++|          IX2    X7-X1
08565  M01S00330.253l688 +++|          NG     X2,MQEX     IF ENOUGH INTERTABLE SPACE
08566  M01S00331.253l688 +++|          SA4    A1-B1       LENGTH OF STAGE REQUEST TABLE
08567  M01S00332.253l688 +++|          IX3    X4+X1       LWA+1 OF STAGE REQUEST TABLE
08568  M01S00333.253l688 +++|          IX6    X2+X3       ADD IN NEEDED WORDS
08569  M01S00334.253l688 +++|          SA2    FLST        CHECK AVAILABLE FL
08570  M01S00335.253l688 +++|          SX7    X6+PFTBL*2+6
08571  M01S00336.253l688 +++|          AX2    30
08572  M01S00337.253l688 +++|          IX6    X2-X7
08573  M01S00338.253l688 +++|          PL     X6,MQE3.1   IF ENOUGH MEMORY FOR MOVE
08574  M01S00339.253l688 +++|          MEMORY CM,A2,R,X7+MEMI  REQUEST MEMORY
08575  M01S00340.253l688 +++|          EQ     MQE3        RECHECK FIELD LENGTH
08576  M01S00341.253l688 +++|
08577  M01S00342.253l688 +++|*         MOVE FIRST ENTRY OF *PFM* REQUEST TABLE TO END OF TABLE
08578  M01S00343.253l688 +++|*         TO ALLOW SPACE FOR ADDITIONS TO *UQUE* QUEUE.
08579  M01S00344.253l688 +++|
08580  M01S00345.253l688 +++| MQE3.1   ZR     X4,MQE3.2   IF NO WORDS IN TABLE
08581  M01S00346.253l688 +++|          SA4    X1          MOVE WORDS 0 AND 1
08582  M01S00347.253l688 +++|          SA2    A4+B1
08583  M01S00348.253l688 +++|          BX6    X4
08584  M01S00349.253l688 +++|          LX7    X2
08585  M01S00350.253l688 +++|          SA4    A2+B1       MOVE WORDS 2 AND 3
08586  M01S00351.253l688 +++|          SA2    A4+B1
08587  M01S00352.253l688 +++|          SA6    X3
08588  M01S00353.253l688 +++|          SA7    A6+B1
08589  M01S00354.253l688 +++|          BX6    X4
08590  M01S00355.253l688 +++|          LX7    X2
08591  M01S00356.253l688 +++|          SA4    A2+B1       MOVE WORDS 4 AND 5
08592  M01S00357.253l688 +++|          SA2    A4+B1
08593  M01S00358.253l688 +++|          SA6    A7+B1
08594  M01S00359.253l688 +++|          SA7    A6+B1
08595  M01S00360.253l688 +++|          BX6    X4
08596  M01S00361.253l688 +++|          LX7    X2
08597  M01S00362.253l688 +++|          SA4    A2+B1       MOVE WORDS 6 AND 7
08598  M01S00363.253l688 +++|          SA2    A4+B1
08599  M01S00364.253l688 +++|          SA6    A7+B1
08600  M01S00365.253l688 +++|          SA7    A6+B1
08601  M01S00366.253l688 +++|          BX6    X4
08602  M01S00367.253l688 +++|          LX7    X2
08603  M01S00368.253l688 +++|          SA6    A7+B1
08604  M01S00369.253l688 +++|          SA7    A6+B1
08605  M01S00370.253l688 +++|          ERRNZ  PFTBL-8     CODE ASSUMES 8 WORD ENTRY
08606  M01S00371.253l688 +++| MQE3.2   SA4    TSRM
08607  M01S00372.253l688 +++|          SX7    X1+PFTBL    SET NEW TABLE FWA
08608  M01S00373.253l688 +++|          SX6    X4+B1       INCREMENT MODIFICATION COUNT
08609  M01S00374.253l688 +++|          SA7    A4-B1
08610  M01S00375.253l688 +++|          SA6    A4
08611  M01S02710.magnet  +++|          EQ     MQEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
08612  M02S02711.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
08613  M02S02712.282l826 ---|*         ENTER EXTERNAL REQUEST IN QUEUE TO BE PROCESSED AS

Seq #  *Modification Id* Act 
----------------------------+
08614  M02S02713.282l826 ---|*         FIRST-IN-FIRST-OUT STACK.  SEARCH QUEUE TABLE FOR EXTERNAL

Seq #  *Modification Id* Act 
----------------------------+
08615  M02S02714.282l826 ---|*         REQUESTS ON SAME UDT.  ELIMINATE DUPLICATE EXTERNAL REQUEST.

Seq #  *Modification Id* Act 
----------------------------+
08616  M02S02715.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
08617  M02S02716.282l826 ---| MQE4     MX7    6

Seq #  *Modification Id* Act 
----------------------------+
08618  M02S02717.282l826 ---|          SB3    B0

Seq #  *Modification Id* Act 
----------------------------+
08619  M02S02718.282l826 ---|          LX7    -6

Seq #  *Modification Id* Act 
----------------------------+
08620  M02S02719.282l826 ---|          BX7    X3-X7

Seq #  *Modification Id* Act 
----------------------------+
08621  M02S02720.282l826 ---| MQE5     BX6    X2

Seq #  *Modification Id* Act 
----------------------------+
08622  M02S02721.282l826 ---|          NG     X6,MQE8     IF END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
08623  M02S02722.282l826 ---|          SA2    A2+B1

Seq #  *Modification Id* Act 
----------------------------+
08624  M02S02723.282l826 ---|          NZ     X6,MQE6     IF NOT EMPTY SLOT

Seq #  *Modification Id* Act 
----------------------------+
08625  M02S02724.282l826 ---|          NZ     B2,MQE5     IF EMPTY SLOT ALREADY LOCATED

Seq #  *Modification Id* Act 
----------------------------+
08626  M02S02725.282l826 ---|          SB2    A2-B1       SAVE EMPTY SLOT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
08627  M02S02726.282l826 ---|          EQ     MQE5        CONTINUE QUEUE TABLE SEARCH

Seq #  *Modification Id* Act 
----------------------------+
08628  M02S02727.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
08629  M02S02728.282l826 ---| MQE6     BX4    X6-X5

Seq #  *Modification Id* Act 
----------------------------+
08630  M02S02729.282l826 ---|          BX1    X7*X4

Seq #  *Modification Id* Act 
----------------------------+
08631  M02S02730.282l826 ---|          NZ     X1,MQE5     IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
08632  M02S02731.282l826 ---|          SB2    B0          CLEAR EMPTY SLOT ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
08633  M02S02732.282l826 ---|          BX1    X3*X4

Seq #  *Modification Id* Act 
----------------------------+
08634  M02S02733.282l826 ---|          NZ     X1,MQE7     IF NOT DUPLICATE EXTERNAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
08635  M02S02734.282l826 ---|          SB3    A2-B1       SAVE DUPLICATE REQUEST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
08636  M02S02735.282l826 ---|          EQ     MQE5        CONTINUE QUEUE TABLE SEARCH

Seq #  *Modification Id* Act 
----------------------------+
08637  M02S02736.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
08638  M02S02737.282l826 ---| MQE7     ZR     B3,MQE5     IF SAME REQUEST NOT LOCATED

Seq #  *Modification Id* Act 
----------------------------+
08639  M02S02738.282l826 ---|          SA6    B3          MOVE REQUEST TO ELIMINATE DUPLICATE

Seq #  *Modification Id* Act 
----------------------------+
08640  M02S02739.282l826 ---|          SB3    A2-B1       SAVE REQUEST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
08641  M02S02740.282l826 ---|          EQ     MQE5        CONTINUE QUEUE TABLE SEARCH

Seq #  *Modification Id* Act 
----------------------------+
08642  M02S02741.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
08643  M02S02742.282l826 ---| MQE8     MX3    1

Seq #  *Modification Id* Act 
----------------------------+
08644  M02S02743.282l826 ---|          SB7    B1+B1

Seq #  *Modification Id* Act 
----------------------------+
08645  M02S02744.282l826 ---|          LX3    58-59

Seq #  *Modification Id* Act 
----------------------------+
08646  M02S02745.282l826 ---|          BX6    X5

Seq #  *Modification Id* Act 
----------------------------+
08647  M02S02746.282l826 ---|          NZ     B3,MQE9     IF DUPLICATE ENTRY LOCATED

Seq #  *Modification Id* Act 
----------------------------+
08648  M02S02747.282l826 ---|          ZR     B2,MQE11    IF NO EMPTY ENTRY LOCATED

Seq #  *Modification Id* Act 
----------------------------+
08649  M02S02748.282l826 ---|          SA2    B2          ELIMINATE EMPTY ENTRY

Seq #  *Modification Id* Act 
----------------------------+
08650  M02S02749.282l826 ---|          EQ     MQE11       STORE NEW EXTERNAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
08651  M02S02750.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
08652  M02S02751.282l826 ---| MQE9     SA2    B3          ELIMINATE DUPLICATE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
08653  M02S02752.282l826 ---|          EQ     MQE11       STORE NEW EXTERNAL REQUEST

Seq #  *Modification Id* Act 
----------------------------+
08654  M02S00067.282l826 ---| MRC      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
08655  M02S00068.282l826 ---|**        MRC - MAKE REQUESTED DENSITY CURRENT.

Seq #  *Modification Id* Act 
----------------------------+
08656  M02S00069.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
08657  M02S00070.282l826 ---|*         ENTRY  (A0) = UDT ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08658  M02S00071.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
08659  M02S00072.282l826 ---|*         EXIT   CURRENT DENSITY IN *UST3* EQUAL TO REQUESTED

Seq #  *Modification Id* Act 
----------------------------+
08660  M02S00073.282l826 ---|*                  DENSITY FROM *UVRI*.

Seq #  *Modification Id* Act 
----------------------------+
08661  M02S00074.282l826 ---|*                TO *EXIT* IF NO CHANGE IN CURRENT DENSITY.

Seq #  *Modification Id* Act 
----------------------------+
08662  M02S00075.282l826 ---|*                TO CALLER IF CURRENT DENSITY WAS CHANGED.

Seq #  *Modification Id* Act 
----------------------------+
08663  M02S00076.282l826 ---|*

Seq #  *Modification Id* Act 
----------------------------+
08664  M02S00077.282l826 ---|*         USES   X - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
08665  M02S00078.282l826 ---|*                A - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
08666  M02S00079.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
08667  M02S00080.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
08668  M02S00081.282l826 ---| MRC      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
08669  M02S00082.282l826 ---|          SA2    A0+UVRI     GET REQUESTED DENSITY

Seq #  *Modification Id* Act 
----------------------------+
08670  M02S00083.282l826 ---|          MX6    6

Seq #  *Modification Id* Act 
----------------------------+
08671  M02S00084.282l826 ---|          LX6    11-59       POSITION MASK

Seq #  *Modification Id* Act 
----------------------------+
08672  M02S00085.282l826 ---|          SA1    A0+UST3     GET CURRENT DENSITY

Seq #  *Modification Id* Act 
----------------------------+
08673  M02S00086.282l826 ---|          LX2    11-50       POSITION REQUESTED DENSITY

Seq #  *Modification Id* Act 
----------------------------+
08674  M02S00087.282l826 ---|          BX2    X6*X2

Seq #  *Modification Id* Act 
----------------------------+
08675  M02S00088.282l826 ---|          ZR     X2,EXIT     IF NO REQUESTED DENSITY

Seq #  *Modification Id* Act 
----------------------------+
08676  M02S00089.282l826 ---|          BX6    X6*X1

Seq #  *Modification Id* Act 
----------------------------+
08677  M02S00090.282l826 ---|          BX1    X1-X6       REMOVE CURRENT DENSITY

Seq #  *Modification Id* Act 
----------------------------+
08678  M02S00091.282l826 ---|          BX6    X2-X6

Seq #  *Modification Id* Act 
----------------------------+
08679  M02S00092.282l826 ---|          ZR     X6,EXIT     IF DENSITIES MATCH

Seq #  *Modification Id* Act 
----------------------------+
08680  M02S00093.282l826 ---|          BX6    X1+X2       INSERT REQUESTED DENSITY

Seq #  *Modification Id* Act 
----------------------------+
08681  M02S00094.282l826 ---|          SA6    A1+

Seq #  *Modification Id* Act 
----------------------------+
08682  M02S00095.282l826 ---|          EQ     MRCX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
08683  M02S02753.282l826 ---| PCR      SPACE  4,15
08684  M01S01850.282l826 +++| PCR      SPACE  4,20
08685  M01S02754.magnet  +++|**        PCR - PRE-PROCESS *CIO* REQUEST.
08686  M01S02755.magnet  +++|*
08687  M01S02756.magnet  +++|*         ENTRY  (A0) = UDT ADDRESS.

Seq #  *Modification Id* Act 
----------------------------+
08688  M02S02757.282l826 ---|*                (A3) = UDT ADDRESS + UCIA.

Seq #  *Modification Id* Act 
----------------------------+
08689  M02S02758.282l826 ---|*                (X3) = (UDT UCIA WORD).
08690  M01S01851.282l826 +++|*                (X3) = *UCIA*.
08691  M01S01852.282l826 +++|*                (A3) = ADDRESS OF *UCIA*.
08692  M01S01853.282l826 +++|*                (A4) = ADDRESS OF *UREQ*.
08693  M01S02759.magnet  +++|*

Seq #  *Modification Id* Act 
----------------------------+
08694  M02S02760.282l826 ---|*         EXIT   (X3) = UPDATED (UDT UCIA WORD).
08695  M01S01854.282l826 +++|*         EXIT   (A0) = UDT ADDRESS.
08696  M01S01855.282l826 +++|*                (A4) = ADDRESS OF *UREQ*.
08697  M01S01856.282l826 +++|*                (X7) = REQUEST.
08698  M01S01857.282l826 +++|*                (X5) = REQUEST PARAMETERS.
08699  M01S01858.282l826 +++|*                TO *ABR* IF ERROR IN *CIO* REQUEST.
08700  M01S02761.magnet  +++|*

Seq #  *Modification Id* Act 
----------------------------+
08701  M02S02762.282l826 ---|*         ERROR  TO *EXI2* IF BUFFER ARGUMENT ERROR.
08702  M01S01859.282l826 +++|*         USES   X - ALL.
08703  M01S01860.282l826 +++|*                A - 1, 2, 6.
08704  M01S01861.282l826 +++|*                B - 3, 4, 5, 6, 7.
08705  M01S02763.magnet  +++|*

Seq #  *Modification Id* Act 
----------------------------+
08706  M02S02764.282l826 ---|*         USES   A - 1, 2, 6.

Seq #  *Modification Id* Act 
----------------------------+
08707  M02S02765.282l826 ---|*                B - 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
08708  M02S02766.282l826 ---|*                X - 0, 1, 2, 3, 4, 5, 6.

Seq #  *Modification Id* Act 
----------------------------+
08709  M02S02767.282l826 ---|*
08710  M01S02768.magnet  +++|*         CALLS  SBS.
08711  M01S02769.magnet  +++|
08712  M01S01862.282l826 +++|
08713  M01S01863.282l826 +++|*         PROCESS REQUEST ON *S* OR *L* FORMAT TAPE.
08714  M01S02770.magnet  +++|
08715  M01S02771.magnet  +++| PCR4     AX1    1
08716  M01S02772.magnet  +++|          MX0    4
08717  M01S02773.magnet  +++|          ZR     X1,PCR3     IF FET LENGTH .LE. 6
08718  M01S02774.magnet  +++|          LX0    35-59
08719  M01S02775.magnet  +++|          BX6    X0*X2       GET LEVEL NUMBER
08720  M01S02776.magnet  +++|          ZR     X6,PCR5     IF LEVEL 0
08721  M01S02777.magnet  +++|          BX6    X0+X2       SET LEVEL 17B
08722  M01S02778.magnet  +++|          SA6    A2
08723  M01S02779.magnet  +++| PCR5     SX0    1000B       SET DEFAULT BLOCK SIZE
08724  M01S02780.magnet  +++|          RJ     SBS         SET BLOCK SIZE FOR S/L FORMAT
08725  M01S02781.magnet  +++|
08726  M01S01864.282l826 +++|*         BUILD REQUEST AND CHECK END OF SET AND POSITION LOST.
08727  M01S01865.282l826 +++|
08728  M01S01866.282l826 +++| PCR6     SA1    A0+UST2
08729  M01S01867.282l826 +++|          SX7    4074B
08730  M01S01868.282l826 +++|          LX3    12
08731  M01S01869.282l826 +++|          SX6    B4-/CIO/SKP
08732  M01S01870.282l826 +++|          LX1    59-6
08733  M01S01871.282l826 +++|          ZR     X6,PCR7     IF SKIP FUNCTION
08734  M01S01872.282l826 +++|          SX7    4060B       CLEAR TERMINATION CONDITION
08735  M01S01873.282l826 +++| PCR7     BX5    X7*X3       EXTRACT FUNCTION FLAGS
08736  M01S01874.282l826 +++|          MX6    2
08737  M01S01875.282l826 +++|          SX7    TPRO+B4     SET REQUEST
08738  M01S01876.282l826 +++|          BX6    X6*X1
08739  M01S01877.282l826 +++|          LX5    24          SET REQUEST PARAMETERS
08740  M01S01878.282l826 +++|          ZR     X6,PCRX     IF NOT END OF SET OR POSITION LOST
08741  M01S01879.282l826 +++|          ZR     B6,PCR9     IF *POSMF* FUNCTION
08742  M01S01880.282l826 +++|          PL     X6,PCR8     IF NOT END OF SET
08743  M01S01881.282l826 +++|          SX5    IOS         * INCORRECT OPERATION AT END OF SET*
08744  M01S01882.282l826 +++|          EQ     ABR         ABORT REQUEST
08745  M01S01883.282l826 +++|
08746  M01S01884.282l826 +++| PCR8     SX2    B4-/CIO/REW
08747  M01S01885.282l826 +++|          ZR     X2,PCRX     IF *REWIND* FUNCTION
08748  M01S01886.282l826 +++|          SX5    FPI         * FILE POSITION INDETERMINATE*
08749  M01S01887.282l826 +++|          EQ     ABR         ABORT REQUEST
08750  M01S01888.282l826 +++|
08751  M01S01889.282l826 +++| PCR9     MX6    -59
08752  M01S01890.282l826 +++|          BX6    -X6*X1      CLEAR END OF SET FLAG
08753  M01S01891.282l826 +++|          LX6    6-6-59+6
08754  M01S01892.282l826 +++|          SA6    A1
08755  M01S01893.282l826 +++|
08756  M01S02782.magnet  +++| PCR      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
08757  M02S02783.282l826 ---|          SA1    A0+UST4     CHECK FORMAT

Seq #  *Modification Id* Act 
----------------------------+
08758  M02S02784.282l826 ---|          SA2    A3+B1       GET EXTERNAL CODE

Seq #  *Modification Id* Act 
----------------------------+
08759  M03S02785.282l826 ---|          LX1    24

Seq #  *Modification Id* Act 
----------------------------+
08760  M02S00083.282l826 ---|          LX1    36

Seq #  *Modification Id* Act 
----------------------------+
08761  M02S02786.282l826 ---|          MX6    1
08762  M01S01894.282l826 +++|
08763  M01S01895.282l826 +++|*         CHECK FOR REWIND OR REEL CHECK BEFORE *CIO* OPERATION.
08764  M01S01896.282l826 +++|
08765  M01S01897.282l826 +++|          SA2    A0+UST2
08766  M01S01898.282l826 +++|          MX6    -2
08767  M01S01899.282l826 +++|          LX3    6
08768  M01S01900.282l826 +++|          MX7    -4
08769  M01S01901.282l826 +++|          LX2    0-10
08770  M01S01902.282l826 +++|          BX7    -X7*X3
08771  M01S01903.282l826 +++|          BX2    -X6*X2
08772  M01S01904.282l826 +++|          LX3    -6
08773  M01S01905.282l826 +++|          SB3    X2
08774  M01S01906.282l826 +++|          SB4    X7+         INTERNAL FUNCTION CODE
08775  M01S01907.282l826 +++|          EQ     B3,B1,PCR0  IF NO REWIND OR REEL CHECK REQUIRED
08776  M01S01908.282l826 +++|          SX5    B0+
08777  M01S01909.282l826 +++|          SX7    PRWF
08778  M01S01910.282l826 +++|          GT     B3,B1,PCRX  IF REWIND BEFORE REQUEST
08779  M01S01911.282l826 +++|          SX7    PCHR
08780  M01S01912.282l826 +++|          EQ     PCRX        PERFORM INITIAL REEL CHECK
08781  M01S01913.282l826 +++|
08782  M01S01914.282l826 +++|*         CHECK FET PARAMETERS.
08783  M01S01915.282l826 +++|
08784  M01S01916.282l826 +++| PCR0     SA1    A0+UST4     CHECK FORMAT
08785  M01S01917.282l826 +++|          SA2    A0+UCIB     GET EXTERNAL CODE
08786  M01S01918.282l826 +++|          LX1    24

Seq #  *Modification Id* Act 
----------------------------+
08787  M02S02787.ns22000 ---|          AX1    48
08788  M01S00084.ns22000 +++|          AX1    54
08789  M01S02788.magnet  +++|          SB7    X1-TFF
08790  M01S02789.magnet  +++|          NZ     B7,PCR1     IF NOT F FORMAT
08791  M01S01919.282l826 +++|          MX6    1
08792  M01S02790.magnet  +++|          LX6    52-59
08793  M01S02791.magnet  +++|          BX1    X6*X3       GET *READN*/*WRITEN* FLAG
08794  M01S02792.magnet  +++|          NZ     X1,PCR1     IF *READN*/*WRITEN*
08795  M01S02793.magnet  +++|          LX6    53-59-52+59
08796  M01S02794.magnet  +++|          BX6    X3+X6       SET *READCW*/*WRITECW* FLAG

Seq #  *Modification Id* Act 
----------------------------+
08797  M02S02795.282l826 ---|          SA6    A3
08798  M01S01920.282l826 +++|          SA6    A3+
08799  M01S02796.magnet  +++|          BX3    X6
08800  M01S02797.magnet  +++| PCR1     LX2    58-48
08801  M01S02798.magnet  +++|          MX1    -7
08802  M01S02799.magnet  +++|          LX3    18
08803  M01S02800.magnet  +++|          BX4    -X1*X2      GET EXTERNAL FUNCTION CODE
08804  M01S02801.magnet  +++|          MX6    -6
08805  M01S02802.magnet  +++|          SB6    X4-110B/4   CHECK FOR *POSMF*
08806  M01S02803.magnet  +++|          BX1    -X6*X3      FET LENGTH - 5
08807  M01S02804.magnet  +++|          LX2    59-41-58+48
08808  M01S02805.magnet  +++|          SB5    X1-13+5
08809  M01S02806.magnet  +++|          LX3    -18
08810  M01S02807.magnet  +++|          SX6    1001B
08811  M01S02808.magnet  +++|          NZ     B6,PCR2     IF NOT *POSMF*
08812  M01S02809.magnet  +++|          PL     B5,PCR2     IF FET LENGTH .GE. 13D
08813  M01S02810.magnet  +++|          PL     X2,PCR3     IF NOT EXTENDED LABELS
08814  M01S02811.magnet  +++| PCR2     SB7    B7-TFS+TFF
08815  M01S02812.magnet  +++|          MX5    -18
08816  M01S02813.magnet  +++|          LX2    41-59
08817  M01S02814.magnet  +++|          BX5    -X5*X2      *MLRS* VALUE
08818  M01S02815.magnet  +++|          IX6    X5-X6
08819  M01S02816.magnet  +++|          EQ     B7,B1,PCR4  IF L FORMAT

Seq #  *Modification Id* Act 
----------------------------+
08820  M02S02817.282l826 ---|          NZ     B7,PCRX     IF NOT S FORMAT
08821  M01S01921.282l826 +++|          NZ     B7,PCR6     IF NOT S FORMAT
08822  M01S02818.magnet  +++|          NG     X6,PCR4     IF MLRS .LE. 1000B
08823  M01S02819.magnet  +++|
08824  M01S02820.magnet  +++|*         PROCESS BUFFER ARGUMENT ERROR.
08825  M01S02821.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
08826  M02S02822.282l826 ---| PCR3     SX7    MAB         ISSUE ERROR MESSAGE AND ABORT JOB

Seq #  *Modification Id* Act 
----------------------------+
08827  M02S02823.282l826 ---|          SX5    BAE         *BUFFER ARGUMENT ERROR*

Seq #  *Modification Id* Act 
----------------------------+
08828  M02S02824.282l826 ---|          EQ     EXI2        MAKE *1MT* REQUEST
08829  M01S01922.282l826 +++| PCR3     SX5    BAE         * BUFFER ARGUMENT ERROR*
08830  M01S01923.282l826 +++|          EQ     ABR         ABORT REQUEST
08831  M01S01924.282l826 +++| PUR      SPACE  4,10
08832  M01S01925.282l826 +++|**        PUR - PRE-PROCESS UNIT RETURN.
08833  M01S01926.282l826 +++|*
08834  M01S01927.282l826 +++|*         ENTRY  (X6) = *UFRQ*
08835  M01S01928.282l826 +++|*
08836  M01S01929.282l826 +++|*         EXIT   (X7) = REQUEST.
08837  M01S01930.282l826 +++|*                (X5) = 0.
08838  M01S01931.282l826 +++|*                TO *HGU* IF INCORRECT PROCESSOR SEQUENCE NUMBER.
08839  M01S01932.282l826 +++|*
08840  M01S01933.282l826 +++|*         USES   X - 0, 1, 2, 5, 6, 7.
08841  M01S01934.282l826 +++|*                A - 1, 6.
08842  M01S01935.282l826 +++|
08843  M01S01936.282l826 +++|
08844  M01S01937.282l826 +++| PUR      SUBR               ENTRY/EXIT
08845  M01S01938.282l826 +++|
08846  M01S01939.282l826 +++|*         THE RETURN UNIT PROCESSORS ARE DIVIDED INTO SEQUENCES SUCH
08847  M01S01940.282l826 +++|*         THAT PROCESSING CAN BE RESUMED AFTER A *1MT* OR *1MU* ERROR.
08848  M01S01941.282l826 +++|
08849  M01S01942.282l826 +++|          MX0    -12
08850  M01S01943.282l826 +++|          LX6    -36
08851  M01S01944.282l826 +++|          BX1    -X0*X6      CURRENT SEQUENCE NUMBER
08852  M01S01945.282l826 +++|          SX5    B0
08853  M01S01946.282l826 +++|          SX2    X1-PURAL
08854  M01S01947.282l826 +++|          PL     X2,HGU      IF INCORRECT SEQUENCE NUMBER, HANG UNIT
08855  M01S01948.282l826 +++|          SA1    PURA+X1     GET PROCESSOR
08856  M01S01949.282l826 +++|          SX2    B1
08857  M01S01950.282l826 +++|          IX6    X6+X2       ADVANCE SEQUENCE NUMBER FOR REENTRY
08858  M01S01951.282l826 +++|          LX6    36
08859  M01S01952.282l826 +++|          SX7    X1          SET UNIT RETURN PROCESSOR
08860  M01S01953.282l826 +++|          SA6    A0+UFRQ
08861  M01S01954.282l826 +++|          EQ     PURX        RETURN
08862  M01S01955.282l826 +++|
08863  M01S01956.282l826 +++|
08864  M01S01957.282l826 +++| PURA     BSS    0           TABLE OF RETURN UNIT PROCESSORS
08865  M01S01958.282l826 +++|          CON    PRTA        FIRST SEQUENCE
08866  M01S01959.282l826 +++|          CON    PRTB        SECOND SEQUENCE
08867  M01S01960.282l826 +++|          CON    PRTC        THIRD SEQUENCE
08868  M01S01961.282l826 +++| PURAL    EQU    *-PURA      MAXIMUM SEQUENCE + 1
08869  M01S00033.magne22 +++| PVD      SPACE  4,15
08870  M01S00034.magne22 +++|**        PVD - PROCESS VOLUME IN DRIVE ERROR.
08871  M01S00035.magne22 +++|*
08872  M01S00036.magne22 +++|*         ENTRY  (A0) = UDT ADDRESS OF UNIT ENCOUNTERING ERROR.
08873  M01S00037.magne22 +++|*                (B3) = MOUNT REQUEST ERROR CODE.
08874  M01S00038.magne22 +++|*
08875  M01S00039.magne22 +++|*         EXIT   DISMOUNT INITIATED IF DRIVE IN USE ERROR.
08876  M01S00040.magne22 +++|*                DISMOUNT INITIATED ON UNIT INDICATED IN RESPONSE IF
08877  M01S00041.magne22 +++|*                  VOLUME IN DRIVE ERROR, UNIT IS ON THIS SYSTEM, AND
08878  M01S00042.magne22 +++|*                  NO MOUNT OR DISMOUNT ACTIVITY IS PRESENT.
08879  M01S00043.magne22 +++|*
08880  M01S00044.magne22 +++|*         USES   X - 1, 2, 3, 6, 7.
08881  M01S00045.magne22 +++|*                A - 0, 1, 3.
08882  M01S00046.magne22 +++|*                B - 2, 3, 4.
08883  M01S00047.magne22 +++|*
08884  M01S00048.magne22 +++|*         CALLS  DAU.
08885  M01S00049.magne22 +++|
08886  M01S00050.magne22 +++|
08887  M01S00051.magne22 +++| PVD      SUBR               ENTRY/EXIT
08888  M01S00052.magne22 +++|
08889  M01S00053.magne22 +++|*         CHECK FOR ERROR REQUIRING FORCED DISMOUNT.
08890  M01S00054.magne22 +++|
08891  M01S00055.magne22 +++|          SB4    B3-/ATF/DIU
08892  M01S00056.magne22 +++|          ZR     B4,PVD2     IF DRIVE IN USE ERROR
08893  M01S00057.magne22 +++|          SB4    B3-/ATF/VID
08894  M01S00058.magne22 +++|          NZ     B4,PVDX     IF NOT VOLUME IN DRIVE ERROR
08895  M01S00059.magne22 +++|
08896  M01S00060.magne22 +++|*         SEARCH FOR UNIT WITH VOLUME MOUNTED.
08897  M01S00061.magne22 +++|
08898  M01S00062.magne22 +++|          SA1    RCAL+1+/ATF/RQP1
08899  M01S00063.magne22 +++|          SB2    -1
08900  M01S00064.magne22 +++|          TB3    -UNITL,UBUF
08901  M01S00065.magne22 +++|          TB4    0,UBUF,LWA
08902  M01S00066.magne22 +++|          MX6    21
08903  M01S00067.magne22 +++|          LX6    -36
08904  M01S00068.magne22 +++|          TX2    0,UACI
08905  M01S00069.magne22 +++|          BX6    X6*X1       DRIVE IDENTIFICATION FROM RESPONSE
08906  M01S00070.magne22 +++|          LX2    3
08907  M01S00071.magne22 +++|          MX7    12
08908  M01S00072.magne22 +++|          LX7    -36
08909  M01S00073.magne22 +++| PVD1     SB3    B3+UNITL    ADVANCE UDT ADDRESS
08910  M01S00074.magne22 +++|          EQ     B3,B4,PVDX  IF END OF UDT ENTRIES
08911  M01S00075.magne22 +++|          SA1    B3+UST1
08912  M01S00076.magne22 +++|          SA3    B3+UMST
08913  M01S00077.magne22 +++|          SB2    B2+B1       ADVANCE UDT ORDINAL
08914  M01S00078.magne22 +++|          LX1    59-49
08915  M01S00079.magne22 +++|          PL     X1,PVD1     IF NOT ACS UNIT
08916  M01S00080.magne22 +++|          SA0    B3          SET UDT ADDRESS
08917  M01S00081.magne22 +++|          BX1    X7*X3
08918  M01S00082.magne22 +++|          BX1    X1+X2       DRIVE IDENTIFICATION
08919  M01S00083.magne22 +++|          BX1    X1-X6
08920  M01S00084.magne22 +++|          NZ     X1,PVD1     IF NOT INDICATED UNIT
08921  M01S00085.magne22 +++|          SA1    ACCU
08922  M01S00086.magne22 +++|          MX6    -3
08923  M01S00087.magne22 +++|          BX6    -X6*X3
08924  M01S00088.magne22 +++|          NZ     X6,PVDX     IF MOUNT OR DISMOUNT OR CONTROL PATH ERROR
08925  M01S00089.magne22 +++|          LX1    B2
08926  M01S00090.magne22 +++|          PL     X1,PVDX     IF UNIT NOT ACCESSIBLE
08927  M01S00091.magne22 +++|
08928  M01S00092.magne22 +++|*         DISMOUNT UNIT.
08929  M01S00093.magne22 +++|
08930  M01S00094.magne22 +++| PVD2     RJ     DAU         DISMOUNT UNIT
08931  M01S00095.magne22 +++|          EQ     PVDX        RETURN
08932  M01S01962.282l826 +++| PVE      SPACE  4,15
08933  M01S01963.282l826 +++|**        PVE - PROCESS VSN ERROR ON ACS UNIT MOUNT.
08934  M01S01964.282l826 +++|*
08935  M01S01965.282l826 +++|*         ENTRY  (A0) = UDT ADDRESS.
08936  M01S01966.282l826 +++|*                (B2) = UDT ORDINAL.
08937  M01S01967.282l826 +++|*                (X1) = VSN LEFT JUSTIFIED.
08938  M01S01968.282l826 +++|*                (B3) = *COMSATF* ERROR CODE.
08939  M01S01969.282l826 +++|*
08940  M01S01970.282l826 +++|*         EXIT   ENTRY MADE IN VSN ERROR TABLE.
08941  M01S01971.282l826 +++|*                VSN EVENT ISSUED IF UNIT UNASSIGNED WITH NO ACTIVITY.
08942  M01S00096.magne22 +++|*                (B3) = *COMSATF* ERROR CODE.
08943  M01S01972.282l826 +++|*
08944  M01S01973.282l826 +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
08945  M01S01974.282l826 +++|*                A - 2, 3, 6, 7.
08946  M01S01975.282l826 +++|*
08947  M01S01976.282l826 +++|*         CALLS  MQE.
08948  M01S01977.282l826 +++|
08949  M01S01978.282l826 +++|
08950  M01S01979.282l826 +++| PVE      SUBR               ENTRY/EXIT
08951  M01S00097.magne22 +++|          SB4    B3-/ATF/MXVE
08952  M01S00098.magne22 +++|          PL     B4,PVEX     IF NOT VSN ERROR
08953  M01S01980.282l826 +++|          SA2    VET-1
08954  M01S01981.282l826 +++|          MX0    36
08955  M01S01982.282l826 +++|          BX1    X0*X1       VSN WITH ERROR
08956  M01S01983.282l826 +++| PVE1     SA2    A2+1        GET NEXT ENTRY
08957  M01S01984.282l826 +++|          NZ     X2,PVE1     IF NOT END OF ENTRIES
08958  M01S01985.282l826 +++|          SX3    A2-VET-VETL
08959  M01S01986.282l826 +++|          ZR     X3,PVEX     IF TABLE FULL
08960  M01S01987.282l826 +++|          SX7    B0+
08961  M01S01988.282l826 +++|          SX6    B3-/ATF/MXFE  ERROR CODE
08962  M01S01989.282l826 +++|          SX3    B0+
08963  M01S01990.282l826 +++|          PL     X6,PVE2     IF TRANSIENT VSN ERROR
08964  M01S01991.282l826 +++|          SX6    B3-/ATF/URL
08965  M01S01992.282l826 +++|          SX3    /RSX/UOL
08966  M01S01993.282l826 +++|          ZR     X6,PVE2     IF UNREADABLE OPTICAL LABEL
08967  M01S01994.282l826 +++|          SX3    /RSX/NAC    SET NOT IN ACS
08968  M01S01995.282l826 +++| PVE2     BX6    X1+X3
08969  M01S01996.282l826 +++|          SA6    A2          SET VSN AND ERROR
08970  M01S01997.282l826 +++|          SA7    A2+1        TERMINATE ENTRIES
08971  M01S01998.282l826 +++|          SA2    A0+UVRI
08972  M01S01999.282l826 +++|          SA3    A0+UREQ
08973  M01S02000.282l826 +++|          NZ     X2,PVEX     IF UNIT ASSIGNED OR SELECTED FOR UNIT SWAP
08974  M01S02001.282l826 +++|          NZ     X3,PVEX     IF PROCESSOR ACTIVE
08975  M01S02002.282l826 +++|          SX5    A6-VET      SET ORDINAL OF ERROR TABLE ENTRY
08976  M01S02003.282l826 +++|          SX7    PVME        ISSUE EVENT TO ROLL IN *RESEX*
08977  M01S02004.282l826 +++|          RJ     MQE         MAKE QUEUE ENTRY
08978  M01S02005.282l826 +++|          EQ     PVEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
08979  M02S02825.253l688 ---| RFL      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
08980  M02S02826.253l688 ---|**        RFL - REDUCE FIELD LENGTH.
08981  M01S00376.253l688 +++| RFL      SPACE  4,20
08982  M01S00377.253l688 +++|**        RFL - REDUCE FIELD LENGTH AND REPACK QUEUES.
08983  M01S00378.253l688 +++|*
08984  M01S00379.253l688 +++|*         THE REDUCTION OF FIELD LENGTH IS PERFORMED BEFORE
08985  M01S00380.253l688 +++|*         THE TABLES ARE COMPRESSED (WHICH MEANS THAT IT TAKES
08986  M01S00381.253l688 +++|*         32 SECONDS BEFORE THE SPACE IS RELEASED).  THIS IS DONE
08987  M01S00382.253l688 +++|*         SINCE VARIOUS TAPE ALTERNATE STORAGE RELATED PROGRAMS
08988  M01S00383.253l688 +++|*         MAY BE READING THE STAGE REQUEST TABLE (*TSRP*),  AND
08989  M01S00384.253l688 +++|*         REDUCING THE MEMORY FROM UNDER THEM COULD CAUSE THEM TO
08990  M01S00385.253l688 +++|*         ABORT.  WHILE THIS STILL MAY HAPPEN IF THEY DO NOT GET
08991  M01S00386.253l688 +++|*         THE CPU FOR 32 SECONDS, IT IS UNLIKELY.
08992  M01S00387.253l688 +++|*
08993  M01S00388.253l688 +++|*         (TSRP) IS SET TO ZERO DURING THE TABLE PACK.  BY
08994  M01S00389.253l688 +++|*         DOING THIS, *COMCSRI* WILL WAIT UNTIL THE PACK IS
08995  M01S00390.253l688 +++|*         COMPLETE.
08996  M01S00391.253l688 +++|*
08997  M01S00392.253l688 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
08998  M01S00393.253l688 +++|*                A - 1, 2, 3, 4, 6, 7.
08999  M01S00394.253l688 +++|*                B - 2, 3, 4, 5, 6.
09000  M01S00395.253l688 +++|*
09001  M01S00396.253l688 +++|*         MACROS MEMORY.
09002  M01S02827.magnet  +++|
09003  M01S02828.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
09004  M02S02829.253l688 ---| RFL2     SA6    A6+B1       STORE ENTRY

Seq #  *Modification Id* Act 
----------------------------+
09005  M02S02830.253l688 ---|          EQ     RFL1        CONTINUE REPACKING QUEUE
09006  M01S00397.253l688 +++| RFL      SUBR               ENTRY/EXIT
09007  M01S00398.253l688 +++|          SA1    TSRP
09008  M01S00399.253l688 +++|          SA2    TSRL
09009  M01S00400.253l688 +++|          SA3    FLST
09010  M01S00401.253l688 +++|          IX1    X1+X2       LWA+1 OF TABLE
09011  M01S00402.253l688 +++|          AX3    30          GET CURRENT FIELD LENGTH
09012  M01S00403.253l688 +++|          SX4    X1+2*PFTBL+77B+6 ADD GAP
09013  M01S00404.253l688 +++|          AX4    6
09014  M01S00405.253l688 +++|          LX4    6
09015  M01S00406.253l688 +++|          IX6    X3-X4
09016  M01S00407.253l688 +++|          ZR     X6,RFL1     IF NO MEMORY CHANGE
09017  M01S00408.253l688 +++|          MEMORY CM,A3,R,X4  REDUCE MEMORY
09018  M01S02831.magnet  +++|

Seq #  *Modification Id* Act 
----------------------------+
09019  M02S02832.253l688 ---| RFL      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
09020  M02S02833.253l688 ---|          TA1    0,UQUE      REPACK QUEUE
09021  M01S00409.253l688 +++|*         REPACK *UQUE* TABLE.
09022  M01S00410.253l688 +++|
09023  M01S00411.253l688 +++| RFL1     TA1    0,UQUE      REPACK QUEUE
09024  M01S02834.magnet  +++|          BX6    X1
09025  M01S02835.magnet  +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
09026  M02S02836.253l688 ---| RFL1     SA1    A1+B1       SEARCH TABLE
09027  M01S00412.253l688 +++| RFL2     SA1    A1+B1       SEARCH TABLE
09028  M01S02837.magnet  +++|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
09029  M02S02838.253l688 ---|          NZ     X1,RFL2     IF ENTRY

Seq #  *Modification Id* Act 
----------------------------+
09030  M02S02839.253l688 ---|          PL     X1,RFL1     IF NOT END OF TABLE
09031  M01S00413.253l688 +++|          ZR     X1,RFL3     IF NO ENTRY
09032  M01S00414.253l688 +++|          SA6    A6+B1       STORE ENTRY
09033  M01S00415.253l688 +++|          EQ     RFL2        CONTINUE REPACKING QUEUE
09034  M01S00416.253l688 +++|
09035  M01S00417.253l688 +++| RFL3     PL     X1,RFL2     IF NOT END OF TABLE
09036  M01S02840.magnet  +++|          SA6    A6+B1       INSURE TABLE TERMINATION
09037  M01S02841.magnet  +++|          SA6    A6+B1

Seq #  *Modification Id* Act 
----------------------------+
09038  M02S02842.253l688 ---|          SX4    A6+6+77B    SET NEEDED FL

Seq #  *Modification Id* Act 
----------------------------+
09039  M02S02843.253l688 ---|          SA3    FLST

Seq #  *Modification Id* Act 
----------------------------+
09040  M02S02844.253l688 ---|          AX4    6

Seq #  *Modification Id* Act 
----------------------------+
09041  M02S02845.253l688 ---|          LX4    6

Seq #  *Modification Id* Act 
----------------------------+
09042  M02S02846.253l688 ---|          AX3    30

Seq #  *Modification Id* Act 
----------------------------+
09043  M02S02847.253l688 ---|          IX6    X3-X4

Seq #  *Modification Id* Act 
----------------------------+
09044  M02S02848.253l688 ---|          ZR     X6,RFLX     IF NO FL REDUCTION NEEDED

Seq #  *Modification Id* Act 
----------------------------+
09045  M02S02849.253l688 ---|          MEMORY CM,FLST,R,X4  REDUCE MEMORY
09046  M01S00418.253l688 +++|
09047  M01S00419.253l688 +++|*         REPACK *PFM* REQUEST TABLE.
09048  M01S00420.253l688 +++|
09049  M01S00421.253l688 +++|          SB4    A6+6+PFTBL  SET DESIRED INTERTABLE GAP
09050  M01S00422.253l688 +++|          SA2    TSRP
09051  M01S00423.253l688 +++|          SA3    A2-B1
09052  M01S00424.253l688 +++|          SB2    X2          FWA OF *PFM* REQUEST TABLE
09053  M01S00425.253l688 +++|          SB3    X3          LENGTH OF TABLE
09054  M01S00426.253l688 +++|          SB5    PFTBL
09055  M01S00427.253l688 +++|          SB6    -B5
09056  M01S00428.253l688 +++|          BX6    X6-X6
09057  M01S00429.253l688 +++|          SA6    A2          FLAG TABLE-PACK-IN-PROGRESS TO STAGES
09058  M01S00430.253l688 +++|          GE     B4,B2,RFL5  IF CANNOT MOVE FRONT OF TABLE DOWN
09059  M01S00431.253l688 +++| RFL4     SB2    B2-B5       MOVE TABLE FWA BACKWARDS
09060  M01S00432.253l688 +++|          SB3    B3+B5       INCREMENT LENGTH
09061  M01S00433.253l688 +++|          SA6    B2+         SET ENTRY IDLE
09062  M01S00434.253l688 +++|          LT     B4,B2,RFL4  IF MORE SPACE TO MOVE TABLE
09063  M01S00435.253l688 +++| RFL5     ZR     B3,RFL8     IF NO LENGTH TO TABLE
09064  M01S00436.253l688 +++|          SB3    B3-B5
09065  M01S00437.253l688 +++|          SA1    B3+B2       GET ENTRY
09066  M01S00438.253l688 +++|          ZR     X1,RFL5     IF LAST ENTRY IS IDLE
09067  M01S00439.253l688 +++| RFL6     LE     B3,B6,RFL7  IF MOVED BEYOND FILL POINTER
09068  M01S00440.253l688 +++|          SB6    B6+B5       ADVANCE FILL POINTER
09069  M01S00441.253l688 +++|          SA1    B2+B6
09070  M01S00442.253l688 +++|          NZ     X1,RFL6     IF THIS ENTRY IS IN USE
09071  M01S00443.253l688 +++|          SA4    B2+B3       MOVE WORDS 0 AND 1
09072  M01S00444.253l688 +++|          SA2    A4+B1
09073  M01S00445.253l688 +++|          SA7    A1
09074  M01S00446.253l688 +++|          BX6    X4
09075  M01S00447.253l688 +++|          LX7    X2
09076  M01S00448.253l688 +++|          SA1    A2+B1       MOVE WORDS 2 AND 3
09077  M01S00449.253l688 +++|          SA2    A1+B1
09078  M01S00450.253l688 +++|          SA6    B2+B6
09079  M01S00451.253l688 +++|          SA7    A6+B1
09080  M01S00452.253l688 +++|          BX6    X1
09081  M01S00453.253l688 +++|          LX7    X2
09082  M01S00454.253l688 +++|          SA1    A2+B1       MOVE WORDS 4 AND 5
09083  M01S00455.253l688 +++|          SA2    A1+B1
09084  M01S00456.253l688 +++|          SA6    A7+B1
09085  M01S00457.253l688 +++|          SA7    A6+B1
09086  M01S00458.253l688 +++|          BX6    X1
09087  M01S00459.253l688 +++|          LX7    X2
09088  M01S00460.253l688 +++|          SA1    A2+B1       MOVE WORDS 6 AND 7
09089  M01S00461.253l688 +++|          SA2    A1+B1
09090  M01S00462.253l688 +++|          SA6    A7+B1
09091  M01S00463.253l688 +++|          SA7    A6+B1
09092  M01S00464.253l688 +++|          BX6    X1
09093  M01S00465.253l688 +++|          LX7    X2
09094  M01S00466.253l688 +++|          SA6    A7+B1
09095  M01S00467.253l688 +++|          SA7    A6+B1
09096  M01S00468.253l688 +++|          ERRNZ  PFTBL-8     CODE ASSUMES 8 WORD ENTRY
09097  M01S00469.253l688 +++|          EQ     RFL5        CHECK NEXT ENTRY
09098  M01S00470.253l688 +++|
09099  M01S00471.253l688 +++| RFL7     SB3    B3+PFTBL    RESTORE TABLE LENGTH
09100  M01S00472.253l688 +++| RFL8     SX7    B3          UPDATE LENGTH AND FWA
09101  M01S00473.253l688 +++|          SX6    B2
09102  M01S00474.253l688 +++|          SA1    TSRM
09103  M01S00475.253l688 +++|          SA7    TSRL        UPDATE LENGTH
09104  M01S00476.253l688 +++|          SX7    X1+B1       INCREMENT MODIFICATION COUNTER
09105  M01S00477.253l688 +++|          SA7    A1
09106  M01S00478.253l688 +++|          SA6    A7-B1       UPDATE FWA
09107  M01S02850.magnet  +++|          EQ     RFLX        RETURN
09108  M01S02851.magnet  +++| SBS      SPACE  4,30

Seq #  *Modification Id* Act 
----------------------------+
09109  M02S02852.274l797 ---|*         SBS - SET BLOCK SIZE FOR S/L FORMAT TAPES.
09110  M01S02057.274l797 +++|**        SBS - SET BLOCK SIZE FOR S/L FORMAT TAPES.
09111  M01S02853.magnet  +++|*
09112  M01S02854.magnet  +++|*         BLOCK SIZE IS CALCULATED AS FOLLOWS-
09113  M01S02855.magnet  +++|*         1)     MLRS FIELD IS USED IF NON - ZERO.
09114  M01S02856.magnet  +++|*         2)     1000B IS USED IF S FORMAT AND MLRS = 0.
09115  M01S02857.magnet  +++|*         3)     IF BUFFER SIZE IS .LT. MLRS, BUFFER SIZE IS USED
09116  M01S02858.magnet  +++|*                UNLESS READ SKIP.
09117  M01S02859.magnet  +++|*         4)     IF L FORMAT AND MLRS = 0, BLOCK SIZE IS
09118  M01S02860.magnet  +++|*                COMPUTED AS FOLLOWS.
09119  M01S02861.magnet  +++|*                A) LIMIT-FIRST-1  IF NOT CONTROL WORD OPERATION
09120  M01S02862.magnet  +++|*                B) LIMIT-FIRST-2  IF 260/264 OPERATION
09121  M01S02863.magnet  +++|*                C) LIMIT-FIRST-3  IF 200/204 OPERATION
09122  M01S02864.magnet  +++|*                D) 377777B        IF *READSKP*
09123  M01S02865.magnet  +++|*
09124  M01S02866.magnet  +++|*         ENTRY  (B7) = 0, IF S FORMAT.
09125  M01S02867.magnet  +++|*                (X0) = 1000B.
09126  M01S02868.magnet  +++|*                (X2) = (UDT UCIB WORD).
09127  M01S02869.magnet  +++|*                (X3) = (UDT UCIA WORD).
09128  M01S02870.magnet  +++|*                (X4) = EXTERNAL *CIO* FUNCTION CODE/4.
09129  M01S02871.magnet  +++|*                (X5) = *MLRS* FIELD VALUE.
09130  M01S02872.magnet  +++|*                (A0) = UDT ADDRESS.
09131  M01S02873.magnet  +++|*                (A2) = UDT ADDRESS + UCIB.
09132  M01S02874.magnet  +++|*
09133  M01S02875.magnet  +++|*         USES   X - 1, 2, 4, 5, 6.
09134  M01S02876.magnet  +++|*                A - 1, 6.

Seq #  *Modification Id* Act 
----------------------------+
09135  M02S02877.282l826 ---|*                B - 7.
09136  M01S02878.magnet  +++|
09137  M01S02879.magnet  +++|
09138  M01S02880.magnet  +++| SBS4     IX4    X6-X5
09139  M01S02881.magnet  +++|          PL     X4,SBS5     IF *MLRS* .LT. BUFFER SIZE
09140  M01S02882.magnet  +++|          ZR     X1,SBS5     IF *READSKP*
09141  M01S02883.magnet  +++|          SX5    X6+         SET *MLRS* TO BUFFER SIZE
09142  M01S02884.magnet  +++| SBS5     SX6    X5-1001B
09143  M01S02885.magnet  +++|          SA1    A0+UST4

Seq #  *Modification Id* Act 
----------------------------+
09144  M02S02886.282l826 ---|          MX2    -36
09145  M01S02006.282l826 +++|          MX2    36
09146  M01S02887.magnet  +++|          SX4    B0+

Seq #  *Modification Id* Act 
----------------------------+
09147  M02S02888.282l826 ---|          BX1    -X2*X1
09148  M01S02007.282l826 +++|          BX1    X2*X1
09149  M01S02889.magnet  +++|          NG     X6,SBS6     IF NO OVERFLOW COUNT
09150  M01S02890.magnet  +++|          SX6    LBWD        CALCULATE OVERFLOW
09151  M01S02891.magnet  +++|          SX2    X6
09152  M01S02892.magnet  +++|          SX4    X5
09153  M01S02893.magnet  +++|          IX6    X5/X6
09154  M01S02894.magnet  +++|          IX2    X6*X2       CALCULATE REMAINDER
09155  M01S02895.magnet  +++|          IX5    X4-X2
09156  M01S02896.magnet  +++|          SX4    X6

Seq #  *Modification Id* Act 
----------------------------+
09157  M02S02897.282l826 ---|          LX4    36
09158  M01S02898.magnet  +++| SBS6     PL     X5,SBS7     IF WORD COUNT POSITIVE
09159  M01S02899.magnet  +++|          SX5    B0+         SET WORD COUNT ZERO

Seq #  *Modification Id* Act 
----------------------------+
09160  M02S02900.282l826 ---| SBS7     LX5    48
09161  M01S02008.282l826 +++| SBS7     LX5    12
09162  M01S02901.magnet  +++|          BX4    X5+X4
09163  M01S02902.magnet  +++|          IX6    X1+X4
09164  M01S02903.magnet  +++|          SA6    A1
09165  M01S02904.magnet  +++|
09166  M01S02905.magnet  +++| SBS      SUBR               ENTRY/EXIT
09167  M01S02906.magnet  +++|          SA1    A0+UCIC
09168  M01S02907.magnet  +++|          SX6    X1          CALCULATE DEFAULT BLOCK SIZE
09169  M01S02908.magnet  +++|          AX1    24
09170  M01S02909.magnet  +++|          SX1    X1+B1
09171  M01S02910.magnet  +++|          IX6    X6-X1
09172  M01S02911.magnet  +++|          SX1    X4-20B/4
09173  M01S02912.magnet  +++|          PL     X6,SBS1     IF FET PARAMETERS PRESENT
09174  M01S02913.magnet  +++|          SX6    377777B     SET MAXIMUM DEFAULT BLOCK SIZE
09175  M01S02914.magnet  +++| SBS1     BX4    X3
09176  M01S02915.magnet  +++|          LX4    0-52
09177  M01S02916.magnet  +++|          NZ     B7,SBS2     IF NOT S FORMAT
09178  M01S02917.magnet  +++|          IX2    X6-X0
09179  M01S02918.magnet  +++|          NG     X2,SBS2     IF BUFFER SIZE .LT. 1000B WORDS
09180  M01S02919.magnet  +++|          BX6    X0          SET FOR MAXIMUM OF 1000B WORDS
09181  M01S02920.magnet  +++| SBS2     NZ     X5,SBS4     IF MLRS FIELD SPECIFIED
09182  M01S02921.magnet  +++|          BX5    X0
09183  M01S02922.magnet  +++|          MX2    -2
09184  M01S02923.magnet  +++|          ZR     B7,SBS4     IF S FORMAT
09185  M01S02924.magnet  +++|          BX4    -X2*X4      CONTROL WORD FLAGS
09186  M01S02925.magnet  +++|          IX6    X6-X4
09187  M01S02926.magnet  +++|          NZ     X1,SBS3     IF NOT *READSKP*
09188  M01S02927.magnet  +++|          SX6    377777B     SET MAXIMUM BLOCK SIZE
09189  M01S02928.magnet  +++| SBS3     SX5    X6
09190  M01S02929.magnet  +++|          EQ     SBS5        BUILD *UST4*
09191  M01S02009.282l826 +++| SPR      SPACE  4,10
09192  M01S02010.282l826 +++|**        SPR - SET PREVIEW DISPLAY REQUEST.
09193  M01S02011.282l826 +++|*
09194  M01S02012.282l826 +++|*         ENTRY  (X3) = 0 IF NO ERROR MESSAGE.
09195  M01S02013.282l826 +++|*                (X3) = *COMSRSX* MESSAGE CODE IF ERROR MESSAGE TO BE
09196  M01S02014.282l826 +++|*                       DISPLAYED.
09197  M01S02015.282l826 +++|*
09198  M01S02016.282l826 +++|*         EXIT   UDT SET WITH PREVIEW DISPLAY REQUEST.
09199  M01S02017.282l826 +++|*
09200  M01S02018.282l826 +++|*         USES   X - 1, 2, 3, 6.
09201  M01S02019.282l826 +++|*                A - 1, 2, 6.
09202  M01S02020.282l826 +++|
09203  M01S02021.282l826 +++|

Seq #  *Modification Id* Act 
----------------------------+
09204  M02S02022.ns2773  ---| SPR      SUBR   0           ENTRY/EXIT
09205  M01S00083.ns2773  +++| SPR      SUBR               ENTRY/EXIT
09206  M01S02023.282l826 +++|          SA1    A0+UISN
09207  M01S02024.282l826 +++|          SA2    A0+UVRI
09208  M01S02025.282l826 +++|          MX6    42
09209  M01S02026.282l826 +++|          LX3    12
09210  M01S02027.282l826 +++|          BX1    X6*X1
09211  M01S02028.282l826 +++|          BX6    X1+X3       SET ERROR CODE
09212  M01S02029.282l826 +++|          LX2    59-0
09213  M01S02030.282l826 +++|          SA6    A1
09214  M01S02031.282l826 +++|          NG     X2,SPRX     IF MESSAGE ALREADY SET
09215  M01S02032.282l826 +++|          MX6    1
09216  M01S02033.282l826 +++|          SA6    OPRF        SET NEW REQUEST FLAG
09217  M01S02034.282l826 +++|          BX6    X2+X6       SET MESSAGE FLAG
09218  M01S02035.282l826 +++|          LX6    0-0-59+0
09219  M01S02036.282l826 +++|          SA6    A2
09220  M01S02037.282l826 +++|          EQ     SPRX        RETURN
09221  M01S02038.282l826 +++| SUA      SPACE  4,15
09222  M01S02039.282l826 +++|**        SUA - SET UDT ADDRESS.
09223  M01S02040.282l826 +++|*
09224  M01S02041.282l826 +++|*         ENTRY  (X5) = UDT ORDINAL (BITS 0 - 11).
09225  M01S02042.282l826 +++|*
09226  M01S02043.282l826 +++|*         EXIT   (X6) .GE. 0 IF INCORRECT UDT ADDRESS.
09227  M01S02044.282l826 +++|*                (A0) = UDT ADDRESS IF NO ERROR.
09228  M01S02045.282l826 +++|*                (B2) = UDT ORDINAL IF NO ERROR.
09229  M01S02046.282l826 +++|*
09230  M01S02047.282l826 +++|*         USES   X - 6, 7.
09231  M01S02048.282l826 +++|*                A - 0.
09232  M01S02049.282l826 +++|*                B - 2.
09233  M01S02050.282l826 +++|
09234  M01S02051.282l826 +++|
09235  M01S02052.282l826 +++| SUA      SUBR               ENTRY/EXIT
09236  M01S02053.282l826 +++|          MX7    -12
09237  M01S02054.282l826 +++|          SX6    UNITL
09238  M01S02055.282l826 +++|          BX7    -X7*X5      UDT ORDINAL
09239  M01S02056.282l826 +++|          IX6    X6*X7       UDT OFFSET
09240  M01S02057.282l826 +++|          SB2    X7          SET UDT ORDINAL
09241  M01S02058.282l826 +++|          TA0    X6,UBUF     SET UDT ADDRESS
09242  M01S02059.282l826 +++|          TX6    A0,-UBUF,LWA
09243  M01S02060.282l826 +++|          EQ     SUAX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
09244  M02S00085.253l688 ---|          SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
09245  M02S00086.253l688 ---|**        MSG - SEND MESSAGE.
09246  M01S00479.253l688 +++|          SPACE  4,10
09247  M01S00480.253l688 +++|*         COMMON DECKS.
09248  M01S00481.253l688 +++|
09249  M01S00482.253l688 +++|
09250  M01S00483.253l688 +++|*CALL     COMCCPM
09251  M01S02061.282l826 +++|*CALL     COMCMVE
09252  M01S00484.253l688 +++|*CALL     COMCSYS
09253  M01S00088.magne17 +++|*CALL     COMCWOD

Seq #  *Modification Id* Act 
----------------------------+
09254  M02S00089.274l797 ---|*CALL     COMCZTB
09255  M01S00485.253l688 +++|          TITLE  *PFM*/TAPE ALTERNATE STORAGE ROUTINES.
09256  M01S00486.253l688 +++|**        *PFM*/TAPE ALTERNATE STORAGE ROUTINES.
09257  M01S00087.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
09258  M02S00088.253l688 ---|*         ENTRY  (X1) = ADDRESS OF MESSAGE.

Seq #  *Modification Id* Act 
----------------------------+
09259  M02S00089.253l688 ---|*                (X6) = MESSAGE OPTION(S)

Seq #  *Modification Id* Act 
----------------------------+
09260  M02S00090.253l688 ---|*                       BIT 16 = AUTO RECALL.

Seq #  *Modification Id* Act 
----------------------------+
09261  M02S00091.253l688 ---|*                       BITS 0 - 15 = MESSAGE OPTION(S).
09262  M01S00487.253l688 +++|*         THESE ROUTINES WILL BE OVERWRITTEN BY UDT-S IF
09263  M01S00488.253l688 +++|*         TAPE ALTERNATE STORAGE PROCESSING IS NOT SELECTED.
09264  M01S00489.253l688 +++|
09265  M01S00490.253l688 +++|          USE    /STAGE/
09266  M01S00491.253l688 +++| NETAB    BSS    0           UDT START IF NO TAPE ALTERNATE STORAGE
09267  M01S00492.253l688 +++|          QUAL   STAGE
09268  M01S00493.253l688 +++|          SPACE  4,10
09269  M01S00494.253l688 +++|*         LOCAL STORAGE.
09270  M01S00495.253l688 +++|
09271  M01S00496.253l688 +++| MVSN     DATA   0           MORE VSN-S WAITING FOR PROCESSING
09272  M01S00497.253l688 +++| ROLF     DATA   0           ROLLIN EVENT TO BE ISSUED
09273  M01S00498.253l688 +++| SJIF     DATA   0           VSN FOR STAGE JOB TO BE INITIATED
09274  M01S00499.253l688 +++|          SPACE  4,10
09275  M01S00500.253l688 +++|*         HANDLE RELOCATABLE INSTRUCTIONS.
09276  M01S00501.253l688 +++|
09277  M01S00502.253l688 +++| TINST    RMT
09278  M01S00503.253l688 +++| TINSTL.  EQU    *-TINST     START OF TAPE ALTERNATE ONLY ENTRIES
09279  M01S00504.253l688 +++| TINST    RMT
09280  M01S00505.253l688 +++| CRJ      SPACE  4,60
09281  M01S00506.253l688 +++|**        CRJ - CHECK FOR REQUEST FROM STAGING JOB.
09282  M01S00092.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
09283  M02S00093.253l688 ---|*         EXIT   RETURN WHEN OPERATION COMPLETE.
09284  M01S00507.253l688 +++|*         PROCESS THE FOLLOWING REQUESTS FROM *RESEX*/*PFRES*.
09285  M01S00094.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
09286  M02S00095.253l688 ---|*         USES   X - 1, 6.
09287  M01S00508.253l688 +++|*         *SEV* (3) - SET STAGING VSN LIST.
09288  M01S00096.ns22000 +++|*

Seq #  *Modification Id* Act 
----------------------------+
09289  M02S00097.253l688 ---|*         CALLS  SYS=.
09290  M01S00509.253l688 +++|*T RCAL   12/ FC,12/ MVSN,18/ STARTING OFFSET,18/ 1

Figure RCAL

09291  M01S00510.253l688 +++|*
09292  M01S00511.253l688 +++|*         MVSN               NONZERO, IF MORE VSN-S TO BE REQUESTED.
09293  M01S00512.253l688 +++|*         STARTING OFFSET    INDEX INTO TABLE TO ADD THESE VSN-S.
09294  M01S00513.253l688 +++|*                            A STARTING OFFSET OF ZERO CLEARS THE
09295  M01S00514.253l688 +++|*                            TABLE BEFORE COPYING THE VSN-S.
09296  M01S00515.253l688 +++|*
09297  M01S00516.253l688 +++|*         THE REMAINING WORDS HAVE THE FOLLOWING FORMAT-
09298  M01S00517.253l688 +++|*
09299  M01S00518.253l688 +++|*T        20/ ,1/B,3/RTY,12/ TF,24/ PACKED VSN

Figure

09300  M01S00519.253l688 +++|*
09301  M01S00520.253l688 +++|*         B                  SELECT BACKUP VSN.
09302  M01S00521.253l688 +++|*         RTY                RETRY COUNT.
09303  M01S00522.253l688 +++|*         TF                 *FCTF* FLAGS FROM PFC.
09304  M01S00523.253l688 +++|*         PACKED VSN         PACKED VSN OF STAGING TAPE (12/VP,12/VS)
09305  M01S00524.253l688 +++|*                            VP = TWO-CHARACTER DISPLAY CODE VSN PREFIX
09306  M01S00525.253l688 +++|*                            VS = NUMERIC VSN SUFFIX (0000 TO 4095).
09307  M01S00526.253l688 +++|*
09308  M01S00527.253l688 +++|*
09309  M01S00528.253l688 +++|*         *RER* (4) - REMOVE ENTRY FROM STAGE REQUEST TABLE.
09310  M01S00529.253l688 +++|*
09311  M01S00530.253l688 +++|*T RCAL   12/ FC,30/ UNIQUE ID,18/ 1

Figure RCAL

09312  M01S00531.253l688 +++|*
09313  M01S00532.253l688 +++|*         UNIQUE ID          UNIQUE IDENTIFIER OF ENTRY TO DELETE.
09314  M01S00533.253l688 +++|*
09315  M01S00534.253l688 +++|*
09316  M01S00535.253l688 +++|*         *TJE* (5) - TERMINATE ENTRY IN ACTIVE STAGE JOB TABLE.
09317  M01S00536.253l688 +++|*
09318  M01S00537.253l688 +++|*T RCAL   12/ FC,24/ JSN,6/ ,18/ 1

Figure RCAL

09319  M01S00538.253l688 +++|*
09320  M01S00539.253l688 +++|*         JSN                JSN OF JOB ENTRY TO DELETE FROM TABLE.
09321  M01S00540.253l688 +++|*
09322  M01S00541.253l688 +++|*
09323  M01S00542.253l688 +++|*         *QSR* (6) - REQUEUE STAGE REQUEST.
09324  M01S00543.253l688 +++|*
09325  M01S00544.253l688 +++|*T RCAL   12/ FC,20/ ,1/B,3/RTY,6/ ,18/ 8

Figure RCAL

09326  M01S00545.253l688 +++|*T,       6/ 1,3/ AL,19/ ,2/ P,6/ DN,12/ TRACK,12/ SECTOR

Figure

09327  M01S00546.253l688 +++|*T,       12/ TF,6/,18/ FSN,24/ PACKED VSN

Figure

09328  M01S00547.253l688 +++|*T,       42/ PFN,18/ UI

Figure

09329  M01S00548.253l688 +++|*T,       24/ JSN,15/ ,21/ EVENT

Figure

09330  M01S00549.253l688 +++|*T,       42/ FAMILY,18/

Figure

09331  M01S00550.253l688 +++|*T,       1/I,23/ LENGTH,36/ CREATION DATE-TIME

Figure

09332  M01S00551.253l688 +++|*
09333  M01S00552.253l688 +++|*
09334  M01S00553.253l688 +++|*         B                  SELECT BACKUP VSN.
09335  M01S00554.253l688 +++|*         RTY                RETRY COUNT.
09336  M01S00555.253l688 +++|*         AL                 ACCESS LEVEL OF THE FILE.
09337  M01S00556.253l688 +++|*         P                  *PFC* ENTRY ORDINAL.
09338  M01S00557.253l688 +++|*         DN                 DEVICE NUMBER.
09339  M01S00558.253l688 +++|*         TRACK              TRACK FOR THE *PFC* ENTRY.
09340  M01S00559.253l688 +++|*         SECTOR             SECTOR FOR THE *PFC* ENTRY.
09341  M01S00560.253l688 +++|*         TF                 *FCTF* FLAGS FROM PFC.
09342  M01S00561.253l688 +++|*         FSN                FILE SEQUENCE NUMBER ON ARCHIVE TAPE.
09343  M01S00562.253l688 +++|*         PACKED VSN         PACKED VSN OF STAGING TAPE (12/VP,12/VS)
09344  M01S00563.253l688 +++|*                            VP = TWO-CHARACTER DISPLAY CODE VSN PREFIX
09345  M01S00564.253l688 +++|*                            VS = NUMERIC VSN SUFFIX (0000 TO 4095).
09346  M01S00565.253l688 +++|*         PFN                PERMANENT FILE NAME.
09347  M01S00566.253l688 +++|*         UI                 USER INDEX.
09348  M01S00567.253l688 +++|*         JSN                JSN OF THE JOB REQUESTING THE FILE.
09349  M01S00568.253l688 +++|*         EVENT              EVENT THE JOB WILL ROLL OUT ON.
09350  M01S00569.253l688 +++|*         FAMILY             THE FAMILY/PACK CONTAINING THE PFC ENTRY.
09351  M01S00570.253l688 +++|*         I                  SET IF INDIRECT ACCESS FILE.
09352  M01S00571.253l688 +++|*         LENGTH             LENGTH OF THE FILE IN SECTORS.
09353  M01S00572.253l688 +++|*         CREATION DATE-TIME PACKED DATE AND TIME OF FILE CREATION.
09354  M01S00573.253l688 +++|*
09355  M01S00574.253l688 +++|*
09356  M01S00575.253l688 +++|*         *AIB* (7) - ALTER STAGE JOB INITIALIZATION BIT.
09357  M01S00576.253l688 +++|*
09358  M01S00577.253l688 +++|*T RCAL   12/ FC,24/ JSN,5/ ,1/I,18/ 1

Figure RCAL

09359  M01S00578.253l688 +++|*
09360  M01S00579.253l688 +++|*         JSN                JSN OF JOB ENTRY TO CHANGE.
09361  M01S00580.253l688 +++|*         I                  NEW VALUE FOR INITIALIZATION BIT.
09362  M01S00581.253l688 +++|*
09363  M01S00582.253l688 +++|*         ENTRY  (A5) = RCAL.
09364  M01S00583.253l688 +++|*                (X5) = FIRST WORD OF REQUEST.
09365  M01S00584.253l688 +++|*
09366  M01S00585.253l688 +++|*         EXIT   (X5) = 0, IF REQUEST PROCESSED.
09367  M01S00586.253l688 +++|*                (RCAL) CLEARED, IF REQUEST PROCESSED.
09368  M01S00587.253l688 +++|*                (X5) PRESERVED IF NOT TAPE ALTERNATE STORAGE REQUEST.
09369  M01S00588.253l688 +++|*                (A5) PRESERVED IF NOT TAPE ALTERNATE STORAGE REQUEST.
09370  M01S00589.253l688 +++|*
09371  M01S00590.253l688 +++|*         USES   X - 0, 1, 2, 3, 5, 6, 7.
09372  M01S00591.253l688 +++|*                A - 1, 2, 3, 5, 6, 7.
09373  M01S00592.253l688 +++|*                B - 2, 3, 4, 5, 6.
09374  M01S00593.253l688 +++|*
09375  M01S00594.253l688 +++|*         CALLS  FJE, QPR.
09376  M01S00098.ns22000 +++|
09377  M01S00099.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
09378  M02S00595.282l826 ---| CRJ10    BX5    X5-X5       INDICATE REQUEST PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
09379  M02S00596.282l826 ---|          BX6    X6-X6       CLEAR REQUEST

Seq #  *Modification Id* Act 
----------------------------+
09380  M02S00597.282l826 ---|          SA6    RCAL

Seq #  *Modification Id* Act 
----------------------------+
09381  M02S00100.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
09382  M03S00101.282l826 ---| MSG1     BX6    X6+X1

Seq #  *Modification Id* Act 
----------------------------+
09383  M03S00102.282l826 ---|          RJ     SYS=        PROCESS REQUEST

Seq #  *Modification Id* Act 
----------------------------+
09384  M02S00103.282l826 ---|

Seq #  *Modification Id* Act 
----------------------------+
09385  M03S00104.282l826 ---| MSG=     PS                 ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
09386  M03S00105.282l826 ---|          LX6    24          MERGE OPTION(S) AND ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
09387  M03S00106.282l826 ---|          BX1    X6+X1

Seq #  *Modification Id* Act 
----------------------------+
09388  M03S00107.282l826 ---|          SX6    3RMSG       FORM *MSG* REQUEST

Seq #  *Modification Id* Act 
----------------------------+
09389  M03S00108.282l826 ---|          LX6    42

Proceed to Part 13