Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - foropn.c13
There is 1 other file named foropn.c13 in the archive. Click here to see a list.
 REP 3/1	;13C1
		TV	FOROPN	OPEN & CLOSE ,10(4220)
 WIT
		TV	FOROPN	OPEN & CLOSE ,10(4225)
 INS 1107/2	;13C2
	4225	RJD	23-Sep-85
		Add check for FTDSK being set non-zero.  

 REP 60/86	;13C3
	IFN FTVAX,<
		X	PLT		;-7	FOR USE BY FORPLT
		X	REREAD		;-6	REREAD
		X	TTY		;-5	READ
		X	TTY		;-4	ACCEPT
		X	TTY		;-3	PRINT
 WIT
	IFN FTDSK,<
		X	PLT		;-7	FOR USE BY FORPLT
		X	REREAD		;-6	REREAD
		X	CDR		;-5	READ
		X	TTY		;-4	ACCEPT
		X	LPT		;-3	PRINT
 INS 69/86	;13C4
	> ;[4225] END IFN FTDSK

	IFN FTVAX,<
		X	PLT		;-7	FOR USE BY FORPLT
		X	REREAD		;-6	REREAD
		X	TTY		;-5	READ
		X	TTY		;-4	ACCEPT
		X	TTY		;-3	PRINT
		X	PTP		;-2	PUNCH
		X	TTY		;-1	TYPE
	DEVTAB:
 SUM 213237