65 Modifications

Seq #  *Modification Id* Act 
----------------------------+
12506  M01S05924.274l797 ---|*         ERROR EXITS.
12507  M01S05925.274l797 ---|
12508  M01S05926.274l797 ---| TBD17    SB2    /PER/TBE    *TAPE BLOCK DEFINITION ERROR.*
12509  M01S05927.274l797 ---|          EQ     PER         PROCESS ERROR
12510  M01S05928.274l797 ---|
12511  M01S05929.274l797 ---| TBD18    SB2    /PER/MNC    *MT/NT CONFLICT.*
12512  M01S05930.274l797 ---|          SA1    TBDA        GET RETURN ON TRACK CONFLICT FLAG
12513  M01S05931.274l797 ---|          NZ     X1,TBDX     IF RETURN REQUESTED
12514  M01S05932.274l797 ---|          EQ     PER         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
12515  M02S00013.274l797 ---|
12516  M02S00014.274l797 ---| TBD19    SB2    /PER/POC    * PROCESSING OPTION CONFLICT.*
12517  M02S00015.274l797 ---|          EQ     PER         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
12518  M01S05933.274l797 ---|
12519  M01S05934.274l797 ---|
12520  M01S05935.274l797 ---| TBDA     CON    0           SET IF RETURN REQUESTED ON TRACK CONFLICT
12521  M01S05936.274l797 ---|
12522  M01S05937.274l797 ---|
12523  M01S05938.274l797 ---|*         DENSITY AND CONVERSION SKELETON.
12524  M01S05939.274l797 ---|
12525  M01S05940.274l797 ---| TBDB     BSS    0
12526  M01S05941.274l797 ---|          VFD    3//COMSMTX/D05
12527  M01S05942.274l797 ---|          VFD    3//COMSMTX/D02
12528  M01S05943.274l797 ---|          VFD    3//COMSMTX/D08
12529  M01S05944.274l797 ---|          VFD    3//COMSMTX/D16
12530  M01S05945.274l797 ---|          VFD    3//COMSMTX/D62
12531  M01S05946.274l797 ---|          VFD    33/0
12532  M01S05947.274l797 ---|          VFD    3//COMSMTX/EBC
12533  M01S05948.274l797 ---|          VFD    3//COMSMTX/ANS
12534  M01S05949.274l797 ---|          VFD    3/0         INSTALLATION DEFAULT CONVERSION
12535  M01S05950.274l797 ---|          VFD    3/0         INSTALLATION DEFAULT DENSITY
12536  M01S05951.274l797 ---| VDD      SPACE  4,15
12537  M01S05952.274l797 ---|**        VDD - VERIFY DEPENDENT DEFAULTS.

Seq #  *Modification Id* Act 
----------------------------+
12538  M01S02363.274l797 +++| AP       CON    0           ASSEMBLY POINTER
12539  M01S02364.274l797 +++| DM       CON    0           DENSITY SELECTION VALID DEVICE TYPE MASK
12540  M01S02365.274l797 +++| LT       CON    0           LABEL TYPE SPECIFIED FLAG
12541  M01S02366.274l797 +++| RC       CON    0           RETENTION CYCLE
12542  M01S02367.274l797 +++| SC       CON    0           SEPARATOR CHARACTER
12543  M01S02368.274l797 +++| TT       CON    0           TAPE DEVICE TYPE SPECIFIED FLAG
12544  M01S02369.274l797 +++| VP       CON    0           VSN PROCESSED
12545  M01S02370.274l797 +++| TDEN     SPACE  4,15
12546  M01S02371.274l797 +++|**        TDEN - TABLE OF DENSITY OPTIONS.
12547  M00S05953.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
12548  M01S05954.274l797 ---|*         ENTRY  FET BUILT FROM OPTIONAL PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
12549  M03S00834.274l797 ---|*                (TMPF) = BIT 58 SET IF TMS CONTROLLED TAPE FILE.

Seq #  *Modification Id* Act 
----------------------------+
12550  M02S00580.274l797 ---|*                (TMPF) = BIT 58 SET IF *TMS* CONTROLLED TAPE FILE.

Seq #  *Modification Id* Act 
----------------------------+
12551  M01S02372.274l797 +++|*         42/ PARM,11/0,4/ TM,3/ DN
12552  M00S05955.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
12553  M01S05956.274l797 ---|*         EXIT   FET VERIFIED AND DEFAULTED AS REQUIRED.

Seq #  *Modification Id* Act 
----------------------------+
12554  M01S02373.274l797 +++|*         PARM   DENSITY PARAMTER (DISPLAY CODE)
12555  M01S02374.274l797 +++|*         TM     TAPE TYPE MASK = *MCNA*
12556  M01S02375.274l797 +++|*                *M* BIT SET IF OPTION VALID FOR *MT* DEVICE
12557  M01S02376.274l797 +++|*                *C* BIT SET IF OPTION VALID FOR *CT* DEVICE
12558  M01S02377.274l797 +++|*                *N* BIT SET IF OPTION VALID FOR *NT* DEVICE
12559  M01S02378.274l797 +++|*                *A* BIT SET IF OPTION VALID FOR *AT* DEVICE
12560  M00S05957.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
12561  M01S05958.274l797 ---|*         ERROR  TO *PER*, IF LABELED TAPE ERROR OR MT/NT CONFLICT.
12562  M01S05959.274l797 ---|*
12563  M01S05960.274l797 ---|*         USES   A - 1, 2, 3, 4, 5, 6.
12564  M01S05961.274l797 ---|*                B - 2.
12565  M01S05962.274l797 ---|*                X - ALL.
12566  M01S05963.274l797 ---|
12567  M01S05964.274l797 ---|
12568  M01S05965.274l797 ---| VDD5     SA6    F+FTAP      STORE TAPE DESCRIPTOR WITH DEFAULTS SET
12569  M01S05966.274l797 ---|          LX6    59-58       CHECK FOR PROPER FORMAT FOR LABELED TAPES
12570  M01S05967.274l797 ---|          BX2    -X6+X5
12571  M01S05968.274l797 ---|          SB2    /PER/ILF    * FORMAT REQUIRES UNLABELED TAPE.*
12572  M01S05969.274l797 ---|          PL     X2,PER      IF LABELED TAPE NOT PERMITTED
12573  M01S05970.274l797 ---|
12574  M01S05971.274l797 ---| VDD      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
12575  M03S00835.274l797 ---|          SA1    TMPF        CHECK IF *VDD* CALLED FOR TMS TAPE

Seq #  *Modification Id* Act 
----------------------------+
12576  M02S00581.274l797 ---|          SA1    TMPF        CHECK IF *VDD* CALLED FOR *TMS* TAPE

Seq #  *Modification Id* Act 
----------------------------+
12577  M02S00836.274l797 ---|          LX1    59-58

Seq #  *Modification Id* Act 
----------------------------+
12578  M03S00837.274l797 ---|          NG     X1,VDDX     IF TMS CONTROLLED TAPE FILE

Seq #  *Modification Id* Act 
----------------------------+
12579  M02S00582.274l797 ---|          NG     X1,VDDX     IF *TMS* CONTROLLED TAPE FILE

Seq #  *Modification Id* Act 
----------------------------+
12580  M01S05972.274l797 ---|          SA1    F+FTAP      VALIDATE USE OF FRAME SIZE AND NOISE
12581  M01S05973.274l797 ---|          SA3    DN
12582  M01S05974.274l797 ---|          SA2    MN
12583  M01S05975.274l797 ---|          SA5    VDDA
12584  M01S05976.274l797 ---|          MX0    1
12585  M01S05977.274l797 ---|          SA4    CV
12586  M01S05978.274l797 ---|          LX0    56-59
12587  M01S05979.274l797 ---|          SB2    /PER/MNC    * MT/NT CONFLICT.*
12588  M01S05980.274l797 ---|          BX0    X0*X1
12589  M01S05981.274l797 ---|          LX0    0-56
12590  M01S05982.274l797 ---|          BX6    -X0*X4
12591  M01S05983.274l797 ---|          LX0    59-56-0+56
12592  M01S05984.274l797 ---|          NZ     X6,PER      IF MT AND CV PROCESSED
12593  M01S05985.274l797 ---|          PL     X3,VDD1     IF D=800 PROCESSED
12594  M01S05986.274l797 ---|          LX3    1
12595  M01S05987.274l797 ---|          BX6    X0-X3
12596  M01S05988.274l797 ---|          NG     X6,PER      IF CONFLICT WITH DENSITY TRACK SELECTION
12597  M01S05989.274l797 ---|          LX3    -1
12598  M01S05990.274l797 ---| VDD1     LX2    -1
12599  M01S05991.274l797 ---|          ZR     X2,VDD2     IF MT/NT NOT SPECIFIED
12600  M01S05992.274l797 ---|          BX6    X0-X2
12601  M01S05993.274l797 ---|          NG     X6,PER      IF TRACK CONFLICT WITH MT/NT SELECTION
12602  M01S05994.274l797 ---| VDD2     BX4    X2+X4
12603  M01S05995.274l797 ---|          NZ     X4,VDD3     IF MT/NT OR CV PROCESSED
12604  M01S05996.274l797 ---|          NG     X3,VDD3     IF DENSITY FORCED TRACK SELECTION
12605  M01S05997.274l797 ---|          SA3    AA
12606  M01S05998.274l797 ---|          ZR     X3,VDD3     IF OPERATOR TO ASSIGN EQUIPMENT
12607  M01S05999.274l797 ---|          SA3    /LWC/IPRL   SET DEFAULT TRACK TYPE
12608  M01S06000.274l797 ---|          SX4    40B
12609  M01S06001.274l797 ---|          BX4    X4*X3
12610  M01S06002.274l797 ---|          LX4    56-5
12611  M01S06003.274l797 ---|          BX1    X1+X4
12612  M01S06004.274l797 ---| VDD3     BX6    X1
12613  M01S06005.274l797 ---|          LX1    -30
12614  M01S06006.274l797 ---|          MX0    -6
12615  M01S06007.274l797 ---|          BX7    -X0*X1      FORMAT
12616  M01S06008.274l797 ---|          SB2    X7
12617  M01S06009.274l797 ---|          LX5    X5,B2
12618  M01S06010.274l797 ---|          SA3    NS
12619  M01S06011.274l797 ---|          BX2    X5
12620  M01S06012.274l797 ---|          SA4    FC
12621  M01S06013.274l797 ---|          LX2    20
12622  M01S06014.274l797 ---|          BX2    -X3+X2
12623  M01S06015.274l797 ---|          BX3    -X5*X4
12624  M01S06016.274l797 ---|          NG     X3,ERR      IF USE OF FRAME SIZE IMPROPER
12625  M01S06017.274l797 ---|          PL     X2,ERR      IF USE OF NOISE IMPROPER
12626  M01S06018.274l797 ---|          SA3    RT
12627  M01S06019.274l797 ---|          SA4    VP          CHECK VSN= PROCESSED
12628  M01S06020.274l797 ---|          MX7    1
12629  M01S06021.274l797 ---|          LX5    40          POSITION LABEL LEGALITY BIT
12630  M01S06022.274l797 ---|          SA2    LB          CHECK LB= PROCESSED
12631  M01S06023.274l797 ---|          NZ     X2,VDD5     IB LB= PROCESSED, NO DEFAULT
12632  M01S06024.274l797 ---|          ZR     X3,VDD4     IF *LABEL*
12633  M01S06025.274l797 ---|          ZR     X4,VDD5     IF NO VSN= PARAMETER
12634  M01S06026.274l797 ---| VDD4     LX7    -1          SET DEFAULT TO *KL*
12635  M01S06027.274l797 ---|          BX6    X7+X6
12636  M01S06028.274l797 ---|          EQ     VDD5        STORE TAPE DESCRIPTOR
12637  M01S06029.274l797 ---|
12638  M01S06030.274l797 ---|
12639  M01S06031.274l797 ---|*         FRAME SIZE, NOISE, AND LABEL LEGALITY TABLES.
12640  M01S06032.274l797 ---|*         TABLE  LEFT MOST BIT = FORMAT 0, ETC.
12641  M01S06033.274l797 ---|*                BIT SET = 1 IF PERMITTED.
12642  M01S06034.274l797 ---|
12643  M01S06035.274l797 ---| VDDA     VFD    1/0,1/0,1/1,1/0,1/0,15/0  FRAME
12644  M01S06036.274l797 ---|          VFD    1/0,1/0,1/1,1/1,1/1,15/0  NOISE
12645  M01S06037.274l797 ---|          VFD    1/1,1/1,1/0,1/1,1/1,15/0  LABELS
12646  M01S06038.274l797 ---|          SPACE  4,10
12647  M01S06039.274l797 ---|**        TEMPORARIES.
12648  M01S06040.274l797 ---|
12649  M01S06041.274l797 ---|
12650  M01S06042.274l797 ---| AE       CON    0           EQUIPMENT SPECIFIED BY ASSIGN
12651  M01S06043.274l797 ---| AP       CON    0           ASSEMBLY POINTER
12652  M01S06044.274l797 ---| CV       CON    0           CONVERSION MODE FLAG
12653  M01S06045.274l797 ---| DN       CON    0           DENSITY PROCESSED
12654  M01S06046.274l797 ---| FC       CON    0           FC= PROCESSED
12655  M01S06047.274l797 ---| FP       CON    0           F= PROCESSED
12656  M01S06048.274l797 ---| LB       CON    0           LB= PROCESSED
12657  M01S06049.274l797 ---| MN       CON    0           MT/NT OPTION
12658  M01S06050.274l797 ---| NS       CON    0           NS= PROCESSED
12659  M01S06051.274l797 ---| ODTD     CON    0           ORIGINAL DEVICE TYPE DEFINITION
12660  M01S06052.274l797 ---| RC       CON    0           RETENTION CYCLE

Seq #  *Modification Id* Act 
----------------------------+
12661  M02S00526.274l797 ---| SC       CON    0           SEPERATOR CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
12662  M01S06053.274l797 ---| VP       CON    0           VSN= PROCESSED
12663  M01S06054.274l797 ---| TDEN     SPACE  4,10
12664  M01S06055.274l797 ---|**        TDEN - TABLE OF DENSITY OPTIONS.
12665  M01S06056.274l797 ---|*
12666  M01S06057.274l797 ---|*         24/ PARM, 29/, 1/ M, 3/ TR, 3/ DN
12667  M01S06058.274l797 ---|*
12668  M01S06059.274l797 ---|*         PARM   DENSITY PARAMTER (DISPLAY CODE)
12669  M01S06060.274l797 ---|*         M      7- OR 9-TRACK SELECTION MUST MATCH THAT SPECIFIED
12670  M01S06061.274l797 ---|*                BY TR
12671  M01S06062.274l797 ---|*         TR     TRACK SELECTION (0=MT, 4=NT)
12672  M01S06063.274l797 ---|*         DN     DENSITY SELECTION (1=556,2=200,3=800,4=1600,5=6250)

