/* 2004.06.05
****************************************
**  Copyright  (C)  W.ch  1999-2005   **
**  Web:  http://www.winchiphead.com  **
****************************************
**  USB Host File Interface for CH375 **
**  TC2.0@PC, KC7.0@MCS51             **
****************************************
*/
/* CH375 主機(jī)文件系統(tǒng)接口 */
/* 支持: FAT12/FAT16/FAT32 */

/* MCS-51單片機(jī)C語言的U盤文件讀寫示例程序, 適用于89C52或者更大程序空間的單片機(jī) */
/* 本程序用于演示創(chuàng)建/打開/刪除長文件名文件 */
/* CH375的INT#引腳采用查詢方式處理, 數(shù)據(jù)復(fù)制方式為"單DPTR復(fù)制", 所以速度較慢, 適用于所有MCS51單片機(jī)
   本例適用于V2.8及以上版本的CH375子程序庫 */

/* 僅供有FAT文件系統(tǒng)和長文件名相關(guān)技術(shù)知識(shí)基礎(chǔ)的用戶參考,支持小寫字母或者漢字等不超過256個(gè)字符的文件名,
   對(duì)該類知識(shí)不了解的用戶建議不要涉及長文件名,建議只使用現(xiàn)成的短文件名,短文件名支持8+3格式,大寫字母或者漢字 */

/* C51   CH375HFT.C */
/* LX51  CH375HFT.OBJ , CH375HF4.LIB    如果將CH375HF4換成CH375HF6就可以支持FAT32 */
/* OHX51 CH375HFT */

#include <reg52.h>
#include <stdio.h>
#include <string.h>

/* 以下定義的詳細(xì)說明請(qǐng)看CH375HF6.H文件 */
#define LIB_CFG_DISK_IO			1		/* 磁盤讀寫的數(shù)據(jù)的復(fù)制方式,1為"單DPTR復(fù)制",2為"雙DPTR復(fù)制",3為"單DPTR和P2+R0復(fù)制" */
#define LIB_CFG_FILE_IO			1		/* 文件讀寫的數(shù)據(jù)的復(fù)制方式,0為"外部子程序",1為"單DPTR復(fù)制",2為"雙DPTR復(fù)制",3為"單DPTR和P2+R0復(fù)制" */
#define LIB_CFG_INT_EN			0		/* CH375的INT#引腳連接方式,0為"查詢方式",1為"中斷方式" */
/*#define LIB_CFG_FILE_IO_DEFAULT	1*/		/* 使用CH375HF6.H提供的默認(rèn)"外部子程序" */
/*#define LIB_CFG_UPD_SIZE		1*/		/* 在添加數(shù)據(jù)后是否自動(dòng)更新文件長度: 0為"不更新",1為"自動(dòng)更新" */
/* 默認(rèn)情況下,如果扇區(qū)數(shù)/字節(jié)數(shù)不為0那么CH375FileWrite/CH375ByteWrite只負(fù)責(zé)寫入數(shù)據(jù)而不修改文件長度,
   如果需要每次寫完數(shù)據(jù)后會(huì)自動(dòng)修改/更新文件長度,那么可以使全局變量CH375LibConfig的位4為1,
   如果長時(shí)間不寫入數(shù)據(jù)則應(yīng)該更新文件長度,防止突然斷電后前面寫入的數(shù)據(jù)與文件長度不相符,
   如果確定不會(huì)突然斷電或者后面很快有數(shù)據(jù)不斷寫入則不必更新文件長度,可以提高速度并減少U盤損耗(U盤內(nèi)部的內(nèi)存壽命有限,不宜頻繁改寫) */

#define CH375_CMD_PORT_ADDR		0xBDF1	/* CH375命令端口的I/O地址 */
#define CH375_DAT_PORT_ADDR		0xBCF0	/* CH375數(shù)據(jù)端口的I/O地址 */
/* 62256提供的32KB的RAM分為兩部分: 0000H-01FFH為磁盤讀寫緩沖區(qū), 0200H-7FFFH為文件數(shù)據(jù)緩沖區(qū) */
#define	DISK_BASE_BUF_ADDR		0x0000	/* 外部RAM的磁盤數(shù)據(jù)緩沖區(qū)的起始地址,從該單元開始的緩沖區(qū)長度為SECTOR_SIZE */
#define FILE_DATA_BUF_ADDR		0x0200	/* 外部RAM的文件數(shù)據(jù)緩沖區(qū)的起始地址,緩沖區(qū)長度不小于一次讀寫的數(shù)據(jù)長度 */
/* 由于演示板用的62256只有32K字節(jié),其中CH375子程序用512字節(jié),所以外部RAM剩余長度為32256字節(jié) */
#define FILE_DATA_BUF_LEN		0x200	/* 外部RAM的文件數(shù)據(jù)緩沖區(qū),緩沖區(qū)長度不小于一次讀寫的數(shù)據(jù)長度,本例要求不小于0x400即可 */
#define FILE_DATA_BUF_ADDR1		0x400	
unsigned char xdata FileDataBuf1[FILE_DATA_BUF_LEN] _at_ FILE_DATA_BUF_ADDR1 ;
#define CH375_INT_WIRE			INT0	/* P3.2, INT0, CH375的中斷線INT#引腳,連接CH375的INT#引腳,用于查詢中斷狀態(tài) */

