.TITLE TLOG Translate Logical Name .IDENT "V1.0" .ENABL LC .LIST ME .PSECT C$CODE ;+ ; Index TLOG Translate Logical Name P/OS Specific ; ; Usage ; ; #include ; address lns; /* Logical Name Buf. Caps */ ; int lnssz; /* Logical Name String Size */ ; address ens; /* Equivalence Name Buffer */ ; int enssz; /* Equiv. Name String Size */ ; address renssz; /* Buffer for returned ENS */ ; address rtbmod; /* Returned table # word add. */ ; word status; /* Returned $DSW */ ; status = tlog(,,,lns,lnssz,ens,enssz,renssz,rtbmod); ; ; [end] ;- ; Edits: ; V1.0 30-MAY-84 KH Initial Creation ; .if df POS .mcall tlog$s tlog:: mov sp,r0 ; r0 --> parameters stack frame tlog$s ,,,2(r0),4(r0),6(r0),10(r0),12(r0),14(r0) mov $dsw,r0 ; return DSW return .iff ; Only on P/OS tlog:: mov #IE.SDP.r0 ; Return "unsupported system service" return .endc .end