/* 2004.06.05
****************************************
**  Copyright  (C)  W.ch  1999-2004   **
**  Web:  http://www.winchiphead.com  **
****************************************
**  USB Host File Module      @CH375  **
**  TC2.0@PC, KC7.0@MCS51             **
****************************************
*/
/* U盤(pán)文件讀寫(xiě)模塊, 連接方式: 3線(xiàn)制串口+事件中斷通知 */
/* MCS-51單片機(jī)C語(yǔ)言示例程序 */
/* 因?yàn)槭褂肬盤(pán)文件讀寫(xiě)模塊而不是使用U盤(pán)文件級(jí)子程序庫(kù),所以占用較少的單片機(jī)資源,可以使用89C51單片機(jī)測(cè)試 */
/* 模塊工作于USB設(shè)備模式,用于連接上位機(jī)PC機(jī),單片機(jī)的RAM只需要幾十個(gè)字節(jié),不需要外部RAM */
/* 本程序用于演示USB設(shè)備模式連接PC機(jī)及模式切換 */

#include <reg51.h>
#include <absacc.h>
#include <string.h>
#include <stdio.h>

#define MAX_PATH_LEN			65		/* 最大路徑長(zhǎng)度,含所有斜杠分隔符和小數(shù)點(diǎn)間隔符以及路徑結(jié)束符00H,CH375模塊支持的最大值是65,最小值是13 */
/* 如果模塊可能會(huì)工作于USB設(shè)備模式,那么MAX_PATH_LEN必須大于64,因?yàn)樯衔粰C(jī)PC機(jī)發(fā)給模塊的下傳數(shù)據(jù)包可能達(dá)到64字節(jié) */
#include "..\CH375HM.H"

/* 電路連接方式,只需要連接3根線(xiàn),使用串口同步碼啟動(dòng)操作
   單片機(jī)    模塊
    TXD   =  SIN
    RXD   =  SOUT
             STA# 懸空或接高電平
             INT# 接地或接低電平
    GND   =  GND
*/

CMD_PARAM	idata	mCmdParam;			/* 默認(rèn)情況下該結(jié)構(gòu)將占用60字節(jié)的RAM,可以修改MAX_PATH_LEN常量,當(dāng)修改為32時(shí),只占用32字節(jié)的RAM */

sbit	LED_OUT		=	P1^4;			/* P1.4 低電平驅(qū)動(dòng)LED顯示,用于監(jiān)控演示程序的進(jìn)度 */

/* 以毫秒為單位延時(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ā)送一個(gè)字節(jié)數(shù)據(jù)給CH375模塊 */
void	mSendByte( unsigned char c )
{
	TI = 0;
	SBUF = c;
	while ( TI == 0 );
}

/* 從CH375模塊接收一個(gè)字節(jié)數(shù)據(jù) */
unsigned char	mRecvByte( )
{
	unsigned char	c;
	while ( RI == 0 );
	c = SBUF;
	RI = 0;
	return( c );
}

unsigned char	EventStatus = 0;	/* 保存在命令執(zhí)行期間收到的事件自動(dòng)通知的事件狀態(tài)碼 */

