'*************** Register MCU,Oschillator and baud *************************************)

$regfile = "2313def.dat"                                    'using ATiny2313
$crystal = 4000000                                          'using 4 MHz Crystal
$baud = 9600                                                ' use 9600 baud rate (8-N-1)

'***************************** Define Ports ********************************************)
Portd = &B0000_0000
Ddrd = &B1100_1111                                          ' I2C pins as inputs


'*************************** Define I2C Pins *******************************************)

Config Scl = Portd.4                                        ' Clock Pin 8 (PD4)
Config Sda = Portd.5                                        ' Clock Pin 9 (PD5)


'************************* Subroutines Declare *****************************************)

Declare Sub Card_wr(byval Adres As Byte , Byval Value As Byte )
Declare Sub Card_rd(byval Adres As Byte , Byval Value As Byte )


'******************* Working variables and Constants ************************************)
Dim B1 As Byte , Adres As Byte , Value As Byte              'dim byte
Const Addressw = &B10101110                                 '1010 (standard for IS24C16A) 111 (slave adress) 0 write
Const Addressr = &B10101111                                 '1010 (standard for IS24C16A) 111 (slave adress) 1 read



'******************************* Main Program *****************************************)




Call Card_wr(250 , 1)                                       'Calling Card Write Subroutine,write to adress 1 the number 1

Call Card_rd(250 , Value)                                   'Calling Card Read Subroutine,read the value of adress 1
                                                             'Send to COM port the string
Print Str(value)

  End


'******************************* SUBROUTINES *****************************************)
'Card Write
Sub Card_wr(byval Adres As Byte , Byval Value As Byte)

I2cstart                                                    'Generate Start Condition
I2cwbyte Addressw                                           'Send Slave Adress and write bit 10101110
I2cwbyte Adres                                              'Send Desired Adress to write
I2cwbyte Value                                              'Sends Value to write
I2cstop                                                     'Generate Stop condition
Waitms 100                                                  'wait for 100 milliseconds

End Sub


'Card Read
Sub Card_rd(byval Adres As Byte , Value As Byte)

I2cstart                                                    'Generate Start Condition
I2cwbyte Addressw                                           'Send Slave Adress and write bit 10101110
I2cwbyte Adres                                              'Send Desired Adress to write
I2cstart                                                    'Generate Start Condition
I2cwbyte Addressr                                           'Send Slave Adress and read bit 10101111
I2crbyte Value                                              'Read byte
I2cstop                                                     'Generate Stop Condition
Waitms 100

End Sub