Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93e-bb - 7,6/ap013/srtscn.c13
There are 10 other files named srtscn.c13 in the archive. Click here to see a list.
 INS 26/32	;13C1
	;**;[532] At INIOUT+20. lines, insert 11 lines
	IF DISK AND LARGE BUFFER FEATURE
		MOVE T1,FILFLG(F)		;[532] GET FILE FLAGS
		TXNN	T1,FI.DSK		;[532] DISK?
		JRST	$F			;[532] NO
		HRROI	T1,.GTLBS		;[532] LARGE BUFFERS ALLOWED?
		GETTAB	T1,			;[532]
		JRST	$F			;[532] NO
	THEN USE TWO LARGE BUFFERS
		MOVEI	T1,2			;[532] 2 BUFFERS
		MOVEM	T1,OBUFNO		;[532] REMEMBER FOR LATER
	FI;
 SUM 65289