Deck RESEX Part 017

65 Modifications

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

Seq #  *Modification Id* Act 
----------------------------+
14286  M02S07045.274l797 ---|*                D=(200,556,800,1600,6250)
14287  M01S02645.274l797 +++|**        STD - SET TAPE DENSITY.
14288  M01S07046.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
14289  M02S07047.v23l617 ---|*                LO          ASSIGN OR REQUEST CARDS ONLY

Seq #  *Modification Id* Act 
----------------------------+
14290  M02S00112.274l797 ---|*                LO          ASSIGN OR REQUEST COMMANDS ONLY

Seq #  *Modification Id* Act 
----------------------------+
14291  M02S07048.274l797 ---|*                HI

Seq #  *Modification Id* Act 
----------------------------+
14292  M02S07049.274l797 ---|*                HY

Seq #  *Modification Id* Act 
----------------------------+
14293  M02S07050.274l797 ---|*                HD

Seq #  *Modification Id* Act 
----------------------------+
14294  M02S07051.274l797 ---|*                PE

Seq #  *Modification Id* Act 
----------------------------+
14295  M02S07052.274l797 ---|*                GE
14296  M01S02646.274l797 +++|*         D=(LO,HI,HY,HD,PE,GE,CE,AE)
14297  M01S02647.274l797 +++|*         D=(200,556,800,1600,6250,38000)
14298  M01S02648.274l797 +++|*
14299  M01S02649.274l797 +++|*         THE FOLLOWING KEYWORDS ARE OBSOLETE AND ARE SUPPORTED BY THE
14300  M01S02650.274l797 +++|*         *ASSIGN* AND *REQUEST* COMMANDS FOR COMPATIBILITY ONLY -
14301  M01S02651.274l797 +++|*
14302  M01S02652.274l797 +++|*         LO
14303  M01S02653.274l797 +++|*         HI
14304  M01S02654.274l797 +++|*         HY
14305  M01S02655.274l797 +++|*         HD
14306  M01S02656.274l797 +++|*         PE
14307  M01S02657.274l797 +++|*         GE
14308  M01S07053.resex   +++|
14309  M01S07054.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
14310  M02S07055.274l797 ---| STD      SB3    TDEN        SET OPTION TABLE ADDRESS
14311  M01S02658.274l797 +++| STD      BSS    0           ENTRY
14312  M01S02659.274l797 +++|          SB3    TDEN        SET OPTION TABLE ADDRESS
14313  M01S07056.resex   +++|          RJ     AOP         ANALYZE DENSITY OPTION (NO LITERALS)

Seq #  *Modification Id* Act 
----------------------------+
14314  M02S07057.274l797 ---| STD1     SX0    47B         DENSITY/TRACK MASK

Seq #  *Modification Id* Act 
----------------------------+
14315  M02S07058.274l797 ---|          BX6    X7

Seq #  *Modification Id* Act 
----------------------------+
14316  M02S07059.274l797 ---|          LX6    59-6

Seq #  *Modification Id* Act 
----------------------------+
14317  M02S07060.274l797 ---|          NG     X6,STD2     IF TRACK SETTING REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
14318  M02S07061.274l797 ---|          SX0    7           DENSITY MASK

Seq #  *Modification Id* Act 
----------------------------+
14319  M02S07062.274l797 ---| STD2     SA2    F+FTAP      GET FET WORD

Seq #  *Modification Id* Act 
----------------------------+
14320  M02S07063.274l797 ---|          LX0    56-5

Seq #  *Modification Id* Act 
----------------------------+
14321  M02S07064.274l797 ---|          BX3    -X0*X2      CLEAR OLD DENSITY

Seq #  *Modification Id* Act 
----------------------------+
14322  M02S07065.274l797 ---|          LX7    56-5

Seq #  *Modification Id* Act 
----------------------------+
14323  M02S07066.274l797 ---|          SA6    DN          SAVE DENSITY PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
14324  M02S07067.274l797 ---|          BX7    X0*X7

Seq #  *Modification Id* Act 
----------------------------+
14325  M02S07068.274l797 ---|          BX7    X7+X3

Seq #  *Modification Id* Act 
----------------------------+
14326  M02S07069.274l797 ---|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
14327  M02S07070.274l797 ---|          EQ     AMO1        PROCESS NEXT ARGUMENT
14328  M01S02660.274l797 +++| STD1     SA2    F+FTAP
14329  M01S02661.274l797 +++|          MX0    -3
14330  M01S02662.274l797 +++|          BX6    -X0*X7      SPECIFIED DENSITY
14331  M01S02663.274l797 +++|          AX7    3
14332  M01S02664.274l797 +++|          LX6    51-0
14333  M01S02665.274l797 +++|          SA7    DM          SET DEVICE TYPE VALIDATION MASK
14334  M01S02666.274l797 +++|          BX6    X2+X6       SET DENSITY
14335  M01S02667.274l797 +++|          SA6    A2
14336  M01S02668.274l797 +++|          EQ     AFOR        PROCESS NEXT ARGUMENT
14337  M01S07071.resex   +++|
14338  M01S02669.274l797 +++|*         ENTRY FOR *LO*, *HI*, *HY*, *HD*, *PE*, AND *GE* KEYWORDS.
14339  M01S02670.274l797 +++|
14340  M01S07072.resex   +++| STD3     ZR     X5,ERR      IF *LABEL* CALL
14341  M01S07073.resex   +++|          SA1    TDEN+X7
14342  M01S07074.resex   +++|          BX7    X1
14343  M01S07075.resex   +++|          EQ     STD1        PROCESS DENSITY
14344  M01S07076.resex   +++| STF      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
14345  M02S07077.274l797 ---|**        SET FORMAT.

Seq #  *Modification Id* Act 
----------------------------+
14346  M02S07078.274l797 ---|*                F=(I,SI,F,S,L)
14347  M01S02671.274l797 +++|**        STF - SET FORMAT.
14348  M01S02672.274l797 +++|*
14349  M01S02673.274l797 +++|*         F=(I,SI,F,S,L,LI)
14350  M01S07079.resex   +++|
14351  M01S07080.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
14352  M02S07081.274l797 ---| STF      SA3    FC          READ CHARACTER COUNT ASSIGNMENT WORD

Seq #  *Modification Id* Act 
----------------------------+
14353  M02S07082.274l797 ---|          SA4    =774077777777B

Seq #  *Modification Id* Act 
----------------------------+
14354  M02S07083.274l797 ---|          ZR     X3,STF1     IF CHARACTER COUNT NOT ASSIGNED

Seq #  *Modification Id* Act 
----------------------------+
14355  M02S07084.274l797 ---|          SA4    =177BS29

Seq #  *Modification Id* Act 
----------------------------+
14356  M02S07085.274l797 ---| STF1     SB3    STFA        SET OPTION TABLE ADDRESS
14357  M01S02674.274l797 +++| STF      BSS    0           ENTRY
14358  M01S02675.274l797 +++|          SB3    STFA        SET OPTION TABLE ADDRESS
14359  M01S07086.resex   +++|          SX6    B0+         DISABLE LITERAL PROCESSING
14360  M01S07087.resex   +++|          RJ     AOP         ANALYZE FORMAT OPTIONS
14361  M01S07088.resex   +++|          SA2    F+FTAP

Seq #  *Modification Id* Act 
----------------------------+
14362  M02S07089.274l797 ---|          BX2    -X4*X2

Seq #  *Modification Id* Act 
----------------------------+
14363  M02S07090.274l797 ---|          BX1    X4*X7

Seq #  *Modification Id* Act 
----------------------------+
14364  M02S07091.274l797 ---|          BX6    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
14365  M02S07092.274l797 ---|          SA6    A2
14366  M01S02676.274l797 +++|          LX7    30
14367  M01S02677.274l797 +++|          BX7    X2+X7       SET FORMAT
14368  M01S02678.274l797 +++|          SA7    A2
14369  M01S02679.274l797 +++|          EQ     AFOR        PROCESS NEXT ARGUMENT
14370  M01S02680.274l797 +++|
14371  M01S02681.274l797 +++|
14372  M01S02682.274l797 +++| STFA     VFD    42/0LI,18//COMSMTX/TFI    INTERNAL BINARY
14373  M01S02683.274l797 +++|          VFD    42/0LSI,18//COMSMTX/TFSI  SYSTEM INTERNAL
14374  M01S02684.274l797 +++|          VFD    42/0LF,18//COMSMTX/TFF    FOREIGN
14375  M01S02685.274l797 +++|          VFD    42/0LS,18//COMSMTX/TFS    STRANGER
14376  M01S02686.274l797 +++|          VFD    42/0LL,18//COMSMTX/TFL    LONG BLOCK STRANGER
14377  M01S02687.274l797 +++|          VFD    42/0LLI,18//COMSMTX/TFLI  LONG BLOCK INTERNAL
14378  M01S02688.274l797 +++|          CON    0
14379  M01S02689.274l797 +++| STT      SPACE  4,10
14380  M01S02690.274l797 +++|**        STT - SET TAPE DEVICE TYPE.
14381  M01S02691.274l797 +++|*
14382  M01S02692.274l797 +++|*         DT=(MT,NT,CT,AT)
14383  M01S02693.274l797 +++|*
14384  M01S02694.274l797 +++|*         THE FOLLOWING KEYWORDS ARE OBSOLETE AND ARE SUPPORTED FOR
14385  M01S02695.274l797 +++|*         COMPATIBILITY ONLY -
14386  M01S02696.274l797 +++|*
14387  M01S02697.274l797 +++|*         MT
14388  M01S02698.274l797 +++|*         NT
14389  M01S02699.274l797 +++|
14390  M01S02700.274l797 +++|
14391  M01S02701.274l797 +++| STT      BSS    0           ENTRY
14392  M01S02702.274l797 +++|          SB3    STTA        SET OPTION TABLE ADDRESS
14393  M01S02703.274l797 +++|          SX6    B0+         DISABLE LITERAL PROCESSING
14394  M01S02704.274l797 +++|          RJ     AOP         ANALYZE DEVICE TYPE OPTIONS
14395  M01S02705.274l797 +++|
14396  M01S02706.274l797 +++|*         ENTRY FOR *MT* AND *NT* KEYWORDS.
14397  M01S02707.274l797 +++|
14398  M01S02708.274l797 +++| STT1     SA1    F+FTAP
14399  M01S07093.resex   +++|          SX6    B1

Seq #  *Modification Id* Act 
----------------------------+
14400  M02S07094.274l797 ---|          SA6    FP          SET F= PROCESSED

