anchor.diff:    \ AHBCLK / APB1 = 36MHz
     \ AHBCLK / APB2 = 72MHz
     \ I2C = APB1 = 36MHz
  -  
  +
     \ Configure clock control registers?!
   
     27           \ CCR 27?
     15 bit or    \ FM
  -  I2C1-CCR h!  \ FREQ = 36MHZ, 31 ns; DUTY=0 3x 31ns = 10 MHz; moet delen door 27 
  +  I2C1-CCR h!  \ FREQ = 36MHZ, 31 ns; DUTY=0 3x 31ns = 10 MHz; must divide by 27
     3  I2C1-TRISE h!         \ 2+1 for 1000ns SCL
   
     0  bit I2C1-CR1 hbis!    \ Enable bit
  
positive.code:       then
      loop
    16 +loop ;
  
  
  
negative.code:       i2c-DR@
        -1 i2c.cnt +!
      endcase
  
    else  \ stop stuff was handled in i2c-xfer
      i2c-EV7    \ wait until data received
      i2c-DR@
      -1 i2c.cnt +!
    then
  
    i2c.cnt @ 0=
    if
      i2c-POS-0 i2c-ACK-1
  