Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - sprout.c09
There is 1 other file named sprout.c09 in the archive. Click here to see a list.
 REP 34/1	;09C1
		SPOEDT==2536			;EDIT LEVEL
 WIT
		SPOEDT==2540			;EDIT LEVEL
 INS 221/3	;09C2
	2537	The defaults setup in Edit 2534 are not used if SPFORM.INI
		doesn't exist, or no line in SPFORM.INI matches plot request.
		Rearrange calculations based on defaults and/or SPFORM.INI
		switches so they are always done. This edit REQUIRES edit 2534.
		SPR 10-CS00004 GCO 10082 24-Aug-84 /LWS

	2540	When the operator says ABORT PLOTTER x /PURGE don't RESDV. the
		plotter. /PURGE means abort the job now and don't do any extra output.
		SPR 10-34867 GCO 10096 19-Sep-84 /LWS

 REP 7/6	;09C3
	;	BANNER:NN	NUMBER OF JOB HEADERS
	;	TRAILER:NN	NUMBER OF JOB TRAILERS
	;	HEADER:NN	NUMBER OF FILE HEADERS (PICTURE PAGES)
	;	NOTE:AA		TYPE NOTE TO THE OPERATOR
 WIT
	;	/BANNER		BANNER WILL BE OUTPUT
	;	/TRAILER	TRAILER WILL BE OUTPUT
	;	/HEADER		HEADER WILL BE OUTPUT
	;	/NOTE:AA	TYPE NOTE TO THE OPERATOR
 REP 15/6	;09C4
	;	SPU:NN		STEPS PER UNIT (FACTOR OF ALL XX AND YY)
	;	SIZE:XX:YY	NUMBER OF STEPS IN X AND Y AXIS
	;	MAXIMUM:XX:YY	STEP FOR FORMS LIMIT IN X AND Y AXIS
	;	MINIMUM:XX:YY	STEP FOR FROMS LIMIT IN X AND Y AXIS
 WIT
	;	/SPS:NN		STEPS PER SECOND (PLOTTER SPEED)
	;	/SPU:NN		STEPS PER UNIT (FACTOR OF ALL XX AND YY)
	;	/MAXIMUM:XX:YY	FORMS LIMIT IN X AND Y AXIS (UNITS)
	;	/MINIMUM:XX:YY	FORMS LIMIT IN X AND Y AXIS (UNITS)
 REP 25/6	;09C5
	;	XX	INTEGER STEP NUMBER IN X AXIS
	;	YY	INTEGER STEP NUMBER IN Y AXIS


 WIT
	;	XX	INTEGER UNIT NUMBER IN X AXIS
	;	YY	INTEGER UNIT NUMBER IN Y AXIS
 REP 32/6	;09C6
	;	CENTRAL		ALL DEVICES AT THE CENTRAL SITE
	;	REMOTE		ALL REMOTE DEVICES
 WIT
	;	LOC		ALL DEVICES AT THE LOCAL NODE
	;	REM	    	ALL REMOTE DEVICES
 INS 41/6	;09C7
	;	IF SPFORM.INI DOESN'T EXIST OR NO MATCH IS FOUND, DEFAULTS
	;	ARE AS FOLLOWS FOR PLOTTERS ONLY:

	;	PLT:ALL NORMAL/MAXIMUM:36:12/MINIMUM:0:0/SPS:200/SPU:100

 REP 46/6	;09C8
	;	PLT NORMAL/BANNER:200/HEADER:200/TRAILER:200-
	;	/MINIMUM:0:0/MAXIMUM:0:5900-
 WIT
	;	PLT NORMAL/BANNER/HEADER/TRAILER-
	;	/MINIMUM:0:0/MAXIMUM:60:40/SPU:200
 REP 42/32	;09C9
		PUSHJ	P,OUTFLS		;FLUSH THE OUTPUT BUFFERS
		CAIE	S1,%RSUOK		;DO WE STILL HAVE THE DEVICE?
		PJRST	SHUTUP			;NO..KILL THE STREAM
 WIT
	;**;[2540] Delete 3 lines at OACC.2+12L. /LWS
 INS 18/41	;09C10
	;**;[2537] Insert code before FRMI.0. /LWS
		PUSHJ	P,FRMI.0		;[2537] GO GET SPFORM.INI VALUES
		MOVE	T1,J$FSPU(J)		;[2537] GET /SPU MULTIPLIER
		IMULM	T1,J$XORG(J)		;[2537] ADJUST X MINIMUM
		IMULM	T1,J$XMAX(J)		;[2537] ADJUST X MAXIMUM
		IMULM	T1,J$YMIN(J)		;[2537] ADJUST Y MINIMUM
		IMULM	T1,J$YMAX(J)		;[2537] ADJUST Y MAXIMUM
		MOVE	T1,J$FSPS(J)		;[2537] GET STEPS PER SECOND
		IMULI	T1,^D60			;[2537] COMPUTE STEPS PER MINUTE
		MOVEM	T1,J$PTPM(J)		;[2537] STORE IT
		PUSHJ	P,P$CHKS		;[2537] COMPUTE CHARACTER SIZE
		IMULI	T1,^D8			;[2537] ALLOW 8 LINES FOR TRAILER
		MOVNS	T1			;[2537] NEGATE IT
		ADDM	T1,J$XMAX(J)		;[2537] LEAVE ROOM FOR TRAILER
		$RETT				;[2537] RETURN
 REP 5/43	;09C11
		JRST	FRMS.5			;YES -- CHECK PLOTTER processing
 WIT
	;**;[2537] Replace 1 line at FRMSWI+1L. /LWS
		$RETT				;[2537] YES, RETURN
 DEL 35/43	;09C12

	FRMS.5:	SKIPN	J$FPLT(J)		;SPECIAL PLOTTER SWITCHES
		JRST	FRMIEX			;NO - CLOSE FILE AND RETURN
	;**;[2534] Delete 1 line and replace 1 line. 13-Oct-83 /LWS
		MOVE	T1,J$FSPU(J)		;[2534] GET /SPU MULTIPLIER
		IMULM	T1,J$XORG(J)		;ADJUST X MINIMUM
		IMULM	T1,J$XMAX(J)		;ADJUST X MAXIMUM
		IMULM	T1,J$YMIN(J)		;ADJUST Y MINIMUM
		IMULM	T1,J$YMAX(J)		;ADJUST Y MAXIMUM
		MOVE	T1,J$FSPS(J)		;GET STEPS PER SECOND
		IMULI	T1,^D60			;COMPUTE STEPS PER MINUTE
		MOVEM	T1,J$PTPM(J)		;STORE IT
		PUSHJ	P,P$CHKS		;COMPUTE CHARACTER SIZE
		IMULI	T1,^D8			;ALLOW 8 LINES FOR TRAILER
		MOVNS	T1			;NEGATE IT
		ADDM	T1,J$XMAX(J)		;LEAVE ROOM FOR TRAILER
		JRST	FRMIEX			;CLOSE FILE AND RETURN
 SUM 50781