Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 42/1	;11C1
		LPTEDT==3113			;EDIT LEVEL
 WIT
		LPTEDT==3116			;EDIT LEVEL
 INS 533/4	;11C2

	3114	2/28/85		SPR# 20-20303
		In routine OACRSP: don't set the update status word until FORM.4
	has confirmed that the response is valid.  Also add some checks for DN60
	printer when setting the update status bits.
		GCO 4.2.1611

	3115	4/22/85 In routine CHKM2: use index register S1 when updating the flag
	word.

	3116	4/29/85
		Set the update status flag, JOBUPD, after a valid response is given to
	a WTOR.
		GCO	4.2.1616
 REP 12/44	;11C3
		SETOM	JOBUPD(S1)		;Update the stream's status
 WIT
	;**'[3114]At RESP.1:+4L delete 1 line	JYCW	2/25/85
 DEL 52/69	;11C4

 REP 61/69	;11C5
		$DSCHD	(PSF%OR!PSF%OO)		;[3112]Wait for OPERATOR RESPONSE
 WIT
	;**;[3114]Replace 1 line with 4 lines at FRM.2A:+5L	JYCW	2/25/85
		SKIPLE	J$LREM(J)		;[3114]Is this a DN60 lpt ???
		JRST	[$DSCHD	(PSF%OR!PSF%OO)	;Yes,
			 JRST .+2]
		$DSCHD	(PSF%OR)		;[3114]Wait for OPERATOR RESPONSE
 INS 69/69	;11C6
	;**;[3114]At FRM.2A:+17L add 2 lines	JYCW	2/28/85
		MOVE	S2,STREAM		;[3114]Get the stream number
		SETOM	JOBUPD(S2)		;[3114]Yes, update the stream's status
 REP 31/70	;11C7
	;**;[3112]Change 1 line at FORM.4:+4L  TPW   8/13/84
		$DSCHD	(PSF%OR!PSF%OO)		;[3112]Wait for OPERATOR RESPONSE.
 WIT
	;**;[3114]Replace 1 line with 4 lines	JYCW	2/25/85
		SKIPLE	J$LREM(J)		;[3114]Is this a DN60 lpt ???
	;**;[3112]Change 1 line at FORM.4:+4L  TPW   8/13/84
		JRST	[$DSCHD	(PSF%OR!PSF%OO)	;Yes,
			 JRST .+2]
		$DSCHD	(PSF%OR)		;[3112]No, Wait for OPERATOR RESPONSE.
 REP 40/70	;11C8

	FORM.5:	PUSHJ	P,LODRAM		;TRY TO LOAD THE RAM
 WIT
	;**;[3114]At FORM.5: add 2 lines	JYCW	2/25/85
	FORM.5:	MOVE	S1,STREAM		;[3114]Get the stream
		SETOM	JOBUPD(S1)		;[3114]Update the object status
		PUSHJ	P,LODRAM		;TRY TO LOAD THE RAM
 REP 41/77	;11C9
	LODV.0:	LOAD	S1,J$LCLS(J)		;GET THE PRINTER CONTROLLER CLASS
 WIT
	;**;[3116] At LODV.0:+0 add 2 lines	4/29/85	JYCW
	LODV.0:	MOVE	S1,STREAM		;[3116]Get the stream number
		SETOM	JOBUPD(S1)		;[3116]Yes, update the stream's status
		LOAD	S1,J$LCLS(J)		;GET THE PRINTER CONTROLLER CLASS
 INS 37/80	;11C10
	;**;[3116]At NOVF.1:+7L add 2 lines	4/29/85	JYCW
		MOVE	S1,STREAM		;[3116]Get the stream number
		SETOM	JOBUPD(S1)		;[3116]Yes, update the stream's status
 INS 11/83	;11C11
	;**;[3116]At NORAM:+7L add 2 lines	4/29/85	JYCW
		MOVE	S1,STREAM		;[3116]Get the stream number
		SETOM	JOBUPD(S1)		;[3116]Yes, update the stream's status
 INS 23/94	;11C12
	;**;[3116]At OUT.2B:+12L add 2 lines	4/29/85	JYCW
		MOVE	S2,STREAM		;[3116]Get the stream number
		SETOM	JOBUPD(S2)		;[3116]Yes, update the stream's status
 INS 61/94	;11C13
	;**;[3116]At CHKM2:+14L add 2 lines	4/29/85	JYCW
		MOVE	S2,STREAM		;[3116]Get the stream number
		SETOM	JOBUPD(S2)		;[3116]Yes, update the stream's status
 INS 80/94	;11C14
	;**;[3116]At CHKM2:+14L add 2 lines	4/29/85	JYCW
		MOVE	S2,STREAM		;[3116]Get the stream number
		SETOM	JOBUPD(S2)		;[3116]Yes, update the stream's status
 INS 37/114	;11C15
	;**;[3116]At CHKM2:+14L add 2 lines	4/29/85	JYCW
		MOVE	S2,STREAM		;[3116]Get the stream number
		SETOM	JOBUPD(S2)		;[3116]Yes, update the stream's status
 REP 9/116	;11C16
		SETZM	JOBCHK(T4)		;[3111]Checkpoint 
		SETOM	JOBUPD(T4)		;[3111]Send update also
 WIT
	;**;[3115]Change 2 lines at CHKM2:+2L  JCR  2/22/85
		SETZM	JOBCHK(S1)		;[3115]Checkpoint 
		SETOM	JOBUPD(S1)		;[3115]Send update also
 INS 19/116	;11C17
	;**;[3116]At CHKM2:+14L add 2 lines	4/29/85	JYCW
		MOVE	S2,STREAM		;[3116]Get the stream number
		SETOM	JOBUPD(S2)		;[3116]Yes, update the stream's status
 SUM 222249