Seq #  *Modification Id* Act 
----------------------------+
14401  M02S07095.274l797 ---|          EQ     AMO1        PROCESS NEXT ARGUMENT
14402  M01S02709.274l797 +++|          LX7    55-0
14403  M01S02710.274l797 +++|          SA6    TT          SET DEVICE TYPE SPECIFIED FLAG
14404  M01S02711.274l797 +++|          BX7    X1+X7       SET DEVICE TYPE
14405  M01S02712.274l797 +++|          SA7    A1
14406  M01S02713.274l797 +++|          EQ     AFOR        PROCESS NEXT ARGUMENT
14407  M01S02714.274l797 +++|
14408  M01S02715.274l797 +++|
14409  M01S02716.274l797 +++| STTA     BSS    0
14410  M01S02717.274l797 +++|          VFD    42/0LMT,18//COMSMTX/DVMT
14411  M01S02718.274l797 +++|          VFD    42/0LNT,18//COMSMTX/DVNT
14412  M01S02719.274l797 +++|          VFD    42/0LCT,18//COMSMTX/DVCT
14413  M01S02720.274l797 +++|          VFD    42/0LAT,18//COMSMTX/DVAT
14414  M01S02721.274l797 +++|          CON    0
14415  M01S02722.274l797 +++| VSP      SPACE  4,10
14416  M01S02723.274l797 +++|**        VSP - SET VOLUME SERIAL NUMBERS.
14417  M01S02724.274l797 +++|*
14418  M01S02725.274l797 +++|*         VSN=NNNN/NNNN=NNNN/NNNN=...=NNNN/NNNN.
14419  M01S07096.resex   +++|
14420  M01S07097.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
14421  M02S07098.274l797 ---| STFA     VFD    24/0LI,6//COMSMTX/TFI,30/5120     INTERNAL BINARY

Seq #  *Modification Id* Act 
----------------------------+
14422  M02S07099.274l797 ---|          VFD    24/0LSI,6//COMSMTX/TFSI,30/5120   SYSTEM INTERNAL

Seq #  *Modification Id* Act 
----------------------------+
14423  M02S07100.274l797 ---|          VFD    24/0LF,6//COMSMTX/TFF,30/0        FOREIGN

Seq #  *Modification Id* Act 
----------------------------+
14424  M02S07101.274l797 ---|          VFD    24/0LS,6//COMSMTX/TFS,30/0        STRANGER

Seq #  *Modification Id* Act 
----------------------------+
14425  M02S07102.274l797 ---|          VFD    24/0LL,6//COMSMTX/TFL,30/0        LONG BLOCK STRANGER

Seq #  *Modification Id* Act 
----------------------------+
14426  M02S07103.274l797 ---|          CON    0

Seq #  *Modification Id* Act 
----------------------------+
14427  M02S07104.274l797 ---| STK      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
14428  M02S07105.274l797 ---|**        SET SEVEN/NINE TRACK.

Seq #  *Modification Id* Act 
----------------------------+
14429  M02S07106.274l797 ---|*                MT

Seq #  *Modification Id* Act 
----------------------------+
14430  M02S07107.274l797 ---|*                NT

Seq #  *Modification Id* Act 
----------------------------+
14431  M02S07108.274l797 ---|*         IF MT, CONVERSION MODE IS CLEARED.

Seq #  *Modification Id* Act 
----------------------------+
14432  M02S07109.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
14433  M02S07110.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
14434  M02S07111.274l797 ---| STK      SX6    X7

Seq #  *Modification Id* Act 
----------------------------+
14435  M02S07112.274l797 ---|          SX0    B1

Seq #  *Modification Id* Act 
----------------------------+
14436  M02S07113.274l797 ---|          SA6    MN          SET MN = -1 IF *MT*, 1 IF *NT*

Seq #  *Modification Id* Act 
----------------------------+
14437  M02S07114.274l797 ---|          SA2    F+FTAP

Seq #  *Modification Id* Act 
----------------------------+
14438  M02S07115.274l797 ---|          BX7    X0*X7

Seq #  *Modification Id* Act 
----------------------------+
14439  M02S07116.274l797 ---|          LX0    56-0

Seq #  *Modification Id* Act 
----------------------------+
14440  M02S07117.274l797 ---|          BX2    -X0*X2

Seq #  *Modification Id* Act 
----------------------------+
14441  M02S07118.274l797 ---|          LX7    56-0

Seq #  *Modification Id* Act 
----------------------------+
14442  M02S07119.274l797 ---|          BX6    X7+X2       SET TRACK TYPE

Seq #  *Modification Id* Act 
----------------------------+
14443  M02S07120.274l797 ---|          MX0    3

Seq #  *Modification Id* Act 
----------------------------+
14444  M02S07121.274l797 ---|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
14445  M02S07122.274l797 ---|          NZ     X7,AMO1     IF *NT*

Seq #  *Modification Id* Act 
----------------------------+
14446  M02S07123.274l797 ---|          LX0    -9

Seq #  *Modification Id* Act 
----------------------------+
14447  M02S07124.274l797 ---|          BX6    -X0*X6      CLEAR CONVERSION MODE

Seq #  *Modification Id* Act 
----------------------------+
14448  M02S07125.274l797 ---|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
14449  M02S07126.274l797 ---|          EQ     AMO1        PROCESS NEXT ARGUMENT

Seq #  *Modification Id* Act 
----------------------------+
14450  M02S07127.274l797 ---| VSP      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
14451  M02S07128.274l797 ---|**        SET VOLUME SERIAL NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
14452  M02S07129.274l797 ---|*                VSN=NNNN=NNNN=...=NNNN.

Seq #  *Modification Id* Act 
----------------------------+
14453  M02S07130.274l797 ---|*                VSN=NNNN/NNNN/.../NNNN.

Seq #  *Modification Id* Act 
----------------------------+
14454  M02S07131.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
14455  M02S07132.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
14456  M02S07133.274l797 ---| VSP      SA1    /CPA/RFCW   GET DEMAND FILE INDEX
14457  M01S02726.274l797 +++| VSP      BSS    0           ENTRY
14458  M01S02727.274l797 +++|          SA1    /CPA/RFCW   GET DEMAND FILE INDEX
14459  M01S07134.resex   +++|          SX7    B1
14460  M01S07135.resex   +++|          SX1    X1
14461  M01S07136.resex   +++|          SA7    VP          SET VSN= PROCESSED
14462  M01S07137.resex   +++|          NZ     X1,VSP1     IF DEMAND ENTRY EXISTS
14463  M01S07138.resex   +++|          RJ     IDE         INITIALIZE DEMAND ENTRY

Seq #  *Modification Id* Act 
----------------------------+
14464  M02S07139.282l826 ---| VSP1     SX4    B1          INDICATE *VSN* PARAMETER CALL
14465  M01S01046.282l826 +++| VSP1     SA3    F           SET FILE NAME
14466  M01S07140.resex   +++|          RJ     BVE         BUILD VSN ENTRY

Seq #  *Modification Id* Act 
----------------------------+
14467  M02S07141.274l797 ---|          EQ     AMO1        PROCESS NEXT ARGUMENT
14468  M01S02728.274l797 +++|          EQ     AFOR        PROCESS NEXT ARGUMENT
14469  M01S07142.resex   +++| WRL      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
14470  M02S07143.274l797 ---|**        SET LABEL READ/WRITE.

Seq #  *Modification Id* Act 
----------------------------+
14471  M02S07144.274l797 ---|*                R

Seq #  *Modification Id* Act 
----------------------------+
14472  M02S07145.274l797 ---|*                W

Seq #  *Modification Id* Act 
----------------------------+
14473  M02S07146.274l797 ---|*         FORCES RING IN IF *W*.
14474  M01S02729.274l797 +++|**        WRL - SET LABEL READ/WRITE.
14475  M01S02730.274l797 +++|*
14476  M01S02731.274l797 +++|*         R
14477  M01S02732.274l797 +++|*         W
14478  M01S02733.274l797 +++|*
14479  M01S02734.274l797 +++|*         FORCES WRITE ENABLE REQUIRED IF *W*.
14480  M01S07147.resex   +++|
14481  M01S07148.resex   +++|

Seq #  *Modification Id* Act 
----------------------------+
14482  M02S07149.274l797 ---| WRL      NZ     X5,ERR      IF NOT *LABEL* CALL

Seq #  *Modification Id* Act 
----------------------------+
14483  M02S07150.274l797 ---|          ZR     X7,AMO1     IF LABEL TO BE READ
14484  M01S02735.274l797 +++| WRL      BSS    0           ENTRY
14485  M01S02736.274l797 +++|          NZ     X5,ERR      IF NOT *LABEL* CALL
14486  M01S02737.274l797 +++|          ZR     X7,AFOR     IF LABEL TO BE READ
14487  M01S07151.resex   +++|          SA2    F+FTAP      SET WRITE LABELS BIT
14488  M01S07152.resex   +++|          LX7    59-17
14489  M01S07153.resex   +++|          BX6    X2+X7
14490  M01S07154.resex   +++|          LX7    40-17-59+17

Seq #  *Modification Id* Act 
----------------------------+
14491  M02S07155.274l797 ---|          BX6    X6+X7       ENFORCE RING IN
14492  M01S02738.274l797 +++|          BX6    X6+X7       SET WRITE ENABLE REQUIRED (PO = W)
14493  M01S07156.resex   +++|          SA6    A2+

Seq #  *Modification Id* Act 
----------------------------+
14494  M02S07157.274l797 ---|          EQ     AMO1        PROCESS NEXT ARGUMENT
14495  M01S02739.274l797 +++|          EQ     AFOR        PROCESS NEXT ARGUMENT

Seq #  *Modification Id* Act 
----------------------------+
14496  M02S07158.v23l617 ---|          TITLE  CONTROL CARD PROCESSING SUBROUTINES.
14497  M01S00113.v23l617 +++|          TITLE  COMMAND PROCESSING SUBROUTINES.
14498  M01S07159.resex   +++| AOP      SPACE  4,25
14499  M01S07160.resex   +++|**        AOP - ANALYZE OPTIONAL PARAMETERS.
14500  M01S07161.resex   +++|*
14501  M01S07162.resex   +++|*         ENTRY  (B6) = ADDRESS TO BEGIN PARAMETER ASSEMBLY
14502  M01S07163.resex   +++|*                (B3) = PARAMETER OPTION TABLE ADDRESS
14503  M01S07164.resex   +++|*                (X6) = 0, IF DISABLE LITERAL PROCESSING.
14504  M01S07165.resex   +++|*                       .NE. 0, IF ENABLE LITERAL PROCESSING.
14505  M01S07166.resex   +++|*
14506  M01S07167.resex   +++|*         EXIT   (X5) = SEPARATOR.

Seq #  *Modification Id* Act 
----------------------------+
14507  M02S07168.274l797 ---|*                (X7) = OPTION TABLE ENTRY.

Seq #  *Modification Id* Act 
----------------------------+
14508  M02S07169.274l797 ---|*                (B2) = PARAMETER PROCESSOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
14509  M02S07170.274l797 ---|*                TO *AMO6*, IF ARGUMENTS EXHAUSTED.
14510  M01S02740.274l797 +++|*                (X1) = OPTION TABLE ENTRY.
14511  M01S02741.274l797 +++|*                (X7) = LOWER 18 BITS OF ENTRY.
14512  M01S02742.274l797 +++|*                TO *AFOR*, IF ARGUMENTS EXHAUSTED.
14513  M01S07171.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
14514  M02S07172.v23l617 ---|*         ERROR  TO *ERR*, IF CONTROL STATEMENT ERROR.
14515  M01S00114.v23l617 +++|*         ERROR  TO *ERR*, IF COMMAND ERROR.
14516  M01S07173.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
14517  M02S07174.274l797 ---|*         KEYWORDS MUST BE LESS THAN OR EQUAL TO FIVE CHARACTERS.
14518  M01S02743.274l797 +++|*         KEYWORDS MUST BE LESS THAN OR EQUAL TO SEVEN CHARACTERS.
14519  M01S07175.resex   +++|*
14520  M01S07176.resex   +++|*         USES   A - 1, 5.