#define NO_DEFAULT_CH375_F_ENUM		1		/* 未調(diào)用CH375FileEnumer程序故禁止以節(jié)約代碼 */
#define NO_DEFAULT_CH375_F_QUERY	1		/* 未調(diào)用CH375FileQuery程序故禁止以節(jié)約代碼 */

#include "..\CH375HF6.H"				/* 如果不需要支持FAT32,那么請(qǐng)選用CH375HF4.H */
#include    "FILELONG.H"
/* 在P1.4連接一個(gè)LED用于監(jiān)控演示程序的進(jìn)度,低電平LED亮,當(dāng)U盤插入后亮 */
sbit P1_4  = P1^4;
#define LED_OUT_INIT( )		{ P1_4 = 1; }	/* P1.4 高電平 */
#define LED_OUT_ACT( )		{ P1_4 = 0; }	/* P1.4 低電平驅(qū)動(dòng)LED顯示 */
#define LED_OUT_INACT( )	{ P1_4 = 1; }	/* P1.4 低電平驅(qū)動(dòng)LED顯示 */
sbit P1_5  = P1^5;
/* 在P1.5連接一個(gè)LED用于監(jiān)控演示程序的進(jìn)度,低電平LED亮,當(dāng)對(duì)U盤操作時(shí)亮 */
#define LED_RUN_ACT( )		{ P1_5 = 0; }	/* P1.5 低電平驅(qū)動(dòng)LED顯示 */
#define LED_RUN_INACT( )	{ P1_5 = 1; }	/* P1.5 低電平驅(qū)動(dòng)LED顯示 */
sbit P1_6  = P1^6;
/* 在P1.6連接一個(gè)LED用于監(jiān)控演示程序的進(jìn)度,低電平LED亮,當(dāng)對(duì)U盤寫操作時(shí)亮 */
#define LED_WR_ACT( )		{ P1_6 = 0; }	/* P1.6 低電平驅(qū)動(dòng)LED顯示 */
#define LED_WR_INACT( )		{ P1_6 = 1; }	/* P1.6 低電平驅(qū)動(dòng)LED顯示 */
/* 以毫秒為單位延時(shí),不精確,適用于24MHz時(shí)鐘 */
void	mDelaymS( unsigned char delay )
{
	unsigned char	i, j, c;
	for ( i = delay; i != 0; i -- ) {
		for ( j = 200; j != 0; j -- ) c += 3;  /* 在24MHz時(shí)鐘下延時(shí)500uS */
		for ( j = 200; j != 0; j -- ) c += 3;  /* 在24MHz時(shí)鐘下延時(shí)500uS */
	}
}

/* 將程序空間的字符串復(fù)制到內(nèi)部RAM中,返回字符串長度 */
UINT8	mCopyCodeStringToIRAM( UINT8 idata *iDestination, UINT8 code *iSource )
{
	UINT8	i = 0;
	while ( *iDestination = *iSource ) {
		iDestination ++;
		iSource ++;
		i ++;
	}
	return( i );
}

