Megalextoria
Retro computing and gaming, sci-fi books, tv and movies and other geeky stuff.

Home » Digital Archaeology » Computer Arcana » Commodore » Commodore 8-bit » Help needed debugging TmpCreat128!
Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend 
Switch to threaded view of this topic Create a new topic Submit Reply
Help needed debugging TmpCreat128! [message #389520] Mon, 23 December 2019 14:32
Harry Potter is currently offline  Harry Potter
Messages: 1304
Registered: March 2012
Karma: 0
Senior Member
Hi! I have yet to find the bug with my Template Creator 128 program. The Add Template module seems to work up to the call to Fields. The debug code I placed just after the call seems to run. But then, it does not display the New Format prompt--even though it is supposed to, as it is a new template disk--and displays an Insert Templates Disk message. I insert it and get the C128 Monitor. The PC is at F4433, where there is no code there. Following is the erroneous code:
-------------------------
void tmp_add_main (void)
{
//unsigned char i;
//unsigned char /*i,*/ j;
//char c;
//struct dbentry* cur;
//bzero (&tmp_db, sizeof(tmp_db));
//bzero (&input, sizeof(input));
//cleardb ();
//bordercolor (0);cgetc ();
//bzero (&input, sizeof(input));
//bordercolor (1);cgetc ();
instmpdiskp();

tmpdb_open ();
//bgcolor (2);
/*curtemplate.name[0]=*///input.fmt[0]=0;
//fName.data.text=curtemplate.name;//input.name;
fTmp.data.text=input.out;//input.tmp;
//fType.data.sel.sel=(cur->filetype=0);
fType.data.sel.num=4;
fType.data.sel.values=filetypes;
//input.type=0;
fType.data.sel.sel=&input.type;
//fFmt.data.text=curtemplate.fmt;//input.fmt;
//FillFmt();
i=fFmt.data.sel.num=input.fmtnum=input.type=0;
//bgcolor (3);
for (; i<8; ++i) {
//if (tmp_db.usedfmts&(1<<i)) {
if ((tmp_db.usedfmts>>i)&1) {
//usedfmts[j]=tmp_db.fmts[i];
//*getfmt(fFmt.data.sel.num)=getfmt (usedfmtsnums[fFmt.data.sel.num]=i);
usedfmts[fFmt.data.sel.num]=tmp_db.fmts[ (usedfmtsnums[fFmt.data.sel.num]=i)];
//usedfmtsnums[j]=i;
++fFmt.data.sel.num;
}
}
//bgcolor (4);
if (fFmt.data.sel.num<8) {
//*getfmt(fFmt.data.sel.num)=snone;
usedfmts[fFmt.data.sel.num]=snone;
++fFmt.data.sel.num;
}
//numfmtsavail=j;
//input.fmtnum=0;
fFmt.data.sel.sel=&input.fmtnum;
//fFmt.data.sel.num=numfmtsavail;
fFmt.data.sel.values=usedfmts;
//cclearxy(i=0,23,39); cclearxy(0,24,39);
i=j=input.tmp[0]=input.out[0]=0;
//clearline (23); clearline (24);

//gotoxy (0,24); prints ("Insert template disk...");
//cgetc();
//promptdisk (instmpdisk);
//for (; i<32 && (tmp_db.usedentries[i>>3]&(1<<(i&7))); ++i);
//for (; i<32 && *(unsigned long*)(&tmp_db.usedentries)&(1<<i); ++i);
//bgcolor (1);

for (; j<32 && (*(unsigned long*)(&tmp_db.usedentries)>>j)&1; ++j);
if (j==32) {
//gotoxy (0, 23); printscr ("Template disk full!\n"
// "Press any key to continue...");
///cgetc(); return;
promptdisk ("Template disk full!"); return;
}
//cur=getdbent(j);//&tmp_db.entry[i];
//fName.data.text=(cur=getent(j))->name;
//fName.data.text=(cur=getdbent(j))->name;
//cur=getdbent(j);
//cur=getent(j);
//input.type=0;
//fFmt.data.text=&(cur=getent(j))->filetype;
fTmp.data.text=input.tmp;
fName.data.text=input.out;//cur->name;
//bgcolor (1);

if (dialog(&fInTemp)) return;

bgcolor (3); cgetc ();

cur=getent(j);
//strcpy (cur->name, input.tmp);
//cur->filetype=input.type;
//bgcolor (3); cgetc ();
if (!strcmp(usedfmts[input.fmtnum], snone))
//if (usedfmts[input.fmtnum]==snone)
{
//bgcolor (4); cgetc ();
for (i=0; (tmp_db.usedfmts>>i)&1; ++i);
//bgcolor (5); cgetc ();
gotoy (17);
//bgcolor (6); cgetc ();
printf ("\nNew format name");
GetInput (getfmt(i), 17);
tmp_db.usedfmts|=1<<i;
} else {
//for (; strcmp(getfmt(i), getfmt(input.fmtnum)); ++i);
i=usedfmts[input.fmtnum];
} cur->fmt=i;
//gotoxy (0,24); prints ("Insert input disk... ");
//cgetc();
promptdisk ("Insert input disk...");
//strcpy (curtemplate.name, input.tmp);
//strcpy (curtemplate.fmt, input.fmt);
//sprintf (fi,"0:%s,%c,r", input.name, filetypes[input.type][0]);
//strcpy (curtemplate.name, input.tmp);
//strcpy (curtemplate.fmt, input.fmt);
//j=filetypes[input.type][0];
//sprintf (fi,"%s,%c", curtemplate.name, filetypes[input.type][0]);
//sprintf (fi, "%s,%c", curtemplate.name, j=filetypes[input.type][0]);
//sprintf (fi, &qfilename[2], curtemplate.name, j=filetypes[cur->filetype=input.type][0]);
//cputsxy (0,1, fi); cgetc();
//cbm_open (filenum, 8, CBM_READ, fi);
//openfile (CBM_READ);
//openfile (curtemplate.name, CBM_READ);
//openfile (cur->name, CBM_READ);
//promptdisk (input.tmp);
bgcolor (4); cgetc();//
openfile (input.out, CBM_READ);
bgcolor (2);
#ifdef __C128__
cur->size=/*curtemplate.size=*/bank1_cbm_read(filenum, 0x400, 0xF000);
#else
cur->size=/*curtemplate.size=*/h_cbm_read(filenum, templatedata, 0x9800);
#endif
//cur->size=h_cbm_read(filenum, curtemplate.data, 32767);
//curtemplate.size=cbm_read(filenum, curtemplate.data, 32767);
bgcolor (3);
cbm_close (filenum);
//chn15();
//clrscr(); printf ("size = %d\n", curtemplate.size); cgetc();
//if ((signed) curtemplate.size<0) {
if ((signed) cur->size==-1) {
//gotobottom (); puts ("Error loading template!");
//cgetc(); return;
promptdisk ("Error loading template!");
return;
}
//if (curtemplate.size==32767) {
//if ((int)curtemplate.size<0) {
if (!cbm_k_readst()&0x40) {
//gotobottom (); puts ("Template too large!");
//cgetc(); return;
promptdisk ("Template too large!");
return;
}

//strcpy (tmp_db.entry[i].name, curtemplate.name);
strcpy (cur->name, input.tmp);
//strcpy (cur->name, input.tmp);
//cur->size=curtemplate.size;
cur->filetype=input.type;
//tmp_db.usedentries[i>>3]|=(1<<(i&7));
__asm__ ("\tlda\t_j\n"
//"\tpha\n"
"\tand\t#7\n"
"\ttay\n"
//"\tpla\n"
"\tlda\t_j\n"
"\tlsr\n"
"\tlsr\n"
"\tlsr\n"
"\ttax\n"
//"\tlda\t_tmp_db+17,x\n"
"\tlda\t#1\n"
"\tcpy\t#0\n"
"\tbeq\t@zz12\n"
"@zz11:\n"
"\tasl\n"
"\tdey\n"
"\tbne\t@zz11\n"
"@zz12:\n"
"\tora\t_tmp_db+18,x\n"
"\tsta\t_tmp_db+18,x\n"
);
//*(unsigned long*)(&tmp_db.usedentries)|=(1<<i);

//gotoxy (0,24); prints ("Insert template disk...");
//cgetc();
//promptdisk (instmpdisk);
instmpdiskp ();
//sprintf (fi, "@:%s,%c", input.tmp, j);
//sprintf (fi, qfilename, input.tmp, j);
//cputsxy (0,1, fi); cgetc();
//cbm_open (filenum, 8, CBM_WRITE, fi);
//openfile (CBM_WRITE);
tmpdb_save();

openfile (cur->name, CBM_WRITE);
//printf ("ST: %d\n", (unsigned) cbm_k_readst()); cgetc();
//h_cbm_write (filenum, curtemplate.data, cur->size=curtemplate.size);
#ifdef __C128__
bank1_cbm_write (filenum, 0x400, cur->size);
#else
h_cbm_write (filenum, templatedata, cur->size);
#endif
//cbm_write (filenum, curtemplate.data, curtemplate.size);
//chn15();
cbm_close (filenum);
}
-------------------------
  Switch to threaded view of this topic Create a new topic Submit Reply
Previous Topic: Official FAQ comp.binaries.cbm (semimonthly posting)
Next Topic: Service manual for 1520 plotter
Goto Forum:
  

-=] Back to Top [=-
[ Syndicate this forum (XML) ] [ RSS ] [ PDF ]

Current Time: Thu Mar 28 20:08:56 EDT 2024

Total time taken to generate the page: 0.01751 seconds