.TITLE SETOWN .IDENT /V1.0/ .NLIST ME,CND,BEX ; This is the FORTRAN version of this routine. ; This subroutine is used to write the default file owner ; word into the FSR. The call is ; CALL SETOWN(MASK) ; Where mask is a Integer*2 variable ; containing the file owner word as ; described in Chapter 4, section 4.4.2 ; of the IAS/RSX I/O operations manual. SETOWN:: MOV @2(R5),R1 ; Get the file owner word CALL .WFOWN ; Write it RTS PC ; Return to calling proc. .END