ADbasic_program_manual.BAK

'<ADbasic Header, Headerversion 001.001>
' Process_Number                 = 2
' Initial_Processdelay           = 10000
' Eventsource                    = Timer
' Control_long_Delays_for_Stop   = No
' Priority                       = High
' Version                        = 1
' ADbasic_Version                = 6.3.1
' Optimize                       = Yes
' Optimize_Level                 = 1
' Stacksize                      = 1000
' Info_Last_Save                 = ATI098-60  ATI098-60\labuser
'<Header End>
#include adwinpro_all.inc

#define DIO1  1                         'DIO  Card 32
#define DIO2  2                         'DIO  Card 32
#define AIN1  3                         'AIN  Card 8/16
#define AIN2  4                         'AIN  Card 8/16
#define AOUT1 5                         'AOUT Card 8/16
#define AOUT2 6                         'AOUT Card 8/16


DIM DATA_95[8] AS Long ' AOUT1 values
DIM DATA_96[8] AS Long ' AOUT2 values
DIM DATA_93[8] AS Long ' AIN1 values in FiFo array
DIM DATA_94[8] AS Long ' AIN2 values in FiFo array


INIT:
  PROCESSDELAY = 1000000 ' in manual mode 1 ms cycle time is enough
  Par_11 = 0 ' Parameter to start the output
  P2_Set_Led(DIO1, 1)
  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_Wait_EOCF(AIN1,0FFh)
    P2_Wait_EOCF(AIN2,0FFh)
    P2_READ_ADCF8(AIN1, DATA_93, 1)
    P2_READ_ADCF8(AIN2, DATA_94, 1) 
    P2_Start_ConvF(AIN1,0FFh)
    P2_Start_ConvF(AIN2,0FFh)  
  ENDIF
  
FINISH:
  P2_SET_LED(DIO1,0)
  P2_SET_LED(DIO2,0)
  P2_SET_LED(AOUT1,0)
  P2_SET_LED(AOUT2,0)
  P2_SET_LED(AIN1,0)
  P2_SET_LED(AIN2,0)