/* 將程序空間的字符串復(fù)制到內(nèi)部RAM中,返回字符串長度 */
UINT8	mCopyCodeStringToIRAM1( UINT8 idata *iDestination, UINT8 xdata *iSource )
{
	UINT8	i = 0;
	while ( *iDestination = *iSource ) {
		iDestination ++;
		iSource ++;
		i ++;
	}
	return( i );
}
/* 將程序空間的字符串復(fù)制到內(nèi)部RAM中,返回字符串長度 */
UINT8	mCopyCodeStringToXRAM( UINT8 xdata *iDestination, UINT8 code *iSource )
{
	UINT8	i = 0;
	while ( *iDestination = *iSource ) {
		iDestination ++;
		iSource ++;
		i ++;
	}
	return( i );
}
/* 檢查操作狀態(tài),如果錯(cuò)誤則顯示錯(cuò)誤代碼并停機(jī) */
void	mStopIfError( UINT8 iError )
{
	if ( iError == ERR_SUCCESS ) return;  /* 操作成功 */
	printf( "Error: %02X\n", (UINT16)iError );  /* 顯示錯(cuò)誤 */
	while ( 1 ) {
		LED_OUT_ACT( );  /* LED閃爍 */
		mDelaymS( 200 );
		LED_OUT_INACT( );
		mDelaymS( 200 );
	}
}

/* 為printf和getkey輸入輸出初始化串口 */
void	mInitSTDIO( )
{
	SCON = 0x50;
	PCON = 0x80;
	TMOD = 0x21;
	TH1 = 0xf3;  /* 24MHz晶振, 9600bps */
	TR1 = 1;
	TI = 1;
}

/*計(jì)算短文件名的校驗(yàn)和，*/
unsigned char ChkSum (P_FAT_DIR_INFO pDir1)
{
	unsigned char FcbNameLen;
	unsigned char Sum;
	Sum = 0;
	for (FcbNameLen=0; FcbNameLen!=11; FcbNameLen++) {
		//if(pDir1->DIR_Name[FcbNameLen]==0x20)continue;
		Sum = ((Sum & 1) ? 0x80 : 0) + (Sum >> 1) + pDir1->DIR_Name[FcbNameLen];
	}
	return (Sum);
}

/*分析緩沖區(qū)的目錄項(xiàng)和長文件名是否相同,返回00-15為找到長文件名相同的文件00-15表示對(duì)應(yīng)短文件名在目錄
項(xiàng)的位置,返回0X80-8F表示分析到目錄項(xiàng)的結(jié)尾,以后都是未用的目錄項(xiàng),返回0FF表示此扇區(qū)無匹配的目錄項(xiàng)*/
UINT8  mLDirCheck(P_FAT_DIR_INFO pDir2,F_LONG_NAME xdata *pLdir1){
	UINT8 i,j,k,sum,nodir,nodir1;
	F_LONG_NAME xdata *pLdir2;
	unsigned int  xdata *pLName;	
	unsigned char  data1;		
	for(i=0;i!=16;i++){						
		if(pDir2->DIR_Name[0]==0xe5){pDir2+=1;continue;}		/*如果此項(xiàng)被刪除繼續(xù)分析下一目錄*/			/*是被刪除的文件名則跳過*/
		if(pDir2->DIR_Name[0]==0x00){return i|0x80;}			/*分析到以下空間沒有文件名存在退出*/
		if((pDir2->DIR_Attr==0x0f)|(pDir2->DIR_Attr==0x8)){pDir2+=1;continue;}  /*如果找到的是卷標(biāo)或者長文件名繼續(xù)*/	
		/*找到一個(gè)短文件名*/
			k=i-1;					/*長文件名項(xiàng)應(yīng)在短文件名上面*/
			if(i==0){				/*如果此短文件名在本扇區(qū)第一項(xiàng)*/
				pLdir2=pLdir1;			/*長文件名應(yīng)在上一扇區(qū)的最后一項(xiàng)*/
				k=15;				/*記錄長文件名位置*/
				pLdir2+=15;			/*偏移到結(jié)尾*/
			}	
			else pLdir2=(F_LONG_NAME xdata *)(pDir2-1);	/*取長文件名目錄項(xiàng)*/
		    	sum=ChkSum(pDir2); 				/*計(jì)算累加和*/
			pLName=LongFileName;				/*指項(xiàng)指定的長文件名*/
		 	nodir=0;					/*初始化標(biāo)志*/
		 	nodir1=1;
		 	while(1){
				if((pLdir2->LDIR_Ord!=0xe5)&(pLdir2->LDIR_Attr==ATTR_LONG_NAME)& (pLdir2->LDIR_Chksum==sum)){  /*找到一個(gè)長文件名*/
					for(j=0;j!=5;j++){		
						if((pLdir2->LDIR_Name1[j]==0x00)|(*pLName==0))continue;	/*分析到長文件名結(jié)尾*/
						if((pLdir2->LDIR_Name1[j]==0xff)|(*pLName==0))continue;    /*分析到長文件名結(jié)尾*/
						if(pLdir2->LDIR_Name1[j]!=*pLName){		/*不等則設(shè)置標(biāo)志*/	
							nodir=1;
							break;
						}
						pLName++;
					}
					if(nodir==1)break;								/*文件名不同退出*/
					for(j=0;j!=6;j++){		
						if((pLdir2->LDIR_Name2[j]==0x00)|(*pLName==0))continue;
						if((pLdir2->LDIR_Name2[j]==0xff)|(*pLName==0))continue;
						if(*pLName!=pLdir2->LDIR_Name2[j]){nodir=1;break;}
						pLName++;
					}
					if(nodir==1)break;								/*文件名不同退出*/
					for(j=0;j!=2;j++){		
						if((pLdir2->LDIR_Name3[j]==0x00)|(*pLName==0))continue;
						if((pLdir2->LDIR_Name3[j]==0xff)|(*pLName==0))continue;
						if(*pLName!=pLdir2->LDIR_Name3[j]){nodir=1;break;}
						pLName++;
					}
					if(nodir==1)break;								/*文件名不同退出*/				
				 	if((data1=pLdir2->LDIR_Ord&0x40)==0x40){nodir1=0;break;} /*找到長文件名，并且比較結(jié)束*/	
			  	}
				else break;							/*不是連續(xù)對(duì)應(yīng)的長文件名退出*/
				if(k==0){
					pLdir2=pLdir1;
					pLdir2+=15;
					k=15;
			    }
				else {
					k=k-1;
					pLdir2-=1;
				}
		    }	
	    if(nodir1==0)	return i;			/*表示找到長文件名，返回短文件名在的目錄項(xiàng)*/
		pDir2+=1;
    }	
	return 0xff;				/*指搜索完這一個(gè)扇區(qū)沒找到響應(yīng)的長文件名*/
}