/* 執(zhí)行命令 */
unsigned char	ExecCommand( unsigned char cmd, unsigned char len )
/* 輸入命令碼和輸入?yún)?shù)長(zhǎng)度,返回操作狀態(tài)碼,輸入?yún)?shù)和返回參數(shù)都在CMD_PARAM結(jié)構(gòu)中 */
{
	unsigned char		i, j, status;
	mSendByte( SER_SYNC_CODE1 );  /* 發(fā)送串口同步碼通知模塊,說(shuō)明命令碼開(kāi)始發(fā)送,請(qǐng)求開(kāi)始執(zhí)行命令 */
	mSendByte( SER_SYNC_CODE2 );  /* 用兩個(gè)串口同步碼代替STA#的下降沿 */
/* 上面兩個(gè)串口同步碼應(yīng)該連續(xù)發(fā)送,如果不連續(xù),那么間隔時(shí)間不能超過(guò)20mS,否則命令無(wú)效 */
	if ( RI ) EventStatus = SBUF;  /* 收到事件自動(dòng)通知的事件狀態(tài)碼,保存?zhèn)溆?*/
	RI = 0;
	mSendByte( cmd );  /* 寫(xiě)入命令碼 */
	mSendByte( len );  /* 寫(xiě)入后續(xù)參數(shù)的長(zhǎng)度 */
	if ( len ) {  /* 有參數(shù) */
		for ( i = 0; i != len; i ++ ) mSendByte( mCmdParam.Other.mBuffer[ i ] );  /* 依次寫(xiě)入?yún)?shù) */
	}
	while ( 1 ) {  /* 處理數(shù)據(jù)傳輸,直到操作完成才退出 */
		status = mRecvByte( );  /* 等待模塊完成操作并返回操作狀態(tài) */
		if ( status == ERR_SUCCESS ) {  /* 操作成功 */
			i = mRecvByte( );  /* 返回結(jié)果數(shù)據(jù)的長(zhǎng)度 */
			if ( i ) {  /* 有結(jié)果數(shù)據(jù) */
				j = 0;
				do {  /* 使用do+while結(jié)構(gòu)是因?yàn)槠湫矢哂趂or */
					mCmdParam.Other.mBuffer[ j ] = mRecvByte( );  /* 接收結(jié)果數(shù)據(jù)并保存到參數(shù)結(jié)構(gòu)中 */
					j ++;
				} while ( -- i );
			}
			break;  /* 操作成功返回 */
		}
		else if ( status == USB_INT_DISK_READ || status == USB_INT_DISK_WRITE || status == USB_INT_DISK_RETRY ) {  /* 正在從U盤(pán)讀數(shù)據(jù)塊,請(qǐng)求數(shù)據(jù)讀出,正在向U盤(pán)寫(xiě)數(shù)據(jù)塊,請(qǐng)求數(shù)據(jù)寫(xiě)入,讀寫(xiě)數(shù)據(jù)塊失敗重試 */
			break;  /* 本程序只使用以字節(jié)為單位的文件讀寫(xiě)子程序,所以正常情況下不會(huì)收到該狀態(tài)碼,操作失敗返回 */
		}
		else {  /* 操作失敗 */
			if ( status == ERR_DISK_DISCON || status == ERR_USB_CONNECT ) mDelaymS( 100 );  /* U盤(pán)剛剛連接或者斷開(kāi),應(yīng)該延時(shí)幾十毫秒再操作 */
			break;  /* 操作失敗返回 */
		}
	}
	return( status );
}

/* 檢查操作狀態(tài),如果錯(cuò)誤則顯示錯(cuò)誤代碼并停機(jī) */
void	mStopIfError( unsigned char iError )
{
	unsigned char	led;
	if ( iError == ERR_SUCCESS ) return;  /* 操作成功 */
/*	printf( "Error: %02X\n", (unsigned short)iError );*/  /* 顯示錯(cuò)誤 */
	led=0;
	while ( 1 ) {
		LED_OUT = led&1;  /* LED閃爍 */
		mDelaymS( 100 );
		led^=1;
	}
}

