A00101
 Program Name................:ADVAN 
         Title...............:Advance Mag Tape Thru N Files 
         File Names..........:Submission file 
                              &ADVAN - source code
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:ADVAN is nifty little program to allow the
 user to advance the mag tape through N files without having to do the
 :CN,8,FF.  ADVAN can be loaded as real time or background disc resident
 depending on user requirements.  Standard EXEC calls are used. 
 Additional Documentation....:To execute: 
 [RU,]ADVAN[,lutty[,#files-to-advance-thru] 
     or 
[RU,]ADVAN
     and the program will prompt for necessaey answers. 
A00201
 Program Name................:APEND 
         Title...............:Append one file to the end of another file
         File Names..........:Submission file 
                              &APEND - source code
                              %APEND - relocatable code 
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:APEND uses standard RTE FMP calls to append 
 an existing file to another file.  The second file can already exist 
 or if it doesn't APEND will create it. 
 Additional Documentation....:To use as a subroutine: 
 CALL APEND(file1,sc,cr,file2,sc,cr,ierr) 
A00301
 Program Name................:BXTRK 
         Title...............:Extract a module from a binary reloc. file
         File Names..........:Submission file 
                              &BXTRK - source code
                              %BXTRK - relocatable
                              %DLIB1 - relocatable library
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:BXTRK uses standard RTE EXEC and FMP calls
 to extract a specific module from any relocatable file and place the module
 into a user specified disc file.  A routine called TTYIO is included here
 and can be located elsewhere in the library if the user needs the source.
 Additional Documentation....:To execute: 
 [RU,]BXTRK,,bline#,eline#
     where:  bline# = 1st line to begin extract on
             eline# = last line of extract
  (program will prompt for input and output files names)
 BXTRK can be easily modified to not use TTYIO if necessary.
A00401
 Program Name................:DEBLK 
         Title...............:De-block mag tape records to a disc file
         File Names..........:Submission file 
                              &DEBLK - source code
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:DEBLK is a revision of the earlier CSL/1000 
 program UNBLK by Bob Gage and Dave Matchett.  UNBLK assumed fixed length 
 records ending in a CR/LF.  DEBLK allows for fixed or varaible length
 records and user defined output file namr. 
 Additional Documentation....:To execute: 
 [RU,]DEBLK[,lutty[,lumta]] 
     or 
 [RU,]DEBLK 
     and the program will prompt for everything 
 See the surce code for more detail.
             eline# = last line of extract
  (program will prompt for input and output files names)
 BXTRK can be easily modified to not use TTYIO if necessary.
A00501
 Program Name................:DEVST 
         Title...............:Display current status of a LU
         File Names..........:Submission file 
                              &DEVST - source code
                              %DEVST - relocatable
                              %DLIB1 - relocatable library
                              %IFGLU - subroutine relocatable 
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:DEVST uses standard EXEC calls, a user written
 I/O routine, and a user written FORTRAN subroutine to interface to the 
 system entry point FG.LU to return the status of a device specified by its 
 LU#. 
 Additional Documentation....:DEVST returns the status of a specified device
 in 3 octal words.  Check the DEVICE STATUS TABLE for interpretation.  DEVST
 will prompt for the LU# to be checked.  Enter a 0 or -99 or a CR to exit.
A00601
 Program Name................:DOG 
         Title...............:Program documentation generator 
         File Names..........:Submission file 
                              &DOG   - source code
                              %DOG   - relocatable
                              &HEADR - large letter source
                              %HEADR - large letter relocatable 
                              %DLIB1 - relocatable library
                              &DUMMY - example of DOGed source file 
                              "DUMMY - example of DOGed documentation file
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:DOG is a progra documentation generator that
 creates 2 separate files for the programmer.  The first is the source
 file (&xxxxx) and the second is the documentation file ("xxxxx). 
  
 Please make note, DOG will need to be modified to be site specific.
 DOG is currently set up for the Arkansas Department of Pollution Control 
 & Ecology requirements.  By looking at the examples given in this
 contribution and the program's source code, one should have no trouble 
 converting to his/her own site's needs.
 Additional Documentation....:To execute: 
 [RU,]DOG,,opt
    where:  opt = 0 create both program & doc files 
                = 1 create only doc file
A00701
 Program Name................:FLIST 
         Title...............:Spool a FORTRAN output file to printer
         File Names..........:Submission file 
                              &FLIST - source code
                              %FLIST - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:FLIST is a routine that prompts the user for
 the name of a FORTRAN output file, number of copies needed, and whether
 to SAve or PUrge the file after printing; and then spools the file to the
 printer (LU 6) or (LU 7).
 Additional Documentation....:To execute: 
 [RU,]FLIST[,,lulst]
    where:   lulst = LU# of printer to spool to 
                     (default = 6)
A00801
 Program Name................:IDCHK 
         Title...............:Display information about ID segments and 
                              cartridge list
         File Names..........:Submission file 
                              &IDCHK - source code
                              %IDCHK - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:IDCHK displays information about ID segment 
 and user catridges to the users terminal of other output device. 
 Additional Documentation....:To execute: 
 [RU,]IDCHK[,lutty[,listopt[,cropt]]] 
     where   lutty = output LU# 
                   = 0 full listing (ID segments and cartridge info)
                   = 1 cartridge info only
                   = 2 ID segment info only 
             cropt = 0 session cartridge's info only
                   = 1 all cartridges mounted in system (must be SL'ed) 
A00901
 Program Name................:INTRT 
         Title...............:Mortgage loan payment calculator
         File Names..........:Submission file 
                              &INTRT - source code
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:INTRT is an interactive mortgage loan 
 calculator program.  See the source code for more info.
 Additional Documentation....:Nothing special.  All input to the program
 is decimal except time period (# of months). 
A01001
 Program Name................:J2CAL 
         Title...............:Julian to calendar converter w/ leap year 
                              calculator
         File Names..........:Submission file 
                              &J2CAL - source code
                              %J2CAL - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansaas 
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:J2CAL is a subroutine that given the julian 
 day and year will convert to the calendar date.
 Additional Documentation....:To call:
     CALL J2CAL(yy,jjjj,mm,dd,ierr) 
          where:  yy   = year 
                  jjjj = julian day 
                  mm   = returned month 
                  dd   = returned day 
                  ierr = error return 
 See source code for more information 
A01101
 Program Name................:J2FTN 
         Title...............:Julian to calendar converter w/ leap year 
                              calculator (FORTRAN version of J2CAL) 
         File Names..........:Submission file 
                              &J2FTN - source code
                              %J2FTN - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:J2FTN is a subroutine that given the julian 
 day and year will convert to the calendar date.
 Additional Documentation....:To call:
     CALL J2FTN(yy,jjjj,mm,dd,ierr) 
          where:  yy   = year 
                  jjjj = julian day 
                  mm   = returned month 
                  dd   = returned day 
                  ierr = error return 
 See source code for more information 
A01201
 Program Name................:JSTFY 
         Title...............:Left or right justify of columnar data
         File Names..........:Submission file 
                              &JSTFY - source code
                              %JSTFY - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:JSTFY will left or right justify columnar 
 data in a type 3 or above FMP file padding justified info with blanks. 
 Beginning and ending columns and beginning and ending lines may be 
 specified.  Output file name can not be same as input. 
 Additional Documentation....:See source code for more detailed info. 
A01301
 Program Name................:KAREN 
         Title...............:FMGR file lister
         File Names..........:Submission file 
                              &KAREN - source code
                              %KAREN - relocatable
                              %DLIB1 - relocatable library
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:KAREN is a program to spool a FMGR file 
 to the printer; with/without line numbers and/or single, double, or
 tiple spacing. 
 Additional Documentation....:To execute: 
 [RU,]KAREN[,,luout]
      where:  luout = LU# of output spooling device 
                      (default = 6) 
A01401
 Program Name................:SETLU 
         Title...............:Initialize 2608 printer/plotter VFU 
                              programatically 
         File Names..........:Submission file 
                              &SETLU - source code
                              %SETLU - relocatable
                              *SETLU - compile transfer file
                              "7.66L - 66 lpi data file 
                              "7.88L - 88 lpi data file 
                              RESET7 - transfer file to reset 2608 to 66 lpi
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:SETLU is a routine to programatically set the 
 2608 printer/plotter's VFU controller.  See source code for detailed info. 
 Additional Documentation....:To execute: 
 [RU,]SETLU[,lpi[,fi,na,me]]
      where:  lpi   = # of lines per inch (e.g. 6)
              finame= file name of data file that contains VFU control data 
A01501
 Program Name................:NOFIL 
         Title...............:Subroutine to handle non-existant file errors 
                              on FORTRAN open's 
         File Names..........:Submission file 
                              &NOFIL - source code
                              %NOFIL - relocatable
                              %DLIB1 - relocatable library
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:If a FMGR-6 error occurs on a file open, make 
 a call to NOFIL and it will interactively handle getting a new file namr.
 NOfile uses the NAMRX routine. 
 Additional Documentation....:To call:
 CALL NOFIL(nfile,nsc,ncr,lutty)
      where:  nfile = 3 word array containing new file name 
              nsc   = new s.c.
              ncr   = new crn 
A01601
 Program Name................:NUMCK 
         Title...............:ASCII string numeric check
         File Names..........:Submission file 
                              &NUMCK - source code
                              %NUMCK - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:NUMCK is a subroutine designed to perform 
 a numeric check on an ASCII string of up to 40 characters.  It will also 
 check to see that the minus and plus signs are vaild, that there is only 
 one decimal point (if the value is a 'real' number), and whether 'EX', 
 '/E', 'EN', '?', or '*' have been entered.  Right justification and
 zero-filling of the string can also be performed if desired. 
 Additional Documentation....:To call:
 CALL NUMCK(ierr,nchar,string)
      where:  ierr  = result flag 
                    = -99 if 'EX', 'EN', or '/E' was entered
                    = - 3 if '*' was entered
                    = - 2 if '?' was entered
                    = - 1 if invalid input
                    =   1 if integer value
                    =   2 if real number (i.e. decimal point) 
              nchar = number of characters in 'string'
             string = integer ASCII string, can be up to 6 words long 
A01701
 Program Name................:PFILE 
         Title...............:Spool a FORTRAN output file to printer from a 
                              program 
         File Names..........:Submission file 
                              &PFILE - source code
                              %PFILE - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:PFILE is a subroutine to programatically spool
 an output file to the printer and optionally request multiple copies and/or
 to save or purge the file after printing.
 Additional Documentation....:To call:
 CALL PFILE(iname,copies,purge,lutty,lulst) 
      where:  iname   = 3 word array containing file name to spool
              copies  = # of copies to print
              purge   = 0 to save 
                      = 1 to purge file after printing
              lutty   = LU of user's terminal 
A01801
 Program Name................:PGLOD 
         Title...............:Routine to rename, 'RP', and schedule a program 
                              to run
         File Names..........:Submission file 
                              &PGLOD - source code
                              %PGLOD - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:PGLOD is similar to the system routine SEGLD
 except that PGLOD works with main programs rather thatn segments.  Also, 
 PGLOD does renaming if desired.
 Additional Documentation....:To call:
 CALL PGLOD(pname,pnaxx,sc,cr,ierr,p1,p2,p3,p4,p5)
      where:  pname   = program name
              pnaxx   = renamed program (name of restored ID segment) 
              sc      = security name of pname
              cr      = cartridge ref of pname
              ierr    = error code returned here
              p1,,,,,p5  optional parameters
A01901
 Program Name................:PHEDR 
         Title...............:Print large header to user specified namr 
         File Names..........:Submission file 
                              &PHEDR - source code
                              %PHEDR - relocatable
                              LETERS - data file containing large letters 
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:PHEDR will output a large print string to a 
 user specified namr.  See the source code for complete documentation and 
 explanations.
 Additional Documentation....:None
A02001
 Program Name................:SCB 
         Title...............:Dump SCB contents to user specified output
                              device
         File Names..........:Submission file 
                              &SCB   - source code
                              %SCB   - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:SCB is a routine to dump the session control
 block (SCB) contents for a specific session or optionally all sessions 
 to the user's terminal or other designated device.  Optionally, the program
 will output a short or long display and information on passwords.  (BE 
 CAREFUL how this part of the program is used !!!!!)
 Additional Documentation....:See the source code for run command and further 
 documentation
A02101
 Program Name................:SGLOD 
         Title...............:Routine to 'RP' and optionally schedule a prog. 
         File Names..........:Submission file 
                              &SGLOD - source code
                              %SGLOD - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:SGLOD is very similar to the system routine 
 SEGLD except that SGLOD doesn't care where your segments are located.
 Additional Documentation....:None
A02201
 Program Name................:STAT1 
         Title...............:Limited statistical package for HP1000
         File Names..........:Submission file 
                              &STAT1 - source code
                              %STAT1 - relocatable
                              &STPLT - source code for plotting part of STAT1 
                                       please note &STPLT needs to be COMPC'd 
                              *STAT1 - compile transfer file
                              #STAT1 - loader command file
                              *STPLT - compile transfer file
                              #STPLT - loader command file
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:STAT1 is a program to do limited statistical
 analysis on user supplied data.  An accompanying program STPLT will do 
 limited graphics on the resilts from STAT1.
 Additional Documentation....:See the source code for documentation and 
 more detail. 
A02301
 Program Name................:TREAD 
         Title...............:Routine to read data from a 7905/06/20 disc 
         File Names..........:Submission file 
                              &TREAD - source code
                              %TREAD - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:Given the lu,trk,sector TREAD will read and 
 display the actual data on the disc (bypasses any file locks)
 Additional Documentation....:None
A02401
 Program Name................:TRKRD 
         Title...............:Routine to read data from a 7905/06/20 disc 
         File Names..........:Submission file 
                              &TRKRD - source code
                              %TRKRD - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               State.........:Arkansas
               Country.......:USA 
               City..........:Little Rock, Arkansas USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:Given the lu,trk,sector TRKRD will read and 
 display the actual data on the disc (bypasses any file locks)
 Additional Documentation....:None
A02501
 Program Name................:TTYIO 
         Title...............:Easy interface to REIO terminal reads/writes
         File Names..........:Submission file 
                              &TTYIO - source code
                              %TTYIO - relocatable
         Operating System....:
         Language(s).........:
         Package.............:
 Contributor's Name..........:Rickey H. Stacks
               Company.......:Arkansas Dept Of Pollution Control
               Street........:8001 National Drive 
                             :
               City..........:Little Rock 
               State.........:Arkansas
               Country.......:USA 
               Zip Code......:72209 
               Phone Number..:(501) 562-7444
 Program Abstract............:TTYIO is an easy interface to REIO calls. 
 All ABREG checks and buffer lengths are handled by TTYIO.
 Additional Documentation....:To call:
 CALL TTYIO(opt,[400+]ludev,ibufr,lena,lenb,ierr) 
      where:   opt = 1 read 
                   = 2 write
A02601
 Program Name................:CALC
         Title...............:Program For Calculator Functions With An
                              HP-1000 Keyboard Terminal 
         File Names..........:Submission File 
                              "MANUL
                              &CALC 
                              %LIBER
                              %CALC 
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:George J. Wynne 
               Company.......:US Naval Ordnance Station 
               Street........:Code 3024, Bldg. 759
                             :
               City..........:Indian Head 
               State.........:Maryland
               Country.......:USA 
               Zip Code......:20640 
               Phone Number..:(301) 743-4892
 Program Abstract............:
     The computer program (called CALC) supports use of an HP-1000
 terminal in a 'desk calculator' mode.  It was originally developed in
 1975 and new commands were added from time to time.
  
     Some of the more interesting features are: 
  
     A 500 element operational stack of double precision floating point 
 operands (four word double precision is recommended).  Stack elements
 may double as 'memory storage registers'.
  
     Base n I/O mode allows user to input base n (2 <= n <= 35) values
 and enables the display of stack elements in both base n and base 10.
  
     It is programmable. A user may write his own program or programs to
 interface with CALC and then issue commands which cause CALC to schedule 
 with wait any of several programs the user may designate.  The 
 operational STACK and other values are passed on a system disk track 
 between CALC and user written programs.
  
     There are commands for stack storage and retrieval to and from disk
 files and to and from LU's 4 and 5.
  
     An optional list device (LU only) may be enabled to record all 
 input values, commands, and functions and all terminal displays. 
  
     Over 50 commands, functions and operators are implemented.  RTE
 system interfaces are implemented in the manner of FMGR; i.e., the 
 SYstrng, the RU,pnam, and the WH command are implemented. The program
 may be easily extended to include new commands, operators, and/or
 functions. 
  
     The program uses RTE EXEC and FMP subroutine calls.
 Additional Documentation....:
 LARGE BACKGROUND IS RECCOMMENDED (20K REQUIRED)
 LOADING INSTRUCTIONS:
  
    :RU,LOADR 
        RE,%CALC
        RE,%LIBER 
        END 
 :RU,CALC 
 CALC PROGRAMS RESOPNDS WITH # AS A PROMPT.  ENTER ?? TO DISPLAY A BRIEF
 SUMMARY OF ACCEPTABLE PROGRAM COMMANDS.  SEE USER'S MANUAL FOR MORE
 DETAILS. 
A02701
 Program Name................:DIR 
         Title...............:Directory Lister
         File Names..........:Submission File 
                              &DIR
                              $CILBP
                              &CILBA
         Operating System....:RTE-IVB 
         Language(s).........:Pascal
 Contributor's Name..........:Unknown (Within HP) 
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:This is a directory listing similar to FL.
A02801
 Program Name................:EOQ 
         Title...............:
         File Names..........:Submission File 
                              &EOQ
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:Unknown 
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:
A02901
 Program Name................:MMUP
         Title...............:Map User Partition (Microcoded) 
         File Names..........:Submission File 
                              &MMUP 
         Operating System....:RTE-IVB 
         Language(s).........:Microcode 
 Contributor's Name..........:Louis W. James
               Company.......:System Development Corp.
               Street........:1010 Gause Blvd.
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:(504) 255-6506
 Program Abstract............:
 LOAD IN WCS, OR BURN PROMS AND MOUNT ON FEM
       LDA <LOGICAL MAP NUMBER> 
       LDB <PHYSICAL PAGE NUMBER TO START MAPPING>
       LDX <NUMBER OF PAGES TO MAP> 
       MUP (105577, MAP USER PARTITION) 
 THE MUP INSTRUCTION IS SET UP LIKE THE XMS INSTRUCTION WITH THE
 EXCEPTION THAT THE A-REG POINTS AT THE LOGICAL PAGE INSTEAD OF THE 
 PHYSICAL PAGE. 
 ERRORS DESCRIBED IN THE SOURCE 
A03001
 Program Name................:FILE3 
         Title...............:File 3 Utility For HP5451C Fourier Analyzer 
                              System Keyboard Programs
         File Names..........:Submission File 
                              &FILE3
                              &IEQT3
                              "FILE#
         Operating System....:RTE-IVB 
         Language(s).........:Microcode 
 Contributor's Name..........:Louis W. James
               Company.......:System Development Corp.
               Street........:1010 Gause Blvd.
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:(504) 255-6506
 Program Abstract............:
 FILE3 IS A PROGRAM THAT ALLOWS AN OWNER OF AN HP-5451C FOURIER ANALYZER
 TO CREATE AND EDIT KEYBOARD PROGRAMS USING THE RTE EDITOR. THESE 
 KEYBOARD PROGRAMS CAN BE ANOTATED WITH COMMENTS IF THE COMMENTS ARE
 PRECEEDED WITH ' @'. FILE3 THEN CAN TAKE THE FILE WITH THE KEYBOARD
 PROGRAM AND CREATE A BLDFIL FILE SO THAT THE KEYBOARD PROGRAM CAN BE 
 INSTALLED IN THE FOURIER SYSTEM USING THE FOURIER SUPPLIED RTE PROGRAM 
 'FBLDR'. FILE3 ALSO HAS THE CAPABILITIES OF READING A BLDFIL FILE AND
 LISTING IT ON A LIST DEVICE, OR INTO A FILE. IT CAN ALSO ADD OR DELETE 
 KEYBOARD PROGRAMS FROM THE BLDFIL FILE.
 SPECIAL SOFTWARE REQUIRED: FUNCTION IEQT 
 THIS FUNCTION IS SUPPLIED WITH THIS SUBMISSION, AND IS ALSO SUBMITTED
 TO THE LIBRARY UNDER ITS OWN SUBMISSION. 
 Additional Documentation....:
 NO SPECIAL LOAD INSTRUCTIONS 
 PROGRAM DESCRIPTION IS INCLUDED IN EXTENDED DOCUMENTATION
 THIS PROGRAM IS FOR PEOPLE THAT HAVE AN HP-5451C FOURIER SYSTEM AND
 ALSO HAVE RTE-IVB AVAILABLE. THE PROGRAM MAKES SOME OF THE MAINTENENCE 
 AND DOCUMENTATION OF THE HP-5451C EASIER.
A03101
 Program Name................:IEQT
         Title...............:Return Driver Type Of Specified Logical Unit
         File Names..........:Submission File 
                              &IEQT3
         Operating System....:RTE-IVB 
         Language(s).........:Microcode 
 Contributor's Name..........:Louis W. James
               Company.......:System Development Corp.
               Street........:1010 Gause Blvd.
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:(504) 255-6506
 Program Abstract............:
 FUNCTION IEQT WILL RETURN THE DRIVER TYPE FROM THE EQUIPMENT TABLE OF
 THE LOGICAL UNIT SPECIFIED.
 CALLING SEQUENCE:
  FORTRAN:  IDVR=IEQT(LU)            ASSEMBLY:    JSB IEQT
                                                  DEF *+2 
                                                  DEF LU
                                                 <DRIVER TYPE IN A-REG> 
 IN SESSION ENVIRONMENT, IF BIT 15 IS SET, (IE. LU+100000B) THEN THE
 EQUIPMENT TYPE OF THE SYSTEM LU IS OBTAINED, OTHERWISE THE RETURN WILL 
 BE THE EQUIPMENT TYPE OF THE SESSION LU. 
 THIS SUBROUTINE IS HANDY WHEN AN INTERACTIVE ENTRY FOR LOGICAL UNIT
 REQUEST IS MADE. IF THERE IS A RESTRICTION OF WHAT DEVICES MAY BE USED 
 OR A DECISION OF WHAT CODE TO USE DEPENDING ON I/O DEVICE SELECTED,
 THE APPRIATE DECISIONS CAN BE MADE BY COMPARING THE EQUIPMENT TYPE 
 RETURNED. IF A REQUEST FOR AN ILLEGAL LU IS MADE, A -1 IS RETURNED.
A03201
 Program Name................:DS.## 
         Title...............:Programatically Quiesce And Restart DS/1000-IV
         File Names..........:Submission File 
                              &DS.##
         Operating System....:RTE-IVB 
         Language(s).........:Microcode 
 Contributor's Name..........:Louis W. James
               Company.......:System Development Corp.
               Street........:1010 Gause Blvd.
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:(504) 255-6506
 Program Abstract............:
 DS.## CONSIST OF 2 SUBROUTINES, 'DSDN' AND 'DSUP'. DSDN WILL QUIESCE 
 THE DS/1000-IV SYSTEM, AND DSUP WILL RESTART THE DS/1000-IV SYSTEM AND 
 UP ALL DS LOGICAL UNITS. THESE ROUTINES ARE USEFUL WHEN USED WITH REAL 
 TIME DATA ACQUISITION PROGRAMS. THE DS PROGRAMS HAVE A HIGH PRIORITY 
 AND COULD CAUSE LOSS OF DATA BY TAKING UP TIME THAT THE DATA ACQUISITION 
 PROGRAM NEEDS FOR PROCESSING THE DATA. USING THESE SUBROUTINES REMOVES 
 THE NECESSITY OF USING 'DSMOD' TO QUIESCE AND RESTART THE DS SYSTEM, 
 AND ENABLES THE PROGRAMMER TO SHUT DOWN THE SYSTEM, GATHER THE DATA, 
 TURN ON THE SYSTEM, PASS DATA TO ANOTHER NODE, AND REPEAT THE PROCESS
 ANY PROGRAM THAT USES THIS SUBROUTINE MUST BE LOADED WITH ACCESS TO
 TO DOWN DS/1000-IV:                       TO UP DS/1000-IV:
 FORTRAN        ASSEMBLY                   FORTRAN        ASSEMBLY
 CALL DSDN      JSB DSDN                   CALL DSUP      JSB DSUP
                DEF *+1                                   DEF *+1 
  **NOTE** DSDN HAS TO BE CALLED BEFORE CALLING DSUP
A03301
 Program Name................:PFMTX 
         Title...............:Plot Fourier FMTXX Table On The 2648 Terminal 
         File Names..........:Submission File 
                              &PFMTX
         Operating System....:RTE-IVB 
         Language(s).........:Microcode 
 Contributor's Name..........:Louis W. James
               Company.......:System Development Corp.
               Street........:1010 Gause Blvd.
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:(504) 255-6506
 Program Abstract............:
 FMTXX WILL PLOT THE FOURIER SYSTEM FMTXX TABLE ON THE 2648 GRAPHICS
 TERMINAL USING THE AUTO-PLOT FEATURE. THE PLOTS ARE BY SUBCHANNEL, 
 (OR DISC SURFACE). THE PROGRAM WILL PLOT TABLES GENERATED FOR 7900,
 7906, 7920, AND 7925 DISC SYSTEMS. 
 THE PROGRAM WILL REQUEST INPUTS FROM THE OPERATOR IN RESPONSE TO 
 QUESTIONS CONSERNING THE DISC TYPE, FILE NAME OF THE FMTXX FILE, AND 
 THE SUBCHANNEL(OR SURFACE) TO PLOT.
A03401
 Program Name................:RP.OF 
         Title...............:Building ID Segments From Your Program
         File Names..........:Submission File 
                              &RP.OF
         Operating System....:RTE-IVB 
         Language(s).........:Microcode 
 Contributor's Name..........:Louis W. James
               Company.......:System Development Corp.
               Street........:1010 Gause Blvd.
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:(504) 255-6506
 Program Abstract............:
 IN ORDER TO SCHEDULE A PROGRAM FROM ANOTHER PROGRAM, YOU MUST HAVE AN
 ID SEGMENT FOR EVERY PROGRAM THAT YOUR PROGRAM MIGHT SCHEDULE OR YOU 
 ARE GOING TO GET FLUSHED DOWN THE TUBE WHEN YOU TRY TO SCHEDULE THAT 
 PROGRAM. IF YOU HAVE AN ID SEGMENT FOR EACH PROGRAM AND HAVE SEVERAL 
 PROGRAMS, AND THE PROGRAMS ARE NOT RUN OFTEN, THEN YOU ARE NOT 
 EFFICIENTLY USING A VALUABLE SYSTEM RESOURCE, THE ID SEGMENTS. 
 *** THIS SUBROUTINE HAS BEEN MODIFIED TO USE THE SYSTEM ROUTINES 
 'IDRPL' AND 'IDRPD'. THE CALLING SEQUENCE HAS NOT BEEN CHANGED WITH
 THE EXCEPTION THAT THE ERROR ARGUEMENT IS OPTIONAL. THE ERROR IS ALSO
 RETURNED IN THE A-REG, SO IT CAN BE USED AS A FORTRAN FUNCTION. WITH 
 THIS MODIFICATION, EMA PROGRAMS AND PROGRAM SEGMENTS CAN HAVE ID 
 SEGMENTS RESTORED. BY USING 'IDRPL' AND 'IDRPD', THE ID RESTORATION
 AND REMOVAL IS HP SUPPORTED. ****
A03501
 Program Name................:CSORT 
         Title...............:CSORT Will Sort FXL Commands For Minimum
                              Base Page Crossings 
         File Names..........:Submission File 
                              &CSORT
                              'CSORT
         Operating System....:RTE-IVB 
         Language(s).........:Microcode 
 Contributor's Name..........:Louis W. James
               Company.......:System Development Corp.
               Street........:1010 Gause Blvd.
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:(504) 255-6506
 Program Abstract............:
 CSORT IS AN IMPROVED VERSION OF THE CSORT PROGRAM DISTRIBUTED WITH THE 
 HP-5451C FSDS SOFTWARE. TWO IMPROVEMENTS ARE 1, COMMENTS WILL FOLLOW 
 EACH COMMAND PAIR, AND 2, ANOTHER OPTION IN COMPUTING PROGRAM LENGTH 
 IN MODULES WITH COMMON DECLARED. ALL ERRORS DETECTED IN THE ORIGIONAL
 VERSION WERE CORRECTED, AND AN IMPROVED RUN STREAM INPUT WAS IMPLEMENTED 
 RUN STRING PARAMETERS ARE DESCRIBED IN THE EXTENDED DOCUMENTATION. 
 CSORT IS A DIRECT REPLACEMENT OF THE DISTRIBUTED VERSION. THE EXTENDED 
 DOCUMENTATION IS A DIRECT REPLACEMENT OF PAGES 6-6 THROUGH THE TOP 
 HALF OF PAGE 6-13 OF THE 5451C FOURIER ANALYZER SYSTEM SOFTWARE MANUAL,
 PN. 05451-90519 NOV 78.
A03601
 Program Name................:UTIL
         Title...............:General Utility Program That Performs 
                              Several Functions 
         File Names..........:Submission File 
                              &UTIL 
                              $UTIL1
         Operating System....:RTE-IVB 
         Language(s).........:Microcode 
 Contributor's Name..........:Louis W. James
               Company.......:System Development Corp.
               Street........:1010 Gause Blvd.
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:(504) 255-6506
 Program Abstract............:
 THIS PROGRAM IS A GENERAL UTILITY PROGRAM THAT PERFORMS SEVERAL
 FUNCTIONS AS LISTED BELOW: 
   1)LIST PUNCHED CARDS ON LINE PRINTER 
   2)COPY CARD IMAGES ONTO MAG TAPE 
   3)COPY MAG TAPES 
   4)DUMP MAG TAPE TO LINE PRINTER IN SEVERAL FORMATS 
     A)16 BIT OCTAL DUMP / WORD, (8 WORDS / LINE) 
     B)2 BYTE OCTAL DUMP / WORD, (8 WORDS / LINE) 
     C)16 BIT BINARY DUMP / WORD, (6 WORDS / LINE)
     D)16 BIT BINARY DUMP / WORD, (1 WORD / LINE) 
     E)ASCII DUMP 
     F)ASCII DUMP WITHOUT RECORD COUNT LISTED 
  *D IS CALLED"RU,UTIL,DU,BI,[TAPE LU]
    THE MAXIMUM BUFFER SIZE THAT CAN BE HANDELED IS 8400 WORDS
    THE CARD READER IS LOGICAL UNIT 7 
    THE LINE PRINTER IS LOGICAL UNIT 6
    THE TERMINAL IS DRIVER TYPE 00 OR 05 DEVICE 
    THE MAG TAPE IS DRIVER TYPE 23 DEVICE 
 SUBMITTED FUNCTION 'IEQT' IS REQUIRED
  Additional Documentation....: 
 RELOCATE,%UTIL 
 RELOCATE,%UTIL1
 RELOCATE,%IEQT <FUNCTION IEQT IS A SUBMISSION BY ITS SELF> 
  THIS WILL LIST ALL OF THE ACCEPTABLE ENTRYS WITH THE EXCEPTION OF THE 
   BINARY, SINGLE COLUMN DUMP.
 THE PROGRAM WILL CHECK FOR VALIDITY OF RUN PARAMETERS AND INFORM 
 OPERATOR OF ERROR. 