Seq #  *Modification Id* Act 
----------------------------+
12673  M01S02379.274l797 +++|*         DN     DENSITY SELECTION (1=556,2=200,3=800,4=1600,5=6250,
12674  M01S02380.274l797 +++|*                  6=38000)
12675  M00S06064.resex   +++|
12676  M00S06065.resex   +++|
12677  M00S06066.resex   +++| TDEN     BSS    0
12678  M00S06067.resex   +++|          QUAL   TDEN
12679  M00S06068.resex   +++|          LOC    0

Seq #  *Modification Id* Act 
----------------------------+
12680  M01S06069.274l797 ---|          VFD    24/0L200,29/0,1/1,3/0,3/2   200 BPI 7-TRACK
12681  M01S06070.274l797 ---|          VFD    24/0L556,29/0,1/1,3/0,3/1   556 BPI 7-TRACK
12682  M01S06071.274l797 ---|          VFD    24/0L800,29/0,1/0,3/0,3/3   800 BPI 7- OR 9-TRACK
12683  M01S06072.274l797 ---|          VFD    24/0L1600,29/0,1/1,3/4,3/4  1600 CPI 9-TRACK
12684  M01S06073.274l797 ---|          VFD    24/0L6250,29/0,1/1,3/4,3/5  6250 BPI 9-TRACK
12685  M01S06074.274l797 ---| LO       VFD    24/0LLO,29/0,1/1,3/0,3/2    200 BPI 7-TRACK
12686  M01S06075.274l797 ---| HI       VFD    24/0LHI,29/0,1/1,3/0,3/1    556 BPI 7-TRACK
12687  M01S06076.274l797 ---| HY       VFD    24/0LHY,29/0,1/1,3/0,3/3    800 BPI 7-TRACK
12688  M01S06077.274l797 ---| HD       VFD    24/0LHD,29/0,1/1,3/4,3/3    800 CPI 9-TRACK
12689  M01S06078.274l797 ---| PE       VFD    24/0LPE,29/0,1/1,3/4,3/4    1600 CPI 9-TRACK
12690  M01S06079.274l797 ---| GE       VFD    24/0LGE,29/0,1/1,3/4,3/5    6250 CPI 9-TRACK

Seq #  *Modification Id* Act 
----------------------------+
12691  M01S02381.274l797 +++|
12692  M01S02382.274l797 +++|*         NUMERICAL KEYWORD ENTRIES.  THE ORDER MUST BE BY DENSITY IN
12693  M01S02383.274l797 +++|*         *COMSMTX* FORMAT.
12694  M01S02384.274l797 +++|
12695  M01S02385.274l797 +++|          VFD    42/0L200,11/0,4/10B,3/2  200 BPI *MT*
12696  M01S02386.274l797 +++|          VFD    42/0L556,11/0,4/10B,3/1  556 BPI *MT*
12697  M01S02387.274l797 +++|          VFD    42/0L800,11/0,4/12B,3/3  800 BPI *MT* OR *NT*
12698  M01S02388.274l797 +++|          VFD    42/0L1600,11/0,4/2,3/4   1600 CPI *NT*
12699  M01S02389.274l797 +++|          VFD    42/0L6250,11/0,4/2,3/5   6250 BPI *NT*
12700  M01S02390.274l797 +++|          VFD    42/0L38000,11/0,4/5,3/6  38000 CPI *CT* OR *AT*
12701  M01S02391.274l797 +++|
12702  M01S02392.274l797 +++|*         SEVEN TRACK DENSITY MNEMONICS.  THE ORDER MUST BE BY DENSITY
12703  M01S02393.274l797 +++|*         IN *COMSMTX* FORMAT.
12704  M01S02394.274l797 +++|
12705  M01S02395.274l797 +++| LO       VFD    42/0LLO,11/0,4/10B,3/2   200 BPI *MT*
12706  M01S02396.274l797 +++| HI       VFD    42/0LHI,11/0,4/10B,3/1   556 BPI *MT*
12707  M01S02397.274l797 +++| HY       VFD    42/0LHY,11/0,4/10B,3/3   800 BPI *MT*
12708  M01S02398.274l797 +++|
12709  M01S02399.274l797 +++|*         NINE TRACK DENSITY MNEMONICS.  THE ORDER MUST BE BY DENSITY
12710  M01S02400.274l797 +++|*         IN *COMSMTX* FORMAT.
12711  M01S02401.274l797 +++|
12712  M01S02402.274l797 +++| HD       VFD    42/0LHD,11/0,4/2,3/3     800 CPI *NT*
12713  M01S02403.274l797 +++| PE       VFD    42/0LPE,11/0,4/2,3/4     1600 CPI *NT*
12714  M01S02404.274l797 +++| GE       VFD    42/0LGE,11/0,4/2,3/5     6250 CPI *NT*
12715  M01S02405.274l797 +++|
12716  M01S02406.274l797 +++|*         CARTRIDGE TAPE DENSITY MNEMONIC.
12717  M01S02407.274l797 +++|
12718  M01S02408.274l797 +++| CE       VFD    42/0LCE,11/0,4/4,3/6     38000 CPI *CT*
12719  M01S02409.274l797 +++|
12720  M01S02410.274l797 +++|*         ACS CARTRIDGE TAPE DENSITY MNEMONIC.
12721  M01S02411.274l797 +++|
12722  M01S02412.274l797 +++| AE       VFD    42/0LAE,11/0,4/1,3/6     38000 CPI  *AT*
12723  M01S02413.274l797 +++|
12724  M00S06080.resex   +++|          LOC *O
12725  M00S06081.resex   +++|          QUAL   *
12726  M00S06082.resex   +++|          CON    0           END OF TABLE
12727  M00S06083.resex   +++|          SPACE  4,10
12728  M00S06084.resex   +++|**        COMMON DECKS USED IN PRESET.
12729  M00S06085.resex   +++|
12730  M00S06086.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
12731  M01S06087.v23l617 ---| RCC      SET    1           DEFINE STATEMENT READ AHEAD FOR *COMCPOP*

Seq #  *Modification Id* Act 
----------------------------+
12732  M01S00090.v23l617 +++| RCC      SET    1           DEFINE COMMAND READ AHEAD FOR *COMCPOP*

Seq #  *Modification Id* Act 
----------------------------+
12733  M01S00527.ns22000 +++|*CALL     COMCVLC

Seq #  *Modification Id* Act 
----------------------------+
12734  M01S06088.274l797 ---|*CALL     COMCDXB

Seq #  *Modification Id* Act 
----------------------------+
12735  M01S00838.252l678 +++|
12736  M01S00839.252l678 +++|*         REDEFINE *CONTROL* MACRO TO CALL SUBROUTINE *IDF*.
12737  M01S00840.252l678 +++|
12738  M01S00841.252l678 +++| .CONTRL  OPSYN  CONTROL
12739  M01S00842.252l678 +++|          PURGMAC  CONTROL
12740  M01S00843.252l678 +++| CONTROL  MACRO  AD,RS,LF,PS
12741  M01S00844.252l678 +++|          .CONTRL  AD,RS,LF,PS
12742  M01S00845.252l678 +++|          IFC    EQ,$RS$$,1
12743  M01S00846.252l678 +++|          RJ     IDF         ISSUE DAYFILE MESSAGE
12744  M01S00847.252l678 +++| CONTROL  ENDM
12745  M01S00848.252l678 +++|
12746  M00S06089.resex   +++| LIT      CON    0           DEFINE LITERAL PROCESSING
12747  M00S06090.resex   +++|*CALL     COMCPOP

Seq #  *Modification Id* Act 
----------------------------+
12748  M01S00849.252l678 +++|
12749  M01S00850.252l678 +++|*         RESTORE *CONTROL* MACRO.
12750  M01S00851.252l678 +++|
12751  M01S00852.252l678 +++| CONTROL  OPSYN  .CONTRL
12752  M01S00853.252l678 +++|
12753  M01S00854.252l678 +++|*CALL     COMCRSP
12754  M00S06091.resex   +++|*CALL     COMCUSB

Seq #  *Modification Id* Act 
----------------------------+
12755  M01S06092.274l797 ---|
12756  M01S06093.274l797 ---|
12757  M01S06094.274l797 ---|*         OVERLAY 1 AREA CODE MUST NOT EXTEND INTO OVERLAY 2 AREA.
12758  M01S06095.274l797 ---|
12759  M01S06096.274l797 ---|          ERRNG  OVL2-*      CODE OVERFLOWS INTO OVERLAY 2 AREA

Seq #  *Modification Id* Act 
----------------------------+
12760  M02S06097.274l797 ---|          TITLE  VSN STATEMENT PRESET.

Seq #  *Modification Id* Act 
----------------------------+
12761  M02S00091.274l797 ---|          TITLE  VSN COMMAND PRESET.

Seq #  *Modification Id* Act 
----------------------------+
12762  M01S06098.274l797 ---|          SPACE  4,10
12763  M01S06099.274l797 ---|**        THE FOLLOWING CODE CAN BE OVERLAID BY OVERLAY AREA 2
12764  M01S06100.274l797 ---|*         (RESOURCE ENVIRONMENT BUFFERS) OR ANY PRIOR OVERLAY.
12765  M01S06101.274l797 ---| VSN      SPACE  4,10
12766  M01S06102.274l797 ---|***       VSN    (F1=VSN1,F2=VSN2,...,FN=VSNN)
12767  M01S06103.274l797 ---|*
12768  M01S06104.274l797 ---|*                ASSOCIATE MAGNETIC TAPE REELS WITH VOLUME SERIAL
12769  M01S06105.274l797 ---|*                NUMBERS TO FILE *FI*.
12770  M01S06106.274l797 ---|
12771  M01S06107.274l797 ---|
12772  M01S06108.274l797 ---| VSN      SX5    VSNC

Seq #  *Modification Id* Act 
----------------------------+
12773  M02S06109.274l797 ---|          RJ     CCP         CONTROL STATEMENT PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
12774  M02S00092.274l797 ---|          RJ     CCP         COMMAND PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
12775  M01S06110.274l797 ---|          SA1    /CPA/RFCW
12776  M01S06111.274l797 ---|          SX1    X1
12777  M01S06112.274l797 ---|          SX7    B1          INDICATE VSN ENTRY TO BE MADE
12778  M01S06113.274l797 ---|          SA7    VP
12779  M01S06114.274l797 ---|          NZ     X1,VSN1     IF DEMAND ENTRY EXISTS
12780  M01S06115.274l797 ---|          RJ     IDE         INITIALIZE DEMAND ENTRY
12781  M01S06116.274l797 ---| VSN1     SA1    AP
12782  M01S06117.274l797 ---|          SB6    X1          RESET ASSEMBLY POINTER

Seq #  *Modification Id* Act 
----------------------------+
12783  M02S06118.274l797 ---|          BX4    X4-X4       INDICATE *VSN* STATEMENT CALL
12784  M02S06119.274l797 ---|          ZR     X1,END5     IF END OF CARD

Seq #  *Modification Id* Act 
----------------------------+
12785  M02S00093.274l797 ---|          BX4    X4-X4       INDICATE *VSN* COMMAND CALL
12786  M02S00094.274l797 ---|          ZR     X1,END5     IF END OF COMMAND

Seq #  *Modification Id* Act 
----------------------------+
12787  M01S06120.274l797 ---|          RJ     BVE         BUILD VSN ENTRY
12788  M01S06121.274l797 ---|          SA1    VSNE+VLFN
12789  M01S06122.274l797 ---|          SX6    B1
12790  M01S06123.274l797 ---|          BX6    X1+X6
12791  M01S06124.274l797 ---|          SA6    VF
12792  M01S06125.274l797 ---|          RJ     FSC         CHECK FOR EXISTING FILE
12793  M01S06126.274l797 ---|          NZ     B7,VSN1     IF FILE ALREADY ASSIGNED
12794  M01S06127.274l797 ---|          RJ     MFE         MAKE VSN FILE ENTRY
12795  M01S06128.274l797 ---|          EQ     VSN1        PROCESS NEXT FILE
12796  M01S06129.274l797 ---|          TITLE  LFM EXTERNAL PROCESSOR PRESET.

Seq #  *Modification Id* Act 
----------------------------+
12797  M01S02414.274l797 +++|          TITLE  LFM *DMP=* CALL PRESET.
12798  M00S06130.resex   +++| LFM      SPACE  4,10
12799  M00S06131.resex   +++|***       LFM - PROCESS CALL FROM *LFM*.
12800  M00S06132.resex   +++|*
12801  M00S06133.resex   +++|*         ENTRY  (SPPR) = *LFM* CALL.
12802  M00S06134.resex   +++|*T  SPPR  18/ *LFM*, 12/, 6/ CODE, 6/, 18/ FET ADDRESS

Figure SPPR

12803  M00S06135.resex   +++|*                CODE = LFM FUNCTION CODE
12804  M00S06136.resex   +++|
12805  M00S06137.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
12806  M01S06138.274l797 ---| LFM      SB1    1           (B1) = 1

Seq #  *Modification Id* Act 
----------------------------+
12807  M01S02415.274l797 +++| LFM      BSS    0           ENTRY
12808  M01S02416.274l797 +++|
12809  M01S02417.274l797 +++|*         VALIDATE CALL.
12810  M01S02418.274l797 +++|
12811  M01S02419.274l797 +++|          SB1    1           (B1) = 1

Seq #  *Modification Id* Act 
----------------------------+
12812  M01S06139.v23l617 ---|          SA1    ACTR        CHECK FOR CONTROL CARD CALL
12813  M01S06140.v23l617 ---|          SB2    /PER/CCI    *ILLEGAL CONTROL CARD.*
12814  M01S06141.v23l617 ---|          NZ     X1,PER      IF CONTROL CARD CALL

