.TITLE CLEF Clear Event Flag .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index CLEF Clear Event Flag ; ; Usage ; ; #include ; word efn; /* Event flag number */ ; word status; /* Returned DSW */ ; ; status = clef(efn); ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial Edit ; V1.1 19-Oct-82 RBD Change P-Sections. Fix documentation. ; .mcall clef$s clef:: mov 2(sp),r0 ;get the efn clef$s r0 ;clear the flag mov $dsw,r0 ;return the DSW return .end