Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0125/start.for
There is 1 other file named start.for in the archive. Click here to see a list.
	SUBROUTINE START
C************************************************************
C
C  THIS SUBPROGRAM IS USED TO INTIALIZE VARIABLES WHICH
C  ARE INTERNAL TO DISLIB, AND ARE KEPT IN LABELED
C  COMMON BLOCKS. DEFAULT VALUES ARE:
C
C	LOG    - .FALSE.	(NO LOGGING)
C	GTLOG  - 20		(LOG UNIT = 20)
C	FATAL  - 0		(0 FATAL ERRORS)
C	WARN   - 0		(0 WARNINGS)
C
C	XMIN   - 0.		( LOWER LEFT HAND
C	YMIN   - 0.		CORNER = (0., 0.) )
C	XMAX   - 1023.		(UPPER RIGHT HAND
C	YMAX   - 767.		CORNER = (1023., 767.) )
C	BEAMX  - 0		(DISPLAY BEAM =
C	BEAMY  - 0		(0, 0) RASTER)
C
C	MODE   - 3		(POINT MODE)
C	INT    - 2		(INTENSITY 2)
C	LP     - .FALSE.	(NOT L.P. SENSITIVE)
C	BLINK  - .FALSE.	(NO BLINK)
C	LINE   - 0		(SOLID LINE)
C	OLDSGM - 0		(INVALID PREVIOUS SGM)
C
C	ITALA  - .FALSE.	(NO ITALICS)
C	LPA    - .TRUE.		(L.P. HITS ARE BRIGHTENED)
C	OLDSTA - 0		(INVALID PREVIOUS OLDSTA)
C
C	SHIFT  - .FALSE.	(SHIFTED-IN)
C	CHECK  - 0		(0 CHECKSUM ERRORS FROM 10)
C
C************************************************************
	IMPLICIT INTEGER (A - W, Z)
	LOGICAL LOG, LP, BLINK, ITALA, LPA, SHIFT
	COMMON /LOGBLK/ LOG, GTLOG, FATAL, WARN
	COMMON /SCLBLK/ XMIN, YMIN, XMAX, YMAX, BEAMX, BEAMY
	COMMON /MODBLK/ MODE, INT, LP, BLINK, LINE, OLDSGM
	COMMON /STABLK/ ITALA, LPA, OLDSTA
	COMMON /MSCBLK/ SHIFT, CHECK
	COMMON /OPTBLK/ OPTION(10, 3), OPMSG, OPPTR, OPLIST

2	FORMAT(A1)

	LOG = .FALSE.
	GTLOG = 20
	FATAL = 0
	WARN = 0
	XMIN = 0.
	YMIN = 0.
	XMAX = 1023.
	YMAX = 767.
	BEAMX = 0
	BEAMY = 0
	MODE = 0
	INT = 2
	LP = .FALSE.
	BLINK = .FALSE.
	LINE = 0
	OLDSGM = 0
	ITALA = .FALSE.
	LPA = .TRUE.
	OLDSTA = 0
	SHIFT = .FALSE.
	CHECK = 0
	OPMSG = 6
	OPPTR = 8
	OPLIST = 0
	CALL CLROPT(0)
	RETURN
	END