Seq #  *Modification Id* Act 
----------------------------+
14521  M02S07177.274l797 ---|*                B - 2, 7.
14522  M01S02744.274l797 +++|*                B - 7.
14523  M01S07178.resex   +++|*                X - 0, 1, 5, 6, 7.
14524  M01S07179.resex   +++|*
14525  M01S07180.resex   +++|*         CALLS  CLP.
14526  M01S07181.resex   +++|
14527  M01S07182.resex   +++|
14528  M01S07183.resex   +++| AOP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
14529  M02S07184.274l797 ---|          ZR     B6,AMO6     IF ARGUMENTS EXHAUSTED
14530  M01S02745.274l797 +++|          ZR     B6,AFOR     IF ARGUMENTS EXHAUSTED
14531  M01S07185.resex   +++|          RJ     CLP         CALL PICK OUT PARAMETER
14532  M01S07186.resex   +++|          GE     B5,B1,ERR   IF PARAMETER/KEYWORD TOO LONG
14533  M01S07187.resex   +++|          SB7    A1          RETAIN SEPARATOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
14534  M02S07188.274l797 ---|          MX0    4*6
14535  M01S02746.274l797 +++|          MX0    7*6
14536  M01S07189.resex   +++|          SA1    B3-1        READ OPTION TABLE
14537  M01S07190.resex   +++| AOP1     SA1    A1+B1
14538  M01S07191.resex   +++|          BX6    X0*X1       KEYWORD
14539  M01S07192.resex   +++|          ZR     X1,ERR      IF END OF OPTIONS
14540  M01S07193.resex   +++|          BX6    X6-X5

Seq #  *Modification Id* Act 
----------------------------+
14541  M02S07194.274l797 ---|          LX7    X1
14542  M01S02747.274l797 +++|          BX7    -X0*X1      SET PARAMETERS
14543  M01S07195.resex   +++|          NZ     X6,AOP1     IF NO MATCH

Seq #  *Modification Id* Act 
----------------------------+
14544  M02S07196.274l797 ---|          SB2    X7
14545  M01S07197.resex   +++|          SA5    B7          READ SEPARATOR
14546  M01S07198.resex   +++|          EQ     AOPX
14547  M01S07199.resex   +++| CLP      SPACE  4,20
14548  M01S07200.resex   +++|**        CLP - CALL POP.
14549  M01S07201.resex   +++|*
14550  M01S07202.resex   +++|*         ENTRY  (B6) = ASSEMBLY POINTER.
14551  M01S07203.resex   +++|*                (X6) = 0, IF DISABLE LITERAL PROCESSING.
14552  M01S07204.resex   +++|*                       .NE. 0, IF ENABLE LITERAL PROCESSING.
14553  M01S07205.resex   +++|*
14554  M01S07206.resex   +++|*         EXIT   (B6) = NEXT ASSEMBLY POINTER.
14555  M01S07207.resex   +++|*                (X5) = FIRST PART OF PARAMETER.

Seq #  *Modification Id* Act 
----------------------------+
14556  M02S07208.274l797 ---|*                TO *AMO6*, IF ARGUMENTS EXHAUSTED.
14557  M01S02748.274l797 +++|*                TO *AFOR*, IF ARGUMENTS EXHAUSTED.
14558  M01S07209.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
14559  M02S07210.v23l617 ---|*         ERROR  TO *ERR*, IF CONTROL STATEMENT ERROR.
14560  M01S00115.v23l617 +++|*         ERROR  TO *ERR*, IF COMMAND ERROR.
14561  M01S07211.resex   +++|*
14562  M01S07212.resex   +++|*         USES   A - 5, 6.
14563  M01S07213.resex   +++|*                X - 5.
14564  M01S07214.resex   +++|*
14565  M01S07215.resex   +++|*         CALLS  POP.
14566  M01S07216.resex   +++|
14567  M01S07217.resex   +++| CLP      SUBR               ENTRY/EXIT

Seq #  *Modification Id* Act 
----------------------------+
14568  M02S07218.v23l617 ---|          ZR     B6,AMO6     IF CONTROL CARD EXHAUSTED

Seq #  *Modification Id* Act 
----------------------------+
14569  M02S00116.274l797 ---|          ZR     B6,AMO6     IF COMMAND EXHAUSTED
14570  M01S02749.274l797 +++|          ZR     B6,AFOR     IF COMMAND EXHAUSTED
14571  M01S07219.resex   +++|          SA6    LIT         SET PROPER OPTION FOR LITERAL PROCESSING
14572  M01S07220.resex   +++|          RJ     POP         PICK OUT PARAMETER
14573  M01S07221.resex   +++|          NG     B5,ERR      IF NO PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
14574  M02S07222.v23l617 ---|          ZR     X2,ERR      IF ILLEGAL TERMINATION
14575  M01S00117.v23l617 +++|          ZR     X2,ERR      IF INCORRECT TERMINATION
14576  M01S07223.resex   +++|          SA5    POPA        READ FIRST PART PARAMETER
14577  M01S07224.resex   +++|          EQ     CLPX        EXIT
14578  M01S07225.resex   +++| ENF      SPACE  4,15
14579  M01S07226.resex   +++|**        ENF - ENTER NUMERIC LABEL FIELD.
14580  M01S07227.resex   +++|*
14581  M01S07228.resex   +++|*         ENTRY  (X1) = FET WORD CONTROL
14582  M01S07229.resex   +++|*                            LOWER 18 BITS = FET WORD ADDRESS
14583  M01S07230.resex   +++|*                            SIGN BIT SET = FIELD BITS 23-15
14584  M01S07231.resex   +++|*                            SIGN BIT CLEAR = FIELD BITS 14-00
14585  M01S07232.resex   +++|*                (X6) = NUMBER IN OCTAL.
14586  M01S07233.resex   +++|*
14587  M01S07234.resex   +++|*         EXIT   FIELD ENTERED IN FET WORD.
14588  M01S07235.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
14589  M02S07236.v23l617 ---|*         ERROR  TO *ERR*, IF CONTROL STATEMENT ERROR.
14590  M01S00118.v23l617 +++|*         ERROR  TO *ERR*, IF COMMAND ERROR.
14591  M01S07237.resex   +++|*
14592  M01S07238.resex   +++|*         USES   A - 2, 6.
14593  M01S07239.resex   +++|*                X - 0, 1, 5, 6.
14594  M01S07240.resex   +++|
14595  M01S07241.resex   +++|
14596  M01S07242.resex   +++| ENF1     SX5    X6-100
14597  M01S07243.resex   +++|          PL     X5,ERR      IF VALUE TOO LARGE
14598  M01S07244.resex   +++|          MX0    -9
14599  M01S07245.resex   +++|          LX6    15
14600  M01S07246.resex   +++|          LX0    15
14601  M01S07247.resex   +++| ENF2     SA2    X1          ENTER VALUE IN FET WORD
14602  M01S07248.resex   +++|          BX2    X0*X2
14603  M01S07249.resex   +++|          BX6    X6+X2
14604  M01S07250.resex   +++|          SA6    A2
14605  M01S07251.resex   +++|
14606  M01S07252.resex   +++| ENF      SUBR               ENTRY/EXIT
14607  M01S07253.resex   +++|          MX0    -15
14608  M01S07254.resex   +++|          BX6    -X0*X6
14609  M01S07255.resex   +++|          NG     X1,ENF1     IF UPPER FIELD

Seq #  *Modification Id* Act 
----------------------------+
14610  M02S07256.v23l617 ---|          ZR     X6,ERR      IF ILLEGAL VALUE
14611  M01S00119.v23l617 +++|          ZR     X6,ERR      IF INCORRECT VALUE
14612  M01S07257.resex   +++|          SX5    X6-10000
14613  M01S07258.resex   +++|          PL     X5,ERR      IF VALUE TOO LARGE
14614  M01S07259.resex   +++|          EQ     ENF2        ENTER VALUE IN FET WORD
14615  M01S07260.resex   +++| GRD      SPACE  4,15
14616  M01S07261.resex   +++|**        GRD - GENERATE RETENTION DATE.
14617  M01S07262.resex   +++|*
14618  M01S07263.resex   +++|*         ENTRY  (RC) = RETENTION CYCLE (LEFT-JUSTIFIED, DISPLAY CODE)
14619  M01S07264.resex   +++|*
14620  M01S07265.resex   +++|*         EXIT   RETENTION DATE SET IN FET+15B.
14621  M01S07266.resex   +++|*

Seq #  *Modification Id* Act 
----------------------------+
14622  M02S07267.v23l617 ---|*         ERROR  TO *ERR*, IF CONTROL STATEMENT ERROR.
14623  M01S00120.v23l617 +++|*         ERROR  TO *ERR*, IF COMMAND ERROR.
14624  M01S07268.resex   +++|*
14625  M01S07269.resex   +++|*         USES   A - 0, 1, 2, 4, 7.
14626  M01S07270.resex   +++|*                B - 2, 3, 4, 7.
14627  M01S07271.resex   +++|*                X - 0, 1, 2, 4, 5, 6, 7.
14628  M01S07272.resex   +++|*
14629  M01S07273.resex   +++|*         CALLS  CDD, DXB.
14630  M01S07274.resex   +++|*
14631  M01S07275.resex   +++|*         MACROS JDATE.
14632  M01S07276.resex   +++|
14633  M01S07277.resex   +++|
14634  M01S07278.resex   +++| GRD      SUBR               ENTRY/EXIT
14635  M01S07279.resex   +++|          JDATE  GRDA        SET CURRENT DATE
14636  M01S07280.resex   +++|          SA1    F+FCRD      CHECK CREATION DATE
14637  M01S07281.resex   +++|          ZR     X1,GRD1     IF NO CREATION DATE
14638  M01S07282.resex   +++|          BX7    X1
14639  M01S07283.resex   +++|          SA7    GRDA
14640  M01S07284.resex   +++| GRD1     SA1    RC          CHECK RETENTION CYCLE
14641  M01S07285.resex   +++|          ZR     X1,GRDX     IF NO RETENTION CYCLE
14642  M01S07286.resex   +++|          BX5    X1
14643  M01S07287.resex   +++|          SB7    B1
14644  M01S07288.resex   +++|          RJ     DXB
14645  M01S07289.resex   +++|          SX5    999         CHECK PARAMETER VALIDITY
14646  M01S07290.resex   +++|          NZ     X4,ERR      IF ASSEMBLY ERRORS
14647  M01S07291.resex   +++|          IX7    X5-X6
14648  M01S07292.resex   +++|          SA2    GRDA
14649  M01S07293.resex   +++|          MX0    18
14650  M01S07294.resex   +++|          SA4    =5L99999    SET UNLIMITED EXPIRATION DATE
14651  M01S07295.resex   +++|          ZR     X7,GRD4     IF INFINITE RETENTION CYCLE
14652  M01S07296.resex   +++|          SA0    X6          SAVE RETENTION DAYS
14653  M01S07297.resex   +++|          LX2    42
14654  M01S07298.resex   +++|          NG     X7,ERR      IF RETENTION CYCLE GREATER THAN 999
14655  M01S07299.resex   +++|          BX5    X0*X2
14656  M01S07300.resex   +++|          RJ     DXB         CONVERT CURRENT JULIAN DAYS
14657  M01S07301.resex   +++|          SA2    GRDA
14658  M01S07302.resex   +++|          NZ     X4,ERR      IF ASSEMBLY ERRORS
14659  M01S07303.resex   +++|          MX0    12
14660  M01S07304.resex   +++|          LX2    30
14661  M01S07305.resex   +++|          SB4    X6+
14662  M01S07306.resex   +++|          BX5    X0*X2
14663  M01S07307.resex   +++|          SA0    A0+B4       EXTEND DAYS TO END OF RETENTION CYCLE
14664  M01S07308.resex   +++|          RJ     DXB         CONVERT CURRENT JULIAN YEARS
14665  M01S07309.resex   +++|          SX0    3
14666  M01S07310.resex   +++|          NZ     X4,ERR      IF ASSEMBLY ERRORS
14667  M01S07311.resex   +++| GRD2     BX5    X0*X6
14668  M01S07312.resex   +++|          SX6    X6+B1

