.TITLE WIMP What's In My Professional .IDENT "V1.0" .ENABL LC .PSECT C$CODE ;+ ; Index WIMP What's in my Profssional P/OS Specific ; ; Usage ; ; #include ; #include /* mnemonic sfcn codes */ ; word sfcn; /* subfunction code */ ; char *buf; /* Return Buffer Address */ ; word siz; /* Return Buffer Size */ ; word status; /* Returned $DSW */ ; ; status = wimp(sfcn, buf, siz) ; ; [end] ;- ; Edits: ; V1.0 31-May-84 KH Initial Creation; ; .if df POS .mcall wimp$s wimp:: mov sp,r0 ; r0-->parameter stack frame wimp$s 2(r0),4(r0),6(r0) mov $dsw,r0 return .iff ; Only on P/OS wimp:: mov #IE.SDP,r0 ; Return "unsupported system service" return .endc .end