- blackbox files added

git-svn-id: https://svn.code.sf.net/p/libusbjava/code/trunk@96 94ad28fe-ef68-46b1-9651-e7ae4fcf1c4c
2006-01-19 07:17:20 +00:00
parent 6c6effa5b6
commit 2d735a5092
15 changed files with 5771 additions and 0 deletions
--- a/blackbox/Usb/Mod/BDI555.otd
+++ b/blackbox/Usb/Mod/BDI555.otd
@@ -0,0 +1,189 @@
+MODULE UsbBDI555;
+	IMPORT SYS := SYSTEM, BDI := UsbBDIDll, BDIMain := UsbBDI, WinApi;
+
+	CONST 
+		FALSE_ = 0; 
+
+	CONST 
+		MAX_NOF_LONGS_FILL* = BDI.MAX_NOF_LONGS_FILL; 
+
+	VAR 
+		Done-: BOOLEAN; 
+
+(* ----------- 555 --------------- *)
+
+	PROCEDURE go * ; 
+	BEGIN
+		BDI.BDI555_go;
+		Done := ~BDIMain.CheckForExceptions()
+	END go; 
+
+	PROCEDURE break_ * ; 
+	BEGIN
+		BDI.BDI555_break_;
+		Done := ~BDIMain.CheckForExceptions()
+	END break_; 
+
+	PROCEDURE reset_target * ; 
+	BEGIN
+		BDI.BDI555_reset_target;
+		Done := ~BDIMain.CheckForExceptions()
+	END reset_target; 
+
+	PROCEDURE isFreezeAsserted * (): BOOLEAN; 
+		VAR result: WinApi.BOOL;
+	BEGIN
+		result := BDI.BDI555_isFreezeAsserted();
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result # FALSE_
+	END isFreezeAsserted; 
+
+	PROCEDURE startFastDownload * (addr: INTEGER); 
+	BEGIN
+		BDI.BDI555_startFastDownload(addr);
+		Done := ~BDIMain.CheckForExceptions()
+	END startFastDownload; 
+
+	PROCEDURE fastDownload * (downloadData: ARRAY OF INTEGER; dataLength: INTEGER); 
+		(*VAR i: INTEGER;*)
+	BEGIN
+	(*
+		Log.String("BDI555_fastDownload: length = "); Log.Int(dataLength); Log.Ln;
+		FOR i := 0 TO dataLength - 1 DO
+			Log.Int(downloadData[i]); Log.Tab;
+		END;
+		Log.Ln;
+	*)
+		BDI.BDI555_fastDownload(SYS.ADR(downloadData[0]), dataLength);
+		Done := ~BDIMain.CheckForExceptions()
+	END fastDownload; 
+
+	PROCEDURE stopFastDownload * ; 
+	BEGIN
+		BDI.BDI555_stopFastDownload;
+		Done := ~BDIMain.CheckForExceptions()
+	END stopFastDownload; 
+
+	PROCEDURE writeMem * (addr, value, size: INTEGER); 
+	BEGIN
+		BDI.BDI555_writeMem(addr, value, size);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeMem; 
+
+	PROCEDURE readMem * (addr, size: INTEGER): INTEGER; 
+		VAR result: INTEGER;
+	BEGIN
+		result := BDI.BDI555_readMem(addr, size);
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readMem; 
+
+	PROCEDURE writeMemSeq * (value, size: INTEGER); 
+	BEGIN
+		BDI.BDI555_writeMemSeq(value, size);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeMemSeq; 
+
+	PROCEDURE readMemSeq * (size: INTEGER): INTEGER; 
+		VAR result: INTEGER;
+	BEGIN
+		result := BDI.BDI555_readMemSeq(size);
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readMemSeq; 
+
+	PROCEDURE readGPR * (gpr: INTEGER): INTEGER; 
+		VAR result: INTEGER;
+	BEGIN
+		result := BDI.BDI555_readGPR(gpr);
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readGPR; 
+
+	PROCEDURE writeGPR * (gpr, value: INTEGER); 
+	BEGIN
+		BDI.BDI555_writeGPR(gpr, value);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeGPR; 
+
+	PROCEDURE readSPR * (spr: INTEGER): INTEGER; 
+		VAR result: INTEGER;
+	BEGIN
+		result := BDI.BDI555_readSPR(spr);
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readSPR; 
+
+	PROCEDURE writeSPR * (spr, value: INTEGER); 
+	BEGIN
+		BDI.BDI555_writeSPR(spr, value);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeSPR; 
+
+	PROCEDURE readMSR * (): INTEGER; 
+		VAR result: INTEGER;
+	BEGIN
+		result := BDI.BDI555_readMSR();
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readMSR; 
+
+	PROCEDURE writeMSR * (value: INTEGER); 
+	BEGIN
+		BDI.BDI555_writeMSR(value);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeMSR; 
+
+	PROCEDURE readFPR * (fpr, tmpMemAddr: INTEGER): LONGINT; 
+		VAR result: LONGINT;
+	BEGIN
+		result := BDI.BDI555_readFPR(fpr, tmpMemAddr);
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readFPR; 
+
+	PROCEDURE writeFPR * (fpr, tmpMemAddr: INTEGER; value: LONGINT); 
+	BEGIN
+		BDI.BDI555_writeFPR(fpr, tmpMemAddr, value);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeFPR; 
+
+	PROCEDURE readCR * (): INTEGER; 
+		VAR result: INTEGER;
+	BEGIN
+		result := BDI.BDI555_readCR();
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readCR; 
+
+	PROCEDURE writeCR * (value: INTEGER); 
+	BEGIN
+		BDI.BDI555_writeCR(value);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeCR; 
+
+	PROCEDURE readFPSCR * (): INTEGER; 
+		VAR result: INTEGER;
+	BEGIN
+		result := BDI.BDI555_readFPSCR();
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readFPSCR; 
+
+	PROCEDURE writeFPSCR * (value: INTEGER); 
+	BEGIN
+		BDI.BDI555_writeFPSCR(value);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeFPSCR; 
+
+	PROCEDURE isTargetInDebugMode * (): BOOLEAN; 
+	BEGIN
+		RETURN BDI.BDI555_isTargetInDebugMode() # FALSE_;
+	END isTargetInDebugMode; 
+
+	PROCEDURE setGpr31 * (gpr31: INTEGER); 
+	BEGIN
+		BDI.BDI555_setGpr31(gpr31);
+	END setGpr31; 
+
+END UsbBDI555.