Below is a simple test that should return a known value (power-on reset value of the config register is $4127). However, the output to the terminal shows every bit high.

Below that is the timing diagram from the datasheet that I am trying to emulate. Does the code accomplish this, or is my understanding flawed? I have checked and double-checked pin connections (breadboard prototype), but will probably tear it apart and do it again to be certain. Any guidance is greatly appreciated.

I2C_SDA     PIN   29    LOW         ' I2C for EEPROM and peripherals; no external access
I2C_SCL     PIN   28    LOW         ' I2C for EEPROM and peripherals; no external access

TERMINAL_NUMBER SUB     1   ' send number to debug terminal

' ======================================================================
  PROGRAM Start LMM
' ======================================================================
' LMM allows larger code at the expense of running slower
'   NOTE that I2CSPEED >2 does not work in LMM (>7 may or may not work at all)
'  I2CSPEED 2      ' floating point parameter (i.e. both 0.5 and 2 are valid)

Start:
    I2CSTART I2C_SDA, I2C_SCL
    I2CWRITE I2C_SDA, I2C_SCL, $40  ' Device address for write
    I2CWRITE I2C_SDA, I2C_SCL, $00  ' Config register
'    I2CWRITE I2C_SDA, I2C_SCL, $41  ' config value - msb
'    I2CWRITE I2C_SDA, I2C_SCL, $27  ' config value - lsb
    I2CSTOP I2C_SDA, I2C_SCL

    PAUSE 100   ' not sure if this is needed

' *** Read data is for the last register pointer location.
    I2CSTART I2C_SDA, I2C_SCL
    I2CWRITE I2C_SDA, I2C_SCL, $41  ' Device address for read
    I2CREAD I2C_SDA, I2C_SCL, idx, 0    ' read byte
    I2CREAD I2C_SDA, I2C_SCL, idy, 1    ' read byte, no ack
    I2CSTOP I2C_SDA, I2C_SCL

    TERMINAL_NUMBER idx     ' convert to ascii string and display value on terminal
    TERMINAL_NUMBER idy
END

' ----------------------------------------------------------------------
' SUB/FUNC Code
'   If routines are nested, then verify that __paramx variable values are unique 
' ----------------------------------------------------------------------

' Use: TERMINAL_NUMBER param1
' --- param1 = value to convert to string for display on serial terminal
'{$IFUSED TERMINAL_NUMBER}
SUB TERMINAL_NUMBER
    ascii = STR __param1, 10  ' convert value to string of digit number
    ascii = ascii + 13  ' add carriage return manually
    SEROUT TX, T115200, ascii 
ENDSUB      ' --- TERMINAL_NUMBER
'{$ENDIF}

What am I doing wrong here? Apart from the internal pull-ups, I also have external resistors but no joy

Cheers,

Craig

Ray

execution: 112801

const _clkfreq = 300_000_000

dim as integer a, b, c, d
dim as integer i,strt,fini

b=12

strt=getus()
for i = 1 to 10000
    c=b*b
next
fini=getus()

print c

print "execution: "; (fini-strt)

execution: 4001

Is the "b^2" not the correct syntax?

Craig

I use lots of Basics so maybe I'm confused.

Craig

I have used in the past PropBasic for various projects, but am having trouble figuring out the I2C commands in Propbasic. Does anyone have working source code for I2C in propbasic that would not mind sharing?

Thank you....

Below I am having problems with the startlog/stoplog commands. It shows an error of 'u9fs', not sure what that is referencing.

Ray

Type help for the System Menu.                                                  



  startlog

'' sol_sta_so_bas.bas
''
'' December 19, 2023

mount "/host", _vfs_open_host()
mount "/sd", _vfs_open_sdcard()

dim sh01 as class using "shell.c"

'''' Varibles
dim inBuff as string
dim logFlag as long

'' Time and date
dim YYYY, MM, DD, HOURS, MINS, SECS as ulong
dim tmpYYYY, tmpMM, tmpDD, tmpHOURS, tmpMINS, tmpSECS as ulong
dim s$ as string
dim date as string
dim time as string
'''''''''''''''

'''' Stacks
dim stack_updateClock(64) as ulong
dim stack_dl(128) as long


'''' Misc
dim cpuID_1, cpuID_2 as long

