THE PROGRAMS IN ACCOUNT X HAVE BEEN SUPPLIED BY VARIOUS PROGRAMMERS.
     THEY ARE SUPPORTED BY NOONE.  WHEREVER POSSIBLE, THE SOURCE CODE
     IS INCLUDED SO THAT ANYONE DESIRING IMPROVEMENTS OR CORRECTIONS
     MAY DO THEIR OWN THING...
ALL PROGRAMS MAY BE ASSEMBLED/COMPILED WITH THE FOLLOWING COMMAND:
   !BATCH (E) JOB.X
JUST THE JOBS LOADED WITH MONSTK.:SYS MAY BE ASSEMBLED/COMPILED WITH:
   !BATCH (E) JOBMNSTK.X
JOBMNSTK.X SHOULD BE BATCHED AFTER BRINGING UP A NEW (OR RE-SYSGEN'D)
SYSTEM.
************************************************************
**************************************************
ALISTFILE  ALISTFILE  ALISTFILE  ALISTFILE  ALISTFILE  ALISTFILE
**************************************************
EACH RELEASE HAS AN ASSOCIATED ALISTFILE.  IT CONTAINS
      THE NAMES OF ALL THE MODULES IN THE SYSTEM.  ONE COLUMN CONTAINS
      THE SI/CI FILE NAME.  ONE COLUMN CONTAINS THE ROM NAME.  THE
      THIRD COLUMN CONTAINS THE LMN.  ALISTFILE IS SORTED BY CI/SI
LISTFILE IS SORTED BY LMN.
********************************************************
ALLFILES   ALLFILES   ALLFILES   ALLFILES   ALLFILES   ALLFILES   ALLFIL
********************************************************************************
  ALLFILES SCANS A SPECIFIED FILE DIRECTORY ;
           SUBSTITUTES EACH FILE NAME FOR A QUESTION MARK IN A FORMAT;
           AND BUILDS A FILE WHICH IS THE CONCATENATION OF THE FORMAT
               WITH EACH FILE NAME IN PLACE.
  USAGE:
  BUILD A FORMAT FILE WITH QUESTION MARK WHERE SUBSTITUTION IS DESIRED.
  SET M:EO TO OUTPUT FILE
  SET M:EI TO ACCOUNT TO BE SCANNED
  SET M:SI TO FORMAT
  START ALLFILES.X
********************************************************************************
********************************************************************************
ANS IS USED TO DUMP ANS TAPES
SAYS ANS AND ASK FOR HELP
WILL PRODUCE REPORT SHOWING
  ALL LABELS
  1,2 AND LAST DATA RECORDS
IN ADDITION, SHORT REPORT IS PRINTED ON TERMINAL
AND POWERFUL INTERACTIVE RECOVERY FACILITY IS AVAILABLE
TO RECOVER FROM TAPE/PROGRAM ERRORS.
**********************CHK************************
CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK CHK
********************************************************************************
*  CHECK (CHK) MAY BE USED TO OBTAIN THE        *
*  CURRENT STATUS OF UP TO 16 BATCH JOBS        *
*                                               *
*  WHEN CHK IS CALLED IT ASKS FOR THE SYSIDS    *
*  OF THE BATCH JOBS TO BE WATCHED.  A NULL     *
*  LINE TERMINATES INPUT.  CHK GIVES THE        *
*  CURRENT STATUS OF EACH JOB AND GOES TO       *
*  SLEEP.  EVERY 30 SECONDS CHK AWAKENS AND     *
*  OBTAINS THE STATUS OF EACH JOB.  IF THE      *
*  STATUS HAS CHANGED SINCE LAST REPORTED, IT   *
*  REPORTS THE NEW STATUS.  AS JOBS COMPLETE    *
*  THEY ARE REMOVED FROM THE LIST OF THOSE TO   *
*  REPORTED ON.  THE MESSAGE WHICH SIGNALS      *
*  THE COMPLETION OF A JOB IS ACCOMPANIED BY    *
*  BELLS TO ALERT THE USER.  -- SAM KEYS        *
*********************************************************************
*        COMP      COMP      COMP      COMP      COMP      COMP
*********************************************************************
*        COMP COMPARES TWO SOURCE PROGRAMS FOR EQUALITY AND          *
*   PRODUCES METASYM TYPE UPDATES FOR THE DIFFERENCES FOUND.         *
*   HOWEVER ONLY ONLINE USAGE IS EXPLAINED AS FOLLOWS:
*        !COMP.X                       (CALL COMP FROM TEL)
*        OLD FILE:FID                  (TEL TYPE FID FOR OLD FILE)
*        NEW FILE:FID                  ( ''  ''   ''  '' NEW FILE)   *
*        OUTPUT ON:FID                 ( ''  ''   ''  '' UPDATES)    *
*        BYTE COUNT OF RECORDS TO IGNORE:INTEGER                     *
*        COMMENT: COMMENT TEXT                                       *
*
*        FOR OLD AND NEW FID HAS THE FORM FILE[.ACCOUNT[.PASSWORD]]  *
*        FOR OUTPUT FID IS AS ABOVE PLUS ME OR LP                    *
*        THE INTEGER SAYS TO IGNORE MATCHES BY RECORDS WHOSE LENGTH  *
*   IS LESS THAN OR EQUAL TO INTEGER.  THIS AVOIDS MASSIVE UPDATES   *
*   CAUSED BY FILES WITH MANY 1BYTE RECORDS LIKE '*'                 *
*        COMMENT TEXT IS PLACED ON EACH +UPDATE CARD GENERATED       *
*
*
*        F:1=OLD,F:2=NEW,F:3=UPDATE FOR SET'ING ADDITIONAL           *
*   OPTIONS FOR THE FILES.                                           *
***********************************************************************
COMPARE   COMPARE   COMPARE   COMPARE   COMPARE   COMPARE   COMPARE
********************************************************************************
IN ORDER TO AVOID MISPUNCHED DECKS, COMPARE WILL COMPARE EACH CARD WITH
         THE CORRESPONDING RECORD OF THE FILE.  LINE PRINTER MESSAGE
         REPORTS THE RESULTS.
     SAMPLE DECK SETUP:
        !ASSIGN F:FILE,(FILE,C01PATCH,PATCH)
        !RUN (LMN,COMPARE,X)
        ----DECK PUNCHED FROM C01PATCH
*********************************************************
DEL DEL DEL DEL DEL DEL DEL DEL DEL DEL DEL DDL DEL DEL
DELETE STANDARD READS THROUGH M:SI, DELETING ALL FILES
WHOSE NAMES ARE PRECEDED BY ASTERICKS.  FILE NAME SYNTAX IS
IDENTICAL TO PCL.  NUMBER OF FILES DELETED AND
GRANULES RELEASED ARE OUTPUT.  BREAK CONTROL IS PROVIDED.
TO USE:
   DEL.X $::STDFILE
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
    DUCK   DUCK   DUCK   DUCK   DUCK   DUCK   DUCK   DUCK   DUCK
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
    THE DUCK PROGRAM IS DESIGNED TO AID THE PROCESS OF RUNNING
 REGRESSION TEST FOR NEW CPV SYSTEMS.   IT PROVIDES A JOBENT
 FACILITY WHICH ALLOWS A USER TO SELECT A PARTICULAR JOB TO BE
 RUN FROM A LARGE SET OF JOBS AND ENTER IT INTO THE SYMBIONT
 BATCH STREAM.  THE SELECTION IS ACCOMPLISHED BY UNIQUE KEYS IN
 THE EXTENDED ACCOUNTING FIELD OF THE JOB CARD.  THE DUCK PROGRAM
 MUST LIVE IN THE :SYS ACCOUNT; USERS, HOWEVER, MAY CALL IT FROM
ANY ACCOUNT WITH 'C0' PRIVILEGE.
    DUCK IS CALLED FROM TEL BY TYPING 'DUCK'; THE CALLER IS GREETED
 AND ASKED TO ENTER A MASTER FILE; THE MASTER FILE IS ONE WHICH
 CONTAINS SEVERAL SEPARATE JOBS IN IT.  THE MASTER FILE IS OPENED
 AND THE USER IS ASKED TO ENTER A TEST CASE NAME.
    AT THIS POINT, THE USER CAN ISSUE SEVERAL COMMANDS IN ADDITION
 TO A TEST CASE NAME:
        'NEW'--CAUSES REINITIALIZATION FOR A NEW MASTER FILE.
        'NEXT'--BATCHES THE NEXT JOB IN THE MASTER FILE.
        'END'--EXITS TO TEL.
    THE COMMANDS AND/OR TEST-CASE NAMES MAY BE IN A FILE, IF THE
 M:SI DCB IS ASSIGNED TO THAT FILE.           LLF         6/14/73
********************************************************
FILER  FILER  FILER  FILER  FILER  FILER  FILER  FILER  FILER  FILER
********************************************************************************
    FILER MANIPULATES FILES SUCH AS PERFORMING ANY KNOWN OPERATION
    ON ANY TYPE FILE,E.G. OPEN A DCB INOUT.
    FOR POSSIBLE INPUT COMMANDS RESPOND BY TYPING HELP.
********************************************************************************
FUMJOB   FUMJOB   FUMJOB   FUMJOB   FUMJOB
********************************************************************************
FUMJOB IS A SAMPLE JOB SETUP FOR RUNNING METAFUM
*************************************************************
GRAPH GRAPH GRAPH GRAPH GRAPH GRAPH GRAPH GRAPH GRAPH GRAPH
********************************************************************************
GRAPHER ANALYZES UTS ACCOUNTING LOG TO PRODUCE THE FOLLOWING:
1 - BURST SHEET FOR EACH JOB (CAN BE SUPPRESSED)
2 - TWO SETS OF 1 LINE SUMMARIES FOR EACH JOB
3 - MULTI-PROGRAM DIAGRAM DEPICTING:
    A - JOBS RUN IN EACH PARTITION AS A FUNCTION OF TIME
    B - CPU UTILIZATION GRAPH FOR THE PERIOD; THIS IS
        OPTIONAL AND REQUIRES UTSPM INPUT FILE.
4 - SYSTEM PROFILE SUMMARIZING JOB SIZE AND COMPUTE BOUND-
    EDNESS CHARACTERISTICS.
5 - SUMMARY OF ACCOUNTING LOG DATA.
GRAPHER IS USEFUL FOR SYSTEM TUNING AND SYSTEM SUMMARY,
ESPECIALLY BATCH.  THE USER IS PROVIDED A CONCISE AND EX-
TENSIVE SUMMARY OF JOB AND SYSTEM CHARACTERISTICS AS WELL
AS SYSTEM PERFORMANCE.
TO USE:
SET F:1 /ACCTLG
SET F:2 /UTSPMLO   (NO IF THIS FILE NOT PRESENT)
GRAPH.X
  <ANSWER QUESTIONS INTERACTIVELY. SAY 'M' WHEN INQUIRED
   ABOUT 'SECS OR MINS?'>
PRINT
OBTAIN UTSPMLO  FILE BY RUNNING CPU DISPLAY (ANY OTHER
DISPLAYS CAN BE INCLUDED AND WILL BE IGNORED) WITH
M:LO SET INOUT TO UTSPMLO.  SEE 890804-11D00 FOR FURTHER
INFORMATION ON HOW TO RUN PLUS DETAILED DESCRIPTION OF
OUTPUT.
INITVOL INITVOL INITVOL INITVOL INITVOL INITVOL INITVOL INITVOL INITVOL
********************************************************************************
 INITVOL REINITIALIZES A PRIVATE PACK. IT RUNS ONLINE,GHOST, OR BATCH
COMMUNICATING WITH M:KEYINS.  JUST START IT UP AND ANSWER THE QUESTIONS.
IF YOU DONT KNOW THE ANSWER, DONT ANSWER. THE SPINDLE YOU SPECIFY MUST BE EMPTY.
THE CYLINDER SIZE IS IN DECIMAL GRANULES. TO USE INITVOL ON PRE-B00
SYSTEMS, ASSEMBLE WITH THESE UPDATES:
+38,38
+135
         STH,15   VTOC+4
+END
********************************************************************************
JOB  JOBMNSTK   JOB  JOBMNSTK  JOB   JOBMNSTK  JOB
**************************************************
ALL PROGRAMS MAY BE ASSEMBLED/COMPILED WITH THE FOLLOWING COMMAND:
   !BATCH (E) JOB.X
JUST THE JOBS LOADED WITH MONSTK.:SYS MAY BE ASSEMBLED/COMPILED WITH:
   !BATCH (E) JOBMNSTK.X
JOBMNSTK.X SHOULD BE BATCHED AFTER BRINGING UP A NEW (OR RE-SYSGEN'D)
SYSTEM.
********************************************************************************
KEYER   KEYER   KEYER   KEYER   KEYER   KEYER   KEYER   KEYER   KEYER
********************************************************************************
KEYER ACCEPTS VALID METASYMBOL UPDATE PACKAGES AS CONSECUTIVE FILE(I.E.
     SMALLER THAN KEYED FILES)  AND PRODUCES KEYED FILES WITH THE KEYS A
     FUNCTION OF THE + CARD VALUES.
USAGE:
     SET F:1 TO INPUT CONSEC FILE
     SET F:2 TO OUTPUT FILE; MAY BE SAME AS F:1
     INPUT NUMBER OF .001S TO BE USED TO INCREMENT KEYS.
***************************************
LIST LIST LIST LIST LIST LIST LIST LIST LIST LIST LIST
************************************************************************
  TO LIST FILES IN LOGON ACCOUNT:          !LIST.X
  TO LIST FILES IN ACCOUNT ABCD:           !LIST.X  X.ABCD
       THE ACCOUNT TO WHICH M:SI IS ASSIGNED IS LISTED.
       OUTPUT IS THROUGH M:LO.
******************************************************************************
  LMNCHK  LMNCHK  LMNCHK  LMNCHK  LMNCHK  LMNCHK  LMNCHK  LMNCHK
******************************************************************************
PURPOSE:
      TO LIST ALL LOAD MODULES IN AN ACCOUNT AND GIVE THE ATTRIBUTES
      OF THE LOAD MODULE.  IT TELLS IF THE LOAD MODULE IS PRE-B00 OR
      NOT, WHO BUILT IT, CORE LIBS ASSOCIATED, NUMBER OF DCB PAGES,
      SIZE, AND NAME.
USAGE:
      INPUT A SPECIFIC ACCOUNT FOR A LISTING OF LMN'S INTHAT ACCOUNT;
      INPUT 'ALL' FOR A LISTING AND DESCRIPTION OF ALL THE LMN'S IN
      ALL OF THE ACCOUNTS.  LMNCHK RUNS BATCH OR ON-LINE.
************************************************************************
LOADDEVDMP    LOADDEVDMP    LOADDEVDMP    LOADDEVDMP    LOADDEVDMP
************************************************************************
     THE FILE LOADDEVDMP CONTAINS THE BOOTSTRAP PROGRAM THAT IS USED
TO LOAD DEVDMP FROM THE CARD READER. TO USE DEVDMP IT IS NECESSARY TO
TO COPY THE FILE LOADDEVDMP.X TO THE CARD PUNCH WITH (BIN) SPECIFIED
     TO BOOT DEVDMP INTO THE MACHINE PLACE THIS DECK IN FRONT OF THE
DEVDMP DECK IN THE CARD READER AND LO AD FROM THE CARD READER.
************************************************************************
 LOAD    LOAD     LOAD     LOAD     LOAD     LOAD     LOAD     LOAD
***********************************************************************
  LOAD IS THE PROGRAM LOCCT LISTED BELOW EXCEPT THAT NO LOCCT FILE
        IS PRODUCED.  INSTEAD THE PROGRAM LOADS AND LINKS TO THE
***********************************************************************
LOCCT   LOCCT   LOCCT   LOCCT   LOCCT   LOCCT
********************************************************
     LOCCT HAS BEEN UPDATED TO COO, E.G. MAPONLY OPTION.
PURPOSE:
    TO ALLOW ONLINE BUILDING OF LOCCT'S FOR USE WITH
    THE PASS3 PROCESSOR.  THIS THUS ALLOWS THE USER TO
    USE THE 'BIG' LOADER COMPLETELY ONLINE.
LIMITS:
    1.  MUST HAVE PHYSICAL CORE TO HOLD ROM TABLES AND
        TREE TABLES.
    2.  THE NUMBER OF ROM NAMES ON THE TREE CARD MUST BE
        LESS THAN 3072.
USAGE:
    SET M:SI TO FILE (OR ME) CONTAINING THE LOAD (OR LOCCT)
    AND TREE CARDS (WITH OR WITHOUT !(BANG) IN COLUMN 1).
    SET F:LOCCT TO 'LOCCT'+FILENAME (THIS LOCCT DOESN'T
    ADD THE 5 CHARACTERS 'LOCCT' TO THE FRONT OF THE
    FILE NAME GIVEN).
    START LOCCT.X  OR  !RUN (LMN,LOCCT,X)
********
    LOCCT HAS BEEN UPDATED TO PROCESS THE NEW C00 OPTIONS FOR LOAD/LOCCT
    CONTROL COMMANDS.
*********
ADVANTAGES:
    1.  MAY BE RUN ONLINE OR BATCH (IF BATCH, REMEMBER NO
        BANGS IN COLUMN 1)
    2.  NO PRACTICAL LIMIT ON SIZE OF LOCCT, TREE OR
        NUMBER OF ROMS IN TREE.
    3.  ROMS MAY BE DUPLICATED ANYWHERE IN TREE STRUCTURE
        (EXCEPT AS FIRST ENTRY SINCE THIS BECOMES THE NAME
        OF THE OVERLAY).
    4.  DOESN'T HAVE THE CCI LOAD CARD SCANNER BUGS.
**********************************************************
LSTD LSTD LSTD LSTD LSTD LSTD LSTD LSTD LSTD LSTD LSTD LSTD
********************************************************************************
LIST STANDARD READS THROUGH M:SI AND VERIFIES PRESENCE
OF ALL FILES WHOSE NAMES ARE PRECEDED BY ASTERICKS.  TOTAL
VIDED.  FILE NAME SYNTAX IDENTICAL TO PCL.
TO USE:
   LSTD.X $::STDFILE
******************************************************
MAP  MAP  MAP  MAP  MAP  MAP  MAP  MAP  MAP  MAP  MAP
********************************************************************************
   THE MAP PROCESSOR PRODUCES AN ORGANIZED LOAD MAP CON-
TAINING VARIOUS LISTS OF SYMBOLS FROM A SELECTED LOAD
MODULE.  THE INFORMATION INCLUDES PREF, SREF, DDEF, LDEF,
ADEF, AND A SORTED LIST OF DEFS FLAGGED APPROPRIATELY.
IT MAY BE INVOKED AS A !MAP PROCESSOR IN BATCH, OR
ON-LINE, OR IT MAY BE CALLED VIA M:LINK.
              ***
THE BATCH CONTROL CARD FORMAT IS AS FOLLOWS:
    !MAP  (OPTION),(OPTION), ...
THE OPTIONS ARE:
   (LMN,NAME,ACCOUNT,PASSSWORD)
   (LMN)     SPECIFIES THAT THE LOAD MODULE HAS BEEN ASSIGNED
             TO THE M:EI DCB BY AN !ASSIGN COMMAND.
   (LIB)     SPECIFIES A LIBRARY LOAD MODULE THAT IS REALLY
             A 'SYNONYM'.
   (SUMM)    SPECIFIES THAT A SUMMARY OF THE SIZE, PREFS,
             SREFS, AND DDEFS IS NEEDED.
   (VALUE)   SPECIFIES AN ORDERING OF DEFS BY ASCENDING VALUE.
   (NAME)    SPECIFIES AN ALPHANUMERIC ORDERING OF DEFS.
                     ***
THE ONLINE USAGE IS AS FOLLOWS:
  !MAP
   MAP   (OPTION),(OPTION),...,(OPTION).
THE OPTIONS ARE AS DESCRIBED ABOVE.
NOTE THAT NO PROMPT CHARACTER IS GIVEN FOR THE OPTION
LINE.
********************************************************************************
METAFUM   METAFUM   METAFUM   METAFUM   METAFUM   METAFUM   METAFUM
********************************************************************************
METAFUMBLE IS USED TO SIMPLFY CONTROL CARD GENERATION FOR MULTIPLE
************************************************************************
PLUSCARD    PLUSCARD    PLUSCARD    PLUSCARD    PLUSCARD    PLUSCARD
************************************************************************
THE PROGRAM PLUSCARD IS DESIGNED TO AID IN THE PROCESS OF DETERMINING
SIDR CLOSES IN A MAJOR SET OF ASSEMBLIES.  A FILE NAMED CARDS MAY BE
PRODUCED AND WILL CONTAIN THE NAME OF EVERY FILE IN A SPECIFIED
ACCOUNT FOLLOWED BY ALL THE PLUS CARDS IN THAT FILE.  A FILE NAMED
REFORMAT MAY ALSO BE PRODUCED AND WILL CONTAIN REFORMATTED PLUS CARDS.
         IN ONLINE MODE THE PROGRAM WILL ASK FOR THE ACCOUNT AND MODE,
WHERE MODE IS:
                   1 - PRODUCE FILE CARDS ONLY
                   2 - PRODUCE FILE REFORMAT ONLY
                   3 - PRODUCE BOTH FILES
IN BATCH MODE A DATA CARD IS REQUIRED WITH THE ACCOUNT PUNCHED IN
COLUMNS 1-8 AND THE MODE IN COLUMN 10.  THIS CARD IS READ THROUGH M:SI.
**********************************************************
PTRP  PTRP  PTRP  PTRP  PTRP  PTRP  PTRP  PTRP  PTRP  PTRP
**********************************************************
DESCRIPTION:  PTRP IS A SMALL SYMBIONT-COMPATIBLE HANDLER
FOR THE 7060 PAPER TAPE READER/PUNCH.  IT PROVIDES ONLY BASIC
BINARY READ AND WRITE FUNCTIONS.  ANY SPECIAL RECORD EDIT-
ING MUST BE DONE BY THE USER.
FUNCTIONS:  THE FOLLOWING FUNCTIONS ARE AVAILABLE WITH PTRP:
CODE=0 OR 1 -- PUNCH DATA FROM USER'S BUFFER TO PAPER TAPE
               UNTIL BYTE COUNT EXHAUSTED.
CODE=2 -- READ DATA FROM PAPER TAPE TO USER'S BUFFER UNTIL
          BYTE COUNT IS EXHAUSTED.
CODE=3 -- POSITION READ HEAD BEFORE FIRST NON-ZERO BYTE AND
          READ DATA FROM PAPER TAPE TO USER'S BUFFER UNTIL
          BYTE COUNT EXHAUSTED.
         EXCEPT FOR A TYC OF 7(EOF).  THIS TYC INDICATES
         THAT THE CURRENT OPERATION TERMINATED WITH A NON-
         ZERO BYTE-COUNT, BUT NO OTHER ERROR CONDITION.
         FOR THE 7060 THIS SITUATION OCCURS WHEN THE REEL
         RUNS OUT OF TAPE BEFORE THE BYTE COUNT IS EXHAUSTED.
**********************************************************
************************************************************************
RENEW    RENEW     RENEW     RENEW     RENEW      RENEW     RENEW
************************************************************************
RENEW:  CHANGES EXPIRY DATE OF FILE ASSIGNED TO M:SI DCB
 TO DEFAULT EXPIRATION DATE
        EITHER SET M:SI OR LET TEL DO IT.   !RENEW.X FID
RENEWALL: CHANGE EXPIRY DATE ON ALL FILES IN ACCOUNT
 TO DEFAULT EXPIRATION DATE             !RENEWALL.X
RENEWSTD:CHANGES EXPIRY DATE OF  CONTROL FILE ASSIGNED TO M:SI DCB
 TO DEFAULT EXPIRATION DATE
        EITHER SET M:SI OR LET TEL DO IT.   !RENEWSTD.X FID
********************************************************************************
SNOOP SNOOP SNOOP SNOOP SNOOP SNOOP SNOOP SNOOP SNOOP SNOOP SNOOP SNOOP SNOOP
********************************************************************************
         SNOOP IS USED TO DISPLAY AND MONITOR ACTIONS GOING ON IN THE
         SYSTEM, SUCH AS BATCH ACTIVITY, GHOSTS, CFU'S, AND OTHER INFO.
         FOR A DESCRIPTION OF COMMANDS IN SNOOP, RESPOND TO ITS INPUT
         REQUEST WITH HELP . LIST WILL LIST ALL IMPLIMENTED COMMANDS.
         SNOOP LOADS WITH MONSTK AND REQUIRES A PRIVELIGE LEVEL OF AT
         LEAST X'80', AS IT USES THE M:CVM CAL.
********************************************************************************
********************************************************************************
REW IS USEFUL WHEN YOU'RE GETTING A 4901 (NO TAPPES AVAIL)
REW WILL TRY TO OPEN TAPE, AND, ON 4901, WILL WAIT AND
  THEN TRY AGAIN.  CONTROL RETURNS TO TEL WHEN DONE
REW.X
INSN>TAPE
     ----
   WHERE TAPE IS INSN OF TAPE YOU WANT
*********************************************************
RTLOAD RTLOAD RTLOAD RTLOAD RTLOAD RTLOAD RTLOAD RTLOAD RTLOAD
*********************************************************
RTLOAD INSTALLS AND INITIALIZES PROGRAMS IN THE RESDF MEMORY AREA.
A PRIVILEGE LEVEL OF X'C0' OR HIGHER IS REQUIRED TO
USE RTLOAD.  THE LOAD MODULE TO BE INSTALLED MUST BE FORMED
WITH THE BATCH LOADER, PROPERLY BIASED AT THE DESIRED LOCATION
AND THE ENTIRE PROGRAM MUST BE CSECT 0.  RTLOAD WILL READ THE
00 PROTECTION TYPE RECORD FROM THE LOAD MODULE SPECIFIED BY THE
ASSIGNMENT OF M:SI INTO THE RESDF REGION AT THE BIAS SPECIFIED IN
THE LOAD MODULE AND THEN TRANSFER CONTROL TO THE SPECIFIED
START ADDRESS TO PERMIT THE INSTALLED PROGRAM TO INITIALIZE ITSELF.
THE INITIALIZATION CODE IS EXECUTED MAPPED AND IS ALWAYS ENTERED
IN SLAVE MODE. AN M:SYS CAL MAY BE CONTAINED IN THE INITIALIZATION
CODE TO GO MASTER. THIS INITIALIZATION SEQUENCE SHOULD TERMINATE
IN AN M:EXIT.
USE:
     ASSIGN M:SI TO THE DESIRED LOAD MODULE AND CALL RTLOAD.
     (NOTE THAT ONLINE THE IMPLICIT ASSIGNMENT OF M:SI MAY
      BE USED: !RTLOAD LMNNAME)
********************************************************************************
SCOMPARE SCOMPARE SCOMPARE SCOMPARE SCOMPARE SCOMPARE SCOMPARE
********************************************************************************
*
*      THE PROGRAM SCOMPARE COMPARES ANY TWO EBCDIC FILES
*      IS A BASIC PROGRAM AND IS SMART AND KNOWS HOW TO REALIGN
*      ITSELF TO HANDLE MISSING AND ADDED RECORDS AS WELL AS
*      MODIFIED RECORDS.
*
*      SCOMPARE IS ESPECIALLY HELPFUL WHEN TRYING TO FIND ALL
*      THE CHANGES FROM ONE VERSION OF A FILE TO THE NEXT.
*      SPECIAL OPTIONS INCLUDE SELECTING OF SPECIFIC COLUMNS
*      OF INTEREST, IGNORING BLANKS, AND COMPRESSING BLANK
*      FIELDS TO A SINGLE BLANK FOR COMPARISON.
*
* TO RUN SCOMPARE DO THE FOLLOWING:
*
*       >LOAD SCOMPARE
*       >ACCOUNT X
*       !BASIC
*       >SET $=132
*       >RUN
*
* THE PROGRAM WILL THEN ASK FOR THE NAMES OF THE FILES TO BE
* COMPARED AND THE SPECIAL OPTIONS DESIRED.  THE SPECIAL OPTION
* SECTION IS SETUP TO ALLOW YOU TO GO THROUGH AND PICK OR
* REFUSE EACH ONE.  SO THE BEST WAY TO SEE ALL THE OPTIONS IS
* JUST TO STEP THROUGH THEM ONCE.
*
* CURRENTLY BASIC PRINTS THROUGH THE M:SL DCB
* SO THAT IN ORDER TO SEND OUTPUT TO THE LINE PRINTER THE
* FOLLOWING SET MUST BE DONE BEFORE GOING INTO BASIC:
*
*       !SET M:SL LP
*
* FOR FURTHER INFORMATION ON SCOMPARE SEE 890956-11A00.
********************************************************************************
SGT   SGT   SGT   SGT   SGT   SGT   SGT   SGT   SGT   SGT   SGT   SGT   SGT
********************************************************************************
THIS PROCESSOR IS USED TO ANALYZE SYSGEN CREATED LOAD MODULES AND TO LIST ALL
DEFS AND REFS TOGETHER WITH THEIR RELATIVE LOCATION, THEIR INITIAL VALUES
AND THEIR FORM OF RELOCATION, IF ANY.
SYSGEN CREATED LOAD MODULES ARE:
     CSEBRANCH,IOTABLE,,M:COC,M:CONFIG,M:CPU,M:DCTMOD,M:ELIMIT,M:FRGD
     SG:LNT,SG:OPNM,SG:OPX,SG:PNT,SG:RCT,SG:RNT,SG:RTY
WHEN USED ON-LINE IT WILL PROMPT WITH A $ AND EXPECT EITHER A COMMENT LINE
(STARTING WITH AN *) OR A SYSGEN LOAD MODULE NAME OR AN END COMMAND. OUTPUT
GOES TO THE TERMINAL UNLESS M:LL HAS BEEN PREVIOUSLY ASSIGNED TO LP.
WHEN USED IN BATCH, THE DATA INFORMATION STARTS IN COL.1 AND MAY CONSIST
OF COMMENTS (STARTING WITH AN *) AND/OR ANY NUMBER OF SYSGEN MODULE NAMES
ON SEPARATE COMMANDS AND SHOULD TERMINATE WITH AN 'END' COMMAND.
*************************************************
SPY   SPY   SPY   SPY   SPY   SPY   SPY   SPY   SPY   SPY
************************************************************
THE SPY PROGRAM IS DESIGNED TO BE RUN AS A GHOST JOB; IT MAY ALSO BE RUN
BY A USER WITH C0 PRIVELEGE.  IT WILL PRINT THROUGH M:LO THE NAME AND ACCOUNT
AND SYS ID OF ALL USERS IN THE SYSTEM.  IT ALSO GIVES THE TIME A JOB HAS BEEN
RUNNING AND THE TIME LEFT TO IT BEFORE IT WILL BE ABORTED FOR MAX TIME.  A
MEASURE OF I/O INTENSITY IS ALSO PROVIDED.  THERE ARE NO COMMANDS OTHER
THAN THE CALL TO SPY.  GHOST OUTPUT AUTOMATICALLY GOES TO THE LINE PRINTER.
************************************************************************
TCOPY  TCOPY  TCOPY  TCOPY  TCOPY  TCOPY  TCOPY  TCOPY  TCOPY  TCOPY
************************************************************************
TCOPY WILL COPY, VERIFY, OR COPY AND VERIFY LABELED OR UNLABELED TAPE.
WHEN COPYING A LABELED TAPE, A NEW SERIAL NUMBER MAY BE WRITTEN ON THE
OUTPUT TAPE IF DESIRED. A MAXIMUM OF THREE MULTIPLE REELS MAY BE COPIED.
A DETAILED DESCRIPTION OF THIS PROGRAM IS CONTAINED IN THE PROLOGUE TO
THE SOURCE WHICH IS COMPRESSED IN FILE TCOPYCI IN ACCOUNT X.
*
USAGE:
      !ASSIGN M:EI,(DEVICE,##),(INSN,XXXX,...)
  WHERE
      ##   = '7T' OR '9T'
      %%   = '7T' OR '9T' (MAY BE DIFFERENT FROM ##); OR
      %%   = 'NO' TO SUPPRESS GENERATION OF OUTPUT TAPE BUT LIST ALL
                  FILES ON LABELED INPUT TAPE.
*
      XXXX = 'CPVY' TO COPY M:EI TO M:EO, REWIND BOTH AND VERIFY M:EO
                  AGAINST M:EI; OR
      XXXX = 'VRFY' TO VERIFY M:EO AGAINST M:EI; OR
      XXXX = ANY OTHER ALPHANUMERIC CHARACTERS TO COPY M:EI TO M:EO.
*
      YYYY = 'COPY' TO COPY SERIAL NUMBERS FROM INPUT TAPE TO OUTPUT
                  TAPE OR TO VERIFY THAT SERIAL NUMBERS ON BOTH TAPES
                  ARE EQUAL; OR
      YYYY = ANY OTHER ALPHANUMERIC CHARACTERS TO WRITE THESE CHARACTERS
                  AS SERIAL NUMBERS ON OUTPUT TAPE OR VERIFY THAT TAPES
                  ARE EQUIVALENT EXCEPT FOR SERIAL NUMBERS AND THAT
                  THESE CHARACTERS APPEAR AS SERIAL NUMBER ON THE TAPE
                  ASSIGN TO M:EO.
      ,... = THE ABILITY TO SPECIFY MULTIPLE REELS UP TO MAXIMUM OF 3.
********************************************************************************
*TPJSCAN     TPJSCAN     TPJSCAN     TPJSCAN     TPJSCAN     TPJSCAN
********************************************************************************
*     THE TRANSACTION PROCESSING JOURNAL SCANNER READS THE
*     COMMON TP JOURNAL AND PRINTS SELECTED JOURNAL RECORDS.  AN OPTIONAL
*     DUMP OF THE JOURNAL IMAGE CAN BE SPECIFIED
*
*     THE PROGRAM ALSO PRINTS A SUMMARY OF ALL JOURNAL RECORDS READ
*
*     THE SCANNER CONSISTS OF A MAIN COBOL DRIVER AND A METASYMBOL
*    SNAP ROUTINE
*     PROGRAM CAN BE RUN IN BATCH OR ON-LINE
*     TO RUN IN BATCH
*          !JOB
*          !ASSIGM F:JOURNAL,(ANSLBL,JOURNAL),(IN),(SN,NNNNNN)
*          !RUN (LMN,TPJSCAN)
*          !DATA
*          05SNAP
*          06
*             AND ANY OTHER RECORD TYPES YOU WANT
*          !EOD
*
*     TO RUN ON LINE
*     SET M:LL UC
*    SET M:DO UC
*    SET F:JOURNAL AT#NNNNNN/JOURNAL
*     !TPJSCAN.X
********************************************************************************
     TRACK         TRACK     TRACK     TRACK     TRACK     TRACK     TRACK
********************************************************************************
*
*        PURPOSE:
*
*                 TO IDENTIFY PROCESSOR,OVERLAY AND USER ACTIVITY
*                  IN CORE. TRACK PRODUCES A REPORT INDICATING
*                  NUMBER OF PROCESSORS,OVERLAYS,USERS AND OUT OF
*                  CORE USERS WITH A BREAKDOWN INDICATING SIZE OF EACH
*                  IN CORE.
*        TITLE LINE:
*
*        NAME      DEFINITION
*        ----      ----------
*        UIS       COUNT OF BATCH,ONLINE AND GHOST USERS NOW IN SYSTEM
*        PRO #     COUNT OF PROCESSORS IN CORE
*        PRO-PCT   PAGE COUNT OF PROCESSORS IN CORE
*        PRO-UC    USE COUNT FOR PROCESSORS IN CORE
*        OVR-#     NUMBER OF OVERLAYS NOW IN CORE
*        OVR-PCT   PAGE COUNT FOR OVERLAYS NOW IN CORE
*        OVR-UC    USE COUNT FOR OVERLAYS NOW IN CORE
*        IO USR    USER LOCKED IN CORE DUE TO I/O OUTSTANDING
*        IO PCT    PAGE COUNT FOR I/O LOCKED USERS
*        EXC USR   COUNT OF EXECUTABLE USERS IN CORE
*        JIC USR   USERS IN CORE NOT EXECUTABLE/NOT I/O
*        USR PCT   PAGE COUNT FOR EXECUTABLE/NOT EXECUTABLE USERS IN CORE
*        USR OUT   COUNT OF USERS NOW OUT OF CORE
*        OUT SLP   USERS SLEEPING OUT OF CORE
*        OUT EXC   COUNT OF USERS EXECUTABLE AND OUT OF CORE
*        STL PCT   STOLEN PAGE COUNT CURRENTLY
*        SWP PCT   SWAPPER PAGE COUNT CURRENTLY
*        FREE PCT  FREE PAGE COUNT CURRENTLY
*
*
*        RESTRICTIONS:
*
*                  MUST BE RUN IN AN ACCOUNT WITH AT LEAST A0 PRIVILEGE
*
*        USAGE INSTRUCTIONS:
*
*                  TRACK USES M:LO TO WRITE THE REPORTS. NO OTHER
*                  DCBS ARE USED - JUST CALL TRACK AND IT STARTS
*                  PRODUCING REPORTS
*
********************************************************************************
UPDATE UPDATE UPDATE UPDATE UPDATE UPDATE UPDATE UPDATE UPDATE UPDATE
********************************************************************************
UPDATE COMPARES AND/OR SORTS METASYMBOL UPDATE FILES.
THREE DCB MUST BE SET OR ASSIGNED
     F:1 INPUT FILE 1 FOR COMPARISON OR SORTING
     F:2 INPUT FILE 2 FOR COMPARISON
     F:3 OUTPUT SORTED FILE FROM F:1
ONE INPUT IS REQUIRED FROM USER TERMINAL OR CARD READER.
     -1 SORT F:1 ONTO F:3 WITH EDITING
     0  SORT F:1 ONTO F:3 WITHOUT EDITING
     1  COMPARE F:1 TO F:2,PRINT IN DETAIL
     2  COMPARE F:1 TO F:2,PRINT IN DETAIL AND SORT F:1 ONTO F:3 NO EDIT
     3  SAME AS 2 WITH ABBREVIATED VARIANCES
     4  SAME AS 3 BUT WITHOUT   EDIT
     5  COMPARE F:1 WITH F:2 WITH ABBREVIATED PRINT
********************************************************************************
UTILIST   UTILIST   UTILIST    UTILIST   UTILIST   UTILIST
********************************************************************************
PURPOSE: TO CREATE A LISTING TAPE EITHER IN COMPRESSED OR NON-COMPRESSED FORM.
         TO PRODUCE LISTINGS FROM UTILIST CREATED TAPES.
         CATALOG NO. 706243-11A00.
INPUT: M:EI
OUTPUT: M:EO, M:LO
OPTIONS: CL-GENERATE A COMPRESSED LISTING THRU M:EO.
         PR-GENERATE  A LISTING THRU M:LO
         NF-NO FORMAT (NOVFC)
         JE-JOBENT THE LISTING.
         FB-LIST COMPRESSED/NON-COMPRESSED THRU M:LO.
         MI-FOR MICROFICHE, CONVERT TOP OF FORM TO SPACE 4.
         LI=NN, WHERE NN SPECIFIES THE NUMBER OF LINES PER PAGE FOR PRINTING
     OPTIONS ARE PLACED ON COMMAND LINE,
     DATA CARDS FOLLOW COMMAND LINE AND LIST FILE NAMES TO BE PROCESSED;
         ONE FILE PER CARD OR FROM-TO.
********************************************************
XREF  XREF  XREF  XREF  XREF  XREF  XREF  XREF  XREF  XREF  XREF  XREF  XREF  XR
********************************************************************************
XREF DISPLAYS LINKAGES WITHIN LOAD MODULES BY LISTING AND SORTING THE
REFS AND DEFS WITHIN ROMS.
THE FIRST CONTROL CARD DETERMINES THE TYPE OF OUTPUT VIA COLS 10-16. (M:C)
THE FOLLOWING CARDS SPECIFY THE FILE AND ROM NAMES TO BE PROCESSED. (M:SI)
THE ROMS ARE READ THRU M:EI.
FILE XREFDATA CONTAINS A JOB SETUP FOR CROSSREFING THE UTS MONITOR.
     CARD 1, COL.10=1 TO OUTPUT UNUSED DECLARATIONS.
                 11=1 TO OUTPUT CONTROL SECTION DECLARATIONS.
                 12=1 TO LIST UNSORTED OUTPUT. (M:LO)
                 13=  NUMBER OF WORDS IN FILE NAMES (DEFAULT 4)
                 14=  WORD DISPLACEMENT OF ROM IDENTIFICATION (DEFAULT 4)
                 15=  NUMBER OF WORDS IN ROM IDENTIFICATION.
                 16=1 TO CREATE FORMATTED LIST OF SORTED OUTPUT. (M:SO)
     CARDS N, COLS 2 THRU 4*COL 13 OF CARD 1 = FILE NAME OF ROM
              SUBSEQUENT COLS. ARE CONTROLLEB BY COLS 14 AND 15 OF CARD1
CONTROL CARD INPUT IS THRU M:SI; ROM FILE INPUT IS THRU M:EI, AND
     OUTPUT IS THRU M:SO.
*****************************************************************************
XREFJOB   XREFJOB   XREFJOB   XREFJOB   XREFJOB   XREFJOB
*****************************************************************************
XREFJOB CONTAINS THE JCL FOR RUNNING XREF ON THE COMPLETE SYSTEM(ABOUT
350 MODULES).  THE ACCOUNT NEEDS ABOUT 2000 GRANULES OF TDISK .
************************************************************************
************************************************************************
------------------------------------------------------------------------
------------------------------------------------------------------------
FILE NAMING CONVENTIONS -
FORMAT  FILE CONTENTS
NAME    LOAD MODULE
B:NAME  BO (ROM) FILE FOR 'NAME'
C:NAME  CI (COMPRESSED) FILE FOR 'NAME'
S:NAME  SI (SOURCE, NOT UPDATES) FILE FOR 'NAME'
U:NAME  SI (UPDATES, METASYM OR SYMCON) FILE FOR 'NAME'
------------------------------------------------------------------------
------------------------------------------------------------------------
THE FIRST LINE OF EACH PROGRAM OR SUBROUTINE DESCRIPTION LISTS
*  THE MINIMUM PRIVILEGE LEVEL REQUIRED TO USE IT.
*  THE PROGRAM SOURCE LANGUAGE.
*  FOR SUBROUTINES, THE INTENDED CALLING PROGRAM SOURCE LANGUAGE.
*  FOR METASYM PROGRAMS, THE SUGGESTED METASYM STANDARD DEFINITION
   FILE NAME ($:BS OR $:BPS) IF OTHER THAN $:STDMET.
THE METASYM COMMENTARY SYMBOLS ARE DESCRIBED IN S:CVM.X.
------------------------------------------------------------------------
------------------------------------------------------------------------
ANLZ - SIMILAR TO ANLZ-DELTA  (0/.80 PRIV, FORTRAN)
   ANLZ PROVIDES THE DELTA INTERFACING EQUIVALENT OF
      !ANLZ
      <BF MONSTK.:SYS
      <MO D
      <DE
   IS SATISFIED WITH THE CURRENT USER'S JIT RATHER THAT THE
   MONITOR'S UNMAPPED JIT, AND STORING IS NOT ALLOWED.
------------------------------------------------------------------------
ARG - GET ARGUMENTS  (0 PRIV, METASYM CALLABLE METASYM SUBR.)
   ARG IS USED BY OTHER LIBRARY SUBROUTINES TO PICK UP ARGUMENTS
   FROM A FORTRAN CALL.
------------------------------------------------------------------------
CAG - COC ACTIVITY GRAPH  (.80 PRIV, FORTRAN)
   CAG PERIODICALLY SAMPLES NUMEROUS COC-ORIENTED PARAMETERS, THEN
   GENERATES HISTOGRAMS AND SUMMARIES OF THE FOLLOWING:
   1  NUMBER OF LINES LOGGED ON
   2  NUMBER OF LINES SLEEPING
   3  ACTUAL (OBSERVED) SAMPLING PERIOD
   4  NUMBER OF COC BUFFERS IN USE
   5  NUMBER OF LINES WITH INPUT BUFFERS
   6  NUMBER OF LINES WITH READ PENDING
   7  NUMBER OF BUFFERS USED FOR INPUT
   8  NUMBER OF CHARACTERS INPUT PER SECOND
   9  NUMBER OF CHARACTERS PER READ CAL
   10 NUMBER OF LINES WITH OUTPUT BUFFERS
   11 NUMBER OF BUFFERS USED FOR OUTPUT
   12 NUMBER OF OUTPUT CHARACTERS IN BUFFERS
   13 NUMBER OF CHARACTERS PER WRITE CAL
   14 NUMBER OF CHARACTERS TRANSMITTED PER SECOND
   THE USER SPECIFIES THE RANGE OF LINES TO SAMPLE, SAMPLE PERIOD,
   NUMBER OF SAMPLES, AND NUMBER OF BUFFERS PER GRAPH DIVISION.
   WHEN PROMPTED FOR THE RANGE OF LINE NUMBERS, ENTERING ONLY A COMMA
   IMPLIES ALL LINES.  DEPRESSING THE BREAK KEY TERMINATES SAMPLING
   AND STARTS THE GRAPHING PROCESS.
------------------------------------------------------------------------
CARDLIST - READ CONTROL CARDS  (0 PRIV, METASYM, $:BPS)
   CARDLIST PROVIDES THE CAPABILITY OF READING A DECK OF CARDS
   CONTAINING CONTROL COMMANDS AND WRITING THEM TO ANOTHER DEVICE
   THE M:LL DCB.  THE DECK TO BE READ IS PLACED SO THAT THE LAST CARD
   IS READ FIRST, AND COLUMN 80 IS READ FIRST.  THE FOLLOWING SETUP
   MAY BE USED:
      !JOB
      !RUN (LMN,CARDLIST,X)
      !DATA
       CARDLIST ABC(LN)
      (DECK, LAST CARD FIRST, COLUMN 80 FIRST)
   THE ABOVE JOB WOULD CREATE AN EDIT-COMPATIBLE KEYED FILE CALLED
   ABC CONTAINING THE INPUT DECK AFTER BEING INVERTED.  OTHER CARDLIST
   COMMANDS ARE:
   !CARDLIST                         NO OPTIONS.  IF M:EO WAS
                                     ASSIGNED, IT WILL BE WRITTEN THRU.

   !CARDLIST OUTPUT-DEVICE           A CONSECUTIVE FILE WILL BE WRITTEN
                                     THRU M:EO TO THE OUTPUT-DEVICE.

   !CARDLIST OUTPUT-DEVICE;KEYED     A KEYED FILE WILL BE WRITTEN
      - OR -                         THRU M:EO TO THE OUTPUT-DEVICE.
   !CARDLIST OUTPUT-DEVICE(LN)       KEYS START WITH EDIT SEQUENCE
                                     NUMBER 1.000 AND ARE INCREMENTED
                                     BY 1.000.
   OUTPUT-DEVICE IS ONE OF THE FOLLOWING PCL-STYLE DEVICE DESIGNATORS:
      NO   LP   CP   PP   TY
      FT#SN
      LT#SN/FID
      DP#SN/FID
      DC/FID
      FID
   WHERE FID IS ONE OF THE FOLLOWING:
      FILENAME
      FILENEME.ACCOUNT
      FILENAME.ACCOUNT.PASSWORD
      FILENAME..PASSWORD
   OTHER FEATURES ARE DESCRIBED IN S:CARDLIST.X.
------------------------------------------------------------------------
CBUG - COC BUFFER USAGE GRAPH  (.80 PRIV, FORTRAN)
   CBUG PERIODICALLY SAMPLES THE NUMBER OF COC BUFFERS IN USE,
   THEN GENERATES A HISTOGRAM AND SUMMARY OF THE USAGE.  THE SAMPLE
   ARE USER-SPECIFIED.  DEPRESSING THE BREAK KEY TERMINATES SAMPLING
   AND STARTS THE GRAPHING PROCESS.
------------------------------------------------------------------------
CD - COC DIAGNOSTIC  (.80/.C0 PRIV, FORTRAN)
   CD PROVIDES THE FOLLOWING COC HARDWARE/SOFTWARE FUNCTIONS:
   *  FOR ANY RANGE OR TYPE OF COC LINES:
      *  MONITOR AND DISPLAY ANY SET OF COC TABLES.
      *  MONITOR INPUT.
      *  SEND A MESSAGE.
      *  EXECUTE ANY COC-RELATED WRITE DIRECT.
   *  MONITOR AND DISPLAY INPUT PARITY ERRORS.
   *  DISPLAY ERROR COUNTERS AND PEAK BUFFER USAGE.
   *  EXECUTE A TIO, TDV, OR HIO TO ANY COC.
   TYPE HELP FOR A LIST OF THE COMMANDS.
------------------------------------------------------------------------
COCSUM - COC LINE USAGE SUMMARY  (.80/.C0 PRIV, FORTRAN)
   COCSUM READS THE ACCOUNTING FILE (:ACCTLG.:SYS) TO OBTAIN
   INFORMATION ON COC LINE USAGE.  THEN, USING USER-SUPPLIED
   PARAMETERS, IT GENERATES VARIOUS GRAPHS AND TABLES DESCRIBING
   THE LINE ACTIVITY.  IT IS USEFUL IN DETERMINING THE MOST
   EFFECTIVE COC LINE CONFIGURATIONS, IN MONITORING LINE LOAD
   THROUGHOUT THE DAY, AND IN SPOTTING BAD LINES.  THIS PROGRAM
   REQUIRES A PRIVILEGE LEVEL OF .C0 TO ACCESS :ACCTLG.:SYS.
   SEE THE SOURCE LISTING (S:COCSUM.X) FOR A MORE COMPLETE
   DESCRIPTION.
------------------------------------------------------------------------
CVM/CVMD - EXECUTE M:CVM  (.80 PRIV, FORTRAN CALLABLE METASYM SUBR.)
   CVM PROVIDES A SIMPLE MECHANISM FOR A FORTRAN USER TO EFFECT A LB,
   LH, LW, OR LD INSTRUCTION TO ANY PHYSICAL MEMORY VIA THE M:CVM
   CALL.  CVMD IS THE ASSOCIATED DATA MODULE.
------------------------------------------------------------------------
   DB DISPLAYS THE FOLLOWING FOR EACH BATCH JOB CURRENTLY RUNNING:
   *  PARTITION NUMBER
   *  SYSTEM ID
   *  ACCOUNT NUMBER
   *  PAGE COUNT (UB:PCT)
   *  SHARED PROCESSOR NAME (UB:APR)
------------------------------------------------------------------------
DD - DISPLAY DISC  (.80 PRIV, FORTRAN)
   DD DISPLAYS THE FOLLOWING STATISTICS FOR RAD AND PACK:
   *  DISC CURRENTLY AVAILABLE (UNUSED) IN THE SYSTEM
   *  DISC CURRENTLY AVAILABLE TO THE USER (I.E., AUTHORIZATION
      RESTRICTIONS; (AUTHORIZED GRANULES - GRANULES IN USE).
   *  THE MIN (LESSER) OF THE ABOVE
   *  THE SUMS OF THE ABOVE
------------------------------------------------------------------------
DELTA - ASSOCIATE DELTA  (0 PRIV, FORTRAN CALLABLE METASYM SUBR.)
   DELTA PROVIDES AN ANLZ-STYLE INTERFACE TO DELTA.
------------------------------------------------------------------------
DG - DISPLAY GHOST JOBS  (.80 PRIV, FORTRAN)
   DG DISPLAYS THE FOLLOWING FOR THE CURRENTLY-RUNNING GHOST JOBS:
   *  NAME (S:GJOBTBL)
   *  ACCOUNT NUMBER (S:GJOBACN)
   *  USER NUMBER (SB:GJOBUN)
   *  PAGE COUNT (UB:PCT)
   *  STATE (UB:US)
   *  THE TIME TIL WAKEUP, IF THE GHOST IS SLEEPING (U:MISC, IN
      1.2 SECOND INTERVALS)
------------------------------------------------------------------------
DIGIT - GET SPECIFIC DIGIT  (0 PRIV, FORTRAN CALLABLE METASYM SUBR.)
   DIGIT RETURNS ANY SPECIFIED DECIMAL DIGIT OF A BINARY INTEGER.
------------------------------------------------------------------------
DT - DISPLAY TAPES  (.80 PRIV, FORTRAN)
   DT DISPLAYS THE SERIAL NUMBER AND ASSOCIATED USER NUMBER FOR EACH
   NON-NULL AVR TABLE ENTRY.
------------------------------------------------------------------------
   GIVEN AN ERROR CODE/SUBCODE, ERMSG:
   *  READS ERRMSG.:SYS AND PRINTS THE ERROR MESSAGE,
   *  PRINTS THE CAL1/TRAP ADDRESS,
   *  IF AN IO ERROR, PRINTS THE DCB NAME.
------------------------------------------------------------------------
F1/F2 - REF F:1/F:2  (0 PRIV, FORTRAN CALLABLE METASYM SUBR.)
   F1 AND F2 ALLOW A FORTRAN USER TO FORCE THE LOADER TO LOAD THE F:1
   AND/OR F:2 DCBS.  IT ALSO ENABLES THE USER TO CONTROL THE ORDER
   OF OCCURRENCE OF F:1 AND F:2 IN THE DCB TABLE, SO THAT FORTRAN
   WILL CLOSE THEM IN THE DESIRED ORDER.
------------------------------------------------------------------------
GRAPH1/GRAPH2/GRAPH3 - GENERATE HISTOGRAMS  (0 PRIV,
                     FORTRAN CALLABLE FORTRAN SUBR.)
   GRAPH1, GRAPH2, AND GRAPH3 ARE CALLED BY CAG TO GENERATE HISTOGRAMS.
------------------------------------------------------------------------
INT - EXECUTE M:INT  (0 PRIV, FORTRAN CALLABLE METASYM SUBR.)
   INT INTERFACES TO THE M:INT, M:TRTN, AND RESET BREAK COUNT
   MONITOR SERVICES.
------------------------------------------------------------------------
JITWORD - LOAD WORD FROM JIT  (0 PRIV, FORTRAN CALLABLE METASYM SUBR.)
   JITWORD LOADS ANY GIVEN WORD FROM THE USER'S JIT.
------------------------------------------------------------------------
KEY - RESEQUENCE EDIT-COMPATIBLE KEYED FILES  (0 PRIV, METASYM, $:BPS)
   KEY COPIES A FILE OVER ITSELF, CREATING A FILE WHOSE KEYS
   CORRESPOND TO THE FOLLOWING RULES:
   *  ANY CONTROL COMMANDS AT THE BEGINNING OF A FILE ARE PUT AT
      SEQUENCE NUMBER .01 AND ARE INCREMENTED BY .01.  CONTROL
      COMMANDS ARE ANY RECORDS:
      *  WITH A BANG IN COLUMN 1.
      *  FOLLOWING A PCL, DATA, EDCON, OR SYMCON COMMAND.
   *  IF METASYM UPDATE COMMANDS ARE ENCOUNTERED, THEY WILL BE GIVEN
      A KEY EQUAL TO THE FIRST NUMBER ON THE COMMAND.  FOLLOWING
      RECORDS WILL BE INCREMENTED BY .01.  IF MORE THAN 99 SOURCE
      RECORDS FOLLOW AN UPDATE COMMAND, RESEQUENCING WILL OCCUR WITH AN
      INCREMENT OF .001.
      *  A +0 UPDATE COMMAND AND ITS ASSOCIATED SOURCE WILL BE
         PLACED AS BEGINNING CONTROL COMMANDS.
      *  A +END CARD WILL BE PLACED AT 9000.000, AND UPDATE MODE
         PROCESSING WILL BE HALTED.  REMAINING RECORDS WILL BE
         INCREMENTED BY .01.
   *  IF A METASYM UPDATE COMMAND IS NOT ENCOUNTERED AFTER ANY
      BEGINNING CONTROL COMMANDS, RECORDS WILL BE ASSUMED TO BE
      SOURCE, AND WILL BE PUT AT 1.000 AND INCREMENTED BY 1.000.
      IF A FOLLOWING CARD WITH A BANG IN COLUMN 1 IS ENCOUNTERED, IT
      WILL BE PUT AT 9000.000.  ANY FURTHER RECORDS WILL BE
      INCREMENTED BY .01.
   ONLINE COMMAND FORMAT:
      !KEY.X FID
   BATCH COMMAND FORMAT:
      !RUN (LMN,KEY,X)
      !DATA
       KEY FID
   WHERE FID IS THE FILE NAME WHOSE FORMAT IS DESCRIBED IN THE
   CARDLIST DESCRIPTION.
------------------------------------------------------------------------
LI - 'LOAD IMMEDIATE'  (0 PRIV, FORTRAN CALLABLE METASYM SUBR.)
   THE FORTRAM LOGICAL EQUIVALENT OF AN ASSEMBLY LANGUAGE LOAD
   IMMEDIATE, I.E., IT LOADS THE ADDRESS OF A CELL RATHER THAN
   THE CONTENTS.
------------------------------------------------------------------------
LIB - LIBRARY MAINTENANCE PROGRAM  (0 PRIV, METASYM, $:BPS)
   LIB MAY BE USED TO MAINTAIN A FILE (LIBRARY) WHICH CONTAINS
   A COLLECTION OF 'LOGICAL' FILES.  A FILE MAY BE ADDED, FETCHED,
   DELETED, OR REPLACED, AND ALL FILES MAY BE LISTED.  LIB SIMPLIFIES
   THE MAINTENANCE OF LINK-STYLE ROM LIBRARIES, AND MAY ALSO BE USED
   FOR COLLECTIONS OF SMALL EDIT-TYPE FILES.  LIST S:LIB.X FOR
   FURTHER INFORMATION.
------------------------------------------------------------------------
LS - COC LINE STATUS  (.80 PRIV, FORTRAN)
   FOR A GIVEN RANGE OF COC LINE NUMBERS, LS DISPLAYS THE STATUS
   OF EACH LINE ONCE EACH MINUTE OR WHENEVER THE BREAK KEY IS
   DEPRESSED.  THE DISPLAY IS PREFACED WITH THE LINE SPEED OF EACH
   LINE (2741 FOR 2741), AND THE LINE NUMBER IN A FORMAT THAT IS READ
   VERTICALLY.  THE STATUS OF EACH LINE IS BROKEN DOWN INTO THE
   FOLLOWING CATEGORIES:
   *  TERMINAL INPUT STATE CONTINUOUSLY FOR AT LEAST 1 MINUTE
   *  LOGGING ON OR OFF (LOGON ASSOCIATED)
   *  LINE UNUSED (USER NUMBER IN LB:UN IS 0)
   *  USER DOING AN M:WAIT (STATE SW)
   *  ANYTHING OTHER THAN THE ABOVE
   WHEN PROMPTED FOR THE RANGE OF LINE NUMBERS, ENTERING ONLY A HYPHEN
   IMPLIES ALL LINES.
------------------------------------------------------------------------
LUS - LINE USAGE SUMMARY  (.80 PRIV, FORTRAN)
   LUS DISPLAYS (FOR EACH DIFFERENT LINE SPEED) THE NUMBER OF LINES
   AVAILABLE, THE NUMBER IN USE, AND THE TOTAL NUMBER OF EACH SPEED.
------------------------------------------------------------------------
MOVE - MOVE A FIELD WITHIN A RECORD  (0 PRIV, FORTRAN)
   MOVE MOVES A GIVEN FIELD OF EACH RECORD TO ANOTHER AREA OF THE
   SAME RECORD, LEAVING THE ORIGINAL FIELD INTACT.  THE USER
   SPECIFIES THE FOLLOWING:
   *  THE STARTING SOURCE COLUMN
   *  THE NUMBER OF COLUMNS TO MOVE
   *  THE STARTING DESTINATION COLUMN
   *  THE FIRST RECORD NUMBER TO MODIFY (OR <CR> FOR ALL)
   *  THE NUMBER OF RECORDS TO MODIFY
   THE FOLLOWING SET COMMANDS ARE REQUIRED:
   !SET F:2 /OUT-FILE-NAME;OUT
------------------------------------------------------------------------
MPOOL - MONITOR MPOOL USAGE  (.80 PRIV, FORTRAN)
   MPOOL PERIODICALLY DISPLAYS THE NUMBER OF MPOOL BUFFERS AVAILABLE,
   AND THE NUMBER THAT HAVE CHANGED SINCE THE LAST SAMPLE.  THE
   SAMPLING RATE IS SET BY THE USER.
   NOTE - THIS PROGRAM (AND SOME OF THE OTHERS) WILL OCCASIONALLY
   YIELD AN INACCURATE RESULT BECAUSE OF INTERRUPT-LEVEL AND
   SWAPPING/SCHEDULING ACTIVITY.
------------------------------------------------------------------------
MS - MASTER/SLAVE  (.C0 PRIV, FORTRAN CALLABLE METASYM SUBR.)
   MS ALLOWS A USER TO GO FROM MASTER MODE TO SLAVE MODE, AND
   VICA VERSA.  WHEN GOING TO MASTER, IT VALIDATES THE ADDRESS OF
   QUEUE.
------------------------------------------------------------------------
PRNTERR - PRINT ERROR MESSAGE  (0 PRIV, METASYM CALLABLE METASYM SUBR.)
   PRNTERR WRITES A TEXTC MESSAGE THRU M:DO.
------------------------------------------------------------------------
SC1 - CHARACTER SCAN  (0 PRIV, FORTRAN CALLABLE FORTRAN SUBR.)
   SC1 PROVIDES THE FOLLOWING FUNCTIONS:
   *  BASIC CHARACTER SCANNING AND KEYWORD TABLE LOOKUP.
   *  NUMERIC AND NUMERIC RANGE SYNTAX DECODING.
   *  ERROR DETECTION AND REPORTING.
------------------------------------------------------------------------
SIDR - PUT SIDR NUMBER ON PATCHES  (0 PRIV, FORTRAN)
   SIDR PUTS (IN ORDER) THE FOLLOWING INFORMATION ON PATCH CARDS:
   *  CURRENT DATE (VIA M:TIME)
   *  PROGRAMMER'S INITIALS (VIA PROMPT)
   *  SYSTEM VERSION (VIA PROMPT)
   *  SEQUENCE NUMBERS (VIA COUNTING RECORDS, MAX OF 999)
   *  SIDR NUMBER (VIA PROMPT)
   SIDR WILL AVOID CLOBBERING LONG PATCH CARDS BY SELECTIVELY NOT
   ONLINE COMMAND FORMAT:
      !SET F:1 /IN-FILE-NAME
      !SET F:2 /OUT-FILE-NAME;OUT
      !SIDR.X
------------------------------------------------------------------------
SNAP - SNAP IN-CORE JITS  (.80 PRIV, FORTRAN)
   SNAP MAY BE USED TO ATTEMPT TO GET A SNAPSHOT OF A JIT WHEN IN
   CORE.  SNAP WILL PROMPT FOR A WAIT PERIOD AND A USER ID.
   *  THE WAIT PERIOD IS IN 1.2 SECOND UNITS.  IF THE OBJECT USER IS
      SLEEPING, SNAP.X WILL ATTEMPT TO TRACK HIM BY WAKING UP JUST
      BEFORE THE USER.  IF A NEGATIVE PERIOD IS ENTERED, NO TRACKING
      WILL BE ATTEMPTED, AND THE COMPLEMENT OF THE PERIOD WILL BE
      USED FOR WAITING.
   *  WHEN SNAP SAYS HE'S GOT THE JIT, HITTING BREAK WILL CALL
      DELTA.  ANY REFERENCE TO .8C00 THRU .8DFF WILL REFER TO THE
      SNAPPED USER'S JIT.  ANY OTHER REFERENCE WILL BE MAPPED INTO
      PHYSICAL CORE. A ;S WILL ASSOCIATE THE MONITOR'S GLOBAL SYMBOL
      TABLE.  A ;G WILL RETURN CONTROL TO SNAP, WHICH WILL PROMPT
      FOR ANOTHER USER ID.
------------------------------------------------------------------------
SQ - 'SQUEEZE' A FILE  (0 PRIV, METASYM, $:BPS)
   SQUEEZE MAY BE USED TO REDUCE THE SIZE OF LOAD MODULES OR EDIT
   FILES AS FOLLOWS:
   *  IF THE FILE IS A LOAD MODULE, IT IS COPIED OVER ITSELF,
      COPYING ONLY THE HEAD, TREE, GENMD.X COMMANDS, AND CORE-IMAGE
      RECORDS.  SQ WILL IGNORE ATTEMPTS TO SQUEEZE SYSGEN, DEFCOM,
      AND LIBRARY LOAD MODULES.  NOTE THAT AFTER BEING SQUEEZED, A
      LOAD MODULE CANNOT BE GENMD'D, !MODIFY'D, OR !SNAP'D.
   *  IF THE FILE IS AN EDIT FILE (I.E., KEYM=3) IT IS COPIED OVER
      ITSELF, CREATING A CONSEC FILE.  ANY FILE NAME 5 CHARACTERS
      OR LONGER STARTING WITH HDR:, PRN:, OR TXT: IS ASSUMED TO BE
   ONLINE COMMAND FORMAT:
      !SQ.X FID
   BATCH COMMAND FORMAT:
      !RUN (LMN,SQ,X)
      !DATA
       SQ FID
   IF FID IS ALL, ALL FILES IN THE ACCOUNT WILL BE PROCESSED.
------------------------------------------------------------------------
SUA - DISPLAY SINGLE USER ABORTS  (.80 PRIV, FORTRAN)
   SUA DISPLAYS THE NUMBER, CURRENT USER NUMBER, AND TIME OF THE
   LAST 4 SINGLE USER ABORTS THAT OCCURRED AFTER THE LAST FULL
   RECOVERY OR PO BOOT.
------------------------------------------------------------------------
TIME - EXECUTE M:TIME  (0 PRIV, FORTRAN CALLABLE METASYM SUBR.)
   TIME EXECUTES AN M:TIME CALL AND REFORMATS THE OUTPUT.
------------------------------------------------------------------------
TT - TERMINAL TEST PATTERN GENERATOR  (0 PRIV, FORTRAN)
   TT GENERATES PROGRESSIVELY LONGER PRINT LINES, CYCLING THRU A
   RANGE OF LINE LENGTHS SPECIFIED BY THE USER.  HITTING BREAK
   ALLOWS THE USER TO RE-SPECIFY THE LENGTH RANGE.
------------------------------------------------------------------------
TTV - TERMINAL TEST PATTERN GENERATOR  (0 PRIV, FORTRAN)
   SAME AS TT, EXCEPT TTV IS INTENDED TO BE RUN WITH IDLE ALGORITHM
   0 (NO IDLES).  THE USER SPECIFIES THE X AND Y IN THE FOLLOWING
   EQUATION:
      IDLES = (LINE LENGTH + X) / Y
   AND THE PROGRAM GENERATES THE PRINT LINES WITH THE COMPUTED
   NUMBER OF IDLES INSERTED.  IT IS PRIMARILY USEFUL FOR ADDING
   OR MODIFYING AN IDLE ALGORITHM.
------------------------------------------------------------------------
UT - DISPLAY UP-TIME  (.80 PRIV, FORTRAN)
   UT DISPLAYS THE HOURS AND MINUTES SINCE THE LAST SYSTEM STARTUP
   (PO BOOT OR FULL RECOVERY).
------------------------------------------------------------------------
WAIT - EXECUTE M:WAIT  (0 PRIV, FORTRAN CALLABLE METASYM SUBR.)
   WAIT EXECUTES AN M:WAIT CALL FOR A SPECIFIED NUMBER OF INTERVALS.
------------------------------------------------------------------------
WFL - WAIT FOR COC LINE  (.80 PRIV, FORTRAN)
   WFL, GIVEN THE FIRST AND LAST LINE NUMBERS IN A RANGE, WILL
   SAMPLE THE COC TABLES, NOTING THE NUMBER OF LINES AVAILABLE.
   ANY TIME THE NUMBER CHANGES, WFL WILL TYPE THE NUMBER OF LINES
   CURRENTLY AVAILABLE IN THE RANGE.
------------------------------------------------------------------------
WFT - WAIT FOR TAPE  (.80 PRIV, FORTRAN)
   WFT SAMPLES THE AVR TABLES, WAITING FOR A USER-SPECIFIED SERIAL
   NUMBER TO APPEAR.  WHEN IT DOES, WFT EXITS.  IF THE USER
   ENTERS A CARRIAGE RETURN INSTEAD OF A NUMBER, WFT EXITS WHENEVER
   ANY DRIVE IS AVAILABLE.  WFT WON'T WORK FOR ANS TAPES.
------------------------------------------------------------------------
XOPEN - EXECUTE M:OPEN  (0 PRIV, FORTRAN CALLABLE METASYM SUBR., $:BPS)
   XOPEN ACCEPTS A PCL-STYLE DEVICE/FILE DESIGNATOR (D00 UTS LEVEL)
   AND VARIOUS ASSOCIATED PARAMETERS, THEN BUILDS AN M:OPEN FPT AND
   EXECUTES A CAL1 TO IT.
------------------------------------------------------------------------
------------------------------------------------------------------------
METASYM STANDARD DEFINITION FILES -
   THE FOLLOWING METASYM STARDARD DEFINITION FILES MAY BE USED TO
   DECREASE ASSEMBLY TIMES:
      NAME        CONTENTS
      $:STDMET    SIG9P
      $:BS        SIG9P, BPM
      $:BPS       SIG9P, BPM, P:SYSTEM
   USAGE EXAMPLE:  TO ASSEMBLE A PROGRAM WHICH CALLS SIG7FDP AND
   SYSTEM BPM, INCLUDE THE FOLLOWING ASSIGN (OR SET) BEFORE THE
   METASYM COMMAND:
      !ASSIGN F:STD,(FILE,$:BS,X)