Seq #  *Modification Id* Act 
----------------------------+
14669  M02S07313.ns2786  ---|          SB4    366
14670  M01S00001.ns2786  +++|          SB7    366
14671  M01S07314.resex   +++|          ZR     X5,GRD3     IF LEAP YEAR

Seq #  *Modification Id* Act 
----------------------------+
14672  M02S07315.ns2786  ---|          SB4    B4-1

Seq #  *Modification Id* Act 
----------------------------+
14673  M02S07316.ns2786  ---| GRD3     SA0    A0-B4
14674  M01S00002.ns2786  +++|          SB7    365
14675  M01S00003.ns2786  +++| GRD3     SA0    A0-B7
14676  M01S07317.resex   +++|          SB2    A0
14677  M01S00004.ns2786  +++|          ZR     B2,GRD3.1   IF NO MORE DAYS
14678  M01S07318.resex   +++|          PL     B2,GRD2     IF MORE DAYS

Seq #  *Modification Id* Act 
----------------------------+
14679  M02S07319.ns2786  ---|          SA0    A0+B4

Seq #  *Modification Id* Act 
----------------------------+
14680  M02S07320.ns2786  ---|          SX1    X6-1
14681  M01S00005.ns2786  +++| GRD3.1   SX1    X6+99       ADJUST AND BIAS TO ENSURE ENOUGH DIGITS
14682  M01S07321.resex   +++|          RJ     CDD         CONVERT NEW YEAR

Seq #  *Modification Id* Act 
----------------------------+
14683  M02S07322.ns2786  ---|          BX5    X4          SAVE YEAR

Seq #  *Modification Id* Act 
----------------------------+
14684  M02S07323.ns2786  ---|          SX1    A0
14685  M01S00006.ns2786  +++|          MX7    -12
14686  M01S00007.ns2786  +++|          BX5    -X7*X6      ISOLATE AND SAVE YEAR
14687  M01S00008.ns2786  +++|          LX5    48          POSITION YEAR
14688  M01S00009.ns2786  +++|          SA0    A0+B7
14689  M01S00010.ns2786  +++|          SX1    A0+1000     BIAS DAYS TO ENSURE ENOUGH DIGITS
14690  M01S07324.resex   +++|          RJ     CDD         CONVERT NEW DAY

Seq #  *Modification Id* Act 
----------------------------+
14691  M02S07325.ns2786  ---|          MX7    12

Seq #  *Modification Id* Act 
----------------------------+
14692  M02S07326.ns2786  ---|          BX5    X7*X5

Seq #  *Modification Id* Act 
----------------------------+
14693  M02S07327.ns2786  ---|          SB4    6*3

Seq #  *Modification Id* Act 
----------------------------+
14694  M02S07328.ns2786  ---|          MX0    18

Seq #  *Modification Id* Act 
----------------------------+
14695  M02S07329.ns2786  ---|          SX7    3R000

Seq #  *Modification Id* Act 
----------------------------+
14696  M02S07330.ns2786  ---|          BX4    X0*X4

Seq #  *Modification Id* Act 
----------------------------+
14697  M02S07331.ns2786  ---|          SB3    B4-B2

Seq #  *Modification Id* Act 
----------------------------+
14698  M02S07332.ns2786  ---|          BX7    X7+X4

Seq #  *Modification Id* Act 
----------------------------+
14699  M02S07333.ns2786  ---|          GT     B2,B4,ERR   IF TOO MANY DIGITS

Seq #  *Modification Id* Act 
----------------------------+
14700  M02S07334.ns2786  ---|          SB4    60

Seq #  *Modification Id* Act 
----------------------------+
14701  M02S07335.ns2786  ---|          SB3    B4-B3

Seq #  *Modification Id* Act 
----------------------------+
14702  M02S07336.ns2786  ---|          LX7    X7,B3

Seq #  *Modification Id* Act 
----------------------------+
14703  M02S07337.ns2786  ---|          BX7    X0*X7
14704  M01S00011.ns2786  +++|          MX0    -18

Seq #  *Modification Id* Act 
----------------------------+
14705  M02S07338.ns2786  ---|          LX7    -12
14706  M01S00012.ns2786  +++|          BX7    -X0*X6      ISOLATE DAY
14707  M01S00013.ns2786  +++|          LX7    30          POSITION DAY
14708  M01S07339.resex   +++|          BX4    X5+X7
14709  M01S07340.resex   +++| GRD4     SA2    F+FRTD      ENTER RETENTION DATE
14710  M01S07341.resex   +++|          MX0    30
14711  M01S07342.resex   +++|          BX2    -X0*X2
14712  M01S07343.resex   +++|          BX7    X2+X4
14713  M01S07344.resex   +++|          SA7    A2
14714  M01S07345.resex   +++|          EQ     GRDX        RETURN
14715  M01S07346.resex   +++|
14716  M01S07347.resex   +++|
14717  M01S07348.resex   +++| GRDA     CON    0           CREATION DATE TEMPORARY

Seq #  *Modification Id* Act 
----------------------------+
14718  M02S00880.253l688 ---|          TITLE  TMS COMMAND PROCESSING.
14719  M01S00667.253l688 +++|          TITLE  *TMS* COMMAND PROCESSING.
14720  M01S00881.252l678 +++| TMS      SPACE  4
14721  M01S00882.252l678 +++|          QUAL   TFM
14722  M01S00883.252l678 +++| COMMON   SPACE  4,10
14723  M01S00884.252l678 +++|**        COMMON DECKS.
14724  M01S00885.252l678 +++|
14725  M01S00886.252l678 +++|
14726  M01S00887.252l678 +++|*CALL     COMSTCM
14727  M01S00888.252l678 +++| FETS     SPACE  4,10
14728  M01S00889.252l678 +++|**        PASSWORD FETS.
14729  M01S00890.252l678 +++|
14730  M01S00891.252l678 +++|
14731  M01S00892.252l678 +++| I        BSS    0           INPUT FILE FET
14732  M01S00893.252l678 +++| INPUT    FILEC  IBUF,BUFL,FET=6
14733  M01S00894.252l678 +++|
14734  M01S00895.252l678 +++| O        BSS    0           OUTPUT FILE FET
14735  M01S00896.252l678 +++| OUTPUT   FILEB  PMSG,PMSGL+1,FET=6
14736  M01S00897.252l678 +++| TMO      SPACE  4,15
14737  M01S00898.252l678 +++|**        TMO - TAPE MANAGER OPTIONS.
14738  M01S00899.252l678 +++|*
14739  M01S00900.252l678 +++|*         ENTRY  USBB HAS CONTROL CARD (1 CHARACTER PER WORD).
14740  M01S00901.252l678 +++|*                (X1) = PARAMETER.
14741  M01S00902.252l678 +++|*                (A1) = ADDRESS OF SEPARATOR.
14742  M01S00903.252l678 +++|*                (B6) = STRING BUFFER POINTER.
14743  M01S00904.252l678 +++|*
14744  M01S00905.252l678 +++|*         EXIT   TO KEYWORD PROCESSOR.
14745  M01S00906.252l678 +++|*                (X5) = REQUEST TYPE.
14746  M01S00907.252l678 +++|*                (X7) = PROCESSOR PARAMETERS.
14747  M01S00908.252l678 +++|*
14748  M01S00909.252l678 +++|*         USES   X - 0, 1, 3, 4, 5, 6, 7.
14749  M01S00910.252l678 +++|*                A - 3, 4, 5, 6.
14750  M01S00911.252l678 +++|*                B - 2, 3.
14751  M01S00912.252l678 +++|
14752  M01S00913.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
14753  M02S00914.274l797 ---| TMO      SA3    TMPF        TAPE MANAGER OPTION PROCESSOR
14754  M01S02750.274l797 +++| TMO      BSS    0           ENTRY
14755  M01S02751.274l797 +++|          SA3    TMPF        TAPE MANAGER OPTION PROCESSOR

