.TITLE CLOG Create Logical Name .IDENT "V1.0" .ENABL LC .PSECT C$CODE ;+ ; Index CLOG Create Logical Name P/OS Specific ; ; Usage ; ; #include ; address lns; /* Logical Name char. array */ ; int lnssz; /* Logical Name String Size */ ; address ens; /* Equiv. Name char. array */ ; int enssz; /* Equiv. Name string size */ ; word status; /* Returned $DSW */ ; status = clog(lns,lnssz,ens,enssz); ; ; [end] ;- ; Edits: ; V1.0 30-MAY-84 KH Initial Creation ; .if df POS .mcall clog$s clog:: mov sp,r0 ; r0 --> parameters stack frame clog$s ,#LT.USR,2(r0),4(r0),6(r0),10(r0) mov $dsw,r0 ; return DSW return .iff ;Only on P/OS clog:: mov #IE.SDP,r0 ; Return "unsupported system service" return .endc .end