.TITLE	CLOG	Create Logical Name
	.IDENT	"V1.1"
	.ENABL	LC
;+
; Index  CLOG   Create Logical Name 	P/OS Specific
;
; Usage
;
;	#include <cx.h>
;	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
; V1.1 31-Jan-02 BQT	Changed for I/D space.
;
	.psect	c$code,i,ro
	.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