User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:ldistap.002

Deck LDISTAP Part 002

14 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00001 Modification History
M01 (Added by) ldista2
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01481  M02S00001.282l826 ---| CAM      CON    =20HCHECK AND MOUNT
Line S01335 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01482  M02S01335.282l826 ---|          ERRNZ  *-MDEC      ERROR CODE MISMATCH
Line S01336 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01483  M02S01336.282l826 ---|          QUAL   *
Line S01337 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01484  M02S01337.282l826 ---|          LOC    *O
Line S01338 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01485  M02S01338.282l826 ---| TNDN     SPACE  4,10
Line S01339 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01486  M02S01339.282l826 ---|**        TNDN - TABLE OF NUMERIC DENSITIES.
Line S01340 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01487  M02S01340.282l826 ---|
Line S01341 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01488  M02S01341.282l826 ---|
Line S01342 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01489  M02S01342.282l826 ---| TNDN     BSS    0           TABLE OF NUMERIC DENSITIES
Line S01343 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01490  M02S01343.282l826 ---|          LOC    0
Line S01344 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01491  M02S01344.282l826 ---|          QUAL   MTX
Line S01345 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01492  M02S01345.282l826 ---|          DATA   10H            UNKNOWN
Line S01346 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01493  M02S01346.282l826 ---| D02      DATA   10H200         200 BPI
Line S01347 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01494  M02S01347.282l826 ---| D05      DATA   10H556         556 BPI
Line S01348 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01495  M02S01348.282l826 ---| D08      DATA   10H800         800 BPI
Line S01349 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01496  M03S01349.282l826 ---| D16      DATA   10H1600        1600 BPI
Line S01350 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01497  M03S01350.282l826 ---| D62      DATA   10H6250        6250 BPI
Line S00073 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01498  M02S00073.282l826 ---| D16      DATA   10H1600        1600 CPI
Line S00074 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01499  M02S00074.282l826 ---| D62      DATA   10H6250        6250 CPI
Line S00075 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01500  M02S00075.282l826 ---| D380     DATA   10H38000       38000 CPI
Line S01351 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01501  M02S01351.282l826 ---|          QUAL   *
Line S01352 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01502  M02S01352.282l826 ---|          LOC    *O
01503  M01S01353.ldistap +++| TNDP     SPACE  4,10
01504  M01S01354.ldistap +++|**        TNDP - TABLE OF NUMBER OF DISPLAY PAGES.
01505  M01S01355.ldistap +++|
01506  M01S01356.ldistap +++|
01507  M01S01357.ldistap +++| TNDP     BSS    0           TABLE OF NUMBER OF DISPLAY PAGES
01508  M01S01358.ldistap +++|          LOC    0
01509  M01S01359.ldistap +++| DISHP    CON    NPGHD       *HELP*
Line S01360 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01510  M02S01360.282l826 ---| DISEQ    CON    1           *EQU*
01511  M01S01361.ldistap +++| DISFC    CON    1           *FAM*
Line S01362 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01512  M02S01362.282l826 ---| DISJB    CON    1           *JOB*
Line S01363 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01513  M02S01363.282l826 ---| DISPR    CON    1           *PRE*
Line S01364 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01514  M02S01364.282l826 ---|          LOC    *O
Line S00076 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01515  M02S00076.282l826 ---| TRES     SPACE  4,10
Line S00077 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01516  M02S00077.282l826 ---|**        TRES - TABLE OF RESOURCE TYPES.
Line S00078 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01517  M02S00078.282l826 ---|
Line S00079 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01518  M02S00079.282l826 ---|
Line S00080 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01519  M02S00080.282l826 ---| TRES     BSS    0           TABLE OF RESOURCE TYPES
Line S00081 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01520  M02S00081.282l826 ---|          LOC    0
Line S00082 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01521  M02S00082.282l826 ---|          DATA   10HMT          7-TRACK TAPE
Line S00083 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01522  M02S00083.282l826 ---|          DATA   10HHD          800 CPI 9-TRACK TAPE
Line S00084 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01523  M02S00084.282l826 ---|          DATA   10HPE          1600 CPI 9-TRACK TAPE
Line S00085 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01524  M02S00085.282l826 ---|          DATA   10HGE          6250 CPI 9-TRACK TAPE
Line S00086 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01525  M02S00086.282l826 ---|          DATA   10HCT          CARTRIDGE TAPE
Line S00087 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01526  M02S00087.282l826 ---|          DATA   10HAT          ACS CARTRIDGE TAPE
Line S00088 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01527  M02S00088.282l826 ---|          LOC    *O
Line S00089 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01528  M02S00089.282l826 ---| TRESL    EQU    *-TRES      LENGTH OF RESOURCE TYPE TABLE
Line S01365 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01529  M02S01365.282l826 ---| TRNG     SPACE  4,10
Line S01366 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01530  M02S01366.282l826 ---|**        TRNG - TABLE OF RING STATUSES.
Line S01367 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01531  M02S01367.282l826 ---|
Line S01368 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01532  M02S01368.282l826 ---|
Line S01369 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01533  M02S01369.282l826 ---| TRNG     BSS    0           TABLE OF RING STATUSES
Line S01370 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01534  M02S01370.282l826 ---|          LOC    0
Line S01371 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01535  M02S01371.282l826 ---|          DATA   10H---         NO RING STATUS
Line S01372 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01536  M02S01372.282l826 ---|          DATA   10HOUT         RING OUT REQUIRED
Line S01373 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01537  M02S01373.282l826 ---|          DATA   10HIN          RING IN REQUIRED
Line S01374 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01538  M02S01374.282l826 ---|          LOC    *O
Line S01375 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01539  M03S01375.282l826 ---| TTRT     SPACE  4,10
Line S01376 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01540  M03S01376.282l826 ---|**        TTRT - TABLE OF TRACK TYPES.
Line S00090 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01541  M02S00090.282l826 ---| TTDT     SPACE  4,10
Line S00091 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01542  M02S00091.282l826 ---|**        TTDT - TABLE OF TAPE DEVICE TYPES.
Line S01377 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01543  M02S01377.282l826 ---|
Line S01378 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01544  M02S01378.282l826 ---|
Line S01379 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01545  M03S01379.282l826 ---| TTRT     BSS    0           TABLE OF TRACK TYPES
Line S00092 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01546  M02S00092.282l826 ---| TTDT     BSS    0           TABLE OF TAPE DEVICE TYPES
Line S01380 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01547  M02S01380.282l826 ---|          LOC    0
Line S01381 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01548  M03S01381.282l826 ---|          DATA   10HMT          7-TRACK
Line S01382 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01549  M03S01382.282l826 ---|          DATA   10HNT          9-TRACK
Line S00093 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01550  M02S00093.282l826 ---|          DATA   10HMT          7-TRACK TAPE
Line S00094 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01551  M02S00094.282l826 ---|          DATA   10HCT          CARTRIDGE TAPE
Line S00095 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01552  M02S00095.282l826 ---|          DATA   10HNT          9-TRACK TAPE
Line S00096 Modification History
M01 (Added by) 274l797
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01553  M02S00096.282l826 ---|          DATA   10HAT          ACS CARTRIDGE TAPE
01554  M01S01383.ldistap +++|          LOC    *O
01555  M01S01384.ldistap +++| WORKING  SPACE  4,10
01556  M01S01385.ldistap +++|**        WORKING STORAGE CELLS.
01557  M01S01386.ldistap +++|
01558  M01S01387.ldistap +++|
01559  M01S01388.ldistap +++| BEL      CON    2R;        BELL CHARACTER
01560  M01S01389.ldistap +++| BLANKS   DATA   64L
01561  M01S01390.ldistap +++| CCE      CON    0           COUNT OF CATALOG ERRORS
01562  M01S01391.ldistap +++| CIN      BSS    0           CLEAR INPUT LINE
01563  M01S01392.ldistap +++|          VFD    12/2R"EM"   ASCII OUTPUT
01564  M01S01393.ldistap +++|          VFD    48/8H          78 BLANK CHARACTERS
01565  M01S01394.ldistap +++|          DUP    7
01566  M01S01395.ldistap +++|          VFD    60/10H
01567  M01S01396.ldistap +++|          ENDD
01568  M01S01397.ldistap +++|          VFD    24/4H"CR""CB"  CARRIAGE RETURN/NO LINE FEED
01569  M01S01398.ldistap +++|          VFD    36/0        END OF LINE
01570  M01S01399.ldistap +++| CLN      CON    0           CURRENT LINE NUMBER
01571  M01S01400.ldistap +++| CMP      CON    0           COMMAND PROCESSOR ADDRESS
Line S01401 Modification History
M01 (Added by) ldistap
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
01572  M02S01401.274l797 ---| CNS      CON    0           COUNT OF CATALOGS WITH NO SCRATCH
01573  M01S00097.274l797 +++| CNSM     CON    0           COUNT OF CATALOGS WITH NO *MT/NT* SCRATCH
01574  M01S00098.274l797 +++| CNSC     CON    0           COUNT OF CATALOGS WITH NO *CT* SCRATCH
01575  M01S00099.274l797 +++| CNSA     CON    0           COUNT OF CATALOGS WITH NO *AT* SCRATCH
01576  M01S01402.ldistap +++| COA      CON    0           COUNT OF JOBS REQUIRING OPERATOR ACTION
01577  M01S01403.ldistap +++| COM      CON    0           COMMAND IMAGE
01578  M01S01404.ldistap +++| CON      CON    0           CONSOLE STATUS
Line S01405 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01579  M02S01405.282l826 ---| CPE      CON    0           COUNT OF PREVIEW ENTRIES
01580  M01S01406.ldistap +++| CPN      BSS    0           *CP=N,PG=N* LINE
01581  M01S01407.ldistap +++|          VFD    12/2R:N     *NAM* OUTPUT
01582  M01S01408.ldistap +++|          VFD    12/4107B    CURSOR POSITIONING
01583  M01S01409.ldistap +++|          VFD    12/4000B    NO
01584  M01S01410.ldistap +++|          VFD    12/4045B    PAGE WAITING
01585  M01S01411.ldistap +++|          VFD    12/4000B    NO
01586  M01S01412.ldistap +++|          VFD    60/0        END OF LINE
01587  M01S01413.ldistap +++| CPY      BSS    0           *CP=Y* LINE
01588  M01S01414.ldistap +++|          VFD    12/2R:N     *NAM* OUTPUT
01589  M01S01415.ldistap +++|          VFD    12/4107B    CURSOR POSITIONING
01590  M01S01416.ldistap +++|          VFD    12/4001B    YES
01591  M01S01417.ldistap +++|          VFD    24/0        END OF LINE
01592  M01S01418.ldistap +++| CSL      BSS    0           CLEAR SCREEN LINE
01593  M01S01419.ldistap +++|          VFD    12/2R"EM"   ASCII OUTPUT
01594  M01S01420.ldistap +++|          VFD    12/2R;     CLEAR SCREEN CHARACTER
01595  M01S01421.ldistap +++|          VFD    24/4R"CR""ES"  CARRIAGE RETURN/NO LINE FEED
01596  M01S01422.ldistap +++|          VFD    12/0        END OF LINE
01597  M01S01423.ldistap +++| DIS      CON    DISHP       CURRENT DISPLAY
Line S01424 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01598  M02S01424.282l826 ---| EJA      CON    0           FWA OF EJT TABLE
Line S01425 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01599  M02S01425.282l826 ---| ESA      CON    0           FWA OF EST TABLE
Line S01426 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01600  M02S01426.282l826 ---| EST      CON    0           EST ORDINAL
01601  M01S01427.ldistap +++| FFO      CON    0           FWA OF FAMILY ORDINAL TABLE
01602  M01S01428.ldistap +++| HYPHENS  DATA   10H----------  TEN HYPHEN CHARACTERS
01603  M01S01429.ldistap +++| JOT      CON    0           JOB ORIGIN TYPE
Line S01430 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01604  M02S01430.282l826 ---| JSN      CON    0           JSN
01605  M01S01431.ldistap +++| LDE      CON    0           L-DISPLAY ERROR FLAG
01606  M01S01432.ldistap +++| LIT      CON    0           LITERAL STATUS FOR *POP* (0=NO LITERALS)
01607  M01S01433.ldistap +++| LNS      CON    0           LINE MODE OUTPUT STATUS (0=NO OUTPUT)
Line S01434 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01608  M02S01434.282l826 ---| MGS      CON    0           *MAGNET* STATUS (0=ENABLED)
01609  M01S01435.ldistap +++| MXF      CON    0           MAXIMUM NUMBER OF FOT ENTRIES
Line S01436 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01610  M02S01436.282l826 ---| NCP      CON    0           NUMBER OF CONTROL POINTS
01611  M01S01437.ldistap +++| OFM      CON    0           ORIGINAL FAMILY NAME
01612  M01S01438.ldistap +++| OPT      CON    OPTLN       INPUT/OUTPUT MODE
01613  M01S01439.ldistap +++| OUI      CON    0           ORIGINAL USER INDEX
01614  M01S01440.ldistap +++| PAG      CON    1           CURRENT PAGE NUMBER
01615  M01S01441.ldistap +++| PAR      CON    0           COMMAND PARAMETER ADDRESS
01616  M01S01442.ldistap +++| PNO      CON    NPGHD       CURRENT NUMBER OF PAGES
01617  M01S01443.ldistap +++| ROT      DATA   0           ROLLOUT TIME
01618  M01S01444.ldistap +++| SIA      CON    0           SCREEN INPUT AVAILABLE FLAG
Line S01445 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01619  M02S01445.282l826 ---| SSS      CON    0           SECURED SYSTEM STATUS (0=NOT SECURED)
01620  M01S01446.ldistap +++| TIN      CON    0           TERMINAL INPUT STATUS (0=TERMINAL INPUT)
01621  M01S01447.ldistap +++| TMS      CON    0           *TMS* STATUS (0=ENABLED)
01622  M01S01448.ldistap +++| TOP      BSS    0           TOP OF PAGE CHARACTERS
01623  M01S01449.ldistap +++|          VFD    12/2R"EM"   ASCII OUTPUT
01624  M01S01450.ldistap +++|          VFD    12/2R       BELL CHARACTER
01625  M01S01451.ldistap +++|          VFD    12/2R;     TOP OF PAGE CHARACTER
01626  M01S01452.ldistap +++|          VFD    24/4R"CR""ES"  CARRIAGE RETURN/NO LINE FEED
01627  M01S01453.ldistap +++|          VFD    60/0        END OF LINE
01628  M01S01454.ldistap +++| TOU      CON    0           TERMINAL OUTPUT STATUS (0=TERMINAL OUTPUT)
Line S01455 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01629  M02S01455.282l826 ---| UDA      CON    0           FWA OF *UDT* TABLE
Line S01456 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01630  M02S01456.282l826 ---| UDL      CON    0           *UDT* LENGTH
Line S01457 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01631  M02S01457.282l826 ---| UDT      CON    0           *UDT* ADDRESS
Line S01458 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01632  M02S01458.282l826 ---| VSN      CON    0           VSN
01633  M01S01459.ldistap +++| ZEROES   BSSZ   7           SEVEN WORDS OF ZEROES
Line S01460 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
01634  M02S01460.nos252  ---|          TITLE  LDISTAP MAIN PROGRAM.
01635  M01S00037.nos252  +++|          TITLE  TMSDIS MAIN PROGRAM.
01636  M01S01461.ldistap +++| LDI      SPACE  4,10
Line S01462 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
01637  M02S01462.nos252  ---|**        LDISTAP - MAIN PROGRAM.
01638  M01S00038.nos252  +++|**        TMSDIS - MAIN PROGRAM.
01639  M01S01463.ldistap +++|
01640  M01S01464.ldistap +++|
01641  M01S00039.nos252  +++| TMSDIS   BSS    0           ENTRY
01642  M01S01465.ldistap +++| LDISTAP  SB1    1           ENTRY
01643  M01S01466.ldistap +++|          RJ     PRS         PRESET PROGRAM
01644  M01S01467.ldistap +++|          SA1    OPT
01645  M01S01468.ldistap +++|          SX1    X1-OPTLN
01646  M01S01469.ldistap +++|          ZR     X1,LDI7     IF LINE MODE
01647  M01S01470.ldistap +++|          SX1    X1-OPTSC+OPTLN
01648  M01S01471.ldistap +++|          ZR     X1,LDI1     IF SCREEN MODE
01649  M01S01472.ldistap +++|          SX6    B0          CLEAR DISPLAY
01650  M01S01473.ldistap +++|          SA6    DBUF+DBUFS
01651  M01S01474.ldistap +++|          RJ     IDO         ISSUE DISPLAY OUTPUT
Line S01475 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01652  M02S01475.282l826 ---|          RJ     CMM         CLEAR MAGNET MESSAGE
01653  M01S01476.ldistap +++|          EQ     LDI3        GET SYSTEM STATUSES
01654  M01S01477.ldistap +++|
01655  M01S01478.ldistap +++| LDI1     WRITEC L,CPN       CLEAR PAGE WAIT/CURSOR POSITIONING
01656  M01S01479.ldistap +++|          WRITEC L,CSL       CLEAR SCREEN
01657  M01S01480.ldistap +++|          EQ     LDI3        GET SYSTEM STATUSES
01658  M01S01481.ldistap +++|
01659  M01S01482.ldistap +++| LDI2     SA1    ROT
01660  M01S01483.ldistap +++|          ZR     X1,LDI3     IF NO ROLLOUT TIME
01661  M01S01484.ldistap +++|          ROLLOUT  ROT       ROLLOUT ON TIMED-EVENT
01662  M01S01485.ldistap +++| LDI3     RECALL
01663  M01S01486.ldistap +++|          RJ     GCS         GET CATALOG STATUS
Line S01487 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01664  M02S01487.282l826 ---|          RJ     GJS         GET EXECUTING JOB STATUS
Line S01488 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01665  M02S01488.282l826 ---|          RJ     GMS         GET *MAGNET* STATUS
Line S01489 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01666  M02S01489.282l826 ---|          RJ     CMM         CLEAR *MAGNET* MESSAGE
01667  M01S01490.ldistap +++|          SA1    CMP
01668  M01S01491.ldistap +++|          ZR     X1,LDI6     IF NO COMMAND PROCESSOR
01669  M01S01492.ldistap +++| LDI4     RJM    X1          PROCESS COMMAND
01670  M01S01493.ldistap +++|          NZ     X5,LDI5     IF ERROR
Line S01494 Modification History
M01 (Added by) ldistap
M02 (Updated by) ldista4
Seq #  *Modification Id* Act 
----------------------------+
01671  M02S01494.ldista4 ---|          MBSATA CSLC,DMMS,DMMSC,59,DMMSU  *LAST COMMMAND*
01672  M01S00001.ldista4 +++|          MBSATA CSLC,DMMA,DMMAC,59,DMMAU  *LAST COMMMAND*
01673  M01S01495.ldistap +++|          EQ     LDI6        ISSUE OUTPUT
01674  M01S01496.ldistap +++|
Line S01497 Modification History
M01 (Added by) ldistap
M02 (Updated by) ldista4
Seq #  *Modification Id* Act 
----------------------------+
01675  M02S01497.ldista4 ---| LDI5     MBSATA X5,DMMS,DMMSC,59,DMMSU  SET ERROR MESSAGE
01676  M01S00002.ldista4 +++| LDI5     MBSATA X5,DMMA,DMMAC,59,DMMAU  SET ERROR MESSAGE
01677  M01S01498.ldistap +++|          SA1    OPT         CHECK FOR LINE MODE
01678  M01S01499.ldistap +++|          SX1    X1-OPTLN
01679  M01S01500.ldistap +++|          NZ     X1,LDI6     IF NOT LINE MODE
Line S01501 Modification History
M01 (Added by) ldistap
M02 (Updated by) ldista4
Seq #  *Modification Id* Act 
----------------------------+
01680  M02S01501.ldista4 ---|          MBSATA DMMS,LDIA,64*6,DMMSU,53  ISSUE ERROR MESSAGE TO OUTPUT
01681  M01S00003.ldista4 +++|          MBSATA DMMA,LDIA,64*6,DMMAU,53  ISSUE ERROR MESSAGE TO OUTPUT
01682  M01S01502.ldistap +++|          WRITEC L,BLANKS
01683  M01S01503.ldistap +++|          WRITEC L,LDIA
01684  M01S01504.ldistap +++| LDI6     RJ     CLS         CHECK LINE MODE OUTPUT STATUS
01685  M01S01505.ldistap +++|          NZ     X6,LDI7     IF NO LINE MODE OUTPUT
01686  M01S01506.ldistap +++|          RJ     BDT         BUILD DISPLAY TITLE
01687  M01S01507.ldistap +++|          SA1    DIS         GET DISPLAY PROCESSOR ADDRESS
01688  M01S01508.ldistap +++|          SA1    X1+TDPR
01689  M01S01509.ldistap +++|          RJM    X1          PROCESS DISPLAY
01690  M01S01510.ldistap +++|          RJ     IOU         ISSUE OUTPUT
01691  M01S01511.ldistap +++| LDI7     RJ     GIN         GET INPUT
01692  M01S01512.ldistap +++|          SA1    CBUF+1
01693  M01S01513.ldistap +++|          NZ     X1,LDI8     IF INPUT
01694  M01S01514.ldistap +++|          SX6    B0          CLEAR COMMAND PROCESSOR
01695  M01S01515.ldistap +++|          SA6    CMP
01696  M01S01516.ldistap +++|          SX6    B1          FORCE LINE MODE OUTPUT
01697  M01S01517.ldistap +++|          SA6    LNS
01698  M01S01518.ldistap +++|          EQ     LDI2        ROLLOUT JOB
01699  M01S01519.ldistap +++|
01700  M01S01520.ldistap +++| LDI8     SB2    7           BLANK FILL COMMAND
01701  M01S01521.ldistap +++| LDI9     NG     B2,LDI10    IF END OF COMMAND
01702  M01S01522.ldistap +++|          SA1    B2+CBUF+1
01703  M01S01523.ldistap +++|          RJ     ZTB         CONVERT ZEROES TO BLANKS
01704  M01S01524.ldistap +++|          SA6    A1
01705  M01S01525.ldistap +++|          SB2    B2-B1
01706  M01S01526.ldistap +++|          EQ     LDI9        CHECK NEXT COMMAND WORD
01707  M01S01527.ldistap +++|
01708  M01S01528.ldistap +++| LDI10    MX0    42          FORCE TERMINATOR INTO COMMAND
01709  M01S01529.ldistap +++|          SA1    CBUF+1+7
01710  M01S01530.ldistap +++|          SX6    1R.
01711  M01S01531.ldistap +++|          BX1    X0*X1
01712  M01S01532.ldistap +++|          LX6    12
01713  M01S01533.ldistap +++|          BX6    X1+X6
01714  M01S01534.ldistap +++|          SA6    A1
Line S01535 Modification History
M01 (Added by) ldistap
M02 (Updated by) ldista4
Seq #  *Modification Id* Act 
----------------------------+
01715  M02S01535.ldista4 ---|          MBSATA CSPR,DMMS,DMMSC,59,DMMSU  *PROCESSING*
01716  M01S00004.ldista4 +++|          MBSATA CSPR,DMMA,DMMAC,59,DMMAU  *PROCESSING*
01717  M01S01536.ldistap +++|          MBSATA CBUF+1,DMCM,DMCMC,59,DMCMU
01718  M01S01537.ldistap +++|          SA1    OPT         CHECK OPTION
01719  M01S01538.ldistap +++|          SX1    X1-OPTLD
01720  M01S01539.ldistap +++|          NZ     X1,LDI11    IF NOT L-DISPLAY MODE
01721  M01S01540.ldistap +++|          RJ     IDO         ISSUE DISPLAY OUTPUT
01722  M01S01541.ldistap +++| LDI11    SB2    CBUF+1
01723  M01S01542.ldistap +++|          RJ     USB         UNPACK STRING BUFFER
01724  M01S01543.ldistap +++|          RJ     POP         PICK OUT PARAMETER
01725  M01S01544.ldistap +++|          SB5    B5-B1
01726  M01S01545.ldistap +++|          SX5    CSUC        *UNKNOWN COMMAND.*
01727  M01S01546.ldistap +++|          PL     B5,LDI5     IF COMMAND TOO LONG
01728  M01S01547.ldistap +++|          ZR     X6,LDI12    IF SPECIAL CHARACTER
01729  M01S01548.ldistap +++|          MX0    42          CHECK COMMAND LENGTH
01730  M01S01549.ldistap +++|          BX1    -X0*X6
01731  M01S01550.ldistap +++|          NZ     X1,LDI5     IF COMMAND TOO LONG
01732  M01S01551.ldistap +++|          EQ     LDI13       SAVE COMMAND IMAGE
01733  M01S01552.ldistap +++|
01734  M01S01553.ldistap +++| LDI12    LX1    54          POSITION COMMAND
01735  M01S01554.ldistap +++|          BX6    X1
01736  M01S01555.ldistap +++| LDI13    SA6    COM         SAVE COMMAND IMAGE
01737  M01S01556.ldistap +++|          SX6    B6          SAVE FIRST PARAMETER ADDRESS
01738  M01S01557.ldistap +++|          SA6    PAR
01739  M01S01558.ldistap +++|          MX0    42          FIND COMMAND
01740  M01S01559.ldistap +++|          SA1    COM
01741  M01S01560.ldistap +++|          SRCHTAB  X1,TCOM,0,1,TCOML
01742  M01S01561.ldistap +++|          SX5    CSUC        *UNKNOWN COMMAND.*
01743  M01S01562.ldistap +++|          NZ     X6,LDI5     IF COMMAND NOT FOUND
01744  M01S01563.ldistap +++|          SX6    X2          SAVE COMMAND PROCESSOR ADDRESS
01745  M01S01564.ldistap +++|          SA6    CMP
01746  M01S01565.ldistap +++|          PL     X6,LDI3     IF DO NOT PROCESS IMMEDIATELY
01747  M01S01566.ldistap +++|          BX1    -X6
01748  M01S01567.ldistap +++|          EQ     LDI4        PROCESS COMMAND
01749  M01S01568.ldistap +++|
01750  M01S01569.ldistap +++| LDIA     DATA   65L
01751  M01S01570.ldistap +++| ABT      SPACE  4,10
01752  M01S01571.ldistap +++|**        ABT - ABORT PROGRAM.
01753  M01S01572.ldistap +++|*
01754  M01S01573.ldistap +++|*         ENTRY  (X5) = ADDRESS OF DAYFILE MESSAGE.
01755  M01S01574.ldistap +++|*
01756  M01S01575.ldistap +++|*         EXIT   MESSAGE ISSUED TO SYSTEM AND USER DAYFILES.
01757  M01S01576.ldistap +++|*                PROGRAM ABORTED.
01758  M01S01577.ldistap +++|*
01759  M01S01578.ldistap +++|*         CALLS  CUP.
01760  M01S01579.ldistap +++|*
01761  M01S01580.ldistap +++|*         MACROS ABORT, MESSAGE.
01762  M01S01581.ldistap +++|
01763  M01S01582.ldistap +++|
01764  M01S01583.ldistap +++| ABT      BSS    0           ENTRY
01765  M01S01584.ldistap +++|          RJ     CUP         CLEAN UP PROGRAM
01766  M01S01585.ldistap +++|          MESSAGE  X5,0,R    ISSUE ERROR MESSAGE
01767  M01S01586.ldistap +++|          ABORT              ABORT PROGRAM
01768  M01S01587.ldistap +++| END      SPACE  4,10
01769  M01S01588.ldistap +++|**        END - TERMINATE PROGRAM.
01770  M01S01589.ldistap +++|*
01771  M01S01590.ldistap +++|*         EXIT   PROGRAM TERMINATED.
01772  M01S01591.ldistap +++|*
01773  M01S01592.ldistap +++|*         CALLS  CUP.
01774  M01S01593.ldistap +++|*
01775  M01S01594.ldistap +++|*         MACROS ENDRUN, MESSAGE.
01776  M01S01595.ldistap +++|
01777  M01S01596.ldistap +++|
01778  M01S01597.ldistap +++| END      BSS    0           ENTRY
01779  M01S01598.ldistap +++|          RJ     CUP         CLEAN UP PROGRAM
Line S01599 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
01780  M02S01599.nos252  ---|          MESSAGE  DFLC,0,R  *LDISTAP COMPLETE.*
01781  M01S00040.nos252  +++|          MESSAGE  DFLC,0,R  *TMSDIS COMPLETE.*
01782  M01S01600.ldistap +++|          ENDRUN             TERMINATE PROGRAM
01783  M01S01601.ldistap +++| RPV      SPACE  4,15
01784  M01S01602.ldistap +++|**        RPV - REPRIEVE PROCESSOR.
01785  M01S01603.ldistap +++|*
01786  M01S01604.ldistap +++|*         EXIT   (SIA) = 1 AND PROGRAM RESUMED IF USER BREAK ONE AND
01787  M01S01605.ldistap +++|*                        TERMINAL INPUT/OUTPUT.
01788  M01S01606.ldistap +++|*                PROGRAM CLEANED UP AND ERROR CONDITION RESET IF NOT
01789  M01S01607.ldistap +++|*                USER BREAK ONE OR NOT TERMINAL INPUT/OUTPUT.
01790  M01S01608.ldistap +++|*
01791  M01S01609.ldistap +++|*         USES   X - 0, 1, 2, 6.
01792  M01S01610.ldistap +++|*                A - 1, 2, 6.
01793  M01S01611.ldistap +++|*
01794  M01S01612.ldistap +++|*         CALLS  CUP.
01795  M01S01613.ldistap +++|*
01796  M01S01614.ldistap +++|*         MACROS REPRIEVE.
01797  M01S01615.ldistap +++|
01798  M01S01616.ldistap +++|
01799  M01S01617.ldistap +++| RPV      BSS    0           ENTRY
01800  M01S01618.ldistap +++|          MX0    -12         CHECK ERROR FLAG
01801  M01S01619.ldistap +++|          SA1    RPVA+/COMSRPV/OSEF
01802  M01S01620.ldistap +++|          BX1    -X0*X1
01803  M01S01621.ldistap +++|          SX1    X1-TIET
01804  M01S01622.ldistap +++|          NZ     X1,RPV2     IF NOT USER BREAK ONE
01805  M01S01623.ldistap +++|          SA1    TIN         CHECK FOR TERMINAL INPUT/OUTPUT
01806  M01S01624.ldistap +++|          SA2    TOU
01807  M01S01625.ldistap +++|          BX1    X1+X2
01808  M01S01626.ldistap +++|          NZ     X1,RPV2     IF NOT TERMINAL INPUT/OUTPUT
01809  M01S01627.ldistap +++|          SX6    B1          FLAG SCREEN INPUT AVAILABLE
01810  M01S01628.ldistap +++|          SA6    SIA
Line S01629 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01811  M02S01629.282l826 ---| RPV1     REPRIEVE  RPVA,RESUME,237B  RESUME PROGRAM EXECUTION
01812  M01S00008.282l826 +++|          REPRIEVE  RPVA,RESUME,237B  RESUME PROGRAM EXECUTION
01813  M01S01630.ldistap +++|
01814  M01S01631.ldistap +++| RPV2     RJ     CUP         CLEAN UP PROGRAM
01815  M01S01632.ldistap +++|          REPRIEVE  RPVA,RESET,000B  RESET ERROR CONDITION
01816  M01S01633.ldistap +++|
01817  M01S01634.ldistap +++| RPVA     RPVBLK RPV         REPRIEVE BLOCK
01818  M01S01635.ldistap +++|          TITLE  COMMAND SUBROUTINES.
Line S01636 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01819  M02S01636.282l826 ---| ASS      SPACE  4,15
Line S01637 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01820  M02S01637.282l826 ---|**        ASS - PROCESS *ASSIGN* COMMAND.
Line S01638 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01821  M02S01638.282l826 ---|*
Line S01639 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01822  M02S01639.282l826 ---|*         ASSIGN,JSN,EST.
Line S01640 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01823  M02S01640.282l826 ---|*
Line S01641 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01824  M02S01641.282l826 ---|*         EXIT   (X5) = 0 IF COMMAND PROCESSED.
Line S01642 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01825  M02S01642.282l826 ---|*                     = ERROR MESSAGE ADDRESS IF COMMAND NOT PROCESSED.
Line S01643 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01826  M02S01643.282l826 ---|*
Line S01644 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01827  M02S01644.282l826 ---|*         USES   X - 1.
Line S01645 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01828  M02S01645.282l826 ---|*
Line S01646 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01829  M02S01646.282l826 ---|*         CALLS  VEP, VNP, VJP.
Line S01647 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01830  M02S01647.282l826 ---|*
Line S01648 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01831  M02S01648.282l826 ---|*         MACROS MBSATA, MBSXTA, SYSTEM.
Line S01649 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01832  M02S01649.282l826 ---|
Line S01650 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01833  M02S01650.282l826 ---|
Line S01651 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01834  M02S01651.282l826 ---| ASS      SUBR               ENTRY/EXIT
Line S01652 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01835  M02S01652.282l826 ---|          RJ     VJP         VERIFY JSN PARAMETER
Line S01653 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01836  M03S01653.282l826 ---|          NZ     X5,ASSX     IF INVALID JSN
Line S00041 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01837  M02S00041.282l826 ---|          NZ     X5,ASSX     IF INCORRECT JSN
Line S01654 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01838  M02S01654.282l826 ---|          RJ     CJX         CHECK IF JOB IS EXECUTING
Line S01655 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01839  M02S01655.282l826 ---|          SX5    CSJN        *JOB NOT REQUESTING RESOURCE*
Line S01656 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01840  M02S01656.282l826 ---|          ZR     X1,ASSX     IF JOB NOT FOUND
Line S01657 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01841  M02S01657.282l826 ---|          MBSXTA X1,ASSA,12,11,23  SET EJT ORDINAL
Line S01658 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01842  M02S01658.282l826 ---|          RJ     VEP         VERIFY EST PARAMETER
Line S01659 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01843  M03S01659.282l826 ---|          NZ     X5,ASSX     IF INVALID EST
Line S00042 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01844  M02S00042.282l826 ---|          NZ     X5,ASSX     IF INCORRECT EST
Line S01660 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01845  M02S01660.282l826 ---|          RJ     VNP         VERIFY NO PARAMETERS
Line S01661 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01846  M02S01661.282l826 ---|          NZ     X5,ASSX     IF TOO MANY PARAMETERS
Line S01662 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01847  M02S01662.282l826 ---|          MBSATA JSN,ASSA,24,59,59  SET JSN
Line S01663 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01848  M02S01663.282l826 ---|          MBSATA EST,ASSA,12,11,11  SET EST ORDINAL
Line S01664 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01849  M02S01664.282l826 ---|          SYSTEM TFU,R,ASSA,/TFU/AEJF*100B  CALL *TFU*
Line S01665 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01850  M02S01665.282l826 ---|          SA1    ASSA        CHECK RETURN CODE
Line S01666 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01851  M02S01666.282l826 ---|          AX1    48
Line S01667 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01852  M02S01667.282l826 ---|          SX5    B0
Line S01668 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01853  M02S01668.282l826 ---|          ZR     X1,ASSX     IF EQUIPMENT ASSIGNED
Line S01669 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01854  M02S01669.282l826 ---|          SX5    CSJN        *JOB NOT REQUESTING RESOURCE*
Line S01670 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01855  M02S01670.282l826 ---|          EQ     ASSX        RETURN
Line S01671 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01856  M02S01671.282l826 ---|
Line S01672 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01857  M02S01672.282l826 ---| ASSA     BSS    0           *TFM* PARAMETER BLOCK
Line S01673 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01858  M02S01673.282l826 ---|          VFD    24/         JSN
Line S01674 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01859  M02S01674.282l826 ---|          VFD    12/0
Line S01675 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01860  M02S01675.282l826 ---|          VFD    12/         EJT ORDINAL
Line S01676 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01861  M02S01676.282l826 ---|          VFD    12/         EST ORDINAL
01862  M01S01677.ldistap +++| COP      SPACE  4,15
01863  M01S01678.ldistap +++|**        COP - PROCESS *COPY* COMMAND.
01864  M01S01679.ldistap +++|*
01865  M01S01680.ldistap +++|*         COPY.
01866  M01S01681.ldistap +++|*
01867  M01S01682.ldistap +++|*         EXIT   CURRENT DISPLAY COPIED TO OUTPUT FILE IF L-DISPLAY OR
01868  M01S01683.ldistap +++|*                LINE MODE.
01869  M01S01684.ldistap +++|*                (X5) = 0 IF NO PARAMETERS.
01870  M01S01685.ldistap +++|*                     = CSTM IF TOO MANY PARAMETERS.
01871  M01S01686.ldistap +++|*
01872  M01S01687.ldistap +++|*         USES   X - 1.
01873  M01S01688.ldistap +++|*                A - 1.
01874  M01S01689.ldistap +++|*
01875  M01S01690.ldistap +++|*         CALLS  ILO, VNP.
01876  M01S01691.ldistap +++|
01877  M01S01692.ldistap +++|
01878  M01S01693.ldistap +++| COP      SUBR               ENTRY/EXIT
01879  M01S01694.ldistap +++|          RJ     VNP         VERIFY NO MORE PARAMETERS
01880  M01S01695.ldistap +++|          NZ     X5,COPX     IF TOO MANY PARAMETERS
01881  M01S01696.ldistap +++|          SA1    OPT         CHECK INPUT/OUTPUT MODE
01882  M01S01697.ldistap +++|          SX1    X1-OPTSC
01883  M01S01698.ldistap +++|          ZR     X1,COPX     IF SCREEN MODE
01884  M01S01699.ldistap +++|          RJ     BDT         BUILD DISPLAY TITLE
01885  M01S01700.ldistap +++|          SA1    DIS         GET DISPLAY PROCESSOR ADDRESS
01886  M01S01701.ldistap +++|          SA1    X1+TDPR
01887  M01S01702.ldistap +++|          RJM    X1          PROCESS DISPLAY
01888  M01S01703.ldistap +++|          RJ     ILO         ISSUE LINE OUTPUT
01889  M01S01704.ldistap +++|          SX5    B0          FLAG NO ERROR
01890  M01S01705.ldistap +++|          EQ     COPX        RETURN
01891  M01S01706.ldistap +++| DRO      SPACE  4,10
Line S01707 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
01892  M02S01707.nos252  ---|**        DRO - PROCESS *DROP* COMMAND.
01893  M01S00043.nos252  +++|**        DRO - PROCESS *DROP* OR *END* COMMAND.
01894  M01S01708.ldistap +++|*
01895  M01S00044.nos252  +++|*         END.
01896  M01S01709.ldistap +++|*         DROP.
01897  M01S01710.ldistap +++|*
01898  M01S01711.ldistap +++|*         EXIT   TO *END* TO TERMINATE PROGRAM.
01899  M01S01712.ldistap +++|*
01900  M01S01713.ldistap +++|*         ERROR  (X5) = CSTM IF TOO MANY PARAMETERS.
01901  M01S01714.ldistap +++|*
01902  M01S01715.ldistap +++|*         CALLS  VNP.
01903  M01S01716.ldistap +++|
01904  M01S01717.ldistap +++|
01905  M01S01718.ldistap +++| DRO      SUBR               ENTRY/EXIT
01906  M01S01719.ldistap +++|          RJ     VNP         VERIFY NO PARAMETERS
01907  M01S01720.ldistap +++|          NZ     X5,DROX     IF TOO MANY PARAMETERS
01908  M01S01721.ldistap +++|          EQ     END         TERMINATE PROGRAM
Line S01722 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01909  M02S01722.282l826 ---| EQP      SPACE  4,15
Line S01723 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01910  M02S01723.282l826 ---|**        EQP - PROCESS *EQU* COMMAND.
01911  M01S00009.282l826 +++| FAP      SPACE  4,15
01912  M01S00010.282l826 +++|**        FAP - PROCESS *FAM* COMMAND.
01913  M01S01724.ldistap +++|*
Line S01725 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01914  M02S01725.282l826 ---|*         EQU.
01915  M01S00011.282l826 +++|*         FAM.
01916  M01S01726.ldistap +++|*
Line S01727 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01917  M02S01727.282l826 ---|*         EXIT   (DIS) = DISEQ.
01918  M01S00012.282l826 +++|*         EXIT   (DIS) = DISFC.
01919  M01S01728.ldistap +++|*                (PAG) = 1.
01920  M01S01729.ldistap +++|*                (X5) = 0 IF NO PARAMETERS.
01921  M01S01730.ldistap +++|*                     = CSTM IF TOO MANY PARAMETERS.
01922  M01S01731.ldistap +++|*
01923  M01S01732.ldistap +++|*         USES   X - 6.
01924  M01S01733.ldistap +++|*                A - 6.
01925  M01S01734.ldistap +++|*
01926  M01S01735.ldistap +++|*         CALLS  VNP.
01927  M01S01736.ldistap +++|
01928  M01S01737.ldistap +++|
Line S01738 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01929  M02S01738.282l826 ---| EQP      SUBR               ENTRY/EXIT
01930  M01S00013.282l826 +++| FAP      SUBR               ENTRY/EXIT
01931  M01S01739.ldistap +++|          RJ     VNP         VERIFY NO MORE PARAMETERS
Line S01740 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01932  M02S01740.282l826 ---|          NZ     X5,EQPX     IF TOO MANY PARAMETERS
01933  M01S00014.282l826 +++|          NZ     X5,FAPX     IF TOO MANY PARAMETERS
01934  M01S01741.ldistap +++|          SX6    B1          SET PAGE NUMBER
01935  M01S01742.ldistap +++|          SA6    PAG
Line S01743 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01936  M02S01743.282l826 ---|          SX6    DISEQ       SET DISPLAY TYPE
01937  M01S00015.282l826 +++|          SX6    DISFC       SET DISPLAY TYPE
01938  M01S01744.ldistap +++|          SA6    DIS
01939  M01S01745.ldistap +++|          SX6    B1          FORCE LINE MODE OUTPUT
01940  M01S01746.ldistap +++|          SA6    LNS
01941  M01S01747.ldistap +++|          SX5    B0
Line S01748 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01942  M02S01748.282l826 ---|          EQ     EQPX        RETURN
Line S01749 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01943  M02S01749.282l826 ---| FAP      SPACE  4,15
Line S01750 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01944  M02S01750.282l826 ---|**        FAP - PROCESS *FAM* COMMAND.
01945  M01S00016.282l826 +++|          EQ     FAPX        RETURN
01946  M01S00017.282l826 +++| HEP      SPACE  4,15
01947  M01S00018.282l826 +++|**        HEP - PROCESS *HELP* COMMAND.
01948  M01S01751.ldistap +++|*
Line S01752 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01949  M02S01752.282l826 ---|*         FAM.
01950  M01S00019.282l826 +++|*         HELP.
01951  M01S01753.ldistap +++|*
Line S01754 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01952  M02S01754.282l826 ---|*         EXIT   (DIS) = DISFC.
01953  M01S00020.282l826 +++|*         EXIT   (DIS) = DISHP.
01954  M01S01755.ldistap +++|*                (PAG) = 1.
01955  M01S01756.ldistap +++|*                (X5) = 0 IF NO PARAMETERS.
01956  M01S01757.ldistap +++|*                     = CSTM IF TOO MANY PARAMETERS.
01957  M01S01758.ldistap +++|*
01958  M01S01759.ldistap +++|*         USES   X - 6.
01959  M01S01760.ldistap +++|*                A - 6.
01960  M01S01761.ldistap +++|*
01961  M01S01762.ldistap +++|*         CALLS  VNP.
01962  M01S01763.ldistap +++|
01963  M01S01764.ldistap +++|
Line S01765 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01964  M02S01765.282l826 ---| FAP      SUBR               ENTRY/EXIT
Line S01766 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01965  M02S01766.282l826 ---|          RJ     VNP         VERIFY NO MORE PARAMETERS
Line S01767 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01966  M02S01767.282l826 ---|          NZ     X5,FAPX     IF TOO MANY PARAMETERS
Line S01768 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01967  M02S01768.282l826 ---|          SX6    B1          SET PAGE NUMBER
Line S01769 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01968  M02S01769.282l826 ---|          SA6    PAG
Line S01770 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01969  M02S01770.282l826 ---|          SX6    DISFC       SET DISPLAY TYPE
Line S01771 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01970  M02S01771.282l826 ---|          SA6    DIS
Line S01772 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01971  M02S01772.282l826 ---|          SX6    B1          FORCE LINE MODE OUTPUT
Line S01773 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01972  M02S01773.282l826 ---|          SA6    LNS
Line S01774 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01973  M02S01774.282l826 ---|          SX5    B0
Line S01775 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01974  M02S01775.282l826 ---|          EQ     FAPX        RETURN
Line S01776 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01975  M02S01776.282l826 ---| GOP      SPACE  4,10
Line S01777 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01976  M02S01777.282l826 ---|**        GOP - PROCESS *GO* COMMAND.
Line S01778 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01977  M02S01778.282l826 ---|*
Line S01779 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01978  M02S01779.282l826 ---|*         GO,EST.
Line S01780 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01979  M02S01780.282l826 ---|*
Line S01781 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01980  M02S01781.282l826 ---|*         EXIT   (X5) = 0 IF *GO* PROCESSED.
Line S01782 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01981  M02S01782.282l826 ---|*                     = ERROR MESSAGE ADDRESS IF *GO* NOT PROCESSED.
Line S01783 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01982  M02S01783.282l826 ---|*
Line S01784 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01983  M02S01784.282l826 ---|*         USES   X - 1.
Line S01785 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01984  M02S01785.282l826 ---|*
Line S01786 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01985  M02S01786.282l826 ---|*         CALLS  IXR, VTP, VNP.
Line S01787 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01986  M02S01787.282l826 ---|
Line S01788 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01987  M02S01788.282l826 ---|
Line S01789 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01988  M02S01789.282l826 ---| GOP      SUBR               ENTRY/EXIT
Line S01790 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01989  M02S01790.282l826 ---|          RJ     VTP         VERIFY TAPE EST PARAMETER
Line S01791 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01990  M03S01791.282l826 ---|          NZ     X5,GOPX     IF INVALID PARAMETER
Line S00045 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01991  M02S00045.282l826 ---|          NZ     X5,GOPX     IF INCORRECT PARAMETER
Line S01792 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01992  M02S01792.282l826 ---|          RJ     VNP         VERIFY NO MORE PARAMETERS
Line S01793 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01993  M02S01793.282l826 ---|          NZ     X5,GOPX     IF TOO MANY PARAMETERS
Line S01794 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01994  M02S01794.282l826 ---|          SX1    /MTX/XUG
Line S01795 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01995  M02S01795.282l826 ---|          RJ     IXR         ISSUE EXTERNAL *MAGNET* REQUEST
Line S01796 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01996  M02S01796.282l826 ---|          EQ     GOPX        RETURN
Line S01797 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01997  M02S01797.282l826 ---| HEP      SPACE  4,15
Line S01798 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01998  M02S01798.282l826 ---|**        HEP - PROCESS *HELP* COMMAND.
Line S01799 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
01999  M02S01799.282l826 ---|*
Line S01800 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02000  M02S01800.282l826 ---|*         HELP.
Line S01801 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02001  M02S01801.282l826 ---|*
Line S01802 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02002  M02S01802.282l826 ---|*         EXIT   (DIS) = DISHP.
Line S01803 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02003  M02S01803.282l826 ---|*                (PAG) = 1.
Line S01804 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02004  M02S01804.282l826 ---|*                (X5) = 0 IF NO PARAMETERS.
Line S01805 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02005  M02S01805.282l826 ---|*                     = CSTM IF TOO MANY PARAMETERS.
Line S01806 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02006  M02S01806.282l826 ---|*
Line S01807 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02007  M02S01807.282l826 ---|*         USES   X - 6.
Line S01808 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02008  M02S01808.282l826 ---|*                A - 6.
Line S01809 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02009  M02S01809.282l826 ---|*
Line S01810 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02010  M02S01810.282l826 ---|*         CALLS  VNP.
Line S01811 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02011  M02S01811.282l826 ---|
Line S01812 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02012  M02S01812.282l826 ---|
02013  M01S01813.ldistap +++| HEP      SUBR               ENTRY/EXIT
02014  M01S01814.ldistap +++|          RJ     VNP         VERIFY NO MORE PARAMETERS
02015  M01S01815.ldistap +++|          NZ     X5,HEPX     IF TOO MANY PARAMETERS
02016  M01S01816.ldistap +++|          SX6    B1          SET PAGE NUMBER
02017  M01S01817.ldistap +++|          SA6    PAG
02018  M01S01818.ldistap +++|          SX6    DISHP       SET DISPLAY TYPE
02019  M01S01819.ldistap +++|          SA6    DIS
02020  M01S01820.ldistap +++|          SX6    B1          FORCE LINE MODE OUTPUT
02021  M01S01821.ldistap +++|          SA6    LNS
02022  M01S01822.ldistap +++|          SX5    B0
02023  M01S01823.ldistap +++|          EQ     HEPX        RETURN
Line S01824 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02024  M02S01824.282l826 ---| JOP      SPACE  4,15
Line S01825 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02025  M02S01825.282l826 ---|**        JOP - PROCESS *JOB* COMMAND.
Line S01826 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02026  M02S01826.282l826 ---|*
Line S01827 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02027  M02S01827.282l826 ---|*         JOB.
Line S01828 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02028  M02S01828.282l826 ---|*
Line S01829 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02029  M02S01829.282l826 ---|*         EXIT   (DIS) = DISJB.
Line S01830 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02030  M02S01830.282l826 ---|*                (PAG) = 1.
Line S01831 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02031  M02S01831.282l826 ---|*                (X5) = 0 IF NO PARAMETERS.
Line S01832 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02032  M02S01832.282l826 ---|*                     = CSTM IF TOO MANY PARAMETERS.
Line S01833 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02033  M02S01833.282l826 ---|*
Line S01834 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02034  M02S01834.282l826 ---|*         USES   X - 6.
Line S01835 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02035  M02S01835.282l826 ---|*                A - 6.
Line S01836 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02036  M02S01836.282l826 ---|*
Line S01837 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02037  M02S01837.282l826 ---|*         CALLS  VNP.
Line S01838 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02038  M02S01838.282l826 ---|
Line S01839 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02039  M02S01839.282l826 ---|
Line S01840 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02040  M02S01840.282l826 ---| JOP      SUBR               ENTRY/EXIT
Line S01841 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02041  M02S01841.282l826 ---|          RJ     VNP         VERIFY NO MORE PARAMETERS
Line S01842 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02042  M02S01842.282l826 ---|          NZ     X5,JOPX     IF TOO MANY PARAMETERS
Line S01843 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02043  M02S01843.282l826 ---|          SX6    B1          SET PAGE NUMBER
Line S01844 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02044  M02S01844.282l826 ---|          SA6    PAG
Line S01845 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02045  M02S01845.282l826 ---|          SX6    DISJB       SET DISPLAY TYPE
Line S01846 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02046  M02S01846.282l826 ---|          SA6    DIS
Line S01847 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02047  M02S01847.282l826 ---|          SX6    B1          FORCE LINE MODE OUTPUT
Line S01848 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02048  M02S01848.282l826 ---|          SA6    LNS
Line S01849 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02049  M02S01849.282l826 ---|          SX5    B0
Line S01850 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02050  M02S01850.282l826 ---|          EQ     JOPX        RETURN
02051  M01S01851.ldistap +++| MCP      SPACE  4,15
02052  M01S01852.ldistap +++|**        MCP - PROCESS MINUS COMMAND.
02053  M01S01853.ldistap +++|*
02054  M01S01854.ldistap +++|*         -.
02055  M01S01855.ldistap +++|*         -N.
02056  M01S01856.ldistap +++|*
02057  M01S01857.ldistap +++|*         EXIT   PAGE TOGGLED BACKWARD.
02058  M01S01858.ldistap +++|*                (X5) = 0 IF NO PARAMETERS.
Line S01859 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
02059  M02S01859.nos252  ---|*                     = ERROR MESSAGE ADDRESS IF INVALID INCREMENT.
02060  M01S00046.nos252  +++|*                     = ERROR MESSAGE ADDRESS IF INCORRECT INCREMENT.
02061  M01S01860.ldistap +++|*
02062  M01S01861.ldistap +++|*         USES   X - 1, 2, 6.
02063  M01S01862.ldistap +++|*                A - 1, 2, 6.
02064  M01S01863.ldistap +++|*
02065  M01S01864.ldistap +++|*         CALLS  VIP, VNP.
02066  M01S01865.ldistap +++|
02067  M01S01866.ldistap +++|
02068  M01S01867.ldistap +++| MCP      SUBR               ENTRY/EXIT
02069  M01S01868.ldistap +++|          RJ     VIP         VERIFY INCREMENT PARAMETER
Line S01869 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
02070  M02S01869.nos252  ---|          NZ     X5,MCPX     IF INVALID PARAMETER
02071  M01S00047.nos252  +++|          NZ     X5,MCPX     IF INCORRECT PARAMETER
02072  M01S01870.ldistap +++|          SA6    MCPA        SAVE INCREMENT
02073  M01S01871.ldistap +++|          RJ     VNP         VERIFY NO PARAMETERS
02074  M01S01872.ldistap +++|          NZ     X5,MCPX     IF TOO MANY PARAMETERS
02075  M01S01873.ldistap +++|          SA1    PAG         CHECK PAGE NUMBER
02076  M01S01874.ldistap +++|          SA2    MCPA
02077  M01S01875.ldistap +++|          IX2    X2-X1
02078  M01S01876.ldistap +++|          BX6    -X2
02079  M01S01877.ldistap +++|          NG     X2,MCP1     IF NOT BEFORE FIRST PAGE
02080  M01S01878.ldistap +++|          SA1    PNO         SET LAST PAGE
02081  M01S01879.ldistap +++|          SX6    X1
02082  M01S01880.ldistap +++| MCP1     SA6    PAG         SET NEW PAGE NUMBER
02083  M01S01881.ldistap +++|          SX6    B1          FORCE LINE MODE OUTPUT
02084  M01S01882.ldistap +++|          SA6    LNS
02085  M01S01883.ldistap +++|          SX5    B0
02086  M01S01884.ldistap +++|          EQ     MCPX        RETURN
02087  M01S01885.ldistap +++|
02088  M01S01886.ldistap +++| MCPA     BSS    1           INCREMENT
02089  M01S01887.ldistap +++| PCP      SPACE  4,15
02090  M01S01888.ldistap +++|**        PCP - PROCESS PLUS COMMAND.
02091  M01S01889.ldistap +++|*
02092  M01S01890.ldistap +++|*         +.
02093  M01S01891.ldistap +++|*         +N.
02094  M01S01892.ldistap +++|*
02095  M01S01893.ldistap +++|*         EXIT   PAGE TOGGLED FORWARD.
02096  M01S01894.ldistap +++|*                (X5) = 0 IF NO PARAMETERS.
Line S01895 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
02097  M02S01895.nos252  ---|*                     = ERROR MESSAGE ADDRESS IF INVALID INCREMENT.
02098  M01S00048.nos252  +++|*                     = ERROR MESSAGE ADDRESS IF INCORRECT INCREMENT.
02099  M01S01896.ldistap +++|*
02100  M01S01897.ldistap +++|*         USES   X - 1, 2, 6.
02101  M01S01898.ldistap +++|*                A - 1, 2, 6.
02102  M01S01899.ldistap +++|*
02103  M01S01900.ldistap +++|*         CALLS  VIP, VNP.
02104  M01S01901.ldistap +++|
02105  M01S01902.ldistap +++|
02106  M01S01903.ldistap +++| PCP      SUBR               ENTRY/EXIT
02107  M01S01904.ldistap +++|          RJ     VIP         VERIFY INCREMENT PARAMETER
Line S01905 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
Seq #  *Modification Id* Act 
----------------------------+
02108  M02S01905.nos252  ---|          NZ     X5,PCPX     IF INVALID INCREMENT
02109  M01S00049.nos252  +++|          NZ     X5,PCPX     IF INCORRECT INCREMENT
02110  M01S01906.ldistap +++|          SA6    PCPA        SAVE INCREMENT
02111  M01S01907.ldistap +++|          RJ     VNP         VERIFY NO MORE PARAMETERS
02112  M01S01908.ldistap +++|          NZ     X5,PCPX     IF TOO MANY PARAMETERS
02113  M01S01909.ldistap +++|          SA1    PAG         CHECK PAGE NUMBER
02114  M01S01910.ldistap +++|          SA2    PCPA
02115  M01S01911.ldistap +++|          IX6    X1+X2
02116  M01S01912.ldistap +++|          SA1    PNO
02117  M01S01913.ldistap +++|          IX1    X1-X6
02118  M01S01914.ldistap +++|          PL     X1,PCP1     IF NOT AFTER LAST PAGE
02119  M01S01915.ldistap +++|          SX6    B1          SET FIRST PAGE
02120  M01S01916.ldistap +++| PCP1     SA6    PAG         SET NEW PAGE NUMBER
02121  M01S01917.ldistap +++|          SX6    B1          FORCE LINE MODE OUTPUT
02122  M01S01918.ldistap +++|          SA6    LNS
02123  M01S01919.ldistap +++|          SX5    B0
02124  M01S01920.ldistap +++|          EQ     PCPX        RETURN
02125  M01S01921.ldistap +++|
02126  M01S01922.ldistap +++| PCPA     BSS    1           INCREMENT
Line S01923 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02127  M02S01923.282l826 ---| PRP      SPACE  4,15
Line S01924 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02128  M02S01924.282l826 ---|**        PRP - PROCESS *PRE* COMMAND.
Line S01925 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02129  M02S01925.282l826 ---|*
Line S01926 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02130  M02S01926.282l826 ---|*         PRE.
Line S01927 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02131  M02S01927.282l826 ---|*
Line S01928 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02132  M02S01928.282l826 ---|*         EXIT   (DIS) = DISPR.
Line S01929 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02133  M02S01929.282l826 ---|*                (PAG) = 1.
Line S01930 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02134  M02S01930.282l826 ---|*                (X5) = 0 IF NO PARAMETERS.
Line S01931 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02135  M02S01931.282l826 ---|*                     = CSTM IF TOO MANY PARAMETERS.
Line S01932 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02136  M02S01932.282l826 ---|*
Line S01933 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02137  M02S01933.282l826 ---|*         USES   X - 6.
Line S01934 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02138  M02S01934.282l826 ---|*                A - 6.
Line S01935 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02139  M02S01935.282l826 ---|*
Line S01936 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02140  M02S01936.282l826 ---|*         CALLS  VNP.
Line S01937 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02141  M02S01937.282l826 ---|
Line S01938 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02142  M02S01938.282l826 ---|
Line S01939 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02143  M02S01939.282l826 ---| PRP      SUBR               ENTRY/EXIT
Line S01940 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02144  M02S01940.282l826 ---|          RJ     VNP         VERIFY NO MORE PARAMETERS
Line S01941 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02145  M02S01941.282l826 ---|          NZ     X5,PRPX     IF TOO MANY PARAMETERS
Line S01942 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02146  M02S01942.282l826 ---|          SX6    B1          SET PAGE NUMBER
Line S01943 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02147  M02S01943.282l826 ---|          SA6    PAG
Line S01944 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02148  M02S01944.282l826 ---|          SX6    DISPR       SET DISPLAY TYPE
Line S01945 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02149  M02S01945.282l826 ---|          SA6    DIS
Line S01946 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02150  M02S01946.282l826 ---|          SX6    B1          FORCE LINE MODE OUTPUT
Line S01947 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02151  M02S01947.282l826 ---|          SA6    LNS
Line S01948 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02152  M02S01948.282l826 ---|          SX5    B0
Line S01949 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02153  M02S01949.282l826 ---|          EQ     PRPX        RETURN
Line S01950 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02154  M02S01950.282l826 ---| SCR      SPACE  4,15
Line S01951 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02155  M02S01951.282l826 ---|**        SCR - PROCESS *SCRATCH* COMMAND.
Line S01952 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02156  M02S01952.282l826 ---|*
Line S01953 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02157  M02S01953.282l826 ---|*         SCRATCH,EST.
Line S01954 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02158  M02S01954.282l826 ---|*
Line S01955 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02159  M02S01955.282l826 ---|*         EXIT   (X5) = 0 IF *SCRATCH* PROCESSED.
Line S01956 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02160  M02S01956.282l826 ---|*                     = ERROR MESSAGE ADDRESS IF *SCRATCH* NOT
Line S01957 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02161  M02S01957.282l826 ---|*                       PROCESSED.
Line S01958 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02162  M02S01958.282l826 ---|*
Line S01959 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02163  M02S01959.282l826 ---|*         USES   X - 1.
Line S01960 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02164  M02S01960.282l826 ---|*
Line S01961 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02165  M02S01961.282l826 ---|*         CALLS  IXR, VTP, VNP.
Line S01962 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02166  M02S01962.282l826 ---|
Line S01963 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02167  M02S01963.282l826 ---|
Line S01964 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02168  M02S01964.282l826 ---| SCR      SUBR               ENTRY/EXIT
Line S01965 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02169  M02S01965.282l826 ---|          RJ     VTP         VERIFY TAPE EST PARAMETER
Line S01966 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02170  M03S01966.282l826 ---|          NZ     X5,SCRX     IF INVALID EST
Line S00050 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02171  M02S00050.282l826 ---|          NZ     X5,SCRX     IF INCORRECT EST
Line S01967 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02172  M02S01967.282l826 ---|          RJ     VNP         VERIFY NO MORE PARAMETERS
Line S01968 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02173  M02S01968.282l826 ---|          NZ     X5,SCRX     IF MORE PARAMETERS
Line S01969 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02174  M02S01969.282l826 ---|          SX1    /MTX/XSV
Line S01970 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02175  M02S01970.282l826 ---|          RJ     IXR         ISSUE EXTERNAL *MAGNET* REQUEST
Line S01971 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02176  M02S01971.282l826 ---|          EQ     SCRX        RETURN
Line S01972 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02177  M02S01972.282l826 ---| STO      SPACE  4,10
Line S01973 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02178  M02S01973.282l826 ---|**        STO - PROCESS *STOP* COMMAND.
Line S01974 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02179  M02S01974.282l826 ---|*
Line S01975 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02180  M02S01975.282l826 ---|*         STOP,EST.
Line S01976 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02181  M02S01976.282l826 ---|*
Line S01977 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02182  M02S01977.282l826 ---|*         EXIT   (X5) = 0 IF *STOP* PROCESSED.
Line S01978 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02183  M02S01978.282l826 ---|*                     = ERROR MESSAGE ADDRESS IF *STOP* NOT PROCESSED.
Line S01979 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02184  M02S01979.282l826 ---|*
Line S01980 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02185  M02S01980.282l826 ---|*         USES   X - 1.
Line S01981 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02186  M02S01981.282l826 ---|*
Line S01982 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02187  M02S01982.282l826 ---|*         CALLS  IXR, VTP, VNP.
Line S01983 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02188  M02S01983.282l826 ---|
Line S01984 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02189  M02S01984.282l826 ---|
Line S01985 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02190  M02S01985.282l826 ---| STO      SUBR               ENTRY/EXIT
Line S01986 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02191  M02S01986.282l826 ---|          RJ     VTP         VERIFY TAPE EST PARAMETER
Line S01987 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02192  M03S01987.282l826 ---|          NZ     X5,STOX     IF INVALID PARAMETER
Line S00051 Modification History
M01 (Added by) nos252
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02193  M02S00051.282l826 ---|          NZ     X5,STOX     IF INCORRECT PARAMETER
Line S01988 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02194  M02S01988.282l826 ---|          RJ     VNP         VERIFY NO MORE PARAMETERS
Line S01989 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02195  M02S01989.282l826 ---|          NZ     X5,STOX     IF TOO MANY PARAMETERS
Line S01990 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02196  M02S01990.282l826 ---|          SX1    /MTX/XUS
Line S01991 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02197  M02S01991.282l826 ---|          RJ     IXR         ISSUE EXTERNAL *MAGNET* REQUEST
Line S01992 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02198  M02S01992.282l826 ---|          EQ     STOX        RETURN
Line S01993 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02199  M02S01993.282l826 ---| UNL      SPACE  4,15
Line S01994 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02200  M02S01994.282l826 ---|**        UNL - PROCESS *UNLOAD* COMMAND.
Line S01995 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02201  M02S01995.282l826 ---|*
Line S01996 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02202  M02S01996.282l826 ---|*         UNLOAD,EST.
Line S01997 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02203  M02S01997.282l826 ---|*
Line S01998 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02204  M02S01998.282l826 ---|*         EXIT   (X5) = 0 IF *UNLOAD* PROCESSED.
Line S01999 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02205  M02S01999.282l826 ---|*                     = ERROR MESSAGE ADDRESS IF *UNLOAD* NOT
Line S02000 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02206  M02S02000.282l826 ---|*                       PROCESSED.
Line S02001 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02207  M02S02001.282l826 ---|*
Line S02002 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02208  M02S02002.282l826 ---|*         USES   X - 1.
Line S02003 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02209  M02S02003.282l826 ---|*
Line S02004 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02210  M02S02004.282l826 ---|*         CALLS  IXR, VTP, VNP.
Line S02005 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02211  M02S02005.282l826 ---|
Line S02006 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02212  M02S02006.282l826 ---|
Line S02007 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02213  M02S02007.282l826 ---| UNL      SUBR               ENTRY/EXIT
Line S02008 Modification History
M01 (Added by) ldistap
M02 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02214  M02S02008.282l826 ---|          RJ     VTP         VERIFY TAPE EST PARAMETER
Line S02009 Modification History
M01 (Added by) ldistap
M02 (Updated by) nos252
M03 (Updated by) 282l826
Seq #  *Modification Id* Act 
----------------------------+
02215  M03S02009.282l826 ---|          NZ     X5,UNLX     IF INVALID PARAMETER
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/ldistap.002.txt ยท Last modified: by 127.0.0.1