Groot I2c topic, na IP programmer project

unit i2c;

interface

type
  { TI2CMaster }
  TI2CMaster = object
    retVal: byte;
    procedure init(bitRate: byte);
    // Low level functions
    // Address should be left adjusted 7-bit value
    function start(address: byte; readTransaction: boolean): boolean;
    function readByte(out data: byte; ack: boolean): boolean;
    function writeByte(data: byte): boolean;
    function stop: boolean;

    // Higher level implementation
    function ReadByteFromReg(i2caddress, regAddress: byte; out data: byte): boolean; overload;
    function ReadBytesFromReg(i2caddress, regAddress: byte; data: PByte; size: byte): boolean; overload;
    function ReadBytes(i2caddress: byte; const data: PByte; size: byte): boolean; overload;

    function WriteByteToReg(i2caddress, regAddress: byte; const data: byte): boolean; overload;
    function WriteBytesToReg(i2caddress, regAddress: byte; data: PByte; size: byte
      ): boolean; overload;
    function WriteBytes(address: byte; const data: PByte; size: byte): boolean;

    // data pointer should be pointer to flash memory
    function WriteBytesToReg_P(i2caddress, regAddress: byte; data: PByte; size: byte
      ): boolean;

    function clearStalledBus: boolean;
  end;

program WVW_LEFT;

uses
 i2c, delay;
 
  procedure ModePortB(Pin: byte; Value: Boolean);
  begin
    if Value then 
      begin
        DDRB := DDRB or (1 shl pin);
      end
    else 
      begin
        DDRB := DDRB and not (1 shl pin);
      end;
  end;

procedure WritePortB(Pin: byte; Value: Boolean);
  begin
    if Value then 
      begin
        PORTB := PORTB or (1 shl pin);
      end
    else 
      begin
        PORTB := PORTB and not (1 shl pin);
    end;
  end;
  
const  AddressI2C = $68;

var
  i2c_master: TI2CMaster;
  i, wb ,data: byte;
  S:String;
  C:Char;  
  
begin
  i:=0;
  wb:=0;
  data:=0;
  S:=' ';
  C:=' ';  
  
  ModePortB(1, TRUE); // Status LED to output
  
  i2c_master.init(I2C_50kHz);
  
  S := 'Hello World!';
  
  repeat
     inc(i);
	 if i = 12 then i:=1;

     i2c_master.start(AddressI2C,I2C_WriteMode);    
	 wb := Ord(S[i]);
	 i2c_master.writeByte(wb);
     i2c_master.stop;	 
	 
	 WritePortB(1,True);  // Status LED OFF
	 delay_ms(20);
	 WritePortB(1,False); // Status LED ON
	 delay_ms(20);	 
  until 1=2;	 
end.

program LCDtest;

uses lcd_config, lcd_hd44780, delay, i2c;
 
  procedure ModePortB(Pin: byte; Value: Boolean);
  begin
    if Value then 
      begin
        DDRB := DDRB or (1 shl pin);
      end
    else 
      begin
        DDRB := DDRB and not (1 shl pin);
      end;
  end;

procedure WritePortB(Pin: byte; Value: Boolean);
  begin
    if Value then 
      begin
        PORTB := PORTB or (1 shl pin);
      end
    else 
      begin
        PORTB := PORTB and not (1 shl pin);
    end;
  end;

    function IntToStr(const i: Integer): string;
    begin
     Str(i, Result);
    end;
     
    function StrToInt(const s: string): Integer;
    var
     code: Integer;
    begin
     Val(s, Result, code);
    end;  

const  AddressI2C = $68;

var
  i2c_master: TI2CMaster;
  i, Data: Byte;
  C:Char;  
  S:String;  

begin 
  i:=0;
  C:=' ';
  S:=' ';
  Data := 0;
  
  ModePortB(1, TRUE); // Status LED to output
  
  lcd_init(lcd_displayOnCursorOnCursorBlink);
  lcd_clrscr;
  
  i2c_master.init(I2C_50kHz);
  
   repeat
    inc(i);
    if i = 12 then begin i:=1; S:=''; lcd_clrscr; end;
	 
    i2c_master.start(AddressI2C,I2C_ReadMode);
    i2c_master.ReadByte(Data,False);
	i2c_master.stop;
	S := S + Chr(Data);
	
	lcd_gotoxy(1, 1); // Display 
    lcd_puts(S); // Send string to Display
		 
	 WritePortB(1,True); // Status LED OFF
	 delay_ms(20);
	 WritePortB(1,False); // Status LED ON
	 delay_ms(20);
  until 1=2;
end.