/*檢查上級(jí)子目錄并打開*/
UINT8 mChkName(unsigned char data *pJ){
		UINT8 i,j;
	j = 0xFF;
	for ( i = 0; i != sizeof( mCmdParam.Create.mPathName ); i ++ ) {  /* 檢查目錄路徑 */
		if ( mCmdParam.Create.mPathName[ i ] == 0 ) break;
		if ( mCmdParam.Create.mPathName[ i ] == PATH_SEPAR_CHAR1 || mCmdParam.Create.mPathName[ i ] == PATH_SEPAR_CHAR2 ) j = i;  /* 記錄上級(jí)目錄 */
	}
	i = ERR_SUCCESS;
	if ( j == 0 || j == 2 && mCmdParam.Create.mPathName[1] == ':' ) {  /* 在根目錄下創(chuàng)建 */
		mCmdParam.Open.mPathName[ 0]='/';
		mCmdParam.Open.mPathName[ 1]=0;
		i=CH375FileOpen();			/*打開根目錄*/
		if ( i == ERR_OPEN_DIR ) i = ERR_SUCCESS;  /* 成功打開上級(jí)目錄 */	
	}
	else {
		if ( j != 0xFF ) {  /* 對(duì)于絕對(duì)路徑應(yīng)該獲取上級(jí)目錄的起始簇號(hào) */
			mCmdParam.Create.mPathName[ j ] = 0;
			i = CH375FileOpen( );  /* 打開上級(jí)目錄 */
			if ( i == ERR_SUCCESS ) i = ERR_MISS_DIR;  /* 是文件而非目錄 */
			else if ( i == ERR_OPEN_DIR ) i = ERR_SUCCESS;  /* 成功打開上級(jí)目錄 */
			mCmdParam.Create.mPathName[ j ] = PATH_SEPAR_CHAR1;  /* 恢復(fù)目錄分隔符 */
		}		
	}
	*pJ=j;										/*指針中返回一組數(shù)據(jù)*/
	return i;
}

