arm-none-eabi-gcc -c -mcpu=cortex-m0 -mfloat-abi=soft -mthumb -Wall -Wno-main -ffunction-sections -O0 -fPIC -I. main.c -o main.o
arm-none-eabi-ld -nostartfiles -T arm-gcc-link.ld -o main.elf main.o

void strrev(unsigned char in[], unsigned char out[]) {

  unsigned int i;

  unsigned int len;

  //MMBasic stores the length of the string in the
  //first,0th,byte
  len=in[0];

  //Set the length of the output string
  out[0]=len;

  //Do the reverse copy
  for(i=1;i<(len+1);i++){
      out[i]=in[len-i+1];
  }

  //and return the length of the string
}
void main(void){}

Dim a$="1234567890"
Dim b$
strrev a$,b$
Print b$

CSub strrev
00000000
B085B480 6078AF00 687B6039 60BB781B B2DA68BB 701A683B 60FB2301 68BAE00D
1AD368FB 687A3301 6839441A 440B68FB 701A7812 330168FB 68BB60FB 68FA3301
D3EC429A BF00BF00 46BD3714 4770BC80
End CSub

set an intterupt
start the adc filling array a()
buffer = 1

in the interrupt
if buffer=1
restart the adc filling array b(): buffer = 2
else
restart the adc filling array a(): buffer = 1

in the main process either a() or b() while the other is filled.

Option base 1
n=1000
Dim a(n),b(n)

'fill array with sine wave
Print
Timer = 0
For i=1 To n
 a(i)=Sin(Pi*i/(n/5))
Next i
Print "fill array sine funct  ";Timer

'calculate min, max, mean from array
Print
Timer = 0
p = Math(Max a())
l = Math(min a())
m = Math(mean a())
Print "max,min,mean math()    ";Timer
Print "max = ";p;"  min = ";l;"   mean = ";m

'calculate min max mean classical way
'Print
Timer = 0
p=0:l=0:m=0
For i= 1 To n
 p = Max(a(i),p)
 l = Min(a(i),l)
 m = m+a(i)
 m = m / n
Next i
Print "max,min,mean classic    ";Timer
Print "max = ";p;"  min = ";l;"   mean = ";m

fill array sine funct   119.462

max,min,mean math()     6.267
max =  1  min = -1   mean =  0.1273213365
max,min,mean classic     244.606
max =  1  min = -1   mean =  1.573877524e-08

/*
* File:   main.c

*/


/*
ArmmiteF4 compiler and linker command parameters
arm-none-eabi-gcc -c -mcpu=cortex-m4 -mfpu=fpv5-d16 -mfloat-abi=hard -mthumb -Wall -Wno-main -ffunction-sections -O0 -fPIC -I. main.c -o main.o
arm-none-eabi-ld -nostartfiles -T arm-gcc-link.ld -o main.elf main.o

PicoMite compiler and linker command parameters
arm-none-eabi-gcc -c -mcpu=cortex-m0 -mfloat-abi=soft -mthumb -Wall -Wno-main -ffunction-sections -O0 -fPIC -I. main.c -o main.o
arm-none-eabi-ld -nostartfiles -T arm-gcc-link.ld -o main.elf main.o

*/
/* Uncomment the relevant  #define statement to use the required code   */
//#define ST7789
//#define QUICKSORT
//#define STRREV
#define HEADERTEST

/**********************************************/

#include "../inc/PicoCFunctions.h"
#ifdef HEADERTEST

void HEADERTEST_v100(){
 NOP();   //Padding to make sure it ends on 4 byte boundary
}


void p_string(const char *s){
   char  * testData    = ( char *)((void *)s );
   MMPrintString(testData);
}

void p_int(int a,int base){
   char b[64];
   IntToStr(b,a,base);
   MMPrintString(b);putConsole(32);
}

/********************************************************************
*  DrawRectangle in MMBasic is redirected to this function
* this is the basic drawing primitive used by most drawing routines
*    x1, y1, x2, y2 - the coordinates
*    c - the colour
* ------------------------------------------------------
* ***** MUST BE static void for the ARMMITEF4 **********
* ------------------------------------------------------
* *********************************************************************/
static void DrawRectangleSPI(int x1, int y1, int x2, int y2, int c){
static const char s4[]="DrawRectangle Called to set Option.DISPLAY_TYPE ";
static const char crlf[]="\r\n";
p_string(s4);p_int(c,10); p_string( crlf);
Option.DISPLAY_TYPE=c;

}

/********************************************************************
* DrawBitMap in MMBasic is redirected to this function
*   Prints the bitmap of a char
*    x, y - the top left of the char
*    width, height - size of the char's bitmap
*    scale - how much to scale the bitmap
*  fc, bc - foreground and background colour
*   bitmap - pointer to the bitmap
* ------------------------------------------------------
* ***** MUST BE static void for the ARMMITEF4 **********
* ------------------------------------------------------
* **********************************************************************/
static void DrawBitmapSPI(int x1, int y1, int width, int height, int scale, int fc, int bc, unsigned char *bitmap){
static const char s5[]="DrawBitmap Called to set HRes and VRes ";
static const char crlf[]="\r\n";
p_string(s5);p_int(x1,10);p_int(y1,10); p_string(crlf);
HRes=x1;
VRes=y1;

}

