BasicMicro - Forums

sda con p0
scl con p1
srf08 con 0xe0

cmdreg con  81
lightreg con 1
rangereg con 0

range var word
light var byte

main
i2cout sda, scl, srf08, [cmdreg]
pause 100
i2cout sda,scl, srf08, [rangereg]
i2cin sda,scl, srf08, [range.highbyte, range.lowbyte]
i2cout sda,scl, srf08, [lightreg]
i2cin sda,scl, srf08, [light]
serout s_out, i9600, [dec light," ",dec range, 13]
goto main

; SRF helper functions      
SRF08a   Con 0xE0   ' 1st Sonar I2C Address
SRFCmdReg   Con 0      ' Sonar Command register
SRFLightReg Con 1      ' Sonar Light sensor register
SRFRangeReg Con 2      ' Sonar 1st Range register

srfLightVal    Var Byte   ' Light sensor
srfAdr var Byte
srfRange    Var Word   ' 16 bit variable for Range

SRFPing[srfAdr]
   ; Warning this has not been tested to see if it works or not...
    I2COut SDA, SCL, SRFPFail, srfAdr,  [SRFCmdReg, 80]   ; do a ping in inches...
    srfRange = 0
   pause 67
      
    ; lets try to wait until the Ping completes
    I2COut SDA, SCL, SRFPFail, srfAdr,  [SRFRangeReg]
    i2cin SDA, SCL, SRFPFail, srfAdr, [srfRange.HighByte, srfRange.LowByte]
      
    ; lets try to wait until the Ping completes
    ;i2cin SDA, SCL, srfAdr, SRFRangeReg, [srfRange.HighByte, srfRange.LowByte]
   return srfRange
SRFPFail
   return 0xffff   

SRFLight[srfAdr] 
    i2cin SDA, SCL, srfAdr, SRFLightReg, [SRFLightVal]
   return srfLightVal

sda con p0
scl con p1

i2cout SDA, SCL, srfAdr,  [SRFLightReg]       ; first need to do an output with the address we wish to read from
i2cin SDA, SCL, srfAdr, [SRFLightVal]           ; Then we can read it in