/*******************************************************************************
*
* Pic32prog CFunction for Micromite
*
* Entry point is function long long main(long *PGD,
* long *PGC,
* long *MCLR)
*
*
******************************************************************************/
#define Version 100 //Version 1.00
#include "../cfunctions.h"
#define Dpinnum 0
#define Dreadport 1
#define Dsetport 2
#define Dclrport 3
#define DsetTRIS 4
#define DclrTRIS 5
#define Csetport 6
#define Cclrport 7
#define Dpin 8
#define Cpin 9
#define GD 10
#define GC 11
#define DEVID (*(volatile unsigned int *)0xBF80F220)
#define RBUF_SIZE 1024
#define newchar do{IN = getConsole();if(IN!=-1)ringBufS_put(rb,(unsigned char)IN);} while (IN!=-1);
#define pulsePGC *(volatile unsigned int *)pins[Csetport]=pins[Cpin] ; k=DEVID; *(volatile unsigned int *)pins[Cclrport]=pins[Cpin]; k=DEVID;

typedef struct ringBufS
{
unsigned char buf[RBUF_SIZE];
int head;
int tail;
int count;
} ringBufS;

unsigned int modulo_inc (const unsigned int value, const unsigned int modulus)
{
unsigned int my_value = value + 1;
if (my_value >= modulus)
{
my_value = 0;
}
return (my_value);
}

unsigned int modulo_dec (const unsigned int value, const unsigned int modulus)
{
unsigned int my_value = (0==value) ? (modulus - 1) : (value - 1);
return (my_value);
}

int ringBufS_get (ringBufS *_this)
{
int c;
if (_this->count>0)
{
c = _this->buf[_this->tail];
_this->tail = modulo_inc (_this->tail, RBUF_SIZE);
--_this->count;
}
else
{
c = -1;
}
return (c);
}

void ringBufS_put (ringBufS *_this, const unsigned char c)
{
if (_this->count < RBUF_SIZE)
{
_this->buf[_this->head] = c;
_this->head = modulo_inc (_this->head, RBUF_SIZE);
++_this->count;
}
}

int ringBufS_empty (ringBufS *_this)
{
return (0==_this->count);
}

void ringBufS_flush (ringBufS *_this)
{
int j;
_this->count = 0;
_this->head = 0;
_this->tail = 0;
for(j=0;j<RBUF_SIZE;j++)_this->buf[j]=0;
}

int clock1(int pins[], int D)
{
int j=pins[Dpin],k;
*(volatile unsigned int *)pins[DclrTRIS]=j;
if(D) {
*(volatile unsigned int *)pins[Dsetport]=j ;
} else {
*(volatile unsigned int *)pins[Dclrport]=j; // PGD = hi-Z
}
pulsePGC
return D;
}

int clock4(int pins[], int TDI, int TMS)
{
int i=0,j=pins[Dpin],k;
*(volatile unsigned int *)pins[DclrTRIS]=j;
if(TDI) {
*(volatile unsigned int *)pins[Dsetport]=j ;
} else {
*(volatile unsigned int *)pins[Dclrport]=j;
}
pulsePGC
if(TMS) {
*(volatile unsigned int *)pins[Dsetport]=j;
} else {
*(volatile unsigned int *)pins[Dclrport]=j;
}
pulsePGC
*(volatile unsigned int *)pins[DsetTRIS]=j;
pulsePGC
k=DEVID; //waste a couple of cycles
k=DEVID;
i=(*(volatile unsigned int *)pins[Dreadport] & j)>>pins[Dpinnum];

pulsePGC
return i;
}

