Subj : Help needed debugging TmpCreat128!
To   : All
From : Harry Potter
Date : Mon Dec 23 2019 11:32 am

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);
}
-------------------------

--- SoupGate-Win32 v1.05
 * Origin: Agency HUB, Dunedin - New Zealand | Fido<>Usenet Gateway (3:770/3)

.