Seq #  *Modification Id* Act 
----------------------------+
12815  M01S00095.v23l617 +++|          SA1    ACTR        CHECK FOR COMMAND CALL
12816  M01S00096.v23l617 +++|          SB2    /PER/CCI    *INCORRECT COMMAND.*
12817  M01S00097.v23l617 +++|          NZ     X1,PER      IF COMMAND CALL
12818  M00S06142.resex   +++|          SX7    1
12819  M00S06143.resex   +++|          SA7    CF          SET CALL FLAG
12820  M00S06144.resex   +++|          RJ     PCV         PRESET CONTROL POINT VALUES
12821  M00S06145.resex   +++|          SA1    SPPR

Seq #  *Modification Id* Act 
----------------------------+
12822  M01S06146.274l797 ---|          SX0    77B

Seq #  *Modification Id* Act 
----------------------------+
12823  M01S02420.274l797 +++|          MX0    -6
12824  M01S02421.274l797 +++|          SX7    B0
12825  M00S06147.resex   +++|          LX1    -24

Seq #  *Modification Id* Act 
----------------------------+
12826  M01S06148.274l797 ---|          BX6    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
12827  M01S02422.274l797 +++|          BX6    -X0*X1
12828  M00S06149.resex   +++|          SX6    X6-/LFM/RENAME

Seq #  *Modification Id* Act 
----------------------------+
12829  M01S06150.253l688 ---|          ZR     X6,LFM2     IF *RENAME*

Seq #  *Modification Id* Act 
----------------------------+
12830  M01S00583.253l688 +++|          ZR     X6,LFM4     IF *RENAME*

Seq #  *Modification Id* Act 
----------------------------+
12831  M02S00013.274l797 ---|          SX7    B0+         INDICATE FILE NOT PREVIOUSLY ASSIGNED
12832  M02S00014.274l797 ---|          SA7    FS

Seq #  *Modification Id* Act 
----------------------------+
12833  M01S02423.274l797 +++|          SX6    X6-/LFM/LABEL+/LFM/RENAME
12834  M01S02424.274l797 +++|          SB2    /PER/ILC    * INCORRECT LFM CALL.*
12835  M01S02425.274l797 +++|          NZ     X6,PER      IF NOT *LABEL*
12836  M01S02426.274l797 +++|
12837  M01S02427.274l797 +++|*         PROCESS *LABEL* REQUEST.
12838  M01S02428.274l797 +++|
12839  M01S02429.274l797 +++|          SA7    FS          INDICATE FILE NOT PREVIOUSLY ASSIGNED
12840  M00S06151.resex   +++|          RJ     CLF         CONVERT LFM CALL TO FET
12841  M00S06152.resex   +++|          RJ     SVI         SET VSN INDEX

Seq #  *Modification Id* Act 
----------------------------+
12842  M02S00855.274l797 ---|          RJ     FRA         PROCESS FIRST REEL ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
12843  M01S02430.274l797 +++|          RJ     FRA         CHECK FOR *TMS* FIRST REEL ASSIGNMENT
12844  M00S06153.resex   +++|          MX1    36
12845  M00S06154.resex   +++|          SA5    F+FVSN      CHECK FOR VSN
12846  M00S06155.resex   +++|          MX0    -11
12847  M00S06156.resex   +++|          BX5    X1*X5
12848  M00S06157.resex   +++|          SX7    B0

Seq #  *Modification Id* Act 
----------------------------+
12849  M01S06158.274l797 ---|          ZR     X5,LFM1     IF NO VSN DEFINED
12850  M01S06159.274l797 ---|          RJ     CJV         CHECK JOB VALIDATION
12851  M01S06160.274l797 ---|          RJ     TBD         CHECK TAPE DESCRIPTORS
12852  M01S06161.274l797 ---|          EQ     RMT         REQUEST MAGNETIC TAPE

Seq #  *Modification Id* Act 
----------------------------+
12853  M01S02431.274l797 +++|          NZ     X5,VTR      IF VSN DEFINED
12854  M00S06162.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
12855  M01S06163.253l688 ---| LFM1     SA1    F+FDTY      CHECK DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
12856  M01S00584.253l688 +++|*         CHECK FOR SPECIAL *PFRES* INTERNAL LABEL REQUEST.
12857  M01S00585.253l688 +++|

Seq #  *Modification Id* Act 
----------------------------+
12858  M02S00586.274l797 ---| LFM1     RDSB   MTSI,1,/COMSMTX/TAJP,LFMA,X  READ JOB TABLE POINTER

Seq #  *Modification Id* Act 
----------------------------+
12859  M01S02432.274l797 +++|          RDSB   MTSI,1,/COMSMTX/TAJP,LFMA,X  READ JOB TABLE POINTER

Seq #  *Modification Id* Act 
----------------------------+
12860  M01S00587.253l688 +++|          SA1    SS          READ STATUS WORD
12861  M01S00588.253l688 +++|          SA5    LFMA
12862  M01S00589.253l688 +++|          SX7    B0+
12863  M01S00590.253l688 +++|          PL     X1,LFM3     IF FAILURE IN READ
12864  M01S00591.253l688 +++|          ZR     X5,LFM3     IF TAPE ALTERNATE STORAGE NOT ENABLED
12865  M01S00592.253l688 +++|          SX7    X5          SET FWA OF BLOCK
12866  M01S00593.253l688 +++|          AX5    48
12867  M01S00594.253l688 +++|          SB2    X5          NUMBER OF WORDS IN STAGING JOB TABLE
12868  M01S00595.253l688 +++|          RDSB   MTSI,X5,X7,ASJT  READ JOB TABLE

Seq #  *Modification Id* Act 
----------------------------+
12869  M02S00596.282l826 ---|          SA1    /EJT/JSNE

Seq #  *Modification Id* Act 
----------------------------+
12870  M01S00896.282l826 +++|          SA1    JSN

Seq #  *Modification Id* Act 
----------------------------+
12871  M01S00597.253l688 +++|          MX2    24

Seq #  *Modification Id* Act 
----------------------------+
12872  M02S00598.282l826 ---|          SX7    B0+

Seq #  *Modification Id* Act 
----------------------------+
12873  M01S00897.282l826 +++|          SX7    B0

Seq #  *Modification Id* Act 
----------------------------+
12874  M01S00599.253l688 +++| LFM2     SB2    B2-B1
12875  M01S00600.253l688 +++|          SA3    ASJT+B2
12876  M01S00601.253l688 +++|          BX4    X3-X1
12877  M01S00602.253l688 +++|          BX4    X2*X4       ISOLATE JSN COMPARISION

Seq #  *Modification Id* Act 
----------------------------+
12878  M02S00603.274l797 ---|          ZR     X4,LFM5     IF THIS ENTRY (SPECIAL VSN DETERMINATION)

Seq #  *Modification Id* Act 
----------------------------+
12879  M01S02433.274l797 +++|          ZR     X4,GVS      IF JSN MATCHES, GET VSN FOR STAGING TAPE

Seq #  *Modification Id* Act 
----------------------------+
12880  M01S00604.253l688 +++|          GT     B2,LFM2     IF NOT END OF TABLE
12881  M01S00605.253l688 +++|
12882  M01S00606.253l688 +++|*         NORMAL REQUEST WITH NO VSN - REQUEST OPERATOR ASSIGNMENT.
12883  M01S00607.253l688 +++|
12884  M01S00608.253l688 +++| LFM3     SA1    F+FDTY      CHECK DEVICE TYPE
12885  M00S06164.resex   +++|          SA7    AA          SET OPERATOR ASSIGNMENT FLAG
12886  M00S06165.resex   +++|          LX1    12

Seq #  *Modification Id* Act 
----------------------------+
12887  M01S06166.274l797 ---|          BX0    -X0*X1
12888  M01S06167.274l797 ---|          SX2    X0-2RMT
12889  M01S06168.274l797 ---|          ZR     X2,LAB6     IF *MT* DEVICE TYPE SPECIFIED
12890  M01S06169.274l797 ---|          SX2    X0-2RNT
12891  M01S06170.274l797 ---|          NZ     X2,LAB7     IF NOT *NT* DEVICE TYPE
12892  M01S06171.274l797 ---|          EQ     LAB6        REQUEST OPERATOR ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
12893  M01S02434.274l797 +++|          BX7    -X0*X1
12894  M01S02435.274l797 +++|          RJ     CTE         CHECK FOR TAPE EQUIPMENT DEVICE CODE
12895  M01S02436.274l797 +++|          ZR     X2,ROE      IF TAPE DEVICE NOT SPECIFIED
12896  M01S02437.274l797 +++|          EQ     VTR         VALIDATE TAPE REQUEST
12897  M00S06172.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
12898  M01S06173.253l688 ---| LFM2     SA3    SFET        GET FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
12899  M01S00609.253l688 +++|*         PROCESS *RENAME*.
12900  M01S00610.253l688 +++|
12901  M01S00611.253l688 +++| LFM4     SA3    SFET        GET FILE NAME
12902  M00S06174.resex   +++|          SB2    B0+         SET UP IDENTIFICATION IN VSN ENTRY
12903  M00S06175.resex   +++|          RJ     IVE
12904  M00S06176.resex   +++|          RJ     SVE
12905  M00S06177.resex   +++|          SB2    /PER/VFE    * VSN FILE ERROR.*
12906  M00S06178.resex   +++|          NZ     X5,PER      IF ENTRY NOT FOUND

Seq #  *Modification Id* Act 
----------------------------+
12907  M01S06179.ns21000 ---|          MOVE   RDEL,VSNB,VSNE

Seq #  *Modification Id* Act 
----------------------------+
12908  M01S00615.ns21000 +++|          MOVE   VSNL,VSNB,VSNE
12909  M00S06180.resex   +++|          SA1    SFET+FNFN   READ NEW FILE NAME
12910  M00S06181.resex   +++|          MX0    -18
12911  M00S06182.resex   +++|          BX6    X0*X1
12912  M00S06183.resex   +++|          SA6    VSNE+VLFN   ENTER NEW FILE NAME
12913  M00S06184.resex   +++|          BX7    -X0*X1
12914  M00S06185.resex   +++|          BX7    X7+X6
12915  M00S06186.resex   +++|          SA7    SFET        ENTER NEW FILE NAME
12916  M00S06187.resex   +++|          RJ     MVE         UPDATE VSN FILE
12917  M00S06188.resex   +++|          EQ     END1        RETURN OK STATUS AND END

Seq #  *Modification Id* Act 
----------------------------+
12918  M02S00612.274l797 ---|
12919  M02S00613.274l797 ---|*         PROCESS SPECIAL *PFRES* INTERNAL LABEL REQUEST.
12920  M02S00614.274l797 ---|
12921  M02S00615.274l797 ---| LFM5     RJ     CJV         CHECK JOB VALIDATION
12922  M02S00616.274l797 ---|          RJ     TBD         BUILD TAPE BLOCK DEFINITION
12923  M02S00617.274l797 ---|          MEMORY CM,FLST,R,RFL3  GET ADDITIONAL MEMORY

Seq #  *Modification Id* Act 
----------------------------+
12924  M03S00618.274l797 ---| LFM6     ATTACH R,,,,W,,,DF,RT  ATTACH STAGE REQUEST FILE

Seq #  *Modification Id* Act 
----------------------------+
12925  M02S00004.274l797 ---| LFM6     ATTACH R,,,,W,,,DF,,RT  ATTACH STAGE REQUEST FILE

Seq #  *Modification Id* Act 
----------------------------+
12926  M02S00619.274l797 ---|          SA1    X2          CHECK FOR ERRORS
12927  M02S00620.274l797 ---|          MX6    -8
12928  M02S00621.274l797 ---|          AX1    10-0
12929  M02S00622.274l797 ---|          BX1    -X6*X1      EXTRACT ERROR CODE
12930  M02S00623.274l797 ---|          ZR     X1,LFM10    IF FILE ATTACHED SUCCESSFULLY
12931  M02S00624.274l797 ---|          SX2    X1-/ERRMSG/FBS
12932  M02S00625.274l797 ---|          ZR     X2,LFM7     IF FILE BUSY
12933  M02S00626.274l797 ---|          SX2    X1-/ERRMSG/FNF
12934  M02S00627.274l797 ---|          ZR     X2,LFM8     IF FILE NOT FOUND
12935  M02S00628.274l797 ---|          SX2    X1-/ERRMSG/PFA
12936  M02S00629.274l797 ---|          NZ     X2,LFM6     IF NOT PF UTILITY ACTIVE
12937  M02S00630.274l797 ---| LFM7     INTRP  PIT         PROCESS INTERRUPT
12938  M02S00631.274l797 ---|          MESSAGE LFMB,2,R   POST MESSAGE
12939  M02S00632.274l797 ---|          ROLLOUT            ROLLOUT ON BUSY FILE
12940  M02S00633.274l797 ---|          REWIND S1,R        ASSURE ROLLOUT COMPLETE
12941  M02S00634.274l797 ---|          EQ     LFM6        RETRY *ATTACH*
12942  M02S00635.274l797 ---|
12943  M02S00636.274l797 ---|*         DEFINE FILE IF FILE MISSING.
12944  M02S00637.274l797 ---|
12945  M02S00638.274l797 ---| LFM8     RETURN R
12946  M02S00639.274l797 ---| LFM9     RECALL             GIVE UP CPU
12947  M02S00640.274l797 ---|          DEFINE R,,,,,,,,,DF,N,L
12948  M02S00641.274l797 ---|          SA1    X2
12949  M02S00642.274l797 ---|          MX6    -8
12950  M02S00643.274l797 ---|          AX1    10-0
12951  M02S00644.274l797 ---|          BX1    -X6*X1      EXTRACT ERROR CODE
12952  M02S00645.274l797 ---|          ZR     X1,LFM10    IF DEFINE SUCCESSFUL
12953  M02S00646.274l797 ---|          SX2    X1-/ERRMSG/PFA
12954  M02S00647.274l797 ---|          NZ     X2,LFM9     IF NOT PF UTILITY ACTIVE
12955  M02S00648.274l797 ---|          INTRP  PIT         PROCESS INTERRUPT
12956  M02S00649.274l797 ---|          MESSAGE LFMB,2,R   POST MESSAGE
12957  M02S00650.274l797 ---|          ROLLOUT            ROLLOUT ON UTILITY ACTIVE
12958  M02S00651.274l797 ---|          REWIND S1,R        ASSURE ROLLOUT COMPLETE
12959  M02S00652.274l797 ---|          EQ     LFM9        RETRY *DEFINE*
12960  M02S00653.274l797 ---|
12961  M02S00654.274l797 ---|*         FILE ATTACHED OR DEFINED.  EXIT TO *GVS*.
12962  M02S00655.274l797 ---|
12963  M02S00656.274l797 ---| LFM10    BX6    X6-X6       SET *FILE ATTACHED* FLAG
12964  M02S00657.274l797 ---|          SA6    R-1
12965  M02S00658.274l797 ---|          EQ     GVS         GET VSN OF STAGING TAPE

