add version : 1.4
This commit is contained in:
Oliver Lehmann
parent
81bae90808
commit
60fee74595
|
|
@ -0,0 +1,254 @@
|
|||
/****************************************************************
|
||||
* *
|
||||
* pburn - eprom programmer *
|
||||
* *
|
||||
* pb1.command.c : wega p8000/16-bit-teil *
|
||||
* *
|
||||
****************************************************************/
|
||||
|
||||
|
||||
#define EOF "\n\n*** end of file\n"
|
||||
#define re1 "\n\nread source promtyp"
|
||||
#define cte "\n\nchange to destination promtyp"
|
||||
#define rtr "\nready to read?"
|
||||
#define rtc "\nready to copy?"
|
||||
#define rtv "\nready to verify?"
|
||||
#define des "destination "
|
||||
#define sou "source "
|
||||
#define npr "change to next prom?"
|
||||
#define npl "change to next prom low_address?"
|
||||
#define nph "change to next prom high_address?"
|
||||
#define per "prom erased\n"
|
||||
#define pne "prom not erased\n"
|
||||
#define true 1
|
||||
#define false 0
|
||||
|
||||
extern int qflag, errflag, warning, mofy, answer, command, eof, next;
|
||||
extern int tpe1, tpe2;
|
||||
extern char bre, progbuf[0x2000];
|
||||
extern char namee1[20], namee2[20], cmdbuf[100];
|
||||
extern unsigned begadre1, begadre2, lange1, lange2, begadrf;
|
||||
|
||||
/* p: programming eprom
|
||||
------------------------- */
|
||||
|
||||
|
||||
program()
|
||||
{
|
||||
do { do {printf ("\n%s",sou);
|
||||
outoptf(); /*ausgabe filename [options]:*/
|
||||
inoptf(); /*eingabe filename [options]*/
|
||||
if (qflag==true) return;
|
||||
}while (errflag==true);
|
||||
openfile();
|
||||
}while (errflag==true);
|
||||
do
|
||||
{printf ("%s",des);
|
||||
outopte(); /*ausgabe eprom [options]*/
|
||||
inopte(); /*eingabe eprom [options]*/
|
||||
if (qflag==true) return;
|
||||
}while (errflag==true);
|
||||
answer=' ';
|
||||
do
|
||||
{ready(); /*Ready: .....*/
|
||||
if (qflag==true) return;
|
||||
if (mofy==false) readfile();
|
||||
if (errflag==true) {if (qflag==true) return;
|
||||
else {errflag=false;
|
||||
answer=' ';
|
||||
continue;}}
|
||||
if (warning==true) {qflag=true; return;}
|
||||
if (eof==true) {qflag=true; printf ("%s",EOF); return;}
|
||||
if (answer=='y') progprom();
|
||||
else if (answer=='v') verify();
|
||||
else if (answer=='m') modify();
|
||||
else if (answer=='l') {listbuf('f',begadre1,lange1,progbuf);
|
||||
mofy=true;}
|
||||
else if (answer=='t') {crc ('f',progbuf,lange1);
|
||||
mofy=true;}
|
||||
}while (errflag==false);
|
||||
}
|
||||
|
||||
/* l: listing eprom
|
||||
t: crc-test eprom
|
||||
---------------------- */
|
||||
|
||||
list_crc()
|
||||
{
|
||||
bre='s';
|
||||
do
|
||||
{printf ("\n%s",sou);
|
||||
outopte();
|
||||
inopte();
|
||||
if (qflag==true) return;
|
||||
}while (errflag==true);
|
||||
answer=' ';
|
||||
do
|
||||
{ready();
|
||||
if (qflag==true) return;
|
||||
readprom('c',tpe1,begadre1,lange1,progbuf);
|
||||
if (errflag==true) {if (qflag==true) return;
|
||||
else {errflag=false;
|
||||
answer=' ';
|
||||
continue;}}
|
||||
if (command=='l') listprom();
|
||||
else {crcprom();
|
||||
if (warning==0) printf ("%s",per);
|
||||
else printf ("%s",pne);}
|
||||
}while (errflag==false);
|
||||
}
|
||||
|
||||
|
||||
|
||||
/* f: eprom to file
|
||||
--------------------- */
|
||||
|
||||
file()
|
||||
{
|
||||
do
|
||||
{
|
||||
if (next==true) {switch (bre)
|
||||
{
|
||||
case 's': printf ("\n%s",npr); break;
|
||||
case 'l': printf ("\n%s",npl); break;
|
||||
case 'h': printf ("\n%s",nph); break;
|
||||
}
|
||||
gets (cmdbuf);
|
||||
if (cmdbuf[0] != 'y' || cmdbuf[1] != '\0') {qflag=true;
|
||||
return;}}
|
||||
do
|
||||
{printf ("\n%s",sou);
|
||||
outopte();
|
||||
inopte();
|
||||
if (qflag==true) return;
|
||||
}while (errflag==true);
|
||||
if (next==false) {
|
||||
do
|
||||
{printf ("%s",des);
|
||||
outoptf();
|
||||
inoptf();
|
||||
if (qflag==true) return;
|
||||
}while (errflag==true);
|
||||
answer=' ';
|
||||
}
|
||||
do
|
||||
{ready1();
|
||||
if (qflag==true) return;
|
||||
if (mofy==false) {readprom (' ',tpe1,begadre1,lange1,progbuf);
|
||||
if (errflag==true) {if (qflag==true) return;
|
||||
else {errflag=false;
|
||||
answer=' ';
|
||||
continue;}}}
|
||||
if (answer=='y') {promfile(); mofy=false;
|
||||
if (warning==true) {qflag=true; return;}
|
||||
next=true;}
|
||||
else if (answer=='l') {listprom(); mofy=true;}
|
||||
else if (answer=='m') modprom();
|
||||
}while ((errflag==false && next==false) || mofy==true);
|
||||
}while (errflag==false && next==true);
|
||||
}
|
||||
|
||||
|
||||
|
||||
/* b: bytemode eprom
|
||||
---------------------- */
|
||||
|
||||
bytemode()
|
||||
{
|
||||
bre='s';
|
||||
do
|
||||
{printf ("\n%s",sou);
|
||||
outopte();
|
||||
inopte();
|
||||
if (qflag==true) return;
|
||||
}while (errflag==true);
|
||||
answer=' ';
|
||||
do
|
||||
{ready1();
|
||||
if (qflag==true) return;
|
||||
byte();
|
||||
}while (errflag==false);
|
||||
}
|
||||
|
||||
/* c: copy eprom's
|
||||
-------------------- */
|
||||
|
||||
copy()
|
||||
{
|
||||
int c, answer1;
|
||||
|
||||
bre='s';
|
||||
do
|
||||
{printf ("\n%s",sou);
|
||||
outopte();
|
||||
inopte();
|
||||
if (qflag==true) return;
|
||||
}while (errflag==true);
|
||||
tpe2=tpe1;
|
||||
lange2=lange1;
|
||||
begadre2=begadre1;
|
||||
for (c=0;c<20;c++) namee2[c]=namee1[c];
|
||||
do
|
||||
{printf ("%s",des);
|
||||
outopte();
|
||||
inopte();
|
||||
if (tpe1==0 && (begadre1 != 0 || lange1 != 0x400)) {warning=11; outwar();
|
||||
begadre1=0; lange1=0x400;}
|
||||
if (qflag==true) return;
|
||||
}while (errflag==true);
|
||||
|
||||
if (lange1<lange2) lange2=lange1;
|
||||
else lange1=lange2;
|
||||
|
||||
c=tpe1; tpe1=tpe2; tpe2=c;
|
||||
c=lange1; lange1=lange2; lange2=c;
|
||||
c=begadre1; begadre1=begadre2; begadre2=c;
|
||||
for (c=0;c<20;c++) {answer=namee1[c];
|
||||
namee1[c]=namee2[c];
|
||||
namee2[c]=answer;}
|
||||
answer=' ';
|
||||
answer1=' ';
|
||||
do{
|
||||
ready1();
|
||||
if (qflag==true) return;
|
||||
if (mofy==false) {if (answer!='r')
|
||||
{printf ("%s %s",re1,rtr);
|
||||
gets (cmdbuf);
|
||||
if (cmdbuf[1]!='\0') continue;
|
||||
else c=cmdbuf[0];
|
||||
if (c!='y') continue;
|
||||
readprom (' ',tpe1,begadre1,lange1,progbuf);
|
||||
if (errflag==true) {if (qflag==true) return;
|
||||
else {errflag=false;
|
||||
answer=' ';
|
||||
continue;}}}}
|
||||
|
||||
if (answer=='m') {modprom(); continue;}
|
||||
if (answer=='l') {listprom(); mofy=true; continue;}
|
||||
if (answer=='r') {if (answer1==' ') {answer1=answer;
|
||||
continue;}}
|
||||
do{
|
||||
errflag=false;
|
||||
printf ("%s",cte);
|
||||
switch (answer) {
|
||||
case 'y': printf ("%s",rtc); break;
|
||||
case 'v': printf ("%s",rtv); break;
|
||||
case 'r': if (answer1=='y') printf ("%s",rtc);
|
||||
else if (answer1=='v') printf ("%s",rtv);
|
||||
break;
|
||||
default : break;
|
||||
}
|
||||
gets (cmdbuf);
|
||||
if (cmdbuf[1]!='\0') continue;
|
||||
else c=cmdbuf[0];
|
||||
if (c!='y') continue;
|
||||
if (answer=='y') {copyprom(); mofy=false;}
|
||||
else if (answer=='v') {verifyprom(); mofy=false;}
|
||||
else if (answer=='r') {if (answer1=='y') copyprom();
|
||||
else if (answer1=='v') verifyprom();}
|
||||
answer1=answer;
|
||||
}while (errflag==true);
|
||||
}while (errflag==false);
|
||||
}
|
||||
|
||||
|
||||
Loading…
Reference in New Issue