chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add version : 2.3

This commit is contained in:
Oliver Lehmann 1989-11-17 12:19:54 +00:00
parent 336f7c17fb
commit a560d10b55
1 changed files with 38 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
WEGA/src/cmd/pburn/pb.command.c
View File

@ -2,7 +2,7 @@
* * * *
* pburn - eprom programmer * * pburn - eprom programmer *
* * * *
* pb1.command.c : wega p8000/16-bit-teil * * pb2.command.c : wega p8000/16-bit-teil *
* * * *
****************************************************************/ ****************************************************************/
@ -25,9 +25,9 @@
extern int qflag, errflag, warning, mofy, answer, command, eof, next; extern int qflag, errflag, warning, mofy, answer, command, eof, next;
extern int tpe1, tpe2; extern int tpe1, tpe2;
extern char bre, progbuf[0x2000]; extern char bre, progbuf[0xfffe], progffff, erase, board;
extern char namee1[20], namee2[20], cmdbuf[100]; extern char namee1[20], namee2[20], cmdbuf[100];
extern unsigned begadre1, begadre2, lange1, lange2, begadrf; extern long begadre1, begadre2, lange1, lange2, begadrf;
/* p: programming eprom /* p: programming eprom
------------------------- */ ------------------------- */
@ -44,7 +44,9 @@ program()
}while (errflag==true); }while (errflag==true);
do do
{printf ("%s",des); {printf ("%s",des);
outopte(); /*ausgabe eprom [options]*/ /*ausgabe eprom [options]*/
if (board=='1') outopte();
else outopte1();
inopte(); /*eingabe eprom [options]*/ inopte(); /*eingabe eprom [options]*/
if (qflag==true) return; if (qflag==true) return;
}while (errflag==true); }while (errflag==true);
@ -62,9 +64,9 @@ program()
if (answer=='y') progprom(); if (answer=='y') progprom();
else if (answer=='v') verify(); else if (answer=='v') verify();
else if (answer=='m') modify(); else if (answer=='m') modify();
else if (answer=='l') {listbuf('f',begadre1,lange1,progbuf); else if (answer=='l') {listbuf('f',begadre1,lange1,progbuf,&progffff);
mofy=true;} mofy=true;}
else if (answer=='t') {crc ('f',progbuf,lange1); else if (answer=='t') {crc ('t',progbuf,lange1,&progffff);
mofy=true;} mofy=true;}
}while (errflag==false); }while (errflag==false);
} }
@ -86,15 +88,25 @@ list_crc()
do do
{ready(); {ready();
if (qflag==true) return; if (qflag==true) return;
readprom('c',tpe1,begadre1,lange1,progbuf); if (command=='l')
if (errflag==true) {if (qflag==true) return; {
else {errflag=false; readprom(tpe1,begadre1,lange1,progbuf,&progffff);
answer=' '; if (errflag==true) {if (qflag==true) return;
continue;}} else {errflag=false;
if (command=='l') listprom(); answer=' ';
else {crcprom(); continue;}}
if (warning==0) printf ("%s",per); listprom();
else printf ("%s",pne);} }
else {
promcrc (tpe1,begadre1,lange1);
if (errflag==true) {if (qflag==true) return;
else {errflag=false;
answer=' ';
continue;}}
crcprom('e');
if (erase==0) printf ("%s",per);
else printf ("%s",pne);
}
}while (errflag==false); }while (errflag==false);
} }
@ -134,7 +146,7 @@ file()
do do
{ready1(); {ready1();
if (qflag==true) return; if (qflag==true) return;
if (mofy==false) {readprom (' ',tpe1,begadre1,lange1,progbuf); if (mofy==false) {readprom (tpe1,begadre1,lange1,progbuf,&progffff);
if (errflag==true) {if (qflag==true) return; if (errflag==true) {if (qflag==true) return;
else {errflag=false; else {errflag=false;
answer=' '; answer=' ';
@ -158,7 +170,8 @@ bytemode()
bre='s'; bre='s';
do do
{printf ("\n%s",sou); {printf ("\n%s",sou);
outopte(); if (board=='1') outopte();
else outopte1();
inopte(); inopte();
if (qflag==true) return; if (qflag==true) return;
}while (errflag==true); }while (errflag==true);
@ -175,7 +188,8 @@ bytemode()
copy() copy()
{ {
int c, answer1; int answer1;
long c;
bre='s'; bre='s';
do do
@ -190,7 +204,8 @@ int c, answer1;
for (c=0;c<20;c++) namee2[c]=namee1[c]; for (c=0;c<20;c++) namee2[c]=namee1[c];
do do
{printf ("%s",des); {printf ("%s",des);
outopte(); if (board=='1') outopte();
else outopte1();
inopte(); inopte();
if (tpe1==0 && (begadre1 != 0 || lange1 != 0x400)) {warning=11; outwar(); if (tpe1==0 && (begadre1 != 0 || lange1 != 0x400)) {warning=11; outwar();
begadre1=0; lange1=0x400;} begadre1=0; lange1=0x400;}
@ -217,7 +232,7 @@ int c, answer1;
if (cmdbuf[1]!='\0') continue; if (cmdbuf[1]!='\0') continue;
else c=cmdbuf[0]; else c=cmdbuf[0];
if (c!='y') continue; if (c!='y') continue;
readprom (' ',tpe1,begadre1,lange1,progbuf); readprom (tpe1,begadre1,lange1,progbuf,&progffff);
if (errflag==true) {if (qflag==true) return; if (errflag==true) {if (qflag==true) return;
else {errflag=false; else {errflag=false;
answer=' '; answer=' ';
@ -225,14 +240,13 @@ int c, answer1;
if (answer=='m') {modprom(); continue;} if (answer=='m') {modprom(); continue;}
if (answer=='l') {listprom(); mofy=true; continue;} if (answer=='l') {listprom(); mofy=true; continue;}
if (answer=='r') {if (answer1==' ') {answer1=answer; if (answer=='r') {if (answer1==' ') continue;}
continue;}}
do{ do{
errflag=false; errflag=false;
printf ("%s",cte); printf ("%s",cte);
switch (answer) { switch (answer) {
case 'y': printf ("%s",rtc); break; case 'y': printf ("%s",rtc); answer1=answer; break;
case 'v': printf ("%s",rtv); break; case 'v': printf ("%s",rtv); answer1=answer; break;
case 'r': if (answer1=='y') printf ("%s",rtc); case 'r': if (answer1=='y') printf ("%s",rtc);
else if (answer1=='v') printf ("%s",rtv); else if (answer1=='v') printf ("%s",rtv);
break; break;
@ -246,7 +260,6 @@ int c, answer1;
else if (answer=='v') {verifyprom(); mofy=false;} else if (answer=='v') {verifyprom(); mofy=false;}
else if (answer=='r') {if (answer1=='y') copyprom(); else if (answer=='r') {if (answer1=='y') copyprom();
else if (answer1=='v') verifyprom();} else if (answer1=='v') verifyprom();}
answer1=answer;
}while (errflag==true); }while (errflag==true);
}while (errflag==false); }while (errflag==false);
} }