- blackbox files added

git-svn-id: https://svn.code.sf.net/p/libusbjava/code/trunk@96 94ad28fe-ef68-46b1-9651-e7ae4fcf1c4c

blackbox/Usb/Mod/BDI332.otd

@@ -0,0 +1,109 @@
+MODULE UsbBDI332;
+	IMPORT SYS := SYSTEM, BDI := UsbBDIDll, BDIMain := UsbBDI, WinApi;
+
+	CONST 
+		FALSE_ = 0; 
+
+	VAR 
+		Done-: BOOLEAN; 
+
+	(* --------- 332 ----------------- *)
+
+	PROCEDURE nopsToLegalCmd * ; 
+	BEGIN
+		BDI.BDI332_nopsToLegalCmd;
+		Done := ~BDIMain.CheckForExceptions()
+	END nopsToLegalCmd; 
+
+	PROCEDURE go * ; 
+	BEGIN
+		BDI.BDI332_go;
+		Done := ~BDIMain.CheckForExceptions()
+	END go; 
+
+	PROCEDURE break_ * ; 
+	BEGIN
+		BDI.BDI332_break_;
+		Done := ~BDIMain.CheckForExceptions()
+	END break_; 
+
+	PROCEDURE reset_target * ; 
+	BEGIN
+		BDI.BDI332_reset_target;
+		Done := ~BDIMain.CheckForExceptions()
+	END reset_target; 
+
+	PROCEDURE reset_peripherals * ; 
+	BEGIN
+		BDI.BDI332_reset_peripherals;
+		Done := ~BDIMain.CheckForExceptions()
+	END reset_peripherals; 
+
+	PROCEDURE isFreezeAsserted * (): BOOLEAN; 
+		VAR result: WinApi.BOOL;
+	BEGIN
+		result := BDI.BDI332_isFreezeAsserted();
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result # FALSE_
+	END isFreezeAsserted; 
+
+	PROCEDURE fillMem * (downloadData: ARRAY OF INTEGER; dataLength: INTEGER); 
+	BEGIN
+		BDI.BDI332_fillMem(SYS.ADR(downloadData[0]), dataLength);
+		Done := ~BDIMain.CheckForExceptions()
+	END fillMem; 
+
+	PROCEDURE dumpMem * (nofData: INTEGER; VAR result: ARRAY OF INTEGER; VAR length: INTEGER); 
+	BEGIN
+		length := BDI.BDI332_dumpMem(nofData, result);
+		Done := ~BDIMain.CheckForExceptions()
+	END dumpMem; 
+
+	PROCEDURE writeMem * (addr, value, size: INTEGER); 
+	BEGIN
+		BDI.BDI332_writeMem(addr, value, size);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeMem; 
+
+	PROCEDURE readMem * (addr, size: INTEGER): INTEGER; 
+		VAR result: INTEGER;
+	BEGIN
+		result := BDI.BDI332_readMem(addr, size);
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readMem; 
+
+	PROCEDURE readUserReg * (reg: INTEGER): INTEGER; 
+		VAR result: INTEGER;
+	BEGIN
+		result := BDI.BDI332_readUserReg(reg);
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readUserReg; 
+
+	PROCEDURE writeUserReg * (reg, value: INTEGER); 
+	BEGIN
+		BDI.BDI332_writeUserReg(reg, value);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeUserReg; 
+
+	PROCEDURE readSysReg * (reg: INTEGER): INTEGER; 
+		VAR result: INTEGER;
+	BEGIN
+		result := BDI.BDI332_readSysReg(reg);
+		Done := ~BDIMain.CheckForExceptions();
+		RETURN result
+	END readSysReg; 
+
+	PROCEDURE writeSysReg * (reg, value: INTEGER); 
+	BEGIN
+		BDI.BDI332_writeSysReg(reg, value);
+		Done := ~BDIMain.CheckForExceptions()
+	END writeSysReg; 
+
+	PROCEDURE isTargetInDebugMode * (): BOOLEAN; 
+	BEGIN
+		RETURN BDI.BDI332_isTargetInDebugMode() # FALSE_;
+	END isTargetInDebugMode; 
+
+END UsbBDI332.