Seq #  *Modification Id* Act 
----------------------------+
12966  M01S00659.253l688 +++|
12967  M01S00660.253l688 +++|
12968  M01S00661.253l688 +++| LFMA     BSSZ   1           STAGE JOB TABLE POINTER

Seq #  *Modification Id* Act 
----------------------------+
12969  M02S00662.274l797 ---| LFMB     DATA   C*WAITING FOR STAGE REQUEST FILE.*

Seq #  *Modification Id* Act 
----------------------------+
12970  M01S06189.274l797 ---|          TITLE  REQ EXTERNAL PROCESSOR PRESET.

Seq #  *Modification Id* Act 
----------------------------+
12971  M01S02438.274l797 +++|          TITLE  *REQ* *DMP=* CALL PRESET.
12972  M00S06190.resex   +++| REQ      SPACE  4,10
12973  M00S06191.resex   +++|***       REQ - PROCESS *NOS/BE* REQUEST BLOCK CALL.
12974  M00S06192.resex   +++|*
12975  M00S06193.resex   +++|*         ENTRY  (SPPR) = *REQ* CALL.
12976  M00S06194.resex   +++|
12977  M00S06195.resex   +++|
12978  M00S06196.resex   +++| REQ      SB1    1

Seq #  *Modification Id* Act 
----------------------------+
12979  M01S06197.v23l617 ---|          SA1    ACTR        CHECK FOR CONTROL CARD CALL
12980  M01S06198.v23l617 ---|          SB2    /PER/CCI    *ILLEGAL CONTROL CARD.*
12981  M01S06199.v23l617 ---|          NZ     X1,PER      IF CONTROL CARD CALL

Seq #  *Modification Id* Act 
----------------------------+
12982  M01S00098.v23l617 +++|          SA1    ACTR        CHECK FOR COMMAND CALL
12983  M01S00099.v23l617 +++|          SB2    /PER/CCI    *INCORRECT COMMAND.*
12984  M01S00100.v23l617 +++|          NZ     X1,PER      IF COMMAND CALL
12985  M00S06200.resex   +++|          SX7    1
12986  M00S06201.resex   +++|          SA7    CF          SET CALL FLAG
12987  M00S06202.resex   +++|          RJ     PCV         PRESET CONTROL POINT VALUES
12988  M00S06203.resex   +++|          RJ     CSF         CONVERT *NOS/BE* CALL TO FET
12989  M00S06204.resex   +++|          RJ     FSC         FILE STATUS CHECK
12990  M00S06205.resex   +++|          NG     X7,REQ1     IF TAPE PRESENT
12991  M00S06206.resex   +++|          NZ     X7,END1     IF ANOTHER TYPE OF FILE PRESENT
12992  M00S06207.resex   +++|          RJ     SVI         SET VSN INDEX

Seq #  *Modification Id* Act 
----------------------------+
12993  M01S00856.252l678 +++|          RJ     FRA         PROCESS FIRST REEL ASSIGNMENT
12994  M00S06208.resex   +++|          SA2    F+FVSN      CHECK FOR VSN
12995  M00S06209.resex   +++|          MX0    36
12996  M00S06210.resex   +++|          BX7    X0*X2

Seq #  *Modification Id* Act 
----------------------------+
12997  M01S06211.274l797 ---|          ZR     X7,REQ2     IF NO VSN DEFINED
12998  M01S06212.274l797 ---|          RJ     CJV         CHECK JOB VALIDATION
12999  M01S06213.274l797 ---|          RJ     TBD         CHECK TAPE DESCRIPTORS
13000  M01S06214.274l797 ---|          EQ     RMT         REQUEST MAGNETIC TAPE

Seq #  *Modification Id* Act 
----------------------------+
13001  M01S02439.274l797 +++|          NZ     X7,REQ2     IF NO VSN DEFINED
13002  M01S02440.274l797 +++|          EQ     VTR         VALIDATE TAPE REQUEST
13003  M00S06215.resex   +++|
13004  M00S06216.resex   +++| REQ1     RJ     OPN         OPEN TAPE FILE
13005  M00S06217.resex   +++|          EQ     END1        RETURN OK STATUS AND END
13006  M00S06218.resex   +++|
13007  M00S06219.resex   +++| REQ2     SA7    AA          SET OPERATOR ASSIGNMENT FLAG

Seq #  *Modification Id* Act 
----------------------------+
13008  M01S06220.274l797 ---|          EQ     LAB6        REQUEST OPERATOR ASSIGNMENT

Seq #  *Modification Id* Act 
----------------------------+
13009  M01S02441.274l797 +++|          EQ     VTR         VALIDATE TAPE REQUEST
13010  M00S06221.resex   +++|          TITLE  VSN AND DEMAND FILE PRESET SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
13011  M01S06222.282l826 ---| BVE      SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
13012  M01S00898.282l826 +++| BVE      SPACE  4,15
13013  M00S06223.resex   +++|**        BVE - BUILD VSN ENTRY.
13014  M00S06224.resex   +++|*
13015  M00S06225.resex   +++|*         ENTRY  (B6) = ASSEMBLY POINTER.

Seq #  *Modification Id* Act 
----------------------------+
13016  M01S06226.v23l617 ---|*                (X4) = 0 IF *VSN* STATEMENT CALL, OTHERWISE *VSN*

Seq #  *Modification Id* Act 
----------------------------+
13017  M02S00101.282l826 ---|*                (X4) = 0 IF *VSN* COMMAND CALL, OTHERWISE *VSN*

Seq #  *Modification Id* Act 
----------------------------+
13018  M01S06227.282l826 ---|*                     PARAMETER.

Seq #  *Modification Id* Act 
----------------------------+
13019  M01S00899.282l826 +++|*                (X3) = FILE NAME.
13020  M00S06228.resex   +++|*
13021  M00S06229.resex   +++|*         EXIT   (AP) = (B6) = UPDATED ASSEMBLY POINTER.
13022  M00S06230.resex   +++|*                VSNE  = NEW VSN FILE ENTRY.
13023  M00S06231.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
13024  M01S06232.v23l617 ---|*         ERROR  TO *ERR*, IF CONTROL STATEMENT ERROR.

Seq #  *Modification Id* Act 
----------------------------+
13025  M01S00102.v23l617 +++|*         ERROR  TO *ERR*, IF COMMAND ERROR.
13026  M00S06233.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
13027  M01S06234.282l826 ---|*         USES   A - 2, 3, 4, 6, 7.
13028  M01S06235.282l826 ---|*                B - 2, 3.
13029  M01S06236.282l826 ---|*                X - ALL.

Seq #  *Modification Id* Act 
----------------------------+
13030  M01S00900.282l826 +++|*         USES   X - 5, 6, 7.
13031  M01S00901.282l826 +++|*                A - 6, 7.
13032  M01S00902.282l826 +++|*                B - 2.
13033  M00S06237.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
13034  M01S06238.282l826 ---|*         CALLS  IVE, POP, SFN.

Seq #  *Modification Id* Act 
----------------------------+
13035  M01S00903.282l826 +++|*         CALLS  CVS, IVE.
13036  M00S06239.resex   +++|
13037  M00S06240.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
13038  M01S06241.282l826 ---| BVE4     SA6    B3          STORE LAST VSN
13039  M01S06242.282l826 ---|          SX7    B6          SAVE ASSEMBLY POINTER
13040  M01S06243.282l826 ---|          SA7    AP

Seq #  *Modification Id* Act 
----------------------------+
13041  M01S00904.282l826 +++| BVE      SUBR               ENTRY/EXIT
13042  M00S06244.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
13043  M01S06245.282l826 ---| BVE      SUBR               ENTRY/EXIT
13044  M01S06246.282l826 ---|          SA3    F           GET FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
13045  M02S06247.282l826 ---|          NZ     X4,BVE1     IF NOT *VSN* CONTROL STATEMENT

Seq #  *Modification Id* Act 
----------------------------+
13046  M02S00103.282l826 ---|          NZ     X4,BVE1     IF NOT *VSN* COMMAND

Seq #  *Modification Id* Act 
----------------------------+
13047  M01S06248.282l826 ---|          SX6    B0          DISABLE LITERAL PROCESSING
13048  M01S06249.282l826 ---|          MX4    -18

Seq #  *Modification Id* Act 
----------------------------+
13049  M01S00905.282l826 +++|*         INITIALIZE VSN PROCESSING.
13050  M01S00906.282l826 +++|
13051  M01S00907.282l826 +++|          SB2    B1          INITIALIZE ENTIRE VSN ENTRY
13052  M01S00908.282l826 +++|          RJ     IVE
13053  M01S00909.282l826 +++|          SA0    VSNE+VVSN   INITIALIZE ENTRY POINTER
13054  M01S00910.282l826 +++|          SX6    B1          ENABLE LITERAL PROCESSING
13055  M01S00911.282l826 +++|          SX5    B0          INITIALIZE REEL COUNT AND FLAGS
13056  M00S06250.resex   +++|          SA6    LIT