main( ) {
	unsigned char	es, i;
	unsigned short	len;
	unsigned char	*name;
	LED_OUT = 0;  /* 開(kāi)機(jī)后LED亮一下以示工作 */
	mDelaymS( 100 );  /* 延時(shí)100毫秒,CH375模塊上電后需要100毫秒左右的復(fù)位時(shí)間 */
	mDelaymS( 100 );
	LED_OUT = 1;
/* 設(shè)置與CH375模塊通訊的串口 */
	SCON = 0x50;
	PCON = 0x80;
	TMOD = 0x20;
	TH1 = 0xE6;  /* 24MHz晶振, 4800bps */
	TR1 = 1;
/* 由于4800bps較慢,所以下面用命令將其修改為9600bps */
	mCmdParam.BaudRate.mDivisor = 18432000/32/9600;  /* 輸入?yún)?shù): 通訊波特率除數(shù),假定模塊的晶體X2的頻率為18.432MHz */
	i = ExecCommand( CMD_BaudRate, 1 );  /* 設(shè)置串口通訊波特率 */
	mStopIfError( i );
	TH1 = 0xF3;  /* 24MHz晶振, 將自身串口的通訊波特率調(diào)整到9600bps */
	mDelaymS( 5 );  /* 延時(shí)5毫秒,確保CH375模塊切換到新設(shè)定的通訊波特率 */
/* CMD_BaudRate命令修改模塊的通訊波特率,CMD_SetupModule命令設(shè)置模塊的配置,啟動(dòng)事件自動(dòng)通知 */
/* 這兩個(gè)命令都可以在功能配置時(shí)以硬件方式直接指定,從而不必每次開(kāi)機(jī)后執(zhí)行 */
	mCmdParam.Setup.mSetup = 0x01;  /* 輸入?yún)?shù): 模塊配置值,位0為1則事件自動(dòng)通知,USB主機(jī)模式下空閑時(shí)查詢(xún)U盤(pán)連接狀態(tài)并自動(dòng)通知,USB設(shè)備模式下下傳或者上傳成功自動(dòng)通知 */
	i = ExecCommand( CMD_SetupModule, 1 );  /* 設(shè)置模塊配置 */
	mStopIfError( i );

	mCmdParam.SetUsbMode.mUsbMode = 2;  /* 進(jìn)入U(xiǎn)SB設(shè)備模式 */
	i = ExecCommand( CMD_SetUsbMode, 1 );  /* 設(shè)置模塊的工作模式 */
	mStopIfError( i );

/*	printf( "Start USB Device\n" );*/
	while ( 1 ) {  /* USB設(shè)備模式的主循環(huán) */
/*		printf( "Wait download & upload\n" );*/

		while ( 1 ) {  /* 等待模塊的事件通知 */
			if ( RI == 1 ) {  /* 查詢(xún)是否收到模塊的事件通知,也可以用串口接收中斷處理 */
				es = mRecvByte( );  /* 檢測(cè)到PC機(jī)下傳或者上傳成功,自動(dòng)發(fā)送狀態(tài)碼通知本單片機(jī) */
				break;  /* 開(kāi)始處理 */
			}
			else if ( EventStatus != 0 ) {  /* 上次命令執(zhí)行過(guò)程中收到的事件狀態(tài)碼 */
				es = EventStatus; 
				EventStatus = 0;  /* 清保存的事件狀態(tài)碼 */
				break;  /* 開(kāi)始處理 */
			}
			mDelaymS( 10 );  /* 單片機(jī)做其它事情 */
		}
		if ( es == ERR_USB_DAT_DOWN ) {  /* 事件通知是數(shù)據(jù)下傳成功,上位機(jī)下傳的數(shù)據(jù)已經(jīng)在模塊中 */
/*			printf( "download ok\n" );*/
			i = ExecCommand( CMD_ReadUsbData, 0 );  /* 從模塊的數(shù)據(jù)下傳端點(diǎn)讀取數(shù)據(jù)塊 */
			mStopIfError( i );
			if ( EventStatus != 0 ) continue;  /* 上次命令執(zhí)行過(guò)程中收到事件狀態(tài)碼,先分析 */
			for ( i = 0; i < mCmdParam.ReadUsbData.mByteCount; ++ i ) {
				mCmdParam.WriteUsbData.mByteBuffer[ i ] = ~ mCmdParam.WriteUsbData.mByteBuffer[ i ];  /* 演示下傳數(shù)據(jù)取反后作為上傳數(shù)據(jù)返回 */
			}
			mCmdParam.WriteUsbData.mByteCount = mCmdParam.ReadUsbData.mByteCount;
			i = ExecCommand( CMD_WriteUsbData, mCmdParam.WriteUsbData.mByteCount + 1 );  /* 向模塊的數(shù)據(jù)上傳端點(diǎn)寫(xiě)入數(shù)據(jù)塊 */
			mStopIfError( i );
			if ( mCmdParam.ReadUsbData.mByteCount == 0 ) break;  /* 假定在收到0長(zhǎng)度的下傳數(shù)據(jù)時(shí)退出USB設(shè)備模式,回到USB主機(jī)模式,實(shí)際應(yīng)用不宜采用此方法 */
		}
		else if ( es == ERR_USB_DAT_UP ) {  /* 事件通知是數(shù)據(jù)上傳成功,模塊中的上傳數(shù)據(jù)已經(jīng)被上位機(jī)取走 */
/*			printf( "upload ok\n" );*/
/*			可以繼續(xù)上傳后續(xù)數(shù)據(jù) */
		}
	}

	mCmdParam.SetUsbMode.mUsbMode = 6;  /* 進(jìn)入U(xiǎn)SB主機(jī)模式 */
	i = ExecCommand( CMD_SetUsbMode, 1 );  /* 設(shè)置模塊的工作模式 */
	mStopIfError( i );

/*	printf( "Start USB Host\n" );*/
	while ( 1 ) {  /* USB主機(jī)模式的主循環(huán) */
/*		printf( "Wait download & upload\n" );*/

		while ( 1 ) {  /* 等待模塊的事件通知 */
			if ( RI == 1 ) {  /* 查詢(xún)是否收到模塊的事件通知,也可以用串口接收中斷處理 */
				i = mRecvByte( );  /* 檢測(cè)到U盤(pán)連接或者斷開(kāi)后,自動(dòng)發(fā)送狀態(tài)碼通知本單片機(jī) */
				if ( i == ERR_USB_CONNECT ) {  /* 事件通知是U盤(pán)已經(jīng)連接 */
/*					printf( "Disk Connected\n" );*/
					break;
				}
				else if ( i == ERR_DISK_DISCON ) {  /* 事件通知是U盤(pán)已經(jīng)斷開(kāi) */
/*					printf( "Disk Disconnected\n" );*/
				}
			}
			mDelaymS( 100 );  /* 可以在打算讀寫(xiě)U盤(pán)時(shí)再查詢(xún),沒(méi)有必要一直連續(xù)不停地查詢(xún),可以讓單片機(jī)做其它事,沒(méi)事可做就延時(shí)等待一會(huì)再查詢(xún) */
		}

		mDelaymS( 200 );  /* 延時(shí),可選操作,有的USB存儲(chǔ)器需要幾十毫秒的延時(shí) */
		LED_OUT = 0;  /* LED亮 */
/* 檢查U盤(pán)是否準(zhǔn)備好,大多數(shù)U盤(pán)不需要這一步,但是某些U盤(pán)必須要執(zhí)行這一步才能工作 */
		for ( es = 0; es < 5; es ++ ) {
			mDelaymS( 100 );
//			printf( "Ready ?\n" );
			i = ExecCommand( CMD_DiskReady, 0 );  /* 查詢(xún)磁盤(pán)是否準(zhǔn)備好 */
			if ( i == ERR_SUCCESS ) break;
		}
/* 首先打開(kāi)已有文件,如果文件不存在,則新建一個(gè) */
		name = "/MY_ADC.TXT";  /* 文件名,斜杠說(shuō)明是從根目錄開(kāi)始 */
/*		printf( "Open\n" );*/
		strcpy( mCmdParam.Open.mPathName, name );  /* 原文件名 */
		i = ExecCommand( CMD_FileOpen, MAX_PATH_LEN );  /* 打開(kāi)文件,輸入?yún)?shù)置為最大值,省得再計(jì)算參數(shù)長(zhǎng)度 */
		if ( i == ERR_MISS_FILE ) {  /* ERR_MISS_FILE說(shuō)明沒(méi)有找到文件,所以新建一個(gè) */
/*			printf( "Create\n" );*/
			strcpy( mCmdParam.Create.mPathName, name );  /* 新文件名,在根目錄下 */
			i = ExecCommand( CMD_FileCreate, MAX_PATH_LEN );  /* 新建文件并打開(kāi),如果文件已經(jīng)存在則先刪除后再新建 */
			mStopIfError( i );
		}
		else {  /* 找到文件,說(shuō)明文件已存在,因?yàn)椴淮蛩愀采w原數(shù)據(jù),所以移動(dòng)文件指針到末尾,以便追加數(shù)據(jù) */
			mStopIfError( i );
			mCmdParam.ByteLocate.mByteOffset = 0xFFFFFFFF;  /* 移動(dòng)到文件尾,用于在CMD_FileOpen打開(kāi)文件后,繼續(xù)追加數(shù)據(jù)到已打開(kāi)文件的末尾 */
			i = ExecCommand( CMD_ByteLocate, 4 );  /* 以字節(jié)為單位移動(dòng)文件指針 */
			mStopIfError( i );
		}
/*		printf( "Write or append data\n" );*/
		strcpy( mCmdParam.ByteWrite.mByteBuffer, "只是演示一下USB主機(jī)和USB設(shè)備模式切換的功能\xd\xa" );
		len = strlen( mCmdParam.ByteWrite.mByteBuffer );  /* 計(jì)算字符串長(zhǎng)度 */
		mCmdParam.ByteWrite.mByteCount = len;  /* 將原文件中的20個(gè)字節(jié)的數(shù)據(jù)添加到新文件的末尾 */
		i = ExecCommand( CMD_ByteWrite, len+1 );  /* 以字節(jié)為單位向文件寫(xiě)入數(shù)據(jù) */
		mStopIfError( i );
/*		printf( "Close\n" );*/
		mCmdParam.Close.mUpdateLen = 1;  /* 自動(dòng)計(jì)算文件長(zhǎng)度,當(dāng)以字節(jié)為單位向文件寫(xiě)入數(shù)據(jù)后,如果沒(méi)有用0長(zhǎng)度的CMD_ByteWrite更新文件長(zhǎng)度,那么可以在關(guān)閉文件時(shí)讓模塊自動(dòng)更新文件長(zhǎng)度 */
		i = ExecCommand( CMD_FileClose, 1 );  /* 關(guān)閉文件,當(dāng)以字節(jié)為單位向文件寫(xiě)入(追加)數(shù)據(jù)后,必須在用完文件后關(guān)閉文件 */
		mStopIfError( i );

/* 等待U盤(pán)斷開(kāi) */
		LED_OUT = 1;  /* LED滅 */
		while ( 1 );
	}
}