6502
/
C02
mirror of https://github.com/RevCurtisP/C02.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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

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