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