REM EoIT_Calc
REM End Of Injector Timing Calculator
REM ¢ Terminal_Crazy 2018_12_11

REM Calc End of Injector Timing for 16188051 PCM (1995 LT1 Z28 etc)

REM Each 90 is spaced into 16 steps of 5.625 degrees
REM So each decimal step is 5.625 degrees in the table

REM Timing is 720 - (VALUE x (90/16))
REM Highest value is 0x6F
REM Lowest value is zero & probably a bad idea

ON ERROR: REPORT: PRINT " at line ";ERL : END

PRINT '"End Of Injection Target for 1995 Z28 LT1 16188051 PCM"
PRINT  " by Terminal Crazy 2018-12-22"
PRINT  "email: terminal_crazy@sand-hill.uk"'

REM Cam Events for Lloyd Elliot Hi Lift
Cam$= "Lloyd Elliot Hi Lift"
EVO = 180 - 77.5  : REM BBDC
EVC = 360 + 28.5  : REM ATDC * We're after exhaust closed
IVO = 360 - 28.5  : REM BTDC
IVC = 540 + 66.5  : REM ABDC

PRINT " Cam : " Cam$
PRINT "  EVO:" EVO
PRINT "  EVC:" EVC
PRINT "  IVO:" IVO
PRINT "  IVC:" IVC
PRINT 




PRINT"       Val        Hex     Std      EoIT"
PRINT"======================================="


degree_step= 90/16

  FOR value% = &6F TO 0 STEP -1
  
    STD_Timing = 720 - ( value% * degree_step ) :REM  These are swapped as we are calulating OFF the table value
    EoI_Target = value% * degree_step           :REM  These are swapped as we are calulating OFF the table value
    
    PRINT value%,  ~value%, STD_Timing,  EoI_Target; "  ";
    
    CASE STD_Timing OF

      REM Start Point
      WHEN 720: PRINT "- TDC Start of Power Stroke";

      WHEN 630: PRINT "-  90 Up - Compression";
      WHEN 540: PRINT "- BDC Start of Compression";

      WHEN 450: PRINT "-  90 Down - Intake";
      WHEN 360: PRINT "- TDC Start of Intake";

      WHEN 270: PRINT "-  90 Up - Exhaust";
      WHEN 180: PRINT "- BDC Start of Exhaust";
      
      WHEN  90: PRINT "-  90 Down - Power";

      WHEN   0: PRINT "- TDC Start of Power Stroke";

      OTHERWISE

    ENDCASE
      
      REM IF timing = 180 PRINT "  xxxxx";
      IF (  STD_Timing>EVC-(degree_step/2) AND STD_Timing<EVC+(degree_step/2) )  PRINT " --- EVC @ "; EVC ;"ø ATDC";

      PRINT

  NEXT

PRINT

END