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