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

 INS 1/1	;16C1
	; *** Edit 305 to REAPER.MAC by EVANS on 10-Apr-87, for SPR #21320
	; Release JFNs when SCAN-only.
	; *** Edit 304 to REAPER.MAC by EVANS on 10-Apr-87, for SPR #21435
	; Prevent JFNS% error by getting JFN from right place if last file. Add ERJMP
	; too.
 REP 5/2	;16C2
		.EDIT=^D303
 WIT
		.EDIT=^D305
 REP 28/18	;16C3
		TXNE	F,F.SCAN
		JRST	DOFETA
 WIT
	;**;[305] Change 1 line and add 5 at DOFET:+23L		DEE	10-APR-87
		TXNN	F,F.SCAN	;[305] Just SCANning?
		IFSKP.			;[305]			
		 RLJFN%			;[305] Yes, release the JFN now
		  ERJMP .+1		;[305]
		 JRST 	DOFETA		;[305] And don't DELF%
		ENDIF.			;[305]
 INS 9/20	;16C4
	;**;[304]Add 1 line at JOJAR:+4L		DEE	10-APR-87
		 ERJMP	OPERR		;[304] Some problem
 REP 56/20	;16C5
		MOVE	T1,MSGPTR
		HRRZ	T2,LOCJFN
		MOVX	T3,JFNSAL
		JFNS%
 WIT
	;**;[304] Add 2 lines and change 1 at TOUSR:+3L		DEE	10-APR-87
		SKIPN	LOCJFN		;[304] No more files coming up?
		SKIPA 	T2,TMP		;[304] Nope, use JFN from TMP for JFNS%
		HRRZ	T2,LOCJFN	;[304] Got more to come, use LOCJFN
		MOVE	T1,MSGPTR
		MOVX	T3,JFNSAL
		JFNS%
	;**;[304] Add 1 line at TOUSR:+9L		DEE	10-APR-87
		 ERJMP 	OPERR		;[304] Some problem
 REP 83/20	;16C6
		TXNE	F,F.SCAN	;just scanning?
		JRST	DOTMP1		;yes, skip the DELF
 WIT
	;**;[305] Change 1 line and add 5 at DOTMP:+7L		DEE	10-APR-87
		TXNN	F,F.SCAN	;[305]just scanning?
		IFSKP.			;[305]
		 RLJFN%			;[305] Yup - better release the JFN now
		  ERJMP .+1		;[305]
		 JRST DOTMP1		;[305] And skip the DELF%
		ENDIF.			;[305]
 SUM 47521