Seq #  *Modification Id* Act 
----------------------------+
14756  M02S00915.253l688 ---|          NG     X3,ERR      IF TMS DISABLED
14757  M01S00668.253l688 +++|          NG     X3,ERR      IF *TMS* DISABLED
14758  M01S00916.252l678 +++|          SX4    TMOA        PARAMETER KEYWORD TABLE ADDRESS
14759  M01S00917.252l678 +++|          MX0    18
14760  M01S00918.252l678 +++|          SB3    B0
14761  M01S00919.252l678 +++| TMO1     SA3    B3+X4
14762  M01S00920.252l678 +++|          BX7    X0*X3
14763  M01S00921.252l678 +++|          IX6    X1-X7
14764  M01S00922.252l678 +++|          SB3    B3+B1
14765  M01S00923.252l678 +++|          NG     X6,ERR      IF KEYWORD NOT FOUND
14766  M01S00924.252l678 +++|          NZ     X6,TMO1     IF NOT TO KEYWORD YET
14767  M01S00925.252l678 +++|          SA4    A1
14768  M01S00926.252l678 +++|          SB2    X3
14769  M01S00927.252l678 +++|          SA6    A3+         CLEAR KEYWORD ENTRY
14770  M01S00928.252l678 +++|          LX3    42
14771  M01S00929.252l678 +++|          MX0    -18         EXTRACT PROCESSOR PARAMETERS
14772  M01S00930.252l678 +++|          BX7    -X0*X3
14773  M01S00931.252l678 +++|          PL     B2,TMO2     IF KEYWORD VALUE NOT REQUIRED
14774  M01S00932.252l678 +++|          SX1    X4-1R=
14775  M01S00933.252l678 +++|          SB2    -B2
14776  M01S00934.252l678 +++|          NZ     X1,ERR      IF SEPARATOR NOT *=*
14777  M01S00935.252l678 +++| TMO2     SA5    RT          GET REQUEST TYPE
14778  M01S00936.252l678 +++|          JP     B2          EXECUTE KEYWORD PROCESSOR
14779  M01S00937.252l678 +++|
14780  M01S00938.252l678 +++| TMOA     BSS    0           TAPE MANAGER ASSEMBLY OPTIONS.
14781  M01S00939.252l678 +++|
14782  M01S00940.252l678 +++| AC       MKTE   -SAC        AUDIT ACCESSIBILITY
14783  M01S00941.252l678 +++| CT       MKTE   -SCT        CATEGORY TYPE
14784  M01S00942.252l678 +++| MD       MKTE   -SMD        FILE MODE
14785  M01S00943.252l678 +++| PW       MKTE   AUA,,(18/F+FPSW)  ALTERNATE USER PASSWORD
14786  M01S00944.252l678 +++| TO       MKTE   STO         TAPE MANAGER OPTIONS
14787  M01S00945.252l678 +++| UN       MKTE   AUA,,(18/F+FAUN)  ALTERNATE USERNAME
14788  M01S00946.252l678 +++|
14789  M01S00947.252l678 +++|          CON    37777777777777777777B
14790  M01S00948.252l678 +++|          EJECT
14791  M01S00949.252l678 +++| AUA      SPACE  4,10
14792  M01S00950.252l678 +++|**        AUA - ALTERNATE USER ACCESS.
14793  M01S00951.252l678 +++|*
14794  M01S00952.252l678 +++|*                PW.
14795  M01S00953.252l678 +++|*                PW=PASSWRD.
14796  M01S00954.252l678 +++|*                UN=USERNAM.

Seq #  *Modification Id* Act 
----------------------------+
14797  M02S00955.274l797 ---|          SPACE  2,10

Seq #  *Modification Id* Act 
----------------------------+
14798  M02S00956.274l797 ---| AUA      SA7    AUAA        SAVE ARGUMENT ADDRESS
14799  M01S02752.274l797 +++|
14800  M01S02753.274l797 +++|
14801  M01S02754.274l797 +++| AUA      BSS    0           ENTRY
14802  M01S02755.274l797 +++|          SA7    AUAA        SAVE ARGUMENT ADDRESS
14803  M01S00957.252l678 +++|          SX1    X4-1R=
14804  M01S00958.252l678 +++|          ZR     X1,AUA1     IF KEYWORD EQUATED
14805  M01S00959.252l678 +++|          ZR     B6,AUA2     IF CONTROL CARD EXHAUSTED
14806  M01S00960.252l678 +++|          SX1    X4-1R,
14807  M01S00961.252l678 +++|          ZR     X1,AUA2     IF NO ARGUMENT GIVEN
14808  M01S00962.252l678 +++| AUA1     SX6    B0+         DISABLE LITERAL PROCESSING
14809  M01S00963.252l678 +++|          RJ     CLP         CALL *POP*
14810  M01S00964.252l678 +++|          MX0    7*6
14811  M01S00965.252l678 +++|          BX4    -X0*X5
14812  M01S00966.252l678 +++|          NZ     X4,ERR      IF PARAMETER TOO LONG
14813  M01S00967.252l678 +++|          BX6    X0*X5
14814  M01S00968.252l678 +++|          EQ     AUA3        STORE ARGUMENT
14815  M01S00969.252l678 +++|
14816  M01S00970.252l678 +++| AUA2     SX7    B6          SAVE (B6)
14817  M01S00971.252l678 +++|          SA7    A7+B1
14818  M01S00972.252l678 +++|          RJ     ESP         ENTER SECURE PASSWORD
14819  M01S00973.252l678 +++|          SA1    AUAB
14820  M01S00974.252l678 +++|          SB6    X1+         RESTORE (B6)
14821  M01S00975.252l678 +++| AUA3     SA1    AUAA
14822  M01S00976.252l678 +++|          SA1    X1
14823  M01S00977.252l678 +++|          BX2    -X0*X1
14824  M01S00978.252l678 +++|          BX7    X2+X6
14825  M01S00979.252l678 +++|          SA7    A1

Seq #  *Modification Id* Act 
----------------------------+
14826  M02S00980.274l797 ---|          EQ     AMO1        PROCESS NEXT ARGUMENT
14827  M01S02756.274l797 +++|          EQ     AFOR        PROCESS NEXT ARGUMENT
14828  M01S00981.252l678 +++|
14829  M01S00982.252l678 +++| AUAA     CON    0           TEMPORARY
14830  M01S00983.252l678 +++| AUAB     CON    0           TEMPORARY
14831  M01S00984.252l678 +++| ESP      SPACE  4,20
14832  M01S00985.252l678 +++|**        ESP - ENTER SECURE PASSWORD.
14833  M01S00986.252l678 +++|*
14834  M01S00987.252l678 +++|*         THIS SUBROUTINE PROCESSES SECURELY ENTERED PASSWORDS.
14835  M01S00988.252l678 +++|*         IF OUTPUT FILE IS ASSIGNED TO A TERMINAL THE MESSAGE
14836  M01S00989.252l678 +++|*         *PASSWORD:* ALONG WITH BLANK OUT CHARACTERS FOR SECURE
14837  M01S00990.252l678 +++|*         ENTRY OF PASSWORD WILL BE SENT TO THE TERMINAL.
14838  M01S00991.252l678 +++|*         FILE *INPUT* WILL THEN BE READ FOR THE PASSWORD.
14839  M01S00992.252l678 +++|*         FOR BATCH JOBS FILE *INPUT* IS READ FOR THE PASSWORD.
14840  M01S00993.252l678 +++|*
14841  M01S00994.252l678 +++|*         EXIT   (X6) = PASSWORD.
14842  M01S00995.252l678 +++|*                ABORT WITH *INCORRECT PASSWORD* IF INCORRECT PASSWORD
14843  M01S00996.252l678 +++|*                ENCOUNTERED.
14844  M01S00997.252l678 +++|*
14845  M01S00998.252l678 +++|*         USES   X - ALL.
14846  M01S00999.252l678 +++|*                A - 1, 2, 6, 7.
14847  M01S01000.252l678 +++|*                B - 2, 3, 4, 5, 6, 7.
14848  M01S01001.252l678 +++|*
14849  M01S01002.252l678 +++|*         CALLS  STF.
14850  M01S01003.252l678 +++|*
14851  M01S01004.252l678 +++|*         MACROS CSET, MESSAGE, READSKP, WRITE.
14852  M01S01005.252l678 +++|
14853  M01S01006.252l678 +++|
14854  M01S01007.252l678 +++| ESP      SUBR               ENTRY/EXIT
14855  M01S01008.252l678 +++|          SX2    O           SET ADDRESS OF FET
14856  M01S01009.252l678 +++|          RJ     STF         CHECK IF OUTPUT ASSIGNED TO TERMINAL
14857  M01S01010.252l678 +++|          NZ     X6,ESP1     IF OUTPUT NOT ASSIGNED TO TERMINAL
14858  M01S01011.252l678 +++|          SA1    X2+B1       SET BUFFER FULL
14859  M01S01012.252l678 +++|          SX7    X1
14860  M01S01013.252l678 +++|          SX6    X1+PMSGL
14861  M01S01014.252l678 +++|          SA6    A1+B1       SET IN BELOW DATA FOR MESSAGE
14862  M01S01015.252l678 +++|          SA7    A6+B1       SET OUT = FIRST
14863  M01S01016.252l678 +++|          WRITE  X2,*        FORCE WRITE BIT SET
14864  M01S01017.252l678 +++|          SA1    O
14865  M01S01018.252l678 +++|          MX0    42
14866  M01S01019.252l678 +++|          BX2    X0*X1       FILE NAME FOR OUTPUT POINTER
14867  M01S01020.252l678 +++|          SX1    A1          SET ADDRESS OF FET FOR POINTER
14868  M01S01021.252l678 +++|          BX6    X1+X2
14869  M01S01022.252l678 +++|          SA6    ARGR        FORCE WRITE BEFORE READ ON ROLLOUT
14870  M01S01023.252l678 +++| ESP1     SX2    I           SET ADDRESS OF FET
14871  M01S01024.252l678 +++|          RJ     STF         CHECK IF INPUT ASSIGNED TO TERMINAL
14872  M01S01025.252l678 +++|          NZ     X6,ESP2     IF INPUT NOT ASSIGNED TO TERMINAL
14873  M01S01026.252l678 +++|          CSET   NORMAL      ENSURE TERMINAL IN NORMAL MODE
14874  M01S01027.252l678 +++| ESP2     READSKP I,,R       READ INPUT FOR PASSWORD
14875  M01S01028.252l678 +++|          SA1    I+2         DETERMINE NUMBER OF WORDS READ
14876  M01S01029.252l678 +++|          SA2    A1+B1
14877  M01S01030.252l678 +++|          IX6    X1-X2
14878  M01S01031.252l678 +++|          ZR     X6,ESP10    IF NO DATA ENTERED (NULL PASSWORD)
14879  M01S01032.252l678 +++|          SB5    X6
14880  M01S01033.252l678 +++|          SB3    B0
14881  M01S01034.252l678 +++|          BX5    X5-X5
14882  M01S01035.252l678 +++|          MX6    0
14883  M01S01036.252l678 +++|          SB4    60
14884  M01S01037.252l678 +++|          SB7    B0
14885  M01S01038.252l678 +++|          MX0    -6
14886  M01S01039.252l678 +++| ESP3     SA2    IBUF+B3     PICK UP NEXT DATA WORD
14887  M01S01040.252l678 +++|          SB2    B0+
14888  M01S01041.252l678 +++| ESP4     LX2    6
14889  M01S01042.252l678 +++|          BX1    -X0*X2      PICK UP CHARACTER TO CHECK
14890  M01S01043.252l678 +++|          NZ     X1,ESP5     IF CHARACTER NOT ZERO
14891  M01S01044.252l678 +++|          NZ     X5,ESP10    IF 00 ENCOUNTERED
14892  M01S01045.252l678 +++|          SX5    B1+         SET FLAG TO INDICATE 0 ENCOUNTERED
14893  M01S01046.252l678 +++|          EQ     ESP9        GET NEXT CHARACTER
14894  M01S01047.252l678 +++|
14895  M01S01048.252l678 +++| ESP5     NZ     X5,ESP11    IF PREVIOUS CHARACTER = COLON
14896  M01S01049.252l678 +++| ESP6     SB6    X1-1R9
14897  M01S01050.252l678 +++|          GT     B6,ESP8     IF NOT ALPHANUMERIC CHARACTER
14898  M01S01051.252l678 +++| ESP7     SB4    B4-6
14899  M01S01052.252l678 +++|          LX7    X1,B4
14900  M01S01053.252l678 +++|          BX6    X7+X6
14901  M01S01054.252l678 +++|          SB7    B7+1
14902  M01S01055.252l678 +++|          SB6    B7-7
14903  M01S01056.252l678 +++|          GT     B6,ESP11    IF PASSWORD .GT. SEVEN CHARACTERS
14904  M01S01057.252l678 +++|          EQ     ESP9        GET NEXT CHARACTER
14905  M01S01058.252l678 +++|
14906  M01S01059.252l678 +++| ESP8     SX4    X1-1R*
14907  M01S01060.252l678 +++|          ZR     X4,ESP7     IF CHARACTER = *
14908  M01S01061.252l678 +++|          SX3    X1-1R
14909  M01S01062.252l678 +++|          NZ     X3,ESP11    IF CHARACTER NOT BLANK
14910  M01S01063.252l678 +++| ESP9     SB2    B2+B1
14911  M01S01064.252l678 +++|          SB6    B2-10
14912  M01S01065.252l678 +++|          LT     B6,ESP4     IF NOT END OF WORD
14913  M01S01066.252l678 +++|          SB3    B3+B1
14914  M01S01067.252l678 +++|          SB6    B5-B3
14915  M01S01068.252l678 +++|          EQ     B6,ESP11    IF TOO MUCH DATA ENTERED
14916  M01S01069.252l678 +++|          EQ     ESP3        CONTINUE PASSWORD CHECK
14917  M01S01070.252l678 +++|
14918  M01S01071.252l678 +++| ESP10    SA1    I+1
14919  M01S01072.252l678 +++|          BX7    X1
14920  M01S01073.252l678 +++|          SA7    A1+B1       SET IN = FIRST FOR INPUT BUFFER
14921  M01S01074.252l678 +++|          EQ     ESPX        RETURN
14922  M01S01075.252l678 +++|
14923  M01S01076.252l678 +++| ESP11    MESSAGE ESPA,3,R   *INCORRECT PASSWORD.*
14924  M01S01077.252l678 +++|          SB2    /PER/ARG    *ARGUMENT ERROR*
14925  M01S01078.252l678 +++|          EQ     PER         PROCESS ERROR
14926  M01S01079.252l678 +++|
14927  M01S01080.252l678 +++| ESPA     DATA   C* INCORRECT PASSWORD.*
14928  M01S01081.252l678 +++|
14929  M01S01082.252l678 +++|*         MESSAGE FOR SECURE ENTRY OF PASSWORD.
14930  M01S01083.252l678 +++|
14931  M01S01084.252l678 +++| PMSG     DATA   10H"EM"  PASSWO
14932  M01S01085.252l678 +++|          DATA   10HRD:"NL"  (((
14933  M01S01086.252l678 +++|          DATA   10H((((("CR"  )
14934  M01S01087.252l678 +++|          DATA   10H)))))))"CR"
14935  M01S01088.252l678 +++|          DATA   10H MMMMMMMM
14936  M01S01089.252l678 +++|          DATA   10H"CR"  QQQQQQ
14937  M01S01090.252l678 +++|          DATA   10HQQ"CR"  XXXX
14938  M01S01091.252l678 +++|          DATA   10HXXXX"CR""CB""EL"
14939  M01S01092.252l678 +++| PMSGL    EQU    *-PMSG
14940  M01S01093.252l678 +++| SAC      SPACE  4,10
14941  M01S01094.252l678 +++|**        SAC - SET AUDIT CHARACTERISTIC.
14942  M01S01095.252l678 +++|*
14943  M01S01096.252l678 +++|*         AC=ACCESSIBILITY.
14944  M01S01097.252l678 +++|
14945  M01S01098.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
14946  M02S01099.274l797 ---| SAC      SB3    SACA        SET OPTION TABLE ADDRESS
14947  M01S02757.274l797 +++| SAC      BSS    0           ENTRY
14948  M01S02758.274l797 +++|          SB3    SACA        SET OPTION TABLE ADDRESS
14949  M01S01100.252l678 +++|          RJ     AOP         ANALYZE OPTION PARAMETER
14950  M01S01101.252l678 +++|          SA1    F+FFAC

