Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - lptspl.c10
There is 1 other file named lptspl.c10 in the archive. Click here to see a list.
 REP 6/1	;10C1
	;			    1983, 1984
	;                    DIGITAL EQUIPMENT CORPORATION
 WIT
	;			    1983, 1984, 1985
	;                    DIGITAL EQUIPMENT CORPORATION
	;			 ALL RIGHTS RESERVED.
 REP 42/1	;10C2
		LPTEDT==3010			;EDIT LEVEL
 WIT
		LPTEDT==3014			;EDIT LEVEL
 REP 52/1	;10C3
		COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1971,1984.
 WIT
		COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1971,1985
		ALL RIGHTS RESERVED.
 INS 556/4	;10C4
	3011	Fix problems when using tapes. Add check for write-locked
		status. Don't continue after errors other than IO.IMP or
		IO.EOT.
		SPR 10-34877 GCO 10101 4-Oct-84 /LWS

	3012	If VFU error is encountered when outputting to a LP20
		printer (LP26 especially) make LPTSPL load the RAM before
		reloading the VFU. When the printer is powered up, we know
		the VFU is bad, but it nothing indicates the RAM is bad.
		Anyway, the VFU won't load correctly unless the RAM is loaded
		first after power up. Also, check status of VFU before
		each job. This will enable us to load the RAM and VFU if bad
		and not bother the operator with a WTOR. Paper will probably
		be off a little, that's the way it goes. MCO 11592 should also
		be installed in monitor, but is not required.
		SPR 10-34952 GCO 10114 1-Nov-84 /LWS

	3013	Edit 3007 incomplete. We guarded against an offline interrupt
		when not in stream context (rare) but after DEBRKing to OUTWON
		and descheduling, we then continue at J$LIOA(J). But the J (job page)
		we used	to store the continuation address is different than what
		was saved when the interrupt occurred if not in stream context.
		When processing	the offline interrupt, use the job page associated
		with the current stream when storing the continuation address.
		SPR 10-34771A GCO 10115 1-Nov-84 /LWS

	3014	Edit 3012 has problems. It prevents a different VFU from being
		loaded on a form change. Sigh.
		GCO 10127 4-Dec-84 /LWS

 REP 7/69	;10C5
		$RETT				;YES,,VFU AND RAM MUST BE SAME TO !!!
 WIT
	;**;[3012] Replace one line at FORMS+4L. /LWS
		JRST	FORM4A			;[3012] YES, GO CHECK RAM AND VFU
 INS 40/70	;10C6
	;**;[3012] Add code at FORM.4+12L. /LWS
	;Here to check the status of the VFU. If bad, load RAM and VFU.

	FORM4A:	PUSHJ	P,CHKVFU		;[3012] CHECK STATUS OF VFU
	;**;[3014] Change 1 line at FORM4A+1 /LWS
		JUMPT	FORM.5			;[3014] IF OK, DON'T FORCE LOADS
		SETZM	J$FLRM(J)		;[3012] LOAD RAM AND VFU TO BE SAFE
		SETZM	J$FLVT(J)		;[3012]
		MOVE	S2,STREAM		;[3012] GET CURRENT STREAM
		$WTO	(VFU error,<Reloading RAM and VFU>,@JOBOBA(S2)) ;[3012]

 REP 14/77	;10C7
		MOVE	T1,[2,,T2]		;GET THE DEVOP. PARAMETERS
		MOVX	T2,.DFRDS		;GET 'READ DEVICE STATUS' FUNCTION CODE
		MOVE	T3,J$LDEV(J)		;GET THE SIXBIT DEVICE NAME
		DEVOP.	T1,			;GET THE DEVICE STATUS
		 $STOP	(LDF,Line Printer Device Status DEVOP. Failed) ;SHOULD'NT HAPPEN
		TXNE	T1,DF.LVE		;DOES THE LPT HAVE A GOOD VFU ???
		JRST	LOD.0A			;NO,,DONT OUTPUT FORM FEED
 WIT
	;**;[3012] Redo code at	LOD.0A-7L. /LWS
		PUSHJ	P,VFUCHK		;[3012] CHECK VFU STATUS
		JUMPF	LOD.0A			;[3012] DONT OUTPUT FORM FEED IF BAD
 INS 53/79	;10C8
	;**;[3012] Add code at VLKUP+1L. /LWS
	;Check status of VFU
	; CHKVFU entry point if not known whether printer has loadable VFU.
	; VFUCHK entry point if printer does have a loadable VFU.
	; Returns TRUE if VFU good
	;	  FALSE is VFU bad, i.e. DF.LVE lit

	CHKVFU:	SKIPN	J$MTAP(J)		;[3012] SPOOLING TO TAPE?
		SKIPN	J$LDVF(J)		;[3012] IS THERE A VFU TO LOAD?
		$RETT				;[3012] NOTHING TO DO
	VFUCHK:	PUSHJ	P,.SAVET		;[3012] SAVE SOME ACS
		MOVE	T1,[2,,T2]		;[3012] GET THE DEVOP. PARAMETERS
		MOVX	T2,.DFRDS		;[3012] GET 'READ DEVICE STATUS' FUNCTION CODE
		MOVE	T3,J$LDEV(J)		;[3012] GET THE SIXBIT DEVICE NAME
		DEVOP.	T1,			;[3012] GET THE DEVICE STATUS
		 $STOP	(LDF,Line Printer Device Status DEVOP. Failed) ;SHOULD'NT HAPPEN
		TXNE	T1,DF.LVE		;[3012] VFU PROBLEM?
		$RETF				;[3012] YES
		$RETT				;[3012] NO
 REP 10/93	;10C9
		TXNE	S1,IO.ERR!IO.EOT	;WAS THERE AN ERROR? OR HIT END OF TAPE?
 WIT
	;**;[3011] Change 1 line at OUTERR+6L. /LWS
		TXNE	S1,IO.ERR!IO.EOT!IO.IMP	;[3011] ERROR, EOT, OR WRITE LOCKED?
 INS 17/93	;10C10
	;**;[3011] Insert 2 lines after OUTE.1+1L. /LWS
		MOVX	S1,PSF%OB		;[3011] GET 'OUTPUT BLOCKED' BIT
		ANDCAM	S1,JOBSTW(T4)		;[3011] CAN'T BE BLOCKED IF ERROR
 INS 9/94	;10C11
	;**;[3012] Add 2 lines and replace 1 line after OUT.2A+3L. /LWS
		SETZM	J$FLVT(J)		;[3012] LOAD THE VFU TOO, TO BE SAFE
		PUSHJ	P,LODVFU		;[3012]
 INS 15/94	;10C12
	;**;[3011] Insert 1 line after OUT.2B+1L. /LWS
		SETOM	JOBUPD(T4)		;[3011] STATUS UPDATE ALSO
 REP 21/94	;10C13
		TXNE	S2,TL%NOM+TL%AMB	;DID WE FIND IT OK
		JRST	OUT.2B			;NO, TRY AGAIN
		PUSHJ	P,OUTE.3		;GO PERFORM PRELIMINARY PROCESSING
		$RETT				;AND RETURN
 WIT
	        TXNE	S2,TL%NOM+TL%AMB	;DID WE FIND IT OK
		JRST	OUT.2B			;NO, TRY AGAIN
	;**;[3011] Delete 2 lines and insert 1 line at OUT.2B+10L. /LWS
		JRST	OUTOUT			;[3011] TRY OUTPUT AGAIN
 INS 91/94	;10C14
	;**;[3012] Insert 2 lines after OUT.4A+11L /LWS
		SETZM	J$FLRM(J)		;[3012] LOAD THE RAM FIRST, ESPECIALLY
		PUSHJ	P,LODRAM		;[3012] IF JUST POWERED BACK UP.
 REP 5/95	;10C15
	OUTE.5:	SKIPE	J$MTAP(J)		;ARE WE SPOOLING TO TAPE?
		TRZN	S1,IO.EOT		;YES, HIT EOT?
 WIT
	OUTE.5:	MOVE	T2,S1			;[3011] SAVE ERROR BITS
		SKIPE	J$MTAP(J)		;ARE WE SPOOLING TO TAPE?
		TRZN	S1,IO.EOT!IO.IMP	;[3011] YES, HIT EOT OR WRITE LOCK?
 INS 12/95	;10C16
		TRNN	T2,IO.EOT		;[3011] WAS IT EOT?
		JRST	OUT.2B			;[3011] NO, BETTER BE WRITE LOCKED!
 REP 42/95	;10C17
	OUTDIE:	SOSL	J$LERR(J)		;COUNT DOWN ERRORS
		POPJ	P,			;STILL ALIVE
		MOVE	S1,STREAM		;GET STREAM NUMBER
		$WTO  (TOO MANY DEVICE ERRORS,,@JOBOBA(S1))
 WIT
	OUTDIE:	SKIPE	J$MTAP(J)		;[3011] DON'T ALLOW ERRORS TO TAPE
		JRST	DIE			;[3011]
		SOSL	J$LERR(J)		;COUNT DOWN ERRORS
		POPJ	P,			;STILL ALIVE
		MOVE	S1,STREAM		;GET STREAM NUMBER
		$WTO  (Too many device errors,,@JOBOBA(S1))
 REP 49/143	;10C18
		MOVEM	T1,J$LIOA(J)		;STORE OLD-ADDRESS FOR DEVICE ON AGAIN
 WIT
	;**;[3013] Insert 2 lines and change 1 line after LPIN.1+25L. /LWS
		MOVE	T2,STREAM		;[3013] GET ACTIVE STREAM
		MOVE	T2,JOBPAG(T2)		;[3013] GET JOB PAGE ADDR OF ACTIVE STREAM
		MOVEM	T1,J$LIOA(T2)		;[3013] STORE OLD-ADDRESS FOR DEVICE ON AGAIN
 SUM 50409