114 lines
2.8 KiB
C
114 lines
2.8 KiB
C
/*************************************************************************
|
|
**************************************************************************
|
|
|
|
pburn - programmer (c) zft/keaw abt.: basissoftware wae
|
|
wega p8000/16-bit-teil
|
|
version : 1.4
|
|
datum : 04.01.1989
|
|
|
|
bearbeiter: r. kuehle
|
|
|
|
**************************************************************************
|
|
|
|
pburn besteht aus c-quellen, plzsys-quellen und u880 (z80) assembler-
|
|
quellen.
|
|
folgende quellen sind erforderlich:
|
|
|
|
wega p8000/16-bit-teil:
|
|
-----------------------
|
|
pb1.c (c)
|
|
pb1.command.c (c)
|
|
pb1.cmdline.c (c)
|
|
pb1.file.c (c)
|
|
pb1.buf.c (c)
|
|
pb1.devud.c (c)
|
|
|
|
udos p8000/8-bit-teil:
|
|
----------------------
|
|
PB1.PROM.S (plzsys)
|
|
PB1.P8000.S (z80)
|
|
|
|
**************************************************************************
|
|
*************************************************************************/
|
|
|
|
|
|
/************************************************************************
|
|
* *
|
|
* pburn - prom programmer *
|
|
* *
|
|
* pb1.c : wega p8000 16-bit-teil *
|
|
* c-quelle *
|
|
* *
|
|
************************************************************************/
|
|
|
|
|
|
|
|
|
|
#define dia1 "\n\n\t\t pburn - prom programmer\n"
|
|
#define cpr "\t\t (c) zft/keaw 04.01.1989/v 1.4\n"
|
|
#define dia2 "\t\t =============================\n\n"
|
|
#define dia3 "menue:\n\tp - program\n\tl - list\n\tt - crc\n\tb - bytemode"
|
|
#define dia4 "\n\tf - file\n\tc - copy"
|
|
#define dia5 "\n\tq - quit\nselect ?:"
|
|
|
|
#define selp "\n\np: programming prom\n"
|
|
#define sell "\n\nl: listing prom\n"
|
|
#define selt "\n\nt: crc-test prom\n"
|
|
#define selb "\n\nb: bytemode prom\n"
|
|
#define self "\n\nf: file prom\n"
|
|
#define selc "\n\nc: copy prom's\n"
|
|
|
|
#define true 1
|
|
#define false 0
|
|
|
|
|
|
/* global definitionen */
|
|
|
|
int command; /*kommando aus menue*/
|
|
int qflag; /*qflag=true rueckkehr in menue*/
|
|
int errflag; /*error flag*/
|
|
int answer; /*antwort ready:.... ?*/
|
|
int eof; /*end of file*/
|
|
int mofy; /*modify flag*/
|
|
int next; /*next prom prom to file*/
|
|
char cmdbuf[100];
|
|
|
|
extern int fd, fd1; /*file descriptoren*/
|
|
extern int cfd, cfd1;
|
|
extern int eofseg;
|
|
|
|
|
|
main()
|
|
{
|
|
|
|
|
|
do {
|
|
printf ("%s %s %s %s %s %s",dia1,cpr,dia2,dia3,dia4,dia5);
|
|
cfd=false;
|
|
cfd1=false;
|
|
eofseg=false;
|
|
mofy=false;
|
|
next=false;
|
|
gets (cmdbuf);
|
|
if (cmdbuf[1]!='\0') command='w';
|
|
else command=cmdbuf[0];
|
|
switch (command){
|
|
case 'p': printf ("%s",selp); program();
|
|
if (cfd==1) close (fd);
|
|
break;
|
|
case 'l': printf ("%s",sell); list_crc(); break;
|
|
case 't': printf ("%s",selt); list_crc(); break;
|
|
case 'b': printf ("%s",selb); bytemode(); break;
|
|
case 'f': printf ("%s",self); file();
|
|
if (cfd1==1) header_file();
|
|
break;
|
|
case 'c': printf ("%s",selc); copy(); break;
|
|
case 'q': qflag=false; break;
|
|
default: qflag=true;
|
|
}
|
|
}while (qflag==true);
|
|
printf ("\n");
|
|
|
|
|
|
}
|