Probleme mit i2c

[Programist (Gast)]

Hat jemand Erfahrung mit JAL compiler?
Ich habe ein Programm damit gemacht, mit DS1307, aber die zeigt nur 00 
an.
Mit software i2c geht's aber.Schon seltsam.

Das ist die library die nicht geht, obwohl sie eigenlich müsste.
Ich habe sie aus i2c_hardware für Jalv2.4 adaptiert für JAL 0.4.60

-- I2C hardware implementation  pic18f
-- at 20 Mhz crystal and 100kHz bus speed  master mode

procedure _i2c_init is

   SSPADD =  0x31 -- 0b_0011_0001        -- clock = 20/(4*(12+1)) = 385kHz   --  49 for 100kHz
   SSPCON1 = 0b_0000_1000       -- master mode, clock=Fosc/(4*(SSPADD+1))
   SSPCON1_SSPEN = high        -- MSSP-Modul enable
   SSPCON2 = 0b_0010_0000       -- sets default acknowledge bit value
--   SSPSTAT =  0b_0000_0000     -- enable slew rate control
end procedure


-- output a start condition  in Master-Mode
procedure i2c_start is

--    PIR1_SSPIF = low     -- SSPIF Bit löschen
    SSPCON2_SEN = high   -- Bus Übernahme anweisen
    while  SSPCON2_SEN == high  loop
    end loop
end procedure

-- i2c_restart - Sends Restart bit and waits untill finished
procedure i2c_restart is
   SSPCON2_RSEN = high
   while SSPCON2_RSEN == high loop
   end loop
end procedure


-- output stop condition
procedure i2c_stop is

  SSPCON2_PEN = high    -- initiate I2C bus stop condition
  while SSPCON2_PEN == high loop
  end loop

end procedure  

-- init the I2C
_i2c_init
i2c_stop


-- output an ack condition
procedure i2c_put_ack is
  SSPCON2_ACKDT = low
  SSPCON2_ACKEN = high     -- ACK senden
  while  SSPCON2_ACKEN == high  loop
    end loop
  SSPCON2_RCEN  = high     -- generate receive condition
end procedure

-- output a nack condition
procedure i2c_put_nack is
    SSPCON2_ACKDT = high
    SSPCON2_ACKEN = high
end procedure  

-- output a nack condition and stop
procedure i2c_put_nack_stop is
   i2c_put_nack
   i2c_stop
end procedure  

-- output an ack condition and stop
procedure i2c_put_ack_stop is
   i2c_put_ack
   i2c_stop
end procedure  


-- i2c_transmit_byte
function i2c_send_byte(byte in data) return bit is

   PIR1_SSPIF = low    -- clear pending flag
   SSPBUF = data       -- write data

   -- wait untill write is finished
   while PIR1_SSPIF == low loop
   end loop

   -- get Acknowledge Status Bit _ACKSTAT
   -- wich indicates that the slave has responded (or not)
   -- if i2c device send an Aknowledge, then ready and OK
   if SSPCON2_ACKSTAT == low  then
      return true   -- okay
   else
      SSPCON1_SSPEN = low
      SSPCON1_SSPEN = high

      return false  -- no response
   end if
end function


-- i2c_receive_byte
--
-- The ACK flag indicated if the byte read must be acked.
-- In general, all bytes read by the master are acked, except the last one.
-- Failing to NACK the last byte read will give unpredictable results.
--
-- start receiving of a byte and waits till finished
-- if param ACK is true, the byte is acknowledged and next bytes can be received.
-- if param ACK is false, the byte is nacked and a stop *should be* sent.
-- note: this behavior is inverted from the line level and orignal library, but
--       consistent with the i2c_software library.
--
function i2c_get_byte(bit in ACK ) return byte is
   var byte data
   -- start receive cyclus and wait till full byte received
   SSPCON2_RCEN = high
   -- delay_100us(1)
   while SSPSTAT_BF == low loop
   end loop

   -- send Acknowledge (=low) if STOP=true=high
   -- and wait till finishd
--   SSPCON2_ACKDT = ACK
   SSPCON2_ACKDT = ! ACK
   SSPCON2_ACKEN = high
   while SSPCON2_ACKEN == high loop
   end loop

   -- get read data
   data = SSPBUF

   return data
end function

-- -----------------------------------------------------------------------------
-- start receiving of a byte and waits till finished
-- if stop is set, an ACK and STOP wil be generated
-- -----------------------------------------------------------------------------
procedure I2C_get_raw_byte (byte out data) is
-- procedure _I2C_receive_byte (byte out data) is
  -- start receive cyclus and wait till full byte received
  SSPCON2_RCEN = high
  while SSPSTAT_BF == low loop
  end loop

  -- send Acknowledge (=low) if STOP=true=high
  -- and wait till finishd
  SSPCON2_ACKDT = low
  SSPCON2_ACKEN = high
  while SSPCON2_ACKEN == high loop
  end loop
  -- get read data
  data = SSPBUF
end procedure

Und das ist die implementation

Var bit r

procedure ds1307_read ( byte in ad , byte out d )is

   i2c_start
   r = i2c_send_byte ( 0xD0 )   -- Chip ID in write mode
   r = r & i2c_send_byte ( ad )    -- put register address  
--   i2c_restart
   i2c_stop
   i2c_start
   r = r & i2c_send_byte ( 0xD1 )    -- Chip ID in read mode
   d = i2c_get_byte (false)        -- get data
   i2c_stop
-- bcd conversion
   var byte loc
   loc = d
   loc = loc & 0xF0
   loc = loc / 16
   d = d & 0x0F
   loc = loc * 10 + d
   d = loc
end procedure

procedure ds1307_write ( byte in ad , byte in d ) is

-- bcd conversion
   var byte loc
   loc = d
   loc = loc / 10
   loc = loc * 16
   d = d % 10
   loc = loc + d
   d = loc

   i2c_start
   r = i2c_send_byte ( 0xD0 )    -- Chip ID in write mode
   r = r & i2c_send_byte ( ad )    -- put register address  
   r = r & i2c_send_byte ( d )     -- put data in the register
   i2c_stop
end procedure

procedure display_time is
    var byte hr, min, sec, day

    hd44780_position1 ( 3 )
    ds1307_read ( 0x02 , hr )
    print_decimal_2 ( hd44780 , hr , "0" )
    hd44780 = ":"
    ds1307_read ( 0x01 , min )
    print_decimal_2 ( hd44780 , min , "0" )
    hd44780 = ":"
    ds1307_read ( 0x00 , sec )
    print_decimal_2 ( hd44780 , sec , "0" )
    hd44780 = "/"
    ds1307_read ( 0x03 , day )
    print_decimal_1 ( hd44780 , day , "0" )
end procedure

[Programist (Gast)]

Hier habe Ich noch die Library mit der es geht.