////////////////////////////////////
//  This file provide routines    //
//  to work with Analog Device's  //
//  SPI contolled DAC AD7303      //
//  19 - Jul - 2006               //
//  mikroPascal v5.0.0.3          //
//  PIC18F2580                    //
//  relsys@abv.bg                 //
////////////////////////////////////

unit ad7303_driver;

uses p18_ports_v53, definitions, can_comm;

const
  //DAC Control Bits - OR Logic
  DAC_INT_EXT_REF                   : byte = 7;
  DAC_UNCOMMITTED_BIT               : byte = 6;
  DAC_LDAC                          : byte = 5;
  DAC_PDB                           : byte = 4;
  DAC_PDA                           : byte = 3;
  DAC_A_B_SELECT                    : byte = 2;
  DAC_CR1                           : byte = 1;
  DAC_CR2                           : byte = 0;
 
  DACS_AB_FROM_SHIFT                : byte = $00;
  DAC_A_IN_FROM_SHIFT               : byte = $01;
  DAC_B_IN_FROM_SHIFT               : byte = $05;
  DAC_A_REG_FROM_IN                 : byte = $02;
  DAC_B_REG_FROM_IN                 : byte = $06;
  DAC_A_REG_FROM_SHIFT              : byte = $03;
  DAC_B_REG_FROM_SHIFT              : byte = $07;
  DAC_A_IN_FROM_SHIFT_2_DACS_AB     : byte = $20;
  DAC_B_IN_FROM_SHIFT_2_DACS_AB     : byte = $24;
 
  DAC_REF_INT                       : byte = $00;
  DAC_REF_EXT                       : byte = $80;
 
  DACS_AB_ACTIVE                    : byte = $00;
  DAC_A_ACTIVE                      : byte = $10;
  DAC_B_ACTIVE                      : byte = $08;
  DACS_AB_POWER_DOWN                : byte = $18;
 
  DAC_CS                            : byte = 1;

 
var
  CONTROL_PORT                      : byte; absolute _PORTC;
  CONTROL_PORT_DDR                  : byte; absolute _TRISC;
 
  dac_controll, dac_data, dac_channel, active_dac : byte;

implementation

procedure Get_DAC_Data;
begin
  dac_channel := network_data[SI_201_H];
  dac_data := network_data[SI_201_L];
  case dac_channel of
    DAC_A :
      begin
        dac_controll := DAC_REF_INT or DAC_A_REG_FROM_SHIFT or DACS_AB_ACTIVE;
      end;
    DAC_B :
      begin
        dac_controll := DAC_REF_INT or DAC_B_REG_FROM_SHIFT or DACS_AB_ACTIVE;
      end;
  end;
end;

procedure Set_DAC_Data;
begin
  CONTROL_PORT.DAC_CS := Fall;
  SPI_Write(dac_controll);
  SPI_Write(dac_data);
  CONTROL_PORT.DAC_CS := Rise;
end;

procedure DACS_AB_Init_Zero;
begin
  dac_controll := DAC_REF_INT or DACS_AB_FROM_SHIFT or DACS_AB_ACTIVE;
  dac_data := 0;
  Set_DAC_Data;
end;

end.