A03701
 Program Name................:SDLUP 
         Title...............:Generates File For Use With SDLS4 In
                              Update Mode 
         File Names..........:Submission File 
                              &SDLUP
                              #SDLUP
                              "SDLUP
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:John J. Dineen
               Company.......:Hewlett-Packard  Medical Div. 
               Street........:175 Wyman Street
                             :
               City..........:Waltham 
               State.........:Mass. 
               Country.......:USA 
               Zip Code......:02254 
               Phone Number..:(617) 890-6300
 Program Abstract............:
 THIS PROGRAM WIL GENERATE THE FILE THAT THE STANDARD SDLS4 PROGRAM 
 WHEN RUN IN THE UPDATE MODE, UPDATES FMGR FILES ON THE SELECTED
 DISC L.U.
  
 USING A CONTROL FILE CALLED ^DATE, SDLUP GENERATES A WORK FILE CALLED
 UPDATE.
  
 THE OPERATER CAN THEN CALL THE PROGRAM SDLS4 AND RUN UPDATE MODE ON
 THE LATEST D.S.D. DELTA TAPE. ANY FILES FOUND ON THE DELTA TAPE
 WITH A NEWER REV CODE BE WRITTEN TO THE SELECTED DISC. 
  
 WHEN THE UPDATE MODE IS COMPLETED, THE UPDATED REV CODES ARE WRITTEN 
 BACK TO THE CONTROL FILE ^DATE.
  
 THE OPERATOR CAN ALSO: 
 1. PRINT THE ^DATE FILE IN A FORMATTED OUTPUT TO ANY LIST DEVICE THATS 
    BEEN SELECTED.
 2. CHANGE THE LIST DEVICE WHEN DESIRED.
 3. RUN SDLS4 IN THE STANDARD MODE. 
 4. RUN ANY SELECTED PROGRAM
 5. PRINT ONLY CHANGES TO THE FILE ^DATE BASED ON REV CODES.
 6. SET/CHANGE DISC L.U. WHERE FILES ARE LOCATED. 
 7. DUMP COPIES OF THE FILES TO MAG. TAPES, PAPER TAPE, CART'S. 
 Additional Documentation....:
 RU,SDLUP,P1,P2,P3
  
 P1 = SYSTEM CONSOLE   << DEFAULT = 1 OR MTM TERMINAL >>
  
 P2 = LIST DEVICE      << DEFAULT = 6  MAY BE CHANGED BY OPERATOR >>
  
 P3 = DISC LU WHERE ^DATE FILE/DATA FILES EXIST 
                       << IF P3 = 0, OPERATOR WILL BE ASKED FOR >>
                       << THE DISC L.U. # BEFORE IT WILL DO     >>
                       << ANYTHING.                             >>
 IF YOU GET AN ERROR MESSAGE WITH A NEGATIVE NUMBER,
 THAT'S THE FMGR ERROR CODE.
  
 IF THE PROGRAM ABORTS WITH AN SC05 ERROR, YOU TRIED TO RUN 
 A PROGRAM WITH SELECTION # 5 THAT WASN'T AVAILABLE.
 WHEN ADDING NEW PROGRAMS TO THE FILE  ^DATE  BE SURE TO USE A
 REV CODE LESS THEN THE ONE ON THE DELTA TAPE.  IE:  1000 
 REMEMBER: PUT PART NUMBER IN PROPER NUMERICAL ORDER. 
  
 THE FILE NAME  UPDATE  IS RESERVED FOR USE BY THE PROGRAM SDLUP
  
 WHEN PROGRAM CODE # 1 IS SELECTED, IF A FILE NAMED  UPDATE 
 EXISTS ON THE SELECTED DISC L.U., IT IS PURGED.
  
 BE SURE TO ENTER THE BATCH FILE NAME AS   UPDATE::DISC LU ## 
  
 EXAMPLE: 
  /SDLS4: ENTER BATCH-FILE NAME: UPDATE::10  ----->  BATCH FILE NAME MUST 
                                                     = UPDATE.
                                                     DON'T FORGET THE LU ## 
  
 THE FILE #SDLUP IS AN INFORMATION FILE CONTAINING INSTRUCTIONS 
 ON RUNNING THE PROGRAM SDLS4 IN THE UPDATE MODE. IF IT ISN'T 
 THERE I JUST SKIP AROUND IT. 
  
  
 IF REFERENCES TO THE RTE-IVB MODULE  FTIME  WAS REMOVED, SDLUP 
 COULD BE RUN ON SYSTEM AS OLD AS RTE-II. 
