$lib "MyTWI.LIB"
$external Twi_sense
$external Mst_start
$external Mst_stop
$external Twi_mst_slv_isr
'-------------------------------------
' twi-STRUCTURE MASTER
'-------------------------------------
Dim Twi_mst_flag As Byte '0 Kontroll-flags
Dim Twi_mst_addr As Byte '1 SLA + R/W
Dim Twi_mt_curr As Byte '0 resv
Dim Twi_mt_data As Word '1/2 Data address
Dim Twi_mt_cntr As Byte '3 Anzahl bytes
Dim Twi_mr_curr As Byte '0 resv
Dim Twi_mr_data As Word '1/2 Data address
Dim Twi_mr_cntr As Byte '3 Anzahl bytes
'-------------------------------------
' twi-STRUCTURE SLAVE RECV / TRANS
'-------------------------------------
Dim Twi_slv_flag As Byte '0 Kontroll-flags
Dim Twi_slv_addr As Byte '1 Slave adresse
Dim Twi_slv_stat As Byte '2 twi-state (SLA)
Dim Twi_sr_cntr As Byte '0 Anzahl bytes
Dim Twi_sr_data As Word '1/2 Data-address
Dim Twi_st_cntr As Byte '0 Anzahl bytes
Dim Twi_st_data As Word '1/2 Data-address
Const Twi_m_sent = 1
Const Twi_m_recv = 2
Const Twi_timeout = 3
Const Twi_m_busy = 4
Const Twi_buserr = 7