.TITLE CRGF Create Group Global Event Flags .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index CRGF Create Group Global Event Flags ; ; Usage ; ; #include ; word group; /* UIC group number or 0 */ ; word status; /* Returned DSW */ ; ; status = crgf(group); ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial edit ; V1.1 19-Oct-82 RBD Change P-Section. Fix documentation. ; .mcall crgf$s crgf:: mov 2(sp),r0 ;r0 = group number bic #^c377,r0 ;assure it's legal crgf$s r0 mov $dsw,r0 ;return DSW return .end