'''' Start new COGs
cpuID_1 = cpu(updateClock(),@stack_updateClock(1))
pausems 250
cpuID_2 = cpu(data_log(),@stack_dl(1))
pausems 250


logFlag = FALSE

print "Type help for the System Menu."
print " "
''''''''''''''''''''''''''''''
'' main
do
    print "> ";
    input inBuff
    if inBuff = "quit" then
        exit
    else if inBuff = "setdate" then
        input "Enter year, month, and day as YYYY-MM-DD ", s$
        s$ = ltrim$(rtrim$(lcase$(s$)))
        if len(s$) <> 10 then
             print "Illegal date format: Date should be YYYY_MM-DD!"
        else
             tmpYYYY = val%(left$(s$, 4))
             tmpMM = val%(mid$(s$, 6, 2))
             tmpDD = val%(right$(s$, 2))

             if (InRange(tmpYYYY, 2000, 2040) = FALSE) orelse (InRange(tmpMM, 1, 12) = FALSE) orelse (InRange(tmpDD, 1, 31) = FALSE) then
                'date input parameter out of bounds
                print "Invalid YYYY/MM/DD format"

             else
                YYYY = tmpYYYY
                MM = tmpMM
                DD = tmpDD
                print "Date has been set to: ";
                print using "%%/%%/%%%%"; MM; DD; YYYY

             end if
        end if

    else if inBuff = "settime" then
        input "Enter time as HH:MM:SS ", s$
        s$ = ltrim$(rtrim$(lcase$(s$)))
        if len(s$) <> 8 then
            'time isn't in proper format. squawk about it
            print "Illegal time format: Should be HH:MM:SS!"
        else
            'good time length. process it       
            tmpHOURS = val%(left$(s$, 2))       'extract hours  (range 0-23)
            tmpMINS = val%(mid$(s$, 4, 2))  'extract minutes (range 0-59)
            tmpSECS = val%(right$(s$, 2))   'extract seconds (range 0-59)

            if (InRange(HOURS, 0, 23) = FALSE) orelse (InRange(MINS, 0, 59) = FALSE) orelse (InRange(SECS, 0, 59) = FALSE) then
                'time input parameter out of bounds
                print "Invalid HH:MM:SS format"
            else
                'time input parameters are good. Use the
                HOURS = tmpHOURS
                MINS = tmpMINS
                SECS = tmpSECS
                print "Time has been set to ";
                print using "%%:%%:%%"; HOURS; MINS; SECS
            end if
        end if      
    else if inBuff = "help" then
        menu()
    else if inBuff = "getdate" then
        print using "%%/%%/%%%%"; MM; DD; YYYY
    else if inBuff = "gettime" then
        print using "%%:%%:%%"; HOURS; MINS; SECS
    else if inBuff = "dir" then
        sh01.do_dir
    else if inBuff = "startlog" then
        logFlag = TRUE
    else if inBuff = "stoplog" then
        logFlag = FALSE

    else
        print "??"
    end if

loop

print "Program ended!"
end
''''''''''''''''''''''''''''''


'''' Subroutines
'' Clock (COG)
sub updateClock()
    dim oldSecs, newSecs as ulong
    oldSecs = 0
    newSecs = 0

    do
        newSecs = getSec()
        if newSecs > oldSecs then
            SECS = SECS + 1
            if (SECS > 59) then
                SECS = 0
                MINS= MINS + 1
                if (MINS > 59) then
                    MINS = 0
                    HOURS = HOURS + 1
                    if (HOURS > 23) then
                        HOURS = 0
                        DD = DD + 1
                    end if              
                end if
            end if
            if (DD > daysInMonth()) then
                DD = 1
                MM = MM + 1
                if (MM > 12) then
                    MM = 1
                    YYYY = YYYY + 1
                end if
                oldSecs = newSecs
            end if      
        end if

    loop
end sub

sub data_log()

do
    if logFlag = TRUE then
        open "/host/solsta.csv" for append as #3
        print #3, using "%%/%%/####, ";MM, DD, YYYY;
        print #3, using "##:%%:%%, ";hours, mins, secs;
        print #3, "S1, ";
        print #3, " "
        close #3
    end if
    pausems 2000
loop

end sub

sub menu
    print "         System Menu"
    print "help - Show the System Menu."
    print "quit - End the program."
    print "setdate - Set the RTC date."
    print "settime - Set the RTC time."
    print "getdate - Get the current date."
    print "gettime - Get the current time."
    print "dir - Show the dir of /host."
    print "startlog - Start the log."
    print "stoplog - Stop the log."
    print " "
end sub

