;/////////////////////////////////////////////////////////////////////
; Функция #02. Номер текущего диска.
;
; вход: нет
; выход: A - номер диска (0=A,1=B,..)
;	 C - номер последнего диска в системе
;/////////////////////////////////////////////////////////////////////
CURDISK_FN:
	;
	IF OLD_DSS_FOR_OLD_EXE
	 ; [ ] 10/06/24
	  LD	A,(EXE_VERSION)
	  OR	A
	  JR	Z,CURDISK
	 ;
	ENDIF
	LD	A,(LDRIVE)
	LD	C,A
	LD	A,(CORE_BUFFERS.CurrentPath)
	SUB	'A'
	RET	NC
	LD	A,DSS_Error.sys.INVALID_DRIVE
	RET
CURDISK:
	LD	A,(LDRIVE)
	LD	C,A
	LD	A,(CORE_BUFFERS.FatBuffer.DRIVE)
	AND	A
	RET 
;