12F675를 이용한 ADC를 가져오기.

 ATTiny2313이나 ATTiny4313은 ADC가 없다. 그래서 다른 방법으로 ADC를 읽어오는 방법을 고안했는데, 약간의 딜레이를 무시하고 사용할 수 있도록 고려했다.

 이러한 핀 중에서 7,6,5를 아날로그 입력으로 이용하고, 4번을 읽을 때 1번으로 하면 활성화되도록 했으며, 읽을 수 있는 상태가 되면 2번이 1이 된다. 3번으로 클럭을 입력하면 높은 비트에서 낮은 비트 순으로 10비트의 데이터를 전달한다.

1. GP3에 1을 할당.

2. GP5가 1이 될 때까지 대기.

3. GP4에 클럭을 입력. 0에서 1이 되면 비트가 GP5에 설정된다. 10번을 반복해서 ADC0, 10번을 반복해서 ADC1, 10번을 반복해서 ADC2를 얻는다. 높은 비트에서 낮은 비트 순으로로 출력된다.

4. 만약 GP3가 0이 되면 도중에 중단된다.

 대충 이러한 방법론으로 동작한다. 남는 핀이 없어서 4번째 채널까지는 불가능하다. 일단 프로토타입으로 구성한 것 뿐이고 실험이 필요할 것 같다.

program f675_analog;

var
  GP_EN   : sbit at GP3_bit;
  GP_CLK  : sbit at GP4_bit;
  GP_DATA : sbit at GP5_bit;
 
  ad0, ad1, ad2 : word;
  GP_Changed : bit;
  bitpos:byte;
 
procedure interrupt(); iv 0x0004; ics ICS_AUTO;
begin
     if GPIF_bit=1 then begin
        if GP_Changed=0 then
           GP_Changed:=1;
        GPIF_bit:=0;
     end;
end;

function CheckNextClock:Boolean;
begin
  while GP_Changed=0 do ;
  Result:=GP_EN=1;
  GP_Changed:=0;
end;

 
begin
  CMCON:=7;         // not used
  ANSEL:=7;         // 0,1,2 used
  TRISIO5_bit:=0;   // GP5 = DATA

  GP_Changed:=0;
  IOC4_bit:=1;      // interrupt
  IOC3_bit:=1;
  GPIE_bit:=1;
  GIE_bit:=1;
  GP_DATA:=0;
 
  while True do begin
        if GP_EN=1 then begin
            bitpos:=10;
            while((bitpos>0) and CheckNextClock) do begin
              if GP_EN=0 then break;
              if GP_CLK=1 then begin
                GP_DATA:=(hi(ad0) and $02)<>0;
                ad0:=ad0 shl 1;
                Dec(bitpos);
              end;
            end;
            bitpos:=10;
            if GP_EN=1 then
            while((bitpos>0) and CheckNextClock) do begin
              if GP_EN=0 then break;
              if GP_CLK=1 then begin
                GP_DATA:=(hi(ad1) and $02)<>0;
                ad1:=ad1 shl 1;
                Dec(bitpos);
              end;
            end;
            bitpos:=10;
            if GP_EN=1 then
            while((bitpos>0) and CheckNextClock) do begin
              if GP_EN=0 then break;
              if GP_CLK=1 then begin
                GP_DATA:=(hi(ad2) and $02)<>0;
                ad2:=ad2 shl 1;
                Dec(bitpos);
              end;
            end;

            if GP_EN=1 then
            while CheckNextClock and (GP_EN<>0) do ;
            GP_DATA:=0;
        end else begin
            ad0:=ADC_Read(0);
            ad1:=ADC_Read(1);
            ad2:=ADC_Read(2);
            GP_DATA:=1;
        end;
  end;
end.