_TEXT		SEGMENT  DWORD PUBLIC 'CODE'
_TEXT		ENDS
_DATA		SEGMENT  WORD PUBLIC 'DATA'
_DATA		ENDS
CONST		SEGMENT  WORD PUBLIC 'CONST'
CONST		ENDS
_BSS		SEGMENT  WORD PUBLIC 'BSS'
_BSS		ENDS
DGROUP		GROUP	CONST,	_BSS,	_DATA

		ASSUME  CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP

dev_hed		struc
dev_next	dd	0
dev_sts		dw	0
str_ent		dw	0
int_ent		dw	0
res		db	8 dup (0)
dev_hed		ends

DEV_HED_SIZ	equ	size dev_hed

_TEXT		SEGMENT

		public	_Dev_str_call
_Dev_str_call	proc	near
		push	bp
		mov	bp,sp
		les	bx,[bp+4+4]
		call	dword ptr ss:[bp+4]
		pop	bp
		ret
_Dev_str_call	endp

		public	_Dev_int_call
_Dev_int_call	proc	near
		push	bp
		mov	bp,sp
		call	dword ptr ss:[bp+4]
		pop	bp
		ret
_Dev_int_call	endp

		public	_get_DPB
_get_DPB	proc	near
		push	bp
		mov	bp,sp
		push	bx
		push	ds

		mov	ah,32h
		mov	dl,[bp+4]
		inc	dl
		int	21h
		jnc	_get_DPB2

		mov	ax,0FFFFh
		mov	dx,ax
		jmp	_get_DPB3

_get_DPB2:	mov	ax,bx
		mov	dx,ds

_get_DPB3:	pop	ds
		pop	bx
		pop	bp
		ret
_get_DPB	endp

_TEXT		ENDS
		END