''''''''''''''''''''''''''''''
'''' Functions
function daysInMonth() as uinteger
  ' february special case
  if MM = 2 then
    if (YYYY mod 4 = 0) then
      if (YYYY mod 100 <> 0) or (YYYY mod 1000 = 0) then
        return 29
      endif
    endif
    return 28
  endif
  if (MM = 4) or (MM=6) or (MM=9) or (MM=11) return 30
  return 31
end function


FUNCTION InRange(myVar as any, myMin as any, myMax as any) as long
'
' trivial generic function that returns TRUE if MYVAR is within the range specified by
' and including the values in MYMIN and MYMAX.  

    if myVar >= myMin andalso myVar <= myMax then
        return TRUE
    else
        return FALSE
    end if

END FUNCTION

'''''''''''''''''''''''''''''

Ray

Ray

else if inBuff = "solar array" then

            abwx.str("solar array")  '' Send request to Activity board
            abwx.tx(10)
            abwx.tx(13)
            pausems 150
            inData# = abwx.rx()  '' Get the floating point data from Activity board


            pausems 10
            print inData#

The main problem is getting the P2 setup to talk to the RPi 4. I tried FullDuplexSerial, jm_fullduplexserial, ... etc, and none seem to work. Not sure what my proplem is. I have the latest flexprop version setup on the RPi 4.

This should be a simple and straight forward setup, but it is turning out to be something else. I hope programming skils have deteriorated over the last few months.

Ray

'' m2_sta.bas
'' Nov 18, 2023
'' Controller between RPi 4 and Prop WX board.


dim rpi4 as class using "spin/SmartSerial.spin"
''         Rx,Tx,  BAUD
rpi4.startx(63,62,0,115_200)
open SendRecvDevice(@rpi4.tx,@rpi4.rx) as #3


'' Variables
dim inBuff as string

print "Type help for menu."
print ""
print ""

'' Main sub

do
    print "> ";
    input inBuff
    if inBuff = "quit" then
        exit
    else if inBuff = "help" then
        menu()
    else if inBuff = "sendx" then
        do
            print #3, "A"  '' Opens local terminal and prints "A", not to rpi4
            ''rpi4.tx("A") '' Same thing here.
            pausems 4000
        loop
    else
        print "??"
    end if

loop

print "Program Ended!"
print "0"
_reboot
end

'' End of Main ''
'''''''''''''''''''''''''

'' Subroutines ''
sub menu()
    print "          Menu"
    print "help - Show the Menu"
    print "quit - End the program."
