.TITLE RDEF Read Event Flag .IDENT "V1.0" .ENABL LC .PSECT C$CODE ;+ ; Index RDEF Read Event Flag RSX-11M plus and P/OS Specific ; ; Usage ; ; #include ; word efn /* Event Flag Number */ ; word status; /* Returned $DSW */ ; ; status = rdef(efn) ; ; [end] ;- ; Edits: ; V1.0 31-May-84 KH Initial Creation ; .if df RSX ; Not on RSX rdef:: mov #IE.SDP,r0 ; Return "unsupported system service" return .iff .mcall rdef$s rdef:: mov 2(sp),r0 rdef$s r0 mov $dsw,r0 return .endc .end