Autosport Labs

Code: Select all

--initialize Aux serial port to 19200, 8, N, 1
initSer(4,19200, 8, 0, 1)

function onTick()
 --read a line from the aux serial port with a 100ms timeout
 value = readSer(4, 200)
 if value ~= nil then
  println('read value: ' ..value)
 end
end

Code: Select all

if initSer(4, 9600, 8, 0, 1) == true then
  println('initialized')
else
  println('failed to initialize')
end
setTickRate(30)

function onTick()
	headerFound = false
	while headerFound == false
	do
		first = readCSer(4, 10)
		if first == 0 then
			second = readCSer(4, 10)
			if second == 1 then
				third = readCSer(4, 10)
				if third == 2 then
					afr = readCSer(4, 10)
					egtLow = readCSer(4, 10)
					egtHigh = readCSer(4, 10)
					rpmLow = readCSer(4, 10)
					rpmHigh = readCSer(4, 10)
					mapLow = readCSer(4, 10)
					mapHigh = readCSer(4, 10)
					tps = readCSer(4, 10)
					user1 = readCSer(4, 10)
					config1 = readCSer(4, 10)
					config2 = readCSer(4, 10)
					--user2Low = readCSer(4, 10)
					--user2High = readCSer(4, 10)
					--user2Config = readCSer(4, 10)
					afrValue = afr / 10
					egtValue = egtLow + egtHigh * 256
					rpmValue = ((1000000 / (rpmLow + (rpmHigh * 256) ) ) * 4.59 ) / 4 -- 4 = number of cylinders
					mapValue = (mapLow + mapHigh * 256) / 10
					user1Value = ((5 / 256) * user1) * 37.5 - 18.7  -- values = 0 to 255, which correspond to 0Volts to 5Volts
					println(first ..', ' ..second ..', ' ..third ..', AFR: ' ..afrValue ..', EGT: ' ..egtValue ..', RPM: ' ..rpmValue ..', MAP: ' ..mapValue ..', TPS: ' ..tps ..', Fuel Pressure: ' ..user1Value ..', Config1: ' ..config1 ..', config2: ' ..config2)
					headerFound = true
				end
			end
		end
	end
end

Code: Select all

-- documentation for RCP serial interface here: https://wiki.autosportlabs.com/RaceCapturePro_Lua_Scripting
-- documentation for ISP2 here: http://www.innovatemotorsports.com/support/downloads/Seriallog-2.pdf
afSerNum=6
afInitd=false
afChan=-1

function afInit()
  afInitd = initSer(afSerNum, 19200, 8, 0, 1)
  if afInitd then
    println('serial initialized')
    ispInit()
  else
    println('failed to initialize serial')
  end
end

-- identify header with bits 15,13,9,7
hMaskH=0xA2
hMaskL=0x80

ispAFR = nil

-- this is a non-blocking implementation of the isp2 reader.
-- the following functions, when triggered will put the subsequent function
-- into the ispNextByteHandler variable, so when everything goes smoothly they will each find the
-- byte they are expecting.
-- the ispHandleHh function is responsible for consuming any unused packets (there is  packet count
-- detected, but I am ignoring it for now.  If you expect or need more packets, you'll need to add
-- functions to this sequence to process them.

function ispInit()
  ispHl = nil
  ispHh = nil
  ispNextByteHandler = ispHandleHh
end

function ispHandleHh( h )
  if bit.band(h,hMaskH) == hMaskH then
    ispHh = h
    ispNextByteHandler = ispHandleHl
  end
end

function ispHandleHl( l )
  if  bit.band(l,hMaskL) == hMaskL then
   ispHl = l
    ispNextByteHandler = ispHandleAFh
    ispPkt = bit.band(l,0x7F) + 0x80*bit.band(ispHh,1)
  else
    ispInit()
  end
end

function ispHandleAFh( h )
  ispAFh = h
  ispNextByteHandler = ispHandleAFl
end

function ispHandleAFl( l )
  ispAFl = l
  ispNextByteHandler = ispHandleLh
end

function ispHandleLh( h )
  ispLh = h
  ispNextByteHandler = ispHandleLl
end

function ispHandleLl( l )
  ispLl = l

  local func = bit.band(bit.rshift(ispAFh,2),7)
  -- this is the afr multiplier (not the afr)
  local af = bit.band( ispAFh, 1) * 0x80 +
       bit.band( ispAFl, 0x7F)
  local lambda = bit.band(ispLh,0x7F)*0x80 + bit.band(ispLl,0x7F)

  if func == 0 then
    ispAFR = (lambda+500)*af/10000
  else
    println( "afr: func"..func.." mult:"..af.." lambda:"..lambda )
  end

  ispInit()
end

function afReadISP2nb(serPort)
  c = readCSer( serPort,0 )
  while c ~= nil do
    ispNextByteHandler( c )
    c = readCSer( serPort,0 )
  end
  if ispAFR ~= nil then
    setChannel( afChan, ispAFR )
    ispAFR = nil
  end
end


function onTick()
  if afInitd then
    afReadISP2nb( afSerNum )
 end
end

afInit()
afChan=addChannel("AFR",10,1,8,23,"%")
setTickRate(60)

Code: Select all

A=nil
B=nil
C=nil
function G()
local b=readCSer(6,0)
while b~=nil do
D=D+1
if D==1 and bit.band(b,(0xA2))==(0xA2)then
elseif D==2 and bit.band(b,(0x80))==(0x80)then
elseif D==4 then
E=bit.band(bit.rshift(B,2),7)
C=bit.band(B,1)*0x80+
bit.band(b,0x7F)
elseif D==6 then
local F=bit.band(B,0x7F)*0x80+bit.band(b,0x7F)
if E==0 then
A=(F+500.0)*C*0.0001
elseif E==1 then
A=F*0.1
else
end
D=0
elseif D~=3 and D~=5 then
D=0
end
B=b
b=readCSer(6,0)
end
if A~=nil then
setChannel(afChan,A)
A=nil
end
end
if initSer(6,19200,8,0,1)then else println('initSer failed:port'..6)end afChan=addChannel("AFR",10,1,8,23)D=0
function onTick()
G()
end
setTickRate(60)