Add check if TiCi process was running

ADbasic_program_buffered.BAK

@@ -106,11 +106,8 @@ init:
   P2_DigProg(DIO1, 1111b)     'Channel 0-31 as outputs
   P2_DigProg(DIO2, 1111b)     'Channel 32-63 as outputs
   
-  P2_tico_reset(000011b)
-  ' Start TiCo Processes
-  'P2_TiCo_Start_Process(PTR_TICO1,1)
-  'P2_TiCo_Start_Process(PTR_TICO1,1)
   'Initialize pointers to Tico memory
+  P2_tico_reset(000011b)
   P2_TDrv_Init(DIO1, 1, PTR_TICO1)    'Data Transfer to Module DIO1
   P2_TDrv_Init(DIO2, 1, PTR_TICO2)    'Data Transfer Module DIO2
 
@@ -354,6 +351,9 @@ FINISH:
   P2_Set_Led(AOUT1,0)
   P2_Set_Led(AOUT2,0)
 
+  ' Check if TiCo Status was fine
+  P2_Process_Status(DIO1,1,1)
+  P2_Process_Status(DIO2,1,1)
   'Stop Tico Processes
   P2_TiCo_Stop_Process(PTR_TICO1,1)
   P2_TiCo_Stop_Process(PTR_TICO2,1)

ADbasic_program_buffered.bas

@@ -351,6 +351,9 @@ FINISH:
   P2_Set_Led(AOUT1,0)
   P2_Set_Led(AOUT2,0)
 
+  ' Check if TiCo Status was fine
+  par_10 = P2_Process_Status(DIO1,1,1)
+  par_20 = P2_Process_Status(DIO2,1,1)
   'Stop Tico Processes
   P2_TiCo_Stop_Process(PTR_TICO1,1)
   P2_TiCo_Stop_Process(PTR_TICO2,1)