



// BPM switch pressed ?
if bTap then
begin
bTap := false;
iTaps[0] := iTaps[1];
iTaps[1] := iTaps[2];
iTaps[2] := iTaps[3];
iTaps[3] := word(60000 / iPulses);
dTap := dword(iTaps[0] + iTaps[1] + iTaps[2] + iTaps[3]);
if InCalc then
iBPM := word(dTap / 4)
else
iBPM := iTaps[3];
iPulses := 0;
PORTA.4 := PORTA.4 xor 1; // show tap action toggle led on / off
end;