F00101
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: FMFMP
Title....................: Disk Space Management Package
File Names...............: 1. Submission File
: 2. &FMFMP FMP CALL TRAP ROUTINE
: 3. &SMFUP MASTER DIRECTORY UPDATE PROG
: 4. &REDIT PROG TO CHANGE ENT'S IN %BMPG3
: 5. &DISKM DISK SPACE UTILIZATION REPORT
: 6. &CRMDF PROG TO CREATE A MASTER DIRECTORY
: 7. =FMFMP PROCEDURE FILE TO ASSEMBLE FMFMP
: 8. =SMFUP PROCEDURE FILE TO COMPILE SMFUP
: 9. =REDIT PROC. FILE TO COMPILE & LOAD REDIT
:10. =DISKM PROC. FILE TO COMPILE & LOAD DISKM
:11. =CRMDF PROC. FILE TO COMPILE & LOAD CRMDF
:12. ^SMFUP LOADR CMND FILE TO REPLACE SMFUP
ONLINE
:13. ^REDIT LOADR COMMAND FILE TO LOAD REDIT
:14. ^DISKM LOADR COMMAND FILE TO LOAD DISKM
:15. ^CRMDF LOADR COMMAND FILE TO LOAD CRMDF
:16. =SUBLB PROC. TO BUILD RELOCATABLE LIBRARY
:17. "SUBLB MERGE LIST TO BUILD RELOC. LIBRARY
:18. &MDY LIBRARY ROUTINE
:19. &MOVEC LIBRARY ROUTINE
:20. &CLADD LIBRARY ROUTINE
:21. &IBCMP LIBRARY ROUTINE
:22. &CLBUF LIBRARY ROUTINE
:23. &YESN2 LIBRARY ROUTINE
:24. &ERREP LIBRARY ROUTINE
:25. &IMBT LIBRARY ROUTINE
:26. *DISKM PREFORMATTED SEC. CODES FILE
(TYPE 2)
:27. "INSTL INSTALLATION INSTRUCTIONS
:28. "DIMGR DESCRIPTION OF THE PACKAGE
Operating System.........: RTE-IVB
Language(s)..............: FTN4X, ASMB
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: David S. Jeffries
Company.......: Factory Mutual Engineering
Street........: 1151 Boston Providence Hwy.
City..........: Norwood
State.........: MA
Country.......: USA
Zip Code......:
Phone Number..: 617/772-4300
Program Abstract............:
A software package which facilitates the management of disk space
on the HP/1000 system is described. This package complements the FMGR
directory with file ownership and access data. This software operates
on a level above the existing File Management Programs by trapping all
calls to CREAT, ECREA, OPEN, OPENF, NAMF, and PURGE. Once installed,
this software provides the information necessary to limit on line disk
space utilization to "active" files. Reports can be generated which
identify file size, ownership, and activity, including last date used.
Inactive files are flagged on these reports, which may be distributed to
the file owners. Additionally, all scratch (zero security code) files
may be purged regularly. The overall effect is the elimination of
"dead wood" and more efficient use of the available disk space.
Additional Documentation....:
F00201
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: DIALUP
Title....................: General Purpose 'Self-Cleaning' Dialup
Capability for Session Monitor Systems.
File Names...............: 1. Submission file.
2. DIALUP Conference Paper & Documentation
3. &ANS00 Modem-answer Program, FTN66
4. &ANSLB ANS00 library, ASMB
5. &DVW00 Driver Source, ASMB
6. %DVW00 Driver Relocatable
Operating System.........: RTE-IVB and RTE-6/VM
Language(s)..............: FTN4X or FTN77, and ASMB or MACRO
External Support Req'd...: None
If Re-submission, Reason.:
Contributor's Name..........: Donald A. Wright
Company.......: 3M Company
Street........: 3M Center, Bldg. 236-1B-18
City..........: St. Paul
State.........: MN
Country.......: USA
Zip Code......: 55144
Phone Number..: 612/736-0248
Program Abstract............: November 4, 1982
This is a resubmission (and update) of a similar dialup facility on
the 2213 CSL/1000 tape, which was corrupted.
The program ANS00 cooperates with driver DVW00 to provide a dialup
capability having these capabilities:
1. Dialup from virtually any 300- or 1200-baud ASCII terminal.
2. Automatic baud-rate selection at connect.
3. Automatic cleanup and logoff of a 'dirty disconnect'.
An auto-answering 2-speed modem is required, in addition to the 12966A
interface card.
Additional Documentation....:
This dialup facility was described in detail in a paper given at the
1981 HP/1000 Users Group Conference. The paper is included with this
submission as the major supporting document. The paper is unrevised,
and two changes have been made since its writing:
1. The HUP00 program has been deleted. It caused problems.
2. The DVW00 driver replaces DVB00. All references to DVB00 in the
paper should be understood to mean DVW00.
DVW00 is a modification of DVB00, which was written by Alan Whitney.
This entire dialup facility is included in the Terminal Emulator
package, which is also on this same 2240 tape.
F00301
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: MLOAD
Title....................: Load microcode Into The WCS Card
File Names...............: 1. Submission file.
2. MICROP Conference Paper & Documentation
3. &MLOAD Source, FTN4
Operating System.........: RTE-IVB and RTE-6/VM
Language(s)..............: FTN4 or FTN4X or FTN77
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Donald A. Wright
Company.......: 3M Company
Street........: 3M Center, Bldg. 236-1B-18
City..........: St. Paul
State.........: MN
Country.......: USA
Zip Code......: 55144
Phone Number..: 612/736-0248
Program Abstract............: November 4, 1982
This is a resubmission of a contribution on the 2213 CSL/1000 tape,
which was corrupted.
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.
F00401
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: EMUL8
Title....................: Terminal Emulator for RTE-6/VM Systems
File Names...............: 1. Submission file.
2. EMUDOC Documentation file
3. EMUPPR Paper, as given at IUG conference
4. &EMUL8 Source and subroutines, FTN77
5. "EMUL8 Operator instructions, GENIX input
6. &ANS00 Source, FTN66
7. &ANSLB Source, ASMB
8. &RP6CL Source, FTN77
9. &DVW00 Source, ASMB
10. %DVW00 Relocatable
Operating System.........: RTE-6/VM only
Language(s)..............: FTN77, and ASMB or MACRO
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Donald A. Wright
Company.......: 3M Company
Street........: 3M Center, Bldg. 236-1B-18
City..........: St. Paul
State.........: MN
Country.......: USA
Zip Code......: 55144
Phone Number..: 612/736-0248
Program Abstract............: November 4, 1982
Many computer systems have dial-in ports which allow connection from
remote terminals. EMUL8 allows a user's session terminal to be connec-
ted through the HP/1000 to another computer and emulate a remote
terminal. These are some of the features:
1. Autodial (dial-out) capability, if desired.
2. "Virtual" operation of the other computer.
3. Transmission of ASCII files either way.
4. Standard HP hardware, with commonly-available modems.
5. The same modems may also be used for dial-in.
6. Other sessions on the HP/1000 are unaffected.
7. Simultaneous operation of several EMUL8 sessions.
8. On-line configuration of handshaking protocols.
EMUL8 uses class I/O and normal EXEC-call I/O extensively. In
particular, it uses the CLRQ features available only in RTE-6/VM to
flush a class read on either the terminal or modem port when data has
been received from the other.
EMUL8 is compatible with terminals which use any standard HP driver
(except DS or Multipoint), or any of the drivers DVW00, DVF00, or DVB00.
Hardware required to communicate with the external computer is, at
least, a standard 12966A BACI card driven by the contributed driver
DVW00. A modem is required if the connection is not hardwired. A
specific type of Vadic modem is needed if the autodial capability is
desired.
DVW00 is derived from DVB00, originally written by Alan Whitney.
F00501
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: TYPE
Title....................: Comprehensive Word Processing Program
File Names...............: 1. Submission file.
2. &TYPE
3. "TYPE Source, FTN66
4. $LIBHS Haystack library, relocatable
5. $DEMO Demo file, text
6. %DVW00 DVW00 relocatable
Operating System.........: RTE-IVB and RTE-6/VM
Language(s)..............: FTN4X or FTN77
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Donald A. Wright
Company.......: 3M Company
Street........: 3M Center, Bldg. 236-1B-18
City..........: St. Paul
State.........: MN
Country.......: USA
Zip Code......: 55144
Phone Number..: 612/736-0248
Program Abstract............: November 4, 1982
TYPE is a modification of an earlier contribution, TYPO, written by
Alan Whitney. It provides such features as margin-justification with
wraparound, paging with page titles and numbering, total control of
horizontal and vertical character density, and nested input files.
This version combines several TYPO programs into one, allows cloned
simultaneous use in multiple sessions, provides displays on the session
terminal and uses SEGLD to call segments.
The input file is created by any standard editor, such as EDIT. Output
goes to a specific kind of printer or printing terminal, such as an
HP 2601A, Diablo 630, Diablo 1620, or NEC Spinwriter 5525. TYPE is
controlled from virtually any kind of session terminal.
Connection to the printer may be through the 8-channel Mux (not tested)
or through a 12966A card using DVW00, DVF00, or DVB00.
The input files normally contain embedded commands, which tell TYPE how
to do the processing. However, there is a Command-Free mode, very easy
to learn, which provides the margins, wraparound, and paging features.
INSTALLATION: Print the "TYPE manual on any printer and follow the
instructions in Appendix E and Appendix B. Ignore the odd-looking
characters in "TYPE until you can use TYPE to print a high-quality
copy of the manual.
If you wish to use DVW00, the relocatable is supplied with this
contribution. The source is supplied on the EMUL8 and DIALUP
contributions on this same tape.
F00601
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: CLRQ FIX
Title....................: Corrected RTE-6/VM Operating System Modules
File Names...............: 1. Submission file.
2. %CR6SB Rev. 2208 Replacement for %CR6S3
3. %CR6SC Rev. C.82 Replacement for %CR6S3
Operating System.........: RTE-6/VM Revisions 2208 and C.82 Only
Language(s)..............:
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Scott Hippe
Company.......: Hewlett Packard
Street........: 2025 West Larpenteur
City..........: St. Paul
State.........: MN
Country.......: USA
Zip Code......: 55113
Phone Number..: 612/644-1100
Program Abstract............: November 29, 1982
There is a signficant bug in the portion of the RTE-6/VM operating
system which handles CLRQ flush (class flush) calls. When the bug
symptom appears, the operating system goes into an infinite loop with
the interrupt system off, with no easy recovery except a boot.
The symptom is intermittent. Some systems may never exhibit it, others
seldom, and some all the time. The contributed terminal emulator prog-
ram EMUL8 makes heavy use of the class flush, and is apt to create the
conditions which make the symptom appear.
The two included relocatable modules are for different revisions of the
operating system. They replace factory-supplied relocatables for parts
of the operating system, and are for use in generating bug-fixed
systems. Each of the two relocatable submission files is specific to
the revision level of the other operating system modules being used in
the generation, as follows:
Rev. 2208: Substitute file %CR6SB (submission file # 2) for operating
system file %CR6S3 in RT6GN's program input phase.
------
Rev. C.82: Substitute file %CR6SC (submission file # 3) for operating
system file %CR6S3 in RT6GN's program input phase.
------
F00801
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: F2645
Title....................: 2645 Forms definition program
File Names...............: 1. Submission file.
2. &F2645
3. &FFORM
4. &PFORM
5. &FTEST
6. %FT1
7. *FORM
8. *FTEST
9. /FTEST
Operating System.........: RTE-IVB
Language(s)..............: FTN4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: W.J. RUNKLE
Company.......: Union Carbide Co.
Street........: Engineering Products Division
City..........: Indianapolis
State.........: Indiana
Country.......: USA
Zip Code......:
Phone Number..:
Program Abstract............: A group of programs to assist in the
preparation of forms on the 2645 CRT terminal.
Additional Documentation....:
F00901
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: UBEND
Title....................: Sheet Metal Programming Formed Part Drawings
File Names...............: 1. Submission file.
: 2. &UBEND - UBEND PROGRAM (PLOTS ON 7221)
: 3. &XBEND - SAME AS UBEND EXCEPT CRT PLOTTING
(2648A)
: 4. &UPNCH - UPNCH SOURCE (LOAD LARGE BACKGROUN
: 5. &UMULT - UMULT SOURCE
: 6. &UPLOT - PUNCH PATTERN VERIFY ON 7221
: 7. &XPLOT - PUNCH PATTERN VERIFY ON 2648A
: 8. &LC626 - PUNCHED TAPE OUTPUT PER RS:358
: 9. &SU626 - SETUP SHEET PREPARATION
:10. *UBEND - UBEND LOADR FILE
:11. *XBEND - XBEND LOADR FILE
:12. *UPLOT - UPLOT LOADR FILE
:13. *XPLOT - XPLOT LOADR FILE
:14. *LC626 - LC626 LOADR FILE
:15. &MANRD - MANREADABLE LEADR (ASMB)
:16. N02010 - SAMPLE USER SOURCE PROGRAM
:17. CLDT01 - SAMPLE CLDTXX FILE
:18. PUNC01 - SAMPLE PUNCHED TAPE FILE
(Type 2 file with 39 word records)
(Approximately 1500 Blocks)
Operating System.........: RTE-IVB
Language(s)..............: FTN4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Rexford J. Abbott
Company.......: Spectra Physics
Street........: 1250 W. Middlefield Rd.
City..........: Mountain View
State.........: California
Country.......: USA
Zip Code......: 94042
Phone Number..: (415) 961-2550
Program Abstract............:
UBEND - BATCH INPUT PROGRAM WORKS LIKE A COMPILER TO CREATE A FLAT
PATTERN OF A DESCRIBED FORMED PART.
REQUIRES LINE PRINTER AND TERMINAL.SCRATCH FILE "CLDTXX" WHERE
XX IS THE SESSION ID#.
OPTIONAL PLOTTING ON 7221 PEN PLOTTER.
XBEND - SAME AS UBEND EXCEPT 2648A GRAPHIC PLOT.
UPNCH - READS IN THE CLDTXX FILE AND PROCESSES MACHINE MOTION RELATIVE
TO THE POSITIONS PREVIOUSLY CALCULATED.
UMULT - PATTERNS OUT MULTIPLE PARTS FROM CLDTXX FILE TO PUNCXX FILE
PER USER INSTRUCTIONS.
UPLOT - GRAPHIC VERIFY OF PROCESS ON CRT
XPLOT - GRAPHIC VERIFY OF PROCESS ON CRT LU#15
LC626 - RS:358 N/C TAPE OUTPUT ON TAPE PUNCH SESSION LU#9.
PRINTOUT ALSO PROVIDED.
SU626 - OPERATOR SETUP SHEET DERIVED FROM ABOVE PROCESS.
USE LOADR FILES WHEN PROVIDED
UBEND,UPNCH,UMULT WILL ACCEPT SOURCE FILE PASS ON RUN STRINGS
SL 6 = LINE PRINTER
(DO NOT POINT PRINTER TO GRAPHIC CRT WHEN RUNNING XBEND)
SL 15= GRAPHIC CRT
SL 20 = PEN PLOTTER
-------------------------------------------------------------------------
Sheet Metal Processing System Rex Abbott <830119.0738>
File Name: S03168::37
-------------------------------------------------------------------------
The process of preparing programs for sheet metal blanks
on an N/C turret press consists of five basic elements.
These are: 1) Development of a flat pattern from a formed part
drawing;2) Selection of tools, direction of machine positioning
and punching for a single blank;3) Multiplication of this motion
over a blank panel which is an integral multiple of the raw sheet
size;4) Graphic verification of the output;5) Preparation of an N/C
machine control tape from a disc file (non-ASCII code).
This flow is accomplished by the following series of pro-
grams running on an HP1000 at Spectra-Physics in a batch mode:
UBEND,XBEND - word address bend description programs.
UPUNCH - word address motion description program.
UMULT - a post-processor which copies out the output for
multiple parts and interprets centerline data
into usable machine code.
UPLOT,XPLOT - graphic verification of output.
LC626 - N/C tape utility (EIA RS:358)
=UBEND,XBEND=
UBEND and XBEND enable the user to create a flat pattern
from a contiguous bend description. Input defaults to right angle
bends, a standard inside bend radius for a given material thickness,
and outside mold line dimensioning.Inclusion of the appropriate mod-
ifiers allow the user to deviate from the default values when re-
quired. Also included is an initializing run string control either
for CRT graphic verification or hard copy from the pen plotter.
The word address concept is easy to learn and seems to be the
most efficient from the user's standpoint. UBEND and XBEND parse
numerical values proceeded by the following "words":
X(n) nnnn - mold line definition
UP,DN,or NO - bend direction
R - bend radius option
* - angle option (degrees)
H - non-oml dimension (acute angle heel)
I-O - non-oml dimension (inside mold line dim)
(90 deg bends only)
Figure 1 shows the bend description capibilities and the report
information generated (plot is either on 7221 or 2648a graphic CRT).
A set of four character string subroutines have been developed
to help reduce this method of input:
POSITION - returns the character position of the first
character of a substring.
VALUE - returns the accumulated value of all numerical
characters following the passed substring.
PACK - packs out blanks in an array.
LENGTH - returns the length of a character string to the
first blank.
The output of "UBEND" is an optional hard copy plot, a printout,
and a geometric file containing the part number, the material
thickness, the inside bend radius, and the mold lines resulting
from the user's bend description.
The output of "XBEND is an optional CRT plot, a printout, and
a geometric file containing the part number, the material thickness,
the inside bend radius, and the mold lines resulting from the user's,
bend description.
The SMP system is used to associate input and output lu numbers
with the files. the geometric file name is CLDTxx where "xx"
is the session lu number. Thus, several users can run the programs
simultaneously.
=UPNCH=
The UPNCH program processes word address commands in a similar
manner to UBEND and XBEND. Geometric re-initialization of the coord-
inate system is accomplished each time the user references a new mold
line. "X(n)" causes UPNCH to initialize the "x" axis to mold line
"n".
UPNCH features include single hit, notching, and grid pattern
capability coupled with incremental motion commands and the ability
to designate a global zero shift of all coordinates.
Unique to UPNCH is the ability of the user to add or delete
"hits" in subsequent staging (when multiple copies are made in one
sheet of material). These commands (ADDX, ADDY, etc.) set flags in
the first entry of each motion record.
ADDX/ADDY - adds one additional staging along the specified
axis direction to the output when duplicated.
staging is the developed blank size from UBEND
(or XBEND) plus the amount of material yet to be
specified between adjacent parts.
ADDXY - adds additional staging to both axes directions.
similar to the individual commands above.
DELEX/DELEY- delets last staging along the axis specified.
GRIDX-Y - outputs grid pattern of holes "n" by "m" as
specified (incremental distance is variable).
HIT - outputs a hit at current pending logical position.
NOTCH - causes output of enough hits with the pending tool
to remove all material in a rectangular area
bounded by upper and lower limits in one or both
directions.minimum punch overlap is guaranteed.
-P- - establishes current logical position as the
zero point for subsequent x-axis positioning.
PAST - increases current mold line reference by the pending
tool number offset similar to the "TO" command.
-Q- - establishes the current logical y-axis position
as the zero point on y-axis positioning.
TO - modifies current mold line reference by the pending
tool number offset (offset is determined from tool
specification statement and is modal to the program).
T# PX... - tool station number and specification statement.
X(nn) - establishes logical position of x-axis at the mold
line number specified.
Y(nn) - establishes logical position of y-axis at the mold
line number specified.
Unn.nnn - modifies logical x-axis position by the amount
specified as "nn.nnn".
Vnn.nnn - modifies logical y-axis position by the amount
specified as "nn.nnn".
ZERO - resets global zero shift.
Since we are dealing with a machine tool and the characteristics
of each of the twenty stations (angular orientation, inscribed circle
size, etc.) are not identical, a large diagnostic loop is provided
to verify tool vs. turret specification. Opportunity is provided
for change of input values if an error is encountered. This is sim-
ilar to the H-P system generator (interactive batch processing).
Once the mold line data is read into an array in "UPNCH",
the input mold line data file then becomes the total data output
file.Additional inputs are then serialed in from the user's
source program(positioning commands,ect).As tool change
commands are encountered,the tool data is written to the
first twenty records for use later in preparing setup sheets
and suppling the subsequent plot program with the punch shape
designations.
The figure two is a typical UBEND/UPNCH application:
=UMULT=
The UMULT program creates multiple copies of the UPNCH output
on the PUNCxx file in the command language of the turret punch press.
This command language is different between different makers of these
machines. Therefore, this program is only valid for one particular
machine. Spectra-Physics uses a STRIPPIT FABRICENTER 1000.
The additional tasks that UMULT provides are total material size
allocation, accumulation of machine cycle time, determination of
setup time, and deletion or addition of hits per the flag settings
of UPNCH input (user commands).
The punched tape output file has a naming structure similar to
the geometric scratch file. Punched tape is named PUNCxx where
"xx" is the session lu number.
=UPLOT,XPLOT=
UPLOT and XPLOT enable the user to optionally verify the outputs
of UBEND (or XBEND), UPNCH, and UMULT. UPLOT creates a hard copy plot;
XPLOT creates a CRT plot. Tool data is retrieved from the geometric
file and plotted as a function of machine commands coming from the
punched tape file. Therefore, an exact simulation of the users'
instruction set can be displayed. Graphic verification not only
eliminates numerical blunders, but also helps the user develop a
visualization of the flat pattern, since he has never created a
drawing in preparing the machine control tape. Additional
capability is provided to limit plotting to only a portion of the
total parts programmed (assuming that many multiples may be
included in the control tape). A sample of UPLOT/UPNCH output is
shown in figure 4.
=LC626=
When a numerical control machine tape is to be prepared from an
ASCII disc file, the character code table has to be exchanged per the
EIA RS:358 code table and representative binary is output in the
"honesty mode." The actual code conversion takes place by equating
the index of the conversion table element to the decimal value of the
ASCII character. The actual value of the element is the binary code
to be output. The same technique can then be used to create the
"old" RS:244 code if you need it.
Additional Documentation....:
F01001
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: Many
Title....................: Many different programs of varying purposes
File Names...............: 1. Submission file.
2. &RELIA
3. %RELIA
4. &FBSC
5. %FBSC
6. ©F
7. %COPYF
8. &DKRST
9. %DKRST
10. &SORTL
11. %SORTL
12. &CLEXT
13. %CLEXT
14. #CLEXT
15. &CLSPC
16. %CLSPC
17. &VRFY
18. %VRFY
19. =MYLIB
20. .MYLIB
21. %MYLIB
22. &OADMP
23. %OADMP
24. &A12R1
25. %A12R1
26. &PACK
27. %PACK
28. &CLOCK
29. %CLOCK
30. &BCHRP
31. %BCHRP
32. &FINDC
33. %FINDC
34. &CATS
35. %CATS
36. &FILS
37. %FILS
38. &CATB
39. %CATB
40. &HPLEN
41. %HPLEN
42. &MAKEF
43. %MAKEF
44. &RENAM
45. %RENAM
46. &MKSCR
47. %MKSCR
48. &TRNCM
49. %TRNCM
50. &CRETM
51. %CRETM
52. &OPENM
53. %OPENM
54. &READM
55. %READM
56. &WRITM
57. %WRITM
58. &CLOSM
59. %CLOSM
60. &PURGM
61. %PURGM
62. &SKIPM
63. %SKIPM
64. &RWNDM
65. %RWNDM
66. &DCBSM
67. %DCBSM
68. &\SET.
69. %\SET.
70. &ERRLG
71. %ERRLG
72. &BRK
73. %BRK
74. &SKPBC
75. %SKPBC
76. &RDCOM
77. %RDCOM
78. &STRCM
79. %STRCM
80. &BIT
81. %BIT
82. &FILL
83. %FILL
84. &MOVC
85. %MOVC
86. &MOVW
87. %MOVW
88. &MVW
89. %MVW
90. &NCOMP
91. %NCOMP
92. &ICMW
93. %ICMW
94. &OCHRP
95. %OCHRP
96. &RANF
97. %RANF
98. &RDNMR
99. %RDNMR
Operating System.........: RTE-IVB
Language(s)..............: FTN4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Randall Young
Company.......:
Street........:
City..........:
State.........:
Country.......:
Zip Code......:
Phone Number..:
Program Abstract............: Refer to each source
Additional Documentation....:
F01101
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: Many2
Title....................: Many different programs of varying purposes
File Names...............: 1. Submission file.
2. &PEEK
3. %PEEK
4. &WAIT
5. %WAIT
6. &SWAPB
7. %SWAPB
8. &EBASC
9. %EBASC
10. &SPACE
11. %SPACE
Operating System.........: RTE-IVB
Language(s)..............: FTN4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Randall Young
Company.......:
Street........:
City..........:
State.........:
Country.......:
Zip Code......:
Phone Number..:
Program Abstract............: Refer to each source
Additional Documentation....:
F01201
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: GOODIE
Title....................: Goodies from Cimmarron Boozer
File Names...............: 1. Submission file.
2. &CH
3. &LIBLS
4. &UNPUR
5. &TO
6. "LOGO
7. &FCOMP
8. &RASMB
9. &SCODE
10. &EDIT2
11. &LIBED
12. ?EDITR
13. *EDITR
14. &BAUD
15. &EDIT1
16. %EDIT2
17. %EDIT1
18. &NUPAS
19. &SYCRN
20. %SYCRN
21. &MAKBL
22. %MAKBL
23. &BPRNT
24. %BPRNT
25. *BPRNT
26. *BJACK
27. ?LIST
28. *LIST
29. &LIST
30. /LISCM
31. ?BJACK
32. &TTYPE
33. %TTYPE
34. &MESSG
35. [MAKIT
36. ?WHZAG
37. &MAKIT
38. %BRAKT
39. &STOR2
40. %STOR2
41. %TCOPY
42. %BJACK
43. %LIST
44. %MAKIT
45. &BJACK
46. &BRAKT
47. >STREK
48. *LD
49. &XFORM
50. &CRSPC
51. &COPHS
52. %XFORM
53. %TRN
54. %CRSPC
55. %COPHS
56. ?XFORM
57. ?TRN
58. ?CRSPC
59. ?COPHS
60. ?STOR2
61. &SMOOT
62. ?SMOOT
63. %SMOOT
64. &VCLIP
65. %VCLIP
66. ?VCLIP
67. &TRN
68. &FAST4
69. &REDDN
70. %REDDN
71. ?REDDN
72. &DIALO
73. %DIALO
74. ?DIALO
75. &MTCPY
76. %MTCPY
77. &STIME
78. *TRN
79. ?EDITX
80. &RMPAX
81. %RMPAX
82. *PURGE
83. %EDITX
84. *XFORM
85. &DTACH
86. &ATTCH
87. *BOOK
88. ?FAST4
89. *33
90. *HELP
91. %MESSG
92. %LOGAV
93. %HELP
94. %FCOMP
95. %ATTCH
96. %BAUD
97. %CH
98. %FAST4
99. %LIBED
Operating System.........: RTE-IVB and RTE-6/VM
Language(s)..............: FTN4X or FTN77, and ASMB, RAT4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Cimmarron Boozer
Company.......: University Computing
Street........: 4710 Ruffner Suite A
City..........: San Diego
State.........: California
Country.......: USA
Zip Code......: 92111
Phone Number..: 619/576-0592
Program Abstract............: This is a collection of goodies from Cimmarron
Boozer. He says that some of these may have been duplicated by now but here
they are for everyones use. There is another group of these in the next
contribution.
Additional Documentation....:
F01301
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: GOODY2
Title....................: Goodies from Cimmarron Boozer
File Names...............: 1. Submission file.
2. %LIBLS
3. %NUPAS
4. %RASMB
5. %SCODE
6. %TO
7. %DTACH
8. ?TTYPE
9. *MESSG
10. "MESSG
11. ?FCOMP
12. ?BOOK
13. &HELP
14. &LOGAV
15. &CLONE
16. %CLONE
17. %STIME
18. ?LOGAV
19. ?RMLPF
20. &RMLPF
21. &MXADC
22. ?MXADC
23. %MXADC
24. %SRCLU
25. %SHOW
26. ?BRAKT
27. &AL
28. &SRCLU
29. ?DE
30. ?AL
31. %AL
32. *AL
33. &SHOW
34. &DE
35. &DF
36. *DF
37. $RFOUT
38. %RMLPF
39. %DDT%
40. %DF
41. &TTYPF
42. %TTYPF
43. %UNPUR
44. *DDT
Operating System.........: RTE-IVB and RTE-6/VM
Language(s)..............: FTN4X or FTN77, and ASMB, RAT4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Cimmarron Boozer
Company.......: University Computing
Street........: 4710 Ruffner Suite A
City..........: San Diego
State.........: California
Country.......: USA
Zip Code......: 92111
Phone Number..: 619/576-0592
Program Abstract............: This is a collection of goodies from Cimmarron
Boozer. He says that some of these may have been duplicated by now but here
they are for everyones use. There is another group of these in the previous
contribution.
Additional Documentation....:
F01401
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: GDATE
Title....................: Gregorian Date Subroutine
File Names...............: 1. Submission file.
2. &GDATE
Operating System.........: RTE-IVA, RTE-IVB, RTE-6
Language(s)..............: FTN4X
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Arthur R. Gentry
Company.......: American Tel. & Tel.
Street........: RM 1040 811 Main St.
City..........: Kansas City
State.........: Missouri
Country.......: USA
Zip Code......: 64141
Phone Number..: 816/391-2446
Program Abstract............:
This routine is used to calculate the true Gregorian date of any date
from the begining of time. As it calculates the number of days since
time began into a single INTEGER*4 word, it makes it very handy for
date ranging and comparing.
It also has the ability to tell you if the date feed it is a particular
day of the week (Sun.-Sat.), if the year feed it is a leap year, the
number of days in the month, and several other usefull items detailed
in the source listing.
The only special requirement of this routine is the avaliability of
H.P.s Fortran 4X or Fortran 77; however, with some minor modifications
it can be run in a Fortran 4 system. (ie. change the double integers
to Real)
CALL GDATE (OPT,MON,DAY,YEAR,DWK,DYR,DMON,EGD,*)
OPT = 1 = Caller Supplies MON, DAY, & YEAR and GDATE returns all
remaining arguments.
2 = Caller Suplies EGD and GDATE returns all remianing arg-
guments
MON = Month (1-12)
DAY = Day (1-31)
YEAR = Year (1-??)
DWK = Day of the week (1-7)
DYR = Day of the year (1-366)
DMON = Number of days in month (28-31)
EGD = Equivalent Gregorian Date (1-????) (double integer)
* = Statement number to 'GOTO' on error from GDATE
See coments included with Source LIsting
Additional Documentation....:
F01501
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: QACCT
Title....................: Art's Quicky Accounts Program
File Names...............: 1. Submission file.
2. &QACCT
3. >SID - Retriev caller's session I.D. #
4. &EJECT - Perform a page eject
5. &DEATS - Detach/Attach To/From session
Operating System.........: RTE-IVB
Language(s)..............: FTN4X, ASMB
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Arthur R. Gentry
Company.......: American Tel. & Tel.
Street........: RM 1040 811 Main St.
City..........: Kansas City
State.........: Missouri
Country.......: USA
Zip Code......: 64141
Phone Number..: 816/391-2446
Program Abstract............:
This routine is used to calculate the true Gregorian date of any date
from the begining of time. As it calculates the number of days since
time began into a single INTEGER*4 word, it makes it very handy for
date ranging and comparing.
It also has the ability to tell you if the date feed it is a particular
day of the week (Sun.-Sat.), if the year feed it is a leap year, the
number of days in the month, and several other usefull items detailed
in the source listing.
The only special requirement of this routine is the avaliability of
H.P.s Fortran 4X or Fortran 77; however, with some minor modifications
it can be run in a Fortran 4 system. (ie. change the double integers
to Real)
CALL GDATE (OPT,MON,DAY,YEAR,DWK,DYR,DMON,EGD,*)
OPT = 1 = Caller Supplies MON, DAY, & YEAR and GDATE returns all
remaining arguments.
2 = Caller Suplies EGD and GDATE returns all remianing arg-
guments
MON = Month (1-12)
DAY = Day (1-31)
YEAR = Year (1-??)
DWK = Day of the week (1-7)
DYR = Day of the year (1-366)
DMON = Number of days in month (28-31)
EGD = Equivalent Gregorian Date (1-????) (double integer)
* = Statement number to 'GOTO' on error from GDATE
See coments included with Source LIsting
Additional Documentation....:
F01601
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................:$LIBHS
Title...............:'Haystack' Relocatable Library
File Names........01:Submission file
02:$LIBHS Composite relocatable library
03:*LIBHS Transfer file to create $LIBHS from sources
04:&AFILL Fill array with specified value,increment & word increment
05:&BKRED General-purpose disc block-read routine
06:&BKWRT General-purpose disc block-write routine
07:&CLGET Get track and sector of system cartridge list
08:&CLNDR Converts year/month/day into printable month and day-of-week
09:&CMOVE Block character move
10:&CN21 Forcefully issues a :CN,lu,21B request to disable a terminal
11:&CNVT Convert word to printable 3-word integer/ASCII format
12:&CNVRT Conversion package between 2,3,4-word FP and double integer
13:&CNVT Convert a 16-bit word to printable integer/ASCII format,
14:&CRLOK Lock/unlock FMP cartridges
15:&CSPCE Determine amount of remaining space on an FMP cartridge
16:&DATER Prints Date/Time header on specified LU
17:&DCOPY General-purpose disc copy routine
18:&DL Powerful FMP Directory search routine
19:&EQLUF Get LU from EQT word 4 address
20:&EQUAL Compare byte strings
21:&EXECX Modify father/son relationships of programs
22:&EXEK4 Allocate specified #blocks on system tracks
23:&GETSX Just like RTE GETST, except will return more than 80 chars.
24:&HEX Convert from binary to printable hex format
25:&HEXI Convert from ASCII hex to binary
26:&IDATE Return current YMDHMS either integer or ASCII format
27:&IDAY0 Returns # of elapsed days in year to end of specified month
28:&IDGT Get ID segment of specified program
29:&IDTKX Get cartridge label, sectors/track, directory track, etc.
30:&IDTYP Get driver type for specified LU
31:&IDXGT Get ID segment extension address of specified program
32:&IEQTF Get EQT#, manage device buffer/unbuffer status
33:&IFERR FMP error reporter
34:&IFNAM Get namr from LU and parse it
35:&IGETC Get a specified character from a buffer
36:&IGETS Get a word from the System Map
37:&IN2A2 Convert 2-digit integer to A2 format with leading zero
38:&IOF Delete specified ID segment (equiv to :RP,,PROG)
39:&IOPSY Get host system type
40:&IPRTY Get/change priority of program
41:&IPAPA Get name of father for any program
42:&IPST Get status of specified program
43:&IROT Rotate bits left/right within word (obsolete-use LROT)
44:&IRP Restore ID segment of SP'ed program (equiv to :RP,PROG)
45:&ISHFT Left/right bit shifter within word
46:&ITO Get/change time-out value of specified device
47:&IUNLK Close a spuriously open FMP file
48:&IWTL Allows writing/reading to/from a 'locked' lu
49:&JSHFT Left/right bit shifter within word (obsolete-use ISHFT)
50:&LCHEK Check integrity of data in Type 3,4,5 variable-length
51:&LIBER Set LU for FTN4 STOP, PAUSE, and error messages
52:&LINC General segment controller package
53:&LINK Link from main program to segment
54:&LINQ OBSOLETE general segment controller package (replaced by LINC
55:&LOC Get absolute address of specified parameter
56:&LROT Left/right bit rotater within word
57:&LUOPR Return LU from which program was initiated
58:&MSCHK Check system master security code
59:&NAMOK Verify that 6-character name is valid NAMR format
60:&NARG Get # of arguments with which ASMB/FTN4 routine was called.
61:&NEXTX Find and open next extent, if any, of FMP file
62:&PUTC Put character into specified location in buffer
63:&PUTS Put word into specified location in System Map
64:&QSUBS Comprehensive package of ASCII string-handling routines
65:&RMAN Inverse NAMR. Reconstruct namr from 10-word parsed buffer.
66:&SORT General-purpose direct-replacement sort routine
67:&SORTS General-purpose Shell sort routine
68:&SQZEM Squeeze out spaces in ASCII buffer
69:&SSWCH Display-register handler routine
70:&STRAK General-purpose expandable fixed-record-length scratch-file h
71:&SUSP Suspend self for specified period of time
72:&TIMER General-purpose timing routine
73:&UCASE Change characters in buffer to all upper-case
74:&WCSF Load 12789/13197 WCS without DVR36
75:&WMOVE Hi-speed word mover. Uses block word move instruction.
76:&XTNTS Package of FMP file-extent handling routines
77:&YMDAY Converts day-of-year into month and day
78:"LIBHS Documentation for $LIBHS, except QSUBS, in HELP file format
79:"QSUBS Documentation for use of QSUBS in HELP file format
80:$TATLB Supplementary libary containing GETAT/SETAT for non-RTE6 syst
81:&GETAT Get TAT value in non-RTE-6VM system.
82:&SETAT Set TAT value in non-RTE-6VM system.
83:$NON4B Supplementary library of dummy session routines
84:&NON4B Source for $NON4B
85:&RP Program to support routine IRP
86:%RP Relocatable for program RP
87:^RP LOADR command file for RP
88:&OF Program to support IOF
89:%OF Relocatable for program OF
90:^OF LOADR command file for OF
91:&UNLOK Program to support routine IUNLK
92:%UNLOK Relocatable for program UNLOK
93:^UNLOK LOADR command file for UNLOK
Operating System........:RTE-II/III/IV/IVB/6VM
Language(s).............:FTN4 & ASMB
External Support Req'd..:None
If Re-submission, Reason:Upgrade to RTE-6VM compatibility
Contributor's Name..........:Alan R. Whitney
Company.......:MIT Haystack Observatory
Street........:Off Rt. 40
:
City..........:Westford
State.........:Massachusetts
Country.......:USA
Zip Code......:01886
Phone Number..:(617) 692-4764
Program Abstract............:$LIBHS is an extensive library of general-purpose
routines developed at Haystack observatory. Full documentation on function
and usage is included in file "LIBHS, which is in the HELP format for quick
access using HP program HELP. All routines are written for compatibility
with large-background and extended-background usage. Supplementary libraries
$TATLB and $NON4B may be needed for some systems. Programs RP, OF, and UNLOK
are required to support routines IRP, IOF, and IUNLK, respectively, and are
included here as well. $LIHBS is fully compatible with RTE-II/III/IV/IVB/6VM.
Additional Documentation....:"LIBHS
"QSUBS
DISCLAIMER:
===========
To the best of my knowledge, this contributed program is free of any
proprietary information belonging to any person or organization and
is not licensed by any person or organization. I am making this
program information available to the HP 1000 International Users
Group. I hereby agree that the HP 1000 International Users Group
may reproduce, publish, and use this program, and authorize others
to do so without obligations or liability of any kind.
-------------------------------- -----------------------
(SIGNATURE) (DATE)
F01701
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: SUBS
Title....................: SUBROUTINES USED BY OUR OTHER CONTRIB'S.
File Names...............: @SUBS - SUBMISSION DOCUMENTATION
#CRDIR - FIND CARTRIDGE DIRECTORY
#OCTPR - OCTAL/ASCII PRINT (FMGR STYLE)
#UMOVE - BYTE MOVE ROUTINE
#UFNUM - NUMBER FORMATTER
#RRND - REAL NUMBER ROUNDER
#IPGST - PROGRAM STATUS CHECKER
OMLIB1 - OLD $MLIB1 (SEE NOTE BELOW)
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4, ASSEMBLER
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THESE SUBROUTINES ARE USED BY THE PROGRAMS THAT WE HAVE CONTRIBUTED
TO THE CSL/1000 IN THIS RELEASE. IF YOU ATTEMPT TO LOAD ONE OF OUR
PROGRAMS, ANY UNDEFINED EXTERNALS SHOULD BE HERE. IF NOT, WE MAY
HAVE GOOFED, SO FEEL FREE TO GIVE US A CALL.
SOME OF THE ROUTINES ARE ALSO USEFUL ON THEIR OWN.
NOTE: SEVERAL OF THE PROGRAMS CONTRIBUTED ARE USED AT VARIOUS
----- NODES IN OUR DS/1000 NETWORK. THEY CALL DNODE TO DO
FORMATTED FORTRAN I/O TO REMOTE TERMINALS. IF YOU HAVE NEED
TO USE THIS FEATURE, YOU PROBABLY HAVE THE %RMTIO MODULE THAT
IS NECESSARY, BUT THE OLD $MLIB1 INCLUDED HERE IS ALSO REQUIRED
DUE TO A COMPATIBILITY PROBLEM. IF YOU DON'T WANT TO USE THE
DS FEATURES, BUT DO LIKE THE PROGRAMS, JUST REMOVE THE DNODE
BUSINESS.
F01801
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: RCOVR
Title....................: RECOVER PURGED FILES
File Names...............: @RCOVR - SUBMISSION DOCUMENTATION
#RCOVR - SOURCE FILE
(ALSO USES S/R'S IN CONTRIB. #1)
Operating System.........: RTE-IVB,RTE-III
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM WILL FIND ALL PURGED ENTRIES ON A CARTRIDGE THAT COULD
HAVE BEEN PART OF A SPECIFIED FILE (IE. ALL EXTENTS). IT PROVIDES
SUFFICIENT INFORMATION THAT YOU CAN THEN FIGURE OUT WHICH OF THE
ENTRIES ARE THE ONES YOU WANT (IE. NEWEST VERSION OF RIGHT TYPE),
AND THEN YOU CAN GET THEM BACK THROUGH (CAREFUL!) USE OF CMM4.
Additional Documentation....:
F01901
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: CLEAN
Title....................: QUICK DISC CARTRIDGE CLEANER
File Names...............: @CLEAN - SUBMISSION DOCUMENTATION
#CLEAN - SOURCE FILE
ALSO USES S/R'S IN CONTRIB. #1
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM WILL QUICKLY GO THROUGH A DISC CARTRIDGE, ALLOWING
THE USER TO CLEAN UP THE DISC. THE USER CAN CONVENIENTLY EXAMINE
THE FILES, AND EITHER LEAVE THEM INTACT, STORE THEM TO OTHER NAMES
AND/OR DISCS, OR PURGE THEM WITH A FLICK OF THE FINGERS.
THE USER SPECIFIES WHICH FILES HE WANTS TO CLEAN UP BY GIVING
A NAME AND CARTRIDGE, AND OPTIONALLY A SECURITY CODE AND FILE TYPE,
USING THE '-' CHARACTER AS A DON'T CARE POSITION.
HE MAY ALSO GIVE A FILE NAME AS THE FIRST FILE TO LOOK AT -- ALL
FILES IN THE DIRECTORY BEFORE THAT ONE ARE SKIPPED OR IGNORED.
Additional Documentation....:
PARAMETERS:
1. TERMINAL LU (DEFAULTS TO 1)
2. MASKED NAMR OF FILES TO LOOK AT (EG. #T----:34:TP)
F02001
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: KILEX
Title....................: DISC CARTRIDGE EXTENT REMOVER
File Names...............: @KILEX - SUBMISSION DOCUMENTATION
#KILEX - SOURCE FILE
ALSO USES S/R'S IN CONTRIB. #1
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM WILL GO THROUGH A DISC CARTRIDGE AND DELETE EXTENTS
ON ALL FILES ON THE DISC (INCLUDING TYPES 1 AND 2). FILES ARE
COPIED TO A TEMPORARY FILE, AND THEN RENAMED. ANY FMP ERRORS LEAVE
THE FILES UNCORRUPTED, AND A MESSAGE IS GIVEN, TERMINATING THE RUN.
Additional Documentation....:
PARAMETERS:
1. TERMINAL LU (DEFAULTS TO 1)
2. CARTRIDGE ID, OR NEGATIVE DISC LU
F02101
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: XCOPY
Title....................: QUICK DISC COPIER (7905/06/20/25)
File Names...............: @XCOPY - SUBMISSION DOCUMENTATION
#XCOPY - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM WILL COPY A DISC'S FILES (OR AS MANY OF THEM AS
WILL FIT) TO ANOTHER DISC CARTRIDGE THAT HAS BEEN INITIALIZED.
THE DISCS MAY BE THE SAME OR DIFFERENT TYPES, START TRACKS, SECTORS
PER TRACK, NUMBER OF TRACKS, NUMBER OF DIRECTORY TRACKS, ETC. FOR
EXAMPLE, A 256-TRACK 7925 DISC MAY BE COPIED TO A 202-TRACK 7906
CARTRIDGE (IE. AS MUCH AS WILL FIT).
Additional Documentation....:
F02201
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: DLINF
Title....................: DISC DIRECTORY HEADER INFORMATION
File Names...............: @DLINF - SUBMISSION DOCUMENTATION
#DLINF - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM PRINTS SOME USEFUL INFORMATION FROM THE DISC
DIRECTORY IN THE FORMAT OF THE FMGR :DL COMMAND. IT WILL PRINT
AT ANY TERMINAL IN THE D.S. NETWORK. ONE USE IS TO SEE HOW MUCH
DISC SPACE IS AVAILABLE AT REMOTE NODES, SINCE 'REMAT' DOES NOT
PROVIDE THAT INFO. IN A 'DL' COMMAND.
EG.
CR= TP LU=57
ILAB=TWHPPP NXTR= 00064 NXSEC=066 #SEC/TR=128 LAST TR=00152 #DR TR=03
Additional Documentation....:
F02301
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: FCOMP
Title....................: FILE COMPARISON
File Names...............: @FCOMP - SUBMISSION DOCUMENTATION
#FCOMP - SOURCE FILE
ALSO USES S/R'S IN CONTRIB. #1
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM COMPARES TWO FILES OF ANY TYPE RECORD BY RECORD,
AND WRITES OUT THE DIFFERENCES. (IT WILL STOP WHEN ITS BREAK
FLAG IS SET). IT IS VERY USEFUL FOR COMPARING DIFFERENT VERSIONS
OF THE SAME PROGRAM, OR RELOCATABLES, OR EVEN TYPE 6'S. HOWEVER
IT DOES NOT ATTEMPT TO DETECT INSERTED/DELETED LINES BY LOOKING
AHEAD, BUT MERELY COMPARES RECORD BY RECORD. THAT WOULD BE A
NICE ENHANCEMENT THOUGH ....
Additional Documentation....:
PARAMETERS:
1. TERMINAL LU NUMBER (DEFAULTS TO 1)
2. LU FOR OUTPUT OF DIFFERENCES (DEFAULTS TO TERM. LU)
3. NAMR OF FILE 1 (IF OMITTED, PROGRAM WILL ASK)
4. NAMR OF FILE 2 (IF OMITTED, PROGRAM WILL ASK)
F02401
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: MNYSW
Title....................: DISPLAY PROGRAM STATUSES ON SWITCH REG.
File Names...............: @MNYSW - SUBMISSION DOCUMENTATION
#MNYSW - MAIN PROGRAM SOURCE
#MWHZT - ASMB. SUBROUTINE SOURCE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4, ASSEMBLER
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM IS VERY USEFUL IN WATCHING THE INTERACTION OF A SET
OF OTHER PROGRAMS (UP TO 5 AT A TIME) IN REAL TIME. IT ACCEPTS THE
NAMES OF THE PROGRAMS AND CONSTANTLY (AS FAST AS DESIRED) UPDATES
THEIR STATUSES ON THE SWITCH REGISTER. EACH PROGRAM TAKES 3 BITS
FOR AN OCTAL NUMBER:
0 : DORMANT
1 : SCHEDULED
2 : I/O SUSPENDED
3 : WAITING
4 : MEM. SUSP.
5 : DISC. SUSP.
6 : OPERATOR SUSP.
7 : NONEXISTENT
OF COURSE, THIS DOESN'T GIVE AS MUCH INFORMATION AS A WHZAT, BUT
THEN YOU CAN'T RUN WHZAT EVERY 10 MILLISECONDS, EITHER.
Additional Documentation....:
F02501
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: COUNT
Title....................: COUNT CODE AND COMMENTS IN FILES
File Names...............: @COUNT - SUBMISSION DOCUMENTATION
#COUNT - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM WILL TAKE AN INPUT FILE OF NAMR'S, AND READ EACH OF
THOSE FILES TO COUNT CODE AND COMMENTS. A REPORT SUCH AS THE
FOLLOWING IS PRODUCED:
SOURCE FILE NAME TYPE(ASMB,FTN4) LINES OF CODE TOTAL LINES
---------------- --------------- ------------- -----------
#TTEST FT 28 29
#A2A1 AS 41 49
@PEGPM -- 18 18
TOTAL LINES OF ASMB CODE = 41
TOTAL LINES OF FTN4 CODE = 28
TOTAL LINES OF OTHR CODE = 18
TOTAL LINES OF CODE = 87
TOTAL LINES = 96
AT PRESENT, THE PROGRAM CAN DO ONLY FORTRAN AND ASSEMBLER, BUT
POSSIBLY COULD BE ENHANCED TO HANDLE OTHER LANGUAGES.
Additional Documentation....:
F02601
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: CLRRN
Title....................: CLEARS (UNLOCKS) RESOURCE NUMBERS
File Names...............: @CLRRN - SUBMISSION DOCUMENTATION
#CLRRN - SOURCE FILE
#GETRN - SOURCE FILE (SUBROUTINE)
Operating System.........: RTE-IVB
External Support Req'd...:
If Re-submission, Reason.:
Language(s)..............: FORTRAN 4 & ASSEMBLER
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM CLEARS (UNLOCKS) A RESOURCE NUMBER (BUT DOES NOT
DEALLOCATE IT). THE NUMBER TO PASS TO THIS PROGRAM IS THE RN LIST
NUMBER (IE. FROM A WHZAT). THE STATUS OF THE RNRQ CALL IS PRINTED
WHEN THE PROGRAM IS FINISHED. (PRGRAM CALLS SUBROUTINE GETRN)
F02701
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: BOOT
Title....................: POWERFAIL OR PROGRAMMATIC BOOT
File Names...............: @BOOT - SUBMISSION DOCUMENTATION
#RMBOT - SOURCE FILE
#REBOT - SOURCE FILE
#PBOOT - SOURCE FILE - SUBROUTINE
Operating System.........: RTE-IVB
Language(s)..............: ASSEMBLER
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THESE LITTLE PROGRAMS WILL BOOT ANY 'M', 'E', OR 'F' MACHINE.
REBOT WILL BOOT AN 'E' OR 'F' MACHINE WITH RPL ENABLED.
RMBOT WILL BOOT ANY MACHINE AS LONG AS PBOOT IS GENERATED INTO
THE SYSTEM. PBOOT COPIES A BOOT ROM INTO MEMORY, THEN EXECUTES IT.
F02801
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: URESN
Title....................: SYSTEM RESOURCE NUMBER DISPLAY
File Names...............: @URESN - SUBMISSION DOCUMENTATION
#URESN - SOURCE FILE
#URES2 - SOURCE FILE - SUBROUTINE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4 & ASSEMBLER
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM CALLS AN ASSEMBLER SUBROUTINE (URES2) WHICH RETURNS
THE UNAVAILABLE RESOURCE NUMBERS, GLOBAL OR LOCAL OWNER, UNLOCKED
OR LOCKED STATUS (PROGRAM NAME IS RETURNED IF LOCKED), TOTAL
RESOURCE NUMBERS ON THE SYSTEM, AND RESOURCE NUMBERS AVAILABLE
TO USERS. THIS PROGRAM WILL PRINT OUT THE RESULTS, ON ANY TERMINAL
IN THE DS-1000 NETWORK (FOLLOWING CONVENTION OF NODE*100 + LU).
F02901
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: UCLNO
Title....................: SYSTEM CLASS NUMBER DISPLAY
File Names...............: @UCLNO - SUBMISSION DOCUMENTATION
#UCLNO - SOURCE FILE
#UCLN2 - SOURCE FILE - SUBROUTINE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4 & ASSEMBLER
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM CALLS SUBROUTINE UCLN2 WHICH DETERMINES THE TOTAL NO.
OF CLASS #'S ON THE SYSTEM, CLASS NUMBERS AVAILABLE TO USERS, AND
THEN UCLNO PRINTS THE RESULTS. THEY MAY BE DISPLAYED ON ANY
TERMINAL IN THE DS/1000 NETWORK (FOLLOWING THE CONVENTION OF
NODE*100 + LU).
F03001
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: SPKIL
Title....................: SPOOL FILE KILL PROGRAM
File Names...............: @SPKIL - SUBMISSION DOCUMENTATION
#SPKIL - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM IS USED TO KILL TIED UP SPOOL FILES ('SFOLXX').
(WE RUN IT EVERY TIME WE BOOT TO CLEAN UP ANY SPOOL FILES
THAT ARE HELD OR HUNG UP).
F03101
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: DGTIM
Title....................: DS/1000 NETWORK COMMUNICATION TEST
File Names...............: @DGTIM - SUBMISSION DOCUMENTATION
#DGTIM - SOURCE FILE
#TDURT - SOURCE FILE - SUBROUTINE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4X & FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM MONITORS AND LOGS THE STATUS OF A DISTRIBUTED SYSTEMS
COMMUNICATION LINE BY CONTINUALLY (AS OFTEN AS SCHEDULED) ATTEMPTING
TO GET THE TIME FROM IT. (THE LOGGING OF THE LINE STATUS CAN BE TO
A TERMINAL OR A FILE.) THE SUBROUTINE 'TDURT' IS CALLED TO CALCULATE
TIME DURATION IN MINUTES.
F03201
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: LCMST
Title....................: DS/1000 LINE COMMUNICATION STATISTICS
File Names...............: @LCMST - SUBMISSION DOCUMENTATION
#LCMST - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM RETRIEVES COMMUNICATION TRANSMISSION STATISTICS
FROM THE EQT EXTENSION AREA FOR AN LU INTERFACED WITH DVA65.
THIS INFO IS UPDATED BY DVA65 IN WORDS 5 AND 6 OF THE EXTENSION
AS ROLL OVER COUNTERS. THIS PROGRAM OUTPUTS TOTAL NUMBER OF
TRANSMISSIONS, TOTAL NUMBER OF RETRIES, AND PERCENTAGE FAILURES.
F03301
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: LUSTA,LUENA
Title....................: GET REMOTE NODE LU STATUS/ENABLE REMOTE LU
File Names...............: @LUSTA - SUBMISSION DOCUMENTATION
#LUSTA - SOURCE FILE
#LUENA - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
LUSTA GETS THE 3 STATUS WORDS FROM ANY NODE/LU
ON A DEXEC 13 CALL. THE RUN COMMAND IS AS FOLLOWS:
:RU,LUSTA,LUW,NODE,LUC
WHERE LUW = LU TO WRITE MESSAGES TO
WHERE NODE = NODE OF LUC
WHERE LUC = LU TO CHECK STATUS OF
LUENA ENABLES AN LU AT ANY DS/1000 NODE
THE RUN STRING IS AS FOLLOWS:
:RU,LUENA,LUW,NODE,LUC
WHERE LUW = LU TO WRITE MESSAGES TO
WHERE NODE = NODE OF LUC
WHERE LUC = LU TO ENABLE
F03401
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: REINT
Title....................: RTE-III SYSTEM DISC INITIALIZATION
File Names...............: @REINT - SUBMISSION DOCUMENTATION
#REINT - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM MODIFIES AN RTE-III SYSTEM DISC INTO A PERIPHERAL
DISC INTO ORDER TO ALLOW MOUNTING BY A RTE-4 SYSTEM. NOTE! THIS
MAY BE A ONE WAY PROCESS, THAT IS NOT EASILY REVERSED. THIS
PROGRAM IS CURRENTLY WRITTEN FOR A FIXED DISC SIZE, BUT IS EASILY
MODIFIED TO SUIT YOUR NEEDS.
F03501
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: IN4TL
Title....................: RTE-4B DRIVER INSTALLER (FOR TESTING)
File Names...............: @IN4TL - SUBMISSION DOCUMENTATION
#IN4TL - SOURCE FILE
#CPUT4 - SOURCE FILE - SUBROUTINE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4 & ASSEMBLER
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM TAKES A TYPE 7 FILE OF A DRIVER AND INSTALLS IT INTO A
DRIVER PARTITION FOR TESTING. IT CALLS SUBROUTINE CPUT4.
F03601
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: IN4TP
Title....................: RTE-4B DRIVER INSTALLER ONTO DISC
File Names...............: @IN4TP - SUBMISSION DOCUMENTATION
#IN4TP - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS IS A PROGRAM WHICH ALLOWS YOU (IF YOU KNOW WHAT YOU
ARE DOING !!!) TO WRITE AN ABSOLUTE DRIVER FROM FILE TO DISC.
FIRST ASSEMBLE YOUR DRIVER AT AN ABSOLUTE ADDRESS, THEN FIND
THE PLACE ON DISC WHERE IT IS TO GO, THEN RUN THIS PROGRAM.
THERE ARE A NUMBER OF CAUTIONS ONE MUST OBSERVE :
1. IT WILL ALWAYS WRITE TO LU 2
2. IT WILL NOT CROSS TRACK BOUNDARYS.
3. THE DRIVER MUST BE LESS THAN 2048 WORDS.
F03701
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: TIDUP
Title....................: SUBROUTINE TO CLONE & SCHEDULE PROGRAMS
File Names...............: @TIDUP - SUBMISSION DOCUMENTATION
#TIDUP - SOURCE FILE
#FMSHD - SOURCE FILE - SUBROUTINE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS SUBROUTINE PERFORMS ONE OF THE FOLLOWING FUNCTIONS, DEPENDING
ON THE USER-SPECIFED ACTION CODE:
(1) - GET ID SEGMENT FOR A COPY OF A PROGRAM (IF PROGRAM
NAME IS PROGA, A COPY OF PROGA IS CREATED AND CALLED
"PNNGA", WHERE NN IS A USER SPECIFIED NUMBER). PNNGA IS
THEN SCHEDULED AND PASSED UP TO FIVE PARAMETERS.
(2) - GET ID SEGMENT FOR USER-SPECIFIED PROGRAM. IF THIS PROGRAM
IS BUSY (STATUS IS NON-ZERO), CREATE A COPY AS IN (1). THEN
SCHEDULE ORIGINAL PROG OR COPY AND PASS IT UP TO FIVE PARAM-
ETERS.
(3) - GET ID SEGMENT FOR USER-SPECIFIED PROGRAM. IF THIS PROGRAM
IS BUSY, TOO BAD! (NON-ZERO ERROR CODE RETURNED). IF NOT,
SCHEDULE IT AND PASS IT UP TO FIVE PARAMETERS.
(4) - SAME AS CODE 1, EXCEPT ATTEMPT TO SCHEDULE COPY WITHOUT
WAITING FOR IT TO GO DORMANT.
****************
IMPORTANT NOTES:
FOR FUNCTIONS (1) & (4) ABOVE, IT IS THE USER (CALLING PROGRAM'S)
RESPONSIBILITY TO ENSURE THAT THE ORIGINAL PROGRAM EXISTS
ON THE SYSTEM BEFORE CALLING THIS SUBROUTINE.
FOR FUNCTION (2), THE STATUS OF THE USER-SPEC PROGRAM IS CHECKED
AND, IF IT IS 0 OR -12 (PROG DORMANT OR NOT ON SYSTEM), AN ID SEG-
MENT IS OBTAINED FOR THE PROGRAM (IF STATUS = -12) AND THE PROGRAM
IS SCHEDULED.
IF THE STATUS IS SOME OTHER VALUE (PROGRAM BUSY), A COPY OF THE
USER-SPEC PROGRAM IS IMMEDIATELY CREATED AND SCHEDULED.
FOR FUNCTIONS (1), (2) & (4) IF THE USER-SPEC PROG NAME IS FMGR, WE
CREATE COPY CALLED FMGNN, WHERE NN IS USER SPEC NO. IF WE CREATE
COPY FNNR, WE CAN'T RUN IT.
FOR FUNCTION (3), THE STATUS OF THE USER-SPEC PROGRAM IS CHECKED
AND, IF IT IS 0, THE PROGRAM IS SCHEDULED. IF THE STATUS IS -12
(PROGRAM NOT ON SYSTEM), AN ID SEGMENT IS OBTAINED FOR THE PROGRAM
AND IT IS SCHEDULED.
IF THE USER-SPEC PROGRAM'S STATUS IS SOME OTHER VALUE (PROGRAM BUSY)
IT'S STATUS IS RECHECKED UP TO 3 TIMES (WAIT 3 SECS BETWEEN TRIES)
AND, IF THE PROGRAM IS STILL BUSY, AN ERROR IS RETURNED TO THE CALL-
ING PROGRAM.
Additional Documentation....:
INPUT PARAMETERS TO THIS SUBROUTINE:
PROG - ASCII PROGRAM NAME (3 WORD ARRAY)
CODE - ACTION CODE
VALUES: 1 - PERFORM FUNCTION (1) BELOW
2 - PERFORM FUNCTION (2) BELOW
3 - PERFORM FUNCTION (3) BELOW
4 - PERFORM FUNCTION (4) BELOW
NN - INTEGER NUMBER USED TO CREATE COPY OF PROG
ISCHED - SCHEDULING CODE (9,10,23 OR 24 - SEE EXEC "SCHEDULE" CODES)
PAR1 - FIRST PARAMETER PASSED TO PROGRAM
PAR2 - SECOND PARAMETER PASSED TO PROGRAM
PAR3 - THIRD PARAMETER PASSED TO PROGRAM
PAR4 - FOURTH PARAMETER PASSED TO PROGRAM
PAR5 - FIFTH PARAMETER PASSED TO PROGRAM
OUTPUT PARAMETERS TO CALLING PROGRAM:
IER - ERROR CODE
VALUES: 0 - ALL OKAY, NO ERRORS
2 - PROGRAM NOT FOUND
3 - NO FREE ID SEGMENTS
4 - PROGRAM (OR RENAMED COPY) BUSY AFTER
3 TRIES (3 SEC WAIT BETWEEN TRIES).
5 - INVALID ACTION OR SCHEDULE CODE.
OTHER ERROR CODES ARE FMGR 14,17,23,-15 (AND
ARE RETURNED BY SUBR. IDDUP TO THIS ROUTINE)
SUBROUTINES, FUNCTIONS CALLED BY THIS ROUTINE
CLOSE - TO CLOSE USER-SPEC PROGRAM'S TYPE 6 FILE.
FMSHD - TO SCHEDULE FMGR
IDDUP - TO DUPLICATE AN ID SEGMENT AND CHANGE PROGRAM NAME.
IDRPL - TO CREATE AN ID SEG FOR USER-SPEC PROGRAM.
IPGST - TO CHECK THE STATUS OF A PROGRAM.
OPEN - TO OPEN USER-SPEC PROGRAM'S TYPE 6 FILE.
UFNUM - TO CONVERT A NUMBER TO ASCII AND PUT IT IN A BUFFER.
F03801
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: LRPSC
Title....................: LOAN REPAYMENT SCHEDULE
File Names...............: @LRPSC - SUBMISSION DOCUMENTATION
#LRPSC - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS PROGRAM CALCULATES AND PRINTS A LOAN REPAYMENT SCHEDULE FOR
A LOAN WITH A TERM UP TO 30 YEARS. BASIC TIME UNIT IS A YEAR, WITH
PAYMENTS MADE MONTHLY, AND INTEREST COMPOUNDED MONTHLY. THE OUTPUT
INCLUDES INTEREST PAYMENT, PRINCIPAL PAYMENT, AND BALANCE OWING EACH
MONTH. IT IS FULLY INTERACTIVE AND ASKS YOU ALL THE INFO IT NEEDS
TO KNOW.
F03901
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: CMORT
Title....................: CANADIAN MORTGAGE CALCULATION
File Names...............: @CMORT - SUBMISSION DOCUMENTATION
#CMORT - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
CMORT IS A PROGRAM TO DO A CANADIAN FIRST MORTGAGE CALCULATION
AND PRINT A MORTGAGE SUMMARY ALONG WITH ALL OR PART OF A MORTGAGE
AMORTIZATION SCHEDULE FOR MORTGAGES UP TO 40 YEARS. IT ACCEPTS AS
INPUT, MORTGAGE PRINCIPAL, QUOTED INTEREST RATE, AMORTIZATION AND
OPTIONAL ANNUAL BUY-DOWNS TO THE MORTGAGE PRINCIPAL. THE OUTPUT
FROM THE PROGRAM CAN BE DIRECTED TO A HARD COPY DEVICE SUCH AS A
PRINTER OR A TERMINAL CRT DEVICE. THE MORTGAGE SCHEDULE CAN BE
PRINTED FOR THE ENTIRE TERM OF THE MORTGAGE OR FOR ANY CONSECUTIVE
NUMBER OF YEARS OF THE MORTGAGE SCHEDULE BY STATING THE BEGINNING
AND ENDING YEARS FOR THE SCHEDULE PRINTOUT. IN CASE OF PRINTOUT
TO A HARD COPY DEVICE, ONE, TWO, OR THREE MORTGAGE YEARS WORTH OF
INFO CAN BE PUT ON A SINGLE PAGE.
Additional Documentation....:
CANADIAN MORTGAGES ARE LOANS AMORTIZED OVER A NUMBER OF YEARS
(TYPICALLY 25) WITH AN EQUAL MONTHLY INSTALLMENT PAYMENT COMPOSED
OF A PRINCIPAL AND AN INTEREST PORTION REFERRED TO AS P.I. BY LAW,
CANADIAN FIRST MORTGAGES HAVE THEIR INTEREST PAID MONTHLY BUT
CALCULATED AND COMPOUNDED SEMI-ANNUALY. AS A RESULT, THE QUOTED
INTEREST RATE ON A CANADIAN MORTGAGE MUST BE MODIFIED BEFORE BEING
USED TO PRODUCE A VALUE FOR THE P.I. OR BEING USED TO PRODUCE AN
AMORTIZATION TABLE FOR THE LOAN. IN ADDITION, CANADIAN MORTGAGES
OFTEN INCLUDE A PROVISION WHICH ALLOWS THE MORTGAGOR TO MAKE AN
ANNUAL LUMP SUM PENALTY FREE PAYMENT WHICH IS TO BE APPLIED DIRECTLY
AGAINST THE PRINCIPAL. THIS PROGRAM ALLOWS AMORTIZATION SCHEDULES
AND MORTGAGE SUMMARIES TO BE PRODUCED FOR CANADIAN MORTGAGES WHERE
LUMP SUM PAYMENTS MAY BE INTRODUCED AT ANNUAL INTERVALS BEGINNING ON
THE FIRST ANNIVERSARY OF THE MORTGAGE.
THE PROGRAM RUNS IN A HIGHLY CONVERSATIONAL FASHION AND PROMPTS THE
USER FOR ANY DATA REQUIRED IN ORDER TO PRODUCE A REASONABLE
COMPUTATION. THE USER HAS CONTROL OVER THE LOGICAL UNIT WHERE INPUT
IS ACCEPTED, THE LOGICAL UNIT USED TO PRODUCE THE REPORTS, THE NUMBER
OF YEARS OF MORTGAGE AMORTIZATION SCHEDULE WHICH APPEAR ON A SINGLE
PRINTED PAGE (1 TO 3), & THE FIRST AND LAST YEARS FOR WHICH THE MORTGAGE
SCHEDULE IS PRODUCED. THEY ARE ABLE TO ENTER THE PRINCIPAL VALUE OF
THE MORTGAGE, THE QUOTED INTEREST RATE AS A PERCENT PER YEAR, AND THE
TERM OF THE MORTGAGE IN YEARS. IN ADDITION, THEY CAN ENTER ANNUAL
BUY-DOWNS FOR ANY YEAR OF THE MORTGAGE AND CAN ENTER A SINGLE BUY-DOWN
WHICH IS TO BE APPLIED OVER A SERIES OF YEARS, THE NUMBER OF WHICH
IS CONTROLLED BY INPUT. ONCE THE PROGRAM HAS OBTAINED ALL THE DATA
NECESSARY TO MAKE A SCHEDULE, IT WILL PRODUCE THE REPORT AND THEN
LOOP BACK TO NEAR THE BEGINNING TO ALLOW THE USER TO MODIFY HIS
ASSUMPTIONS AND PRINT REVISED SHCEDULES. THE USER MAY ALSO ENTER A
DISCOUNT RATE WHICH CAN BE DIFFERENT THAN THE QUOTED MORTGAGE RATE
FOR PURPOSES OF CALCULATING THE NET PRESENT VALUE FOR VARIOUS LOAN
CONDITIONS AND REPAYMENT SCHEDULES.
F04001
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: CSRSS
Title....................: SUBROUTINE TO CALCULATE SUNRISE/SUNSET TIMES
File Names...............: @CSRSS - SUBMISSION DOCUMENTATION
#CSRSS - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4X
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
SUBROUTINE TO CALCULATE SUNRISE AND SUNSET TIMES AT ANY LOCATION IN
IN THE WORLD. (VALID ONLY FOR YEARS AFTER 1900). THIS SUBROUTINE
IS CALLED BY THE PROGRAMS 'SNRST' (CALCULATES TIMES FOR ANY DAY),
AND 'YRRST' (CALCULATES TIMES FOR A COMPLETE YEAR). THE SUBROUTINE
WAS CONVERTED FROM A PROGRAM LISTED IN BYTE MAGAZINE (JULY 1981).
THE ARTICLE WAS WRITTEN BY DR. BRUCE BARKSTROM, FROM NORTHWESTERN
UNIVERSITY. THE CONVERSION FROM THE 'BASIC' TO 'HP FORTRAN 4X'
VERSION WAS DONE BY PAT PASCAL (CALGARY,ALTA.). (BOTH PROGRAMS
'SNRST' AND 'YRRST' ARE JUST FORTRAN 4)
Additional Documentation....:
INPUT PARAMETERS: LATBF - LATITUDE BUFFER (DEGS, MINS, SECS)
LATDR - LATITUDE DIRECTION 'N' OR 'S'
LONBF - LONGITUDE BUFFER (DEGS, MINS, SECS)
LONDR - LONGITUDE DIRECTION 'W' OR 'E'
ITMZN - STANDARD TIME ZONE (1 TO 24)
IDATE - DATA BUFFER (YEAR, MONTH, DAY)
OUTPUT PARAMETERS: SNRIS - SUNRISE BUFFER (HOUR, MINS, SECS)
SNSET - SUNSET BUFFER (HOUR, MINS, SECS)
IER - ERROR RETURN CODE
0 - O.K.
1 - SUN NEVER SETS AT NORTH LAT.
-1 - SUN NEVER SETS AT SOUTH LAT.
2 - SUN NEVER RISES AT NORTH LAT.
-2 - SUN NEVER RISES AT SOUTH LAT.
F04101
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: SIMEQ
Title....................: SIMULTANEOUS EQUATIONS MATRIX SUBROUTINE
File Names...............: @SIMEQ - SUBMISSION DOCUMENTATION
#SIMEQ - SOURCE FILE
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON/PAT PASCAL/SID LEE/KAREN WILSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THE SUBROUTINE SIMEQ IS USED TO SOLVE A SET OF SIMULTANEOUS
LINEAR EQUATIONS OF THE FORM [A][X]=[XDOT] OR TO INVERT A
MATRIX, (BOTH USING DIAGONALIZATION PROCEDURES). THE SQUARE
MATRIX [A] AND THE COLUMN VECTOR [XDOT] ARE GIVEN AND THE
SOLUTION [X]=[AINV][XDOT] IS CALCULATED.
Additional Documentation....:
CALLING SEQUENCE:
CALL SIMEQ(A,XDOT,KC,AINV,X,IERR)
PARAMETERS:
A - COEFFICIENT ARRAY MATRIX [A]
AINV - INVERSE OF THE MATRIX A [AINV]
IERR - ERROR CODE = 1 IF A IS NON-SINGULAR
= 0 IF A IS SINGULAR
KC - ORDER OF THE MATRIX, KC <OR= 10
X - SOLUTION OF THE SIMULT. EQUATION [XDOT]
XDOT - COEFFICIENT VECTOR [XDOT]
THIS SUBROUTINE USES A GAUSS ELIMINATION METHOD WITH COLUMN
PIVOTING TO DETERMINE [AINV] AND [X]. THE ERROR CODE IS
NORMALLY 1, BUT SET TO ZERO IF THE MATRIX IS SINGULAR. IF
THE SUBROUTINE IS USED TO INVERT A MATRIX, THE ARGUMENTS [X]
AND [XDOT] MAY BE ASSIGNED TO ANY TEMPORARY VARIABLES. [X]
WILL BE DESTROYED BUT [XDOT] WILL BE UNCHANGED.
F04201
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: DUNGN
Title....................: DUNGEONS AND DRAGONS
File Names...............: "DUNGN - SUBMISSION DOCUMENTATION
#DUNGA - MAIN PROGRAM SOURCE FILE
#DUNGB - INIT. SEGMENT SOURCE
#DUNGC - PARSER SEGMENT SOURCE
#DUNGD - DEBUGGER SEGMENT SOURCE
#DUNGE - SAVE/RESTORE GAME SEG. SOURCE
#DUNGF - GAME ACTION SEGMENT SOURCE
#DUNGL - GAME SUBROUTINE LIB. SOURCE
#DLINK - SEGMENT LINKER
#A2A1 - A2 TO A1 FORMAT CONVERSION
#A1A2 - A1 TO A2 FORMAT CONVERSION
>DUNGN - LOADR COMMAND FILE
@DUNGN - MESSAGES & INIT. FILE
ALSO USES S/R'S IN CONTRIB. #1
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4X, ASSEMBLER
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS IS THE GAME OF DUNGEONS AND DRAGONS, ADAPTED FOR HP1000.
WE'VE BEEN PLAYING IT A WEEK OR SO, AND IT SEEMS TO BOTH WORK
AND BE A GOOD GAME.
A COUPLE OF NOTES:
1. A BUG OR TWO IN THE ORIGINAL VERSION HAS BEEN FIXED, BUT
PROBABLY A FEW REMAIN.
2. THE PROGRAM EXPECTS A CARTRIDGE 10 TO BE AVAILABLE, AND THE
MESSAGES AND INIT. FILE @DUNGN:DD:10 TO BE THERE.
3. IF SEGMENTATION IS DIFFERENT OR UNNECESSARY IN RTE-6, I HAVE
DONE IT SO THAT IT IS QUITE EASY TO CHANGE.
4. THE PROGRAM IS 28 PAGES, WITH 5 SEGMENTS.
Additional Documentation....:
F04301
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: DOMNO
Title....................: DOMINOS GAME (NOT REALLY)
File Names...............: @DOMNO - SUBMISSION DOCUMENTATION
#DOMNO - MAIN PROGRAM SOURCE FILE
#DSUBS - SOURCE FILE \
#SCORE - SOURCE FILE \
#NABRS - SOURCE FILE \
#BCAST - SOURCE FILE \
#PRFLD - SOURCE FILE \ SUBROUTINES
#EQFIX - SOURCE FILE /
#NBITX - SOURCE FILE /
#I2BIT - SOURCE FILE /
#LUBUN - SOURCE FILE /
#IDSMT - SOURCE FILE /
#DOMRD - ADDITIONAL PROGRAM SOURCE FILE
"DOMNO - DESCRIPTION OF GAME AND PLAY
INFO - GENERAL INFORMATION
DOMINO - TRANSFER FILE TO RUN GAME
*DOMNO - INSTALLATION TRANSFER FILE
DVRMOD - DESCRIPTION OF DRIVER MODS
Operating System.........: RTE-IVB
Language(s)..............: FORTRAN 4, ASSEMBLER
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: TOM HUTCHINSON
Company.......: DOME PETROLEUM, LTD.
Street........: 700 SECOND STREET, S.W.
City..........: CALGARY
Province......: ALBERTA
Country.......: CANADA
Postal Code...: T2P 0X5
Phone Number..: (403) 231-3950
Program Abstract............:
THIS IS NOT REALLY THE GAME OF DOMINOS, MATCHING BLOCKS WITH DOTS.
YOU'VE NO DOUBT ATTEMPTED AS A CHILD TO SET UP A ROW OF DOMINOS
ON THE FLOOR, AND THEN WATCH THEM ALL FALL DOWN WHEN YOU TOUCH
THE FIRST ONE. WELL, THAT'S WHERE THE NAME OF THIS EXCITING GAME
COMES FROM, BECAUSE IT LOOKS LIKE THAT ON THE SCREEN. TWO OR
MORE PLAYERS COMPETE AGAINST EACH OTHER FROM DIFFERENT TERMINALS,
EACH DIRECTING A STREAM OF CHARACTERS AROUND THE SCREEN AND TRYING
TO OUT-MANOEVER EACH OTHER. IT REQUIRES GOOD MANUAL DEXTERITY,
BUT IT'S GREAT FUN.
TO GIVE YOU AN IDEA OF WHAT THE GAME IS ALL ABOUT, HERE'S A
SAMPLE SCREEN:
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++A++++++++++++++++++++++
+ A A +
+ A A +
+ A A +
+ A A +
+ A A +
+ AAAAAAAAAAAAAA A A +
+ A A A +
+ A A A +
+ AAAAAAAAAAAA BBBBBBB A A +
+ CCCCCCCC* B A A +
+ C AAAAAAAAAA BA +
+ C A AB +
+ CCCCCCCCCCCCCCC A A BBBBBBBBBBBBB +
+ C A A B +
+ C A A B +
+ C A A B +
+ CCCCCCCCCCCC A A B +
+ A A B +
+ A A B +
+ A A B +
+ A A B +
+++++++++++++++++++++++++++++++++++A++++++++++++++++++++++++++++++++++++++++++++
YOU ARE PLAYER A A= 87: 5 B= 56: 10 C= 64: 7
Additional Documentation....:
REFER TO THE ENCLOSED DOCUMENTATION FILES FOR DESCRIPTIONS.
F04401
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: SDC
Title....................: Enhanced STORE, DUMP, and COPY utility
File Names...............: 1. Submission file.
2. &SDC FORTRAN program & subroutines
3. &SDCLB Assembly language subroutines
4. 'SDC User's guide
Operating System.........: RTE-IVB
Language(s)..............: FTN4, and ASMB
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Roger H. Levy
Company.......: AMS Laboratory
Street........: 1501 E. Lycoming Street
City..........: Philadelphia
State.........: PA
Country.......: USA
Zip Code......: 19124
Phone Number..: 215/288-5177
Program Abstract............:
SDC IS AN INTERACTIVE UTILITY PROGRAM WHICH PROVIDES EXTENSIONS OF SOME
OF THE FUNCTIONS OF THE FMGR AND ADDITIONAL COMMANDS FOR BACKUP AND
RESTORATION OF FILES ON A FILE BY FILE BASIS. THE TWO OUTSTANDING
FEATURES OF SDC ARE THAT 1) IT PROVIDES FILE STORE, DUMP, AND COPY
FUNCTIONS WHICH ELIMINATE THE RECORD LENGTH LIMITATIONS IMPOSED BY
FMGR AND 2) IT PROVIDES AN EFFICIENT DISK BACKUP CAPABILITY WHICH
ENABLES FILES TO BE RESTORED ON AN INDIVIDUAL AS WELL AS COMPLETE
CARTRIDGE BASIS.
TYPICAL USES OF THE PROGRAM INCLUDE STORE, DUMP, AND COPY FUNCTIONS
FOR FILES WITH LARGE RECORD SIZES SUCH AS FILES WITH LOGICALLY
BLOCKED RECORDS, BASIC CSAVE FILES, OR IMAGE FILES. WHEN USED FOR
DISK BACKUP, TAPES CAN BE CREATED WHICH HAVE A FORMAT SIMILAR TO THE
PLUS 1000 LIBRARY TAPE. THIS FORMAT IS NEARLY AS EFFICIENT IN TAPE
UTILIZATION AS THE TRACK BY TRACK DISK BACKUPS BUT HAS THE ADVANTAGE
OF INDIVIDUAL FILE RECOVERY. THE FILE RECOVERY CAPABILITY ALLOWS
THE USER TO RECOVER UP TO 50 FILES WITH A SINGLE COMMAND, OR AN ENTIRE
DISK WITH TWO COMMANDS.
SDC USES THE FMP AND DECIMAL ARITHMETIC SUBROUTINES. A COMPLETE USER'S
GUIDE IS PROVIDED.
COMPILE FILE# 2 WITH THE FTN4 COMPILER. SEPARATE THE 11 ROUTINES IN
FILE# 3 AND ASSEMBLE THEM INDIVIDUALLY. THE FIRST EIGHT ROUTINES IN
FILE# 3 REQUIRE EITHER THE 'Z' OR 'N' OPTION OF THE ASSEMBLER DEPENDING
ON THE OPERATING SYSTEM USED. REFER TO THE CHART BELOW.
RTE-II RTE-III RTE-IVA RTE-IVB
IAMEM Z Z N N
IEQTC Z Z Z N
MSC Z Z Z N
LCKD Z Z Z N
TRNC1 Z Z Z N
BCRES Z Z Z N
BDTTS Z Z Z N
BTTDS Z Z Z N
LOAD INTO A PARTITION WHICH CAN PROVIDE AT LEAST 1K MORE MEMORY THAN
REQUIRED BY THE PROGRAM AND SUBROUTINES. ANY EXTRA MEMORY PROVIDED IN
THE PARTITION WILL BE USED AS RECORD BUFFER SPACE, THUS MORE MEMORY
IMPLIES LARGER RECORDS CAN BE HANDLED.
Additional Documentation....:
FILE# 4 IS A COMPLETE USER'S GUIDE. PROPERLY FORMATTED PAGES CAN
BE OBTAINED BY DUMPING THE FILE WITH THE FMGR TO A PRINTER WHICH
HAS 66 LINES PER PAGE, SUPPORTS CARRIAGE CONTROL FUNCTIONS, I.E.
A '1' IN COLUMN #1 -> PAGE EJECT, AND HAS A 96 CHARACTER SET.
F04501
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: OTHELO
Title....................: Game of OTHELLO
File Names...............: 1. Submission file.
2. &OTHEL Source - mixed
3. %OTHEL Relocatable
Operating System.........: RTE-IVB
Language(s)..............: FTN4X and ASMB
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Unknown
Company.......:
Street........:
City..........:
State.........:
Country.......:
Zip Code......:
Phone Number..:
Program Abstract............: The source file is a composite file of
program source and load files concatenated.
Additional Documentation....:
F04601
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: D.05
Title....................: 264X BCS Driver
File Names...............: 1. Submission file.
2. &D.05 Source
Operating System.........: RTE-IVB
Language(s)..............: ASMB
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Unknown
Company.......:
Street........:
City..........:
State.........:
Country.......:
Zip Code......:
Phone Number..:
Program Abstract............:
INPUT/OUTPUT INTERFACE
----------------------
D.05 WILL COMMUNICATE WITH THE HP 264X VIA THE 12966 BUFFERED
ASYNCHRONOUS DATA COMMUNICATION INTERFACE CARD. COMMUNICATION
FROM THE 264X KEYBOARD MAY BE IN EITHER CHARACTER OR BLOCK
MODE. THE TERMINAL CAN BE USED WITH "LINE STRAPPING",
OR "PAGE STRAPPING" AND HENCE A SINGLE LINE OR THE
ENTIRE DISPLAY MEMORY CAN BE TRANSMITTED AFTER BEING ENABLED
MAJOR FUNCTIONS
---------------
D.05 PROVIDES THE FOLLOWING MAJOR FUNCTIONS:
1. I/O CONTROL OF CTU,CRT,AND TERMINAL PRINTER
2. READ OR WRITE REQUEST TO CTU WITH BINARY OR ASCII DATA.
3. READ OR WRITE REQUEST TO KEYBOARD AND DISPLAY.
4. STATUS REQUEST TO CTU AND KEYBOARD.
5. WRITE REQUEST TO TERMINAL PRINTER
CTU CONTROL REQUEST
-------------------
(CONTROL SPECIFIC CTU, OR PRINTER AS SELECTED BY
SUB CHANNEL NUMBER)
FUNCTION :
0 : CLEAR
1 : READ
2 : WRITE
SUBFUNCTION :
BIT 8 BIT 6
----- -----
0: NO 0: ASCII
1: ECHO 1: BINARY
3 : TAPE CONTROL
SUBFUNCTION :
0 : DYNAMIC STATUS
1 : WRITE EOF
2 : BACKSPACE ONE RECORD
3 : FORWARD SPACE ONE RECORD
4 : REWIND
5 : BACKSPACE ONE FILE
6 : FORWARD SPACE ONE FILE
7 : WRITE EOV (END OF VALID DATA)
*NOTES ON CTU CONTROL REQUEST *
A. A REWIND, BACKSPACE RECORD, OR BACKSPACE FILE WILL PERFORM
NO ACTION IF THE TAPE UNIT IS AT LOAD POINT. THIS CONDITION
WILL BE SET IN THE STATUS WORD (BIT 6 SET).
B. IF THE END-OF-TAPE MARK IS SENSED DURING A WRITE OPERATION,
AN END OF VALID DATA MARK WILL BE RECORDED AUTOMATICALLY. IF
A WRITE REQUEST WAS BEING PROCESSED, THE CURRENT RECORD WILL
BE RECORDED. IF A READ REQUEST WAS IN PROCESS THE CURRENT
RECORD WILL BE READ. THIS CONDITION WILL BE SET IN THE STATUS
WORD.
C. FOR FILE MOTION COMMANDS THE TAPE IS POSITIONED AFTER THE
FILE MARK.
D. READ REQUESTS WILL BE REJECTED IF THE TAPE IS AT EOV. THE
EOV MAY BE OVERWRITTEN WITH DATA OR A FILE MARK UNLESS THE
TAPE IS AT END-OF-TAPE.
E. DYNAMIC STATUS RETURNS THE STATUS IN EQT2 AND CAN
BE RETRIVED BY CALLING IOC WITH THE REGULAR STATUS CALL
SKP
ASCII INPUT FROM KEYBOARD CHARACTER MODE
----------------------------------------
THE DRIVER DETECTS WHETHER A CHARACTER MODE OR BLOCK MODE REQUES
WILL FOLLOW BY EXAMINING THE FIRST CHARACTER. IF IT IS A DC2
THEN THE DRIVER ASSUMES THE ENTER KEY HAS BEEN PRESSED AND A
BLOCK TRANSMISSION IS PENDING. THE DRIVER RESPONDS WITH A DC1 T
TRIGGER THE BLOCK TRANSFERS. IF THE FIRST CHARACTER IS NOT A DC
THEN THE DRIVER ASSUMES A CHARACTER TRANSFER IS PENDING.
IN CHARACTER MODE THE TERMINAL TRANSMITS A CHARACTER AT A TIME A
THE KEY IS DEPRESSED. THE RECORD TERMINATION IS A CR OR RS. TH
DRIVER ECHOS A LF.
A RECORD TERMINATOR MUST BE ENTERED TO COMPLETE REQUEST, EVEN IF
USERS BUFFER IS FULL. TRANSMISSION LOG IS RETURNED IN B REG.
ASCII INPUT FROM KEYBOARD BLOCK MODE
------------------------------------
IN BLOCK MODE THE TERMINAL TRANSMITS EITHER A LINE AT A TIME (LI
STRAPPING) ON A PAGE (PAGE STRAPPING). THE DRIVER DETERMINES TY
OF STRAPPING BY A TERMINAL STATUS REQUEST.
A. LINE STRAPPING
THE TERMINATOR IS A CR WHICH IS NOT PASSED TO USER'S
BUFFER. IMBEDDED RS'S ARE NOT PASSED.
B. PAGE STRAPPING
THE TERMINATOR IS A RS WHICH IS NOT PASSED TO USER'S BUFFER. TH
LINE SEPARATORS CR, LF ARE PASSED TO USER'S BUFFER.
C. A "US"OR "RS" IS NEVER PASSED TO BUFFER
D. BLOCK READS ARE OF 2 TYPES:
1. TERMINAL ENABLED (ENTER PRESSED)
2. USER ENABLED ("ESC" SMALL "D" SENT)
SKP
CTU STATUS REQUEST (RETURNED IN EQT2)
------------------
BIT
7 -END OF FILE SENSED. A FILE MARK HAS BEEN DETECTED DURING A PRIO
READ OPERATION OR A FILE MARK HAS JUST BEEN RECORDED.
6 -LOAD POINT SENSED. CARTRIDGE TAPE IS AT OR BEFORE LOAD
POINT MARKER. MEANINFUL ONLY IF CARTRIDGE IS INSERTED.
5 -END OF TAPE SENSED. THE CARTRIDGE TAPE HAS PASED OVER EARLY
WARNING MARKER IN THE TAPE AND AN END-OF-VALID DATA MARK HAS BEE
RECORDED AUTOMATICALLY. COMMANDS DIRECTING FORWARD MOTION OF TA
WILL BE REJECTED. THIS STATUS ONLY HAS MEANING IF A CARTRIDGE I
INSERTED.
4 -READ\WRITE ERROR
A READ ERROR EXISTS IF THREE SUCCESSIVE ATTEMPTS FAILED TO READ
THE DATA IN THE RECORD. THE TAPE IS POSITIONED AFTER THE BAD
RECORD.
3 -LAST COMMAND ABORTED. THE LAST COMMAND INITIATED FROM THE CPU O
KEYBOARD WAS UNSUCCESSFULLY PERFORMED. OTHER STATUS CONDITIONS
MAY BE CHECKED FOR CAUSE.
2 -WRITE PROTECTED. THE FILE PROTECT TAB ON THE CARTRIDGE IS IN TH
POSITION TO PROHIBIT RECORDING OF DATA. THIS STATUS ONLY HAS
MEANING IF A CARTRIDGE IS INSERTED AND A RECORDING OPERATION HAS
BEEN ATTEMPTED.
1 -END OF VALID DATA. THE CARTRIDGE TAPE DETECTED AN END-OF-VALID
DATA MARK DURING A PRIOR READ OR SEARCH OPERATION OR HAS JUST
COMPLETED RECORDING AN END-OF VALID DATA MARK. IN EITHER CASE,
THE TAPE IS POSITIONED BEFORE THE END-OF VALID DATA MARK. RECOR
OPERATIONS MAY BE EXECUTED TO OVERWRITE THIS MARK WITH DATA
OR A FILE MARK, UNLESS THE TAPE IS AT END OF TAPE.
0 -CARTRIDGE NOT INSERTED OR UNIT BUSY.
F04701
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: SHOW
Title....................: Show A File A Screen At A Time
File Names...............: 1. Submission file.
2. &SHOW Source
3. ?SHOW Documentation
Operating System.........: RTE-IVB
Language(s)..............: FTN4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Bob Desinger
Company.......: Hewlett Packard
Street........:
City..........: Cupertino
State.........: California
Country.......:
Zip Code......:
Phone Number..:
Program Abstract............:
To see a file or files a screen at a time, enter:
SHOW [,namr1 [,namr2 [,...namrN]]]
When Show pauses, press one key:
SPACE see another screenful
RETURN see 100 more lines
0..9 [any number] see half a screenful more
? H help
F find a literal string (starting at the next line)
B find from the beginning of the file
# go to a line number (relative or absolute)
+ skip a number of lines
^ - go back a number of lines
> list to the end of file
$ see the last screen of the file
N see a new file (not specified in the runstring)
A abort this file, show the next one
ESC escape (don't show any more files)
The runstring can be over 80 characters long. Commands and file names can
be in lower case.
The # command asks for a line number. If you want a specific line, give
that number. If you want to go forward or backwards a group of lines, use
a leading + or - and tell how many lines to skip (as in -365 or +77).
To see the first screenful of the file, press RETURN instead of a number.
To stay where you are, enter a character that isn't a number.
The F and B commands find literal (not casefolded) strings. The line
containing the pattern is the last one displayed. If the pattern is not
found by the end of the file, you're returned to the line you started from.
Show remembers the find pattern you last entered, even if it was in a pre-
vious file. To recall it without retyping it, press RETURN when asked
for the find string.
The N command asks you for the new file; your answer can be upper, lower,
or mixed case characters. If a non-blank name is given, the current file
is closed and the new one is opened. The rest of the runstring files are
not affected by this command; they will still be accessed in their original
order.
To exit a file at EOF, enter anything (except the help commands or the ones
that go to a previous line); a RETURN or SPACE is usually handy. The ESC key
always lets you escape from Show no matter how many files remain to be seen.
ESC can be used from any line in any file.
If I/O redirection is allowed on your system, Show displays from its standard
input first. Then it shows the files specified in the runstring if there
are any. The prompt is always sent to (and read from) your terminal, but
output is otherwise directed to the standard output, with errors reported
to the standard error device. Show returns the last FMP error that occurred
or zero (success) if there were no errors in the exit status 1P global.
Show normally shows you 22 lines--one screenful--at a time. If you want a
different number of lines per screenful, specify that number as a security
code of the Show command name. For instance, to see 21 lines at a time (on
your HP 2626 terminal), use SHOW:21,fileNamr1,fileNamr2,....
Application notes:
Show can be used to preview output files a page at a time. To do this,
invoke it using a security code number equal to the number of lines per
output page. For instance, to scan a listing file 'OUTPT that has 60 lines
per page, enter SHOW:60,'OUTPT. Then use the B command to find the first
page boundary (the common markers are either a 1 or the formfeed character,
control-L). Now type a space to move from page to page. If the number of
lines on each output page changes, use the F command to find the next page
marker, which re-synchronizes from that point.
$ (go to EOF) nifty: the closer you are to the end of the file, the faster
the $ command works. If you have a huge file and want blinding speed with
this command, use the # (or the + ) command to get farther into the file.
Entering a line number like 999999 is the same as using $.
<830119.0957>
F04801
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: BMSA
Title....................: Produce Source Assembler From Relocatable Code
File Names...............: 1. Submission file.
2. %BMSA Relocatable
Operating System.........: RTE-IV, RTE-III, RTE-II
Language(s)..............: ASMB
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Kevin J. O'Meara
Company.......: Thurston Software Consultants
Street........: Building 73B
: Stansted Airport
City..........: Stansted
State.........: Essex
Country.......: United Kingdom
Zip Code......:
Phone Number..: (0279) 815027
Program Abstract............:
This program takes as its input relocatable records and produces
source code which can be re-assembled to the original relocatable
form.
It is useful for implementing minor or even major changes
to code where the source is unavailable or lost.
Quote from a user - " one is not distracted by misleading, out-of-date
or inaccurate comments when checking this code "
It does not accept extended relocatable records yet, ORCAM comes
later.
**ANSWER 24
Load as standard background with 14K Memory size
RU,BMSA -- and all will be revealed
F04901
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: FZEIT
Title....................: Current System Time
File Names...............: 1. Submission file.
2. &FZEIT Source
Operating System.........: RTE-IVB
Language(s)..............: ASMB
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Graham Lang
Company.......: RCA Labs
Street........:
City..........: Zurich
State.........:
Country.......: Switzerland
Zip Code......:
Phone Number..:
Program Abstract............:
*
* PURPOSE To return current system time, in one of three
* optional formats. See below for details.
*
* NOTES 1. if IOPTN is not specified, option=0
* 2. optional formats:-
*
* IOPTN IBUF length
* ===== ============== =======
*
* 0 820812 3 words
* ------
* 1 820812.1245 6 words [trailing space]
* ------------
* 2 <820812.1245> 7 words [leading space]
* --------------
F05001
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: SORT
Title....................: Quick Memory Sort
File Names...............: 1. Submission file.
2. &SORT Source
Operating System.........: RTE-IVB, RTE-II
Language(s)..............: ASMB
External Support Req'd...:
If Re-submission, Reason.:
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.
F05101
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................:EDCN
Title...............:A powerful & general text editor
File Names........01:Submission file
02:&EDCN Source code
03:&COMED INCLUDE file for &EDCN
04:%EDCN Relocatable for EDCN
05:^EDCN LOADR command file for EDCN
06:"EDCN Documentation file for EDCN
07:;CL Utility command file for EDCN
08:;LB Utility command file for EDCN
09:;LTOP Utility command file for EDCN
10:;RWL Utility command file for EDCN
11:;DSA Utility command file for EDCN
12:;DSNO Utility command file for EDCN
13:;DSNL Utility command file for EDCN
14:;DNSA Utility command file for EDCN
15:;DNSNO Utility command file for EDCN
16:;DSNSL Utility command file for EDCN
17:;DCOL Utility command file for EDCN
18:;DCOLA Utility command file for EDCN
Operating System........:RTE-IVB/6VM
Language(s).............:FTN4
External Support Req'd..:'Haystack' library $LIBHS
Program COMPC for compilation
If Re-submission, Reason:Upgrade to compatibility with RTE-6
Contributor's Name..........:Alan R. Whitney
Company.......:MIT Haystack Observatory
Street........:Off Rt. 40
:
City..........:Westford
State.........:Massachusetts
Country.......:USA
Zip Code......:01886
Phone Number..:(617) 692-4764
Program Abstract............:
EDCN is a powerful text editor written by Chopo Ma of NASA Goddard Space
Flight Center, and is being submitted here with his permission. EDCN
is based on a combination of the best features of the HP EDITR, the
Univac 1108 editor, and the DEC SOS editor. Among other things, EDCN
alows easy cut and paste and user-construction of complex editing
procedures which can be set up in an EDCN command file and invoked with
a single command. See file "EDCN for details. See particularly Note 1
in "EDCN before compiling and loading EDCN. A number of standard EDCN
command files are included; again see "EDCN for a description of these
files.
Additional Documentation....:"EDCN
F05201
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: IFLD
Title....................: Retrieve a packed field from the packed
input buffer
File Names...............: 1. Submission file.
2. &IFLD Source
Operating System.........: RTE-IVB
Language(s)..............: FTN4X
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Glen Simpson
Company.......: Westinghouse CDA Inc.
Street........:
City..........:
State.........:
Country.......:
Zip Code......:
Phone Number..:
Program Abstract............: The program should be self-documenting.
F05301
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: DSKMP
Title....................:
File Names...............: 1. Submission file.
2. &DSKMP Source
Operating System.........: RTE-IVB
Language(s)..............: FTN4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Steve Gauss
Company.......: U.S. Naval Observatory
Street........: 34th and Massachusetts Ave., N.W.
City..........: Washington
State.........: District Of Columbia
Country.......: USA
Zip Code......: 20390
Phone Number..: 202-254-4536
Program Abstract............:
C& FOR 7905, 7906, 7920, 7925 UNITS ONLY
C& USES DECIMAL STRING ARITHMETIC
C& RTE-IVB AND RTE-6 VM
C& NOTE: FOR RTE 6, CHANGE STATEMENT 666 TO 64 FROM 32
C& CAN BE COMPILED WITH EITHER FTN4, FTN4X, OR FTN7X COMPILER
C& CREATES A PICTURE OF THE DISK LAYOUT.
C& A SEPARATE PICTURE IS CREATED FOR EACH DISK UNIT.
C& THE MAX NUMBER OF SUBCHANNELS PER PICTURE IS SET AT
C& 32, BUT CAN BE INCREASED (SEE NUMSC).
C& SEPARATE PICTURES CAN ALSO BE CREATED FOR MULTIPLE
C& REMOVEABLE CARTRIDGES DEFINED FOR THE SAME UNIT.
C& INPUT IS THE ANSWER FILE FROM A SYSTEM GENERATION.
C&
C& REQUIREMENTS FOR THE ANSWER FILE:
C& ...ANY COMMENT LINES MUST HAVE AN * IN COLUMN 1
C& ...THE DISK MUST BE EQT NUMBER 1
C& ...SUBCHANNELS ON ALTERNATE REMOVEABLE PLATTERS ARE
C& DISTINGUISHED BY ENTERING A NUMBER [N] IN
C& THE COMMENT FIELD OF THE SUBCHANNEL ALLOCATION.
C& ...ALL LU'S WITH THE SAME VALUE OF [N] ARE
C& GROUPED TOGETHER.
C&
C& COMMENT LINES CAN BE ADDED TO THE OUTPUT.
C& A COMMENT LINE MUST:
C& ..BEGIN WITH AN *
C& ..CONTAIN [L] OR [LU] FOLLOWED BY UP TO 50 CHARACTERS
C& OF COMMENTS, WHERE L OR LU IS THE DISK LU TO WHICH
C& THE COMMENTS APPLY.
C& ..OCCUR IN THE ANSWER FILE BEFORE THE END OF THE
C& DISK SUBCHANNEL ALLOCATIONS.
C& THE PROGRAM MAKES SEVERAL PASSES THROUGH THE ANSWER FILE,
C& SO DONT GET IMPATIENT AFTER THE LISTING FOR THE PROGRAM TO END.
F05401
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: HELP
Title....................:
File Names...............: 1. Submission file.
2. &DSKMP Source
Operating System.........: RTE-IVB
Language(s)..............: Editor file
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Steve Gauss
Company.......: U.S. Naval Observatory
Street........: 34th and Massachusetts Ave., N.W.
City..........: Washington
State.........: District Of Columbia
Country.......: USA
Zip Code......: 20390
Phone Number..: 202-254-4536
Program Abstract............:
A HELP file that includes the FTN4X errors and others.
F05501
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: KEDIT
Title....................: A Quick Edit Program For Image Data Bases
Using Formatted Screens
File Names...............: 1. Submission file.
: 2. &KEDIT -- MAIN PROGRAM SOURCE FTN4
: 3. &KEDT -- SEGMENT 1 SOURCE FTN4
: 4. &KEDT0 -- SEGMENT 2 SOURCE FTN4
: 5. &KEDT1 -- SEGMENT 3 SOURCE FTN4
: 6. &KEDT2 -- SEGMENT 4 SOURCE FTN4
: 7. &KEDT3 -- SEGMENT 5 SOURCE FTN4
: 8. &KEDT4 -- SEGMENT 6 SOURCE FTN4
: 9. &KEDT5 -- SEGMENT 7 SOURCE FTN4
:10. &KEDT6 -- SEGMENT 8 SOURCE FTN4
:11. &KFORM -- LIBRARY SUBS SOURCE FTN4
:12. &KTABS -- LIBRARY SUBS SOURCE ASMB
:13. %ELIB1 -- RELOCATABLE LIBRARY
:14. %FTLIB -- USER CALLABLE FORTRAN UTILITIES
:15. "KEDIT -- KEDIT HELP/DOCUMENTATION FILE
:16. #KEDIT -- TRANSFER FILE TO LOAD AND SP KEDIT
:17. *KEDIT -- LOADR COMMAND FILE
Operating System.........: RTE-IVB, RTE-6/VM
Language(s)..............: FTN4, ASMB
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Joel K. McClatchy
Company.......: E-Systems Inc.
Street........: P.O. Box 1056
City..........: Greenville
State.........: Texas
Country.......: USA
Zip Code......: 75401
Phone Number..: 214-454-5363
Program Abstract............:
KEDIT IS A REVISION OF THE PLUS/1000 PROGRAM KNOWN AS QEDIT.
KEDIT REQUIRES IMAGE/1000 PART NO. 92069A AND A 264X TERMINAL WITH
INVERSE DISPLAY ENHANCEMENTS. THE PROGRAM FORMATS THE 264X SXREEN
TO MATCH THE DATA BASE SCHEMA OF THE DATA BASE BEING UPDATED. KEY
ELEMENTS ARE HIGHLIGHTED FOR CONVENIENCE. THE PROGRAM IS INTENDED
TO MAKE IMAGE DATA BASE UPDATES EASIER. KEDIT REPLACES THE UPDATE
FUNCTIONS OF QUERY. THE OPERATOR NEED HAVE NO KNOWLEDGE OF QUERY.
:RU,LOADR,#KEDIT
THE LOADR COMMAND FILE ASSUMES THAT THE IMAGE/1000 LIBRARY FOR LOCAL
DATA BASE ACCESS IS GENERATED INTO THE HOST OPERATING SYSTEM (THIS
LIBRARY IS USUALLY REFERRED TO AS $DBMS1). SEE MISC. COMMENTS FOR
INFORMATION ON REMOTE DATA BASE ACCESS THRU KEDIT.
IT IS ALSO ASSUMED THAT THE DECIMAL STRING ARITHMETIC LIBRARY (%DECAR)
IS IN THE SYSTEM.
:RU,KEDIT
NO PARAMETERS ARE REQUIRED ON THE RUN STATEMENT.
KEDIT PROMPTS OPERATOR INTERACTIVELY FOR PARAMETERS.
SEE THE FILE "KEDIT FOR INFORMATION ON EACH COMMAND OPTION.
ALL ERROR MESSAGES ARE OUTPUT TO THE TERMINAL.
PROGRAM KEDIT IS DESIGNED TO WORK WITH SINGLE INTEGERS, FLOATING POINT,
OR ASCII DATA CONTAINED IN A DATA BASE.
KEY FIELDS ARE IN HIGHLIGHTED IN BRIGHT INVERSE VIDEO WHILE OTHER FIELDS
ARE IN HALF-BRIGHT INVERSE VIDEO
KEDIT HAS THE CAPABILITY OF DOING REMOTE DATA BASE ACCESS IF THE
APPROPRIATE DS/1000-IV SOFTWARE/HARDWARE IS INCLUDED IN THE SYSTEM.
TO USE THIS FEATURE, MODIFY THE SOURCE SEGMENT NAMED 'KEDT' BY UN-
COMMENTING THE APPROPRIATE LINES OF CODE. WHEN LOADING THIS VERSION
OF KEDIT, SPECIFY THE LOADR OPTION 'OP,SS' TO GIVE IT SUBSYSTEM GLOBAL
ACCESS AND REMEMBER TO SEARCH THE IMAGE/1000 LIBRARY THAT CONTAINS THE
REMOTE DATA BASE ACCESS ROUTINES.
F05601
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: ESORT
Title....................: Sorts A Data Array In Memory Using the
Shell-Metzner Sort Algorithm
File Names...............: 1. Submission file.
: 2. &ESORT -- Subroutine source
Operating System.........: RTE-IVB, RTE-6/VM
Language(s)..............: ASMB
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Joel K. McClatchy
Company.......: E-Systems Inc.
Street........: P.O. Box 1056
City..........: Greenville
State.........: Texas
Country.......: USA
Zip Code......: 75401
Phone Number..: 214-454-5363
Program Abstract............:
THIS ROUTINE IS DESIGNED TO SORT A DATA ARRAY IN MEMORY USING THE
SHELL-METZNER SORT ALGORITHM AND ALLOWS A THREE LEVEL SORT TO BE
PERFORMED. THE USER MAY SPECIFY UP TO THREE FIELDS, IN ANY ORDER,
FROM THE DATA RECORD. THE DATA IS SORTED, TESTING THE FIELDS IN THE
ORDER THEY ARE SPECIFIED IN THE CALL STATEMENT.
SUBROUTINE ESORT CAN BE CALLED FROM ASSEMBLY LANGUAGE OR FORTRAN.
IT IS DESIGNED TO DO EITHER A WORD SORT (BY CALLING 'WSORT') OR A
BYTE SORT(BY CALLING 'CSORT') ON THE DATA ARRAY. THE DATA ARRAY IS
A TWO DIMENSIONAL ARRAY OF DATA WHERE EACH ROW IS A DATA RECORD.
THE DATA ARRAY IS SORTED BY CREATING A LIST OF RECORD NUMBERS IN
SORTED ORDER. THIS LIST IS STORED IN A ONE DIMENSIONAL ARRAY PASSED
AS THE SECOND CALLING PARAMETER AND IS KNOWN AS THE "INDEX" ARRAY.
THE ACTUAL DATA IS NOT MOVED IN MEMORY. THE CALLING PROGRAM MAY
THEN ACCESS THE DATA IN SORTED ORDER BY USING THE RECORD NUMBERS IN
THE "INDEX" ARRAY AS ARRAY SUBSCRIPTS.
ESORT ALLOWS UP TO A THREE LEVEL SORT TO BE PERFORMED, IN ANY
ORDER.
F05701
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: RPRNT
Title....................: Spooled Print Out To A Remote Line Printer
Thru A DS/1000 Link
File Names...............: 1. Submission file.
: 2. &RPRNT -- Subroutine source
: 3. &RPRSL -- Source slave side program
: 4. #RPRNT -- Loader command file for master
: 5. #RPRSL -- Loader command file for slave
: 6. %ELIB1 -- Relocatable utility library
Operating System.........: RTE-IVB, RTE-6/VM
Language(s)..............: FTN4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Joel K. McClatchy
Company.......: E-Systems Inc.
Street........: P.O. Box 1056
City..........: Greenville
State.........: Texas
Country.......: USA
Zip Code......: 75401
Phone Number..: 214-454-5363
Program Abstract............:
PROGRAMS 'RPRNT' AND 'RPRSL' USE THE FOLLOWING HP SUBROUTINES:
FMP -- 92084 FILE MANAGEMENT ROUTINES
SMP -- 92084 BATCH AND SPOOL ROUTINES
PTOP -- 91750 DS/1000-IV PROGRAM TO PROGRAM COMM. ROUTINES
THE SLAVE PROGRAM CREATES A SPOOL FILE AT THE DESTINATION NODE;
THEREFORE THE DESTINATION NODE SHOULD HAVE THE SPOOL MONITORING
PROGRAMS GENERATED INTO THE SYSTEM.
IT IS ASSUMED THAT THE APPROPRIATE DS/1000-IV SOFTWARE AND HARD-
WARE IS ALSO GENERATED INTO THE SYSTEM.
:RU,LOADR,#RPRNT
:RU,LOADR,#RPRSL
BOTH PROGRAMS SHOULD BE LOADED AT EACH NODE THAT WILL BE UTILIZING
THE REMOTE PRINT FEATURE.
RU,RPRNT, FILE, LU, NODE
WHERE FILE = NAMR OF FILE TO BE PRINTED
LU = LU OF REMOTE PRINTER
NODE = REMOTE DS/1000 NODE NUMBER WHERE LU IS LOCATED
:RU,RPRNT, FILE1::59, 6, 2
THIS WOULD CAUSE THE FILE NAMED 'FILE1' ON CARTRIDGE 59 TO BE SPOOLED
AND PRINTED ON LU 6 WHICH IS LOCATED ON NODE 2 IN THE DS/1000 NETWORK
:RU,RPRNT,MYFILE::SP,17,100
PRINT 'MYFILE' TO LU 17 OF NODE 100.
RPRNT ALLOWS ACCESS TO PRINTERS ON OTHER NODES OF THE SYSTEM WITHOUT
UTILIZING THE I/O MAPPING FEATURES. IT USES THE DS/1000-IV PROGRAM
TO PROGRAM (PTOP) COMMUNICATION CALLS TO PASS RECORDS BETWEEN DS NODES.
THE SLAVE ROUTINE 'RPRSL' AT THE DESTINATION NODE ASSUMES RESPONSIBILITY
FOR ACCESSING THE PRINTER WITHOUT INTERFERING WITH OTHER ROUTINES.
THE SLAVE SIDE PROGRAM USES SMP (SPOOLING) SUBROUTINE CALLS TO SET UP
A SPOOL FILE AND THEN RELEASES IT TO THE SPOOLING SYSTEM (SPOUT) FOR
OUTSPOOLING.
THE DS/1000 DEFAULT LOGON ACCOUNT IS USED WHEN SCHEDULING THE SLAVE.
THIS ACCOUNT MUST HAVE DEFINED WITHIN ITS SST THE LU PASSED IN THE RUN
STRING. THIS LU MUST HAVE BEEN DEFINED AS AN OUTSPOOL DEVICE DURING
SPOOL INITIALIZATION (SET BY RUNNING GASP).
F05801
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: MOUNT, DMONT
Title....................: Mount or Dis-Mount A Disk LU On A Remote
DS/1000 Node
File Names...............: 1. Submission file.
: 2. &MOUNT -- Source master program - MOUNT
: 3. &RMTSL -- Source slave side program
: 4. #MOUNT -- Loader command file for master
: 5. #RMTSL -- Loader command file for slave
: 6. &DMONT -- Source master program - DMONT
: 7. &RDMSL -- Source slave program
: 8. #DMONT -- Loader command file for master
: 9. #RDMSL -- Loader command file for slave
Operating System.........: RTE-IVB, RTE-6/VM
Language(s)..............: PASCAL
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........: Joel K. McClatchy
Company.......: E-Systems Inc.
Street........: P.O. Box 1056
City..........: Greenville
State.........: Texas
Country.......: USA
Zip Code......: 75401
Phone Number..: 214-454-5363
Program Abstract............:
PROGRAMS 'MOUNT', 'RMTSL', 'DMONT', AND 'RDMSL' USE THE FOLLOWING
HP LIBRARIES:
$PLIB -- PASCAL RELOCATABLE LIBRARY
PTOP -- 91750 DS/1000-IV PROGRAM TO PROGRAM COMM. ROUTINES
AND REMOTE SESSION LOGON/LOGOF ROUTINES
EXEC -- EXEC CALLS
FMP -- 92084 FILE MANAGEMENT ROUTINES
IT IS ASSUMED THAT THE APPROPRIATE DS/1000-IV SOFTWARE AND HARD-
WARE IS ALSO GENERATED INTO THE SYSTEM.
PROGRAM 'MOUNT' PRIVATELY MOUNTS THE SPECIFIED DISK LU TO THE
SPECIFIED REMOTE SESSION ACCOUNT LOCATED AT THE DESTINATION NODE.
PROGRAM 'DMONT' DIS-MOUNTS THE SPECIFIED DISK LU FROM THE REMOTE
SESSION ACCOUNT LOCATED AT THE DESTINATION NODE.
FOR REMOTE MOUNT:
:RU,LOADR,#MOUNT
:RU,LOADR,#RMTSL
BOTH PROGRAMS SHOULD BE LOADED AT EACH NODE THAT WILL BE UTILIZING
THE REMOTE MOUNT FEATURE.
FOR REMOTE DIS-MOUNT:
:RU,LOADR,#DMONT
:RU,LOADR,#RDMSL
BOTH PROGRAMS SHOULD BE LOADED AT EACH NODE THAT WILL BE UTILIZING
THE REMOTE DIS-MOUNT FEATURE.
:RU,MOUNT, USER.GROUP/PASSWORD, LU, NODE
WHERE USER.GROUP/PASSWORD = REMOTE SESSION TO WHOM THE DISK WILL BE
PRIVATELY MOUNTED (DEFAULT IS USER.GENERAL)
LU = DISK LU TO BE MOUNTED
NODE = DESTINATION DS/1000-IV NODE NUMBER
CRN,
:RU,DMONT, USER.GROUP/PASSWORD, -LU, NODE
WHERE USER.GROUP/PASSWORD = REMOTE SESSION TO WHOM THE DISK IS
CURRENTLY MOUNTED (DEFAULT IS USER.GENERAL)
-LU OR
CRN = NEGATIVE DISK LU OR CARTRIDGE REFERENCE NO.
NODE = DESTIONATION DS/1000-IV NODE NUMBER
:RU,MOUNT, USER.SYS/PRIVATE, -52, 100
THIS WOULD MOUNT LU 52 LOCATED AT NODE 100 IN THE DS/1000 NETWORK TO
THE USER.SYS ACCOUNT AT NODE 100.
:RU,DMONT, USER.SYS/PRIVATE, SG, 100
THIS WOULD DIS-MOUNT CRN 'SG' FROM THE USER.SYS ACCOUNT LOCATED AT
NODE 100 IN THE DS/1000-IV NETWORK.
MOUNT OR DMONT ALLOWS A USER TO MOUNT AND DIS-MOUNT, RESPECTIVELY, A
DISK CARTRIDGE ON A REMOTE DS/1000-IV NODE FROM HIS LOCAL DS/1000-IV
NODE. THE USER MAY SPECIFY AN ACCOUNT TO WHOM THE DISK BELONGS OR MAY
OMIT THE FIRST PARAMETER IN WHICH CASE THE DEFAULT ACCOUNT 'USER.GENERAL'
WILL BE USED. IN EITHER CASE, THE ACCOUNT MUST EXIST AT THE DESTINATION
NODE OR AN ERROR WILL RESULT.
THE SLAVE PROGRAMS 'RMTSL' AND 'RDMSL' MUST EXIST AT THE REMOTE NODE FOR
THE PROCESS TO WORK. THE SLAVE PROGRAMS CREATE A FMGR TRANSFER FILE AND
THEN PASS IT TO THE 'FMGR' PROGRAM. THE CARTRIDGE LIST FOR THE SPECIIED
ACCOUNT IS THEN PASSED BACK TO THE MASTER PROGRAM FOR DISPLAY ON THE
LOCAL NODE TERMINAL.
ALL DS/1000-IV ERRORS ARE REPORTED TO THE TERMINAL
SESSION MONITOR IS ASSUMED TO BE GENERATED INTO THE SYSTEM AS WELL
AS THE REMOTE SESSION CAPABILITY FEATURE OF THE DS/1000-IV SOFTWARE.
F05901
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: DSCAN
Title....................: Compact Alphabetized Directory List
File Names...............: 1. Submission file.
: 2. &DSCAN (FTN4)
: 3. &MSORT (ASMB)
: 4. &.XWRD (ASMB)
: 5. &MOPSY (ASMB)
: 6. &NSCOM (ASMB)
: 7. &MOVEW (ASMB)
: 8. &LSHFT (ASMB)
: 9. &DATE (ASMB)
Operating System.........: RTE-IVB, RTE-IVA, RTE-II
Language(s)..............: FTN4, ASMB
External Support Req'd...:
If Re-submission, Reason.:
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.
NORMAL COMPILE AND LOAD
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.
F06001
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: ADVEN
Title...............: Adventure game for the HP1000
File Names..........: 1. Submission file.
2. &ADV01
3. &ADV03
4. &ADVX2
5. &ADVY2
6. &ADV04
7. &ADV05
8. LADVEN
9. ^ADVEN
10. *ADVEN
11. #ADVXX
12. #ADVYY
13. #ADVZZ
Operating System....: RTE-IVB
Language(s).........: FTN4
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........:
Company.......:
Street........:
City..........:
State.........:
Country.......:
Zip Code......:
Phone Number..:
Program Abstract............:
COMPILING, LOADING, AND RUNNING "ADVENTURE" ON THE HP COMPUTER
Beasley, 14 Feb. 1979
The program ADVENTURE, written in Fortran for a PDP-11, has been
modified at Haystack Observatory for use on HP 1000 series computers.
It will run in a 16-page partition under RTE-III or RTE-IV, but it
requires the newer version of Fortran supplied with the RTE-IV system
for compilation. The program consists of a main program with named
common and three program segments. The main program acts primarily
as an executive for controlling the segments.
Segment 1 is found in file &ADV03. It is the same as the INIT
subroutine in the original version, except for modifications needed
to replace the DEC disc I/O subroutines with HP's. This segment will
access three files: The first is #ADVZZ, and contains the data base
which goes along with the program. The second is #ADVXX, and is a
modified data base file which will be accessed by the rest of the
program. The third file is #ADVYY, which contains a copy of the
common area after initialization. When the program runs, it will
create files #ADVXX and #ADVYY only if it doesn't find them; otherwise
it will just read them, which is much faster.
Segments 2 & 3 are the original subroutine MAIN. It was only broken
up for program size reasons.
COMPILING:
It is necessary to compile six files before loading the program:
1) &ADV01--ADVEN, the main (executive) program.
2) &ADV03--ADV1, the initialization segment.
3) &ADVX2--ADV2, program segment 2
4) &ADVY2--ADV3, program segment 3
5) &ADV04--Subroutines
6) &ADV05--More subroutines
These may be compiled using transfer file COMPAD, which will then
transfer control to loader file LADVEN. (COMPAND CHANGED TO CADVEN)??
LOADING:
Because of the complicated segmentation structure, a loader file
(LADVEN) is used to load the relocatable files. It will also purge
any type 6 files on cartridge 3 with the same names as the main
program or its segments, and will then create new type 6 files.
In this way it is not necessary to tie up ID segments or reload
the program each time.
RUNNING:
To run the program, RU,ADVEN will do it all. Right now, Modem
logical units 13 and 14 are prevented from using the program.
DISCS:
The program expects all of its files to be on disc cartridge 50.
If you want to change this for any reason, it is necessary to change
parameter ICR which is set in a data statement at the beginning
of ADV1 in file &ADV03. The program must then be recompiled and
reloaded. NOTE: You may also have to change cartridge designations
in the CADVEN file, and also in the SADVEN file used for SAVEM.
Additional Documentation....:
F06101
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: NINIT
Title...............: General subroutines for support of PLUSR
and PLUSW.
File Names..........: 1. Submission file.
2. &NINIT
Operating System....: RTE-IVB
Language(s).........: ASMB
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........:
Company.......: HEWLETT PACKARD
Street........:
City..........:
State.........:
Country.......:
Zip Code......:
Phone Number..:
Program Abstract............:
Additional Documentation....:
F06201
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: TANK
Title...............: Tank Game
File Names..........: 1. Submission file.
: 2. *TANK Procedure file
: 3. %TANK
: 4. %CTANK
: 5. %ASK
: 6. %SETTO
Operating System....: RTE-IVB
Language(s).........:
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........:
Company.......: HEWLETT PACKARD
Street........:
City..........:
State.........:
Country.......:
Zip Code......:
Phone Number..:
Program Abstract............:
Additional Documentation....:
F06301
H P 1 0 0 0 I N T E R N A T I O N A L U S E R S G R O U P
C O N T R I B U T E D S O F T W A R E L I B R A R Y
C S L / 1 0 0 0
PROGRAM SUBMISSION FORM
Program Name................: GAMES
Title...............: General GAMES for the 264X terminals
File Names..........: 1. Submission file.
2. G1.F1 Games tape 1 file 1
3. G1.F2 1 2
4. G1.F3 1 3
5. G1.F4 1 4
6. G1.F5 1 5
7. G1.F6 1 6
8. G1.F7 1 7
9. G1.F8 1 8
10. G1.F9 1 9
11. G1.F10 1 10
12. G1.F11 1 11
13. G2.F1 Games tape 2 file 1
14. G2.F2 2 2
15. G2.F3 2 3
16. G2.F4 2 4
17. G2.F5 2 5
18. G2.F6 2 6
19. G2.F7 2 7
20. G2.F8 2 8
21. G2.F9 2 9
22. G3.F1 Games tape 3 file 1
23. G3.F2 3 2
24. G3.F3 3 3
25. G3.F4 3 4
26. G3.F5 3 5
27. G3.F6 3 6
28. G3.F7 3 7
29. G3.F8 3 8
30. G4.F1 Games tape 4 file 1
31. G4.F2 4 2
32. G4.F3 4 3
33. G5.F1 Games tape 5 file 1
Operating System....: RTE-IVB
Language(s).........:
External Support Req'd...:
If Re-submission, Reason.:
Contributor's Name..........:
Company.......:
Street........:
City..........:
State.........:
Country.......:
Zip Code......:
Phone Number..:
Program Abstract............:
This set of files is a set of games to be run on a 264X terminal.
They are broken into sets that can be dumped to a mini-cartridge with
the FMGR :ST,namr,BN command. Observe the BN option. Or the files
can be dumped to the terminal for running. Each group represents one
mini-cartridge.
Additional Documentation....: