447 lines
9.8 KiB
C
447 lines
9.8 KiB
C
/************************************************************************
|
|
* *
|
|
* pburn - prom programmer *
|
|
* *
|
|
* pb2.buf.c : wega p8000-16-bit-teil *
|
|
* c-quelle *
|
|
* *
|
|
************************************************************************/
|
|
|
|
|
|
#define true 1
|
|
#define false 0
|
|
|
|
#define con "continue ?"
|
|
#define pgr "\nprogram"
|
|
#define lis "\nlisting"
|
|
#define mod "\nmodify"
|
|
#define ver "\nverify"
|
|
#define cop "\ncopy"
|
|
#define bpr "\nbyteprogram"
|
|
#define tcr "\ncrc"
|
|
#define fil "file"
|
|
#define pro "prom"
|
|
#define and "and"
|
|
#define to "to"
|
|
#define atm "address to modify ?"
|
|
#define atp "address to program ?"
|
|
#define era "\n*** the specified address out of address range\n"
|
|
#define err "errors\n"
|
|
#define sou "source"
|
|
#define des "destination"
|
|
#define chs "crc_checksum: "
|
|
|
|
char d1, e1;
|
|
|
|
extern int errflag,warning,mofy,answer,qflag;
|
|
extern long begadrf, begadre1, lange1, begadre2, lange2, prlang;
|
|
extern char progbuf[0xfffe], eprombuf[0xfffe], progffff, epromffff, kffff;
|
|
extern char namef[50], namee1[20], namee2[20], cmdbuf[100];
|
|
extern char erase, vefy, d, e;
|
|
extern int tpe1, tpe2;
|
|
|
|
|
|
/* program file to prom
|
|
-------------------- */
|
|
|
|
progprom()
|
|
{
|
|
eraseprom (tpe1,begadre1,lange1);
|
|
if (errflag==true) {if (qflag==true) return;
|
|
else {errflag=false;
|
|
answer=' ';
|
|
return;}}
|
|
if (warning==true) {answer=' '; warning=false; return;}
|
|
printf ("%s %s %s %s %s %s\n",pgr,fil,namef,to,pro,namee1);
|
|
writeprom (tpe1,begadre1,lange1,progbuf,&progffff);
|
|
if (errflag==true) {if (qflag==true) return;
|
|
else {errflag=false;
|
|
answer=' ';
|
|
return;}}
|
|
promcrc (tpe1,begadre1,lange1);
|
|
if (errflag==true) {if (qflag==true) return;
|
|
else {errflag=false;
|
|
answer=' ';
|
|
return;}}
|
|
crcprom(' ');
|
|
if (vefy==0) {d1=d;
|
|
e1=e;
|
|
crc (' ',progbuf,lange1,&progffff);
|
|
if ((d1!=d) || (e1!=e)) vefy=3;}
|
|
if (vefy!=0)
|
|
{
|
|
warning=14; outwar();
|
|
if (warning==true) {answer=' '; warning=false; return;}
|
|
readprom (tpe1,begadre1,lange1,eprombuf,&epromffff);
|
|
if (errflag==true) {if (qflag==true) return;
|
|
else {errflag=false;
|
|
answer=' ';
|
|
return;}}
|
|
compare (progbuf,eprombuf,&progffff,&epromffff,begadre1,begadre1,lange1,namef,namee1);
|
|
}
|
|
|
|
}
|
|
|
|
/* listing filebuffer
|
|
listing eprombuffer
|
|
------------------- */
|
|
|
|
listbuf (lid,ladr,llang,lbuf,padrffff)
|
|
|
|
int lid;
|
|
long ladr, llang;
|
|
char *lbuf, *padrffff;
|
|
{
|
|
long i;
|
|
int j, k, l, c;
|
|
char string[16], zei;
|
|
|
|
k=0; l=0;
|
|
for (i=0,j=0;;i++,j++,lbuf++)
|
|
{if (l==0) {l=1;
|
|
if (lid=='f') printf ("%s %s %s\n",lis,fil,namef);
|
|
else printf ("%s %s %s\n",lis,pro,namee1);
|
|
printf ("%04X:\t",ladr);}
|
|
if (i>=llang) {printf (" ");
|
|
string[j]=' ';}
|
|
|
|
else {if (i==0xffffL)
|
|
lbuf=padrffff;
|
|
zei= *lbuf;
|
|
printf ("%02x ",zei & 0x00ff);
|
|
if (zei<0x21||zei>0x7c) string[j]='.';
|
|
else string[j]=zei;}
|
|
if (j>=15) {
|
|
j++; string[j]=0x00;
|
|
printf (" %s \n",string);
|
|
j= -1;
|
|
if (i>=(llang-1)) break;
|
|
ladr=ladr+16L;
|
|
k++;
|
|
if (k>15) {l=0;
|
|
k=0;
|
|
printf ("%s",con);
|
|
gets (cmdbuf);
|
|
if (cmdbuf[1]!='\0') c='w';
|
|
else c=cmdbuf[0];
|
|
if (c!='y') break;
|
|
printf ("\n");}
|
|
else printf ("%04X:\t",ladr);
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
/* listing eprom
|
|
------------- */
|
|
listprom()
|
|
{
|
|
listbuf ('e',begadre1,lange1,progbuf,&progffff);
|
|
}
|
|
|
|
|
|
|
|
|
|
/* modify file buffer
|
|
------------------ */
|
|
modify()
|
|
{
|
|
mofy=true;
|
|
printf ("%s %s %s\n",mod,fil,namef);
|
|
modprog ('m',begadre1,lange1,progbuf,&progffff);
|
|
}
|
|
|
|
/* modify eprom buffer
|
|
------------------- */
|
|
modprom()
|
|
{
|
|
mofy=true;
|
|
printf ("%s %s %s\n",mod,pro,namee1);
|
|
modprog ('m',begadre1,lange1,progbuf,&progffff);
|
|
}
|
|
|
|
|
|
/* program bytemode
|
|
---------------- */
|
|
byte()
|
|
{
|
|
printf ("%s %s %s\n",bpr,pro,namee1);
|
|
modprog ('p',0L,prlang,progbuf,&progffff);
|
|
promcrc (tpe1,0L,prlang);
|
|
if (errflag==true) {if (qflag==true) return;
|
|
else {errflag=false;
|
|
answer=' ';
|
|
return;}}
|
|
crcprom(' ');
|
|
}
|
|
|
|
|
|
/* address to modify ?
|
|
address to program ?
|
|
-------------------- */
|
|
|
|
modprog (id,ladr,llang,zadr,padrffff)
|
|
|
|
int id;
|
|
long ladr, llang;
|
|
char *zadr, *padrffff;
|
|
{
|
|
int i;
|
|
long madr;
|
|
char bufadr[50];
|
|
char zei, *bzadr;
|
|
|
|
errflag=false;
|
|
bzadr=zadr;
|
|
do
|
|
{
|
|
do
|
|
{
|
|
do
|
|
{if (errflag==true) {printf ("%s",era); errflag=false;}
|
|
qflag=false;
|
|
if (id=='m') printf ("%s",atm);
|
|
else printf ("%s",atp);
|
|
gets(bufadr);
|
|
if (bufadr[0]=='\0') {errflag=true;continue;}
|
|
for (i=0;i<4;i++)
|
|
{if (bufadr[i]=='q') return;
|
|
if (bufadr[i]=='\0') break;
|
|
if (bufadr[i]<'0') {errflag=true; break;}
|
|
if (bufadr[i]>'9')
|
|
{if (bufadr[i]<'A') {errflag=true;break;}
|
|
if (bufadr[i]>'F')
|
|
{if (bufadr[i]<'a'||bufadr[i]>'f')
|
|
{errflag=true; break;}}}}
|
|
}while (errflag==true||bufadr[i]!='\0');
|
|
sscanf(bufadr,"%X",&madr);
|
|
if (madr<ladr||madr>=(ladr+llang)) errflag=true;
|
|
}while (errflag==true);
|
|
zadr=bzadr+(madr-ladr);
|
|
do
|
|
{errflag=false;
|
|
|
|
/*behandlung adr ffff prom e27512*/
|
|
if ((madr-ladr)==0xffffL) zadr=padrffff;
|
|
|
|
if (id=='m') printf ("%04X:\t%02x ",madr,*zadr & 0x00ff);
|
|
else {lange1=1; begadre1=madr-ladr;
|
|
readprom (tpe1,begadre1,lange1,eprombuf,&epromffff);
|
|
if (errflag==true) {if (qflag==true) return;
|
|
else {errflag=false;
|
|
answer=' ';
|
|
return;}}
|
|
printf ("%04X:\t%02x ",madr,eprombuf[0] & 0x00ff);}
|
|
|
|
gets (bufadr);
|
|
i=0;
|
|
if (bufadr[i]!='\0')
|
|
{for (i=0;i<2;i++)
|
|
{if (bufadr[i]=='q') {qflag=true; break;}
|
|
if (bufadr[i]=='\0') break;
|
|
if (bufadr[i]<'0') {errflag=true; break;}
|
|
if (bufadr[i]>'9')
|
|
{if (bufadr[i]<'A') {errflag=true; break;}
|
|
if (bufadr[i]>'F')
|
|
{if (bufadr[i]<'a'||bufadr[i]>'f') {errflag=true; break;}}}}
|
|
if (errflag==false&&qflag==false&&bufadr[i]=='\0')
|
|
{sscanf (bufadr,"%x",&zei);
|
|
if (id=='m') *zadr= zei;
|
|
else {eprombuf[0]=zei;
|
|
writeprom (tpe1,begadre1,lange1,eprombuf,&epromffff);
|
|
if (errflag==true) {if (qflag==true) return;
|
|
else {errflag=false;
|
|
answer=' ';
|
|
return;}}}}}
|
|
|
|
if (errflag==false&&qflag==false&&bufadr[i]=='\0') {madr++; zadr++;}
|
|
if (madr>=(ladr+llang)) {errflag=true; qflag=true;}
|
|
}while (qflag==false);
|
|
}while (qflag==true);
|
|
|
|
}
|
|
|
|
/* verify eprombuffer and filebuffer
|
|
-------------------------------- */
|
|
verify()
|
|
{
|
|
readprom(tpe1,begadre1,lange1,eprombuf,&epromffff);
|
|
if (errflag==true) {if (qflag==true) return;
|
|
else {errflag=false;
|
|
answer=' ';
|
|
return;}}
|
|
printf ("%s %s %s %s\n",ver,namee1,and,namef);
|
|
compare (progbuf,eprombuf,&progffff,&epromffff,begadre1,begadre1,lange1,namef,namee1);
|
|
}
|
|
|
|
/* verify eprom1 and eprom2
|
|
------------------------ */
|
|
|
|
verifyprom()
|
|
{
|
|
readprom (tpe2,begadre2,lange2,eprombuf,&epromffff);
|
|
if (errflag==true) return;
|
|
printf ("%s %s %s %s %s %s\n",ver,pro,namee1,and,pro,namee2);
|
|
compare (progbuf,eprombuf,&progffff,&epromffff,begadre1,begadre2,lange1,namee1,namee2);
|
|
}
|
|
|
|
/* compare buffer1 and buffer2
|
|
--------------------------- */
|
|
compare (pbuf1,pbuf2,p1ffff,p2ffff,adr1,adr2,lang,psou,pdes)
|
|
|
|
char *pbuf1, *pbuf2, *p1ffff, *p2ffff, *psou, *pdes;
|
|
long adr1, adr2, lang;
|
|
{
|
|
char zei1, zei2;
|
|
int k, c, i;
|
|
|
|
if (lang==0x10000L) {lang--;
|
|
kffff=1;}
|
|
else {if ((adr2+lang)==0x10000L) {lang--;
|
|
kffff=2;}
|
|
else kffff=0;}
|
|
k=0; i=0;
|
|
|
|
do
|
|
{
|
|
do
|
|
{
|
|
if (*pbuf1 != *pbuf2)
|
|
{if (i==0) {i=1;
|
|
printf ("%s%s\t\t\t%s\n%s\t\t\t%s\n\n",err,sou,des,psou,pdes);}
|
|
zei1= *pbuf1; zei2= *pbuf2;
|
|
printf ("%04X: %02x\t\t%04X: %02x\n",adr1,zei1 &0x00ff,adr2,zei2 & 0x00ff);
|
|
k++;
|
|
if (k>15) {k=0; i=0;
|
|
printf ("%s",con);
|
|
gets (cmdbuf);
|
|
if (cmdbuf[1]!='\0') c='w';
|
|
else c=cmdbuf[0];
|
|
if (c!='y') return;
|
|
printf ("\n");}}
|
|
pbuf1++;
|
|
pbuf2++;
|
|
adr1++;
|
|
adr2++;
|
|
lang--;
|
|
} while (lang>0);
|
|
/*behandlung adr ffff prom e27512*/
|
|
if (kffff==1) {pbuf1=p1ffff;
|
|
pbuf2=p2ffff;
|
|
lang=1L;
|
|
kffff=0;}
|
|
else {if (kffff==2) {pbuf2=p2ffff;
|
|
lang=1L;
|
|
kffff=0;}}
|
|
} while (lang>0);
|
|
|
|
}
|
|
|
|
/* crc-berechnung prom
|
|
------------------- */
|
|
|
|
crcprom (cid)
|
|
|
|
char cid;
|
|
{
|
|
if (cid=='e') printf ("%s %s %s\n",tcr,pro,namee1);
|
|
else printf ("\n");
|
|
printf ("%s %02x%02x\n",chs,d &0xff,e & 0xff);
|
|
}
|
|
|
|
/* crc-berechnung adr buffer; laenge buffer
|
|
---------------------------------------- */
|
|
crc (cid,pbuf,lang,padrffff)
|
|
|
|
char cid;
|
|
char *pbuf, *padrffff;
|
|
long lang;
|
|
|
|
{
|
|
char a1, a2;
|
|
int i;
|
|
|
|
if (cid=='t') printf ("%s %s %s\n",tcr,fil,namef);
|
|
|
|
d=0xff; e=0xff;
|
|
|
|
if (lang==0x10000L) {lang--;
|
|
kffff=1;}
|
|
else kffff=0;
|
|
|
|
do {
|
|
|
|
do
|
|
{
|
|
a1= *pbuf;
|
|
a1=a1 ^ d;
|
|
d=a1;
|
|
for (i=0;i<4;i++)
|
|
{if ((a1 & 1)> 0) {a1=a1 >> 1; a1=a1 | 0x80;}
|
|
else {a1=a1 >> 1; a1=a1 & 0x7f;}}
|
|
a1=a1 & 0x0f;
|
|
a1=a1 ^ d;
|
|
d=a1;
|
|
for (i=0;i<3;i++)
|
|
{if ((a1 & 1)>0) {a1=a1 >> 1; a1=a1 | 0x80;}
|
|
else {a1=a1 >> 1; a1=a1 & 0x7f;}}
|
|
a2=a1;
|
|
a1=a1 & 0x1f;
|
|
a1=a1 ^ e;
|
|
e=a1;
|
|
a1=a2;
|
|
if ((a1 & 1)>0) {a1=a1 >> 1; a1=a1 | 0x80;}
|
|
else {a1=a1 >> 1; a1=a1 & 0x7f;}
|
|
a1=a1 & 0xf0;
|
|
a1=a1 ^ e;
|
|
e=a1;
|
|
a1=a2;
|
|
a1=a1 & 0xe0;
|
|
a1=a1 ^ d;
|
|
d=e;
|
|
e=a1;
|
|
pbuf++;
|
|
lang--;
|
|
} while (lang>0);
|
|
|
|
/*behandlung adr ffff e27512*/
|
|
if (kffff==1) {pbuf=padrffff;
|
|
lang=1L;
|
|
kffff=0;}
|
|
|
|
} while (lang>0);
|
|
|
|
|
|
if (cid=='t') printf ("%s %02x%02x\n",chs,d & 0xff,e & 0xff);
|
|
}
|
|
|
|
|
|
/* copy eprom1 and eprom2
|
|
---------------------- */
|
|
|
|
copyprom()
|
|
{
|
|
eraseprom (tpe2,begadre2,lange2);
|
|
if (errflag==true) return;
|
|
if (warning==true) {errflag=true; warning=false; return;}
|
|
printf ("%s %s %s %s %s %s\n",cop,pro,namee1,to,pro,namee2);
|
|
writeprom (tpe2,begadre2,lange2,progbuf,&progffff);
|
|
if (errflag==true) return;
|
|
promcrc (tpe2,begadre2,lange2);
|
|
crcprom (' ');
|
|
if (vefy==0) {d1=d;
|
|
e1=e;
|
|
crc (' ',progbuf,lange2,&progffff);
|
|
if ((d1!=d) || (e1!=e)) vefy=3;}
|
|
if (errflag==true) return;
|
|
if (vefy!=0)
|
|
{
|
|
warning=14; outwar();
|
|
if (warning==true) {answer=' '; return;}
|
|
readprom (tpe2,begadre2,lange2,eprombuf,&epromffff);
|
|
if (errflag==true) return;
|
|
compare (progbuf,eprombuf,&progffff,&epromffff,begadre1,begadre2,lange1,namee1,namee2);
|
|
}
|
|
}
|