;		Graph_lib
;
;		directory
;
;		1994  Hiroshi TODA
;

	.386p

        cseg	segment	'CODE'
	assume	cs:cseg,ds:cseg

;getCurrentDisk

	public	getCurrentDisk
	db	'getCurrentDisk',14
getCurrentDisk	proc	near
	push	ebp
	mov	ebp,esp			; ebp <-- param area top add
	push	esi
	push	edi
	push	ebx

	mov		ah,19h
	int		21h
	and		eax,0ffh

	pop	ebx
	pop	edi
	pop	esi
	mov	esp,ebp
	pop	ebp
	ret
getCurrentDisk	endp

;changeCurrentDirectory(path_name_address)

	public	changeCurrentDirectory
	db	'changeCurrentDirectory',22
changeCurrentDirectory	proc	near
	push	ebp
	mov	ebp,esp			; ebp <-- param area top add
	push	esi
	push	edi
	push	ebx

	mov	edx,[ebp+8]		; path
	mov	ah,3bh
	int	21h
	jc	#c01
	xor	eax,eax
#c01:	and	eax,0000FFFFh

	pop	ebx
	pop	edi
	pop	esi
	mov	esp,ebp
	pop	ebp
	ret
changeCurrentDirectory endp

;changeDisk(int disk)

	public	changeDisk
	db	'changeDisk',10
changeDisk	proc	near
	push	ebp
	mov	ebp,esp			; ebp <-- param area top add
	push	esi
	push	edi
	push	ebx

	mov	edx,[ebp+8]		; drv
	mov	ah,0eh
	int	21h
	xor	eax,eax

	pop	ebx
	pop	edi
	pop	esi
	mov	esp,ebp
	pop	ebp
	ret
changeDisk	endp

        cseg	ends
	end