A03801
 Program Name................:CHESS 
         Title...............:Chess Game
         File Names..........:Submission File 
                              %CHESS
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:Unknown 
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:
 A CHESS game.
A03901
 Program Name................:SORTJ 
         Title...............:Multi-key Interactive Disk-File Sort
         File Names..........:Submission File 
                              %SORTJ    Relocatable for &SORTJ
                              $SORTL    Subroutine Library for SORTJ
                              %R2FMT    Short Formatter included in $SORTL
                              &IERX     Source for routine in $SORTL
                              &LIBER    Source for routine in $SORTL
                              &NAMJ     Source for routine in $SORTL
                              &RANDF    Source for routine in &SORTL
                              &SHELL    A shell sort (not used in SORTJ)
                              &SORT     Another shell sort (not used in SORTJ)
                              &QSORT    A quicksort routine(not used in SORTJ)
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:George J. Wynne 
               Company.......:Naval Ordnance Station
               Street........:Code 3024 Bldg. 759 
                             :
               City..........:Indian Head 
               State.........:Maryland
               Country.......:USA 
               Zip Code......:20640 
               Phone Number..:(301) 743-4892
 Program Abstract............:
      SORTJ is an interactive multi-key disk-file sort.  It will sort 
 any FMP file-type.  Output file options include (1) a sorted copy of 
 the input file, (2) a type-2 file containing the sorted key-records
 and their associated input file LOCF pointers, (3) a type-2 file with
 just the LOCF pointers, or (4) a type-2 file with just the sorted
 key-records.  Notes that options 2, 3, and 4 are very fast because no
 random access of the input file is required. 
  
      Source files for several general purpose routines called by SORTJ 
 are included.  Also source files for two Shell sorts subroutines and 
 a Quicksort subroutine have been included;  these are not called by
 SORTJ, but are included just in case someone might want them for some
 other application. 
