Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/cblio.c10
There are 4 other files named cblio.c10 in the archive. Click here to see a list.
 REP 8/1	;10C1
	COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
 INS 29/1	;10C2
	;MJC	03-JAN-85 [1133] Make file-not-found create on the right device
	;KWS	15-OCT-84 [1131] Fix OPEN I-O FILENAME. so it doesn't do SMU.
 REP 84/40	;10C3
	OPNFNF:	MOVX	AC1,GJ%SHT	;DO FILE CREATE OPEN
		MOVEM	AC1,CP.BK1
 WIT
	OPNFNF:	HRRZI	AC1,GJ.BLK	;[1133]DO FILE CREATE OPEN (LONG FORM)
		MOVEM	AC1,CP.BK1
		SETZM	GJ.BLK		;[1133] TURN OFF GJ%OLD
 REP 214/63	;10C4
		TXOA	AC0,OF%RD!OF%WR		; TURN ON BOTH READ AND WRITE
 WIT
		TXO	AC0,OF%RD!OF%WR		;[1131] TURN ON BOTH READ AND WRITE
		TXNN	AC0,OF%WR		;[1131] Is the write bit on?
 SUM 103614