Adding AIN to process_manual

ADbasic_program_manual.bas

@@ -23,6 +23,10 @@
 
 DIM DATA_95[8] AS Long ' AOUT1 values
 DIM DATA_96[8] AS Long ' AOUT2 values
+DIM DATA_93[10000] AS Long AS FIFO ' AIN1 values in FiFo array
+DIM DATA_94[10000] AS Long AS FIFO ' AIN2 values in FiFo array
+DIM ain1_data[8] AS LONG
+DIM ain2_data[8] AS LONG
 
 INIT:
   PROCESSDELAY = 1000000 ' in manual mode 1 ms cycle time is enough
@@ -31,13 +35,24 @@ INIT:
   P2_Set_Led(DIO2, 1)
   P2_Set_Led(AOUT1, 1)
   P2_Set_Led(AOUT2, 1)
+  P2_Start_ConvF(AIN1,0FFh)
+  P2_Start_ConvF(AIN2,0FFh)
   
 EVENT:
   IF (Par_11=1) THEN
     P2_DAC8(AOUT1,DATA_95,1)
     P2_DAC8(AOUT2,DATA_96,1)
     P2_DIGOUT_LONG(DIO1,Par_91)
-    P2_DIGOUT_LONG(DIO2,Par_92)
+    P2_DIGOUT_LONG(DIO2,Par_92)#
+    
+    P2_Wait_EOCF(AIN1,0FFh)
+    P2_Wait_EOCF(AIN2,0FFh)
+    P2_READ_ADCF8(AIN1, ain1_data, 1)
+    P2_READ_ADCF8(AIN2, ain2_data, 1)
+    DATA_93 = ain1_data
+    DATA_94 = ain2_data  
+    P2_Start_ConvF(AIN1,0FFh)
+    P2_Start_ConvF(AIN2,0FFh)  
   ENDIF
   
 FINISH: