include	clib.inc
include	dir.inc
include	dos.inc
include	fblk.inc
include	wsub.inc

	public	drvinfo

_DATA	SEGMENT

drvinfo	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'A:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'B:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'C:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'D:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'E:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'F:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'G:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'H:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'I:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'J:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'K:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'L:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'M:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'N:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'O:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'P:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'Q:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'R:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'S:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'T:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'U:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'V:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'W:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'X:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'Y:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'Z:',0>
	S_DISK <_A_VOLID or _A_ROOTDIR,0,0,0,'[:',0>

_DATA	ENDS

_TEXT	SEGMENT

Install PROC
	call	dosdate
	push	ax
	call	dostime
	pop	dx
	xor	cx,cx
	mov	bx,offset drvinfo
    @@:
	mov	[bx.di_time],ax
	mov	[bx.di_date],dx
	mov	word ptr [bx.di_sizeax],cx
	add	bx,SIZE S_DISK
	inc	cx
	cmp	cx,MAXDRIVES
	jb	@B
	ret
Install ENDP

_TEXT	ENDS

_INIT_	SEGMENT
	dw	Install
_INIT_	ENDS

	END
