From 132eb22944f6724b0e34adb5a43583cfa6caf03b Mon Sep 17 00:00:00 2001
From: Curtis F Kaylor <revcurtis@gmail.com>
Date: Sat, 17 Oct 2020 22:21:41 -0400
Subject: [PATCH] Cleaned up div() test in test/slibtest.c02

---
 test/slibtest.c02 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/test/slibtest.c02 b/test/slibtest.c02
index ae23d28..fc814ef 100644
--- a/test/slibtest.c02
+++ b/test/slibtest.c02
@@ -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: