Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/sprout.c07
There are no other files named sprout.c07 in the archive.
REP 1/1 ;07C1
TITLE SPROUT -- Spooling PRocessor for OUTput - Version 4
SUBTTL D.A. Lewine - L.S. Samberg/PJT/DPM/NT 5-Nov-81
WIT
TITLE SPROUT -- Spooling PRocessor for OUTput - Version 4
SUBTTL D.A. Lewine - L.S. Samberg/PJT/DPM/NT/CTK 16-DEC-82
REP 34/1 ;07C2
SPOEDT==2533 ;EDIT LEVEL
WIT
SPOEDT==2534 ;EDIT LEVEL
INS 207/3 ;07C3
;BEGIN CODE MAINTENANCE
2534 Fix bug in FILDIS. The /DELETE switch was improperly processed,
when the job was ABORTED by OPR, the file was deleted.
SPR 20-17944/CTK 16-DEC-82
REP 61/21 ;07C4
TXNE T2,FP.SPL+FP.DEL ;SPOOL FILE or /DELETE ???
PUSHJ P,F%DEL ;YES,,DELETE THE FILE.
SOJG T1,FILD.1 ;GO PROCESS THE NEXT FILE.
WIT
;**;[2534]ADD AND REVAMP CODE AT FILD.1:+7L CTK/16-DEC-82
TXNE T2,FP.SPL ;[2534]SPOOL FILE ???
JRST [PUSHJ P,F%DEL ;[2534]
JRST FILD.2] ;[2534]YES, DELETE THE FILE
TXNE T2,ABORT ;[2534]IS ABORT SET ???
JRST FILD.2 ;[2534]YES, DON'T DELETE FILE !!!
TXNE T2,FP.DEL ;[2534]/DELETE SPECIFIED ???
PUSHJ P,F%DEL ;[2534]YES,,DELETE THE FILE.
FILD.2: SOJG T1,FILD.1 ;[2534]GO PROCESS THE NEXT FILE.
SUM 77947