.TITLE	TLOG	Translate Logical Name
	.IDENT  "V1.1"
	.ENABL	LC
;+
; Index  TLOG   Translate Logical Name	P/OS Specific
;
; Usage
;
;	#include <cx.h>
;	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
; V1.1	31-Jan-02 BQT	Changed for I/D space.

	.psect	c$code,i,ro
        .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