DIM INTEGER checkaddress,addressvalid
I2C OPEN 400,1000 ' I2C port must be open before using I2C CHECK
FOR checkaddress = 2 to 127
I2C CHECK checkaddress,addressvalid
IF addressvalid THEN PRINT HEX$(checkaddress) 'Prints the address of valid I2C devices
NEXT checkaddress

OPTION EXPLICIT
OPTION DEFAULT None

'*********************************************************************************
'
' Program to demonstrate use of MMBasic4ARM Breakpoints
'
' MMBasic4ARM supports 3 commands related to Breakpoints to help make debugging programs much easier:
'
' BP "string"
' Causes the program to stop and display the contents of "string" as a message
' The message can contain MMBasic4ARM variables, but any numeric variables
' must be converted using STR$, eg “The Value of I% is”+Str$(I%)
' You can set as many Breakpoints as you want.
' The best place to set the BP is at the end of the line which ' ' you need to inspect
' Resume the program at the next statement by typing CONTINUE
'
' BP ON : ENABLES ALL Breakpoints which have been placed in your program
'
' BP OFF : DISABLES ALL Breakpoints which have been placed in your program
'
'*********************************************************************************
BP ON
pause 1000
DIM I%
DIM A$=""

'We're going to append a single character at a time to A$
FOR I%=0 TO 25
A$ = A$ + CHR$(I% + &H41):BP A$ 'Breakpoint and display value of A$
NEXT I%

'Print out A$
PRINT A$

END

OPTION EXPLICIT
OPTION DEFAULT None

'*********************************************************************************
'
' Program to demonstrate use of the MMBasic4ARM Peek(System Item) Function
'
' MMBasic4ARM supports a new form of Peek which is used to return "useful/interesting"
' information about the system your program is executing on
' As of 2015-03-26, the Peek(System Item) supports the following Item terms
'
' Item Narrative
' ====== =================================
' Device$ Returns the name of the device, eg ARMMite
' Ver! Returns a FLOAT value of the version of MMBasic4ARM
' UpTime% Returns a 64 bit integer of the number of seconds since power-on
' MCUID% Returns a 64 bit integer containing the ID of the CPU, see
' RM0090 DocID018909 Rev 8 Section 38.6.1 for details
' APITable% Returns the address of the table of addresses of functions which
' have been exposed by the MMBasic4ARM interpreter for use by CFunctions.
' This is a very advanced feature which will be explained in a separate
' CFunctions for ARM Tutorial document
'
'*********************************************************************************
pause 1000
PRINT "Peek(System Device$) =";PEEK(System Device$)
PRINT
PRINT "Peek(System Ver!) =";PEEK(System Ver!)
PRINT
PRINT "Peek(System UpTime%) =";PEEK(System UpTime%);" seconds"
PRINT
PRINT "Peek(System MCUID%) =&H";HEX$(PEEK(System MCUID%))
PRINT
'Show how MCUID can be translated into text
SELECT CASE (PEEK(System MCUID%) AND &HFFF)

CASE &H413
PRINT "This MCU is a STM32F405xx/07xx or STM32F415xx/17xx"

CASE &H419
PRINT "This MCU is a STM32F42xxx and STM32F43xxx"

CASE ELSE
PRINT "Unknown Device !!"

END SELECT
PRINT
PRINT "Hex$(Peek(System APITable%))=&H";HEX$(PEEK(System APITable%))

END

dim integer i
do
i=USBKEY(1000) ' get a character or return 0 if more than 1 second elapses
if i then print chr$(i)
loop