.title fclear Clear file error flags .ident /000002/ ; ;+ ; ; Index Clear open file's error flags ; ; Usage ; ; fclear(iop); ; FILE *iop; ; ; Description ; ; Clear the error flags for an open file. This may be needed ; for interaction with the user's console terminal. ; ; Bugs ; ;- ; ; Edit history ; 000001 07-Jan-81 MM Initial edit ; 000002 27-Jun-82 MM For new library ; .psect c$code fclear:: mov 2(sp),r0 bic #VF$EOF+VF$ERR,V$FLAG(r0) return .end