long long main(long *PGDv, long *PGCv, long *MCLRv){
static const unsigned char announce[] = "ascii ICSP V1M" ;
int PGD=*PGDv,PGC=*PGCv,MCLR=*MCLRv;
int IN,pins[12],i,UP,CHAR;
char ch,active=1,J,B,I,PrAcc,*p;
ringBufS *rb;
p=GetTempMemory(RBUF_SIZE+256);
rb=(void*)p;
ringBufS_flush(rb);
pins[Dsetport]=(int)(volatile unsigned int *)GetPortAddr(PGD,LATSET);
pins[Dclrport]=(int)(volatile unsigned int *)GetPortAddr(PGD,LATCLR);
pins[DsetTRIS]=(int)(volatile unsigned int *)GetPortAddr(PGD,TRISSET);
pins[DclrTRIS]=(int)(volatile unsigned int *)GetPortAddr(PGD,TRISCLR);
pins[Dreadport]=(int)(volatile unsigned int *)GetPortAddr(PGD,PORT);
pins[Dpinnum]=GetPinBit(PGD);
pins[Dpin]=1<<pins[Dpinnum];
pins[GD]=PGD;
pins[GC]=PGC;
pins[Csetport]=(int)(volatile unsigned int *)GetPortAddr(PGC,LATSET);
pins[Cclrport]=(int)(volatile unsigned int *)GetPortAddr(PGC,LATCLR);
pins[Cpin]=1<<GetPinBit(PGC);
while(active){
newchar
if(!ringBufS_empty(rb)){
I=(char)ringBufS_get(rb);
CHAR=0;
if(I>='a' && i<='z'){
UP=0;
I-=32; //convert to upper case
CHAR=1;
} else if(I>='A' && i<='Z') {
UP=1;
CHAR=1;
}
if(CHAR){
if ((I >= 'I') && (I <= 'X')){
J= I-'I';
B = 0;
if (clock4(pins, J & 1, 0)) B |= 1;
if (clock4(pins, J & 2, 0)) B |= 2;
if (clock4(pins, J & 4, 0)) B |= 4;
if (clock4(pins, J & 8, 0)) B |= 8;
ch = 'I' + B;
if (UP) {
putConsole(ch);
}
} else {

if(I=='D'){ // TDI = 0, TMS = 0, read_flag = 0
ch = '0' + clock4(pins, 0, 0);
if(UP)putConsole(ch);
} else

if(I=='E'){ // TDI = 0, TMS = 1, read_flag = 0
ch = '0' + clock4(pins, 0, 1);
if(UP)putConsole(ch);
} else

if(I=='F'){ // TDI = 1, TMS = 0, read_flag = 0
ch = '0' + clock4(pins, 1, 0);
if(UP)putConsole(ch);
} else

if(I=='G'){ // TDI = 1, TMS = 1, read_flag = 0
ch = '0' + clock4(pins, 1, 1);
if(UP)putConsole(ch);
} else
if(I=='A') { // TDI = 0, TMS = 1-0-0, read_flag = 0
clock4(pins, 0, 1); // (data header)
clock4(pins, 0, 0);
ch = '0' + clock4(pins, 0, 0);
if(UP)putConsole(ch);
} else

if(I=='Z') { // TDI = 0, TMS = 1-0, read_flag = 0
clock4(pins, 0, 1); // (data footer)
clock4(pins, 0, 0);
}
}
} else {

if(I=='0') { // clock out a 0 bit on PGD pin
clock1(pins, 0); // PGD = 0
} else

if(I=='1') { // clock out a 1 bit on PGD pin
clock1(pins, 1); // PGD = 1
} else

if(I=='-') { // clock in single PGD bit
ch = '0' + clock1(pins, 1);
putConsole(ch);
} else

if(I=='+') { // TDI = 0, TMS = 0, accumulate PrAcc
if (!clock4(pins, 0, 0)) PrAcc = 0; // remember if any error ('0')
} else

// '>', '.', '=': handshake and formatting commands, placed here for possible speed

if(I=='>') { // request a sync response of '<'
putConsole('<');
} else

if(I=='=') { // retrieve value of PrAcc
putConsole(PrAcc ? '1' : '0');
PrAcc = 1; // reset to default
} else

// the remaining commands have no great speed requirements, therefore can use
// the slower Micromite library routines

// '2','3': pulse MCLR high, clock out signature, set MCLR high

if(I=='2') { // set MCLR low
PinSetBit(MCLR, LATCLR); // MCLR = 0
} else

if(I=='3') { // set MCLR high
PinSetBit(MCLR, LATSET); // MCLR = 1
} else
// '4','5': control power supply to target

if(I=='4'){ // turn power to target OFF
ExtCfg(PGD,EXT_NOT_CONFIG,0);
ExtCfg(PGC,EXT_NOT_CONFIG,0);
ExtCfg(MCLR,EXT_NOT_CONFIG,0);
active=0;
} else

if(I=='5'){ // turn power to target ON
ExtCfg(MCLR,EXT_DIG_OUT,0);
PinSetBit(MCLR, LATCLR);
ExtCfg(PGD,EXT_DIG_OUT,0);
PinSetBit(PGD, LATCLR);
ExtCfg(PGC,EXT_DIG_OUT,0);
PinSetBit(PGC, LATCLR);
} else

// miscellaneous other commands

if(I=='8') { // insert 10mS delay

for(i=0;i<20;i++)
uSec(500);
newchar
} else


if(I=='?') { // return ID string, "ascii ICSP v1X"
MMPrintString(announce);
/* putConsole('a');
putConsole('s');
putConsole('c');
putConsole('i');
putConsole('i');
putConsole(' ');
putConsole('I');
putConsole('C');
putConsole('S');
putConsole('P');
putConsole(' ');
putConsole('v');
putConsole('1');
putConsole('M'); //Micromite!!!*/
}
}
}
} // end of while
do {
IN = getConsole(); //strip any junk characters
} while (IN!=-1);
return pins[Csetport];
}

Program stage 1 started
Connected to Master at 38400
Connected to Master at 115200
Baud Rate changed to 115200
COM4 PGD = 25 : PGC = 24 : MCLR = 26
****....................................................................................................

Program Master completed

Micromite MKII MMBasic Ver 5.1
Copyright 2011-2016 Geoff Graham

> memory
Flash:
1K ( 1%) Program (11 lines)
59K (99%) Free

RAM:
0K ( 0%) 0 Variables
0K ( 0%) General
53K (100%) Free
> list

Dim Cnt As integer = 0


Trace on
Do
Cnt = Cnt + 1
Print "Hello ";Cnt
Pause 200
If cnt > 5 Then Trace off
Loop
>

Program stage 1 started
Connected to Master at 38400

>
OPTION BAUDRATE 115200

Connected to Master at 115200
Baud Rate changed to 115200
COM13 PGD = 3 : PGC = 2 : MCLR = 4
****...................................................
Saved 6606 bytes
>
Program Master completed

[Windows]
; Main Window
MainX = 200
MainY = 200
MainW = 468
MainH = 287
; Config Window
ConfigX = 200
ConfigY = 200
ConfigW = 500
ConfigH = 290

[micromite]
uM comport = com7
uM SerialSpeed = 38400
LineDelay = 150
PGD = 3
PGC = 2
MCLR = 4

[Arduino]
A comport = com7
A SerialSpeed = -b3

[General]
Master Device = micromite
MM Program = pic32prog.bas
HEX File = *.hex
HEX Folder =