end sub
''''''''''


'' End of Subroutines ''
'''''''''''''''''''''''''

Craig

Just a heads up:

Much of my FlexBasic programming, I want to do/prove on the PC where I can graphically output to the screen and I want to edit/run instantly.

I just came across SmallBasic and I have to say that I'm darned impressed.

First impression of the IDE made me seriously consider uninstalling because it's very sparse but once you get familiar with it....well it works. I tend to do serious editing in Notepad++ but after loading into SmallBasic, tweaking is no problem. Hit F9 and instantly Run (interpreter)

The default "theme" didn't suit me but [Alt-t] will index through a few alternatives.

Craig

  var x = new ubyte(10)  ' allocate 11 (not 10) bytes and return a pointer to it
  x(1) = 1               ' set a variable in it

How to

  var x = new ubyte  ' allocate 1 byte and return a pointer to it
  (????)= 1                     '   set a variable in it

?

I'm thinking of use cases like code that wants to interface with @rogloh 's memory drivers, or @jrullan 's GUI library which wants to interface with a low-level drawing object. So for example we want to be able to use the GUI library with different drawing code -- VGA, LCD, HDMI, and so forth. What I'm thinking is that we could define an interface for the low level driver, something like:

interface DrawDriver
  sub drawPoint(x as integer, y as integer, color as uinteger)
  sub drawLine(x0 as integer, y0 as integer, x1 as integer, y1 as integer)
  sub drawBox(x0 as integer, y0 as integer, w as integer, h as integer)
  sub drawCircle(x0 as integer, y0 as integer, r as integer)
end interface

and then our GUI could be declared as something like:

dim drv as DrawDriver
function init(d as DrawDriver) as boolean
  drv = d
  return true
end function

sub drawMenu(m as Menu)
  drv.drawBox(m.topx, m.topy, m.width, m.height)
  ' and more stuff here
end sub

The actual drivers would be declared as regular classes (or Spin2 or C objects) which implement the subroutines and functions specified in the interface. Any class which implements all of these functions could be passed where a DrawDriver is expected. Under the hood the compiler would cast the class to a DrawDriver, which would involve filling out a table of method pointers for you automatically. I think most of this could be done at compile time. There would be a run time overhead, namely functions would have to go through the method pointers rather than jump directly, but I don't think there's any alternative and that is a pretty small overhead.

Thoughts? Alternative suggestions?

s$=""""
s$="\""

don't work. Is there any way to do this (except of course s$=chr$(34) ) ?

So I either need to solve the port problem and use the Windows version under Play on Linux or solve the dependency problem and use the Linux version of Simpleide. Unless someone tells me that is not even the correct program I need for programming the P8X32A board.

Thanks for any help anyone can give.
Carroll

Thank you...DenO

Not shared gives an error:
dim as ubyte plc(4) = { &h01,&h02,&h03,&h04 }

Not really a problem but just curious.

Craig

Edit: Re: P2

Is it me?

Craig

Anyone have a bit of slick-trickery to accomplish this, please?

Craig

Testing FlexBasic on a P1-Quickstart for the first time (nice )

Running the supplied Blink2.bas which throws one of the blink procedures into a cog and so requires a
dim shared cpustack(8)

Then I added another blink procedure in another cog and I created another stack
dim shared cpustack2(8)

But the only way for this to run:
var x = cpu(blinker(LED1, 500), @cpustack(0))
var y = cpu(blinker(LED3, 125), @cpustack2(1))

I can't use "0" as the start of stack memory for the extra cog.
What is actually happening here?

Still haven't figured out how to list code in this thing so...bitmap.

Craig

dim a as ulong(4)
dim b as ulong

a(0)=1
b=2
if a=b then b=3

compiles without a warning and I didn't even know what this does (except it makes a hard to find error in a bigger piece of code)

What is the result of comparing array to non-array? A warning should be generated there ("dont do it unless you really know how this works")

I can think of a few really clunky ways to achieve this but I wouldn't be surprised to learn that there is a standard (simple) technique.

Craig

Then, every 8-bit Basic has at least peek/poke (and several of them have also dpeek/dpoke)

I defined them and I keep them in a .bi file to include, but having them in the language itself will allow to get rid of this .bi

About addr and @.... The FlexBasic's @ returns a pointer while Spin's @ returns a long, as there is no such thing as a pointer in Spin. A "pointer type" @ is useful, but to interact with PASM I often need to get a pointer, then add the offset, and to do it, cast have to be used first. That's why I added the addr function, which is also present in 8-bit Basics.

Not a high priority (I alredy have and use these function in a include file)

function peek(addr) as ubyte
dim r as ubyte
asm
rdbyte r,addr
end asm
return r
end function

function dpeek(addr) as ushort
dim r as ushort
asm
rdword r,addr
end asm
return r
end function

function lpeek(addr) as ulong
dim r as ulong
asm
rdlong r,addr
end asm
return r
end function

function slpeek(addr) as integer
dim r as integer
asm
rdlong r,addr
end asm
return r
end function

sub poke(addr as ulong,value as ubyte)
asm
wrbyte value, addr
end asm
end sub

sub dpoke(addr as ulong,value as ushort)
asm
wrword value, addr
end asm
end sub

sub lpoke(addr as ulong,value as ulong)
asm
wrlong value, addr
end asm
end sub

sub slpoke(addr as ulong,value as integer)
asm
wrlong value, addr
end asm
end sub

function addr(byref v as const any) as ulong
return(cast(ulong,@v))
end function

(1). This compiles:

dim psram as class using "psram4.spin2"
psram.fill(0,123,1,0,1)

(2) This doesn't compile:

dim psram as class using "psram4.spin2"

class f

dim a as integer

sub b
psram.fill(0,123,1,0,1)
end sub

end class

psram.fill(0,123,1,0,1)

error: Unable to determine class type at psram.fill in sub b

So it doesn't recognize "psram" if used in another class. So I tried to declare it inside the class

dim psram as class using "psram4.spin2"

class f
dim psram as class using "psram4.spin2"
dim a as integer

sub b
psram.fill(0,123,1,0,1)
end sub

end class

psram.fill(0,123,1,0,1)

This time the error I got is totally stupid:

Unable to open file `psram4.spin2': No such file or directory
test003.bas
|-psram4.spin2
|-|-psram4drv.spin2
child process exited abnormally

What's wrong? There already IS the psram4.spin2 in the directory.

This is not a duplicate file use problem as this example:

class f
dim psram as class using "psram4.spin2"
dim a as integer

sub b
psram.fill(0,123,1,0,1)
end sub

end class

gives the same error:

Unable to open file `psram4.spin2': No such file or directory

Tested in 5.9.10 and 5.9 11 (fresh complied)

if a then b

or

if a then
 b
else
 c
endif

A simplified form

if a then b else c

can be also useful to make the code shorter and easier to read and write when what has to be done for if and else is a simple task - of course if possible and not too complex to implement.

An example of proposed syntax:

if header=1 then bpm=100 else bpm=200