Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - sprout.c08
There are 2 other files named sprout.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
	SUBTTL	D.A. Lewine - L.S. Samberg/PJT/DPM/NT/CTK 1-Mar-83
 WIT
	SUBTTL	D.A. Lewine - L.S. Samberg/PJT/DPM/NT/CTK/LWS 20-mar-84
 REP 34/1	;08C2
		SPOEDT==2533			;EDIT LEVEL
 WIT
		SPOEDT==2536			;EDIT LEVEL
 INS 209/3	;08C3

	2534	Use reasonable defaults for /MAX, /MIN, and /SPU even when they're
		not specified in SPFORM.INI.
		SPR 10-33412 13-Oct-83 /LWS

	2535	In DEVERR, requeue current request before shutting down the
		stream.
		SPR 10-34545 23-Feb-84 /LWS

	2536	Fix coding bug where T2 was confused for S2.
		SPR 10-34569 GCO 10012 20-Mar-84 /LWS

 REP 76/4	;08C4

 WIT
	;**;[2534] Default values for maximum X and Y (inches) and default values
	;**;[2534] for /SPS (steps/sec) and /SPU (steps/unit)  13-Oct-83 /LWS
		XP	DFXMAX,^D36		;[2534] 36 INCH WIDTH DEFAULT
		XP	DFYMAX,^D12		;[2534] 12 INCH HEIGHT DEFAULT
		XP	DFSPS,^D200		;[2534] 200 STEPS/SEC DEFAULT
		XP	DFSPU,^D100		;[2534] 100 STEPS/UNIT DEFAULT
 REP 33/16	;08C5
	TOPS10 <MOVEM	T2,CNTSTA>		;SAVE NUMBER AS CENTRAL STATION
	TOPS20 <MOVEM	T1,CNTSTA>		;SAVE NAME AS CENTRAL STATION
 WIT
	;**;[2536] Change 1 line and delete 1 line at SPROUT+30L. /LWS
		MOVEM	S2,CNTSTA		;[2536] SAVE NUMBER AS CENTRAL STATION
 REP 4/41	;08C6
		CAMN	T3,[SIXBIT/PLT/]	;IS DEVICE A PLOTTER?
		SETOM	J$FPLT(J)		;YES -- SET SWITCH FLAG
		DMOVE	S1,[EXP FOB.SZ,FRMFOB]	;POINT TO FILE OPEN BLOCK
 WIT
	;**;[2534] Rework code some to default plotter forms values. 13-Oct-83 /LWS
		CAME	T3,[SIXBIT/PLT/]	;[2534] IS DEVICE A PLOTTER?
		 JRST	FRMI.0			;[2534] NO, SKIP OVER PLOTTER DEFAULTING
		SETOM	J$FPLT(J)		;YES -- SET SWITCH FLAG
		MOVEI	S1,DFXMAX		;[2534] GET DEFAULT X MAXIMUM
		MOVEM	S1,J$XMAX(J)		;[2524]  AND STORE IT
		MOVEI	S1,DFYMAX		;[2534] GET DEFAULT Y MAXIMUM
		MOVEM	S1,J$YMAX(J)		;[2534]  AND STORE IT
		MOVEI	S1,DFSPS		;[2534] GET DEFAULT STEPS/SEC
		MOVEM	S1,J$FSPS(J)		;[2534]  AND STORE IT
		MOVEI	S1,DFSPU		;[2534] GET DEFAULT STEPS/UNIT
		MOVEM	S1,J$FSPU(J)		;[2534]  AND STORE IT
		SETZM	J$XORG(J)		;[2534] SET MINIMUM X AND
		SETZM	J$YMIN(J)		;[2534]  Y VALUES

	FRMI.0:	DMOVE	S1,[EXP FOB.SZ,FRMFOB]	;[2534] POINT TO FILE OPEN BLOCK
 REP 38/43	;08C7
		SKIPN	T1,J$FSPU(J)		;GET /SPU MULTIPLIER
		MOVEI	T1,1			;SOMEONE FORGOT TO PUT IT IN SPFORM.INI
 WIT
	;**;[2534] Delete 1 line and replace 1 line. 13-Oct-83 /LWS
		MOVE	T1,J$FSPU(J)		;[2534] GET /SPU MULTIPLIER
 REP 17/45	;08C8
		SETZM	J$XORG(J)		;DEFAULT TO ZERO
		SETZM	J$YMIN(J)		;DITTO
 WIT
	;**;[2534] Remove 2 lines at S$MIN+2L. 13-Oct-83 /LWS
 REP 29/45	;08C9
		MOVX	T1,.INFIN		;GET A LARGE NUMBER
		MOVEM	T1,J$XMAX(J)		;DEFAULT
		MOVEM	T1,J$YMAX(J)		;DITTO
 WIT
	;**;[2534] Remove 3 lines at S$MAXI+2L. 13-Oct-83 /LWS
 INS 10/55	;08C10
		SKIPE	S1,J$DIFN(J)		;[2535] GET IFN OF OPENED FILE
		$CALL	F%REL			;[2535] RELEASE IT
		PUSHJ	P,QREQUE		;[2535] REQUEUE THE REQUEST
 SUM 153591