6502/C02
1
0
Fork 0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-06-08 21:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Cleaned up div() test in test/slibtest.c02

Browse Source
This commit is contained in:
Curtis F Kaylor 2020-10-17 22:21:41 -04:00
parent 929fa2976c
commit 132eb22944
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/slibtest.c02
View File

@ -9,9 +9,10 @@
char aa, yy, xx; char aa, yy, xx;
void prtcma(aa) {putchr(','); prbyte(aa);} void prtcma(aa) {putchr(','); prbyte(aa);}
void prtexp(aa) {putstr(", EXPECTED "); prbyte(aa);}
void prtlin() {putstr(); newlin();} void prtlin() {putstr(); newlin();}
void prtok() {prtlin(" OK");} void prtok() {prtlin(" OK");}
void prtopr(aa,yy,xx) {prbyte(aa); putchr(yy); prbyte(xx); putchr("=");} void prtopr(aa,yy,xx) {prbyte(aa); putchr(yy); prbyte(xx); putchr('=');}
main: main:
@ -82,12 +83,10 @@ mltplr = 255;
maxmpd = 1; maxmpd = 1;
drloop: drloop:
mltpnd = 1; mltpnd = 1;
acmlsb = 0;
ddloop: ddloop:
acmlsb = acmlsb + mltplr;
prodct = mult(mltplr, mltpnd); prodct = mult(mltplr, mltpnd);
quotnt = div(prodct, mltpnd); quotnt = div(prodct, mltpnd);
if (quotnt <> mltplr) goto derror; if (quotnt <> mltplr) goto diverr;
mltpnd++; mltpnd++;
if (mltpnd < maxmpd) goto ddloop; if (mltpnd < maxmpd) goto ddloop;
mltplr>>; mltplr>>;
@ -149,8 +148,9 @@ mlterr:
newlin(); prtopr(mltplr,'*',mltpnd); prbyte(prodct); prtcma(acmlsb); newlin(); newlin(); prtopr(mltplr,'*',mltpnd); prbyte(prodct); prtcma(acmlsb); newlin();
goto exit; goto exit;
derror: diverr:
newlin(); prtopr(divdnd,'/',divisr); prbyte(quotnt); prtcma(mltplr); newlin(); newlin(); prtopr(quotnt,'/',mltplr); prbyte(quotnt);
prtexp(mltplr); newlin();
goto exit; goto exit;
rnderr: rnderr: