.TITLE FEAT Test for Specified System Feature .IDENT "V1.0" .ENABL LC .PSECT C$CODE ;+ ; Index FEAT Test for Specified System Feature P/OS Specific ; ; Usage ; ; #include ; #include /* Defined feature symbols */ ; word sym; /* symbol for system feature */ ; word status; /* Returned $DSW */ ; ; status = feat(sym) ; ; [end] ;- ; Edits: ; V1.0 31-MAY-84 KH Initial Creation ; .if df POS .mcall feat$s feat:: mov 2(sp),r0 feat$s r0 mov $dsw,r0 return .iff ; Only on P/OS feat:: mov #IE.SDP,r0 ; Return "unsupported system service" return .endc .end