秋月(Cmos)さんのAKI-H8-USB開発キットを扱うhspソース

2003/JUN/03

ここでいってるとおりやったら××が起きた！と言われても責任は持てません。各自の責任においてお願いします。

当サイトは秋月さんやCmosさんとは何の関係もありません。
両社に対し問い合わせるようなことは深くご遠慮ください。
またここにある全ては特に指定しない限りwatson8があくまで個人的に検討したものです。

2003/JUN/03版

uusbdio.as…hsp2.55用ファイル転送系サンプル。loadlib.asが必要です。っていうか同梱されていたような。

#include "loadlib.as"

;=================================================================================
	;
	; uusbdの使用例 1  protTyped by watson8
	;
	;=================================================================================

width 160,32
	objsize 120,20
	true=1: false=0

;DLLのロード
	ll_libload hDLL,"uusbd.dll"
	;ロードが失敗するとstatが1になる
	if stat!0 : dialog "libLoad uusbd failed" : end
	ll_libload h2DLL,"kernel32.dll"
	if stat!0 : dialog "libLoad kernel32 failed" : end

;ロードしたDLLから関数WriteFileを探す
	ll_getproc WriteFile_Ptr,"WriteFile",h2DLL
	if stat!0 : dialog "getproc [WriteFile] failed" : goto libfree
	ll_getproc ReadFile_Ptr,"ReadFile",h2DLL
	if stat!0 : dialog "getproc [ReadFile] failed" : goto libfree
	ll_getproc CloseHandle_Ptr,"CloseHandle",h2DLL
	if stat!0 : dialog "getproc [CloseHandle] failed" : goto libfree

;ロードしたDLLから関数Uusbd_Openを探す
	ll_getproc Uusbd_Check_Ptr,"Uusbd_Check",hDLL
	if stat!0 : dialog "getproc [Uusbd_Check] failed" : goto libfree

ll_getproc Uusbd_ClassRequest_Ptr,"Uusbd_ClassRequest",hDLL
	if stat!0 : dialog "getproc [Uusbd_ClassReqest] failed" : goto libfree

ll_getproc Uusbd_Close_Ptr,"Uusbd_Close",hDLL
	if stat!0 : dialog "getproc [Uusbd_Close] failed" : goto libfree

ll_getproc Uusbd_GetConfigurationDescriptor_Ptr,"Uusbd_GetConfigurationDescriptor",hDLL
	if stat!0 : dialog "getproc [Uusbd_GetConfigurationDescriptor] failed" : goto libfree

ll_getproc Uusbd_GetDeviceDescriptor_Ptr,"Uusbd_GetDeviceDescriptor",hDLL
	if stat!0 : dialog "getproc [Uusbd_Uusbd_GetDeviceDescriptor] failed" : goto libfree

ll_getproc Uusbd_GetStatusEndpoint_Ptr,"Uusbd_GetStatusEndpoint",hDLL
	if stat!0 : dialog "getproc [Uusbd_GetStatusEndpoint] failed" : goto libfree

ll_getproc Uusbd_Open_Ptr,"Uusbd_Open",hDLL
	if stat!0 : dialog "getproc [Uusbd_Open] failed" : goto libfree

ll_getproc Uusbd_OpenPipe_Ptr,"Uusbd_OpenPipe",hDLL
	if stat!0 : dialog "getproc [Uusbd_OpenPipe] failed" : goto libfree

ll_getproc Uusbd_Open_mask_Ptr,"Uusbd_Open_mask",hDLL
	if stat!0 : dialog "getproc [Uusbd_Open_mask] failed" : goto libfree

ll_getproc Uusbd_ResetDevice_Ptr,"Uusbd_ResetDevice",hDLL
	if stat!0 : dialog "getproc [Uusbd_ResetDevice] failed" : goto libfree

ll_getproc Uusbd_ResetPipe_Ptr,"Uusbd_ResetPipe",hDLL
	if stat!0 : dialog "getproc [Uusbd_ResetPipe] failed" : goto libfree

ll_getproc Uusbd_VendorRequest_Ptr,"Uusbd_VendorRequest",hDLL
	if stat!0 : dialog "getproc [Uusbd_VendorRequest] failed" : goto libfree

;****************************************************************
	sdim sample,256 :ll_getptr sample : ll_ret samplePtr
	size=64 : ll_getptr size : ll_ret sizePtr
	sizeRet=0:ll_getptr sizeRet : ll_ret sizeRetPtr
	seekPtr=0
	downLoad=true

