.list ttm .nlist bin .title dopen C library device opener .ident /000001/ ; ;+ ; ; Index Open or reopen a device ; ; Usage ; ; FILE * ; dopen(r50name, mode); ; int r50name; /* Device to open in rad50 */ ; char *mode; /* Open modes as in fopen */ ; ; Description ; ; Dopen is an alternative to Fopen which allows absolute access ; to random access devices. See description of Fopen. ; ;- ; ; Edit history ; 000001 6-May-83 BK Adapted from fopen, for RT11 only. ; .enabl gbl .psect .prog. ; dopen:: jsr r5,csv$ ; Establish linkage clr r4 ; No buffer yet jsr pc,$$flun ; Get a Unit (and IOV) jsr pc,$$fopt ; Scan options string clr -(sp) ; clear size request clr -(sp) ; type clr -(sp) ; and file name clr -(sp) mov C$PMTR+0(r5),-(sp) ; get the rad50 name mov sp,r1 ; r1 => 5 word device descr jmp $$fopr ; And go open the file. ; .end