Additional Documentation....: 
 RU,LOADR             (note, only files 2 & 3 are required to load).
           LB 
           RE,%SORTJ
           RE,$SORTL
           END
 **ANSWER  26 
 RU,SORTJ      Program is interactive,  just answer the questions 
               If confused, consult comments at the beginning of
               file &SORTJ
 **ANSWER  27 
 I/O EXAMPLE   (Operators responses below show as underlined if this
                file is listed on 264x, 263x, and 262x terminals
                and/or printers)
  
 &dD:RU,SORTJ&d@
  
  INPUT TO BE SORTED
  ENTER FILE NAME IN NAMR FORMAT  &dD"DRC12&d@
  MAXIMUM N0. OF RECORDS TO BE READ FROM "DRC12 ? &dD2222&d@
  
  KEY ? &dD1,6&d@ 
  KEY ? &dD8,10&d@
  KEY ? &dD-1&d@
  
    4 PARTITIONS OF  616 KEY RECORDS
  
  SORTED OUTPUT TO BE CREATED 
  ENTER FILE NAME IN NAMR FORMAT &dDFILEX::AA&d@
  
  OUTPUT OPTIONS ARE: 
  
  1  SORTED COPY OF INPUT FILE
  2  SORTED KEYRECORDS + INPUT FILE POINTERS
  3  INPUT FILE POINTERS ONLY 
  4  SORTED KEYRECORDS
  
  ENTER OUTPUT FILE OPTION &dD1&d@
  
  BEGIN SORT AT TIME  9:19:56 
  
  BEGIN OUTPUT PARTITION  1  AT TIME  9:20: 1 
  
  BEGIN OUTPUT PARTITION  2  AT TIME  9:20: 6 
  
  BEGIN OUTPUT PHASE AT TIME  9:20: 8 
  
   1208 RECORDS READ FROM "DRC12
   1208 RECORDS WRITTEN ON FILEX
  
      $END SORTJ  AT TIME   9:20:25 
  
      SORTJ is an interactive multi-key disk-file sort.  It will sort 
 any FMP file-type.  Output file options include (1) a sorted copy of 
 the input file, (2) a type-2 file containing the sorted key-records
 and their associated input file LOCF pointers, (3) a type-2 file with
 just the LOCF pointers, or (4) a type-2 file with just the sorted
 key-records.  Notes that options 2, 3, and 4 are very fast because no
 random access of the input file is required. 
  
       The description of this program that follows was extracted from
 the the comments at the beginning of the source file &SORTJ. 
  
  
 NOTES: 
  
 1. Schedule the program from the operator terminal 
  
               *ON,SORTJ
  
    The program will request that the operator specify the input file 
    NAMR, sort keys, output file NAMR, options, etc.
  
 2. Number of records that may be sorted is limited by the smaller of 
  
      IBSZ**2 / [(L+1)*(L+IDCBSZ)]   and
  
      128*IFIX[(32767.*L)/128.]/L = MAX. SIZE OF TYPE 2 KEYFIL
  
    where IBSZ is the size of array ICORE, L is the key size
    + 3 in words, and IDCBSZ is the key file partition DCB size used
    in the merge phase. 
  
 3. All input file records are truncated at 128 words (256 bytes) !!! 
  
 4. Program requests maximum number of records on input file. If a
    value less than the actual number of records on the input file
    is entered, then the number of records read from the input file 
    will be equal to that value. See below for remarks on the number
    of records on the output file.
  
 5. Key fields are entered in format C1,NC.  C1 is the 1st byte of
    a key field and NC is the number of bytes in the field.  For
    example 3,5 means that the key field is in positions 3,4,5,6 and
    7.  The program will continue prompting for key fields with:
  
                     KEY ?
  
    until either the operator enters -1 for the value of 'C1' or a
    maximum of 63 fields have been specified. 
  
    The combined key (sum of all NC values) must be <= 250 bytes. 
  
  
 6. Output file options 
  
          (    1  output file will contain input file records in
          (       sorted order
          ( 
          (    2  sorted key records (with input file pointers
 IOPTN =  (       for subsequent use with APOSN)
          ( 
          (    3  input file pointers only
          ( 
          (    4  key records only (no pointers)
  
    Note that options 2,3,& 4 are considerably faster than option 1 
    because direct access reads from the input file are not required. 
  
    User may specify the output file security code and cartridge, 
    but not the type & size.  The output file type & size for option 1
    is the same as for the input file. For options 2, 3, & 4, the output
    file type is 2 and the record length is:
  
        OPTN    RECORD-LENGTH 
        ____    ______________
          2     NKWDS + NPOINTRS     Sorted key-records with pointers.
          3     NPOINTRS             Pointers only. 
          4     NKWDS                Key-records only.
  
    where NKWDS is the number of words required for the composite 
    key field and NPOINTRS is the number of input file pointers 
    required to locate a record (i.e., one for input file types 1 
    and 2 and three for input file types > 2).
  
    The number of records on a type 2 output file maay differ from
    the number on the input file.  This will probable be the case 
    where:
  
      a. the output option is greater than 1, and 
  
      b. the output option is 1, the input file type is 2, and the
      operator specifies a maximum number of input records less than
      the number of records on the input file.
  
    In these cases the last block (physical record) of the type-2 
    output file may have "extra" records.  These will be zero filled. 
  
    The number of such zero filled records written at the end of the
    output file is displayed on the operator terminal. Note that since
    records are at the end of the file, the output is technically 
    out-of-sort. This condition may be corrected by re-sorting
    the output file using option 1; however in programs which are 
    to use the sorted output, I usually just check for the first zero-
    filled record as an end-of-file indicator.
  
 7. *BR,SORTJ - the output file & keyfile will be purged and the
    program will be aborted.
  
 8. Type 'EX' in response to any query and the output file and
    keyfil will be purged. Then the program will be terminated. 
  
 9. The input file will be read and the address of each 
    of its records, along with the key string,
    will be saved in core until the buffer 'ICORE' is full. 
    Then it will be dumped to one of the partitions of
    '#\KYFL'. This process is repeated until all the keys 
    have been created and sorted. At this point there will
    be a number of sorted sub-files existing as partitions of 
    '#\KYFL'. For the next phase '#\KYFL' is opened once (with
    a different DCB) for each partition (sub-file). Then one
    key record is read from each subfile to get started.
    Of these records, the one with the smallest key is determined 
    and the corresponding input file record is transferred to 
    the output file. Then that key record is replaced  by the 
    next sequential record from its partition, and so on until
    all input records have been transferred to the output file. 
  
    For the input and '#\KYFL' creation phase,
    the last part of the array 'ICORE' is used to hold pointer
    data. Pointer values are stored from the top of 'ICORE' 
    downward.  i.e.,
  
                 IPONTR(I) = ICORE(IBSZ+1-I)
  
    Keys and source file addresses are stored starting in ICORE(1). 
    If all of the key strings will fit in memory at once, then the
    key record file (#\KYFL) is not created.
  
 10. For the "RTE"-FORTRAN compiler, make the array ICORE as large as 
    feasible and set IBSZ equal to its dimension. 
  
 11. Arrays were assigned to COMMON because that saves space in the 
    executable program file (i.e., type 6 file or RTE-owned-program 
    file). If you aren't concerned with a couple of tracks of disk
    space, you can change COMMON to DIMENSION. (2/18/80 - If loaded 
    with RTE-IVB LOADR, putting arrays in COMMON doesn't save 
    anything.)
  
  
      Jack McAlister indicated, at the 1981 HP-1000 IUG, that only a
 very few contributions to the PLUS/1000 library were being received. 
 At our installation we have many programs and subprograms that 
 have been designed for our specific needs.  That means that most of
 them lack the completeness (enhancements, extensions, generality and 
 documentation) that we would like to have before submitting them to
 PLUS/1000.  Nevertheless, many of them, such as this one, work quite 
 well and should be of general usefulness.  Realistically we can be 
 fairly sure that we will never have the time to rework our older 
 software to the desired degree of generality and perfectability. 
 However, our future development efforts will be done with the
 possible ultimate submission to PLUS/1000 in mind.  For now, we plan 
 to submit the more gereral modules in this "as is" form.  We hope
 that other users will do the same; it is usually easier to add our own 
 specific "bell" or "whistle" than research and code the entire "guts 
 of the thing" from scratch.
A04001
 Program Name................:DIALUP
         Title...............:General Purpose 'Self-Cleaning' Dialup
                              Capability For Session Monitor
         File Names..........:Submission File 
                              DIALUP    Conference paper with documentaion
                              &ANS00    Modem-Answer program
                              &HUP00    Hang-up program 
                              &EQTNR    EQTNR function (ASMB) 
                              &LGOFC    Class#-routine function (ASMB)
                              &MBYTS    Byte mover (ASMB) 
                              &SLEEP    Delay SBRT
                              &DVB00    Driver (ASMB) 
         Operating System....:RTE-IVB 
         Language(s).........:FTN4 & ASMB 
 Contributor's Name..........:Don A. Wright 
               Company.......:3M Center 
               Street........:Bldg. 263-1B
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:
 Two programs have been developed which work with the contributed 12966A
 BACI card driver DVB00 (contribution # 490) to provide a comprehensive 
 dialup facility.  They provide these capabilities: 
    1. Dialup from any 300- or 1200-baud terminal.
    2. Automatic baud-rate selection at connect.
    3. Automatic cleanup and logoff of a 'dirty disconnect'.
    4. Automatic hangup of idle modems. 
 Auto-answering 2-speed modems are required in addition to DVB00 and
 the BACI card. 
 A modified version of DVB00 is included with this submission, as it is 
 the version which has been tested in this application. 
 This dialup facility was described in some detail in a paper given at
 the 1981 HP-1000 Users Group Conference.  The paper is included with 
 this submission as the major supporting ducument.
 Additional Documentation....:
 NOTE:  The included version of DVB00 is itself very thoroughly 
 documented, in the source document.  That driver is useful for a great 
 many things.  It is, in our experience with this version, very reliable
 and it performs according to its documentation.
 Both ANS00 and HUP00 will supply diagnostic messages to the system 
 console if an error is encountered.  The messages are rather self- 
 explanatory, and the sources for those programs are quite well 
 documented so that the cause for a message may be traced through a 
 program if necessary.
 All included sources contain substantial documenting in the form of
A04101
 Program Name................:INDSC 
         Title...............:Re-Initializes (Purges And Packs) A Disc
                              Cartridge Programatically 
         File Names..........:Submission File 
                              &INDSC
         Operating System....:RTE-IVB 
         Language(s).........:FTN4 & ASMB 
 Contributor's Name..........:William Gieske
               Company.......:Bell Labs 
               Street........:555 Union Blvd. 
                             :
               City..........:Allentown 
               State.........:Pa. 
               Country.......:USA 
               Zip Code......:18103 
               Phone Number..:(215) 439-5137
 Program Abstract............:
  INDSC WILL PROGRAMMATICALLY "PURGE AND PACK" ANY MOUNTED DISC LU.  THE
  PROGRAM IS COMPATIBLE WITH BOTH 96 AND 128 SECTORS/TRACK DISCS.  THE
  ABILITY TO OPTIONALLY SAVE THE FIRST FILE (NO EXTENTS ALLOWED) ON THE 
  DISC LU IS ALSO PROVIDED.  NOTE THAT INDSC DOES NOT CHECK TO SEE IF 
  THE FILE HAS EXTENTS, SO IT IS YOUR RESPONSIBILITY TO NOT ASK IT TO 
  SAVE THE FIRST FILE IF THE FILE HAS EXTENTS.  INDSC IS ONE OF THE PRO-
  GRAMS DESCRIBED IN THE PAPER "INCREASING YOUR PRODUCTIVITY AS A SYSTEM
  MANAGER", PRESENTED AT THE SECOND HPIUG CONFERENCE (1981).  INDSC USES
  THE NORMAL RTE AND FMGR ROUTINES. 
 Additional Documentation....:
  RU,LOADR,,%INDSC
  
  RU,INDSC,P1[,P2]       WHERE
      P1 = DISC LU
      P2 = SAVE FIRST FILE FLAG (OPTIONAL)
           IF P2 = 1, THE FIRST FILE IS SAVED, EXCEPT ON LU 2, WHERE THE
                      FIRST FILE IS ALWAYS SAVED UNLESS P2 = -1 
  
  NO SUCESSFUL COMPLETION MESSAGE IS PRINTED.  IF THE DISC LU IS NOT
  MOUNTED, INDSC WILL TERMINATE WITH A MESSAGE INDICATING THIS TO BE
  THE CASE. 
A04201
 Program Name................:UTERM 
         Title...............:CDC Mode IV Remote Terminal Emulator Software 
                              System (CDC/1000) 
         File Names..........:Submission File 
                              &UTERM   User interface program 
                              &PROMT   Terminal interrupt program 
                              &CDCUT   Driver front-end program 
                              &DVA67   Synchronous modem driver 
                              &#COMN   SSGA module
                              &UTEMC   Optional microcode 
                              &DVZ11   Optional card reader driver
                              'UTERM   Additional program documentation 
         Operating System....:RTE-IVB 
         Language(s).........:ASMB
 Contributor's Name..........:Dale E. Berg
               Company.......:Sandia National Laboratories
               Street........:Org. 5636, PO Box 5800
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:(505) 844-1030
 Program Abstract............:
  CDC/1000 IS A SOFTWARE SUBSYSTEM WHICH EMULATES A CDC MODE IV (200-UT)
REMOTE TERMINAL ON HP MINICOMPUTERS.  IT CONSISTS OF A USER INTERFACE 
PROGRAM (UTERM), A TERMINAL INTERRUPT INTERCEPTION PROGRAM (PROMT), A 
DRIVER FRONT-END PROGRAM (CDCUT), A PRIVILEGED DRIVER (DVA67), A SSGA 
MODULE (#COMN), AND OPTIONAL MICROCODE (%UTEMC) AND CARD READER DRIVER
(DVZ11). THIS SUBMISSION CONTAINS VERSION 4.3  (AUG 1981) WHICH USES
LESS SSGA AND CONTAINS MORE UTERM COMMANDS THAN EARLIER VERSIONS. 
  THIS SUBSYSTEM WILL OPERATE ON A HEWLETT-PACKARD SERIES 1000 MINI-
COMPUTER RUNNING UNDER THE RTE-III, RTE-IVA OR RTE-IVB OPERATING SYSTEM.
IT WILL COMMUNICATE AT LINE SPEEDS OF UP TO 9600 BAUD (MAX. SPECIFIED 
INTERFACE SPEED). IT REQUIRES THE HP 12618A SYNCHRONOUS DATA SET INTER- 
FACE KIT (AND HALF- OR FULL-DUPLEX SYNCHRONOUS MODEM) AND THE HP 12620A 
INTERFACE KIT (OR EQUIVALENT) FOR A PRIVILEGED INTERRUPT FENCE. 
  CDC CENTRAL SITES SUPPORTING MODE IV REMOTE BATCH TERMINALS USE ONE 
OF THREE LINE CODES FOR TERMINAL COMMUNICATIONS: EXTERNAL BCD, INTERNAL 
BCD, OR ASCII.  CDC/1000 WILL OPERATE WITH ANY OF THE THREE LINE CODES. 
  CDC/1000 WILL ACCEPT USER INPUT FROM A CARD READER, DISC FILE, MAG
TAPE, OR TERMINAL AND WILL ROUTE CENTRAL SITE OUTPUT TO ANY COMBINATION 
OF DISC FILE, MAG TAPE, LINE PRINTER, OR TERMINAL.  IT WILL, AT THE 
USER'S COMMAND, AUTOMATICALLY SWITCH FROM ONE INPUT DEVICE TO ANOTHER 
AND FROM ONE SET OF OUTPUT DEVICES TO ANOTHER.  THE USER MAY ALSO 
DIRECT CDC/1000 TO SEARCH A SPECIFIED DISC CARTRIDGE FOR ALL FILES. 
THE CONTENTS OF EVERY FILE ON THAT CARTRIDGE WILL BE TRANSMITTED TO 
THE CENTRAL SITE AS INPUT, AND AS EACH FILE IS READ, IT WILL BE PURGED. 
  THIS SUBSYSTEM USES BYTE AND WORD COMMANDS AS WELL AS NUMEROUS DISC 
FMP CALLS AND RTE SYSTEM ROUTINES. IT REQUIRES THE MESSS SYSTEM ROUTINE 
AND THE MEMORY LOCK OPTION. IT'S USE ON SYSTEMS OTHER THAN RTE-III,IVA, 
OR IVB WILL PROBABLY REQUIRE SOFTWARE MODIFICATION. 
  THE USER MUST GENERATE A NEW PRIVILEGED SYSTEM TO USE CDC/1000. THE 
NEW SYSTEM !!MUST!! INCLUDE THE SSGA MODULE #COMN AND THE DRIVER DVA67. 
THE SYSTEM MUST ALSO BE SET UP TO ENABLE A PROGRAM TO LOCK ITSELF INTO
A PARTITION. IT MAY ALSO (AT THE USER'S OPTION) INCLUDE CDCUT AND PROMT 
AS MEMORY RESIDENT PROGRAMS.
  CDC/1000 MICROCODE IS WRITTEN FOR THE E- AND F-SERIES COMPUTERS, BUT
THE REST OF THE SOFTWARE SHOULD FUNCTION ON AN M-SERIES COMPUTER AS 
WELL AS THE E- AND F-SERIES.
  THE REFERENCE MANUAL FOR CDC/1000 IS "CDC/1000 - A CONTROL DATA 
CORPORATION REMOTE BATCH TERMINAL EMULATOR FOR HEWLETT-PACKARD
MINICOMPUTERS", BERG, DALE E., SAND80-2548, FEB. 1981, SANDIA LABS, 
ALBUQUERQUE, NM, USA, 87185.
Additional Documentation....: 
SEE MANUAL (SAND80-2548) AND COMMENTS IN CODE FOR LOADING INSTRUCTIONS
SEE MANUAL (SAND80-2548) AND COMMENTS IN CODE FOR RUN INSTRUCTIONS
SEE PROGRAM DOCUMENTATION (SAND80-2548) FOR INPUT/OUTPUT
SEE MANUAL (SAND80-2548) AND CODE COMMENTS FOR ADDITIONAL DOCUMENTATION 
SEE PROGRAM DOCUMENTATION (SAND80-2548) FOR ADDITIONAL INFORMATION
  PROGRAM UTERM REQUIRES A 13K PARTITION, PROGRAM PROMT REQUIRES A
2 PAGE PARTITION (OR 430 OCTAL LOCATIONS IF MEMORY RESIDENT), PROGRAM 
CDCUT REQUIRES A 2 PAGE PARTITION (OR 1031 OCTAL LOCATIONS IF MEMORY
RESIDENT), #COMN REQUIRES 3120 OCTAL LOCATIONS IN SSGA, AND DVA67 
REQUIRES 1001 OCTAL LOCATIONS (470 FOR MICROCODED VERSION) IN THE SYSTEM
DRIVER AREA.  THE OPTIONAL CARD READER DRIVER, DVZ11, REQUIRES 1177 OCTAL 
LOCATIONS IN A DRIVER PARTITION, AND THE OPTIONAL MICROCODE, %UTEMC,
REQUIRES 752 OCTAL LOCATIONS ON A WCS CARD. 
  WHEN GENERATING THE PRIVILEGED SYSTEM, BE SURE TO GIVE THE 12618A 
CARDS THE HIGHEST PRIORITY (LOWEST SELECT CODE) LOCATION POSSIBLE,
AFTER THE FEM BOARD AND ANY WCS BOARDS.  THE PRIVILEGED INTERRUPT FENCE 
SHOULD BE PLACED IN THE SELECT CODE IMMEDIATELY ABOVE THE TRANSMIT CARD 
(UNLESS ADDITIONAL PRIVILEGED I/O INTERFACES ARE PRESENT IN THE SYSTEM).
SEE THE SYSTEM MANAGER'S MANUAL FOR MORE INFORMATION ON CREATING AND
GENERATING A PRIVILEGED SYSTEM. 
  THE OPTIONAL CARD READER DRIVER DVZ11 IS CAPABLE OF READING THE MULTI-
PUNCHED CARDS USED BY CDC TO DENOTE END-OF-RECORD AND END-OF-FILE. IT 
INTERPRETS THESE MULTIPUNCHES AS ASCII CHARACTERS # AND @, RESPECTIVELY.
  THE OPTIONAL MICROCODE %UTEMC MAY BE USED IF THE USER HAS A WCS CARD
AND THE ASSOCIATED SOFTWARE IN HIS SYSTEM.  USE OF THE MICROCODE WILL 
SIGNIFICANTLY REDUCE THE SYSTEM OVERHEAD REQUIRED TO OPERATE CDC/1000 
AT THE HIGHER TRANSMISSION SPEEDS.
  PROMS WHICH CONTAIN THE MICROCODE ARE ALSO AVAILABLE. THESE ARE 
INSERTED INTO THE FEM OR FAB BOARD ON YOUR COMPUTER TO REDUCE THE 
CDC/1000 SYSTEM OVERHEAD WITHOUT USING A WCS BOARD AND THE ASSOCIATED 
SOFTWARE.  CDC/1000 MUST BE MODIFIED SLIGHTLY TO USE THESE PROMS. 
CONTACT ME FOR DETAILS. 
  ALTHOUGH THIS SOFTWARE IS WRITTEN FOR THE 12618A SYNCHRONOUS MODEM
INTERFACE KIT (REQUIRING THREE OR FOUR CARDS, DEPENDING ON WHETHER YOU
USE THE WCS CARD), IT COULD EASILY BE MODIFIED TO USE OTHER SYNCHRONOUS 
MODEM INTERFACES (PERHAPS 12967A) RESULTING IN THE USE OF ONE LESS
INTERFACE CARD.  CONTACT ME IF YOU ARE INTERESTED IN SUCH A MODIFI- 
  I AM ALSO INVESTIGATING THE POSSIBILITY OF DEVELOPING A SINGLE CARD 
(ONE INTERFACE CARD, NO PRIVILEGED FENCE) INTERFACE USING A MODIFIED
DS/1000-IV OR BISYNC INTERFACE CARD.  THESE CARDS CONTAIN A MICRO-
PROCESSOR WHICH WOULD BE REPROGRAMMED TO HANDLE ALL THE COMMUNICATIONS
AND PROTOCOL AT THE CARD LEVEL, ELIMINATING THE NEED FOR A PRIVILEGED 
DRIVER AND THE PRIVILEGED INTERFACE CARD.  THIS WOULD GREATLY REDUCE
THE COMPUTER OVERHEAD REQUIRED TO RUN CDC/1000.  TRANSMISSION RATES OF
GREATER THAN 20K BAUD WOULD BE POSSIBLE WITH SUCH A CARD.  THIS TYPE OF 
INTERFACE WOULD ALSO ELIMINATE THE NEED FOR BUFFERS IN THE SSGA AREA. 
DEVELOPMENT OF SUCH A CARD WILL REQUIRE A FAIR AMOUNT OF TIME AND WILL
INVOLVE SOME EXPENSE, BUT IT SHOULD NOT BE GREAT.  IF I CAN GET SEVERAL 
PARTIES TO SHARE IN THE EXPENSE, THE COST TO EACH PARTY SHOULD BE VERY
REASONABLE.  IF YOU WOULD LIKE TO SEE SUCH AN INTERFACE DEVELOPED,
PLEASE CONTACT ME.
  I HAVE A LIMITED NUMBER OF COPIES OF SAND80-2548 AVAILABLE.  CONTACT
ME AT (505) 844-1030 IF YOU WILL BE USING THIS SOFTWARE AND/OR YOU NEED 
A04301
 Program Name................:HPC 
         Title...............:Calculator Functionals With A Keyboard
                              Terminal (Previously Called CALC) 
         File Names..........:Submission File 
                              "HPCM    Documentation (Manual) file
                              %HPC     Relocatable program
                              %LIBER   Relocatable routines for HPC 
                              &HPC     Source 
                              &LIBER   Source for routines for HPC
         Operating System....:RTE-IVB 
         Language(s).........:FTN4/FTN4X
 Contributor's Name..........:George J. Wynne 
               Company.......:Naval Ordnance Station
               Street........:Code 3024, Bldg. 759
                             :
               City..........:Indian Head 
               State.........:Maryland
               Country.......:USA 
               Zip Code......:20640 
               Phone Number..:(301) 743-4892
 Program Abstract............:
      The program HPC  (previously called CALC)  supports use of an HP- 
1000 terminal in a 'desk calculator' mode.  It was originally developed 
in 1975 and new commands were added from time to time.
  
      Some of the more interesting features are:
  
      A 500 element operational  stack  of  double  precision  floating 
point operands  (four  word  double  precision  is recommended).  Stack 
elements may double as 'memory storage registers'.
  
      Base  n  I/O  mode  allows  user  to  input base n (2 <= n <= 35) 
values and enables the display of stack elements in  both  base  n  and 
base 10.
  
      It is programmable. A user may  write his own program or programs 
to  interface  with  HPC.   He  may  then  issue the 'UF' command which 
causes  HPC  to  schedule,  with  wait,  a  particular  program.    The 
operational STACK and other values  are  passed  on a system disk track 
between HPC and user written program. 
  
      There  are  commands  for stack storage and retrieval to and from 
disk files and to and from LU's 4 and 5.
  
      An optional list device (LU only) may be enabled  to  record  all 
input values, commands, and functions and all terminal displays.
  
      Over 50 commands, functions  and  operators are implemented.  RTE 
system  interfaces  are  implemented  in  the manner of FMGR; i.e., the 
SYstrng, the RU,pnam, and the WH command are implemented.  The  program 
may be  easily  extended  to  include  new  commands, operators, and/or 
functions.
  
      EXEC and FMP subroutine calls are used throughout.
Additional Documentation....: 
   :RU,LOADR
   /LOADR: LB 
   /LOADR: RE,%HPC
   /LOADR: RE,%LIBER
   /E 
  
21 PAGES ARE REQUIRED WITH RTE-IVB.  SEE DOCUMENTATION FILE FOR 
COMMENTS WITH RESPECT TO REDUCING THIS SIZE REQUIREMENT.
**ANSWER  26
                 RU,HPC 
  
CONSULT THE DOCUMENTATION FILE FOR DETAILS OF SPECIFIC FUNCTIONS. 
  
HPC issues a '#' prompt;  enter data or one of the following commands.
  
     *           Multiplication X*Y to Y, IP-1. 
     +           Addition X+Y to Y, IP-1. 
     -           Subtraction X-Y to Y, IP-1.
     /           Division X/Y to Y, IP-1. 
  *  ??,n        Display commands on lu n.
  *  A1,n        Annuity whose present value is Y.
     A2          Inverse tangent(Y/X).
     ACOS        Inverse cosine(X). 
     ALOG        10**X. 
     AREA        pi*X**2/4, area of diameter X. 
     ASIN        Inverse sine(X). 
     ATAN        Inverse tangent(X).
     BASE,n      Display X in base n (2 <= n <= 35).
     CF,namr     Create file 'namr' containing stack values.
     CLEAR       Clear stack to all zeroes. 
     COS         Cosine(X). 
     CROOT       X**1/3.
     CUBE        X**3.
     DEG         Convert X from radians to degrees. 
     DIA         SQRT(4X/PI), diameter whose area is X. 
     DS,n        Display S(IP-n+1) to S(IP).
     DS          Display S(1) to S(IP). 
     E           Enter constant e into the stack. 
     END,EX,/E   Terminate program. 
  *  EQ,n        Solution to system of linear equations.
     EP          e**X.
     FRAC        DMOD(X,1), fractional part of X. 
     HALF        X/2. 
     INVER       1/X. 
  *  LL,n        Enable output to list device.
  *  LL,0        Disable output to list device. 
     LN          LOGe(X). 
     LOG,n       LOGn(X), n defaults to 10. 
  *  LS,n        Least squares polynomial fit.
     MOD         MOD(y,X).
     MV,n,l1,l2  Move n values from l1 to l2. 
     P,n         X**n.
     P4          Enter constant pi/4 into the stack.
     PF,namr     Purge file 'namr'. 
     PI          Enter constant pi into the stack.
  *  PLY,n       Polynomial evaluation. 
  *  PR,n        Find all roots of a real polynomial. 
     PT,n,l1     Read n values, starting at l1, from lu 5.
     PU,n,l1     WRITE n values, starting at l1, to lu 4. 
     R           Recall S(0). 
     R,n         Recall S(n). 
     RAD         Convert X from degrees to radians. 
     RD,namr     Read stack values back from 'namr'.
     RF,n,i      Repeat previous command n times decrementing IP
                 by i before each execution.
     ROUND       Round X to nearest integer.
     RP          Move S(IP) to S(IP+1). Advance IP. 
     RP,n        Move S(IP) to next n stack locations. Set IP=IP+n. 
     RU,pnam     Schedule program 'pnam' with wait. 
     S           Store S(IP) in MEM.
     S,n         Store S(IP) in S(n). 
  *  SB,n        Set I/O base = n.
     SC          Sign change. Replace X with -X.
     SET,n       Set stack pointer IP = n.
     SET         Set stack pointer IP = 0.
     SINE        Sine(x). 
  *  SM,n        Summation function.
     SQUARE      X**2.
     SR          X**1/2.
     SS          Suspend this program.
     SW,n,l1,l2  Switch n stack values starting at l1 & l2. 
     SYstrng     Pass 'strng' to RTE for processing.
     TAN         Tangent(X).
     TOP         Advance list lu to top of form.
     TRUNC       Truncate X.
  *  UF,pnam     Schedule program pnam. 
     WH[,,AL/PA] Schedule program WHZAT.
     XY          X**Y.
     Y           Set IP = IP-1. 
     YX          Y**X.
     YY          Set IP = IP-2. 
     Z           Set IP = IP+1. 
     ZZ          Set IP = IP+2. 
SEE DOCUMENTATION FILE (A SHORT MANUAL) 
  
      Since  the  last  revision  the following modifications have been 
made: 
  
      (1) The name of the program has been changed to HPC from CALC  so 
as to resolve the conflict with the FMGR CALCULATE command. 
  
      (2) A polynomial root finder has been added.
  
      (3) The method of scheduling a  user program, with passing of the 
stack  to  the  scheduled  program,  has  been  changed.   In  previous 
versions,  only  programs  starting  with  the characters 'UF' could be 
scheduled with stack passing.   Now  programs  with  any  name  may  be 
scheduled.  See the description of command UF,pnam. 
  
      (4) The FTN4X compiler is  now  used.   It may be changed back to 
FTN4 rather easily.  See Documentation file.
  
      (5)  In an earlier version, one could not enter a zero value into 
the stack in the usual manner.  This has been corrected.
A04401
 Program Name................:EIAIN 
         Title...............:Numerical Control Punched Tape Utilities
         File Names..........:Submission File 
                              *EIAIN   Loader command file
                              &BLK2    Block Data program 
                              &POS     Character position subroutine
                              &VAL     String value subroutine
                              &LGTH    String length subroutine 
                              &EIAIN   Conversion program 
                              &SPTNO   Part number validation subroutine
                              S02437   List of valid partno formats 
                              &EIAOT   Punch out program
                              *EIAOT   Loader command file
                              &SUBHD   Header subroutine
                              &TIC     Position trace subroutine
                              &PACK    String pack subroutine 
                              &FMERR   File access error routine
                              &RS244   Conversion code table
                              &MANRD   Man-readable tape leader 
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:Rexford J. Abbott 
               Company.......:Spectra-Physics Mt. View
               Street........:1250 W. Middlefield Rd. 
                             :
               City..........:Mountain View 
               State.........:California
               Country.......:USA 
               Zip Code......:
               Phone Number..:(415) 961-2550
 Program Abstract............:
FOR CONVERSION OF NUMERICAL CONTROL PUNCHED TAPE DISC IMAGE IN ASCII
TO THE EARLIER FORM OF MACHINE TOOL CHARACTER CODE (EIA RS:244).THIS
CODE IS RECOGNIZED BY THE RESEMBLANCE TO BINARY CODED DECIMAL DITH
  THE TAPE READER REQUIREMENT IS AN H-P 9883 OR EQUIVALENT.THE SOFTWARE 
DRIVER IS DVR00.END OF TAPE IS ASSUMED WHEN EIGHTY BLANK SPROCKET HOLES 
  THE TAPE PUNCH REQUIREMENT IS FO A FACIT 4070 OR H-P 9884 PUNCH WITH
02895-60005 LOGIC INVERTER BOARD. 
  THESE HARDWARE REQUIREMENTS ARE BASICALLY "STANDARD TO AN H-P TURNKEY 
INSTALLATION. 
  EIAIN - READS IN PART NO,OPERATION NO,AND MACHINE LOAD CENTER.THE 
PART NO IS VERIFIED TO S-P FORMAT AND WHEN AN ACCEPTABLE FORMAT IS
ENTERED,THE PROGRAM PROCEEDS.IF FORMAT IS NOT ACCEPTABLE THE CONTENTS 
OF S02437 ARE DISPLAYED AND A NEW PART NO INPUT IS REQUESTED. 
  THE FIRST RECORD IS PREPARED IN SUCH A WAY THAT STRING LENGTH AND 
REGISTRATION ARE AS ANTICIPATED BY THE LATER PUNCH OUT UTILITY. 
CODE READ IN BY THE READER IS THEN CONVERTED INTO ASCII FROM RS:244 
AND STORED ON A FILE SUPPLIED BY THE USER.THIS SOFTWARE ASSUMES THE 
READER TO BE LU # 10. 
  EIAOT - PUNCHES OUT MAN-READABLE PART NUMBER IMAGE OF THE FIRST 
THIRTY CHARACTERS FOUND IN TH FIRST RECORD OF THE PUNCHED TAPE FILE.
REMAINING RECORDS ARE CONVERTED FROM ASCII TO RS:244 AND PUNCHED OUT
ASSUMING A "$" TO BE THE END OF BLOCK CHARACTER.
  THIS PROCESS PROCEEDS UNTIL THE CHARACTER STRING "-END-" IS REACHED.
AT THIS POINT TWO FEET OF LEADER IS OUTPUT AND THE PROGRAM TERRMINATES. 
 Additional Documentation....:
  THE PROGRAM WILL STOP IF THE POSITION SUBROUTINE ENCOUNTERS ANY 
CHARACTERS WHICH ARE OUTSIDE OF THE LIMIT OF ACCEBTABLE CHARACTER CODES 
TO MOST N/C CONTROLLERS.THE VARIABLE IPAR(4) OF THE BLOCK DATA PROGRAM
IS SET TO POINT ERRORS TOWARD THE PRINTER (LU # 6). 
  WHEN AN INVALID CHARACTER IS ENCOUNTERED,THE PROGRAM WILL REPORT
THE COLUMN NUMBER OF THE CHARACTER WHEN ENCOUNTERED.
  THE ROUTINE FMERR REPORTS FILE MANAGER ERRORS WHEN DOING FILE I/O.
THE PASS PARAMETER TO THIS SUBROUTINE IS THE ERROR CODE FROM THE CALL 
OF THE FILE READ OR WRITE.
A04501
 Program Name................:GRABAG
         Title...............:Grab-Bag Of Miscellaneous Software Modules, 
                              Fragments, Etc. 
         File Names..........:Submission File 
                             :"9845F:::4   DOCUMENTATION ON 9895 FLOPPY CONV
                                           > HP9845 
                             :@AUCPY:::4   '@' files are LOADR command files
                             :&AUCPY:::4   AUTO COPY-BACK FROM LUSAV TAPE 
                             :&BASEC:::4   NUMBER BASE CONVERSION 
                             :&BBFIT:::4   BALLISTIC BACKFIT HONEYWELL VERSION
                             :@BENCH:::4
                             :&BENCH:::4   RTE: DOUGS TIMING BENCHMARK
                             :%BGAM :::5   BACKGAMMON 
                             :"BMD  :::4   INPUT DATA FOR NASC6 
                             :&BNCH2:::4   RTE: USED TO CHECK ACCURACY AND
                                           PRECISION
                             :@BNCH2:::4
                             :&CALC1:::4   RTE2 VERSION OF CALC 
                             :&CLB  :::4   GJW CARTRIDGE LISTER 
                             :!CONFI:::7   DIAG CONFIGURATOR 1/4/79 
                             :&COPFL:::3   RETRIEVE INDIVIDUAL FILES FROM 
                                           LUSAVE TAPE
                             :@COPFL:::4
                             :&D1000:::4   PUT HP-1000 DIRECTORY ON HP-9895 
                                           FLOPPY 
                             :@D1000:::4
                             :&DECFL:::4   READS (ETC) FROM PDP-11 FLX TAPE 
                             :@DECFL:::4
                             :&DFUSE:::4   GAMES: DEFUSE
                             :%DLB  :::5   DLB RELOCATABLE
                             :&DLTAB:::4   PDP11 TO HP COPY TAPE & DELETE TABS
                             :&DLX  :::4   PERFORMS DL'S WITH FILE DESCRIPTION
                             :@DLX  :::4
                             :@DLXA :::4
                             :&DLXA :::4   DIRECTORY LIST (AUTO-DLX). Directory 
                                           NAMR="DRC12
                             :*DOJ  :::4   COMPILE AND LOAD DOJ 
                             :&DOJ  :::4   MOD OF NASA PROG &DOC (MODES 1 & 3)
                                           PRAM. DRIVEN 
                             :&DRC45:::4   PUT HP-9845 DIRECTORY ON HP-9895 
                                           FLOPPY 
                             :@DRC45:::4
                             :"DRIC :::4   DRIX USER MANUAL 
                             :&DRIX :::4   CADS: DYNAMIC RESPONSE INDEX 
                             :@DRTS :::4
                             :&EQTSC:::4   LIST EQT'S & SUBS AS FUNC OF LU
                             :&ETA  :::4   EBCDIC TO ASCII TAPE CONVERSION
                             :&ETAX :::4   TRANSLATE 80BYTE EBCDIC TAPES
                             :&EULER:::4   USED TO CHECK OUT QUARTERNION
                                           EQUATIONS
                             :@F9895:::4
                             :&F9895:::4   HP-1000 ASCII TO 9845 DATA ON 9895 
                                           FLOPPIES 
                             :&FANN :::4   COPIES FILES TO SELECTED LU'S, 
                                           mod before using ! 
                             :@FANN :::4
                             :&FDMP2:::4   DISK DUMP BY SECTOR FOR 9895 
                                           FLOPPIES 
                             :&GETFL:::4   RTE: TRANSFER DISK AREA TO TYPE-3
                                           FILE 
                             :@GIRL3:::4
                             :&GIRL3:::4   9872 VERSION OF &GIRL
                             :&INPUT:::4   VPTRJ: OPERATOR INTERFACE SUBROUTINE 
                             :&ISPC :::4   ISP CORRECTIONS BY JANAF PROCEDURE.
                             :&KEYZ :::4   KEYCODE DISPLAY. Simple-minded but 
                                           handy !
                             :&LB45 :::4   SUBS FOR 1000/9845 HP9895 FLOPPY 
                                           CONVERSIONS
                             :%LB45 :::5   Included in $NOSLB for 9895
                                           conversions. 
                             :%LIT  :::5   LIST FILE BY PAGE
                             :"LP21 :::4   HP2621 CONTROL SUBROUTINE DOCU.
                             :&LP31 :::4   PROGRAM FOR 2631 ESCP-SEQS, ETC. 
                             :&UDCA :::4   UNDECLARED MEMORY SUBR'
                             :&UDCF :::4   UNDECLARED MEMORY SUBR'
                             :$NOSLB:::5   LIBRARY, MOST 'NON-SYSTEM' SUBS USED 
                                           BY THESE PROGS 
                             :@LUCPY:::4
                             :&LUCPY:::4   AUTO LU-SAVE (!DSKUP FORMAT) 
                             :%LUPRN:::5   RELOC FOR LUPRN !! BETTER THAN MAPIO 
                                           RU<LUPRN,??
                             :@LUSAV:::4
                             :&LUSAV:::4   DSKUP COMPATIBLE LU SAVE (SEE AUCPY, 
                                           COPFL & LUCPY) 
                             :%MTEST:::5   MAG TAPE EXERCISER 
                             :%MXREF:::5   CROSS REF LISTING OF RELOC. FILES
                             :&NASC6:::4   STEPWISE MULTIPLE LINEAR REGRESSION
                             :&OFFWF:::4   RTE: OFF WAITING FATHER
                             :%OTHEL:::5   GAMES: OTHELLO 
                             :&P7210:::4   9872 LIBRARY for SOME PROGRAMS, NOT
                                           in $NOSLB. 
                             :%P7210:::5   9872 LIBRARY for SOME PROGRAMS, NOT
                                           in $NOSLB. 
                             :&P    :::4   TYPE 7 FILE LOAD & GO for RTE-2
                                           (See P4B). 
                             :&P4B  :::4   RTEIVB VERSION OF &P ABS LOADR 
                             :@P4B  :::4
                             :&PIRL :::4   &GIRL PLOT on 2648. Use library
                                           $G2648 TO LOAD.
                             :&PLYRG:::4   POLYNOMIAL REGRESSION PROGRAM
                             :&PYSCL:::4   TENSILE PROPERTIES 
                             :%QDL  :::5   QUICK DL 
                             :&RDX50:::4   PDP: TESTS RAD50 
                             :&REFMT:::4   SYS/PER DISC DIRECTORY SWITCH for
                                           7900. Carefull !!
                             :&RNTST:::4   RTE: RESOURCE NUMBERS; MINI-DEMO 
                             :%SEEKR:::5   NON DESTRUCTIVE DISK LU VERIFICATION 
                             :@SYNC3:::4   Ignore this. 
                             :&SYNC3:::4   9872 SYNC. Use library %P7210 to load
                             :&TC029:::4   DATA 100 TAPES FROM HW CARDS 
                             :&TCDC :::4   TRANSLATE CDC-BCD TAPE 
                             :&TDMA :::4   TEST DMA STATUS
                             :&TESSD:::4   TEST FOR DVRTP 
                             :&TFMT :::4   DP OUTPUT FORMAT TEST
                             :@TJFAC:::4
                             :&TMGLB:::4   TMGR SOURCE LIBRARY
                             :@TMGR :::4
                             :&TMGR :::4   GJW MOD TAPE MANAGER PROGRAM 
                             :&TR029:::4   DATA 100 TAPES FROM EBCDIC CARDS 
                             :&TT3D :::4   GAMES: 3D TIC TAC TOE
                             :@VPTRJ:::4
                             :&VPTRJ:::4   VERTICLE PLANE TRAJECTORY PROGRAM
                             :&ALADD:::4   CADST ASCII-ID INCREMENTER 
                             :&ATMOS:::4   ATMOSPHERE, U.S. STD. 1962 
                             :&BASE :::4   BASE CONVERSION SUB'T
                             :&BINC :::4   INCOMPLETE BETA FUNCTION 
                             :%BINC :::5   INCOMPLETE BETA FUNCTION, in $NOSLB
                             :&BNDEC:::4   BINARY TO ASCII, zero fill.
                             :&COMP :::4   COMPARE WORDS OR BYTES SUB'T 
                             :&DELAY:::4   CPU DELAY SUB'T
                             :&DET3 :::4   DETERMINANT SR(3X3)
                             :%DVX00:::5   DVR00 MOD FOR 2635 
                             :&ETIME:::4   ELAPSED TIME CALCULATOR FUNCTION 
                             :&FIT3 :::4   FINDS MIDPOINT OF LEAST SQUARES CUBIC
                             :&FORMF:::4   FORM FUNCTION SUBROUTINE 
                             :>B31:::4   RTE: GETS ADDRESS OF TABLE $TB31 
                             :>B32:::4   RTE: GETS ADDRESS OF $TB32 (9895 
                                           FLOPPY). 
                             :%GTB32:::5   GETS ADDRESS OF $TB32 (9895 FLOPPY)
                             :&ICORE:::4   DEMO ON USE OF UNDECLARED MEMORY 
                             :@ICORE:::4
                             :"ICORE:::3   DEMO ON USE OF UNDECLARED MEMORY 
                             :&IEQT :::4   INT=IEQT(DVR#) 
                             :&IERX :::4   FMP ERROR CODE SUBROUTINE
                             :&IGETA:::4   FUNCTION, RETURNS ABS-ADDRESS OF ARG 
                             :&INSER:::4   SUB'RT TO TRANFER BYTES
                             :&INTFC:::4   RTE: GENERAL SYSTEM INTERFACE
                             :&IOCHK:::4   DIBA STATUS ERROR SUBROUTINE 
                             :&IOPSY:::4   FTN CALLABLE .OPSY 
                             :&IOSTA:::4   STATUS ERROR SUBROUTINE
                             :&IRAM :::4   INTEGER ROTATE AND MASK
                             :&IRDIR:::4   RETURNS FILE DIRECTORY ENTRIES 
                                           SEQUENTIALLY.
                             :&IREIO:::4   RUNS REIO WITH FORMAT (don't need
                                           anymore).
                             :&JMOVE:::4   MOVE BYTES 
                             :&JNTFC:::4   RTE: READ COMMAND & PASS TO INTFC
                             :&KPUT :::4   RTE: NON PRIVILEDGED VERSION OF IPUT 
                             :&LIBER:::4   RTE: OP TERM IFACE (PAUSE, STOP,ETC) 
                             :%LIBER:::5   REDIRECT SYSTEM MSGS TO OP-TERMINAL
                                           in $NOSLB. 
                             :&LOCK :::4   LU LOCK/UNLOCK SUB'T 
                             :&LP21 :::4   FUNCTION FOR 2621 ESCP CODES, ETC. 
                             :&NAMJ :::4   RTE: EASY NAMR PROGRAM I/F 
                             :&PARSA:::4   PARSE SUBRT. (GJW) 
                             :&PEFER:::4   RTE: REDIRECTS ERROR MESSAGES LIKE 
                                           LIBER
                             :&PFIT :::4   CUBIC FIT (1ST & 2ND DERIVATIVES)
                             :&QSORT:::4   SORT: LIST SORT OF INTEGERS
                             :%R2FMT:::5   HP-FTN(2) FORMATTER WITH REIO, not 
                                           in $NOSLB. 
                             :&RANDF:::4   RANDOM NUMBER GENERATOR
                             :&RKG  :::4   RUNGE-KUTTA INTEGRATION SUBROUTINE 
                             :&RTEOF:::4   RTE: TURN OFF INTERRUPT (LIKE INTOF) 
                             :&SHELL:::4   SORT: SHELL SORT SUBROUTINE
                             :&SORT :::4   SORT: SHELL ADD-LIST INTEGER SORT
                             :&SUBIA:::4   IA(0) SUBSTITUTE (obsolete, ignore 
                                           this). 
                             :&SWAPB:::4   SWAP BYTES SUB'T 
                             :&TBINC:::4   TEST INCOMP. BETA FN.
                             :&TGTEQ:::4   TEST FUNCTION IEQT 
                             :&THERM:::4   THERMOCOUPLE ROUTINES
                             :&TIRAM:::4   TEST IRAM
                             :&TJFAC:::4   TEST INTFC/JNTFC 
                             :%TMGLB:::5   TMGR LIBRARY, included in $NOSLB 
                             :&TQSRT:::4   DETERMINE QUICKSORT RUN TIME 
                             :&TRANS:::4   EBCDIC TO ASCII SUBROUTINE 
                             :&TSSRT:::4   SORT: COMPARE MISC SORT ROUTINES 
                             : $G2648:::5   Library to load &PIRL.
         Operating System....:RTE-IVB 
         Language(s).........:Various 
 Contributor's Name..........:George J. Wynne 
               Company.......:Naval Ordnance Station
               Street........:Code 3024, Bldg. 759
                             :
               City..........:Indian Head 
               State.........:Maryland
               Country.......:USA 
               Zip Code......:20640 
               Phone Number..:(301) 743-4892
 Program Abstract............:
     GRABAG is a collection of programs, subprograms, documentation 
manuals, test-data-files, etc.  Some of them have not been looked at
in years.  Others have been in use from one to seven years
on first RTE-II systems and later (past 2 years) on RTE-IVB systems.
Quite a few of them came from other sources long since forgotten. 
  
     They are submitted "as is" without attempt at further enhancement, 
extension or documentation.  This should prove interesting to certain 
types of individuals but may be very frustrating to others.  So be
forwarned.  Hopefully most of the programs will load after they have
been compiled.  Relocatables corresponding to most of the subroutine
sources included in this submission have been collected into library
file #58 ($NOSLB).
  
     In general, programs and subroutines use the RTE library modules,
i.e., EXEC, REIO, FMP-subroutines, RMPAR, etc., etc.
  
     We made an effort not to include any modules which fell into 
any of the following categories:
  
     (a)  To specific to our applications to have much general use. 
     (b)  Old and not really appropriate for RTE after RTE-III. 
     (c)  So incomprehensible we were ashamed of them.
     (d)  Suspected of having data sensitive areas (bugs).
     (e)  Have as good or better counterparts in RTE-IVB software.
  
     Load these modules in your program or system in the same manner
you would any program or subroutine.
  
     To load a program like say &TMGR.  First compile it to get 
the corresponding relocatable %TMGR.  Then try the LOADR with 
  
     :RU,LOADR
         LI,$NOSLB
         RE,%TMGR 
         END
  
Hopefully all externals will be satisfied either from $NOSLB or the 
system library.  If you come up with undefined externals, look to 
see if there is a source module in this submission which has the
same name,  if yes compile it and relocate with the main program. 
If you still can't load the program, give me a call and I will
attempt to resolve the problem. 
  
     Note that a number of files submitted are preceeded by '@' 
these are RTE-IVB LOADR command files which we use here to load 
programs of corresponding relocatable name.  These were included
here for information only.
  
     To load &PIRL use library file $G2648.  To load SYNC3 use
library file %P7210.
      See the source listing for individual programs or subprograms.
Most have descriptions in comments (some don't).
  
     GRABAG is a collection of programs, subprograms, documentation 
manuals, test-data-files, etc.  Some of them have not been looked at
in years.  Others have been in use from one to seven years
on first RTE-II systems and later (past 2 years) on RTE-IVB systems.
Quite a few of them came from other sources long since forgotten. 
  
     They are submitted "as is" without attempt at further enhancement, 
extension or documentation.  This should prove interesting, to certain
types of individuals, but may be very frustrating to others.  So be 
forwarned.  Hopefully most of the programs will load after they have
been compiled.  Relocatables corresponding to most of the subroutine
sources included in this submission have been collected into library
file #58 ($NOSLB).
  
     In general, programs and subroutines use the RTE library modules,
i.e., EXEC, REIO, FMP-subroutines, RMPAR, etc., etc.
  
     We made an effort not to include any modules which fell into 
any of the following categories:
  
     (a)  To specific to our applications to have much general use. 
     (b)  Old and not really appropriate for RTE after RTE-III. 
     (c)  So incomprehensible we were ashamed of them.
     (d)  Suspected of having data sensitive areas (bugs).
     (e)  Have as good or better counterparts in RTE-IVB software.
  
     Jack McAlister indicated, at the 1981 HP-1000 IUG, that only a 
very few contributions to the PLUS/1000 library were being received.
At our installation we have hundreds of programs and subprograms that 
have been designed for our specific needs.  That means that most of 
them lack the completeness (enhancements, extensions, generality and
documentation) that we would like to have before submitting them to 
PLUS/1000.  Realistically we can be fairly sure that we will never
have the time to rework our older software to the desired degree of 
generality and perfectability for submission to PLUS/1000.  However,
our future development efforts will be done with the possible 
ultimate submission to PLUS/1000 in mind.  For now we will just 
submit these files in this "as is" form.  We hope that others will
do the same; it is usually easier to add our own specific "bell" or 
"whistle" than research and code the entire "guts" of the thing from
scratch.
A04601
 Program Name................:GRABG1
         Title...............:Grab-Bag Of Miscellaneous Software Modules, 
                              Fragments, Etc., Continued
 This is a continuation of contibution A04501.
A04701
 Program Name................:WHO 
         Title...............:Show Session Users That Are Logged On 
         File Names..........:Submission File 
                             :&WHO     Main program 
                             :%WHO     Relocatable
                             :&MOVEW   ASMB source
                             :&CMPRB   ASMB source
         Operating System....:RTE-IVB 
         Language(s).........:FTN4X 
 Contributor's Name..........:Donald L. Clapp 
               Company.......:Eli Lilly And Co. 
               Street........:307 E. McCarty St.
                             :
               City..........:Indianapolis
               State.........:Indiana 
               Country.......:USA 
               Zip Code......:46285 
               Phone Number..:(317) 261-4458
 Program Abstract............:
THIS PROGRAM USES THE ACCOUNTS FILE OF SESSION MONITOR TO DISPLAY 
THE IDENTITY OF ALL ACTIVE SESSION USERS.   THE COMPLETE IDENTITY 
AND THEIR LOG-ON TIME IS DISPLAYED ON THE SCHEDULEING TERMINAL OR 
ON DEVICE REQUESTED BY FIRST PARAMETER. 
A04801
 Program Name................:FLOW
         Title...............:Flow Charter For FORTRAN Source Code
         File Names..........:Submission File 
                             :*FLOW    Compile, load, and save FLOW 
                             :^FLOW    Loadr command file 
                             :&FLOW    FORTRAN source 
                             :$FLOW    Transfer file to run FLOW
         Operating System....:RTE-IVB 
         Language(s).........:FTN4X 
 Contributor's Name..........:Glen A. Mortensen 
               Company.......:Intermountain Technologies, Inc.
               Street........:P.O.Box 1604
                             :
               City..........:Idaho Falls 
               State.........:Idaho 
               Country.......:USA 
               Zip Code......:83401 
               Phone Number..:(208) 523-7255
 Program Abstract............:
The program FLOW produces flow charts of FORTRAN programs 
directly from the source code.  All FORTRAN IV statements are 
properly handled.  All FORTRAN II statements are properly handled 
except IF ACCUMULATOR OVERFLOW, IF QUOTIENT OVERFLOW, AND IF DIVIDE 
CHECK. The latter three statements will be printed, but no flow 
lines will be drawn.  All FTN4X statements except the structured
programming constructs are properly handled.  Input consists of 
a sequence of FORTRAN source decks.  Each deck is terminated
by an END card. 
 Additional Documentation....:
TR,$FLOW,NAMR 
     WHERE NAMR CONTAINS FORTRAN SOURCE TO BE FLOW CHARTED
A04901
 Program Name................:DBSPB 
         Title...............:Data Base Utilities (92069 IMAGE) 
         File Names..........:Submission File 
                             :&DBSPB   'Better DBSPA' 
                             :&DBSPC   Faster DBSPA 
                             :&DBSEC   Change level words 
                             :&DBMOV   Move setsfile to run FLOW
                             :%DBSPB
                             :%DBSPC
                             :%DBSEC
                             :%DBMOV
         Operating System....:RTE-IVB 
         Language(s).........:FTN4X 
 Contributor's Name..........:Donald L. Clapp 
               Company.......:Eli Lilly And Co. 
               Street........:307 E. McCarty St.
                             :
               City..........:Indianapolis
               State.........:Indiana 
               Country.......:USA 
               Zip Code......:46285 
               Phone Number..:(317) 261-4458
 Program Abstract............:
DBSPB---ENHANCEMENT TO THE STANDARD IMAGE UTILITY, DBSPA. 
DBSPC---PROVIDES LESS INFORMATION THAN DBSPA, BUT RUNS TO COMPLETION
        IN ABOUT TWO SECONDS ON ANY DATA BASE.
DBSEC---CONVERSATIONAL PROGRAM TO CHANGE THE LEVEL WORDS OF A 
        DATA BASE.
DBMOV---THIS PROGRAM WILL MOVE ANY SET OF A DATA BASE TO A DIFFERENT
        DISC CARTRIDGE. 
ALL FOUR PROGRAMS SHOULD BE LOADED AS TYPE 4 (LB) PROGRAMS. 
IF THERE IS A SIZE PROBLEM SOME OF THE PROGRAMS HAVE VERY LARGE 
DCB'S.  THESE COULD BE MADE SMALLER AT THE EXPENSE OF PERFORMANCE.
RU,DBSEC[,P1]   P1 IS THE TERMINAL LU, OPTIONAL.
RU,DBMOV[,P1]   P1 IS THE TERMINAL LU, OPTIONAL.
     THESE TWO ARE CONVERSATIONAL ONLY. 
----------------------------------------------------------------
RU,DBSPB[,P1[,P2[,ROOT[:SC[:CR[,LEVEL]]]]]] 
       WHERE:  P1 IS THE CONSOLE   DEFAULT IS 1 
               P2 IS LIST DEVICE   DEFAULT IS SAME AS P1
               ROOT:SC:CR  IS NAMR OF ROOT FILE 
               LEVEL  IS LEVEL 15 WORD
      IF ROOT OR SC OR LEVEL ARE NOT SUPPLIED IN RUN STRING 
         THEN THEY ARE REQUESTED INTERACTIVELY.   IF CR 
         IS NOT SUPPLIED, IT DEFAULTS TO ZERO.
   DBSPC IS THE SAME AS DBSPB EXCEPT DOES NOT NEED THE LEVEL WORD.
DBSPB---THIS PROGRAM PRODUCES A REPORT THAT IS SIMILAR TO THE 
        OUTPUT OF DBSPA.  THE DATA IS OBTAINED BY EXAMINING EACH
        RECORD OF EACH SET IN THE DATA BASE.  THE ACTUAL NUMBER OF
        FREE RECORDS IN A SET IS COMPARED TO THE VALUE IN THE FREE
        RECORD TABLE OF THE ROOT FILE.   ON MASTER SETS THE NUMBER
        OF SYNONYMS IS ALSO REPORTED. 
DBSPC---THE REPORT PRODUCED BY THIS PROGRAM CONTAINS ONLY THE 
        INFORMATION THAT CAN BE OBTAINED FROM THE ROOT FILE.
DBSPB, DBSEC, & DBMOV ALL REQUIRE EXCLUSIVE USE OF THE DATA BASE. 
NONE OF THESE PROGRAMS USE ANY IMAGE SUBROUTINES. 
A05001
 Program Name................:MSORT 
         Title...............:Quick Memory Sort 
         File Names..........:Submission File 
                             :&MSORT
                             :&.XWRD
         Operating System....:RTE-IVB 
         Language(s).........:ASMB
 Contributor's Name..........:Donald L. Clapp 
               Company.......:Eli Lilly And Co. 
               Street........:307 E. McCarty St.
                             :
               City..........:Indianapolis
               State.........:Indiana 
               Country.......:USA 
               Zip Code......:46285 
               Phone Number..:(317) 261-4458
 Program Abstract............:
'MSORT' IS AN EXTERNAL SUBROUTINE WHICH SORTS AN ARRAY OF RECORDS 
IN MEMORY.  THE SUBROUTINE USES A PARTITION-EXCHANGE SORT TECHNIQUE 
(QUICKSORT) WHICH IS A VERY FAST METHOD OF SORTING UNORDERED ITEMS. 
THE ARRAY IS SORTED IN PLACE INTO ASCENDING ORDER.
THIS VERSION CORRECTS A BUG THAT CAUSED THE ARRAY TO NOT BE SORTED
SOMETIMES.
THIS SUBROUTINE OPERATES IN ANY 21XX CPU WITH ANY(OR NO) OPERATING
SYSTEM. 
IT CONFORMS TO THE FORTRAN CALLING SEQUENCE.
CALLING SEQUENCE - ASSEMBLY 
  
  JSB MSORT 
  DEF *+6 
  DEF RUNAD     ADDRESS OF ARRAY IN MEM.
  DEF LRECL     RECORD LENGTH IN WORDS
  DEF RECNO     NUMBER OF RECORDS IN ARRAY
  DEF SRTOF     OFFSET SORT FIELD WITHIN RECORD (FIRST WORD = 0)
  DEF SRTLN     LENGTH OF SORT FIELD IN WORDS 
 <RETURN> 
  
  CALL MSORT(RUNAD,LRECL,RECNO,SRTOF,SRTLN) 
'MSORT' WILL SORT A MAXIMUM OF 8191 RECORDS.  THE MAXIMUM RECORD
LENGTH IS 128 WORDS.  THE SORT KEY CAN BE ANY LENGTH CONTIGUOUS 
FIELD WITHIN THIS LIMIT.  IF THE KEYS ARE IDENTICAL THE FINAL 
ORDER IS INDETERMINENT. 
IF MSORT IS CALLED WITH RECORD LENGTH GREATER THAN 128 WORDS
THE ROUTINE TRIES TO HALT.
IF USE IS ATTEMPTED ON CPU'S BEFORE THE 21MX SERIES THE 'MX'
INSTRUCTION SET SIMULATOR WILL BE REQUIRED. THIS IS IN THE PLUS 1000
LIBRARY.
A05101
 Program Name................:DSCAN 
         Title...............:Compact Alphabetized Directory List 
         File Names..........:Submission File 
                             :&DSCAN   FTN4 
                             :&MSORT   ASMB 
                             :&.XWRD   ASMB 
                             :&MOPSY   ASMB 
                             :&NSCOM   ASMB 
                             :&MOVEW   ASMB 
                             :&LSHFT   ASMB 
                             :&DATE    ASMB 
         Operating System....:RTE-IVB 
         Language(s).........:FTN4 & ASMB 
 Contributor's Name..........:Donald L. Clapp 
               Company.......:Eli Lilly And Co. 
               Street........:307 E. McCarty St.
                             :
               City..........:Indianapolis
               State.........:Indiana 
               Country.......:USA 
               Zip Code......:46285 
               Phone Number..:(317) 261-4458
 Program Abstract............:
THIS PROGRAM DOES ALPHABETIZED DIRECTORY LISTS.  THE LISTS ARE
FOUR COLUMNS WIDE AND ARE IN ORDER FROM TOP TO BOTTOM OF EACH 
COLUMN.  THE INFORMATION PROVIDED IS: FILE NAME, LOGICAL UNIT,
FILE TYPE, NUMBER OF EXTENTS, AND SIZE OF EXTENT.  THE FILES
TO BE LISTED CAN BE SELECTED BY ANY COMBINATION OF: 
CARTRIDGE REFERENCE OR LOGICAL UNIT, FILE TYPE,SECURITY CODE, 
COMPLETE OR PARTIAL FILE NAME(WILD CARDS).  ANY OR ALL OF THE 
SELECTION CRITERIA CAN BE ALL.
THERE IS ALSO A 'BATCH' MODE THAT WILL LIST ALL FILES ON ONE
LOGICAL UNIT.  THIS WOULD FIT VERY WELL WITH AN LU SAVE.
RU,DSCAN,P1,P2,P3 
    WHERE 
    P1  =  SELECTION INPUT DEVICE(TERMINAL) DEFAULT = 1 
    P2  =  LIST DEVICE    DEFAULT = SAME AS P1
    P3  =  BATCH MODE DISC LU   IF NON-ZERO, ALL FILES HERE.
A05201
 Program Name................:DECAR 
         Title...............:Character String Move/Compare Routines
         File Names..........:Submission File 
                             :&JSCOM
                             :&SFILL
                             :&SGET 
                             :&SMOVE
                             :&SPUT 
         Operating System....:RTE-IVB 
         Language(s).........:ASMB
 Contributor's Name..........:Antero Airola 
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:Finland 
               Zip Code......:28101 
               Phone Number..:(939) 443555
 Program Abstract............:
THIS PACKAGE CONSISTS OF CHARACTER MOVE/COMPARE SUBROUTINES JSCOM, SFILL
SGET, SMOVE AND SPUT. THEY FUNCTION EXACTLY AS THOSE IN STANDARD HP 
DECAR LIBRARY (SEE "DECIMAL STRING ARITHMETIC ROUTINES", HP PART NUMBER 
02100-90140), EXEPT THAT THEY RUN MUCH FASTER.
   THEY CAN BE USED ANYWHERE WHERE STANDARD DECAR IS USED. THEY SPEED 
UP QUERY TREMENDOUSLY, ESPECIALLY IN SORTING IF THEY ARE LOADED WITH
QUERY.
A05301
 Program Name................:MLOAD 
         Title...............:Load Microcode Into The WCS Card
         File Names..........:Submission File 
                             :MICROP  Conference paper with documentation 
                             :&MLOAD  Source
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:Donald L. Clapp 
               Company.......:3M Company
               Street........:3M Center, Bldg. 236-1B 
                             :
               City..........:St. Paul
               State.........:Minnesota 
               Country.......:USA 
               Zip Code......:55144 
               Phone Number..:(612) 736-0248
 Program Abstract............:
MLOAD may be used to load microcode object code from disk files into
one or more 13197A Writable Control Store cards.  It employs the HP 
library routine WLOAD (supplied with the 92061 microprogramming 
package) which, in turn, uses FMP calls and EXEC calls to transfer
the data.  The EXEC calls employ HP driver DVR36 (supplied with 92061)
to accomplish the data transfer to the WCS. 
  
MLOAD also calls the RTE library routines LOGLU, GETST, and NAMR. 
  
MLOAD is described in a paper presented at the 1981 HP-1000 Users Group 
Conference.  The paper is included with this submission as the major
supporting document.  It describes how employ MLOAD interactively or
within a WELCOM (bootup) file.  In addition, the paper is a tutorial on 
writing Fortran-callable subroutines in microcode.
MLOAD can supply 5 different error messages.  Most are self-explanatory,
but 'WLOAD ERRORS' merely provide a 'type' code.  The possible type 
codes are:
  
  1 = Invalid or not enough parameters. 
  2 = Insufficient LU's.
  3 = Invalid LU (i.e. not DVR36) 
  4 = Invalid record format or checksum error.
  
WLOAD and its error codes are described in the DVR36 Programming Manual.
HP driver DVR36 must be generated into the system prior to executing
MLOAD.
A05401
 Program Name................:PREF
         Title...............:Pascal Cross-Reference Debugging Utility
         File Names..........:Submission File 
                             :"PREF   Documentation file
                             :&PREF   Source
                             :*PREF   Transfer file - load and compile
                             :#PREF   Loader command file 
         Operating System....:RTE-IVB 
         Language(s).........:Pascal
 Contributor's Name..........:Jonathan A. Yavner
               Company.......:Money Management Systems, Inc.
               Street........:303 Wyman St. 
                             :
               City..........:Waltham 
               State.........:Mass. 
               Country.......:USA 
               Zip Code......:02154 
               Phone Number..:(617) 890-2070
 Program Abstract............:
THE HEAP SPACE REQUIRED ABOVE THE 14K FOR CODE AND STATIC DATA IS 
DEPENDENT ON THE NUMBER OF PROCEDURES THE REFERENCER MUST HANDLE. 
THE SZ COMMAND IN THE LOADR COMMAND FILE #PREF SHOULD BE INCREASED
IF ** ERROR 1 ** IS RECEIVED WHEN RUNNING THE PROGRAM 
ERROR MESSAGES ARE OF THE FORM ****Error at 00000 *****: (TEXT) 
WHERE 00000 IS THE LINE NUMBER IN THE INPUT FILE WHERE THE ERROR WAS
DETECTED AND (TEXT) IS THE ERROR NAME. AFTER THIS , THE LINE NUMBERS
OF ANY "BEGINS" WHICH HAVE NOT BEEN TERMINATED BY "ENDS" ARE PRINTED
A05501
 Program Name................:DMATH 
         Title...............:A Full Function, Interactive, Multi-Base
                              Terminal Calculator 
         File Names..........:Submission File 
                             :&DMATH
         Operating System....:RTE-IVB 
         Language(s).........:FTN4X 
 Contributor's Name..........:Don R. Rhode
               Company.......:Intermountain Technologies, Inc.
               Street........:1400 Benton  P.O.Box 1604 
                             :
               City..........:Idaho Falls 
               State.........:Idaho 
               Country.......:USA 
               Zip Code......:83401 
               Phone Number..:(208) 523-7255
 Program Abstract............:
DMATH IS AN INTERACTIVE, FULL FUNCTION, MULTI BASE CALCULATOR.
IT INCLUDES STANDARD MATH, TRIG, AND SI-ENGLISH CONVERSION
FUNCTIONS.  IT WILL WORK IN BINARY, OCTAL, DECIMAL OR ANY 
COMBINATION. IT HAS A MEMORY STACK AND A MEMORY.  DMATH FOLLOWS 
ALL STANDARD RULES OF MATH AND IS EASLY ADDED TO FOR SPECIAL
"IN HOUSE" FUNCTIONS OF YOUR OWN DESIGN.  DMATH IS CLEANLY PROGRAMED
AND CONTAINS HEAVY DOCUMENTATION TO ALLOW EACH SITE TO ADAPT IT 
TO THE LOCAL NEEDS.  THE OCTAL FUNCTIONS ARE GREAT FOR DEBUG WORK 
ON MEMORY DUMPS OR ERROR PROBLEMS.  DMATH CAN BE RUN FROM THE EDIT1000
EDITOR WHEN BUILDING INPUT FILES.  NEVER AGAIN HAVE TO LOOK AROUND
FOR A CALCULATOR. 
 Additional Documentation....:
D M A T H   A MATH PROGRAM
    Dmath is an interactive compiler for math statements.  The
form of the statements is based on standard  FORTRAN symbols
and structure but there are many added features.
WHY DMATH:
    DMATH was writen to give a person using a terminal a quick
and easy calculator to help with program input.  For example
if one is editing a input deck and discovers that a 
number is in feet rather then in meters it is posible to run
DMATH from the editor.  One could quickly convert the number
using DMATH and enter it with the editor. 
HOW TO USE DMATH: 
    To use DMATH enter /RU,DMATH in the editer or :DMATH from 
the file manager.  DMATH understands any normal equation as 
you would write it on paper or use it in a program.  For example
to add two numbers you would enter:      10+11=21 
or do an exponent:                       12**3=1728 
Numbers may include powers of ten: 1.23E+5, 34E-15, or 1E3. 
Statements may be made as complex as desired by using perenthies. 
"1+((23-1)**5)/3="  DMATH folows the standard rules of hierarchy and
will unscramble the statement.  If the number is negative it
must be inclosed with the minus sign. (-1)*5=-5 
    DMATH has a memory stack that will hold the last three numbers
generated by the program and one constant.
The stacks (X,Y,Z,M) can be directly used 
in an equation by including the letter of the stack in the equation.
M**2=, or X/Y+Z=.   There is also a built in PI that can be used in 
the same way.  The area of a 1.25ft circle would be PI*1.25**2=4.908. 
A number can be saved in memory by ending the equation with "=M". 
    In working to debug a program often numbers are in binary or
octal.  A binary or octal number can be input by preceding
it with a "B" or a "O".  i.e. "B1011 or "O7257".  DMATH will
convert the numbers to decimal as they are read in.  The answer 
will be in decimal.  It the answer is desired in binary or
octal the equation should be ended with "=B" or "=O".  Mixed
numbers can be used in a equation. B101+O78-10=57 
    In the same way a number preceded by a "R" will be converted
to degrees as it is read in and a number preceded with a
"D" will be converted to radians as it is read in.  The number
labels affect only the single number input after them.  They
are not a function to convert the result of an expression.
For example to add 10 degrees to PI use "PI+D10=3.3161".
  
    DMATH has the following FORTRAN functions:
  
  INT = Integer conversion.     ABS = Absolute value
 SQRT = Square root             LOG = Natural logarithm 
  EXP = Exponential           LOG10 = Common logarithm
  SIN = Sine (radians)         SIND = Sine (degrees)
  COS = Cosine (radians)       COSD = Cosine (degrees)
  TAN = Tangent (radians)      TAND = Tangent (degrees) 
 ASIN = Arcsine (radians)     ASIND = Arcsine (degrees) 
 ACOS = Arccosine (radians)   ACOSD = Arccosine (degrees) 
 ATAN = Arctangent (radians)  ATAND = Arctangent (degrees)
  
    The following conversions are included:(they work both ways)
  
LENGTH:       MF, FM      = Converts meters to feet.
AREA:       M2F2, F2M2    = Converts meters squared to feet squared.
VOLUME:     M3F3, F3M3    = Converts meters cubed to feet cubed.
ANGLES:       RD, DR      = Converts radians to degrees.
TEMPERATURE:  KF, FK      = Converts Kelvin to Fahrenheit.
MASS:       KGLB, LBKG    = Converts kilograms to pounds. 
PRESSURE:   PAPSI, PSIPA  = Converts pascals to psi 
**ANSWER  29
SINCE DMATH IS A FTN4X PROGRAM RUNNING IN THE "BACKGROUND" ANY
IMPROPER MATH STATEMENTS WILL GENERATE THE STANDARD FTN4X ERROR 
CODES THAT MAY BE REFERENCED IN THE FTN4X USER GUIDE UNDER
LIBRARY ERRORS. 
**ANSWER  30
A05601
 Program Name................:F4XHLP
         Title...............:A FORTRAN 4X Help File
         File Names..........:Submission File 
                             :'F4XHLP 
                             :"F4XHLP 
         Operating System....:RTE-IVB 
         Language(s).........:FTN4X 
 Contributor's Name..........:Unknown 
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:
 FORTRAN 4X Help File...
A05701
 Program Name................:DSKMP 
         Title...............:Prints A Map Of The LU Layout On Your Discs 
                              Using Your Answer File
         File Names..........:Submission File 
                             :&DSKMP   Source 
                             :FIL190   Sample answer file 
                             :SAMPLE   Sample map produced by DSKMP 
         Operating System....:RTE-IVB 
         Language(s).........:FTN4/FTN4X
 Contributor's Name..........:Stephen F. Gauss
               Company.......:U.S.Naval Observatory 
               Street........:34th St. & Massachusetts Ave. 
                             :
               City..........:Washington
               State.........:D.C.
               Country.......:USA 
               Zip Code......:20390 
               Phone Number..:(202) 254-4536
 Program Abstract............:
THIS PROGRAM IS DEPENDANT ON THE RTE-IVB FORM OF THE SYSTEM GENERATION
ANSWER FILE.  IT EXAMINES THE ANSWER FILE FOR THE DISK TRACK INFORMATION
AND PRINTS A MAP SHOWING HOW THE DISKS ARE LAID OUT.  COMMENTS FOR EACH 
DISK LU CAN BE PROVIDED ON THE OUTPUT MAP.  MULTIPLE REMOVEABLE CARTRIDG
-ES CAN BE ACCOUNTED FOR.  INSTRUCTIONS FOR USE ARE GIVEN IN COMMENTS AT
THE BEGINNING OF THE MAIN PROGRAM.  DISKS HANDLED ARE THE 7905, 7906, 
7920 AND 7925.  OVERLAPPING LU'S AND UNASSIGNED TRACKS ARE IDENTIFIED.
A SAMPLE ANSWER FILE AND ITS LISTING ARE INCLUDED.  THE NUMBER OF COL-
UMNS ON THE OUTPUT DEVICE ARE REQUESTED AND THE MAP IS STRETCHED TO FIT.
A05801
 Program Name................:RTRVE 
         Title...............:Discrete FMGR File Retrieval From Save
                              Utility Tape File 
         File Names..........:Submission File 
                             :*RTRVE
                             :&RTRVE
                             :© 
                             :&COPFL
                             :&SRDIR
                             :&SBTBL
                             :>DIR
                             :&DIRPT
                             :&MTSKR
                             :&BUFFR
                             :&ERRLU
                             :&CMPAR
                             :&RTVMP
                             :&RTVDM
         Operating System....:RTE-IVB 
         Language(s).........:FTN4 & ASMB 
 Contributor's Name..........:Robert M. Fee 
               Company.......:Home Oil Co. Ltd. 
               Street........:324 8th Av. S.W.
                             :
               City..........:Calgary 
               State.........:
               Country.......:Canada
               Zip Code......:T2P2Z5
               Phone Number..:(403) 232-7220
 Program Abstract............:
THIS PROGRAM ALLOWS DIRECTORY SEARCHES AND INDIVIDUAL FMGR FILE RE- 
TRIEVALS FROM TAPE FILES CREATED BY THE STANDARD RTE-IV DISC BACKUP 
UTILITY PROGRAM SAVE. THE SAVE DATA TRANSFERS CAN BE OF EITHER THE
LU(LOGICAL UNIT) OR UNIT(ENTIRE DISC, ONLINE OR OFFLINE) VARIETY. 
SYS. S/W DEPENDANCE: EXEC, FMGR, DOS RELOCATABLE CALLS
SYS. H/W DEPENDANCE: TAPE DRIVE 
1. TYPE 'RU,RTRVE'
2. MOUNT THE SAVE TAPE AND HIT RETURN 
3. THE TAPE FILE TITLE OF THE FIRST FILE ON THE TAPE WILL BE DISPLAYED
   AND RTRVE WILL ASK IF IT IS THE FILE WANTED. IF IT IS OR THIS IS AN
   LU SAVE FILE AND THE REQUIRED FILE IS FARTHER UP THE TAPE REPLY 'YE'.
   OTHERWISE HIT RETURN.
4. IF THE TAPE FILE IS NEITHER A UNIT NOR AN LU SAVE THE PROGRAM WILL 
   SHUT DOWN WITH AN EXPLANATORY MESSAGE. 
5. RTRVE WILL PROMT WITH 'COMMAND?. A NULL WILL CAUSE THE COMMAND 
   OPTIONS TO BE DISPLAYED. THEY ARE
      'CO' TO COPY A FILE. ONCE SELECTED THE USER IS ASKED THE NAME OF
           THE FILE TO BE RETRIEVED, THE COPY NAME AND THE DESTINATION
           LU. IF THE FILE IS AN UNIT SAVE FILE THE USER IS ALSO ASKED
           THE ORIGINAL LU NUMBER OF THE FILE TO BE RETRIEVED. UP TO 25 
           FILES CAN BE SPECIFIED FOR RETRIEVAL IN THIS STEP ALLOWING 
           THE USER TO WANDER OFF WHILE THE FILES ARE BEING PULLED OFF
           THE TAPE.
      'SE' TO SEARCH A DIRECTORY. FOR A UNIT SAVE FILE THE USER 
           INDICATES THE NUMBER OF THE LU WHOSE DIRECTORY IS TO BE
           SEARCHED. ONCE THE PGM HAS PEELED THROUGH THE TAPE AND RE- 
           COVERED THE CORRECT DIRECTORY THE USER IS PROMTED WITH 
           'FILE NAME?'. THE RESPONSE SHOULD BE A CHARACTER(UP TO 6)
           PATTERN WITH '-' AS THE WILD CHARACTER (AS IN THE FMGR DL
           COMMAND). CONTROL-L WILL PROVIDE A COMPLETE DIRECTORY LIST.
      'FF' TO FORWARD SPACE A SAVE FILE.
      'BF' TO BACK SPACE A SAVE FILE. USE 'FF' AND 'BF' TO POSITION A 
           A MULTI-FILE SAVE TAPE. RTRVE STARTS OVER AT THE BEGINNING 
           OF EACH NEW FILE.
      'EX' TO STOP THE PROGRAM. 
 Additional Documentation....:
1. RTRVE CONSISTS OF A MAINLINE AND 10 SUBS. THE MAINLINE IS LARGELY
   A MENU PROGRAM ALLOWING THE USER TO POSITION THE TAPE AND SELECT 
   SEARCH OR RETRIEVAL FUNCTIONS. 
2. IT SHOULD BE NOTED HERE THAT THE PROGRAM ASSUMES THE SAVE FILE WAS 
   CREATED WITH A 6144 WORD BUFFER. THIS CONSTRAINT IS EASILY MODIFIED. 
3. OPTIONALLY THE PROGRAM EMPLOYS A USER DEFINED TABLE RELATING LOGICAL 
   UNIT, CARTRIDGE AND DISC SUBCHANNEL NUMBERS. IN THE ABSENCE OF THIS
   TABLE THE USER WILL BE PROMTED FOR THE SUBCHANNEL NUMBER OF THE DE-
   SIRED CARTRIDGE. THE SUBCHANNEL TABLE IS CREATE WITH THE PROGRAM 
   RTVMP AND CAN BE INSPECTED WITH THE PROGRAM RTVDM. IF ONE HAS NO 
   KNOWLEDGE OF THE DISC IMAGE ON THE SAVE FILE THE SUBCHANNEL TABLE
   SHOULD BE DISPENSED WITH OR REMOVED(RENAMED) FROM THE SYSTEM.
4. INSTALLATION-
   A. COMPILE THE 9 FTN4 SOURCE FILES &RTRVE, ©T, &COPFL, &SRDIR, 
      &SBTBL, >DIR, &DIRPT, &SPCTP, &BUFFR. 
   B. ASSEMBLE THE 2 ASMB SOURCE FILES &CMPAR AND &ERRLU. 
   C. OPTIONALLY COMPILE THE 2 FTN4 SOURCE FILES &RTVMP AND &RTVDM AND
      LOAD PGMS.
   D. LOAD RETRIEVE WITH LOADR FILE PROVIDED IN FILE #2 OF SUBMISSION.
   E. OPTIONALLY DEFINE SUBCHANNEL TABLE BY RUNNING RTVMP.
1. STOP 1000 - USER DOES NOT LIKE FILE-ID OF SAVE FILE
2. STOP 2000 - FILE UNDER INSPECTION IS NOT STANDARD UNIT OR LU SAVE. 
3. STOP 3000 - DIRECTORY FETCHING SUB IS LOST.
4. STOP 4000 - THERE ARE AN INSUFFICIENT NUMBER OF SYSTEM TRACKS
               AVAILABLE TO THE PROGRAM.
A05901
 Program Name................:QSORT 
         Title...............:Quicksort 
         File Names..........:Submission File 
                             :&QSORT
                             :&SORTR
                             :
                             :
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:Unknown 
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:
A06001
 Program Name................:DVD00 
         Title...............:Driver For Communication With A Modicon P.C.
         File Names..........:Submission File 
                             :&DVD00
         Operating System....:RTE-IVB 
         Language(s).........:ASMB
 Contributor's Name..........:Rick L. Parrish 
               Company.......:Caterpillar Tractor Co. 
               Street........:2000 S. 22nd St.
                             :
               City..........:Lafayette 
               State.........:
               Country.......:
               Zip Code......:47905 
               Phone Number..:(317) 448-5321
 Program Abstract............:
DRIVER DVD00 REQUIRES A SPECIAL CABLE TO CONNECT THE 12966 CARD TO THE
MODICON PROGRAMMABLE CONTROLLER .THIS CABLE IS DEFINED IN THE HEADER
DOCUMENTATION ON THE PROGRAM. 
A06101
 Program Name................:CRTCN 
         Title...............:Programmer Control Of 264x Terminals & Text 
                              Display/Paging
         File Names..........:Submission File 
                             :&CRTCN
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:Al Seminatoresh 
               Company.......:Sperry Univac 
               Street........:3333 Scott Blvd.
                             :
               City..........:Santa Clara 
               State.........:California
               Country.......:USA 
               Zip Code......:95051 
               Phone Number..:(408) 496-3887
 Program Abstract............:
ENABLES THE USER TO PROGRAM THE 264X TERMINALS BY SPECIFING A NUMERIC 
CODE NUMBER AND PROVIDING THE REQUIRED DATA.  ALL ESCAPE CODES ARE
GENERATED BY THIS SUBROUTINE.  PROVIDES PAGED TEXT DISPLAY. 
  
SOFTWARE DEP:  EXEC CALLS,
               HP'S DECIMAL STRING ARITHMETIC.
HARDWARE DEP:  264X TERMINAL. 
 Additional Documentation....:
FOR CRT CONTROL:    CALL CRTCN (ICODE,ITY)
FOR TEXT PAGING:    ICODE = -2
                  5   routine to fill IBUF with text & set IBUFL
                    CALL CRTCN (ICODE,ITY,0,0,IBUF,IBUFL) 
                    IF (ICODE) 5,10,5 
                 10   continue with next task 
NOTE THAT USUAL RULES FOR BUFFER LENGTHS IS REVERSED. 
NEGATIVE ==> # WORDS,     POSITIVE ==> # CHARACTERS.
A "PAGE" IS 15 LINES AND MAY CONTAIN EMBEDDED ESCAPE SEQUENCES.  THE
BUFFER SENT WILL BE SEARCHED FOR CARRIAGE RETURNS AND LINEFEEDS BEFORE
BEING DISPLAYED.  80 CHARACTERS WITHOUT A CARRIAGE RETURN CONSTITUTE
A LINE.  REPEAT CALLS TO CRTCN WITH THE SAME CODE WILL INCREMENT ITS
LINE COUNTER, EVENTUALLY THE USER WILL BE ASKED WHETHER OR NOT TO 
CONTINUE THE LISTING.  A CODE IS ALSO PROVIDED WHICH WILL NOT ASK FOR 
A YE/NO RESPONSE, BUT JUST HOLD THE PAGE UNTIL ANYTHING IS ENTERED. 
@@    JUST HOLDS THE DISPLAY UNTIL THE USER ENTERS ANYTHING 
CONTINUE LISTING [YE/NO]?    (DEFAULT IS YE)
A06201
 Program Name................:D.05
         Title...............:Terminal Driver 
         File Names..........:Submission File 
                             :&D.05 
         Operating System....:RTE-IVB 
         Language(s).........:ASMB
 Contributor's Name..........:Unknown 
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:
 Terminal driver D.05 
A06301
 Program Name................:INSTR 
         Title...............:Format An Inverse Video Instruction Buffer
                              And Display It
         File Names..........:Submission File 
                             :&INSTR
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:Suzanne Trzeciak
               Company.......:Sperry Univac 
               Street........:3333 Scott Blvd.
                             :
               City..........:Santa Clara 
               State.........:California
               Country.......:USA 
               Zip Code......:95051 
               Phone Number..:(408) 496-3887
 Program Abstract............:
INSTR CONSTRUCTS A PROMPTING BUFFER FOR LATER DISPLAY.  THE PROGRAMMER
CAN REQUEST DISPLAY OF TEXT IN INVERSE VIDEO, NORMAL VIDEO OR A 
COMBINATION OF THE TWO.  TYPICALLY A TWO CHARACTER OPCODE IS SHOWN
AND A SHORT EXPLANATION FOLLOWS IN NORMAL VIDEO.  THERE IS NO LIMIT 
TO THE NUMBER OF LINES WHICH CAN BE DISPLAYED, BUT EACH LINE MUST 
CONTAIN LESS THAN 72 CHARACTERS.  EACH LINE REQUIRES A SEPARATE CALL. 
SOFTWARE DEP:  SUBROUTINE CRTCN (PLUS/1000 LIBRARY);
               HP'S DECIMAL STRING ARITHMETIC SUBROUTINES.
HARDWARE DEP:  264X TERMINAL WITH INVERSE VIDEO.
 Additional Documentation....:
AN EXAMPLE FOR USE: 
  
      : 
      : 
      JTTY = LOGLU(I) 
      : 
      CALL INSTR (JTTY,12,2HAA,2,12H FIRST LINE ,12)
      CALL INSTR (JTTY,14,2HBB,2,17H IN-BETWEEN LINES,17) 
      CALL INSTR (JTTY,13,2HZZ,2,10H LAST LINE,10)
      READ (JTTY,100) IANS
      : 
      : 
      CALL INSTR (JTTY,1,7HVOLTAGE,7) 
      READ (JTTY,*) VOLT
      : 
      : 
      CALL INSTR (JTTY,1,0,0,12HNEXT COMMAND,12)
      READ (JTTY,100) IANS
100   FORMAT (40A2) 
      : 
      : 
THE USUAL BUFFER LENGTH CONVENTIONS ARE REVERSED.  CHARACTER
COUNTS ARE POSITIVE, WORD COUNTS ARE NEGATIVE.
A06401
 Program Name................:BIOR
         Title...............:
         File Names..........:Submission File 
                             :&BIOR 
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:Unknown 
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:
A06501
 Program Name................:GTREE 
         Title...............:Program To Show Call Structure And Inter- 
                              Module Linkage
         File Names..........:Submission File 
                             :>REE
         Operating System....:RTE-IVB 
         Language(s).........:FTN4X 
 Contributor's Name..........:Ronald W. Townsen 
               Company.......:Naval Ocean Systems Center
               Street........:Code 5314 Bldg. 106 
                             :
               City..........:San Diego 
               State.........:California
               Country.......:USA 
               Zip Code......:92152 
               Phone Number..:(714) 225-6429
 Program Abstract............:
PROGRAM IS DESIGNED TO SHOW WHAT THE CALL STRUCTURE IS FOR A GIVEN
SET OF ROUTINES.  A PRINTOUT IS PRODUCED WHICH SHOWS WHAT ROUTINE IS
CALLED BY WHAT ROUTINE(S) AND THE ORDER (DEPTH) OF THE CALL STRUCTURE.
THIS PROGRAM IS USEFULL 
IN ANALYZING LARGE SOFTWARE PACKAGES IN WHICH THE USER IS NOT FAMILIAR
WITH THE STRUCTURE OR ORGANIZATION. 
THIS UPDATE IS TO ALLOW USERS TO RUN WITH FTN4X SYSTEMS AND TO ALLOW
A DEEPER CALL STRUCTURE AS WELL AS TO COVER PROBLEMS WITH DEAD END
LOOPING.
 Additional Documentation....:
USER SPECIFIES INPUT COMMAND (FILE OR LU) AND OUTPUT (FILE OR LU) 
IF INPUTS ARE FROM FILE, CONTENTS OF FILE CONTAIN REL FILES TO BE 
USED, 1 PER LINE.  IF INPUT IS FROM TERMINAL, ENTER FILES 1 PER 
REQUEST WITH CTRL D TO TERMINATE FILE INPUT REQEST. 
IF A DEPTH OF CALL STRUCTURE REACHES 30 CALLS DEEP, PROGRAM PRINTS
MESSAGE ON TERMINAL AND TERMINATES.  THIS CAN BE EXTENDED, BUT REQUIRES 
MOD OF PRINTER OUTPUT (CURRENTLY BUILT FOR 128 CHAR PRINTER OUTPUT).
AND STORAGE ARRAYS INTERNAL TO PROGRAM. 
ALL BASIC DISCUSSIONS OF PROGRAM CAN BE FOUND WITHIN PROGRAM CODE.
A06601
 Program Name................:CLEAN 
         Title...............:Clean Extents On Any Disk LU
         File Names..........:Submission File 
                             :&CLEAN
         Operating System....:RTE-IVB 
         Language(s).........:FTN4/FTN4X
 Contributor's Name..........:Steven J. Mastrianni
               Company.......:Gerber Garment Technology 
               Street........:55 Gerber Rd. 
                             :
               City..........:South Windsor 
               State.........:Conn. 
               Country.......:USA 
               Zip Code......:06074 
               Phone Number..:(203) 644-2401
 Program Abstract............:
 CLEAN IS A GENERAL PURPOSE CLEAR EXTENTS THAT REPLACES THE OLD 
HP ADVERTISED CLEXT PROGRAM. CLEAN DOES NOT PROMPT THE USER FOR 
ANY ADDITIONAL INFORMATION, AND RUNS ENTIRELY UNINTERRUPTED UNTIL 
DONE. THE FILE EXTENTS ARE CLEARED BY STORING ALL FILES WITH EXTENTS
INTO A TEMP FILE, PURGING THE OLD FILE, AND RENAMING THE TEMP FILE. 
SECURITY IS MAINTAINED. THE DISK IS NOT AUTOMATICALLY PACKED..THAT
IS UP TO THE USER. IF THE DISK SHOULD BECOME FULL DURING A CLEAN, 
THE OPERATOR IS NOTIFIED, AND TOLD TO PACK THE DISK AND RUN CLEAN 
AGAIN. THIS PROGRAM WORKS WITH ALL TYPES OF FILES, AND HAS BEEN 
TESTED UNDER RTE-IVA, IVB WITH 7900, 7906, 7920, 7925, AND EVEN 
THE 9895 FLOPPY DISK WITH ICD INTERFACE. IT HAS BEEN TESTED ON
RTE-XL WITH THE 7906HR AND THE 7908HR, 9895 FLOPPY, ALL WITH
HP-IB INTERFACE. KEEP IN MIND YOU CANNOT PACK THE RTE-XL SYSTEM 
DISK! 
 Additional Documentation....:
RU,CLEAN,LOGLU,DISKLU 
WHERE:
LOGLU IS THE TERMINAL YOU ARE AT (SESSION DEFAULT TO 1) 
DISKLU IS THE NEGATIVE DISK LU OR POSITIVE CARTRIDGE NUMBER 
A06701
 Program Name................:COMPL 
         Title...............:COMPL To Compile/Assemble/Merge Source Files
         File Names..........:Submission File 
                             :&COMPL
         Operating System....:RTE-IVB 
         Language(s).........:FTN4/FTN4X
 Contributor's Name..........:Steven J. Mastrianni
               Company.......:Gerber Garment Technology 
               Street........:55 Gerber Rd. 
                             :
               City..........:South Windsor 
               State.........:Conn. 
               Country.......:USA 
               Zip Code......:06074 
               Phone Number..:(203) 644-2401
 Program Abstract............:
 COMPL IS A PROGRAM DEVELOPMENT TOOL, PRIMARILY USED FOR APPLICATIONS 
SOFTWARE DEVELOPMENT. IF YOU HAVE EVER MODIFIED A LARGE, SEGMENTED
PROGRAM THAT DECLARES COMMON IN EVERY SEGMENT, AND HAD TO CHANGE ONE
WORD IN COMMON, YOU WOULD HAVE TO EDIT ALL SOURCES TO REFLECT THE 
CHANGE. WITH THIS PROGRAM, THE PROGRAMMER PLACES A %M,NAMR IN THE 
SOURCE CODE, COLUMN 1, WITH THE NAMR BEING THE COMMON FILE. THIS
VERSION WILL READ THROUGH THE FILE MERGING IN ALL FILES INTO THE
SOURCE, AND COMPILING THEM. IT IS THERFORE NECESSARY TO HAVE ONLY 
ONE FILE THAT DECLARES COMMON. THIS CAN ALSO BE USED TO MERGE IN
CONFIDENTIAL DISCLOSURE STATEMENTS, COMMENTS, ETC. THE COMPILATION
(OR ASSEMBLY) TAKES PLACE FROM A TEMP '.' FILE ON THE HOME CR IF A
MERGE DIRECTIVE WAS FOUND, ELSE IT USES THE ORIGINAL. IF A SINGLE 
CHARACTER RELOCATABLE FILE IS SPECIFIED, THE FIRST CHARACTER OF THE 
SOURCE FILE IS REPLACED WITH THIS TO FORM THE RELOC. NAME. THUS,
THE COMPILED FTN4 PROGRAM SPROG WITH THE > SPECIFIED AS OUTPUT, 
WOULD HAVE A RELOC OF >PROG. IF '>PROG' ALREADY EXISTS, IT IS PURGED
PRIOR TO COMPILATION. ALL TEMP FILES ARE CLEANED UP IF THE PROGRAM
ABORTS OR COMPLETES NORMALLY. THE RELOCATABLE FILE MAY ALSO BE A
TOTALLY UNIQUE FILE NAME ON A DIFFERENT LU. 
 Additional Documentation....:
RU,COMPL,SOURCE,LIST,RELOC,.....OPTS AS IN HP COMPL 
RU,COMPL,SOURCE,1,>::?? CAUSES RELOC >OURCE TO BE PLACED ON LU ?? 
RU,COMPL,SOURCE,6 CAUSES NO RELOC TO BE GENERATED.
****************************************
**** NOTE -- CR MUST BE SPECIFIED  *****
****************************************
PROGRAM IS BREAKABLE BY THE 'BR' COMMAND
 NO MERGE COMMANDS WITHIN A MERGE FILE ARE PERMITTED !! 
A06801
 Program Name................:CLINE 
         Title...............:Count Code And Comment Lines And Issue A
                              Report
         File Names..........:Submission File 
                             :&CLINE
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:Steven J. Mastrianni
               Company.......:Gerber Garment Technology 
               Street........:55 Gerber Rd. 
                             :
               City..........:South Windsor 
               State.........:Conn. 
               Country.......:USA 
               Zip Code......:06074 
               Phone Number..:(203) 644-2401
 Program Abstract............:
 CLINE IS A USEFUL PROGRAM THAT COUNTS THE NUMBER OF LINES OF CODE
AND COMMENTS ON A COMPLETE DISK LU FOR EVERY FILE. COMMENTS ARE LINES 
THAT BEGIN WITH '*' OR 'C'. THE REPORT ALSO DISTINGUISHES BETWEEN 
FORTRAN, ASSEMBLY LANGUAGE, AND MISC. TYPE FILES. A TOTAL IS PRINTED
TO THE LIST DEVICE WHEN THE PROGRAM HAS FINISHED. ALSO, AS EACH 
FILE IS PROCESSED, THE RESULTS ARE ECHOED TO THE LIST DEVICE PER FILE.
RU,CLINE,LOGLU,LISTLU,DISKLU
WHERE:
LOGLU=CURRENT SESSION TERMINAL (1) OR OTHER LOG..DEFAULT=1
LISTLU=LIST DEVICE LU (NOT A NAMR)
DISKLU=NEGATIVE DISK LU OR POSITIVE CART. REF. NUMBER 
ALL FMP ERRORS ARE LISTED 
A SAMPLE LOG WOULD BE:
'TYPE=ASMB / FILE=&ASMB / CODE=32.0 / CMTS.=30.0 / TOT.=62.0
'TYPE=FTN4 / FILE=&FTN4 / CODE=88.0 / CMTS.=60.0 / TOT.=148.0'
AT END THE REPORT IS PRINTED
'TOT CODE=170.0 / TOT CMTS.=90.0 / TOT LINES=210.0
'1 ASSEMBLY MODULES'
'1 FORTRAN  MODULES'
GOOD LUCK ! 
A06901
 Program Name................:SNAPL 
         Title...............:Searches RTE L/XL Snap File For Requested 
                              Entry Point 
         File Names..........:Submission File 
                             :&SNAPL
         Operating System....:RTE-IVB 
         Language(s).........:ASMB
 Contributor's Name..........:Steven J. Mastrianni
               Company.......:Gerber Garment Technology 
               Street........:55 Gerber Rd. 
                             :
               City..........:South Windsor 
               State.........:Conn. 
               Country.......:USA 
               Zip Code......:06074 
               Phone Number..:(203) 644-2401
 Program Abstract............:
 SNAPL IS A GENERAL PURPOSE PROGRAM TO SEARCH THE GENERATOR BUILT 
SNAP FILE, CALLED 'SNAP' FOR A REQUESTED ENTRY. 
CALL SNAPL(INAME,IERR)
WHERE:
INAME=ADDRESS OF 3 WORD INTEGER ARRAY CONTAINING THE ENTRY POINT NAME 
IERR =RETURNED STATUS (EXPANDED BELOW)
IERR =1 SNAP FILE READ ERROR
IERR =2 SNAP FILE OPEN ERROR
IERR =3 SNAP FILE CLOSE ERROR 
IERR =-6 ENTRY NOT FOUND OR SPELLED WRONG 
B REGISTER SET TO TYPE OF ENTRY POINT (MEM RES, RP, ETC.) 
 IF THE SNAP FILE IS NOT CALLED 'SNAP', AN ADDITIONAL PARAMETER 
COULD BE ADDED WHICH COULD BE THE SNAP FILE NAME. 
A07001
 Program Name................:HP97
         Title...............:HP97 Calculator Simulator 
         File Names..........:Submission File 
                             : /TRANS - COMPILE LOADR TRANSFER FILE 
                             : #HPLOD - LOADR COMMAND FILE FOR PRELIM PROGRAM 
                             : #HP97  - LOADR COMMAND FILE FOR HP97 PROGRAM 
                             : &CMOVE - BYTE MANIPULATION ROUTINE 
                             : &IFIND - BYTE(S) SEARCH ROUTINE
                             : &UTFT4 - UTILITY ROUTINES IN FTN4X 
                             : &HPLOD - SOURCE FOR PRELIMINARY COMMAND TABLE
                                        PREP
                             : &HPSUB - SOURCE CODE FOR HP97 SUBROUTINES
                             : &HP97A - SOURCE CODE FOR HP97 MAIN PART A
                             : &HP97B - SOURCE CODE FOR HP97 MERGE A AND B
                             : 'HP97  - HP97 USER'S GUIDE 
                             : &TRIAN - SAMPLE OF AN HP97 PROGRAM FILE
                             : !HP97  - HP97 COMMANDS FILE
         Operating System....:RTE-IVB 
         Language(s).........:FTN4X/ASMB
 Contributor's Name..........:Gregory D. Rise 
               Company.......:Hastad Engineering Co.
               Street........:
                             :
               City..........:Hastad
               State.........:
               Country.......:
               Zip Code......:56548 
               Phone Number..:(218) 456-2121
 Program Abstract............:
HP97 simulates the HP97 programmable calculator allowing HP 1000
users to use their terminals as a calculator.  The program includes 
the ability to have 100 data registers, 999 program steps and several 
other enhancements to the calculator. 
  
The HP97 handbooks and program sources are compatible.
  
The program makes use of both FMP and EXEC system routines. 
The program requires that the FTN4X compiler be sized at 20 pages 
when compiling the main program.  Also, consideration must be given 
to the revision date of user's RTE-IVB as to whether the FTN4X routines 
are in the system library or come from a seperate library.
Before running the HP97 it is required that the program HPLOD has been
run before so that the file @HP97 exists and has been properly filled 
with the commands from the file !HP97. (Note: @HP97 is type 1 size 32)
  
So long as @HP97 exists all that is required is RU,HP97.
A07101
 Program Name................:TINT
         Title...............:
         File Names..........:Submission File 
                             :&TINT 
         Operating System....:RTE-IVB 
         Language(s).........:FTN4X 
 Contributor's Name..........:Unknown 
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:
A07201
 Program Name................:DUNGN 
         Title...............:Dungeons And Dragons Game 
         File Names..........:Submission File 
                             :&DUNGN  - Dungeons and Dragons source 
                             :DUNTXT  - Dungeons and Dragons text file
         Operating System....:RTE-IVB 
         Language(s).........:FTN4X 
 Contributor's Name..........:Unknown 
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:This is the source for Dungeons and Dragons 
 that so many have wanted and waited for.  This copy has not been edited
 to work on the HP-1000.  Anyone who gets it going please re-submit to
 the library for all others to share. 
A07301
 Program Name................:PLUS
         Title...............:PLUS/1000 Mag Tape Software 
         File Names..........:Submission File 
                             :&PLUSR  - PLUS/1000 Retrieval progrm
                             :%NINIT  - Subroutine for PLUSR
                             :&PLUSW  - PLUS/1000 Store program 
                             :%JULIA  - Subroutine for PLUSW
                             :%IRAM   - Subroutine for PLUSW
                             :%NEXTN  - Subroutine for PLUSW
                             :        - Subroutine %NINIT is also required
                                        for PLUSW 
         Operating System....:RTE-IVB 
         Language(s).........:FTN4X/ASMB
 Contributor's Name..........:
               Company.......:
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:This is the sources that so many people who 
 are on RTE-6 need to retrieve programs from the earlier PLUS/1000 mag
 tapes.  Corrections are required in &PLUSR to enable correct operation.
A07401
 Program Name................:WOLF
         Title...............:WOLF Word Processing User's Manual
         File Names..........:Submission File 
                             :WOLMAN  - Wolf User's Manual
         Operating System....:RTE-IVB 
         Language(s).........:
 Contributor's Name..........:Darlene Bosonetta (TDC) did the typing
               Company.......:Technology Development of California
               Street........:Suite 130   624 Six Flags Drive 
                             :
               City..........:Arlington 
               State.........:Texas 
               Country.......:USA 
               Zip Code......:76011 
               Phone Number..:(817) 461-1242
 Program Abstract............:This is the Wolf user's manual that many
 people have needed.  To those who have waited so long, it took quite 
 a long time to keyboard this in spare time.
A07501
 Program Name................:GSUBS 
         Title...............:Convert GPS Graphics to AGP Graphics
         File Names..........:Submission File 
                             :&GSUBS
                             :&PARAM
                             :PARAMS
         Operating System....:RTE-IVB 
         Language(s).........:FTN4
 Contributor's Name..........:Elaine M. 
               Company.......:Hewlett Packard 
               Street........:
                             :
               City..........:
               State.........:
               Country.......:
               Zip Code......:
               Phone Number..:
 Program Abstract............:
    GSUBS is a subroutine package that uses GRAPHICS/1000-II AGP
    (Advanced Graphics Package) to simulate GRAPHICS/1000 GPS (Graphics 
    Plotting Software) calls.  It can be used as an aid to more quickly 
    and easily convert already existing GPS programs to AGP.
    Why would you want to convert from GPS to AGP?  Well, AGP affords 
    the user the following advantages over GPS: 
  
        1) Faster programs
        2) Wider device support 
        3) Wider operating system support 
  
    In addition, AGP provides more extensive graphics capabilities, 
    if the user chooses to take advantage of them.
  
    GSUBS was designed to minimize change to the source code of the 
    GPS application program.  For all GPS subroutines simulated in
    GSUBS, the format of the original call has been maintained.  All
    parameters are passed in a manner identical to the original GPS 
    call, and all GPS default values are maintained.
  
    Because of basic functional differences between GPS and AGP, an 
    automatic conversion via GSUBS cannot be guaranteed.  Consequently, 
    the source code for the GPS application program must be edited
    to use GSUBS.  Changes to the source code primarily account for 
    differences in graphics text handling and the use of the IGCB, and
    for replacing subroutines that have not been converted.  Below is a 
    short example to highlight the main source code changes that are
    necessary.