Seq #  *Modification Id* Act 
----------------------------+
13057  M01S00912.282l826 +++|
13058  M01S00913.282l826 +++|*         CHECK FIRST VSN.
13059  M01S00914.282l826 +++|
13060  M01S00915.282l826 +++|          RJ     CVS         CHECK VSN
13061  M01S00916.282l826 +++|          NG     B2,BVE5     IF ONE VSN SPECIFIED
13062  M01S00917.282l826 +++|          ZR     X1,BVE4     IF SCRATCH VSN
13063  M01S00918.282l826 +++|          LE     B2,B0,BVE1  IF VSN NOT EQUIVALENCED
13064  M01S00919.282l826 +++|          SX5    100B        SET EQUIVALENCED VSN-S FLAG
13065  M01S00920.282l826 +++|          EQ     BVE3        PROCESS EQUIVALENCED VSN-S
13066  M01S00921.282l826 +++|
13067  M01S00922.282l826 +++|*         PROCESS NON-SCRATCH, NON-EQUIVALENCED VSN-S.
13068  M01S00923.282l826 +++|
13069  M01S00924.282l826 +++| BVE1     RJ     CVS         CHECK VSN
13070  M01S00925.282l826 +++|          ZR     X1,ERR      IF SCRATCH VSN
13071  M01S00926.282l826 +++|          NG     B2,BVE5     IF END OF VSN-S
13072  M01S00927.282l826 +++|          EQ     B2,B0,BVE1  IF VSN NOT EQUIVALENCED
13073  M01S00928.282l826 +++|          EQ     ERR         PROCESS ERROR
13074  M01S00929.282l826 +++|
13075  M01S00930.282l826 +++|*         PROCESS EQUIVALENCED VSN-S.
13076  M01S00931.282l826 +++|
13077  M01S00932.282l826 +++| BVE2     RJ     CVS         CHECK VSN
13078  M01S00933.282l826 +++|          LE     B2,B0,ERR   IF VSN NOT EQUIVALENCED
13079  M01S00934.282l826 +++|          SX5    X5-1        ADJUST REEL COUNT
13080  M01S00935.282l826 +++| BVE3     RJ     CVS         CHECK INTERNAL VSN
13081  M01S00936.282l826 +++|          ZR     X1,ERR      IF SCRATCH VSN
13082  M01S00937.282l826 +++|          NG     B2,BVE5     IF END OF VSN-S
13083  M01S00938.282l826 +++|          EQ     B2,B0,BVE2  IF VSN NOT EQUIVALENCED
13084  M01S00939.282l826 +++|          EQ     ERR         PROCESS ERROR
13085  M01S00940.282l826 +++|
13086  M01S00941.282l826 +++|*         VERIFY SCRATCH VSN-S.
13087  M01S00942.282l826 +++|
13088  M01S00943.282l826 +++| BVE4     RJ     CVS         CHECK VSN
13089  M01S00944.282l826 +++|          NZ     X1,ERR      IF NOT SCRATCH VSN
13090  M01S00945.282l826 +++|          PL     B2,BVE4     IF NOT END OF VSN-S
13091  M01S00946.282l826 +++|
13092  M01S00947.282l826 +++|*         SAVE ASSEMBLY POINTER AND SET REEL COUNT.
13093  M01S00948.282l826 +++|
13094  M01S00949.282l826 +++| BVE5     SX6    B6          SAVE ASSEMBLY POINTER
13095  M01S00950.282l826 +++|          BX7    X5          SET REEL COUNT AND EQUIVALENCED VSN STATUS
13096  M01S00951.282l826 +++|          SA6    AP
13097  M01S00952.282l826 +++|          SA7    VSNE+VRLC
13098  M01S00953.282l826 +++|          EQ     BVEX        RETURN
13099  M01S00954.282l826 +++| CVS      SPACE  4,20
13100  M01S00955.282l826 +++|**        CVS - CHECK VSN PARAMETER.
13101  M01S00956.282l826 +++|*
13102  M01S00957.282l826 +++|*         ENTRY  (A0) = *VSNE* BUFFER POINTER.
13103  M01S00958.282l826 +++|*                (X5) = REEL COUNT AND EQUIVALENCED VSN STATUS.
13104  M01S00959.282l826 +++|*
13105  M01S00960.282l826 +++|*         EXIT   (X6) = 36/ SPACE FILLED VSN,24/ 0.
13106  M01S00961.282l826 +++|*                (X1) = 0 IF SCRATCH VSN.
13107  M01S00962.282l826 +++|*                (X7) .NE. 0 IF NOT SCRATCH VSN.
13108  M01S00963.282l826 +++|*                (B2) = .LT. 0 IF END OF PARAMETER OR COMMAND.
13109  M01S00964.282l826 +++|*                (B2) = 0 IF SEPARATOR IS */*.
13110  M01S00965.282l826 +++|*                (B2) = .GT. 0 IF SEPARATOR IS *=*.
13111  M01S00966.282l826 +++|*                (A0) = UPDATED *VSNE* BUFFER POINTER.
13112  M01S00967.282l826 +++|*                (X5) = UPDATED REEL COUNT AND EQUIVALENCED VSN STATUS.
13113  M01S00968.282l826 +++|*
13114  M01S00969.282l826 +++|*         USES   X - 0, 1, 2, 3, 5, 6.
13115  M01S00970.282l826 +++|*                A - 0, 1, 2, 3, 6.
13116  M01S00971.282l826 +++|*                B - 2.
13117  M01S00972.282l826 +++|*
13118  M01S00973.282l826 +++|*         CALLS  POP, SFN.
13119  M01S00974.282l826 +++|
13120  M01S00975.282l826 +++|
13121  M01S00976.282l826 +++| CVS      SUBR               ENTRY/EXIT
13122  M01S00977.282l826 +++|          MX0    -24
13123  M01S00978.282l826 +++|          SX5    X5+B1       ADVANCE REEL COUNT
13124  M00S06251.resex   +++|          RJ     POP         PICK OUT PARAMETER
13125  M00S06252.resex   +++|          NG     B5,ERR      IF ERROR
13126  M00S06253.resex   +++|          GE     B5,B1,ERR   IF MORE THAN 1 WORD IN PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
13127  M01S06254.282l826 ---|          BX4    -X4*X6
13128  M01S06255.282l826 ---|          LX3    X6
13129  M01S06256.282l826 ---|          SX2    X1-1R=
13130  M01S06257.282l826 ---|          NZ     X4,ERR      IF FILE NAME ERROR
13131  M01S06258.282l826 ---|          ZR     X6,ERR      IF NO FILE NAME
13132  M01S06259.282l826 ---|          NZ     X2,ERR      IF SEPARATOR IS NOT *=*
13133  M01S06260.282l826 ---| BVE1     SB2    B1          INITIALIZE ENTIRE VSN ENTRY
13134  M01S06261.282l826 ---|          RJ     IVE
13135  M01S06262.282l826 ---|          SB3    VSNE+VVSN
13136  M01S06263.282l826 ---|          SX6    B1+         ENABLE LITERAL PROCESSING
13137  M01S06264.282l826 ---|          SA6    LIT
13138  M01S06265.282l826 ---| BVE2     MX0    -24
13139  M01S06266.282l826 ---|          RJ     POP         PICK OUT PARAMETER
13140  M01S06267.282l826 ---|          NG     B5,ERR      IF ERROR
13141  M01S06268.282l826 ---|          GE     B5,B1,ERR   IF MORE THAN 1 WORD IN PARAMETER
13142  M00S06269.resex   +++|          SA2    SCRATCH     CHECK FOR SCRATCH VSN

Seq #  *Modification Id* Act 
----------------------------+
13143  M01S06270.282l826 ---|          BX7    X6-X2
13144  M01S06271.282l826 ---|          MX1    0
13145  M01S06272.282l826 ---|          BX4    -X0*X6
13146  M01S06273.282l826 ---|          SX5    B1
13147  M01S06274.282l826 ---|          ZR     X7,BVE3     IF VSN = SCRATCH
13148  M01S06275.282l826 ---|          SA2    A2+B1
13149  M01S06276.282l826 ---|          BX7    X6-X2
13150  M01S06277.282l826 ---|          ZR     X7,BVE3     IF VSN = 0
13151  M01S06278.282l826 ---|          NZ     X4,ERR      IF VSN ERROR

Seq #  *Modification Id* Act 
----------------------------+
13152  M02S00001.282l826 ---|          ZR     X6,BVE3     IF VSN OMITTED

Seq #  *Modification Id* Act 
----------------------------+
13153  M01S06279.282l826 ---|          SX5    B0
13154  M01S06280.282l826 ---|          BX1    X6
13155  M01S06281.282l826 ---| BVE3     RJ     SFN         SPACE FILL NAME
13156  M01S06282.282l826 ---|          LX5    22
13157  M01S06283.282l826 ---|          SA4    A1          CHECK SEPARATOR

Seq #  *Modification Id* Act 
----------------------------+
13158  M01S00979.282l826 +++|          SA3    ZERO
13159  M01S00980.282l826 +++|          SX1    B0+
13160  M01S00981.282l826 +++|          BX2    X2-X6
13161  M01S00982.282l826 +++|          BX3    X3-X6
13162  M01S00983.282l826 +++|          ZR     X6,CVS2     IF VSN OMITTED
13163  M01S00984.282l826 +++|          ZR     X2,CVS2     IF *SCRATCH* VSN
13164  M01S00985.282l826 +++|          ZR     X3,CVS2     IF *0* VSN
13165  M01S00986.282l826 +++| CVS1     BX1    X6
13166  M01S00987.282l826 +++|          BX2    -X0*X6
13167  M01S00988.282l826 +++|          NZ     X2,ERR      IF VSN TOO LONG
13168  M01S00989.282l826 +++| CVS2     RJ     SFN         SPACE FILL VSN
13169  M01S00990.282l826 +++|          SA2    A1          GET SEPARATOR
13170  M01S00991.282l826 +++|          SX3    A0-VSNE-VSNL
13171  M00S06284.resex   +++|          BX6    X0*X6

Seq #  *Modification Id* Act 
----------------------------+
13172  M01S06285.282l826 ---|          BX6    X6+X5
13173  M01S06286.282l826 ---|          SX5    X4-1R,

Seq #  *Modification Id* Act 
----------------------------+
13174  M02S06287.282l826 ---|          ZR     B6,BVE4     IF END OF CARD

Seq #  *Modification Id* Act 
----------------------------+
13175  M02S00104.282l826 ---|          ZR     B6,BVE4     IF END OF COMMAND

Seq #  *Modification Id* Act 
----------------------------+
13176  M01S06288.282l826 ---|          SX3    420B
13177  M01S06289.282l826 ---|          ZR     X5,BVE4     IF END OF PARAMETER
13178  M01S06290.282l826 ---|          SB2    X4-1R9
13179  M01S06291.282l826 ---|          AX3    X3,B2
13180  M01S06292.282l826 ---|          BX6    X6+X4       MERGE SEPARATOR
13181  M01S06293.282l826 ---|          LX3    59
13182  M01S06294.282l826 ---|          SA6    B3          STORE VSN
13183  M01S06295.282l826 ---|          PL     X3,ERR      IF NOT VALID SEPARATOR
13184  M01S06296.282l826 ---|          SB3    B3+1
13185  M01S06297.282l826 ---|          SB2    VSNE+VSNL
13186  M01S06298.282l826 ---|          NE     B3,B2,BVE2  IF MORE VSNS
13187  M01S06299.282l826 ---|          EQ     ERR         PROCESS ARGUMENT ERROR

Seq #  *Modification Id* Act 
----------------------------+
13188  M01S00992.282l826 +++|          PL     X3,ERR      IF VSN BUFFER ALREADY FULL
13189  M01S00993.282l826 +++|          SA6    A0          STORE VSN
13190  M01S00994.282l826 +++|          SA0    A0+B1       ADVANCE BUFFER POINTER
13191  M01S00995.282l826 +++|          SB2    -1
13192  M01S00996.282l826 +++|          ZR     B6,CVSX     IF END OF COMMAND
13193  M01S00997.282l826 +++|          SX3    X2-1R,
13194  M01S00998.282l826 +++|          ZR     X3,CVSX     IF END OF PARAMETER
13195  M01S00999.282l826 +++|          SX3    X2-1R/
13196  M01S01000.282l826 +++|          SB2    B0+
13197  M01S01001.282l826 +++|          ZR     X3,CVSX     IF SEPARATOR IS */*
13198  M01S01002.282l826 +++|          SX3    X2-1R=
13199  M01S01003.282l826 +++|          SB2    1
13200  M01S01004.282l826 +++|          NZ     X3,ERR      IF SEPARATOR IS NOT *=*
13201  M01S01005.282l826 +++|          ZR     X1,ERR      IF SCRATCH VSN EQUIVALENCED
13202  M01S01006.282l826 +++|          EQ     CVSX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
13203  M01S06300.274l797 ---| FSC      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
13204  M01S02442.274l797 +++| FSC      SPACE  4,20
13205  M00S06301.resex   +++|**        FSC - FILE STATUS CHECK.
13206  M00S06302.resex   +++|*
13207  M00S06303.resex   +++|*         ENTRY  VF = FET.
13208  M00S06304.resex   +++|*
13209  M00S06305.resex   +++|*         EXIT   (B7) = (FS) = FILE STATUS.
13210  M00S06306.resex   +++|*                     = -1, IF TAPE FILE IS FOUND.

Seq #  *Modification Id* Act 
----------------------------+
13211  M01S06307.274l797 ---|*                     = 0, IF VSN FILE IS FOUND, FILE IS NOT FOUND,
13212  M01S06308.274l797 ---|*                          OR STATUS ERROR OCCURRED.

Seq #  *Modification Id* Act 
----------------------------+
13213  M01S02443.274l797 +++|*                     = 0, IF *TE* FILE IS FOUND, FILE IS NOT FOUND, OR
13214  M01S02444.274l797 +++|*                          STATUS ERROR OCCURRED.
13215  M00S06309.resex   +++|*                     = 1, IF FILE FOUND IS NOT TAPE RELATED.

Seq #  *Modification Id* Act 
----------------------------+
13216  M02S00857.253l688 ---|*                (TS) = -1 IF A SYMBOLIC TMS TAPE FILE.

Seq #  *Modification Id* Act 
----------------------------+
13217  M01S00663.253l688 +++|*                (TS) = -1 IF A SYMBOLIC *TMS* TAPE FILE.
13218  M00S06310.resex   +++|*
13219  M00S06311.resex   +++|*         USES   A - 1, 2, 7.
13220  M00S06312.resex   +++|*                B - 7.
13221  M00S06313.resex   +++|*                X - 0, 1, 2, 3, 4, 5, 7.
13222  M00S06314.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
13223  M01S02445.274l797 +++|*         CALLS  CTE.
13224  M01S02446.274l797 +++|*

Seq #  *Modification Id* Act 
----------------------------+
13225  M01S06315.252l678 ---|*         MACROS STATUS.

Seq #  *Modification Id* Act 
----------------------------+
13226  M01S00858.252l678 +++|*         MACROS RDSB, STATUS.
13227  M00S06316.resex   +++|
13228  M00S06317.resex   +++|
13229  M00S06318.resex   +++| FSC1     SA7    FS          SET FILE STATUS

Seq #  *Modification Id* Act 
----------------------------+
13230  M01S06319.274l797 ---|          SB7    X7+          SET RETURN STATUS

Seq #  *Modification Id* Act 
----------------------------+
13231  M01S02447.274l797 +++|          SB7    X7+         SET RETURN STATUS
13232  M00S06320.resex   +++|
13233  M00S06321.resex   +++| FSC      SUBR               ENTRY/EXIT
13234  M00S06322.resex   +++|          MX0    1           SELECT ERROR PROCESSING
13235  M00S06323.resex   +++|          SA1    VF+FDTY
13236  M00S06324.resex   +++|          LX0    -15
13237  M00S06325.resex   +++|          BX7    X0+X1
13238  M00S06326.resex   +++|          SA7    A1
13239  M00S06327.resex   +++|          STATUS VF,P
13240  M00S06328.resex   +++|          MX0    1           CLEAR ERROR PROCESSING
13241  M00S06329.resex   +++|          SA1    VF+FDTY
13242  M00S06330.resex   +++|          LX0    -15
13243  M00S06331.resex   +++|          BX7    -X0*X1
13244  M00S06332.resex   +++|          SA7    A1
13245  M00S06333.resex   +++|          MX0    -8          CHECK ERROR RESPONSE
13246  M00S06334.resex   +++|          SA2    A1-B1
13247  M00S06335.resex   +++|          LX2    -10
13248  M00S06336.resex   +++|          BX5    -X0*X2
13249  M00S06337.resex   +++|          SX7    B0+
13250  M00S06338.resex   +++|          NZ     X5,FSC1     IF FILE NOT FOUND OR ERRORS
13251  M00S06339.resex   +++|          MX0    -11
13252  M00S06340.resex   +++|          LX1    12

Seq #  *Modification Id* Act 
----------------------------+
13253  M01S06341.274l797 ---|          BX5    -X0*X1
13254  M01S06342.274l797 ---|          SX4    X5-2RTE
13255  M01S06343.274l797 ---|          SX3    X5-2RMT
13256  M01S06344.274l797 ---|          SX2    X5-2RNT
13257  M01S06345.274l797 ---|          ZR     X4,FSC1     IF VSN ENTRY
13258  M01S06346.274l797 ---|          SX7    -1

Seq #  *Modification Id* Act 
----------------------------+
13259  M02S06347.274l797 ---|          ZR     X3,FSC1     IF MAGNETIC TAPE
13260  M02S06348.274l797 ---|          ZR     X2,FSC1     IF MAGNETIC TAPE

Seq #  *Modification Id* Act 
----------------------------+
13261  M02S00859.274l797 ---|          ZR     X3,FSC0.1   IF MAGNETIC TAPE
13262  M02S00860.274l797 ---|          ZR     X2,FSC0.1   IF MAGNETIC TAPE

Seq #  *Modification Id* Act 
----------------------------+
13263  M01S06349.274l797 ---|          SX7    B1

Seq #  *Modification Id* Act 
----------------------------+
13264  M01S02448.274l797 +++|          BX4    -X0*X1
13265  M01S02449.274l797 +++|          BX7    -X0*X1
13266  M01S02450.274l797 +++|          RJ     CTE         CHECK FOR TAPE DEVICE
13267  M01S02451.274l797 +++|          SX7    -1          SET TAPE FILE
13268  M01S02452.274l797 +++|          NZ     X2,FSC0.1   IF TAPE DEVICE
13269  M01S02453.274l797 +++|          SX7    X4-2RTE
13270  M01S02454.274l797 +++|          ZR     X7,FSC1     IF FILE ASSIGNED TO *TE* DEVICE
13271  M01S02455.274l797 +++|          SX7    1           SET NON-TAPE FILE FOUND
13272  M00S06350.resex   +++|          EQ     FSC1        RETURN FILE STATUS

Seq #  *Modification Id* Act 
----------------------------+
13273  M01S00861.252l678 +++|
13274  M01S00862.252l678 +++| FSC0.1   SA1    TMPF

Seq #  *Modification Id* Act 
----------------------------+
13275  M02S00863.253l688 ---|          NG     X1,FSC1     IF TMS DISABLED

Seq #  *Modification Id* Act 
----------------------------+
13276  M01S00664.253l688 +++|          NG     X1,FSC1     IF *TMS* DISABLED

Seq #  *Modification Id* Act 
----------------------------+
13277  M01S00864.252l678 +++|          MX0    -12         GET UDT ADDRESS
13278  M01S00865.252l678 +++|          SA1    VF+6
13279  M01S00866.252l678 +++|          LX1    -36
13280  M01S00867.252l678 +++|          BX1    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
13281  M02S00868.274l797 ---|          RDSB   MTSI,/COMSMTX/UNITL,X1,FSCA  GET UDT ENTRY

