Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
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