1. This document describes the current state of SPROGS, together with details on how to use it. The appendix contains a description of the macro SPROCS in :GSIN10.
2. A SPROGS program must begin with
CALL STSPR
and end with
CALL ENDSPR
so that all I/O and system variables are set up and closed correctly.
3. The letters and numbers of the Helvetica font are initiated by
CALL INITXT
A user wishing to specify punctuation, or a different font altogether, must define his own character files. The Helvetica font is defined on a 32 × 32 grid, with X, Y directions positive.
4. The following SPROGS routines are available
SETXY DRCTN REGION STDF TEXT SETX LEFT RGLIM FIDF PLOT SETY RIGHT RGPLIM ANAME NLINES TODYY UP RGPRM DRAW NPAGE TODX DOWN DVOUT ADVFLM TODY NUMBR UPDXY PCPRY UPDX LCPRY UPDY TOXY TOX TOY VEC
5. Of them, the above, NLINES and NPAGE are new
NLINES (N) output N new lines, by calling
the user picture file 'NL'.
NPAGE output a page throw leaving
position at top of page, by calling
ADVFLM, LEFT, UP, and the user file 'NL'.
6. The output devices so far defined are
SD4020 microfilm SD4020 hardcopy LP graphical LP
LP graphical will plot lines using *, and will indicate overprinting by changing * to + . LP will list the basic coordinates that are being sent to this device on stream 1.
7. Example of SPROGS job using text.
IN FILE, T**** create job file
MASTER TEST
C initialise system
CALL STSPR
C initialise standard test
CALL INITXT
C select 'upright' region for text output
CALL RGLIM (1.0,0.0,0.0,1023.0,1023.0)
CALL RGPLIM (1.0,0.0,0.0,1023.0,1023.0,0.0)
CALL RGPRM (1.0,0.0,0.0,1.0,0.0,0.0)
C** select region
CALL REGION (1.0)
C** select SD4020 hardcopy
CALL DVOUT (2.0)
C** top of page
CALL NPAGE
c text
CALL TEXT (16, 'THE CAT SAT DOWN')
CALL NLINES (1)
CALL TEXT (10, '0123450789')
C** terminate
CALL ENDSPR
STOP
END
FINISH
****
OBEY :GSIN10.SPROGS,PARAM(*CRFILE)
or
RJ JOBNAME, :GSIN10.SPROGS,PARAM(*CRFILE)
SPROGS parameter list
*CR filename
filename is the FORTRAN source file to be run using SPROGS. It must contain a MASTER segment and end with FINISH. A standard program description will be provided unless the PD or SEMI parameters are used (see below). filename is copied into a temporary file which is erased.
NOTAPE
If present, no magnetic tape is loaded for the job, and lineprinter streams 12 and 13 (LP5 and LP6) wi11 not be listed.
COMP filename
Semi compiled output from the FORTRAN compiler will be saved in filename.
PD.
The system expects the user to have provided a program description at the front of the source file. This should include
SEMICOMPILED (A. SUBROUTINES)
EXTENDED
ABNORMAL FUNCTIONS
OUTPUT 1 = LP0
SEMI filename
More than one SEMI parameter may be present. filename will be included at consolidation. The user must provide his own program description.
MACRO
If present, the system ends with EXIT rather than ENDJOB.
1. The standard program description is:
SEMICOMPILED (A. SUBROUTINES)
PROGRAM (SPRG)
OUTPUT 12 = LP5
OUTPUT 13 = LP6
EXTENDED
ABNORMAL FUNCTIONS
OUTPUT `1,(MONITOR) = LP9
END
2. The output used by the system is:
LP0 error messages
monitor information
lineprinter mode
LP1 lineprinter graphical mode
LP 5 SD4020 tape record
LP 6
MT14 SD4020 tape
3. At the moment XFIH is called.
4. :GSIN10.SPROGSEMI is always included in the consolidator call as the last parameter.
5. The standard subfile name for FORTRAN semicompiled is FORTSEMICOMP.