github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 23:36:30 +00:00
Code Issues Releases Wiki Activity

VERSA: Don't add blank pages before/after PRESS and XGP files.

Browse Source 
VERSA doesn't do this for other formats.
This commit is contained in:
Adam Sampson 2018-05-30 13:43:02 +01:00 committed by Adam Sampson
parent 03d87e8599
commit d8d517ea2d
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/dcp/versa.211
View File

@ -3833,7 +3833,6 @@ press: call plot"init ;"initialize the plotting routines
call mapper"init ;"gets FILLEN among other things
move mapper"fillen ;"
movem prslen ;rememver file length
call plot"blkpag ;"force out a blank page
call getdoc ;get the document directory and info
call getprt ;get the part dir into memory
@ -3843,7 +3842,6 @@ press: call plot"init ;"initialize the plotting routines
return
cleanup:
call plot"blkpag ;"force out a blank page
call plot"finish ;"finished plotting
move x,prtdir
call corblk"delete ;"release the part dir pages
@ -4317,14 +4315,12 @@ xgp: call plot"init ;"initialize the plotting routines
call scrimp ;process scrimp commands
call getrdy ;get ready to process the file
setzm eofp ;not end of file yet
call plot"blkpag ;"blank page at the front
xgp02: call plot"next ;"go on to the next page
call dopage ;process the next page
jrst xgp50 ;finished
jrst xgp02
xgp50: call mapper"finish ;"no longer need the file
call plot"blkpag ;"blank page at the end
call plot"finish ;"finished plotting (for this file)
return ;and th.th.th.that's all folks