First Release 1.0.0.93 - 1.0.93

This commit is contained in:
bouletmarc 2016-11-24 03:13:06 -05:00
parent 9d71ff4e34
commit fb37976482
24 changed files with 392 additions and 0 deletions

BIN
Datalogger.exe Normal file

Binary file not shown.

BIN
Default.TGL Normal file

Binary file not shown.

87
FreeLogDLRTP.js Normal file
View File

@ -0,0 +1,87 @@
//
// Modified by Dan Near LtDanNear for use with FreeLog
//
// Added extra logging routines for commands I use
//
// 25h=0210=VTP&PSP, 26h=0211=VTS,ACS,ATP,Brake, 27h=021B=TPSTipIn, 28h=0220=ACC&PCS,
// 29h=0221=VTS?, 2Ah=0222=ATLockupSol, 2Bh=024F=Gear=Maybe RPM*VSS div 65535?
// 2Ch=03C2=Unused Analog Input?, 2Dh=03C5=IACV, 2Eh=ELD, 2Fh=Extra Input(0066) memory location
//
// Hi. Thanks for your interest in my 'Quick Datalogger +RTP' code.
// Feel free to look around and give me any comments.
// This is a highly optimized Datalog and RTP code used to improve
// the performance of ECU to PC communication. The datalog code
// used is an improvement upon Doc's original datalog code. It removes
// redundant or unnecessary lines of code, saving space and CPU cycles.
// The datalog code is also optimized.
// Probably the most important feature of this RTP/Datalog code is it's
// overall size. It is actually smaller than the original Honda serial_rx
// code so it fits comfortably in the same spot. The advantage of this
// is that converting to RTP/Datalog will not take up any extra bytes that
// can be used for other features instead (like dual maps). And since
// it doesn't compete for space with all other feature codes out there,
// it is compatible for use with almost every feature tool.
//
// Well.. that's just me rambling. Go on, try it out already.
//
// -John Cui, (CROME Lead Developer)
//
function __addFreeLogDLRTP () {
if (rom.base != rtP30) {
alert('This rom is not supported by this plugin.');
return;
}
// Start Group Undo Point
rom.gup();
// */
// Add Dan's DL-RTP+
//
rom.byteAt(0x2565) = 0xF8;
rom.byteAt(0x38D5) = 0xF8;
rom.wordAt(0x000A) = 0x01FD;
_rom_write(0x01FD,
new Array(0xE5,0xF4,0xD5,0x1A,0xB5,0x04,0x98,0x02,
0x01,0x57,0x6F,0x00,0xF9,0xF5,0x55,0x23,
0xC0,0x00,0xCE,0x48,0xC6,0x07,0xC9,0x33,
0xC6,0x08,0xC9,0x34,0xC6,0xAB,0xC9,0x33,
0x8A,0xC6,0x30,0xC8,0x32,0xA6,0x10,0xCD,
0x03,0xAB,0xCB,0x17,0xE5,0x06,0x95,0x53,
0x62,0x97,0x02,0x92,0x81,0x92,0xA8,0x52,
0xB2,0x4A,0xF2,0x92,0x15,0x44,0x15,0x45,
0x15,0xD5,0x51,0xE5,0xF2,0xA2,0xD0,0xFE,
0xD5,0x1A,0x02,0x92,0xAA,0x72,0xCB,0xF1,
0x7D,0xCB,0xE8,0x77,0xCD,0xCB,0xE4,0x67,
0x55,0x00,0xCB,0xDF,0x23,0xC0,0x01,0xCE,
0x04,0x89,0xAB,0xCB,0xDE,0x23,0xC0,0x02,
0xCE,0x10,0x88,0x44,0x7A,0x22,0xC0,0x01,
0xC9,0x1A,0x22,0xC0,0x03,0xC9,0x1F,0xAB,
0xCB,0xC9,0x23,0xC0,0x03,0xCE,0xD8,0x22,
0xC0,0x02,0xC9,0x07,0x22,0xC0,0x04,0xC9,
0x06,0xCB,0xCC,0xD2,0xF2,0xCB,0xAC,0x92,
0x80,0x00,0x80,0xD2,0x44,0x7A,0x92,0xAA,
0xCB,0xA1,0xC8,0x03,0xC0,0x03,0xBE,0x03,
0xC1,0x03,0xA3,0x00,0x92,0x03,0xAC,0x00,
0xAD,0x00,0x1F,0x01,0xD8,0x01,0xD9,0x01,
0xD2,0x01,0x12,0x01,0x13,0x01,0x14,0x01,
0x15,0x01,0xB4,0x00,0xD4,0x03,0xD5,0x03,
0x44,0x02,0x43,0x02,0x3A,0x01,0x3C,0x43,
0x52,0x4F,0x4D,0x45,0x3E),
0xCD);
_rom_write(0x02C1,
new Array(0x10,0x02,0x11,0x02,0x1B,0x02,0x20,0x02,
0x21,0x02,0x22,0x02,0x4F,0x02,0xC2,0x03,
0xC5,0x03,0x66,0x00),
0x14);
_rom_fill(0x02D6, 0x02DC, 0xFF);
// */
// End Group Undo Point
rom.gup();
alert('FreeLog DL+RTP Added!');
}
function __aboutFDLRTP() {
alert("FreeLog DL+RTP version 1.0\nby Dan Near");
}
addPlugin('Dan Near', 'FreeLog DL+RTP', '__addFreeLogDLRTP(1)', '__aboutFDLRTP()', 1);