/*根據(jù)指定的長文件名搜索對(duì)應(yīng)的短文件名長文件名空間放入長文件名,短文件名空間放入路徑00結(jié)尾*/
UINT8  mLoopkUpSName(){
	UINT8  BlockSer1;				/*定義兩個(gè)扇區(qū)塊內(nèi)記數(shù)*/
	unsigned char xdata ParData[MAX_PATH_LEN];			/**/
	UINT16	tempSec;						/*扇區(qū)偏移*/
	UINT8 i,j,k;
	F_LONG_NAME   xdata *pLDirName; 
	P_FAT_DIR_INFO  pDirName;
	bit  FBuf;
	unsigned char data *pBuf1;
	CH375DirtyBuffer();
	for(k=0;k!=MAX_PATH_LEN;k++)ParData[k]=mCmdParam.Other.mBuffer[k];	/*保存當(dāng)前路徑*/
	i=mChkName(&j);										
	if ( i == ERR_SUCCESS ) {  /* 成功獲取上級(jí)目錄的起始簇號(hào) */
		BlockSer1=0;
		FBuf=0;					/*初始化*/	
		tempSec=0;
		FileDataBuf1[0]=0xe5;	/*第一次用，無效緩沖區(qū)*/
		k=0xff;
		while(1){							/*下面是讀取并分析目錄項(xiàng)*/			
			pDirName=FBuf?FILE_DATA_BUF_ADDR1:FILE_DATA_BUF_ADDR;		/*短文件名指針指向緩沖區(qū)*/		
			pLDirName=FBuf?FILE_DATA_BUF_ADDR:FILE_DATA_BUF_ADDR1;
															/*當(dāng)前處理的文件緩沖區(qū)*/																/*這里使用雙向緩沖區(qū)，去處理文件名*/
			mCmdParam.ReadX.mSectorCount=1;				/*讀取一扇區(qū)數(shù)據(jù)*/
			mCmdParam.ReadX.mDataBuffer=FBuf?FILE_DATA_BUF_ADDR1:FILE_DATA_BUF_ADDR;
			FBuf=!FBuf;												/*緩沖區(qū)標(biāo)志翻轉(zhuǎn)*/
			i=CH375FileReadX( );
			if(mCmdParam.ReadX.mSectorCount==0){k=0xff;break;}
				k=mLDirCheck(pDirName,pLDirName);
				if(k!=0x0ff){break;}			/*找到文件或者找到文件結(jié)尾退出*/
			}
			if(k<16){
						pDirName+=k;		/*所找的文件短文件名在此目錄項(xiàng)*/
			    		if(j!=0xff){	
					  		 for(k=0;k!=j+1;k++)mCmdParam.Other.mBuffer[k]=ParData[k];	
						}
						pBuf1=&mCmdParam.Other.mBuffer[j+1];	/*取文件名的地址*/
						for(i=0;i!=8;i++){
							if(pDirName->DIR_Name[i]==0x20)continue;
					    	else{
						 		*pBuf1=pDirName->DIR_Name[i];
						 		pBuf1++;
			 				}
						}
						if(pDirName->DIR_Name[i]!=0x20){
							*pBuf1='.';
						 	pBuf1++;					/*不是目錄則有擴(kuò)展名*/
						}
						for(;i!=11;i++){
							if(pDirName->DIR_Name[i]==0x20)continue;
							else {
								*pBuf1=pDirName->DIR_Name[i];
						 		pBuf1++;
			 				}
						}
						*pBuf1=00;
						 for(k=0;k!=j+1;k++)ParData[k]=mCmdParam.Other.mBuffer[k];
								/*復(fù)制短文件名*/
					i=CH375FileClose( );
					for(k=0;k!=j+1;k++)mCmdParam.Other.mBuffer[k]=ParData[k];			
		   	}
			else 	k=0xff;				/*返回沒找到指定的長文件名文件？？？？？？？*/	 
			i=CH375FileClose( );
	  }
	  else {k=i;};
	  return k;	
}

/*這里可以創(chuàng)建文件的長文件名，在短文件名空間輸入路徑以及參考短文件名，在長文件名空間輸入該文件長文件名的UNICODE代碼，
返回狀態(tài),00表示成功，并且在短文件名空間返回真實(shí)的短文件名，其他為不成功狀態(tài)*/
/*創(chuàng)建并打開*/
UINT8  mCreatLName(){
	UINT8  BlockSer1;				/*定義兩個(gè)扇區(qū)塊內(nèi)記數(shù)*/
	unsigned char xdata ParData[MAX_PATH_LEN];			/**/
	UINT16	tempSec;						/*扇區(qū)偏移*/
	UINT8 i,j,k,x,sum,y,z;
	F_LONG_NAME   xdata *pLDirName; 
	P_FAT_DIR_INFO  pDirName,pDirName1;
	bit  FBuf;		
	unsigned char data *pBuf1;
	unsigned int xdata *pBuf;
	CH375DirtyBuffer(  );
	for(k=0;k!=MAX_PATH_LEN;k++)ParData[k]=mCmdParam.Other.mBuffer[k];			/**/
	i=mChkName(&j);
	if ( i == ERR_SUCCESS ) {  /* 成功獲取上級(jí)目錄的起始簇號(hào) */
		BlockSer1=0;
		FBuf=0;					/*初始化*/