int sc3000_exec(char *target)
{
char filename[FILENAME_MAX+1];
char wavfile[FILENAME_MAX+1];
char name[17];
FILE *fpin, *fpout;
long pos, value;
int c, i, len, blocklen;
int screen_size;
if ( help )
return -1;
if ( binname == NULL || ( crtfile == NULL && origin == -1 ) ) {
return -1;
}
if ( outfile == NULL ) {
strcpy(filename,binname);
suffix_change(filename,".tap");
} else {
strcpy(filename,outfile);
}
if ( blockname == NULL )
blockname = binname;
if ( origin != -1 ) {
pos = origin;
} else {
if ( !sf7000 )
if ( ( pos = parameter_search(crtfile,".sym","myzorg") ) == -1 ) {
myexit("Could not find parameter ZORG (not z88dk compiled?)\n",1);
}
}
if ( (fpin=fopen(binname,"rb") ) == NULL ) {
fprintf(stderr,"Can't open input file %s\n",binname);
myexit(NULL,1);
}
/*
* Now we try to determine the size of the file
* to be converted
*/
if (fseek(fpin,0,SEEK_END)) {
fclose(fpin);
myexit("Couldn't determine size of file\n",1);
}
len=ftell(fpin);
fseek(fpin,0,SEEK_SET);
if ( (fpout=fopen(filename,"wb") ) == NULL ) {
fprintf(stderr,"Can't open output file %s\n",filename);
myexit(NULL,1);
}
/* Write out the .tap file */
if ( sf7000 ) {
/* CLOADM mode header type */
writeword(24,fpout); /* header block size */
fputc(0x26,fpout); /* M/C header type (SF-7000 only) */
/* Deal with the filename */
checksum = 255;
if (strlen(blockname) >= 16 ) {
strncpy(name,blockname,16);
} else {
strcpy(name,blockname);
strncat(name," ",16-strlen(blockname));
}
for (i=0;i<=15;i++)
writebyte_cksum(name[i],fpout,&checksum);
/* len */
writebyte_cksum(len/256,fpout,&checksum); /* MSB */
writebyte_cksum(len%256,fpout,&checksum); /* LSB */
/* start */
writebyte_cksum(pos/256,fpout,&checksum); /* MSB */
writebyte_cksum(pos%256,fpout,&checksum); /* LSB */
fputc((checksum%256)^0xff,fpout);
/* extra dummy data to prevent read overflows */
fputc(0,fpout);
fputc(0,fpout);
/* CLOADM object file body*/
writeword(len+4,fpout); /* header block size */
fputc(0x27,fpout); /* M/C data block type */
checksum = 255;
for (i=0; i<len;i++) {
c=getc(fpin);
writebyte_cksum(c,fpout,&checksum);
}
fputc((checksum%256)^0xff,fpout);
/* extra dummy data to prevent read overflows */
fputc(0,fpout);
fputc(0,fpout);
fclose(fpin);
fclose(fpout);
} else {
/* BASIC loader header */
writeword(22,fpout); /* header block size */
fputc(0x16,fpout); /* BASIC header type */
/* Deal with the filename */
checksum = 255;
if (strlen(blockname) >= 16 ) {
strncpy(name,blockname,16);
} else {
strcpy(name,blockname);
strncat(name," ",16-strlen(blockname));
}
for (i=0;i<=15;i++)
writebyte_cksum(name[i],fpout,&checksum);
/* len */
writebyte_cksum((24+len)/256,fpout,&checksum); /* MSB */
writebyte_cksum((24+len)%256,fpout,&checksum); /* LSB */
fputc((checksum%256)^0xff,fpout);
/* extra dummy data to prevent read overflows */
fputc(0,fpout);
fputc(0,fpout);
/* BASIC loader body */
writeword(24+len+4,fpout); /* header block size */
fputc(0x17,fpout); /* BASIC block type */
checksum = 255;
/* PROGRAM LINE #1 */
writebyte_cksum(8,fpout,&checksum); /* prg line length */
writebyte_cksum(1,fpout,&checksum); /* prg line number */
writebyte_cksum(0,fpout,&checksum);
writebyte_cksum(0,fpout,&checksum);
writebyte_cksum(0,fpout,&checksum);
/* Line size count starts here */
writebyte_cksum(174,fpout,&checksum); /* CALL */
writebyte_cksum(' ',fpout,&checksum);
writebyte_cksum('&',fpout,&checksum);
writebyte_cksum('H',fpout,&checksum);
writebyte_cksum('9',fpout,&checksum);
writebyte_cksum('8',fpout,&checksum);
writebyte_cksum('1',fpout,&checksum);
writebyte_cksum('7',fpout,&checksum);
writebyte_cksum(':',fpout,&checksum);
writebyte_cksum(151,fpout,&checksum); /* STOP */
/* Line size count ends here */
writebyte_cksum(13,fpout,&checksum); /* CR */
/* PROGRAM LINE #2 (code inside) */
writebyte_cksum(6,fpout,&checksum); /* prg line length (just a fake value) */
writebyte_cksum(2,fpout,&checksum); /* prg line number */
writebyte_cksum(0,fpout,&checksum);
writebyte_cksum(0,fpout,&checksum);
writebyte_cksum(0,fpout,&checksum);
/* Line size count starts here */
writebyte_cksum(144,fpout,&checksum); /* REM */
writebyte_cksum(' ',fpout,&checksum);
/* CODE (location $9817) */
for (i=0; i<len;i++) {
c=getc(fpin);
writebyte_cksum(c,fpout,&checksum);
}
/* Line size count ends here */
writebyte_cksum(13,fpout,&checksum); /* CR */
fputc((checksum%256)^0xff,fpout);
/* extra dummy data to prevent read overflows */
fputc(0,fpout);
fputc(0,fpout);
}
fclose(fpin);
fclose(fpout);
/* ***************************************** */
/* Now, if requested, create the audio file */
/* ***************************************** */
if (( audio ) || ( fast )) {
if ( (fpin=fopen(filename,"rb") ) == NULL ) {
fprintf(stderr,"Can't open file %s for wave conversion\n",filename);
myexit(NULL,1);
}
if (fseek(fpin,0,SEEK_END)) {
fclose(fpin);
myexit("Couldn't determine size of file\n",1);
}
len=ftell(fpin);
fseek(fpin,0,SEEK_SET);
strcpy(wavfile,filename);
if ( survivors )
suffix_change(wavfile,".bit");
else
suffix_change(wavfile,".RAW");
if ( (fpout=fopen(wavfile,"wb") ) == NULL ) {
fprintf(stderr,"Can't open output raw audio file %s\n",wavfile);
myexit(NULL,1);
}
/* leading silence */
if ( survivors ) {
for (i=0; i < 30; i++)
fputc(' ', fpout);
} else {
for (i=0; i < 0x3000; i++)
fputc(0x20, fpout);
}
/* Data blocks */
while (ftell(fpin) < len) {
/* leader tone (3600 records of bit 1) */
for (i=0; i < 3600; i++)
sc3000_bit (fpout,1);
/* data block */
blocklen = (getc(fpin) + 256 * getc(fpin));
for (i=0; (i < blocklen); i++) {
c=getc(fpin);
sc3000_rawout(fpout,c);
}
}
/* trailing silence */
if ( survivors ) {
for (i=0; i < 100; i++)
fputc(' ', fpout);
} else {
for (i=0; i < 0x10000; i++)
fputc(0x20, fpout);
}
fclose(fpin);
fclose(fpout);
/* Now complete with the WAV header */
if ( !survivors )
raw2wav(wavfile);
}
exit(0);
}
int gal_exec(char *target)
{
char filename[FILENAME_MAX+1];
char wavfile[FILENAME_MAX+1];
int c,i,j;
int len;
unsigned long checksum;
FILE *fpin, *fpout;
char basicdef[] = "\001\000A=USR(&2C3A)\015";
int basicdeflen=15;
int datalen;
if ( help )
return -1;
if ( binname == NULL || !dumb && ( crtfile == NULL && origin == -1 ) ) {
return -1;
}
if (loud) {
gal_h_lvl = 0xFF;
gal_l_lvl = 0;
} else {
gal_h_lvl = 0xe0;
gal_l_lvl = 0x20;
}
if (dumb) {
strcpy(filename,binname);
} else {
if ( outfile == NULL ) {
strcpy(filename,binname);
suffix_change(filename,".gtp");
} else {
strcpy(filename,outfile);
}
if ( blockname == NULL )
blockname = binname;
/* Tomaz's code insertion starts here */
#if 0
/* basic start addr */
h2le_short(0x2c3a+len, &data[0]);
/* basic end addr */
h2le_short(0x2c3a+len+basiclen, &data[2]);
#endif
if ( (fpin=fopen(binname,"rb") ) == NULL ) {
myexit("File open error\n",1);
}
if (fseek(fpin,0,SEEK_END)) {
fclose(fpin);
myexit("Couldn't determine size of file\n",1);
}
len=ftell(fpin);
fseek(fpin,0L,SEEK_SET);
datalen=4+len+basicdeflen;
if ( (fpout=fopen(filename,"wb") ) == NULL ) {
printf("Can't open output file %s\n",filename);
myexit(NULL,1);
}
/* **** GTP Header **** */
/* *** Name block *** */
fputc(GTP_BLOCK_NAME,fpout); /* Block ID: NAME */
writeword(strlen(blockname)+1,fpout); /* NAME block size */
fputc(0,fpout);
fputc(0,fpout);
for (i=0; i<=strlen(blockname);i++) { /* block name string */
fputc(blockname[i],fpout);
}
/* *** Data block *** */
fputc(GTP_BLOCK_STANDARD,fpout); /* Block ID: STD SPEED DATA */
writeword(datalen+6,fpout); /* block size */
fputc(0,fpout);
fputc(0,fpout);
checksum=0; /* Init checksum */
writebyte_cksum(0xa5,fpout, &checksum);
writeword_cksum(0x2c36,fpout, &checksum); /* ORG address */
writeword_cksum(0x2c36+datalen,fpout, &checksum); /* block end location */
writeword_cksum(0x2c36+4+len,fpout, &checksum); /* BASIC start address */
writeword_cksum(0x2c36+datalen,fpout, &checksum); /* block end location */
/* binary file */
for (i=0; i<len;i++) {
c=getc(fpin);
writebyte_cksum(c, fpout, &checksum);
/* fputc(c,fpout);*/
}
/* basic */
for (i=0; i<basicdeflen;i++) { /* block name string */
writebyte_cksum(basicdef[i], fpout, &checksum);
/*fputc(basicdef[i],fpout);*/
}
writebyte(255-(checksum%256),fpout); /* data checksum */
fclose(fpin);
fclose(fpout);
}
/* ***************************************** */
/* Now, if requested, create the audio file */
/* ***************************************** */
if (( audio ) || ( fast ) || (loud)) {
if ( (fpin=fopen(filename,"rb") ) == NULL ) {
fprintf(stderr,"Can't open file %s for wave conversion\n",filename);
myexit(NULL,1);
}
if (fseek(fpin,0,SEEK_END)) {
fclose(fpin);
myexit("Couldn't determine size of file\n",1);
}
len=ftell(fpin);
fseek(fpin,0,SEEK_SET);
strcpy(wavfile,filename);
suffix_change(wavfile,".RAW");
if ( (fpout=fopen(wavfile,"wb") ) == NULL ) {
fprintf(stderr,"Can't open output raw audio file %s\n",wavfile);
myexit(NULL,1);
}
/* leading silence and tone*/
for (i=0; i < 0x5000; i++)
fputc(0x80, fpout);
/* sync */
gal_rawout(fpout,0);
/* program block */
if (len > 0) {
for (i=0; i<len;i++) {
c=getc(fpin);
gal_rawout(fpout,c);
}
}
/* trailing tone and silence (probably not necessary) */
/*
gal_bit(fpout,0);
gal_tone(fpout);
for (i=0; i < 0x10000; i++)
fputc(0x80, fpout);
*/
fclose(fpin);
fclose(fpout);
/* Now complete with the WAV header */
raw2wav(wavfile);
} /* END of WAV CONVERSION BLOCK */
exit(0);
}
int newbrain_exec()
{
char filename[FILENAME_MAX+1];
FILE *fpin, *fpout, *fpout2;
int pos;
int c;
int i,p,l,b;
int len;
int lnum;
int blocks;
int blcount;
unsigned long checksum;
if ( help || binname == NULL || ( crtfile == NULL && origin == -1 ) ) {
return -1;
}
if ( blockname == NULL ) blockname = binname;
if ( outfile == NULL ) {
strcpy(filename,binname);
suffix_change(filename,".txt");
} else {
strcpy(filename,outfile);
}
if ( origin != -1 ) {
pos = origin;
} else {
if ( ( pos = parameter_search(crtfile,".sym","MYZORG") ) == -1 ) {
myexit("Could not find parameter ZORG (not z88dk compiled?)\n",1);
}
}
if ( (fpin=fopen(binname,"rb") ) == NULL ) {
fprintf(stderr,"Can't open input file %s\n",binname);
myexit(NULL,1);
}
/*
* Now we try to determine the size of the file
* to be converted
*/
if (fseek(fpin,0,SEEK_END)) {
fclose(fpin);
myexit("Couldn't determine size of file\n",1);
}
len=ftell(fpin);
fseek(fpin,0L,SEEK_SET);
if ( ascii ) {
/* All in a BASIC program */
if ( (fpout=fopen(filename,"w") ) == NULL ) {
printf("Can't open output text format file %s\n",filename);
myexit(NULL,1);
}
fprintf(fpout,"10 IF TOP>%i THEN RESERVE TOP-%i\n",pos-1,pos-1);
fprintf(fpout,"20 FOR i=0TO%i:READa:POKE%i+i,a:NEXT i\n",len-1,pos);
fprintf(fpout,"30 CALL%i\n",pos);
fprintf(fpout,"40 END",pos);
lnum=100;
/* ... M/C ...*/
for (i=0; i<len;i++) {
if ((i % 60) == 0) {
fprintf(fpout,"\n");
fprintf(fpout,"%i DATA ",lnum);
lnum=lnum+2;
}
else
fputc(',',fpout);
c=getc(fpin);
fprintf(fpout,"%i",c);
}
fprintf(fpout,"\n");
fclose(fpin);
fclose(fpout);
}
else /* Much more efficient LOADER */
{
/* binary block */
suffix_change(filename,".dat");
if ( (fpout2=fopen(filename,"wb") ) == NULL ) {
printf("Can't open output dat Binary file %s\n",filename);
myexit(NULL,1);
}
checksum=0x3b; /* Init checksum */
fputc (0,fpout2);
writeword_cksum(strlen(blockname), fpout2, &checksum);
for (i=0; i<strlen(blockname); i++) {
fputc (blockname[i],fpout2);
checksum += blockname[i];
}
writebyte_cksum(0x81, fpout2, &checksum);
writeword((checksum%65536),fpout2); /* name checksum */
/* Block */
for (b=0; b<=(len/1024); b++) {
for (i=0; i<10;i++) /* block leading zeroes */
fputc (0,fpout2);
checksum=0x3b; /* Init checksum */
p = (b * 1024) + 1024 -1; /* set the pointer at the end of the block */
l = 1024;
if ( p > (len - 1) ) { /* is last block smaller ? */
p = len - 1;
l = len - (b * 1024);
}
/* Block length*/
writeword_cksum(l, fpout2, &checksum);
for (i=p; i>(p-l); i--) {
fseek(fpin, i, SEEK_SET);
c = getc(fpin);
writebyte_cksum(c, fpout2, &checksum);
}
writebyte_cksum(b+1, fpout2, &checksum);
writeword((checksum%65536), fpout2);
}
for (i=0; i<9;i++) /* tail */
fputc (0,fpout2);
fclose(fpin);
fclose(fpout2);
/* TEMP BASIC loader */
suffix_change(filename,".tmp");
if ( (fpout=fopen(filename,"wb") ) == NULL ) {
printf("Can't open temp output file %s\n",filename);
myexit(NULL,1);
}
fputc(0x0d,fpout);
fprintf(fpout,"10 ");
fputc(0xAC,fpout); /* RESERVE */
fputc(0xA8,fpout); /* TOP */
fputc(0x82,fpout); /* - */
fprintf(fpout,"%i",pos); /* memory location */
fputc(0x0d,fpout);
fprintf(fpout,"20 ");
fputc('b',fpout);
fputc(0x8c,fpout); /* = */
fprintf(fpout,"121:"); /* 121 */
fputc(0x89,fpout); /* IF */
fputc(0xa4,fpout); /* PEEK */
fprintf(fpout,"(51)");
fputc(0x8d,fpout); /* > */
fprintf(fpout,"127");
fputc(0xb4,fpout); /* THEN */
fprintf(fpout,"b");
fputc(0x8c,fpout); /* = */
fputc(0xa4,fpout); /* PEEK */
fprintf(fpout,"(168)");
fputc(0x81,fpout); /* + */
fprintf(fpout,"256");
fputc(0x83,fpout); /* * */
fputc(0xa4,fpout); /* PEEK */
fprintf(fpout,"(169):");
fputc(0x9e,fpout); /* POKE */
fprintf(fpout,"169,");
fputc(0x96,fpout); /* INT */
fprintf(fpout,"((b");
fputc(0x81,fpout); /* + */
fprintf(fpout,"23)");
fputc(0x84,fpout); /* / */
fprintf(fpout,"256):");
fputc(0x9e,fpout); /* POKE */
fprintf(fpout,"168,b");
fputc(0x81,fpout); /* + */
fprintf(fpout,"23");
fputc(0x82,fpout); /* - */
fprintf(fpout,"256");
fputc(0x83,fpout); /* * */
fputc(0xa4,fpout); /* PEEK */
fprintf(fpout,"(169)");
fputc(0x0d,fpout);
fprintf(fpout,"30 ");
fputc(0x8b,fpout); /* FOR */
fprintf(fpout," i ");
fputc(0x8c,fpout); /* = */
fprintf(fpout," 0 ");
fputc(0xb6,fpout); /* TO */
fprintf(fpout," 22:");
fputc(0x9c,fpout); /* READ */
fprintf(fpout," c:");
fputc(0x9e,fpout); /* POKE */
fprintf(fpout," b");
fputc(0x81,fpout); /* + */
fprintf(fpout,"i,c:");
fputc(0x8c,fpout); /* NEXT */
fprintf(fpout," i:");
fputc(0x9d,fpout); /* DATA */
fprintf(fpout," 253,110,32,253,102,33,22,0,30,1,1,");
fprintf(fpout,"%i",len%256); /* LSB for Length */
fputc(',',fpout);
fprintf(fpout,"%i",len/256); /* MSB for Length */
fprintf(fpout,",231,49,119,35,11,120,177,200,24,246");
fputc(0x0d,fpout);
fprintf(fpout,"40 ");
fputc(0x97,fpout); /* OPEN */
//fputc(' ',fpout);
fputc(0xb3,fpout); /* # */
fprintf(fpout,"1,");
fputc('"',fpout);
fprintf(fpout,"%s",blockname);
fputc('"',fpout);
fputc(0x0d,fpout);
fprintf(fpout,"50 ");
fputc(0x9f,fpout); /* CALL */
fprintf(fpout," b : ");
fputc(0x9f,fpout); /* CALL */
fprintf(fpout," %i",pos);
fputc(0x0d,fpout);
fputc(0x04,fpout);
fputc(0x0d,fpout);
fclose(fpout);
/* Now convert in tape format */
if ( (fpin=fopen(filename,"rb") ) == NULL ) {
fprintf(stderr,"Can't read temp file%s\n",binname);
myexit(NULL,1);
}
if (fseek(fpin,0,SEEK_END)) {
fclose(fpin);
myexit("Couldn't determine size of temp file\n",1);
}
len=ftell(fpin);
suffix_change(filename,".bas");
if ( (fpout2=fopen(filename,"wb") ) == NULL ) {
printf("Can't open output BASIC Binary file %s\n",filename);
myexit(NULL,1);
}
/* header for binary block */
checksum=0x3b; /* Init checksum */
fputc (0,fpout2);
writeword_cksum(strlen(filename), fpout2, &checksum);
for (i=0; i<strlen(filename); i++) {
fputc (filename[i],fpout2); // +1 ??
checksum += filename[i];
}
writebyte_cksum(0x81, fpout2, &checksum);
writeword((checksum%65536),fpout2); /* name checksum */
for (i=0; i<10;i++) /* zero filling the next part */
fputc (0,fpout2);
checksum=0x3b; /* Init checksum */
/* Block length*/
writeword_cksum(len, fpout2, &checksum);
/* Block */
for (i=len-1; i>=0; i--) {
fseek(fpin, i, SEEK_SET);
c=getc(fpin);
writebyte_cksum(c, fpout2, &checksum);
}
writebyte_cksum(0x41, fpout2, &checksum);
writeword((checksum%65536),fpout2); /* block checksum */
for (i=0; i<9;i++) /* tail */
fputc (0,fpout2);
fclose(fpin);
fclose(fpout2);
/* TAPE directory */
if ( (fpout=fopen("_dir.txt","w") ) == NULL ) {
printf("Can't open output text format file %s\n",filename);
myexit(NULL,1);
}
fprintf(fpout,"%s\n",filename);
suffix_change(filename,".dat");
fprintf(fpout,"%s\n",filename);
fclose(fpout);
suffix_change(filename,".tmp");
remove(filename);
}
}