Seq #  *Modification Id* Act 
----------------------------+
14951  M02S01102.274l797 ---|          MX0    -6          SET OPTION

Seq #  *Modification Id* Act 
----------------------------+
14952  M02S01103.274l797 ---|          LX0    17-5

Seq #  *Modification Id* Act 
----------------------------+
14953  M02S01104.274l797 ---|          BX1    X0*X1
14954  M01S01105.252l678 +++|          LX7    17-5

Seq #  *Modification Id* Act 
----------------------------+
14955  M02S01106.274l797 ---|          BX2    -X0*X7

Seq #  *Modification Id* Act 
----------------------------+
14956  M02S01107.274l797 ---|          BX6    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
14957  M02S01108.274l797 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
14958  M02S01109.274l797 ---|          EQ     AMO1        PROCESS NEXT ARGUMENT
14959  M01S02759.274l797 +++|          BX7    X1+X7
14960  M01S02760.274l797 +++|          SA7    A1
14961  M01S02761.274l797 +++|          EQ     AFOR        PROCESS NEXT ARGUMENT
14962  M01S01110.252l678 +++|
14963  M01S01111.252l678 +++|
14964  M01S01112.252l678 +++| SACA     BSS    0           AUDIT ACCESSIBILITY TABLE

Seq #  *Modification Id* Act 
----------------------------+
14965  M02S01113.274l797 ---|          VFD    24/0LN,24/0,12//TFM/FANO

Seq #  *Modification Id* Act 
----------------------------+
14966  M02S01114.274l797 ---|          VFD    24/0LY,24/0,12//TFM/FAYS
14967  M01S02762.274l797 +++|          VFD    42/0LN,18//TFM/FANO
14968  M01S02763.274l797 +++|          VFD    42/0LY,18//TFM/FAYS
14969  M01S01115.252l678 +++|          CON    0           END OF TABLE
14970  M01S01116.252l678 +++| SCT      SPACE  4,10
14971  M01S01117.252l678 +++|**        SCT - SET CATEGORY TYPE.
14972  M01S01118.252l678 +++|*
14973  M01S01119.252l678 +++|*         CT=TYPE.
14974  M01S01120.252l678 +++|
14975  M01S01121.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
14976  M02S01122.274l797 ---| SCT      SB3    SCTA        SET OPTION TABLE ADDRESS
14977  M01S02764.274l797 +++| SCT      BSS    0           ENTRY
14978  M01S02765.274l797 +++|          SB3    SCTA        SET OPTION TABLE ADDRESS
14979  M01S01123.252l678 +++|          RJ     AOP         ANALYZE OPTION PARAMETER
14980  M01S01124.252l678 +++|          SA1    F+FFCT

Seq #  *Modification Id* Act 
----------------------------+
14981  M02S01125.274l797 ---|          MX0    -6          SET OPTION

Seq #  *Modification Id* Act 
----------------------------+
14982  M02S01126.274l797 ---|          LX0    11-5

Seq #  *Modification Id* Act 
----------------------------+
14983  M02S01127.274l797 ---|          BX1    X0*X1
14984  M01S01128.252l678 +++|          LX7    11-5

Seq #  *Modification Id* Act 
----------------------------+
14985  M02S01129.274l797 ---|          BX2    -X0*X7

Seq #  *Modification Id* Act 
----------------------------+
14986  M02S01130.274l797 ---|          BX6    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
14987  M02S01131.274l797 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
14988  M02S01132.274l797 ---|          EQ     AMO1        PROCESS NEXT ARGUMENT
14989  M01S02766.274l797 +++|          BX7    X1+X7
14990  M01S02767.274l797 +++|          SA7    A1
14991  M01S02768.274l797 +++|          EQ     AFOR        PROCESS NEXT ARGUMENT
14992  M01S01133.252l678 +++|
14993  M01S01134.252l678 +++|
14994  M01S01135.252l678 +++| SCTA     BSS    0           CATEGORY TYPE CONVERSION TABLE

Seq #  *Modification Id* Act 
----------------------------+
14995  M02S01136.274l797 ---|          VFD    24/0LP,24/0,12//TFM/FCPR

Seq #  *Modification Id* Act 
----------------------------+
14996  M02S01137.274l797 ---|          VFD    24/0LPR,24/0,12//TFM/FCPR

Seq #  *Modification Id* Act 
----------------------------+
14997  M02S01138.274l797 ---|          VFD    24/0LPU,24/0,12//TFM/FCPU

Seq #  *Modification Id* Act 
----------------------------+
14998  M02S01139.274l797 ---|          VFD    24/0LS,24/0,12//TFM/FCSP
14999  M01S02769.274l797 +++|          VFD    42/0LP,18//TFM/FCPR
15000  M01S02770.274l797 +++|          VFD    42/0LPR,18//TFM/FCPR
15001  M01S02771.274l797 +++|          VFD    42/0LPU,18//TFM/FCPU
15002  M01S02772.274l797 +++|          VFD    42/0LS,18//TFM/FCSP
15003  M01S01140.252l678 +++|          CON    0           END OF TABLE
15004  M01S01141.252l678 +++| SMD      SPACE  4,10
15005  M01S01142.252l678 +++|**        SMD - SET FILE MODE.
15006  M01S01143.252l678 +++|*
15007  M01S01144.252l678 +++|*         MD=MODE.
15008  M01S01145.252l678 +++|
15009  M01S01146.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
15010  M02S01147.274l797 ---| SMD      SB3    SMDA        SET OPTION TABLE ADDRESS
15011  M01S02773.274l797 +++| SMD      BSS    0           ENTRY
15012  M01S02774.274l797 +++|          SB3    SMDA        SET OPTION TABLE ADDRESS
15013  M01S01148.252l678 +++|          RJ     AOP         ANALYZE OPTION PARAMETER
15014  M01S01149.252l678 +++|          SA1    F+FFMD

Seq #  *Modification Id* Act 
----------------------------+
15015  M02S01150.274l797 ---|          MX0    -6          SET OPTION

Seq #  *Modification Id* Act 
----------------------------+
15016  M02S01151.274l797 ---|          BX1    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
15017  M02S01152.274l797 ---|          BX2    -X0*X7

Seq #  *Modification Id* Act 
----------------------------+
15018  M02S01153.274l797 ---|          BX6    X1+X2

Seq #  *Modification Id* Act 
----------------------------+
15019  M02S01154.274l797 ---|          SA6    A1+

Seq #  *Modification Id* Act 
----------------------------+
15020  M02S01155.274l797 ---|          EQ     AMO1        PROCESS NEXT ARGUMENT
15021  M01S02775.274l797 +++|          BX7    X1+X7
15022  M01S02776.274l797 +++|          SA7    A1
15023  M01S02777.274l797 +++|          EQ     AFOR        PROCESS NEXT ARGUMENT
15024  M01S01156.252l678 +++|
15025  M01S01157.252l678 +++|
15026  M01S01158.252l678 +++| SMDA     BSS    0           FILE MODE CONVERSION TABLE

