Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-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