BIN
GridColors.Dat Normal file

Binary file not shown.

BIN
INSTALLER/COMDLG32.OCX Normal file

Binary file not shown.

BIN
INSTALLER/FLEXWIZ.OCX Normal file

Binary file not shown.

46
INSTALLER/Install.bat Normal file
View File

@ -0,0 +1,46 @@
@ECHO OFF
ECHO Freelog Support File Installation
ECHO pgmfi.org
ECHO.
ECHO Removing FreeLog entry from the registry
REGEDIT /s clear_registry.reg
ECHO done...
ECHO.
ECHO Copying important dlls / ocx
Copy /-Y mscomm32.ocx c:\windows\system32\
Copy /-Y comdlg32.ocx c:\windows\system32\
Copy /-Y flexwiz32.ocx c:\windows\system32\
Copy /-Y mscomctl32.ocx c:\windows\system32\
Copy /-Y msdatgrd32.ocx c:\windows\system32\
Copy /-Y msflxgrd32.ocx c:\windows\system32\
Copy /-Y msscript32.ocx c:\windows\system32\
Copy /-Y tabctl32.ocx c:\windows\system32\
Copy /-Y msstdfmt.dll c:\windows\system32\
Copy /-Y msvcrt.dll c:\windows\system32\
Copy /-Y scrrun.dll c:\windows\system32\
Copy /-Y vb6stkit.dll c:\windows\system32\
ECHO done...
ECHO.
ECHO Registrying dlls/ocx
regsvr32 /s c:\windows\system32\mscomm32.ocx
regsvr32 /s c:\windows\system32\comdlg32.ocx
regsvr32 /s c:\windows\system32\flexwiz32.ocx
regsvr32 /s c:\windows\system32\mscomctl32.ocx
regsvr32 /s c:\windows\system32\msdatgrd32.ocx
regsvr32 /s c:\windows\system32\msflxgrd32.ocx
regsvr32 /s c:\windows\system32\msscript32.ocx
regsvr32 /s c:\windows\system32\tabctl32.ocx
regsvr32 /s c:\windows\system32\msstdfmt.dll
regsvr32 /s c:\windows\system32\msvcrt.dll
regsvr32 /s c:\windows\system32\scrrun.dll
regsvr32 /s c:\windows\system32\vb6stkit.dll
ECHO done..
ECHO.
ECHO Try running Freelog now and report any bugs to the forum (pgmfi.org)
ECHO Goodluck !!

BIN
INSTALLER/MSCOMCTL.OCX Normal file

Binary file not shown.

BIN
INSTALLER/MSCOMM32.OCX Normal file

Binary file not shown.

BIN
INSTALLER/MSDATGRD.OCX Normal file

Binary file not shown.