;HUSB APIENTRY Uusbd_Open(void);************************************************
	ll_callfnv Uusbd_Open_Ptr
	ll_ret husb
	if(husb<0) {
		dialog "Uusbd_Open "+stat+"/"+husb
		goto *libfree
	}

;HANDLE APIENTRY Uusbd_OpenPipe(HUSB husb, UCHAR interface_num, UCHAR pipe_num);**********
	param.0=husb
	param.1=0
	if (downLoad==true) { param.2=1 }
	else		    { param.2=0 }
	ll_callfunc param,3,Uusbd_OpenPipe_Ptr
	ll_ret pipeHandle
	if(pipeHandle<0) {
		dialog "Uusbd_OpenPipe "+stat+"/"+pipeHandle
		goto *libfree
	}

;********Uusbd_ResetDevice(husb);**************
;;;;	param.0=husb
;;;;	ll_callfunc param,1,Uusbd_ResetDevice_Ptr
;*************************************************************
	if(downLoad==true)  {
		;*******ret = WriteFile(h, buf, maxlen, &size, NULL);***********
		gosub *getTimeNow  : time0=timeNow 
		repeat 
			if(seekPtr>=122880) : break
			bload "source.txt",sample,size,seekPtr
			param.0 = pipeHandle
			param.1 = samplePtr
			param.2 = size
			param.3 = sizeRetPtr
			param.4 = 0
			ll_callfunc param,5,WriteFile_Ptr
			;ll_ret dllret 
			;dialog "What[Write]? "+size+" / "+sizeRet+"/"+dllret=>64/64/1
			;goto *closeThem

if(size!=sizeRet) : {
				dialog "What[Write]? "+size+" / "+sizeRet+"/"+dllret ;=>64/64/1
				goto *closeThem
			}
			seekPtr = seekPtr+sizeRet
		loop
	} else {
		;*******ret = ReadFile(h, buf, maxlen, &size, NULL);***********
		time0=0
		repeat 
			if(seekPtr>=122880) : break
			repeat
				sizeRet=0
				param.0 = pipeHandle
				param.1 = samplePtr
				param.2 = size
				param.3 = sizeRetPtr
				param.4 = 0
				ll_callfunc param,5,ReadFile_Ptr
				ll_ret dllret
				if((dllret!=0)&&(sizeRet!=0)) : break
				await(1)
			loop	
			if(time0==0) {	gosub *getTimeNow  : time0=timeNow }
			;dialog "What[Read]? "+size+" / "+sizeRet+"/"+dllret ;=>64/64/1
			if(size!=sizeRet) : {
				;dialog "What[Read]? "+size+" / "+sizeRet
				goto *closeThem
			}
			bsave "sample.bin",sample,sizeRet,seekPtr
			seekPtr = seekPtr+sizeRet
		loop
	}

*closeThem

param.0=pipeHandle
	ll_callfunc param,1,CloseHandle_Ptr

param.0=husb
	ll_callfunc param,1,Uusbd_Close_Ptr

gosub *getTimeNow
	time0 = timeNow-time0	
	dialog "DONE: "+time0+"msec"

*libfree
	ll_libfree hDLL
	ll_libfree h2DLL

end

*getTimeNow
	gettime t1,4		; 時を取得
	gettime t2,5		; 分を取得
	gettime t3,6		; 秒を取得
	gettime t4,7		; 秒を取得
	timeNow=(t1*3600+t2*60+t3)*1000+t4
	return

UserIFは何も実装していないまさに「部品取り」です
downLoad=true(まんなかへんにあります)で起動するとsource.txtの頭122880バイトをpipe1に書き込みます。 H8側ではread_buff()で取り出せます
downLoad=falseで起動すると、pipe0から読み出した122880バイトをsample.bin(ファイル自体は作っておいて下さい)に書き出します。H8側ではwrite_buff()で送り出してください。
ということでH8側main.cは適宜対応してください。0x222000-0x23ffffで122880バイトです。
256バイトサイズでWriteFile()するとガンと速くなりますが、実際何も送られていないというささいな問題があります。詳細は不明。
EOTの渡し方がわかってなかったりします(^^;)。たとえば64バイト連続^Zとかアプリ層でどうにかしてみるとか。
UserIF載せてみたよとかパケット化してみたよとかという方お見えでしたらぜひご連絡ください

2003/JUN/30版

usbTextS.as…hsp2.55用テキスト(Sレコード)転送サンプル。loadlib.asが必要です。っていうか同梱されていたような。

#include "loadlib.as"
	;=================================================================================
	;
	; uusbdの使用例 2  protTyped by watson8
	;
	;=================================================================================