//workaround for uSec() issue. Hangs without putConsole()
void myuSec(unsigned int a){
putConsole(0);
uSec(a);
}

void main(long long *CD, long long *RST, long long *CS,long long *orientation){
    int HorizontalRes=240,VerticalRes=240;

    Option.LCD_Reset=*RST;
    Option.LCD_CD=*CD;
    Option.LCD_CS=*CS;
    Option.DISPLAY_ORIENTATION=*orientation;
    Option.DISPLAY_TYPE=USERLCDPANEL ;

    if(ExtCurrentConfig[(int) Option.LCD_Reset]!=EXT_BOOT_RESERVED){ExtCfg(Option.LCD_Reset,EXT_DIG_OUT,0);}
    //if(ExtCurrentConfig[(int) Option.LCD_Reset]!=EXT_BOOT_RESERVED){ExtCfg(Option.LCD_Reset,EXT_DIG_OUT,0);ExtCfg(Option.LCD_Reset,EXT_BOOT_RESERVED,0);}
    PinSetBit(Option.LCD_Reset, LATSET);

    if(ExtCurrentConfig[(int) Option.LCD_CD]!=EXT_BOOT_RESERVED){ExtCfg(Option.LCD_CD,EXT_DIG_OUT,0);}
    //if(ExtCurrentConfig[(int) Option.LCD_CD]!=EXT_BOOT_RESERVED){ExtCfg(Option.LCD_CD,EXT_DIG_OUT,0);ExtCfg(Option.LCD_CD,EXT_BOOT_RESERVED,0);}
    PinSetBit(Option.LCD_CD, LATSET);

    if(ExtCurrentConfig[(int) Option.LCD_CS]!=EXT_BOOT_RESERVED){ExtCfg(Option.LCD_CS,EXT_DIG_OUT,0);}
    //if(ExtCurrentConfig[(int) Option.LCD_CS]!=EXT_BOOT_RESERVED){ExtCfg(Option.LCD_CS,EXT_DIG_OUT,0);ExtCfg(Option.LCD_CS,EXT_BOOT_RESERVED,0);}
    PinSetBit(Option.LCD_CS, LATSET);



   //Reset the ST7789
   PinSetBit(Option.LCD_Reset,LATSET);myuSec(10000);
   PinSetBit(Option.LCD_Reset,LATCLR);myuSec(100000);
   PinSetBit(Option.LCD_Reset,LATSET);myuSec(200000);

   // spi_write_command(ST77XX_SWRESET);uSec(150000);
   // spi_write_command(ST77XX_SLPOUT);uSec(500000);

   // spi_write_command(ST77XX_COLMOD);spi_write_data(0x55);uSec(10000);


    if(Option.DISPLAY_ORIENTATION&1){
       VRes=HorizontalRes;
       HRes=VerticalRes;
    } else {
      HRes=HorizontalRes;
      VRes=VerticalRes;
   }


    //update original Vectors to point to our new functions

     //Set the DrawBitmap vector to point to our function
    // Called each time  the TEXT command writes a character
    DrawBitmapVector=(unsigned int)&DrawBitmapSPI;

    //Set the DrawRectangle vector to point to our function
    // Called when any of the GUI commands writes to screen.(Also CLS)
    DrawRectangleVector= (unsigned int)&DrawRectangleSPI;

    //CLS
    //DrawRectangle(0,0,HRes-1,VRes-1,0x000000);

    static const char startup[]="HEADERTEST LOADED\r\n";
    static const char crlf[]="\r\n";
    static const char s1[]="First parameter = ";
    static const char s2[]="Second parameter = ";
    static const char s3[]="Third parameter = ";

    static const char s6[]="HRes,VRes,DISPLAY_TYPE,Brightness = ";
    p_string(startup);
    p_string(s1); p_int(Option.LCD_CD,10);   p_string(crlf);
    p_string(s2);p_int(Option.LCD_Reset,10); p_string(crlf);
    p_string(s3); p_int(Option.LCD_CS,10);   p_string(crlf);
    p_string(s6); p_int(HRes,10);p_int(VRes,10);p_int(Option.DISPLAY_TYPE,10);p_int(Option.DefaultBrightness,10); p_string(crlf);

}

#endif

#define uSec(a)                         ((void  (*)(unsigned long long )) Vector_uSec) (a)

MATH(MAX array() [,index%])
MATH(MIN array() [,index%])

#define uSec(a)   (void  (*)(unsigned long long )) Vector_uSec) (a)
#define USERLCDPANEL   17

PIO INIT MACHINE pio%, statemachine%, clockspeed [,pinctrl] [,execctrl] [,shiftctrl][,startinstruction]