BIN
INSTALLER/MSSCRIPT.OCX Normal file

Binary file not shown.

BIN
INSTALLER/MSSTDFMT.DLL Normal file

Binary file not shown.

BIN
INSTALLER/MSVCRT.DLL Normal file

Binary file not shown.

BIN
INSTALLER/Msflxgrd.oca Normal file

Binary file not shown.

BIN
INSTALLER/Msflxgrd.ocx Normal file

Binary file not shown.

BIN
INSTALLER/SCRRUN.DLL Normal file

Binary file not shown.

81
INSTALLER/SETUP.LST Normal file
View File

@ -0,0 +1,81 @@
[Bootstrap]
SetupTitle=Install
SetupText=Copying Files, please stand by.
CabFile=Datalogger.CAB
Spawn=Setup1.exe
Uninstal=st6unst.exe
TmpDir=msftqws.pdw
Cabs=1
[Bootstrap Files]
File1=@VB6STKIT.DLL,$(WinSysPathSysFile),,,3/26/99 1:00:00 AM,101888,6.0.84.50
[IconGroups]
Group0=FreeLog
PrivateGroup0=True
Parent0=$(Programs)
[FreeLog]
Icon1="Datalogger.exe"
Title1=FreeLog
StartIn1=$(AppPath)
[Setup]
Title=FreeLog 1.0.93 Beta
DefaultDir=$(ProgramFiles)\FreeLog Beta
AppExe=Datalogger.exe
AppToUninstall=Datalogger.exe
[Setup1 Files]
File1=@GridColors.Dat,$(AppPath),,$(Shared),10/31/05 11:37:21 PM,7456,0.0.0.0
File2=@FreeLogDLRTP.js,$(AppPath),,$(Shared),10/30/05 1:40:58 PM,3967,0.0.0.0
File3=@datalog.mod,$(AppPath),,$(Shared),3/11/07 10:03:05 PM,3486,0.0.0.0
File4=@MSSTDFMT.DLL,$(WinSysPath),$(DLLSelfRegister),$(Shared),2/23/04 12:00:00 AM,119808,6.1.97.82
File5=@MSDATGRD.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/7/99 12:00:00 AM,262152,6.0.84.18
File6=@tabctl32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),12/6/00 1:02:36 PM,209608,6.0.90.43
File7=@msflxgrd.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),5/22/00 4:58:12 PM,244416,6.0.84.18
File8=@MSCOMCTL.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),3/9/04 5:45:46 AM,1081616,6.1.97.82
File9=@FLEXWIZ.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/24/98 12:00:00 AM,226328,6.0.0.8169
File10=@Mscomm32.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),6/30/99 11:04:32 AM,103744,6.0.81.69
File11=@COMDLG32.OCX,$(WinSysPath),$(DLLSelfRegister),$(Shared),11/22/06 10:10:52 PM,152848,6.1.97.82
File12=@msscript.ocx,$(WinSysPath),$(DLLSelfRegister),$(Shared),4/13/08 8:10:20 PM,110592,1.0.0.16599
File13=@Datalogger.exe,$(AppPath),,,8/28/08 10:18:30 PM,1286144,1.0.0.93
; The following lines may be deleted in order to obtain extra
; space for customizing this file on a full installation diskette.
;
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

BIN
INSTALLER/VB6STKIT.DLL Normal file

Binary file not shown.

View File

@ -0,0 +1,3 @@
REGEDIT4
[-HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Open Source Datalogger]

4
INSTALLER/readme.txt Normal file
View File

@ -0,0 +1,4 @@
Run Install.bat or copy all files to c:\windows\system32\
Daniel Near
pgmfi.org

BIN
INSTALLER/setup.exe Normal file

Binary file not shown.

BIN
INSTALLER/tabctl32.ocx Normal file

Binary file not shown.

BIN
TempData.Dat Normal file

Binary file not shown.

171
datalog.mod Normal file
View File