Seq #  *Modification Id* Act 
----------------------------+
15027  M02S01159.274l797 ---|          VFD    24/0LR,24/0,12//TFM/FMRE

Seq #  *Modification Id* Act 
----------------------------+
15028  M02S01160.274l797 ---|          VFD    24/0LW,24/0,12//TFM/FMWR
15029  M01S02778.274l797 +++|          VFD    42/0LR,18//TFM/FMRE
15030  M01S02779.274l797 +++|          VFD    42/0LW,18//TFM/FMWR
15031  M01S01161.252l678 +++|          CON    0           END OF TABLE
15032  M01S01162.252l678 +++| STO      SPACE  4,15
15033  M01S01163.252l678 +++|**        STO - SET TAPE MANAGER OPTIONS.
15034  M01S01164.252l678 +++|*
15035  M01S01165.252l678 +++|*         TO=(ACDEFRST)
15036  M01S01166.252l678 +++|*
15037  M01S01167.252l678 +++|*                A = APPEND FILE (MULTI-FILE).
15038  M01S01168.252l678 +++|*                C = CHECK FOR CATALOG ERROR FLAG.
15039  M01S01169.252l678 +++|*                D = INHIBIT DEFAULTED TAPE ATTRIBUTES.
15040  M01S01170.252l678 +++|*                E = IGNORE CATALOG ERROR FLAG.

Seq #  *Modification Id* Act 
----------------------------+
15041  M02S01171.253l688 ---|*                F = FOREIGN FILE (NON-TMS).
15042  M01S00669.253l688 +++|*                F = FOREIGN FILE (NON-*TMS*).
15043  M01S01172.252l678 +++|*                R = RESERVE FILE.
15044  M01S01173.252l678 +++|*                S = SYMBOLIC ACCESS TYPE.

Seq #  *Modification Id* Act 
----------------------------+
15045  M02S01174.253l688 ---|*                T = TMS CONTROLLED FILE.
15046  M01S00670.253l688 +++|*                T = *TMS* CONTROLLED FILE.
15047  M01S01175.252l678 +++|
15048  M01S01176.252l678 +++|

Seq #  *Modification Id* Act 
----------------------------+
15049  M02S01177.274l797 ---| STO      RJ     CLP         GET PARAMETER VALUE (NO LITERALS)
15050  M01S02780.274l797 +++| STO      BSS    0           ENTRY
15051  M01S02781.274l797 +++|          RJ     CLP         GET PARAMETER VALUE (NO LITERALS)
15052  M01S01178.252l678 +++|          MX0    -6
15053  M01S01179.252l678 +++|          SB2    10
15054  M01S01180.252l678 +++|          MX7    0
15055  M01S01181.252l678 +++| STO1     LX5    6
15056  M01S01182.252l678 +++|          BX3    -X0*X5
15057  M01S01183.252l678 +++|          ZR     X3,STO2     IF END OF PARAMETERS
15058  M01S01184.252l678 +++|          SB2    B2-B1
15059  M01S01185.252l678 +++|          SA4    STOA
15060  M01S01186.252l678 +++|          SB3    X3
15061  M01S01187.252l678 +++|          AX4    X4,B3
15062  M01S01188.252l678 +++|          LX4    -1
15063  M01S01189.252l678 +++|          PL     X4,ERR      IF NOT LEGAL OPTION
15064  M01S01190.252l678 +++|          CX4    X4
15065  M01S01191.252l678 +++|          SA3    X4+STOA     READ OPTION BIT
15066  M01S01192.252l678 +++|          BX7    X7+X3
15067  M01S01193.252l678 +++|          NZ     B2,STO1     IF MORE PARAMETERS IN WORD
15068  M01S01194.252l678 +++|          EQ     B5,B1,ERR   IF IMPROPER TERMINATION
15069  M01S01195.252l678 +++|          SA5    A5+B1       READ NEXT WORD OF PARAMETERS
15070  M01S01196.252l678 +++|          SB5    B5-B1
15071  M01S01197.252l678 +++|          SB2    10
15072  M01S01198.252l678 +++|          EQ     STO1        CHECK NEXT OPTION
15073  M01S01199.252l678 +++|
15074  M01S01200.252l678 +++| STO2     MX0    42          MERGE TAPE MANAGER OPTIONS
15075  M01S01201.252l678 +++|          SA2    F+FFTO
15076  M01S01202.252l678 +++|          BX3    -X0*X7
15077  M01S01203.252l678 +++|          BX7    X0*X2
15078  M01S01204.252l678 +++|          BX7    X7+X3
15079  M01S01205.252l678 +++|          SA7    A2
15080  M01S01206.252l678 +++|          LX7    59-5

Seq #  *Modification Id* Act 
----------------------------+
15081  M02S01207.274l797 ---|          PL     X7,AMO1     IF NOT *TO=A*
15082  M01S02782.274l797 +++|          PL     X7,AFOR     IF NOT *TO=A*
15083  M01S01208.252l678 +++|          SA2    F+FSQN      SET *QN = 9999*
15084  M01S01209.252l678 +++|          MX7    46
15085  M01S01210.252l678 +++|          BX2    X7*X2
15086  M01S01211.252l678 +++|          SX7    9999D
15087  M01S01212.252l678 +++|          BX7    X2+X7
15088  M01S01213.252l678 +++|          SA7    A2
15089  M01S01214.252l678 +++|          SA2    F+FTAP      SET *WRITE LABEL*
15090  M01S01215.252l678 +++|          MX7    1
15091  M01S01216.252l678 +++|          BX7    X7+X2
15092  M01S01217.252l678 +++|          SA7    A2+
15093  M01S01218.252l678 +++|          SA2    MF          SET *QN .GT. 1*
15094  M01S01219.252l678 +++|          SX3    16B
15095  M01S01220.252l678 +++|          BX7    X3+X2
15096  M01S01221.252l678 +++|          SA7    A2

Seq #  *Modification Id* Act 
----------------------------+
15097  M02S01222.274l797 ---|          EQ     AMO1        PROCESS NEXT ARGUMENT
15098  M01S02783.274l797 +++|          EQ     AFOR        PROCESS NEXT ARGUMENT
15099  M01S01223.252l678 +++|
15100  M01S01224.252l678 +++|
15101  M01S01225.252l678 +++| STOA     DATA   7000172B    VALIDATION BITS FOR OPTIONS (ACDEFRST)

Seq #  *Modification Id* Act 
----------------------------+
15102  M02S01226.253l688 ---|          DATA   1BS4        T - TMS CONTROLLED FILE (SYOT)
15103  M01S00671.253l688 +++|          DATA   1BS4        T - *TMS* CONTROLLED FILE (SYOT)
15104  M01S01227.252l678 +++|          DATA   1BS2        S - SYMBOLIC ACCESS FILE
15105  M01S01228.252l678 +++|          DATA   1BS3        R - RESERVE TAPE FILE

Seq #  *Modification Id* Act 
----------------------------+
15106  M02S01229.253l688 ---|          DATA   1BS1        F - FOREIGN TAPE (NOT IN TMS)
15107  M01S00672.253l688 +++|          DATA   1BS1        F - FOREIGN TAPE (NOT IN *TMS*)
15108  M01S01230.252l678 +++|          DATA   1S7         E - IGNORE CATALOG ERROR FLAG
15109  M01S01231.252l678 +++|          DATA   1BS0        D - INHIBIT DEFAULTED ATTRIBUTES
15110  M01S01232.252l678 +++|          DATA   1S9         C - CHECK CATALOG ERROR FLAG
15111  M01S01233.252l678 +++|          DATA   1S5         A - APPEND FILE (MULTI-FILE)
15112  M01S01234.252l678 +++| COMMON   SPACE  4,10
15113  M01S01235.252l678 +++|**        COMMON DECKS.
15114  M01S01236.252l678 +++|
15115  M01S01237.252l678 +++|
15116  M01S01238.252l678 +++|*CALL     COMCSTF
15117  M01S01239.252l678 +++|*CALL     COMCWTH
15118  M01S01240.252l678 +++|          SPACE  4,10
15119  M01S01241.252l678 +++|***       BUFFERS.
15120  M01S01242.252l678 +++|
15121  M01S01243.252l678 +++|
15122  M01S01244.252l678 +++| IBUF     BSS    BUFL        INPUT FILE BUFFER
15123  M01S01245.252l678 +++|          SPACE  4
15124  M01S01246.252l678 +++|          QUAL   *

Seq #  *Modification Id* Act 
----------------------------+
15125  M02S07349.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
15126  M02S07350.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
15127  M02S07351.274l797 ---|*         OVERLAY 3 AREA CODE MUST NOT EXTEND INTO OVERLAY 4 AREA.

Seq #  *Modification Id* Act 
----------------------------+
15128  M02S07352.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
15129  M02S07353.274l797 ---|          ERRNG  OVL4-*      CODE OVERFLOWS INTO OVERLAY 4 AREA

Seq #  *Modification Id* Act 
----------------------------+
15130  M03S07354.274l797 ---|          TITLE  ASSIGN STATEMENT PRESET.

Seq #  *Modification Id* Act 
----------------------------+
15131  M02S00121.274l797 ---|          TITLE  ASSIGN COMMAND PRESET.

Seq #  *Modification Id* Act 
----------------------------+
15132  M02S07355.274l797 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
15133  M02S07356.274l797 ---|**        THE FOLLOWING CODE CAN BE OVERLAID BY OVERLAY 4 AREA

Seq #  *Modification Id* Act 
----------------------------+
15134  M02S07357.274l797 ---|*         (NEW VSN AND DEMAND ENTRY BUFFERS) OR ANY PRIOR OVERLAY.

Seq #  *Modification Id* Act 
----------------------------+
15135  M02S07358.274l797 ---| ASSIGN   SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
15136  M02S07359.274l797 ---|***       ASSIGN (EQ,F,P1,P2,...,PN)

Seq #  *Modification Id* Act 
----------------------------+
15137  M02S07360.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
15138  M02S07361.274l797 ---|*                ASSIGN EQUIPMENT TYPE *EQ* TO FILE *F* WITH

Seq #  *Modification Id* Act 
----------------------------+
15139  M02S07362.274l797 ---|*                PARAMETERS P1,P2,...,PN APPLICABLE TO MAGNETIC

Seq #  *Modification Id* Act 
----------------------------+
15140  M02S07363.274l797 ---|*                TAPE ONLY.

Seq #  *Modification Id* Act 
----------------------------+
15141  M02S07364.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
15142  M02S07365.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
15143  M02S07366.274l797 ---|*         ASSIGN (N,F,P1,P2,...,PN)

Seq #  *Modification Id* Act 
----------------------------+
15144  M03S07367.274l797 ---|*                ASSIGN EQUIPMENT NUMBER *N* TO FILE *F* WITH

Seq #  *Modification Id* Act 
----------------------------+
15145  M02S00582.274l797 ---|*                ASSIGN EST ORDINAL *N* TO FILE *F* WITH

Seq #  *Modification Id* Act 
----------------------------+
15146  M02S07368.274l797 ---|*                PARAMETERS P1,P2,...,PN APPLICABLE TO MAGNETIC

