Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/sprout.c08
There are 2 other files named sprout.c08 in the archive. Click here to see a list.
REP 34/1 ;08C1
SPOEDT==2534 ;EDIT LEVEL
WIT
SPOEDT==2536 ;EDIT LEVEL
INS 213/3 ;08C2
2535 Fix bug where stream is set inactive before a call therefore
never returning where it was suppose to.
SPR 20-17942/JD 14-Dec-83
2536 Fix bug where error messages are prepared to send to the operator,
but are never sent. Also reworded a missleading comment.
SPR 20-16225/JD 16-Jan-84
INS 3/21 ;08C3
;[EDIT #2535] Moved 2 lines from ENDJOB+8 to ENDJOB+10 / JD / 5-Jan-83
DEL 10/21 ;08C4
DEL 19/21 ;08C5
HRRZ S1,STREAM ;GET STREAM NUMBER
SETZM JOBACT(S1) ;NOT BUSY
INS 24/21 ;08C6
HRRZ S1,STREAM ;[2535] GET STREAM NUMBER
SETZM JOBACT(S1) ;[2535] NOT BUSY
INS 55/48 ;08C7
;[EDIT #2536] Added 2 lines at INPO.3+2 /JD / 16-Jan-84
HRRZ S1,STREAM ;[2536] Get stream number
$WTO (Cannot access file,<^R/.EQJBB(J)/>,@JOBOBA(S1)) ;[2536] Notify operator
REP 33/49 ;08C8
TXO S,SKPFIL ;SKIP THE REST OF THE FILE
WIT
;[EDIT #2536] Reworded comment on INPERR+4 / JD / 16-Jan-84
TXO S,SKPFIL ;SKIP FUTURE COPIES OF THIS FILE
;[EDIT #2536] Added 2 lines at INPERR+5 / JD / 16-Jan-84
HRRZ S1,STREAM ;[2536] Get stream number
$WTO (File input error - file skipped,<^R/.EQJBB(J)/>,@JOBOBA(S1)) ;[2536] Notify operator
SUM 71520