.TITLE SWST Switch State .IDENT "V1.0" .ENABL LC .PSECT C$CODE ;+ ; Index SWST Swtich State P/OS Specific ; ; Usage ; ; #include ; char *base /* subroutine base vir. add.*/ ; char *addr /* virtual add. of subroutine */ ; word status; /* Returned $DSW */ ; ; status = swst(base,addr) ; ; [end] ;- ; Edits: ; V1.0 31-May-84 KH Initial Creation ; .if df POS ; Only on P/OS .mcall swst$s swst:: mov sp,r0 ; r0-->parameter stack frame swst$s 2(r0),4(r0) mov $dsw,r0 ; return status return .iff swst:: mov #IE.SDP,r0 ; Return "unsupported system service" return .endc .end