Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
sprint.c08
There are 2 other files named sprint.c08 in the archive. Click here to see a list.
REP 2/1 ;08C1
SUBTTL Larry Samberg/LSS/JHT/JNG/WLH/NT/CTK 21-Aug-83
WIT
SUBTTL Larry Samberg/LSS/JHT/JNG/WLH/NT/CTK/LWS 16-Jan-84
REP 37/1 ;08C2
SPTEDT==4244 ;Edit Level
WIT
SPTEDT==4254 ;Edit Level
REP 643/3 ;08C3
; RAW PCO/CTK
WIT
; RAW PCO/CTK (Removed by edit 4253).
;
; 4245 5-Oct-83 Break char gets clobbered in CTLCRD.
; SPRs 10-33706 & 10-33803 /LWS
;
; 4246 7-Oct-83 Fix problem in $$IF. $IF (ERROR) is valid
; by itself, code was forcing format $IF (cond) stmnt.
; Raw PCO /LWS
;
; 4247 7-Oct-83 Cosmetic change in the way cards with Hollerith
; errors are displayed in log file.
; SPR 10-33401 /LWS
;
; 4250 11-Oct-83 Make sure we return all memory
; acquired via M%GPAG and L%CLST.
; SPR 10-33705 /LWS (SUPERSEDED by edit 4254).
;
; 4251 14-Dec-83 Make initial L.RTM value be stored as a
; negative value so elapsed runtime can be
; had by adding.
; SPR 10-34254 /LWS
;
; 4252 14-Dec-83 Check FILOPN instead of FILIFN to determine
; if still in a deck when logging hollerith
; errors.
; SPR 10-34334 /LWS
;
; 4253 16-Jan-84 Remove edit 4244. Malicious user could
; fill spool area. Also, minor cleanup.
; /LWS
;
; 4254 16-Jan-84 Edit 4250 didn't cover all bases. LNI stopcodes
; if no $JOB card found. Try again. Zero pointers
; that point to memory that is IPCFed away or
; released. At end of card stream, give back
; memory not already released.
; This edit SUPERSEDES edit 4250.
; SPR 10-34450 /LWS
;
REP 45/35 ;08C4
TXNE F,F.FATE ; Did we ABORT the job?
JRST EOF.1 ; Yes, release input file
WIT
;**;[4253] Change 1 line and delete 1 line at MLTJ.1+10L.
TXNN F,F.FATE ;[4253] Did we ABORT the job?
REP 53/35 ;08C5
;**;[4244]REVAMP CODE AT EOF.1: 21-AUG-83/CTK
PUSHJ P,RELREQ ;[4244] Send "release" to QUASAR
MOVE S1,L.IFN ;[4244] Release the input file
PJRST F%REL ;[4244] and do not delete the file
EOF.1: PUSHJ P,RELREQ ;[4244] Send "release" to QUASAR
MOVE S1,L.IFN ;[4244] Release the input file
WIT
;**;[4253] Remove edit 4244.
EOF.1: PUSHJ P,RELREQ ; Send "release" to QUASAR
MOVE S1,L.IFN ; Release the input file
REP 63/35 ;08C6
PJRST (S2) ; and return to IDLE Loop
WIT
;**;[4254] Change 1 line and insert 7 lines at EOF.1+6L. /LWS
PUSHJ P,(S2) ;[4254] DISPOSE OF INPUT FILE
SKIPE S1,LOGPAG ;[4254] GET LOG PAGE ADDR, IF VALID
$CALL M%RPAG ;[4254] RELEASE THE PAGE
SKIPE S1,Q ;[4254] GET ADDR OF EQ PAGE, IF VALID
$CALL M%RPAG ;[4254] GIVE PAGE BACK
SKIPE S1,L.FBLN ;[4254] GET ID OF LIST, IF STILL AROUND
$CALL L%DLST ;[4254] DELETE IT
$RETT ;[4254] RETURN
REP 11/38 ;08C7
STRT.1: $CALL M%GPAG ;GET A PAGE
WIT
;**;[4254] Insert 1 line at STRT.1+0L. /LWS
STRT.1: SKIPN S1,LOGPAG ;[4254] LOG PAGE STILL AROUND?
$CALL M%GPAG ;GET A PAGE
REP 25/40 ;08C8
MOVEM S2,L.RTM ;REMEMBER FOR ACCOUNTING
WIT
;**;[4251] Change 1 line at SITLIN+14L. 14-Dec-83 /LWS
MOVNM S2,L.RTM ;[4251] REMEMBER FOR ACCOUNTING
REP 21/57 ;08C9
JUMPF $$IF.1 ;??
WIT
;**;[4246] Don't force stmt after $IF (cond). 7-Oct-83 /LWS
JUMPF $$BATCH ;[4246] NONE OR EOL, MAKE BATCH CMD
INS 47/61 ;08C10
;**;[4254] Insert 1 line after TRMJ.S+1L. /LWS
SETZM L.FBLN ;[4254] INDICATE LIST GONE
INS 18/63 ;08C11
;**;[4254] Insert 1 line after ABOR.3+2L. /LWS
SETZM L.FBLN ;[4254] INDICATE LIST DELETED
REP 17/82 ;08C12
PUSHJ P,S$INCH ;GET A CHARACTER
WIT
;**;[4245] Add label at CTLCRD+2 5-Oct-83 /LWS
CTLC.1: PUSHJ P,S$INCH ;[4245] GET A CHARACTER
REP 23/82 ;08C13
JRST CTLCRD ; Otherwise, loop
WIT
;**;[4245] Don't clobber break char. Jump to new label. 5-Oct-83 /LWS
JRST CTLC.1 ;[4245] Otherwise, loop
REP 63/113 ;08C14
SKIPE FILIFN ;ARE WE IN A DECK?
PUSHJ P,CARDID ;YES, GIVE CARD INFO
$TEXTL(<^I/STMSG/[Card: ^Q/L.CHOL/]^A>)
WIT
;**;[4252] Change 1 line at CDRA.E+6L. 14-Dec-83 /LWS
SKIPE FILOPN ;[4252] ARE WE IN A DECK?
PUSHJ P,CARDID ;YES, GIVE CARD INFO
;**;[4247] Change way card with error is displayed. 7-Oct-83 /LWS
$TEXTL(<^I/STMSG/Card image was: ^Q/L.CHOL/^A>) ;[4247]
INS 44/145 ;08C15
;**;[4254] Insert 1 line after QUEJOB+39L. /LWS
SETZM Q ;[4254] INDICATE Q INVALID
INS 48/146 ;08C16
;**;[4254] Insert 1 line after QUEL.2+14L. /LWS
SETZM Q ;[4254] INDICATE Q INVALID
INS 59/146 ;08C17
;**;[4254] Insert 1 line after QUEL.3+8L. /LWS
SETZM Q ;[4254] INDICATE Q INVALID
REP 4/147 ;08C18
$CALL M%ACQP ;GET A FREE PAGE
MOVE P1,S1 ;SAVE THE PAGE NUMBER
PG2ADR P1 ;AND MAKE AN ADDRESS
WIT
;**;[4253] Clean up code at QUEFIL+1L.
$CALL M%GPAG ;[4253] GET A FREE PAGE
MOVE P1,S1 ;SAVE THE PAGE NUMBER
SUM 258549