.title filpro ;+ ; routines for manipulating the default file protection word ; in $$FSR2 ; ; subroutine getpro(prot) ; ; subroutine setpro(prot) ; ; the protection words have meaning as per the I/O operations ; manual description of .rdffp and .wdffp ;- ap=%5 prot=2 ; .psect $r.roi,con,ro,rel,lcl,i .enabl lsb getpro:: call .rdffp ; read default prot word mov r1,@prot(ap) ; return to the user return ; setpro:: mov @prot(ap),r1 ; fetch user value call .wdffp ; write default prot word return .end