Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - lptspl.c09
There are 2 other files named lptspl.c09 in the archive. Click here to see a list.
 REP 42/1	;09C1
		LPTEDT==3003			;EDIT LEVEL
 WIT
		LPTEDT==3010			;EDIT LEVEL
 INS 526/4	;09C2
	3004	When spooling to magtape, LPTSPL substitutes <CR><LF> for
		<CR><DC3>. V2 did not do this. Save DEVCHR bits and treat LPT
		and MTA the same in CR23.
		This edit REQUIRES LPTSPL edit 2772.
		SPR 10-34695 GCO 10039 11-May-84 /LWS

	3005	Fix bug in LPINTR where we were incorrectly testing for
		'CPU failure' interrupt condition. Don't use file status
		bits, use PS.RIE!PS.ROE!PS.RDO.
		No SPR GCO 10042 21-May-84 /LWS

	3006	Edit 2772 was too cautious. Only check DV.ASP. OPEN will
		fail if device was assigned by another job. Also, some
		people do .ASSIGN commands in SYSJOB.INI for LPTSPL, for
		various reasons.
		No SPR GCO 10045 11-Jun-84 /LWS

	3007	When we get an 'online' interrupt for a printer, clear the
		byte count in the buffer header in addition to clearing
		'output blocked'. This will insure that we don't use
		a the buffers again until I/O is done. (We can't guarantee
		that we will never miss an 'output done' interrupt.)
		Change OUTWON to display all printers that are offline.
		SPR 10-34771 GCO 10068 10-AUG-84 /LWS

	3010	When the operator says ABORT PRINTER x /PURGE, don't RESDV.
		the printer or try to send a formfeed. /PURGE means get rid
		of the current job now.
		SPR 10-34867 GCO 10096 19-Sep-84 /LWS

 INS 55/11	;09C3
		LP	J$DCHR,1		;[3004] STREAM'S DEVICE CHARACTERISTICS
 REP 28/45	;09C4
		PUSHJ	P,OUTFLS		;FLUSH THE OUTPUT BUFFERS
		JUMPF	SHUTND			;CANT,,SHUT IT DOWN
		PUSHJ	P,SENDFF		;OUTPUT A FORM FEED FOR NEXT JOB
		SETZM	JOBACT(P1)		;STREAM IS NO LONGER ACTIVE
		PUSHJ	P,QRELEASE 		;RELEASE THE REQUEST
		PUSHJ	P,OUTEOF		;OUTPUT AN EOF
 WIT
	;**;[3010] Delete 3 lines at OACC.0+14L and 1 line at OACC.0+19L. /LWS
		SETZM	JOBACT(P1)		;STREAM IS NO LONGER ACTIVE
		PUSHJ	P,QRELEASE 		;RELEASE THE REQUEST
 REP 15/86	;09C5
	;**;[2772] Add 3 lines after OUTGET+8L. 24-Oct-83 /LWS
		DEVCHR	S1,			;[2772] GET DEVICE CHARACTERISTICS
		TXNE	S1,DV.ASC!DV.ASP	;[2772] SOMEONE ELSE BEAT US TO IT?
		  PJRST	OUTDNA			;[2772] YES,,COULD EVEN BE US!
 WIT
	;**;[2772] Add 3 lines after OUTGET+8L. 24-Oct-84 /LWS
		DEVCHR	S1,			;[2772] GET DEVICE CHARACTERISTICS
	;**;[3006] Change line at OUTGET+9L. /LWS
		TXNE	S1,DV.ASP		;[3006] SOMEONE ELSE BEAT US TO IT?
		  PJRST	OUTDNA			;[2772] YES,,COULD EVEN BE US!
	;**;[3004] Add 1 line at OUTGET+11L. /LWS
		MOVEM	S1,J$DCHR(J)		;[3004] SAVE DEVCHR BITS
 REP 18/97	;09C6
		MOVE	S1,STREAM		;GET STREAM NUMBER
		$WTO  (<^T/BELL/>,,@JOBOBA(S1))	;TELL THE OPERATOR.
		$DSCHD(0)			;BLOCK THE PROCESS
		POP	P,S2			;RESTORE S2
		POP	P,S1			;RESTORE S1
 WIT
	;**;[3007] Change code at OUTWON+2L
		PUSH	P,P1			;[3007] SAVE P1 TOO
		MOVSI	P1,-NPRINT		;[3007] MAKE AOBJN POINTER
	OUTW.1:	MOVE	S1,JOBSTW(P1)		;[3007] GET STREAM STATUS
		TXNE	S1,PSF%DO		;[3007] PRINTER OFFLINE?
		$WTO  (<^T/BELL/>,,@JOBOBA(P1))	;[3007] YES, TELL THE OPERATOR.
		AOBJN	P1,OUTW.1		;[3007] CHECK ALL PRINTERS
		POP	P,P1			;[3007] RESTORE P1
		POP	P,S2			;[3007] RESTORE S2
		POP	P,S1			;[3007] RESTORE S1
		$DSCHD(0)			;[3007] BLOCK THE PROCESS
 REP 43/121	;09C7
	CR23:	SKIPE	J$MTAP(J)		;SPOOLING TO TAPE ???
		JRST	CRLF			;YES,,JUST INSERT CRLF
		MOVEI	S1,[BYTE (7) 15,23,0,0,0] ;PRINT OUT CR23
		SKIPA				;SKIP CRLF ENTRY POINT
 WIT
	;**;[3004] Change code at CR23. /LWS
	CR23:	MOVX	S1,DV.LPT!DV.MTA	;[3004] TREAT LPT AND MTA THE SAME
		TDNE	S1,J$DCHR(J)		;[3004] USE <CR><DC3> FOR LPT AND MTA
		SKIPA	S1,[[BYTE (7) 15,23,0,0,0]] ;[3004] PRINT OUT CR23
 REP 25/143	;09C8
		MOVX	T2,PSF%DO+PSF%OB	;YES,,CLEAR ON-LINE & OUTPUT-BLOCKED
 WIT
	;**;[3007] Change code at LPIN.1+3L
		JRST	[MOVX	T2,PSF%DO+PSF%OB ;YES,,CLEAR ON-LINE & OUTPUT-BLOCKED
			 SETZM	J$LBCT(J)	;[3007] MAKE SURE WE DON'T USE BUFFER
			 JRST	.+1]		;[3007] CONTINUE
 REP 35/143	;09C9
		MOVE	T1,.PSVIS(S2)		;GET THE FILE STATUS BITS
		TXC	T1,IO.ERR		;CHECK TO SEE IF ALL ERROR BITS ARE LIT
		TXNN	T1,IO.ERR		;ARE THEY ???
 WIT
		MOVE	T2,.PSVIS(S2)		;[3005] GET THE FILE STATUS BITS
		TXC	T2,IO.ERR		;[3005] CHECK TO SEE IF ALL ERROR BITS ARE LIT
		TXNN	T2,IO.ERR		;[3005] ARE THEY ???
 REP 41/143	;09C10
		TXCN	T1,IO.ERR		;CPU CROAK OR JUST LPT OFF-LINE?
		JRST	LPIN.2			;DEAD CPU
		MOVEI	T1,OUTWON		;CPU DOWN OR OFFLINE,,LOAD RESTART ADDR
 WIT
		TXC	T1,PS.RIE!PS.ROE!PS.RDO	;[3005] JUST THE ONES WE WANT
		TXNN	T1,PS.RIE!PS.ROE!PS.RDO	;[3005] CPU CROAK OR JUST LPT OFF-LINE?
		JRST	LPIN.2			;DEAD CPU
		MOVEI	T1,OUTWON		;LPT OFFLINE,,LOAD RESTART ADDR
 SUM 110649