Seq #  *Modification Id* Act 
----------------------------+
13282  M03S00869.274l797 ---|          SA1    FSCA+/COMSMTX/UTMS  CHECK IF SYMBOLIC TMS TAPE

Seq #  *Modification Id* Act 
----------------------------+
13283  M02S00665.274l797 ---|          SA1    FSCA+/COMSMTX/UTMS  CHECK IF SYMBOLIC *TMS* TAPE

Seq #  *Modification Id* Act 
----------------------------+
13284  M01S02456.274l797 +++|          RDSB   MTSI,/COMSMTX/UNITL,X1,UDT  GET UDT ENTRY
13285  M01S02457.274l797 +++|          SA1    UDT+/COMSMTX/UTMS  CHECK IF SYMBOLIC *TMS* TAPE

Seq #  *Modification Id* Act 
----------------------------+
13286  M01S00870.252l678 +++|          LX1    59-8
13287  M01S00871.252l678 +++|          BX7    X1

Seq #  *Modification Id* Act 
----------------------------+
13288  M02S00872.253l688 ---|          SA7    TS          FLAG SYMBOLIC TMS TAPE

Seq #  *Modification Id* Act 
----------------------------+
13289  M01S00666.253l688 +++|          SA7    TS          FLAG SYMBOLIC *TMS* TAPE

Seq #  *Modification Id* Act 
----------------------------+
13290  M01S00001.resex24 +++|          SX7    -1          SET TAPE FILE FOUND

Seq #  *Modification Id* Act 
----------------------------+
13291  M01S00873.252l678 +++|          EQ     FSC1        FLAG MAGNETIC TAPE

Seq #  *Modification Id* Act 
----------------------------+
13292  M02S00874.274l797 ---|
13293  M02S00875.274l797 ---| FSCA     BSS    /COMSMTX/UNITL  UDT ENTRY BUFFER
13294  M00S06351.resex   +++| MFE      SPACE  4,15
13295  M00S06352.resex   +++|**        MFE - MAKE RESOURCE FILE ENTRIES.
13296  M00S06353.resex   +++|*
13297  M00S06354.resex   +++|*         ENTRY  (VP) = 0, IF NO VSN FILE ENTRY TO BE MADE.
13298  M00S06355.resex   +++|*
13299  M00S06356.resex   +++|*         EXIT   VSN AND DEMAND FILE ENTRIES MADE IF NEEDED.
13300  M00S06357.resex   +++|*
13301  M00S06358.resex   +++|*         USES   A - 1, 6.
13302  M00S06359.resex   +++|*                X - 1, 2, 5, 6.
13303  M00S06360.resex   +++|*
13304  M00S06361.resex   +++|*         CALLS  MVE, RDF, SVE, UDF.
13305  M00S06362.resex   +++|*
13306  M00S06363.resex   +++|*         MACROS RETRF.
13307  M00S06364.resex   +++|
13308  M00S06365.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
13309  M01S00616.ns21000 +++| MFE2     RETRF  V           RETURN VSN FILE, RELEASE INTERLOCK
13310  M01S00617.ns21000 +++|
13311  M00S06366.resex   +++| MFE      SUBR               ENTRY/EXIT
13312  M00S06367.resex   +++|          SA1    VP
13313  M00S06368.resex   +++|          ZR     X1,MFEX     IF NO VSN ENTRY TO BE MADE
13314  M00S06369.resex   +++|          SA1    /CPA/RFCW
13315  M00S06370.resex   +++|          SX6    X1+
13316  M00S06371.resex   +++|          NZ     X6,MFE1     IF DEMAND FILE ENTRY EXISTS
13317  M00S06372.resex   +++|          RJ     RDF         READ DEMAND FILE
13318  M00S06373.resex   +++|          SX5    B1          SET RETURN DEMAND FILE FLAG
13319  M00S06374.resex   +++|          RJ     UDF         UPDATE DEMAND FILE
13320  M00S06375.resex   +++| MFE1     MX2    36
13321  M00S06376.resex   +++|          SA1    VSNE+VDFI   ENTER DEMAND ENTRY RANDOM ADDRESS
13322  M00S06377.resex   +++|          BX1    X2*X1
13323  M00S06378.resex   +++|          BX6    X1+X6
13324  M00S06379.resex   +++|          SA6    A1
13325  M00S06380.resex   +++|          RJ     SVE         SEARCH FOR VSN ENTRY
13326  M00S06381.resex   +++|          ZR     X5,MFE2     IF DUPLICATE VSN ENTRY
13327  M00S06382.resex   +++|          RJ     MVE
13328  M00S06383.resex   +++|          EQ     MFEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
13329  M01S06384.ns21000 ---|
13330  M01S06385.ns21000 ---| MFE2     RETRF  V           RETURN VSN FILE, RELEASE INTERLOCK
13331  M01S06386.ns21000 ---|          EQ     MFEX        RETURN
13332  M00S06387.resex   +++| SVE      SPACE  4,15
13333  M00S06388.resex   +++|**        SVE - SEARCH FOR VSN FILE ENTRY.
13334  M00S06389.resex   +++|*
13335  M00S06390.resex   +++|*         ENTRY  VSNE = NEW VSN ENTRY.
13336  M00S06391.resex   +++|*                VSN FILE ALREADY ATTACHED IF CALLED FROM *SVI*.
13337  M00S06392.resex   +++|*
13338  M00S06393.resex   +++|*         EXIT   (X5) = 0, IF ENTRY FOUND.
13339  M00S06394.resex   +++|*                (VA) = RANDOM INDEX IF ENTRY FOUND.
13340  M00S06395.resex   +++|*                VSNB = VSN FILE ENTRY, IF FOUND.
13341  M00S06396.resex   +++|*                VSN FILE INTERLOCKED.
13342  M00S06397.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
13343  M01S06398.282l826 ---|*         USES   A - 1, 3, 4, 5, 7.
13344  M01S06399.282l826 ---|*                X - 0, 1, 3, 4, 5, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
13345  M01S01007.282l826 +++|*         USES   A - 3, 4, 5, 7.
13346  M01S01008.282l826 +++|*                X - 1, 3, 4, 5, 6, 7.
13347  M00S06400.resex   +++|*
13348  M00S06401.resex   +++|*         MACROS FATRF, READ, READW.
13349  M00S06402.resex   +++|
13350  M00S06403.resex   +++|
13351  M00S06404.resex   +++| SVE2     BX7    X7-X7       INDICATE ENTRY NOT FOUND
13352  M00S06405.resex   +++|          MX5    1
13353  M00S06406.resex   +++|          SA7    VA          CLEAR RANDOM ADDRESS
13354  M00S06407.resex   +++|
13355  M00S06408.resex   +++| SVE      SUBR               ENTRY/EXIT
13356  M00S06409.resex   +++|          FATRF  V,M         ATTACH VSN FILE
13357  M00S06410.resex   +++|          READ   X2,R
13358  M00S06411.resex   +++|          SX7    B1          INITIALIZE RANDOM INDEX
13359  M00S06412.resex   +++| SVE1     SA7    VA          SET NEXT VSN INDEX
13360  M00S06413.resex   +++|          READW  X2,VSNB,VSNL
13361  M00S06414.resex   +++|          NZ     X1,SVE2     IF END OF VSN FILE
13362  M00S06415.resex   +++|          SA5    VA

Seq #  *Modification Id* Act 
----------------------------+
13363  M01S06416.282l826 ---|          SA1    VSNB+VJID   COMPARE JOB IDENTIFICATION
13364  M01S06417.282l826 ---|          SA4    VSNE+VJID

Seq #  *Modification Id* Act 
----------------------------+
13365  M01S01009.282l826 +++|          SA3    VSNB+VLFN   COMPARE FILE NAMES
13366  M01S01010.282l826 +++|          SA4    VSNE+VLFN
13367  M00S06418.resex   +++|          SX7    X5+B1       ADVANCE VSN FILE INDEX

Seq #  *Modification Id* Act 
----------------------------+
13368  M01S06419.282l826 ---|          BX5    X1-X4
13369  M01S06420.282l826 ---|          ZR     X1,SVE1     IF EMPTY ENTRY
13370  M01S06421.282l826 ---|          SA3    VSNB+VLFN   COMPARE FILE NAMES
13371  M01S06422.282l826 ---|          SA4    VSNE+VLFN

Seq #  *Modification Id* Act 
----------------------------+
13372  M01S01011.282l826 +++|          ZR     X3,SVE1     IF EMPTY ENTRY
13373  M00S06423.resex   +++|          BX1    X3-X4

Seq #  *Modification Id* Act 
----------------------------+
13374  M01S06424.282l826 ---|          SA3    VSNB+VDFI   COMPARE DEMAND FILE INDICES
13375  M01S06425.282l826 ---|          BX1    X1+X5

Seq #  *Modification Id* Act 
----------------------------+
13376  M01S01012.282l826 +++|          SA3    VSNB+VDFI
13377  M00S06426.resex   +++|          SA4    VSNE+VDFI

Seq #  *Modification Id* Act 
----------------------------+
13378  M01S06427.282l826 ---|          MX6    -24
13379  M01S06428.282l826 ---|          BX4    X3-X4

Seq #  *Modification Id* Act 
----------------------------+
13380  M01S01013.282l826 +++|          MX6    -36
13381  M01S01014.282l826 +++|          BX4    X3-X4       COMPARE EJT ORDINAL AND DEMAND FILE INDEX
13382  M01S01015.282l826 +++|          LX4    12
13383  M00S06429.resex   +++|          BX4    -X6*X4
13384  M00S06430.resex   +++|          BX1    X1+X4
13385  M00S06431.resex   +++|          NZ     X1,SVE1     IF NO MATCH
13386  M00S06432.resex   +++|          MX5    0           INDICATE FOUND
13387  M00S06433.resex   +++|          EQ     SVEX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
13388  M01S06434.282l826 ---| SVI      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
13389  M01S01016.282l826 +++| SVI      SPACE  4,20
13390  M00S06435.resex   +++|**        SVI - SET VSN INDEX.
13391  M00S06436.resex   +++|*
13392  M00S06437.resex   +++|*         ENTRY  FET BUILT.
13393  M00S06438.resex   +++|*
13394  M00S06439.resex   +++|*         EXIT   (X5) = 0, IF ENTRY FOUND.

Seq #  *Modification Id* Act 
----------------------------+
13395  M02S00876.282l826 ---|*                (VC) = 1 IF VSN FOUND.

Seq #  *Modification Id* Act 
----------------------------+
13396  M01S06440.282l826 ---|*                (VI) = VSN INDEX.

Seq #  *Modification Id* Act 
----------------------------+
13397  M02S00877.282l826 ---|*                (VP) = 1 IF VSN FOUND.

Seq #  *Modification Id* Act 
----------------------------+
13398  M01S06441.282l826 ---|*                (FET+11B) = VSN CORRESPONDING TO (VI).

Seq #  *Modification Id* Act 
----------------------------+
13399  M01S01017.282l826 +++|*                (VC) = 1 IF VSN FILE ENTRY FOUND.
13400  M01S01018.282l826 +++|*                (VP) = 1 IF VSN FILE FOUND.
13401  M01S01019.282l826 +++|*                (EVSN) = EXTERNAL VSN SET FROM VSN FILE IF FOUND.
13402  M01S01020.282l826 +++|*                (IVSN) = INTERNAL VSN SET FROM VSN FILE IF FOUND.
13403  M01S01021.282l826 +++|*                (F+FVSN) = INTERNAL VSN SET FROM VSN FILE IF FOUND.
13404  M00S06442.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
13405  M01S06443.282l826 ---|*         USES   A - 2, 3, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
13406  M01S01022.282l826 +++|*         USES   A - 1, 2, 3, 4, 6, 7.
13407  M00S06444.resex   +++|*                B - 2.

Seq #  *Modification Id* Act 
----------------------------+
13408  M01S06445.282l826 ---|*                X - 0, 2, 3, 4, 6, 7.

Seq #  *Modification Id* Act 
----------------------------+
13409  M01S01023.282l826 +++|*                X - 0, 1, 2, 3, 4, 6, 7.
13410  M00S06446.resex   +++|*
13411  M00S06447.resex   +++|*         CALLS  IVE, SVE.
13412  M00S06448.resex   +++|*
13413  M00S06449.resex   +++|*         MACROS FATRF, RETRF.
13414  M00S06450.resex   +++|
13415  M00S06451.resex   +++|
13416  M00S06452.resex   +++| SVI      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
13417  M01S06453.282l826 ---|          BX7    X7-X7
13418  M00S06454.resex   +++|          SB2    B0

Seq #  *Modification Id* Act 
----------------------------+
13419  M01S06455.282l826 ---|          SA7    VI          CLEAR VSN INDEX
13420  M00S06456.resex   +++|          SA3    F           SET UP IDENTIFICATION IN VSN ENTRY
13421  M00S06457.resex   +++|          RJ     IVE
13422  M00S06458.resex   +++|          FATRF  V,RM        ATTACH VSN FILE
13423  M00S06459.resex   +++|          RJ     SVE         SEARCH FOR VSN ENTRY
13424  M00S06460.resex   +++|          RETRF  V           RETURN VSN FILE, RELEASE INTERLOCK

Seq #  *Modification Id* Act 
----------------------------+
13425  M01S06461.282l826 ---|          NZ     X5,SVIX     IF NO VSN FOUND
13426  M01S06462.282l826 ---|          SA2    VSNB+VVSN   ENTER VSN INTO FET
13427  M01S06463.282l826 ---|          SX6    1           SET VSN= PROCESSED
13428  M01S06464.282l826 ---|          SA6    VP