Seq #  *Modification Id* Act 
----------------------------+
15147  M02S07369.274l797 ---|*                TAPE ONLY.

Seq #  *Modification Id* Act 
----------------------------+
15148  M02S07370.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
15149  M02S07371.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
15150  M02S07372.274l797 ---| ASSIGN   SX7    -1          SET REQUEST TYPE FOR *ASSIGN*

Seq #  *Modification Id* Act 
----------------------------+
15151  M02S07373.274l797 ---|          SA7    RT

Seq #  *Modification Id* Act 
----------------------------+
15152  M02S00583.274l797 ---|          SA7    AL          ACCESS LEVEL PERMISSION

Seq #  *Modification Id* Act 
----------------------------+
15153  M02S07374.274l797 ---|          SX5    ASSIGNC

Seq #  *Modification Id* Act 
----------------------------+
15154  M03S07375.274l797 ---|          RJ     CCP         CONTROL CARD PROCESSOR

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

Seq #  *Modification Id* Act 
----------------------------+
15156  M02S07376.274l797 ---|          RJ     POP         PICK OUT PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
15157  M03S07377.274l797 ---|          NG     B5,ERR      IF NO EQUIPMENT TYPE OR NUMBER

Seq #  *Modification Id* Act 
----------------------------+
15158  M02S00584.274l797 ---|          NG     B5,ERR      IF NO EQUIPMENT TYPE OR EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
15159  M02S07378.274l797 ---|          SX1    X1-1R=

Seq #  *Modification Id* Act 
----------------------------+
15160  M02S07379.274l797 ---|          ZR     X1,ERR      IF SEPARATOR IS *=*

Seq #  *Modification Id* Act 
----------------------------+
15161  M03S07380.274l797 ---|          SA5    POPA        ASSEMBLE EQUIPMENT NUMBER

Seq #  *Modification Id* Act 
----------------------------+
15162  M02S00585.274l797 ---|          SA5    POPA        ASSEMBLE EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
15163  M02S07381.274l797 ---|          SB7    B0          ASSUME OCTAL VALUE

Seq #  *Modification Id* Act 
----------------------------+
15164  M02S07382.274l797 ---|          RJ     DXB

Seq #  *Modification Id* Act 
----------------------------+
15165  M02S07383.274l797 ---|          NZ     X4,ASG1     IF ASSEMBLY ERROR

Seq #  *Modification Id* Act 
----------------------------+
15166  M03S07384.274l797 ---|          SX3    X6-ESTL

Seq #  *Modification Id* Act 
----------------------------+
15167  M02S00586.274l797 ---|          SA3    /LWC/ESTP   CHECK FOR ORDINAL OUTSIDE EST

Seq #  *Modification Id* Act 
----------------------------+
15168  M02S00587.274l797 ---|          LX3    24

Seq #  *Modification Id* Act 
----------------------------+
15169  M02S00588.274l797 ---|          AX3    48

Seq #  *Modification Id* Act 
----------------------------+
15170  M02S00589.274l797 ---|          IX3    X6-X3

Seq #  *Modification Id* Act 
----------------------------+
15171  M03S07385.274l797 ---|          PL     X3,ERR      IF EQUIPMENT ORDINAL NOT IN EST

Seq #  *Modification Id* Act 
----------------------------+
15172  M02S00590.274l797 ---|          PL     X3,ERR      IF BEYOND LAST EST ORDINAL

Seq #  *Modification Id* Act 
----------------------------+
15173  M02S07386.274l797 ---|          EQ     ASG2        SET EQUIPMENT IN FET

Seq #  *Modification Id* Act 
----------------------------+
15174  M02S07387.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
15175  M02S07388.274l797 ---| ASG1     SA5    A5          CHECK EQUIPMENT TYPE

Seq #  *Modification Id* Act 
----------------------------+
15176  M02S07389.274l797 ---|          MX2    12

Seq #  *Modification Id* Act 
----------------------------+
15177  M02S07390.274l797 ---|          BX7    -X2*X5

Seq #  *Modification Id* Act 
----------------------------+
15178  M02S07391.274l797 ---|          BX6    X5

Seq #  *Modification Id* Act 
----------------------------+
15179  M02S07392.274l797 ---|          NZ     X7,ERR      IF MORE THAN 2 CHARACTERS

Seq #  *Modification Id* Act 
----------------------------+
15180  M02S07393.274l797 ---| ASG2     SA6    AE          SET EQUIPMENT TYPE/NUMBER

Seq #  *Modification Id* Act 
----------------------------+
15181  M03S07394.274l797 ---|          EQ     LAB2        CRACK REMAINING CONTROL CARD PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
15182  M03S07395.274l797 ---|          TITLE  REQUEST STATEMENT PRESET.

Seq #  *Modification Id* Act 
----------------------------+
15183  M02S00123.274l797 ---|          EQ     LAB2        CRACK REMAINING COMMAND PARAMETERS
15184  M01S00002.ns2253  +++| SPVT     SPACE  4,10
15185  M01S00003.ns2253  +++|**        SPVT - SPECIAL VALIDATION TABLE.
15186  M01S00004.ns2253  +++|*

Seq #  *Modification Id* Act 
----------------------------+
15187  M02S00005.274l797 ---|*T        1/N, 35/ 0, 12/ OT, 12/ EQ

Figure

Seq #  *Modification Id* Act 
----------------------------+
15188  M02S00006.274l797 ---|*         N      NO VALIDATION IF SET

Seq #  *Modification Id* Act 
----------------------------+
15189  M02S00007.274l797 ---|*         OT     JOB ORIGIN TYPE

Seq #  *Modification Id* Act 
----------------------------+
15190  M02S00008.274l797 ---|*         EQ     EQUIPMENT MNEMONIC
15191  M01S02784.274l797 +++|*T        42/0,18/ DC

Figure

15192  M01S02785.274l797 +++|*
15193  M01S02786.274l797 +++|*         DC     DEVICE CODE
15194  M01S00009.ns2253  +++|
15195  M01S00010.ns2253  +++|
15196  M01S00011.ns2253  +++| SPVT     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
15197  M02S00012.274l797 ---|          VFD    1/1,35/0,12/0,12/2HMS     MS

Seq #  *Modification Id* Act 
----------------------------+
15198  M02S00013.274l797 ---|          VFD    1/1,35/0,12/0,12/2HNE     NE

Seq #  *Modification Id* Act 
----------------------------+
15199  M02S00014.274l797 ---|          VFD    1/0,35/0,12/IAOT,12/2HTT  TT

Seq #  *Modification Id* Act 
----------------------------+
15200  M02S00015.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDD     DD

Seq #  *Modification Id* Act 
----------------------------+
15201  M02S00016.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDE     DE

Seq #  *Modification Id* Act 
----------------------------+
15202  M02S00022.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDG     DG

Seq #  *Modification Id* Act 
----------------------------+
15203  M02S00017.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDI     DI

Seq #  *Modification Id* Act 
----------------------------+
15204  M02S00018.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDJ     DJ

Seq #  *Modification Id* Act 
----------------------------+
15205  M02S00019.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDK     DK

Seq #  *Modification Id* Act 
----------------------------+
15206  M02S00020.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDL     DL

Seq #  *Modification Id* Act 
----------------------------+
15207  M02S00021.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDM     DM

Seq #  *Modification Id* Act 
----------------------------+
15208  M02S00022.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDP     DP

Seq #  *Modification Id* Act 
----------------------------+
15209  M02S00023.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDQ     DQ

Seq #  *Modification Id* Act 
----------------------------+
15210  M02S00024.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDV     DV

Seq #  *Modification Id* Act 
----------------------------+
15211  M02S00025.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDW     DW

Seq #  *Modification Id* Act 
----------------------------+
15212  M02S00026.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDB     DB

Seq #  *Modification Id* Act 
----------------------------+
15213  M02S00023.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDC     DC

Seq #  *Modification Id* Act 
----------------------------+
15214  M02S00024.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDF     DF

Seq #  *Modification Id* Act 
----------------------------+
15215  M02S00025.274l797 ---|          VFD    1/1,35/0,12/0,12/2HDH     DH
15216  M01S02787.274l797 +++|
15217  M01S02788.274l797 +++|*         SPECIAL DEVICE CODES.
15218  M01S02789.274l797 +++|
15219  M01S02790.274l797 +++|          CON    2RMS
15220  M01S02791.274l797 +++|          CON    2RNE
15221  M01S02792.274l797 +++|
15222  M01S02793.274l797 +++|*         MASS STORAGE DEVICE CODES.
15223  M01S02794.274l797 +++|
15224  M01S00001.284l847 +++|          PURGMAC TBLM
15225  M01S00002.284l847 +++| TBLM     MACRO  DC
15226  M01S00003.284l847 +++|          MACREF TBLM
15227  M01S00004.284l847 +++|          CON    2R_DC
15228  M01S00005.284l847 +++| TBLM     ENDM
15229  M01S00006.284l847 +++|
15230  M01S02795.274l797 +++|          LIST   G
15231  M01S02796.274l797 +++|          TBL    "MSEQ"
15232  M01S02797.274l797 +++|          LIST   *
15233  M01S02798.274l797 +++|
15234  M01S00027.ns2253  +++|          CON    0           END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
15235  M02S00124.274l797 ---|          TITLE  REQUEST COMMAND PRESET.

Seq #  *Modification Id* Act 
----------------------------+
15236  M02S07396.274l797 ---| REQUEST  SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
15237  M02S07397.274l797 ---|***       REQUEST  (F,P1,P2,...,PN)

Seq #  *Modification Id* Act 
----------------------------+
15238  M02S07398.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
15239  M02S07399.274l797 ---|*                REQUEST AUTOMATIC ASSIGNMENT OF MAGNETIC TAPE TO FILE

Seq #  *Modification Id* Act 
----------------------------+
15240  M02S07400.274l797 ---|*                *F* WITH PARAMETERS P1,P2,...,PN.  THE TAPE MAY

Seq #  *Modification Id* Act 
----------------------------+
15241  M02S07401.274l797 ---|*                BE LABELED, UNLABELED, OR MULTI-FILE SET.

Seq #  *Modification Id* Act 
----------------------------+
15242  M02S07402.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
15243  M02S07403.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
15244  M02S07404.274l797 ---| REQUEST  SX7    1           SET REQUEST TYPE

Seq #  *Modification Id* Act 
----------------------------+
15245  M02S07405.274l797 ---|          SX5    REQUESC

Seq #  *Modification Id* Act 
----------------------------+
15246  M02S07406.274l797 ---|          SA7    RT

Seq #  *Modification Id* Act 
----------------------------+
15247  M02S00591.274l797 ---|          MX6    1

Seq #  *Modification Id* Act 
----------------------------+
15248  M02S00592.274l797 ---|          SA6    AL          ACCESS LEVEL PERMISSION

Seq #  *Modification Id* Act 
----------------------------+
15249  M03S07407.274l797 ---|          EQ     LAB1        PROCESS CONTROL CARD

Proceed to Part 18