.TITLE GDIR Get Default Directory .IDENT "V1.0" .ENABL LC .PSECT C$CODE ;+ ; Index GDIR Get Default Directory P/OS Specific ; ; Usage ; ; #include ; word ens /* equiv. name string buf. add.*/ ; word enssz /* equiv. name string size */ ; word rsize /* buf. add. for returned ENS */ ; word status; /* Returned $DSW */ ; ; status = gdir(,ens,enssz,rsize) ; ; [end] ;- ; Edits: ; V1.0 31-May-84 KH Initial Creation ; .iif df MICRSX Yes=1 .iif df POS Yes=1 .if df Yes .mcall gdir$s gdir:: mov sp,r0 ; ro --> stack gdir$s ,2(r0),4(r0),6(r0) mov $dsw,r0 ; get status word return .iff gdir:: mov #IE.SDP,r0 ; Return "unsupported system service" return .endc .end