Seq #  *Modification Id* Act 
----------------------------+
13429  M01S01024.282l826 +++|          NZ     X5,SVIX     IF NO VSN FILE ENTRY
13430  M01S01025.282l826 +++|          SA1    VSNB+VVSN   GET EXTERNAL VSN
13431  M01S01026.282l826 +++|          SA2    A1+1
13432  M01S01027.282l826 +++|          SA4    VSNB+VRLC
13433  M01S01028.282l826 +++|          MX0    36
13434  M01S01029.282l826 +++|          LX4    59-6
13435  M01S01030.282l826 +++|          BX6    X0*X1       EXTERNAL VSN
13436  M01S01031.282l826 +++|          BX7    X0*X1       PRESET INTERNAL VSN = EXTERNAL VSN
13437  M01S01032.282l826 +++|          PL     X4,SVI1     IF NOT EQUIVALENCED VSN-S
13438  M01S01033.282l826 +++|          BX7    X0*X2       INTERNAL VSN
13439  M01S01034.282l826 +++| SVI1     SA3    F+FVSN
13440  M01S01035.282l826 +++|          SA6    EVSN        SET EXTERNAL VSN
13441  M01S01036.282l826 +++|          SA7    IVSN        SET INTERNAL VSN
13442  M01S01037.282l826 +++|          BX3    -X0*X3
13443  M01S01038.282l826 +++|          BX7    X3+X7
13444  M01S01039.282l826 +++|          SX6    B1
13445  M01S01040.282l826 +++|          SA7    A3          SET INTERNAL VSN IN FET
13446  M01S01041.282l826 +++|          SA6    VP          SET VSN PARAMETER PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
13447  M01S00878.252l678 +++|          SA6    VC          SET VSN FROM *VSN* COMMAND FLAG

Seq #  *Modification Id* Act 
----------------------------+
13448  M01S06465.282l826 ---|          MX0    36
13449  M01S06466.282l826 ---|          BX4    X0*X2
13450  M01S06467.282l826 ---|          SA3    F+FVSN
13451  M01S06468.282l826 ---|          BX3    -X0*X3
13452  M01S06469.282l826 ---|          BX6    X3+X4
13453  M01S06470.282l826 ---|          SA6    A3
13454  M01S06471.282l826 ---|          BX1    -X0*X2      CHECK VSN INDEX
13455  M01S06472.282l826 ---|          ZR     X1,SVIX     IF ONLY VSN (VI = 0)
13456  M01S06473.282l826 ---|          SX7    VVSN
13457  M01S06474.282l826 ---|          SA7    VI          SET VSN INDEX
13458  M00S06475.resex   +++|          EQ     SVIX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
13459  M01S06476.274l797 ---|
13460  M01S06477.274l797 ---|
13461  M01S06478.274l797 ---|*         OVERLAY 2 AREA CODE MUST NOT EXTEND INTO OVERLAY 3 AREA.
13462  M01S06479.274l797 ---|
13463  M01S06480.274l797 ---|          ERRNG  OVL3-*      CODE OVERFLOWS INTO OVERLAY 3 AREA
13464  M01S06481.274l797 ---|          TITLE  ASSEMBLE MAGNETIC TAPE OPTIONS.
13465  M01S06482.274l797 ---|          SPACE  4,10
13466  M01S06483.274l797 ---|**        THE FOLLOWING CODE CAN BE OVERLAID BY OVERLAY AREA 3
13467  M01S06484.274l797 ---|*         (VSN AND DEMAND FILE BUFFERS) OR ANY PRIOR OVERLAY.
13468  M01S06485.274l797 ---| AMO      SPACE  4,10
13469  M01S06486.274l797 ---|**        AMO - ASSEMBLE *MT* OPTIONS.

Seq #  *Modification Id* Act 
----------------------------+
13470  M01S02458.274l797 +++| AFO      SPACE  4,10
13471  M01S02459.274l797 +++|**        AFO - ASSEMBLE FILE NAME AND TAPE OPTIONS.
13472  M00S06487.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
13473  M01S06488.v23l617 ---|*         ENTRY  USBB HAS CONTROL CARD (1 CHARACTER PER WORD).

Seq #  *Modification Id* Act 
----------------------------+
13474  M01S00105.v23l617 +++|*         ENTRY  USBB HAS COMMAND (1 CHARACTER PER WORD).
13475  M00S06489.resex   +++|*                (B6) = STRING BUFFER POINTER.
13476  M00S06490.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
13477  M01S06491.274l797 ---|*         EXIT   FET BUILT FOR EQUIPMENT ASSIGNMENT.

Seq #  *Modification Id* Act 
----------------------------+
13478  M01S02460.274l797 +++|*         EXIT   PARAMETERS SET IN FET *F* FOR TAPE ASSIGNMENT.
13479  M00S06492.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
13480  M01S06493.274l797 ---|*         CALLS  FSC, ILF, AOP, GRD, ASSORTED PROCESSORS.

Seq #  *Modification Id* Act 
----------------------------+
13481  M01S02461.274l797 +++|*         CALLS  CLP, CRD, FID, FSC, GAL, GRD, ILF, NMD, POP, RTC, RTD,
13482  M01S02462.274l797 +++|*                SAL, SCD, SCI, SCV, SFA, SFC, SFS, SID, SLT, SNS, SPO,
13483  M01S02463.274l797 +++|*                STD, STF, STT, VSP, WRL.
13484  M00S06494.resex   +++|
13485  M00S06495.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
13486  M01S06496.274l797 ---| AMO6     RJ     GRD         CREATE RETENTION DATE

Seq #  *Modification Id* Act 
----------------------------+
13487  M01S02464.274l797 +++|*         GENERATE RETENTION DATE AND GET ACCESS LEVEL.
13488  M00S06497.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
13489  M01S06498.274l797 ---| AMO      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
13490  M01S02465.274l797 +++| AFO6     RJ     GRD         GENERATE RETENTION DATE
13491  M01S02466.274l797 +++|          RJ     GAL         GET ACCESS LEVEL
13492  M01S02467.274l797 +++|
13493  M01S02468.274l797 +++| AFO      SUBR               ENTRY/EXIT
13494  M01S02469.274l797 +++|
13495  M01S02470.274l797 +++|*         ASSEMBLE FILE NAME.
13496  M01S02471.274l797 +++|
13497  M01S02472.274l797 +++|          RJ     POP         PICK OUT PARAMETER
13498  M01S02473.274l797 +++|          NZ     B5,ERR      IF ASSEMBLY ERROR
13499  M01S02474.274l797 +++|          SA3    POPA
13500  M01S02475.274l797 +++|          ZR     X3,ERR      IF NO FILE NAME
13501  M01S02476.274l797 +++|          MX0    -18
13502  M01S02477.274l797 +++|          BX5    -X0*X3
13503  M01S02478.274l797 +++|          SX7    B1          COMPLETE FET
13504  M01S02479.274l797 +++|          BX6    X7+X3
13505  M01S02480.274l797 +++|          NZ     X5,ERR      IF FILE NAME TOO LONG
13506  M01S02481.274l797 +++|          SA6    F           ENTER FILE NAME
13507  M01S02482.274l797 +++|          SA6    VF          ENTER FILE NAME IN VSN FET
13508  M01S02483.274l797 +++|
13509  M01S02484.274l797 +++|*         INITIALIZE TAPE OPTION PROCESSING.
13510  M01S02485.274l797 +++|
13511  M00S06499.resex   +++|          RJ     FSC         FILE STATUS CHECK
13512  M00S06500.resex   +++|          RJ     ILF         INITIALIZE LABEL FET

Seq #  *Modification Id* Act 
----------------------------+
13513  M01S06501.274l797 ---|
13514  M01S06502.274l797 ---|*         SET DEFAULT FORMAT.
13515  M01S06503.274l797 ---|
13516  M00S06504.resex   +++|          SA1    STFA
13517  M00S06505.resex   +++|          MX0    12
13518  M00S06506.resex   +++|          BX7    -X0*X1
13519  M00S06507.resex   +++|          SX2    /COMSMTX/POLM  DEFAULT ERROR MESSAGE PROCESSING OPTION
13520  M00S06508.resex   +++|          SX3    /COMSMTX/POGH  DEFAULT GCR WRITE CORRECTION OPTION
13521  M00S06509.resex   +++|          LX2    43-0
13522  M00S06510.resex   +++|          SA1    OT          CHECK FOR SYSTEM ORIGIN
13523  M00S06511.resex   +++|          LX3    42-0
13524  M00S06512.resex   +++|          BX7    X7+X2
13525  M00S06513.resex   +++|          SX1    X1-SYOT
13526  M00S06514.resex   +++|          BX7    X7+X3
13527  M00S06515.resex   +++|          SX5    B1
13528  M00S06516.resex   +++|          SA7    F+FTAP
13529  M00S06517.resex   +++|          LX5    41

Seq #  *Modification Id* Act 
----------------------------+
13530  M01S06518.274l797 ---|          NZ     X1,AMO1     IF NOT SYOT

Seq #  *Modification Id* Act 
----------------------------+
13531  M01S02486.274l797 +++|          NZ     X1,AFO1     IF NOT SYOT
13532  M00S06519.resex   +++|          BX7    X7+X5
13533  M00S06520.resex   +++|          SA7    A7

Seq #  *Modification Id* Act 
----------------------------+
13534  M01S06521.274l797 ---| AMO1     SB3    TAOK-1      PARAMETER KEYWORD TABLE ADDRESS
13535  M01S06522.274l797 ---|          ZR     B6,AMO6     IF ARGUMENTS EXHAUSTED

Seq #  *Modification Id* Act 
----------------------------+
13536  M01S02487.274l797 +++|
13537  M01S02488.274l797 +++|*         PROCESS TAPE OPTION KEYWORD.
13538  M01S02489.274l797 +++|*         REENTER HERE ON RETURN FROM KEYWORD PROCESSORS.
13539  M01S02490.274l797 +++|
13540  M01S02491.274l797 +++| AFO1     ZR     B6,AFO6     IF ARGUMENTS EXHAUSTED
13541  M01S02492.274l797 +++|          SB3    TAOK-1      PARAMETER KEYWORD TABLE ADDRESS
13542  M00S06523.resex   +++|          SX6    B0          DISABLE LITERAL PROCESSING
13543  M00S06524.resex   +++|          SA1    B6-B1       GET LAST SEPARATOR
13544  M00S06525.resex   +++|          SX1    X1-1R=
13545  M00S06526.resex   +++|          ZR     X1,ERR      IF SEPARATOR IS *=*
13546  M00S06527.resex   +++|          RJ     CLP         CALL POP
13547  M00S06528.resex   +++|          GE     B5,B1,ERR   IF KEYWORD TOO LONG
13548  M00S06529.resex   +++|          SA4    TAOS        ASSEMBLY OPTION SYNTAX TABLE
13549  M00S06530.resex   +++|          MX0    18
13550  M00S06531.resex   +++|          BX1    X5

Seq #  *Modification Id* Act 
----------------------------+
13551  M01S06532.v23l617 ---|          NG     X5,ERR      IF ILLEGAL FIRST CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
13552  M01S00106.v23l617 +++|          NG     X5,ERR      IF INCORRECT FIRST CHARACTER
13553  M00S06533.resex   +++|          AX5    56
13554  M00S06534.resex   +++|          LX5    1
13555  M00S06535.resex   +++|          MX3    -6
13556  M00S06536.resex   +++|          SB2    X5
13557  M00S06537.resex   +++|          LX5    1
13558  M00S06538.resex   +++|          SB2    B2+X5
13559  M00S06539.resex   +++|          AX4    X4,B2       POSITION TABLE ADDRESS
13560  M00S06540.resex   +++|          BX4    -X3*X4

Seq #  *Modification Id* Act 
----------------------------+
13561  M01S06541.274l797 ---| AMO2     SA3    B3+X4

Seq #  *Modification Id* Act 
----------------------------+
13562  M01S02493.274l797 +++| AFO2     SA3    B3+X4
13563  M00S06542.resex   +++|          BX7    X0*X3
13564  M00S06543.resex   +++|          IX6    X1-X7
13565  M00S06544.resex   +++|          SB3    B3+B1

Seq #  *Modification Id* Act 
----------------------------+
13566  M01S06545.252l678 ---|          NG     X6,ERR      IF KEYWORD NOT FOUND

Seq #  *Modification Id* Act 
----------------------------+
13567  M01S00879.252l678 +++|          NG     X6,/TFM/TMO IF KEYWORD NOT FOUND

Seq #  *Modification Id* Act 
----------------------------+
13568  M01S06546.274l797 ---|          NZ     X6,AMO2     IF NOT TO KEYWORD YET

Seq #  *Modification Id* Act 
----------------------------+
13569  M01S02494.274l797 +++|          NZ     X6,AFO2     IF NOT TO KEYWORD YET
13570  M00S06547.resex   +++|          SA4    A1
13571  M00S06548.resex   +++|          MX0    -6
13572  M00S06549.resex   +++|          SB2    X3
13573  M00S06550.resex   +++|          LX3    24
13574  M00S06551.resex   +++|          BX2    -X0*X3
13575  M00S06552.resex   +++|          SA6    A3+         CLEAR KEYWORD ENTRY
13576  M00S06553.resex   +++|          LX3    18

Seq #  *Modification Id* Act 
----------------------------+
13577  M01S06554.274l797 ---|          ZR     X2,AMO4     IF NO EQUIVALENT PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
13578  M01S02495.274l797 +++|          ZR     X2,AFO4     IF NO EQUIVALENT PARAMETERS
13579  M00S06555.resex   +++|          SA1    TEQP-1+X2   CLEAR EQUIVALENT KEYWORD ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
13580  M01S06556.274l797 ---| AMO3     LX1    6

Seq #  *Modification Id* Act 
----------------------------+
13581  M01S02496.274l797 +++| AFO3     LX1    6
13582  M00S06557.resex   +++|          BX2    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
13583  M01S06558.274l797 ---|          ZR     X2,AMO4     IF END OF ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
13584  M01S02497.274l797 +++|          ZR     X2,AFO4     IF END OF ENTRIES
13585  M00S06559.resex   +++|          SA6    TAOK-1+X2

Seq #  *Modification Id* Act 
----------------------------+
13586  M01S06560.274l797 ---|          EQ     AMO3        CONTINUE CLEARING EQUIVALENT ENTRIES

Seq #  *Modification Id* Act 
----------------------------+
13587  M01S02498.274l797 +++|          EQ     AFO3        CONTINUE CLEARING EQUIVALENT ENTRIES
13588  M00S06561.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
13589  M01S06562.274l797 ---| AMO4     MX0    -18         EXTRACT PROCESSOR PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
13590  M01S02499.274l797 +++| AFO4     MX0    -18         EXTRACT PROCESSOR PARAMETERS
13591  M00S06563.resex   +++|          BX7    -X0*X3

Seq #  *Modification Id* Act 
----------------------------+
13592  M01S06564.274l797 ---|          PL     B2,AMO5     IF KEYWORD VALUE NOT REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
13593  M01S02500.274l797 +++|          PL     B2,AFO5     IF KEYWORD VALUE NOT REQUIRED
13594  M00S06565.resex   +++|          SX1    X4-1R=
13595  M00S06566.resex   +++|          SB2    -B2
13596  M00S06567.resex   +++|          NZ     X1,ERR      IF SEPARATOR NOT *=*

