6502/C02
1
0
Fork 0
mirror of https://github.com/RevCurtisP/C02.git synced 2025-02-19 19:31:04 +00:00
Code Issues Projects Releases Wiki Activity

Replaced goto loops with for(), and do() in slibtest.c02

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

30
test/slibtest.c02
View File

@ -81,18 +81,16 @@ char maxmpd, divdnd, divisr, quotnt;
putstr("DIV()");
mltplr = 255;
maxmpd = 1;
drloop:
mltpnd = 1;
ddloop:
while (mltplr) {
for (mltpnd=1; mltpnd < maxmpd; mltpnd++) {
prodct = mult(mltplr, mltpnd);
quotnt = div(prodct, mltpnd);
if (quotnt <> mltplr) goto diverr;
mltpnd++;
if (mltpnd < maxmpd) goto ddloop;
}
mltplr>>;
maxmpd<<;
if (mltplr <> 0) goto drloop;
prtok();
}
prtok();
tstrnd: //Test rand() and rands()
char countr, rndnum, rndtbl[255];
@ -100,20 +98,16 @@ char countr, rndnum, rndtbl[255];
putstr("RAND()");
rands(1); //Seed Random Number Generator;
countr = 0;
riloop:
rndtbl[countr] = 0;
countr++;
if (countr <> 0) goto riloop;
rnloop:
countr = 0;
do {rndtbl[countr] = 0; countr++;} while (countr);
do {
rndnum = rand();
if (rndtbl[rndnum] > 0) goto rnderr;
rndtbl[rndnum] = $FF;
countr++;
if (countr < 255) goto rnloop;
prtok();
} while (countr < 255);
prtok();
tstros: //Test rotatl(), rotatr(), swap()
char lbyte, rbyte, obyte, sbyte, tbyte, scount;
@ -183,5 +177,5 @@ swperr:
goto exit;
c2aerr:
putstr("CTOA("); prbyte(srcchr); putstr(")="); prbyte(dstchr); newlin();
newlin(); putstr("CTOA("); prbyte(srcchr); putstr(")="); putstr(tststr); newlin();
goto exit;