#include "ARMCFunctions.h"
/*
* This CFunction will reverse the characters in an MMBasic string
* eg if the string is "ABCDEFG" then on return the string will
* be "GFEDCBA"
*/
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 waitabit(long long int *w){
uSec(*w);
}
void doubleit(long long int *c, long long int *b){
char a[10];
IntToStr(a,*c,10);
MMPrintString(a);
putConsole(13);
putConsole(10);
*b= *c + *c;
}

void main(long long int *c, long long int *b){
char a[10];
doubleit(c,b);
IntToStr(a,*c,10);
MMPrintString(a);
putConsole('X');
putConsole(13);
putConsole(10);
}

a%=7
b%=2
test a%,b%
print b%
end
CSUB test
0000003A
'strrev
B085B480 6078AF00 687B6039 60BB781B B2DA68BB 701A683B 60FB2301 68BAE00D
1AD368FB 687A3301 6839441A 440B68FB 701A7812 330168FB 68BB60FB 68FA3301
D3EC429A BF00BF00 46BD3714 7B04F85D 00004770
'waitabit
B082B580 6078AF00 681B4B06 687B4619 2300E9D3 46184613 BF004788 46BD3708
BF00BD80 080002A0
'doubleit
B089B5F0 6078AF02 4B156039 461E681B E9D3687B F1072300 200A010C 46089000
4B1047B0 461A681B 030CF107 47904618 681B4B0D 4798200D 681B4B0B 4798200A
E9D3687B 18942300 0503EB43 462B4622 E9C16839 BF002300 46BD371C BF00BDF0
080002C4 080002C0 080002A4
'main
B089B590 6078AF02 68396039 F7FF6878 4B11FFC1 461C681B E9D3687B F1072300
200A010C 46089000 4B0C47A0 461A681B 030CF107 47904618 681B4B09 47982058
681B4B07 4798200D 681B4B05 4798200A 371CBF00 BD9046BD 080002C4 080002C0
080002A4
End CSUB

CSUB doubleit
00000000
B089B5F0 6078AF02 4B176039 461E681B E9D3687B F1072300 200A010C 46089000
4B1247B0 461A681B 030CF107 47904618 681B4B0F 47982058 681B4B0D 4798200D
681B4B0B 4798200A E9D3687B 18942300 0503EB43 462B4622 E9C16839 BF002300
46BD371C BF00BDF0 080002C4 080002C0 080002A4
End CSUB
a%=3
b%=7
doubleit a%,b%
print "b=";b%
end

arm-none-eabi-gcc -c -mcpu=cortex-m7 -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

/*
* This CFunction will reverse the characters in an MMBasic string
* eg if the string is "ABCDEFG" then on return the string will
* be "GFEDCBA"
*/
#include "ARMCFunctions.h"
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 waitabit(long long int *w){
uSec(*w);
}
MMFLOAT doubleit(MMFLOAT *c){
return *c *2.0;
}
__attribute__((noinline)) void getFPC(void *a, void *b, volatile unsigned int *c)
    {
        *c = (unsigned int) (__builtin_return_address (0) - (b -a) - 1) ;      
    }

void p_string(const char *s){
   volatile unsigned int libAddr ;
   getFPC(0,&&getFPCLab,&libAddr) ;
   getFPCLab: { }
   unsigned char  * testData    = (unsigned char *)((void *)s + libAddr);
   MMPrintString(testData);
}
void p_int(int a,int base){
   char b[64];
   IntToStr(b,a,base);
   MMPrintString(b);
}
void p_float(float a,int m, int n, char c){
// m is the nbr of chars before the decimal point
// n is the nbr chars after the point
// ch is the leading pad char
   char b[14];
   FloatToStr(b,a, m, n ,c);
   MMPrintString(b);
}

void main(long long int *c, MMFLOAT *b){
   volatile unsigned int libAddr ;
   getFPC(0,&&getFPCLab,&libAddr) ;
   getFPCLab: { }
   static const char crlf[]="\r\n";
   static const char s1[]="First variable = ";
   static const char s2[]="Second variable = ";
p_string(s1); p_int(*c,10); p_string(crlf);
p_string(s2); p_float(doubleit(b),4,2,' '); p_string(crlf);
}

CSUB mycsub arg1 as Integer, arg2 as String
9548 8576 3987 ....
END CSUB