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

 REP 42/1	;08C1
		LPTEDT==3104			;EDIT LEVEL
 WIT
		LPTEDT==3110			;EDIT LEVEL
 INS 498/4	;08C2
	3105	12/1/83 In OUTDNA, release JFN if the device is not remote.  In
		either case, indicate no output channel.  GCO 4.2.1562

	3106    12/22/83 In FRMIN4, correct the way locator switches are processed
	        to ensure that DN60 remote printers are processed correctly. 
	        GCO 4.2.1565

	3107	2/16/84  In FORMS, initialize the pointer TEXTBP after the call to 
	        OUTDMP so as to prevent occasional BPN stop codes from occuring due
	        to TEXTBP being changed by OPRD60 which is called by OUTDMP if there
	        are any DN60 messages pending.
		GCO 4.2.1568

	3110	5/3/84	Make system process by setting IB.SYS in IB.
		GCO 4.2.1576

 INS 15/17	;08C3
	;**;[3110]At IB:+4L Add 1 line   JCR  5/3/84
		 $SET(IB.FLG,IB.SYS,1)			;[3110]Set as system process
 DEL 2/69	;08C4

 REP 8/69	;08C5
		HRLZI	S2,J$WTOR(J)		;Get the start address of the buffer
 WIT
	;**;[3107]At FORMS:+4L add 5 lines.   JCR  2/16/84
		SKIPN	J$FORM(J)		;[3107]ANY PREVIOUS FORMS??
		JRST	FORM.1			;[3107]NO, DON'T TRY TO SEND FF
		PUSHJ	P,OUTDMP		;[3107]CLEAR ANY PREVIOUS OUTPUT
		PUSHJ	P,SENDFF		;[3107]SEND FF IF NEEDED
		PUSHJ	P,OUTDMP		;[3107]CLEAR IT OUT
	;**;[3107]At FORMS:+5L change 1 line. JCR  2/16/84
	FORM.1:	HRLZI	S2,J$WTOR(J)		;[3107]GET START ADDRESS OF THE BUFFER
 REP 23/69	;08C6
		SKIPN	J$FPFM(J)		;Any previous forms??
		JRST	FORM.1			;No, don't try to send FF
		PUSHJ	P,OUTDMP		;Clear any previous output
		PUSHJ	P,SENDFF		;Send FF if needed
		PUSHJ	P,OUTDMP		;Clear it out

	FORM.1:	MOVE	S1,J$FDRU(J)		;GET THE CURRENT DRUM TYPE
 WIT
	;**;[3107]At FORMS:+20L delete 5 lines JCR  2/16/84
	;**;[3107]At FORMS:+25L change 1 line  JCR  2/16/84
		MOVE	S1,J$FDRU(J)		;[3107]GET THE CURRENT DRUM TYPE
 REP 5/72	;08C7
		SKIPGE	J$LREM(J)		;YES, ARE WE?
 WIT
	;**;[3106]At LFRMIN4:+4L change 1 line  JCR 12/22/83
		SKIPE	J$LREM(J)		;[3106]YES, ARE WE?
 REP 9/72	;08C8
		SKIPL	J$LREM(J)		;YES, ARE WE REMOTE
 WIT
	;**;[3106]At LFRMIN4:+8L change 1 line  JCR 12/22/83
		SKIPN	J$LREM(J)		;[3106]YES, ARE WE REMOTE
 REP 11/89	;08C9
		 JRST	OUTDDE			; Yes all errs fatal
 WIT
	;**;[3105]Change 1 line and add 5 more at OUTDNA:+1.  12/1/83  DEK
		 JRST	[SETOM	J$LCHN(J)	;[3105]Yes, indicate no output channel
			JRST	OUTDDE]		;[3105]All errors fatal on DN60
		MOVE	S1,J$LCHN(J)		;[3105]Get the LPT JFN
		RLJFN				;[3105]  and release it
		 JFCL				;[3105]Ignore any errors
		SETOM	J$LCHN(J)		;[3105]Indicate no output channel
 SUM 243638