SETPIN PGD,DOUT:PIN(PGD)=(CommandHi AND M):PULSE CLK,.01
PIN(PGD)=LOW:PULSE CLK,PULSEWIDTH
SETPIN PGD,DIN:PULSE CLK,PULSEWIDTH
PIN(CLK)=HIGH:I=PIN(PGD):PIN(CLK)=LOW

SetPin 5,DOUT:Pin(5)=(B And M):Pulse 6,.01
Pin(5)=0:Pulse 6,.01
SetPin 5,DIN:Pulse 6,.01
Pin(6)=1:I=Pin(5):Pin(6)=&H0

Sub S1(A, B, C, D)
Local I,E,K,L,M
SetPin 5,DOUT
Pin(5)=0:Pulse 6,.01:Pin(5)=1:Pulse 6,.01
Pulse 6,.01
Pulse 6,.01
Pin(5)=0:Pulse 6,.01:Pin(5)=0:Pulse 6,.01
Pulse 6,.01
Pulse 6,.01
Pin(5)=0:Pulse 6,.01
Pin(5)=0:Pulse 6,.01
Pulse 6,.01
Pulse 6,.01
Pin(5)=0:Pulse 6,.01
Pin(5)=0:Pulse 6,.01
SetPin 5,DIN:Pulse 6,.01
Pin(6)=1
E=Pin(5)
Pin(6)=0
M=&H1
For K=0 To 14
SetPin 5,DOUT:Pin(5)=(B And M):Pulse 6,.01
Pin(5)=0:Pulse 6,.01
SetPin 5,DIN:Pulse 6,.01
Pin(6)=1:I=Pin(5):Pin(6)=&H0
M=M*2
E=E Or (I*M)
Next K
D=E
SetPin 5,DOUT:Pin(5)=(B And &H8000):Pulse 6,.01
Pin(5)=0:Pulse 6,.01:SetPin 5,DIN:Pulse 6,.01
Pin(6)=1:E=Pin(5):Pin(6)=0
M=&H1
For K=0 To 14
SetPin 5,DOUT:Pin(5)=(A And M):Pulse 6,.01
Pin(5)=0:Pulse 6,.01
SetPin 5,DIN:Pulse 6,.01
Pin(6)=1:I=Pin(5):Pin(6)=0
M=M*2
E=E Or (I*M)
Next K
C=E
SetPin 5,DOUT:Pin(5)=(A And &H8000)
Pulse 6,.01:Pin(5)=1:Pulse 6,.01
SetPin 5,DIN
Pulse 6,.01
Pulse 6,.01
SetPin 5,DOUT:Pin(5)=0:Pulse 6,.01
Pin(5)=1:Pulse 6,.01
SetPin 5,DIN
Pulse 6,.01
Pulse 6,.01
SetPin 5,DOUT:Pin(5)=0:Pulse 6,.01
Pin(5)=0:Pulse 6,.01
SetPin 5,DIN
Pulse 6,.01
Pulse 6,.01
End Sub

Pin(6)=1
E=Pin(5)
Pin(6)=0

E=Pin(5)
Pulse 6,.01

//plugin.c

//This file contains 2 very simple C functions to demonstrate the use
//of ByPICPluginMaker.EXE to create plugins for use in the ByPIC environment

//These plugins will be called from the ByPIC program TestPlugin.bas


//The add function will add 2 numbers passed in from ByPIC
//and pass back the result both as a result of the function call
//and in a result variable provided by the caller
//
//
//The code is deliberately not optimised so that the
//assembly output is easy to follow
//
//The arguments are passed in from the ByPIC program via a pointer
//The pointer points at a 3 element array of pointers which themselves
//point at the ByPIC variables - see the snippet of ByPIC below
//
/* array of pointers to the arguments to the call
dim argv(3)

//The arguments themselves
dim a, b, c

//put the addresses of the args into the argv array
argv(0)=?a
argv(1)=?b
argv(2)=?c

//Values to be added
a=1234
b=5678

//Result
c=0

*/


int add(char *c){
unsigned long *ip, *a, *b, *d;

// pointer to the array of pointers to Longs
ip = (unsigned long*)c;

//Get pointer to first argument
a = (unsigned long*)*(ip);

//Get pointer to second argument
b = (unsigned long*)*(ip+1);

//Get pointer to third argument - result
d = (unsigned long*)*(ip+2);

*d = *a + *b;

return(*d);

}


//The sub function will subtract 2 numbers passed in from ByPIC
//and pass back the result both as a result of the function call
//and in a result variable provided by the caller
//
//see function add above for details of argument passing
//
int sub(char *c){
unsigned long *ip, *a, *b, *d;

// pointer to the array of pointers to Longs
ip = (unsigned long*)c;

//Get pointer to first argument
a = (unsigned long*)*(ip);

//Get pointer to second argument
b = (unsigned long*)*(ip+1);

//Get pointer to third argument - result
d = (unsigned long*)*(ip+2);

*d = *a - *b;

return(*d);

}


//
//We have to have a main() function to keep the compiler happy
//even though we have no need of for BYPIC plugin purposes.
//
int main(){
}

//TestPlugin.bas
//Program to test simple ByPIC plugins created using the ByPICPluginMaker
//by Peter Carnegie
//
//
function start()

//array of pointers to the arguments to the call
dim argv(3)

//The arguments themselves
dim a, b, c

//put the addresses of the args into the argv array
argv(0)=?a
argv(1)=?b
argv(2)=?c

//Values to be added
a=132
b=12

//Result
c=0

//Variable for the result of the function call
dim d
d=0

//Call the plugin and pass in the array of pointers
d=call( ?add, ?argv(0) )

print "Plugin returned ";print d;print "\n"

print a;print " + "; print b;print " = ";print c;print "\n\n"


//Values to be Subtracted
a=456
b=123

//Result
c=0

//Variable for the result of the function call
dim d
d=0

//Call the plugin and pass in the array of pointers
d=call(?sub, ?argv(0) )

print "Plugin returned ";print d;print "\n"

print a;print " - "; print b;print " = ";print c;print "\n"


endf