.TITLE DLOG DELETE LOGICAL NAME .IDENT "V1.0" .ENABL LC .LIST ME .PSECT C$CODE ;+ ; Index DLOG Delete Logical Name P/OS Specific ; ; Usage ; ; #include ; address lns; /* Logical Name char. array */ ; int lnssz; /* Logical Name string size */ ; word status; /* Returned $DSW */ ; status = dlog(lns,lnssz); ; ; [end] ;- ; Edits: ; V1.0 30-MAY-84 KH Initial Creation ; .if df POS .mcall dlog$s dlog:: mov 2(sp),r0 mov 4(sp),r1 dlog$s ,#LT.USR,r0,r1 mov $dsw,r0 return .iff ; Only on P/OS dlog:: mov #IE.SDP,r0 ; Return "unsupported system service" return .endc .end