BH1750FVI sample code available?

[CuriousOne]

8 years passed and now I'm giving it 2nd try, but it still does not works (returns 58317 constantly). Here's code:

ldta  var porta.6 
lclk  var porta.3        


x var word
adr var byte
adr=23


i2cwrite ldta, lclk, adr, %0100011
pause 200
i2cwrite ldta, lclk, adr, %00010001
pause 200
maik:
i2cread ldta, lclk, adr, %0100011, x 
pause 200
lcdout $fe, $1, dec x
pause 200
goto maik

Here's the module https://www.addicore.com/BH1750FVI-p/ad290.htm
With arduino it works fine, tested.

Here's screenshot from datasheet, based on which I wrote the above code.