	TITLE   pglue

	.386p

	include	shared.inc

; Glue routines on the '386 side that interface to the glue routines
; on the 286 side.

_DATA	segment dword public use32 'DATA'
_DATA	ends
_BSS	segment dword public use32 'BSS'
_BSS	ends

DGROUP	group _DATA,_BSS

	ASSUME	cs:_TEXT, ds:DGROUP, es:nothing, ss:nothing

_TEXT	segment	dword public use32 'CODE'
		align	4
	EXTRN	_set_errno_:NEAR

PUBLIC  rpc_init_
;
;	short rpc_init(char *name)
;

rpc_init_      PROC NEAR
	push	edx
	mov	edx,eax		; name
	mov	ah,0e0h
	int	21h
	pop	edx
	jc	short bad
	xor	ah,ah
	ret
bad:
	movzx	eax,ax
	call	_set_errno_
	xor	eax,eax
	dec	eax		; return -1;
	ret
rpc_init_	ENDP

_TEXT	ends
	end