@ -0,0 +1,171 @@
'FreeLog 1.0
'VBScript Engine
'Note: Below are important functions of datalogger that you can customize.
' DO NOT CHANGE THE NAME OF FUNCTIONS OR THE NUMBER OF ARGUMENT
' DO NOT CHANGE THE NAME OF FUNCTIONS OR THE NUMBER OF ARGUMENT
'
' Start at the bottom of the page for custom functions
Sub CalcFuelTbl(rxlcr, rxhcr, rxcol)
Call setFT(rxlcr, rxhcr, rxcol)
End Sub
Function CalcBaro(rxbaro)
CalcBaro=round( ( (rxbaro/51) * -11.49) - 33.6 ,1)
End Function
Function CalcEct(rxect)
CalcEct = MakeTemp(rxect)
End Function
Function Calciat(rxiat)
CalcIat = MakeTemp(rxiat)
End Function
Function MakeTemp(Index)
V = index / 51
R6 = 0.1423 * V ^ 6
R5 = 2.4938 * V ^ 5
R4 = 17.837 * V ^ 4
R3 = 68.698 * V ^ 3
R2 = 154.69 * V ^ 2
R1 = 232.75 * V
MakeTemp = Round( (R6 - R5 + R4 - R3 + R2 - R1 + 284.24) , 0)
End Function
Function CalcMap(rxmap)
CalcMap=round( ( (rxmap/51) * -11.49) - 33.6 ,1)
End Function
Function CalcExtra1(rxextra1)
CalcExtra1=rxextra1+5
End Function
Function CalcExtra2(rxextra2)
CalcExtra2=rxextra * 2
End Function
Function CalcExtra3(rxextra3)
CalcExtra3=rxextra *3
End Function
Function CalcExtra4(rxextra4)
CalcExtra4=4
End Function
Function CalcExtra5(rxextra5)
CalcExtra5=round(rxextra5/5,1)
End Function
Function CalcExtra6(rxextra6)
CalcExtra6=0
End Function
Function CalcExtra7(rxextra7)
CalcExtra7=0
End Function
Function CalcExtra8(rxextra8)
CalcExtra8=0
End Function
Function CalcExtra9(rxextra9)
CalcExtra9=0
End Function
Function CalcExtra10(rxextra10)
CalcExtra10=0
End Function
Function CalcExtra11(rxextra11)
CalcExtra11=0
End Function
Function CalcExtra12(rxextra12)
CalcExtra12=0
End Function
Function CalcExtra13(rxextra13)
CalcExtra13=0
End Function
Function CalcExtra14(rxextra14)
CalcExtra14 = 0
End Function
Function CalcExtra15(rxextra15)
CalcExtra15 = 0
End Function
Function CalcExtra16(rxextra16)
CalcExtra16 = 0
End Function
Function CalcExtra17(rxextra17)
CalcExtra17 = 0
End Function
Function CalcExtra18(rxextra18)
CalcExtra18 = 0
End Function
Function CalcExtra19(rxextra18)
CalcExtra19 = 0
End Function
Function CalcExtra20(rxextra18)
CalcExtra20 = 0
End Function
Function CalcExtra21(rxextra18)
CalcExtra21 = 0
End Function
Function CalcExtra22(rxextra18)
CalcExtra22 = 0
End Function
Function CalcExtra23(rxextra18)
CalcExtra23 = 0
End Function
Function CalcExtra24(rxextra18)
CalcExtra24 = 0
End Function
Function CalcExtra25(rxextra18)
CalcExtra25 = 0
End Function
Function CalcO2( rxo2 )
CalcO2=round( ( 2 * rxo2 ) + 10 , 1 )
End Function
Function CalcTps( rxtps )
CalcTps=( 0.4716 * rxtps ) - 11.3184
End Function
Function CalcSpd(rxspd)
CalcSpeed=round(rxspd*.6213,0)
End Function
Function CalcRpm(rpmhi, rpmlo)
temp=(rpmhi*256)+rpmlo
if temp=0 then
calcrpm=0
else
CalcRpm=round(1875000/temp,0)
end if
End Function
Function CalcVtec(rxvtec)
if rxvtec=2 or rxvtec=6 then
CalcVtec=1
else
CalcVtec=0
End If
End Function
'****************************************************************************
'CUSTOM FUNCTIONS AND VARIABLES START HERE
'****************************************************************************