add version : 1.4
This commit is contained in:
Oliver Lehmann
parent
97f943910a
commit
019b4a9ee3
|
|
@ -0,0 +1,488 @@
|
|||
/****************************************************************
|
||||
* *
|
||||
* pburn - eprom programmer *
|
||||
* *
|
||||
* pb1.cmdline.c : wega p8000/16-bit-teil *
|
||||
* *
|
||||
****************************************************************/
|
||||
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#define of1 "filename [-w] [-D] [-os hex] : "
|
||||
#define of2 "filename [-w] [-D] [-ose hex]: "
|
||||
#define op1 "promtype [-ol hex] : "
|
||||
#define op2 "promtype : "
|
||||
#define des " destination "
|
||||
#define sou " source "
|
||||
|
||||
#define true 1
|
||||
#define false 0
|
||||
|
||||
#define rdy "\nready to "
|
||||
#define rpr "\007program:\n"
|
||||
#define rli "list:\n"
|
||||
#define rte "crc:\n"
|
||||
#define rby "bytemode:\n"
|
||||
#define rfi "file:\n"
|
||||
#define rco "\007copy:\n"
|
||||
#define eprom "promtyp "
|
||||
#define fle "file :"
|
||||
#define start "start"
|
||||
#define end "end"
|
||||
#define segment "segment"
|
||||
#define entry "entry"
|
||||
#define byte " byte"
|
||||
#define lob " low byte"
|
||||
#define hib " high byte"
|
||||
|
||||
#define err1 "invalid options\n"
|
||||
#define err2 "multiple defined\n"
|
||||
#define err3 "can't open file\n"
|
||||
#define err4 "end of file\n"
|
||||
#define err5 "not valid object file\n"
|
||||
#define err6 "segment not found in file\n"
|
||||
#define err7 "file not separate I & D\n"
|
||||
#define err8 "file read error\n"
|
||||
#define err9 "file write error\n"
|
||||
#define err10 "bytemode prom e2708 not possible\n"
|
||||
#define err11 "break 'dev/ud' (16-bit/8-bit)\n"
|
||||
#define err12 "invalid prom type\n"
|
||||
#define err13 "\007short-circuit prom\n"
|
||||
|
||||
#define war1 "specified address range contains no code\n"
|
||||
#define war2 "specified address range contains no data\n"
|
||||
#define war3 "specified address range contains no code or data\n"
|
||||
#define war4 "break byte-oriented files\n"
|
||||
#define war5 "break word-oriented files\n"
|
||||
#define war6 "file already exist\n"
|
||||
#define war7 "code top or bottom rounded to 0x"
|
||||
#define war8 "data top or bottom rounded to 0x"
|
||||
#define war9 "prom not erased\n"
|
||||
#define war10 "is prom really 2732, not 2732a ?\n"
|
||||
#define war11 "set address to 0x0000 and set length to 0x0400 for prom e2708\n"
|
||||
#define war12 "end of segment address\n"
|
||||
|
||||
extern int command, qflag, errflag, answer, mofy, offset256;
|
||||
extern char cmdbuf[100];
|
||||
|
||||
/* global vereinbarungen */
|
||||
|
||||
int error; /* identifier error */
|
||||
int warning; /* identifier warnings */
|
||||
int eofseg; /* end of segment */
|
||||
|
||||
/* identifier file
|
||||
--------------- */
|
||||
char namef[80]; /* file name */
|
||||
char bre; /* break wordorientierte files
|
||||
s-standard (byteorientiert)
|
||||
l-low byte
|
||||
h-high byte */
|
||||
char bbre; /* back bre */
|
||||
char sect; /* i/d-files
|
||||
d-data
|
||||
i-code */
|
||||
unsigned segnr; /* segment number */
|
||||
unsigned begadrf; /* begin-adr. file */
|
||||
unsigned langf; /* laenge file */
|
||||
unsigned entryf; /* entry-address file */
|
||||
|
||||
/* identifier eprom
|
||||
---------------- */
|
||||
char namee1[20], namee2[20]; /* eprom name */
|
||||
int tpe1, tpe2; /* type eprom
|
||||
0-e2708
|
||||
1-e2716
|
||||
7-e2732
|
||||
8-e2732a
|
||||
9-e2764 */
|
||||
unsigned begadre1, begadre2; /* begin-adr. eprom */
|
||||
unsigned lange1, lange2; /* laenge eprom */
|
||||
|
||||
|
||||
char bufopt[100];
|
||||
char *ptr;
|
||||
unsigned *pint;
|
||||
unsigned prlang;
|
||||
unsigned bbegadrf, bbegadre1, blangf, blange1;
|
||||
char e2708[] ="e2708";
|
||||
char e2716[] ="e2716";
|
||||
char e2732[] ="e2732";
|
||||
char e2764[] ="e2764";
|
||||
char e2732a[]="e2732a";
|
||||
|
||||
|
||||
/* ausgabe "filename [options]:"
|
||||
----------------------------- */
|
||||
|
||||
outoptf()
|
||||
{ if (command=='p') printf ("%s",of1);
|
||||
else printf ("%s",of2);
|
||||
}
|
||||
|
||||
/* ausgabe "epromtype [options]:"
|
||||
------------------------------ */
|
||||
|
||||
outopte()
|
||||
{
|
||||
if (command=='b') printf ("%s",op2);
|
||||
else printf ("%s",op1);
|
||||
}
|
||||
|
||||
|
||||
/* eingabe filename [options]: " . . . "
|
||||
----------------------------------------- */
|
||||
|
||||
int kennfo,kennfe,kennw,kennD,kenns;
|
||||
inoptf()
|
||||
{
|
||||
bre='s';sect='i';segnr=begadrf=entryf=0;
|
||||
qflag=false;
|
||||
errflag=false;
|
||||
bre='s';sect='i';segnr=0;begadrf=0;
|
||||
kennw=0;kennD=0;kennfo=0;kenns=0;kennfe=0;
|
||||
gets(bufopt);
|
||||
for (ptr=bufopt;*ptr==' ';ptr++);
|
||||
if (*ptr=='\0'||*ptr=='-') {error=1; outerr(); return;}
|
||||
if (*ptr=='q') {qflag=true;return;}
|
||||
sscanf (ptr,"%s",namef);
|
||||
for (;*ptr!=' '&&*ptr!='\0';ptr++);
|
||||
if (*ptr=='\0') return;
|
||||
do
|
||||
{
|
||||
do {
|
||||
for (;*ptr==' ';ptr++);
|
||||
if (*ptr=='\0') {plpfil(); return;}
|
||||
if (*ptr!='-') {error=1; outerr(); return;}
|
||||
ptr++;
|
||||
if (*ptr!='w'&&*ptr!='D'&&*ptr!='o'&&*ptr!='s'&&*ptr!='e') {error=1;outerr();return;}
|
||||
if (*ptr=='w') {if (kennw==0) {kennw=1;bre='l';}
|
||||
else {error=2;outerr();return;}
|
||||
}
|
||||
if (*ptr=='D') {if (kennD==0) {kennD=1;sect='d';}
|
||||
else {error=2;outerr();return;}
|
||||
}
|
||||
if (*ptr=='o') {if (kennfo==0) {pint= &begadrf;kennfo=1;}
|
||||
else {error=2;outerr();return;}
|
||||
}
|
||||
if (*ptr=='s') {if (kenns==0) {pint= &segnr;kenns=1;}
|
||||
else {error=2;outerr();return;}
|
||||
}
|
||||
if (*ptr=='e') {if (kennfe==0) {pint= &entryf;kennfe=1;}
|
||||
else {error=2;outerr();return;}
|
||||
}
|
||||
ptr++;
|
||||
} while (*(ptr-1)=='w'||*(ptr-1)=='D');
|
||||
if (*ptr!=' ') {error=1;outerr();return;}
|
||||
for (;*ptr==' ';ptr++);
|
||||
if (*ptr=='\0') {error=1;outerr();return;}
|
||||
sscanf (ptr,"%x",pint);
|
||||
for (;*ptr!=' '&&*ptr!='\0';ptr++);
|
||||
}while (*ptr==' ');
|
||||
}
|
||||
|
||||
|
||||
|
||||
/* plausibilitaetspruefung eingabe file [options]
|
||||
---------------------------------------------- */
|
||||
plpfil()
|
||||
{
|
||||
if (command!='f') {if (kennfe==1) {error=1;outerr();return;}}
|
||||
else if (command=='b')
|
||||
{if (kennfe==1||kennfo==1||kennD==1||kenns==1||kennw==1)
|
||||
{error=1;outerr();return;}}
|
||||
if (segnr>=0x80) {error=1; outerr(); return;}
|
||||
}
|
||||
|
||||
|
||||
|
||||
/* eingabe epromtype [options]: " . . . "
|
||||
----------------------------------------- */
|
||||
int kenneo,kennel;
|
||||
inopte()
|
||||
{
|
||||
begadre1=lange1=0;
|
||||
qflag=errflag=false;
|
||||
kenneo=kennel=0;
|
||||
gets(bufopt);
|
||||
for (ptr=bufopt;*ptr==' ';ptr++);
|
||||
if (*ptr=='\0'||*ptr=='-') {error=1; outerr(); return;}
|
||||
if (*ptr=='q') {qflag=true; return;}
|
||||
sscanf (ptr,"%s",namee1);
|
||||
for (;*ptr!=' '&&*ptr!='\0';ptr++);
|
||||
if (*ptr=='\0') {plpepr(); return;}
|
||||
do {
|
||||
for (;*ptr==' ';ptr++);
|
||||
if (*ptr=='\0') {plpepr();return;}
|
||||
if (*ptr!='-') {error=1; outerr(); return;}
|
||||
ptr++;
|
||||
if (*ptr!='o'&&*ptr!='l') {error=1; outerr(); return;}
|
||||
if (*ptr=='o') {if (kenneo==0) {pint= &begadre1; kenneo=1;}
|
||||
else {error=2; outerr(); return;}
|
||||
}
|
||||
if (*ptr=='l') {if (kennel==0) {pint= &lange1; kennel=1;}
|
||||
else {error=2; outerr(); return;}
|
||||
}
|
||||
ptr++;
|
||||
if (*ptr!=' ') {error=1; outerr(); return;}
|
||||
for (;*ptr==' ';ptr++);
|
||||
if (*ptr=='\0') {error=1; outerr(); return;}
|
||||
sscanf (ptr,"%x",pint);
|
||||
for (;*ptr!=' '&&*ptr!='\0';ptr++);
|
||||
}while (*ptr==' ');
|
||||
plpepr();
|
||||
}
|
||||
|
||||
|
||||
/* plausibilitaetstest eingabe epromtype [options]: ?
|
||||
--------------------------------------------------------- */
|
||||
|
||||
plpepr()
|
||||
{
|
||||
int i, j;
|
||||
char *vptr;
|
||||
j=0;
|
||||
do
|
||||
{ j++;
|
||||
ptr=namee1;
|
||||
switch (j) {
|
||||
case 1: for (prlang=0x400,tpe1=0,vptr=e2708,i=5;*ptr==*vptr&&i>0;ptr++,vptr++,i--); break;
|
||||
case 2: for (prlang=0x800,tpe1=1,vptr=e2716,i=5;*ptr==*vptr&&i>0;ptr++,vptr++,i--); break;
|
||||
case 3: for (prlang=0x1000,tpe1=8,vptr=e2732a,i=6;*ptr==*vptr&&i>0;ptr++,vptr++,i--); break;
|
||||
case 4: for (prlang=0x1000,tpe1=7,vptr=e2732,i=5;*ptr==*vptr&&i>0;ptr++,vptr++,i--); break;
|
||||
case 5: for (prlang=0x2000,tpe1=9,vptr=e2764,i=5;*ptr==*vptr&&i>0;ptr++,vptr++,i--); break;
|
||||
case 6: i=0; error=1; outerr(); return;
|
||||
}
|
||||
}while (i!=0 || *ptr != '\0');
|
||||
if (tpe1==7) {warning=10; outwar();
|
||||
if (warning==true) {printf ("\n"); errflag=true; return;}}
|
||||
if (command=='b' && tpe1==0) {error=10; outerr(); return;}
|
||||
if (begadre1>=prlang) {error=1; outerr(); return;}
|
||||
if ((begadre1+lange1)>prlang) {error=1; outerr(); return;}
|
||||
if (lange1==0) lange1=prlang-begadre1;
|
||||
if (command=='p' && tpe1==0 && (begadre1 != 0 || lange1 != 0x400))
|
||||
{warning=11; outwar();
|
||||
begadre1=0; lange1=0x400;}
|
||||
langf=lange1;
|
||||
if (bre!='s') langf=langf+langf;
|
||||
if (command=='b') {if (kenneo==1||kennel==1)
|
||||
{error=1; outerr(); return;}}
|
||||
bbegadrf=begadrf; bbegadre1=begadre1;
|
||||
blangf=langf; blange1=lange1; bbre=bre;
|
||||
}
|
||||
|
||||
/* ausgabe "ready: . . . " (program,test,list)
|
||||
------------------------------------------- */
|
||||
|
||||
ready()
|
||||
{
|
||||
unsigned ende, endf;
|
||||
|
||||
do
|
||||
{
|
||||
if (eofseg==1 && (answer=='y' || answer=='s')) {qflag=true; return;}
|
||||
if (answer=='r') {begadrf=bbegadrf; begadre1=bbegadre1;
|
||||
langf=blangf; lange1=blange1; bre=bbre;
|
||||
mofy=false;
|
||||
endf=begadrf+langf;
|
||||
ende=begadre1+lange1;
|
||||
if (ende>prlang)
|
||||
{lange1=prlang-begadre1;
|
||||
if (bre=='s') endf=begadrf+lange1;
|
||||
else endf=begadrf+lange1+lange1;
|
||||
langf=endf-begadrf;
|
||||
ende=lange1+begadre1;}}
|
||||
else {
|
||||
if (answer==' '||answer=='l'||answer=='m'||answer=='t')
|
||||
{ende=begadre1+lange1; endf=begadrf+langf;}
|
||||
else {mofy=false;
|
||||
bbre=bre;
|
||||
switch (bre)
|
||||
{
|
||||
case 's': break;
|
||||
case 'l': bre='h'; break;
|
||||
case 'h': bre='l'; break;
|
||||
}
|
||||
bbegadrf=begadrf; bbegadre1=begadre1;
|
||||
blangf=langf; blange1=lange1;
|
||||
if (bre!='h') {begadrf=begadrf+langf;
|
||||
begadre1=begadre1+lange1;
|
||||
if (begadre1>=prlang) {begadre1=0;
|
||||
lange1=prlang;
|
||||
if (bre=='s') langf=lange1;
|
||||
else langf=lange1+lange1;}}
|
||||
|
||||
endf=begadrf+langf;
|
||||
ende=begadre1+lange1;
|
||||
if (ende>prlang)
|
||||
{lange1=prlang-begadre1;
|
||||
if (bre=='s') endf=begadrf+lange1;
|
||||
else endf=begadrf+lange1+lange1;
|
||||
langf=endf-begadrf;
|
||||
ende=lange1+begadre1;}
|
||||
}
|
||||
if (command=='p')
|
||||
{if (endf<begadrf) {langf=0xffff - begadrf;
|
||||
if (bre != 's') lange1=langf/2;
|
||||
else lange1=langf;
|
||||
endf=begadrf+langf;
|
||||
ende=begadre1+lange1;}
|
||||
if (endf==0xffff && bre != 'l')
|
||||
{eofseg=1;
|
||||
warning=12;
|
||||
outwar();}}
|
||||
}
|
||||
do
|
||||
{
|
||||
printf ("%s",rdy);
|
||||
switch (command) {
|
||||
case 'p': printf ("%s",rpr); break;
|
||||
case 'l': printf ("%s",rli); break;
|
||||
case 't': printf ("%s",rte); break;}
|
||||
|
||||
if (command=='p') {
|
||||
printf ("%s %s %s %s %x %s %x %s %x",sou,fle,namef,segment,segnr,start,begadrf,end,(endf-1));
|
||||
if (bre=='l') printf ("%s \n",lob);
|
||||
else if (bre=='h') printf ("%s \n",hib);
|
||||
else printf ("%s \n",byte);
|
||||
printf ("%s %s: %s %s %x %s %x %s",des,eprom,namee1,start,begadre1,end,(ende-1),byte);}
|
||||
else printf ("%s %s: %s %s %x %s %x %s",sou,eprom,namee1,start,begadre1,end,(ende-1),byte);
|
||||
|
||||
if (command=='p') printf (" ?(y/r/s/m/v/l/t/q)");
|
||||
else printf (" ?(y/r/s/q)");
|
||||
|
||||
gets (cmdbuf);
|
||||
if (cmdbuf[1]!='\0') answer='w';
|
||||
else answer=cmdbuf[0];
|
||||
switch (answer){
|
||||
case 'q': qflag=true; break;
|
||||
case 'y':
|
||||
case 's':
|
||||
case 'r': break;
|
||||
case 'l':
|
||||
case 't':
|
||||
case 'm':
|
||||
case 'v': if (command!='p') answer='w';
|
||||
break;
|
||||
default: answer='w';
|
||||
}
|
||||
}while (answer=='w');
|
||||
}while (answer=='s' || answer=='r');
|
||||
|
||||
}
|
||||
|
||||
/* ausgabe "ready to ........" (bytemode, file, copy)
|
||||
-------------------------------------------------- */
|
||||
|
||||
|
||||
ready1()
|
||||
{
|
||||
unsigned ende1, ende2, endf;
|
||||
|
||||
if (eofseg==1) {qflag=true; return;}
|
||||
|
||||
langf=prlang;
|
||||
if (bre != 's') langf=langf+langf;
|
||||
|
||||
ende1=begadre1+lange1; ende2=begadre2+lange2;
|
||||
if (command=='f' && answer=='y') {if (bre == 's') begadrf=begadrf+langf;}
|
||||
if (command=='f') {endf=begadrf+langf;
|
||||
if (endf<begadrf) {lange1=0xffff - begadrf;
|
||||
|
||||
lange1=lange1+1;
|
||||
eofseg=1;
|
||||
warning=12; outwar();
|
||||
endf=begadrf+lange1;
|
||||
ende1=begadre1+lange1;}
|
||||
}
|
||||
do
|
||||
{printf ("%s",rdy);
|
||||
if (command=='b') {printf ("%s",rby);
|
||||
printf ("%s %s: %s",sou,eprom,namee1);
|
||||
printf (" ?(y/q)");}
|
||||
else if (command=='f') {printf ("%s",rfi);
|
||||
printf ("%s %s: %s %s %x %s %x %s",sou,eprom,namee1,start,begadre1,end,(ende1-1),byte);
|
||||
switch (bre)
|
||||
{
|
||||
case 's': printf ("\n"); break;
|
||||
case 'l': printf (" low_addess\n"); break;
|
||||
case 'h': printf (" high_address\n"); break;
|
||||
}
|
||||
printf ("%s %s %s %s %x %s %x %s %x %s %x",des,fle,namef,segment,segnr,entry,entryf,start,begadrf,end,(endf-1));
|
||||
printf (" ?(y/m/l/q)");}
|
||||
else if (command=='c') {printf ("%s",rco);
|
||||
printf ("%s %s: %s %s %x %s %x %s\n",sou,eprom,namee1,start,begadre1,end,(ende1-1),byte);
|
||||
printf ("%s %s: %s %s %x %s %x %s",des,eprom,namee2,start,begadre2,end,(ende2-1),byte);
|
||||
printf (" ?(y/l/m/v/r/q)");}
|
||||
gets (cmdbuf);
|
||||
if (cmdbuf[1]!='\0') answer='w';
|
||||
else answer=cmdbuf[0];
|
||||
switch (answer) {
|
||||
case 'q': qflag=true; break;
|
||||
case 'y': break;
|
||||
case 'm': if (command=='b') answer='w'; break;
|
||||
case 't':
|
||||
case 'l': if (command=='b') answer='w'; break;
|
||||
case 'v':
|
||||
case 'r': if (command=='b'||command=='f') answer='w'; break;
|
||||
default : answer='w';
|
||||
}
|
||||
}while (answer=='w');
|
||||
}
|
||||
|
||||
|
||||
/* ausgabe errors
|
||||
-------------- */
|
||||
|
||||
outerr()
|
||||
{
|
||||
errflag=true;
|
||||
printf ("*** error - ");
|
||||
switch(error){
|
||||
case 1: printf ("%s",err1); break;
|
||||
case 2: printf ("%s",err2); break;
|
||||
case 3: printf ("%s",err3); break;
|
||||
case 4: printf ("%s",err4); break;
|
||||
case 5: printf ("%s",err5); break;
|
||||
case 6: printf ("%s",err6); break;
|
||||
case 7: printf ("%s",err7); break;
|
||||
case 8: printf ("%s",err8); break;
|
||||
case 9: printf ("%s",err9); break;
|
||||
case 10: printf ("%s",err10); break;
|
||||
case 11: printf ("%s",err11); qflag=true; break;
|
||||
case 12: printf ("%s",err12); break;
|
||||
case 13: printf ("%s",err13); break;
|
||||
}
|
||||
}
|
||||
|
||||
/* ausgabe warnings
|
||||
---------------- */
|
||||
|
||||
outwar()
|
||||
{
|
||||
int c;
|
||||
printf ("\n*** warning - ");
|
||||
switch (warning)
|
||||
{
|
||||
case 1: printf ("%s",war1); break;
|
||||
case 2: printf ("%s",war2); break;
|
||||
case 3: printf ("%s",war3); break;
|
||||
case 4: printf ("%s",war4); break;
|
||||
case 5: printf ("%s",war5); break;
|
||||
case 6: printf ("%s",war6); break;
|
||||
case 7: printf ("%s%x\n",war7,offset256); warning=false; return;
|
||||
case 8: printf ("%s%x\n",war8,offset256); warning=false; return;
|
||||
case 9: printf ("%s",war9); break;
|
||||
case 10: printf ("%s",war10); break;
|
||||
case 11: printf ("%s",war11); warning=false; return;
|
||||
case 12: printf ("%s",war12); warning=false; return;
|
||||
}
|
||||
printf ("\007continue ?");
|
||||
gets (cmdbuf);
|
||||
if (cmdbuf[1]!='\0') c='w';
|
||||
else c=cmdbuf[0];
|
||||
if (c=='y') warning=false;
|
||||
else warning=true;
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue