' main_plugin.bas
' 09-13-2014 22:56:59 MMBasicPluginMaker Ver 1.0.0 by user=Peter
PlugIn Data 27bdfff8 afbe0004 03a0f021 afc40008 8fc20008 24420004 8fc30008 24630004
PlugIn Data 90630000 24630001 306300ff a0430000 8fc20008 24420005 8fc30008 24630005
PlugIn Data 90630000 24630001 306300ff a0430000 03c0e821 8fbe0004 27bd0008 03e00008
PlugIn Data 00000000

Dim P(2048) 'Make room for a 2048 32 bit word Plugin
Plugin Data,P words ........
and for MMBasic to load the plugin starting at the address of P(0)

Then to call the plugin one would issue

Plugin P,Arg1,Arg2,Arg3 etc

This way one could have

1) Plugins as big as one needed

2) Multiple plugins within the same program

' main_plugin.bas
' 09-14-2014 00:55:34 MMBasicPluginMaker Ver 1.0.0 by user=Peter
PlugIn DATA 27bdfff8 afbe0004 03a0f021 afc40008 afc5000c afc60010 8fc20008 8c430000
PlugIn DATA 8fc2000c 8c420000 00621821 8fc20010 ac430000 03c0e821 8fbe0004 27bd0008
PlugIn DATA 03e00008 00000000


'Example MMBasic Program using a Plugin - See end of file for C source code

DIM A, B, C

'Put the value &H 89 ab cd ef into A
LoadInt32("89abcdef",A)

'Put the value &H 12 34 56 78 into B
LoadInt32("12345678",B)

'Make sure C is all 0
ClrInt32 C

'Calculate C = A + B
'&H 9BE0 2467
'2,615,157,863

Plugin A,B,C

PRINT "A=";
PrintInt32 A

PRINT "B=";
PrintInt32 B

PRINT "C=";
PrintInt32 C

END


'Load an INT32 value into a MMBasic numeric variable
'Value is a string in Hex, eg FEDCBA9876432101
'Dest is an MMBasic numeric var
'
SUB LoadInt32(Value$, Dest)
LOCAL A$,B$,B
A$=STRING$(8-LEN(Value$),"0") + Value$
B=0
FOR I=7 TO 1 STEP -2
PRINT "&H" + (MID$(A$,I,2))
POKE VAR Dest,B,VAL("&H" + (MID$(A$,I,2)))
B=B+1
NEXT I

END SUB

'
'Clear a 32 bit unsigned integer
'
SUB ClrInt32(Variable)
LOCAL I
FOR I=0 TO 3
POKE VAR Variable,I,0
NEXT I
END SUB

'
'Print an Int32 variable in Hex
'
SUB PrintInt32(Variable)
PRINT "&H";
FOR I=3 TO 0 STEP -1
PRINT HEX$(PEEK(VAR Variable,I));
NEXT I
PRINT
END SUB


//
// add 2 x 32 bit unsigned numbers
// c=a+b
// c could be a OR b IF desired, ie a=a+b, b=a+b
// Arguments are passed in 3 pointers TO a b, AND the result in c
//
void main(unsigned int*a, unsigned int*b, unsigned int*c) {

*c=*a+*b;
}