Google
 

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