.TITLE RDXF Read Extended Event Flags .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index RDXF Read Extended Event Flags ; ; Usage ; ; #include ; word buffer[6]; /* 6 words of flags */ ; word status; /* Returned DSW */ ; ; status = rdxf(buffer); ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial Edit ; V1.1 20-Oct-82 RBD Change P-Section. Fix documentation. ; .mcall rdxf$s rdxf:: mov 2(sp),r0 ;r0 --> 6 word buffer rdxf$s r0 ;fill it mov $dsw,r0 ;return dsw return .end