Seq #  *Modification Id* Act 
----------------------------+
13597  M01S06568.274l797 ---| AMO5     SA5    RT          GET REQUEST TYPE

Seq #  *Modification Id* Act 
----------------------------+
13598  M01S02501.274l797 +++| AFO5     SA5    RT          GET REQUEST TYPE
13599  M00S06569.resex   +++|          JP     B2          EXECUTE KEYWORD PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
13600  M01S02502.274l797 +++|
13601  M01S02503.274l797 +++|
13602  M01S02504.274l797 +++| AFOR     EQU    AFO1        KEYWORD PROCESSOR RETURN ADDRESS
13603  M00S06570.resex   +++| TAOK     SPACE  4,10
13604  M00S06571.resex   +++|**        TAOK - TABLE OF ASSEMBLY OPTION KEYWORDS.
13605  M00S06572.resex   +++|*
13606  M00S06573.resex   +++|*         FOR DOCUMENTATION, REFER TO *MKTE* MACRO.
13607  M00S06574.resex   +++|
13608  M00S06575.resex   +++|
13609  M00S06576.resex   +++| TAOK     BSS    0
13610  M00S06577.resex   +++|          QUAL   TAOK
13611  M00S06578.resex   +++|          LOC    1
13612  M00S06579.resex   +++|
13613  M00S06580.resex   +++| AACT     BSS    0           A - C SYNTAX TABLE

Seq #  *Modification Id* Act 
----------------------------+
13614  M01S00528.ns22000 +++| AL       MKTE   -SAL        SECURITY ACCESS LEVEL

Seq #  *Modification Id* Act 
----------------------------+
13615  M01S06581.274l797 ---|
13616  M00S06582.resex   +++| C        MKTE   -SCD        CREATION DATE/CHARACTER COUNT
13617  M00S06583.resex   +++| CB       MKTE   SCI,/TEQP/CKI,(18//COMSLFD/CBST)  CHECKPOINT BOI
13618  M00S06584.resex   +++| CK       MKTE   SCI,/TEQP/CKI,(18//COMSLFD/CKST)  CHECKPOINT EOI
13619  M00S06585.resex   +++| CR       MKTE   -CRD        CREATION DATE
13620  M00S06586.resex   +++| CV       MKTE   -SCV,/TEQP/CVM  CONVERSION MODE
13621  M00S06587.resex   +++|
13622  M00S06588.resex   +++| ADGT     BSS    0           D - G SYNTAX TABLE
13623  M00S06589.resex   +++|
13624  M00S06590.resex   +++| D        MKTE   -STD,/TEQP/DEN  TAPE DENSITY

Seq #  *Modification Id* Act 
----------------------------+
13625  M01S02505.274l797 +++| DT       MKTE   -STT,/TEQP/TDT  TAPE DEVICE TYPE
13626  M00S06591.resex   +++| E        MKTE   -NMD,,(1/1,1/1,1/0,9/,6/FGVN)  GENERATION VERSION
13627  M00S06592.resex   +++| F        MKTE   -STF        FORMAT
13628  M00S06593.resex   +++| FA       MKTE   -SFA        FILE ACCESSIBILITY
13629  M00S06594.resex   +++| FC       MKTE   -SFS        FRAME SIZE
13630  M00S06595.resex   +++| FI       MKTE   -FID,/TEQP/FID  FILE IDENTIFIER
13631  M00S06596.resex   +++| G        MKTE   -NMD,,(1/0,1/0,1/0,9/,6/FGRN)  GENERATION NUMBER
13632  M00S06597.resex   +++| GE       MKTE   STD3,/TEQP/DEN,(18//TDEN/GE)  6250 CPI 9-TRACK
13633  M00S06598.resex   +++|
13634  M00S06599.resex   +++| AHKT     BSS    0           H - K SYNTAX TABLE
13635  M00S06600.resex   +++|
13636  M00S06601.resex   +++| HD       MKTE   STD3,/TEQP/DEN,(18//TDEN/HD)  800 BPI 9-TRACK
13637  M00S06602.resex   +++| HI       MKTE   STD3,/TEQP/DEN,(18//TDEN/HI)  556 BPI 7-TRACK
13638  M00S06603.resex   +++| HY       MKTE   STD3,/TEQP/DEN,(18//TDEN/HY)  800 BPI 7-TRACK
13639  M00S06604.resex   +++|
13640  M00S06605.resex   +++| ALOT     BSS    0           L - O SYNTAX TABLE
13641  M00S06606.resex   +++|
13642  M00S06607.resex   +++| L        MKTE   -FID,/TEQP/FID  FILE IDENTIFIER
13643  M00S06608.resex   +++| LB       MKTE   -SLT        LABEL TYPE
13644  M00S06609.resex   +++| LO       MKTE   STD3,/TEQP/DEN,(18//TDEN/LO)  200 BPI 7-TRACK
13645  M00S06610.resex   +++| M        MKTE   -SID,/TEQP/SID  MULTI-FILE SET IDENTIFIER

Seq #  *Modification Id* Act 
----------------------------+
13646  M01S06611.274l797 ---| MT       MKTE   STK,/TEQP/TRT,(18/-1)  7-TRACK

Seq #  *Modification Id* Act 
----------------------------+
13647  M01S02506.274l797 +++| MT       MKTE   STT1,/TEQP/TDT,(18/0)  7-TRACK DEVICE TYPE
13648  M00S06612.resex   +++| N        MKTE   -SCV,/TEQP/CVM  CONVERSION MODE
13649  M00S06613.resex   +++| NS       MKTE   -SNS        NOISE SIZE

Seq #  *Modification Id* Act 
----------------------------+
13650  M01S06614.274l797 ---| NT       MKTE   STK,/TEQP/TRT,(18/1)  9-TRACK

Seq #  *Modification Id* Act 
----------------------------+
13651  M01S02507.274l797 +++| NT       MKTE   STT1,/TEQP/TDT,(18/2)  9-TRACK DEVICE TYPE
13652  M00S06615.resex   +++|
13653  M00S06616.resex   +++| APST     BSS    0           P - S SYNTAX TABLE
13654  M00S06617.resex   +++|
13655  M00S06618.resex   +++| P        MKTE   -NMD,/TEQP/SQN,(1/0,1/0,1/1,9/,6/FSQN)  FILE SEQUENCE
13656  M00S06619.resex   +++| PE       MKTE   STD3,/TEQP/DEN,(18//TDEN/PE)  1600 CPI 9-TRACK
13657  M00S06620.resex   +++| PO       MKTE   -SPO        PROCESSING OPTIONS
13658  M00S06621.resex   +++| QN       MKTE   -NMD,/TEQP/SQN,(1/0,1/0,1/1,9/,6/FSQN) FILE SEQUENCE
13659  M00S06622.resex   +++| R        MKTE   WRL,/TEQP/RWL,(1/0,17/)  LABEL READ
13660  M00S06623.resex   +++| RT       MKTE   -RTD,/TEQP/RET  RETENTION DATE
13661  M00S06624.resex   +++| SI       MKTE   -SID,/TEQP/SID  MULTI-FILE SET IDENTIFIER
13662  M00S06625.resex   +++| SN       MKTE   -NMD,/TEQP/SCN,(1/0,1/0,1/0,9/,6/FSTN)  FILE SECTION
13663  M00S06626.resex   +++|
13664  M00S06627.resex   +++| ATWT     BSS    0           T - W SYNTAX TABLE
13665  M00S06628.resex   +++|
13666  M00S06629.resex   +++| T        MKTE   -RTC,/TEQP/RET  RETENTION CYCLE
13667  M00S06630.resex   +++| V        MKTE   -NMD,/TEQP/SCN,(1/0,1/0,1/0,9/,6/FSTN)  FILE SECTION
13668  M00S06631.resex   +++| VSN      MKTE   -VSP        VOLUME SERIAL NUMBER
13669  M00S06632.resex   +++| W        MKTE   WRL,/TEQP/RWL,(1/1,17/)  WRITE LABEL
13670  M00S06633.resex   +++|
13671  M00S06634.resex   +++| AXZT     BSS    0           X - Z SYNTAX TABLE
13672  M00S06635.resex   +++| ENDT     BSS    0           END OF SYNTAX TABLE
13673  M00S06636.resex   +++|
13674  M00S06637.resex   +++|          LOC    *O
13675  M00S06638.resex   +++|          QUAL   *
13676  M00S06639.resex   +++|
13677  M00S06640.resex   +++|          CON    37777777777777777777B  END OF KEYWORD TABLE
13678  M00S06641.resex   +++| TAOS     SPACE  4,10
13679  M00S06642.resex   +++|**        TAOS - TABLE OF ASSEMBLY OPTION SYNTAX TABLE ADDRESSES.
13680  M00S06643.resex   +++|
13681  M00S06644.resex   +++|
13682  M00S06645.resex   +++| TAOS     BSS    0
13683  M00S06646.resex   +++|          VFD    6//TAOK/ENDT
13684  M00S06647.resex   +++|          VFD    6//TAOK/ENDT
13685  M00S06648.resex   +++|          VFD    6//TAOK/ENDT
13686  M00S06649.resex   +++|          VFD    6//TAOK/AXZT
13687  M00S06650.resex   +++|          VFD    6//TAOK/ATWT
13688  M00S06651.resex   +++|          VFD    6//TAOK/APST
13689  M00S06652.resex   +++|          VFD    6//TAOK/ALOT
13690  M00S06653.resex   +++|          VFD    6//TAOK/AHKT
13691  M00S06654.resex   +++|          VFD    6//TAOK/ADGT
13692  M00S06655.resex   +++|          VFD    6//TAOK/AACT
13693  M00S06656.resex   +++| TEQP     SPACE  4,10
13694  M00S06657.resex   +++|**        TEQP - TABLE OF EQUIVALENT PARAMETERS.
13695  M00S06658.resex   +++|*
13696  M00S06659.resex   +++|*T        6/P1, 6/P2, 6/P3, 6/P4, 6/P5, 6/P6, 6/P7, 6/P8, 6/P9, 6/0

Figure

13697  M00S06660.resex   +++|*         P(I)   EQUIVALENT PARAMETERS KEYWORD TABLE INDEX
13698  M00S06661.resex   +++|
13699  M00S06662.resex   +++|
13700  M00S06663.resex   +++| TEQP     BSS    0
13701  M00S06664.resex   +++|          QUAL   TEQP
13702  M00S06665.resex   +++|          LOC    1
13703  M00S06666.resex   +++| CKI      VFD    6//TAOK/CB,6//TAOK/CK,48/0
13704  M00S06667.resex   +++| CVM      VFD    6//TAOK/CV,6//TAOK/N,48/0
13705  M00S06668.resex   +++| DEN      VFD    6//TAOK/D,6//TAOK/LO,6//TAOK/HI,6//TAOK/HY

Seq #  *Modification Id* Act 
----------------------------+
13706  M01S06669.274l797 ---|          VFD    6//TAOK/HD,6//TAOK/PE,6//TAOK/GE,18/0

Seq #  *Modification Id* Act 
----------------------------+
13707  M01S02508.274l797 +++|          VFD    6//TAOK/HD,6//TAOK/PE,6//TAOK/GE,18/0
13708  M00S06670.resex   +++| FID      VFD    6//TAOK/FI,6//TAOK/L,48/0
13709  M00S06671.resex   +++| RET      VFD    6//TAOK/RT,6//TAOK/T,48/0
13710  M00S06672.resex   +++| RWL      VFD    6//TAOK/R,6//TAOK/W,48/0
13711  M00S06673.resex   +++| SCN      VFD    6//TAOK/SN,6//TAOK/V,48/0
13712  M00S06674.resex   +++| SID      VFD    6//TAOK/SI,6//TAOK/M,48/0
13713  M00S06675.resex   +++| SQN      VFD    6//TAOK/QN,6//TAOK/P,48/0

Seq #  *Modification Id* Act 
----------------------------+
13714  M01S06676.274l797 ---| TRT      VFD    6//TAOK/MT,6//TAOK/NT,48/0

Seq #  *Modification Id* Act 
----------------------------+
13715  M01S02509.274l797 +++| TDT      VFD    6//TAOK/DT,6//TAOK/MT,6//TAOK/NT,42/0
13716  M00S06677.resex   +++|          LOC    *O
13717  M00S06678.resex   +++|          QUAL   *
13718  M00S06679.resex   +++|          TITLE  OPTION PROCESSORS.
13719  M00S06680.resex   +++|          SPACE  4,10
13720  M00S06681.resex   +++|**        KEYWORD PROCESSORS.
13721  M00S06682.resex   +++|*
13722  M00S06683.resex   +++|*         ENTRY  (X5) = REQUEST TYPE (0=LABEL, 1=REQUEST, -1=ASSIGN).
13723  M00S06684.resex   +++|*                (X6) = 0.
13724  M00S06685.resex   +++|*                (X7) = PROCESSOR PARAMETERS FROM KEYWORD TABLE ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
13725  M01S02510.274l797 +++|*                (B6) = STRING BUFFER POINTER.
13726  M00S06686.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
13727  M01S06687.274l797 ---|*         EXIT   TO *AMO1*, TO PROCESS NEXT ARGUMENT.
13728  M01S06688.274l797 ---|*                TO *AMO6*, IF ARGUMENTS EXHAUSTED.

Seq #  *Modification Id* Act 
----------------------------+
13729  M01S02511.274l797 +++|*         EXIT   TO *AFOR*, TO PROCESS NEXT ARGUMENT OR IF ARGUMENTS
13730  M01S02512.274l797 +++|*                   EXHAUSTED.
13731  M00S06689.resex   +++|*                TO *ERR*, IF ARGUMENT ERROR.

Seq #  *Modification Id* Act 
----------------------------+
13732  M01S06690.274l797 ---| SCD      SPACE  4,10
13733  M01S06691.274l797 ---|**        PROCESS *C* OPTION.
13734  M01S06692.274l797 ---|*                C=NNNNNN.   CHARACTER COUNT

Seq #  *Modification Id* Act 
----------------------------+
13735  M02S06693.274l797 ---|*                C=YYDDD.    CREATION DATE (*LABEL* CARD ONLY)

Seq #  *Modification Id* Act 
----------------------------+
13736  M02S00107.274l797 ---|*                C=YYDDD.    CREATION DATE (*LABEL* COMMAND ONLY)

Proceed to Part 12