.title getfatt .enable lc .ident /wrg/ ; get file record attribute ; Written by Wayne R. Graves 27-Jul-80 ; .globl v$ratt iopt=2 getfatt:: mov iopt(sp),r0 ; get i/o pointer into r0 movb v$ratt(r0),r0 ; get file type into r0 return ; return to caller .end