/*****************************************************
Chip type           : ATmega16
Program type        : Application
Clock frequency     : 14,745600 MHz
Memory model        : Small
External SRAM size  : 0
Data Stack size     : 256
*****************************************************/
#include <mega16.h>
register unsigned char ADCH_, ADCL_; //Plase variables in working registers for fast access to them

// ADC interrupt service routine
interrupt [ADC_INT] void adc_isr(void)
{
ADCL_ = ADCL;
ADCH_ = ADCH; //Right order to read ADC result!
//Preparing data to transmission
ADCH_<<=3;
ADCH_|=ADCL_>>5;
ADCL_&=0x1F;
//Now we have 5 higher bits of the result in ADCH_ and 5 lower bits of result in ADCL_;
ADCH_|=0x80; //Set MSB in ADCH_ in 1 for correct handling recived data on PC
//Start Transmission!
UDR=ADCH_;
UCSRB=0x28;//UDRE interrupt enabled
}

// USART Transmitter interrupt service routine
interrupt [USART_DRE] void usart_tx_udre(void)
{
UDR=ADCL_;
UCSRB=0x08;   //UDRE interrupt disabled
ADCSRA|=0x40; //Start next ADC conversion!!;
}

void main(void)
{
// USART initialization
// Communication Parameters: 8 Data, 1 Stop, No Parity
// USART Receiver: Off
// USART Transmitter: On, UDRE int. On
// USART Mode: Asynchronous
// USART Baud Rate: 57600
UCSRA=0x00;
UCSRB=0x08; //TXEN=1;
UCSRC=0x86; //8-bit frame
UBRRH=0x00;
UBRRL=0x0F;
//ADC initialization
ADMUX=0xC0; // ADC Voltage Reference: Int., cap. on AREF, INPUT=PORTA.0
ADCSRA=0xCF; // ADC Clock frequency: 115,200 kHz, START FIRST CONVERSION
#asm("sei")
while (1);
}

unit Unit33;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Label2: TLabel;
Label1: TLabel;
Timer2: TTimer;
Image1: TImage;
procedure FormCreate(Sender: TObject);
procedure q(Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
hcom,houtfile: thandle;
dcb: tdcb;
stat: tcomstat;
lock: bool;
bytecount: dword;
databuf, x: byte;
const bufsize=sizeof(databuf);
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
x:=0;
stat.cbInQue:=0;
bytecount:=0;
lock:=true;
hcom:=createfile('com3',generic_read or generic_write,0,nil,open_existing,file_attribute_normal,0);
if hcom=invalid_handle_value then begin
showmessage('can''t open port');
application.Terminate;
end;
setupcomm(hcom,1600,1600);
with dcb do begin
baudrate:=57600;
bytesize:=8;
parity:=noparity;
stopbits:=onestopbit;
end;
if not setcommstate(hcom,dcb) then begin
showmessage('can''t set port');
application.Terminate;
end;
houtfile:=createfile('out.txt',generic_read or generic_write,0,nil,open_always,
file_attribute_normal,0);
if houtfile=invalid_handle_value then begin
showmessage('can''t open out file');
application.Terminate;
end;
lock:=false;
end;

procedure TForm1.q(Sender: TObject; var Action: TCloseAction);
begin
closehandle(houtfile);
closehandle(hcom);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i,blocks,errors,bytes: dword;
begin
if not lock then begin
lock:=true;
clearcommerror(hcom,errors,@stat);
blocks:=stat.cbInQue div bufsize;
if blocks>0 then begin
for i:=1 to blocks do begin
if not readfile(hcom,databuf,bufsize,bytes,nil)
then beep;
writefile(houtfile,databuf,bufsize,bytes,nil);
inc(bytecount,bytes);
image1.Canvas.Pixels[x, 255-databuf]:=0;
inc(x);
if (x > 340) then x:=0;
end;
flushfilebuffers(houtfile);
end;
label1.Caption:='read '+inttostr(blocks)+
' blocks. write in file '+inttostr(bytecount)+' bytes';
form1.Caption:=datetimetostr(date+time);
lock:=false;
end;
end;

end.

deplhi               C

begin              -  {
end                -  }
:=                 -  =
integer(x)         -  (int)x
var x,y : integer; -  int x, y;

if condition then  -  if (condition)
  operator1              operator1;
else                  else
  operator2;             operator2;

Form1.Image1       -  Form1->Image1
not                -  !
or                 -  ||
and                -  &&