From 4d460ce5813c9f2db7d5535ef23155c93c9437c8 Mon Sep 17 00:00:00 2001
From: Curtis F Kaylor <revcurtis@gmail.com>
Date: Tue, 19 Nov 2019 22:29:05 -0500
Subject: [PATCH] Replaced test/testsd.c02 with test/sdeftest.c02

---
 test/sdeftest.c02 | 80 +++++++++++++++++++++++++++++++++++++++++++++
 test/testsd.c02   | 82 -----------------------------------------------
 2 files changed, 80 insertions(+), 82 deletions(-)
 create mode 100644 test/sdeftest.c02
 delete mode 100644 test/testsd.c02

diff --git a/test/sdeftest.c02 b/test/sdeftest.c02
new file mode 100644
index 0000000..e5c1696
--- /dev/null
+++ b/test/sdeftest.c02
@@ -0,0 +1,80 @@
+/**************************************
+ * SDEFTEST - Test Library stddef.h02 *
+ **************************************/
+ 
+//use -h option on command line
+#include <stddef.h02>
+
+char lo,hi;
+char aa,hh,ll,xx,yy;
+int dstadr,srcadr;
+
+void clrdst() {dstlo=0; dsthi=0;}
+void clrreg() {return 0,0,0;}
+void clrtmp() {temp0=0; temp1=0; temp2=0; temp3=0;}
+void clrsrc() {srclo=0; srchi=0;}
+void prskey() {putstr("    PRESS ANY KEY"); newlin(); getchr(); newlin();}
+void prtcma(aa) {putchr(','); prbyte(aa);}
+void prtdhl() {ll=dstlo; hh=dsthi; putstr(" DSTHI,LO="); prbyte(hh); prtcma(ll); newlin();}
+void prtdst() {prbyte(dsthi);prbyte(dstlo); newlin();}
+void prtlin() {putstr(); newlin();}
+void prtreg(aa,yy,xx) {putstr(" A,X,Y="); prbyte(aa); prtcma(yy); prtcma(xx); newlin();}
+void prtsav() {putstr(" TEMP1,2="); prtcma(temp1); prtcma(temp2); newlin();}
+void prtshl() {ll=srclo; hh=srchi; putstr(" SRCHI,LO="); prbyte(hh); prtcma(ll); newlin();}
+void prtsrc() {prbyte(srchi);prbyte(srclo); newlin();}
+void prttmp() {putstr(" TEMP0,1,2="); prbyte(temp0); prtcma(temp1); prtcma(temp2); newlin();}
+void prtwrd(.,yy,xx) {prbyte(yy); prbyte(xx); newlin();}
+void setreg(aa,yy,xx) {}
+
+main:
+  newlin();
+
+  putstr("#TRUE="); prbyte(#TRUE);
+  putstr(", #FALSE="); prbyte(#FALSE); newlin(); 
+  newlin();
+
+  prtlin("SAVREG($A,$B,$C)"); clrtmp(); savreg($A,$B,$C); prttmp();
+  prtlin("RESREG()"); clrreg(); prtreg(resreg());
+  prtlin("SAVRXY($D,$E,$F)"); clrtmp(); savrxy($D,$E,$F); prttmp();
+  prtlin("RESRXY()"); clrreg(); prtreg(resrxy());
+  newlin(); 
+
+  prtlin("SAVRXY(&$1234)"); putstr(" ADDTXY(&$5678)=$");
+  savrxy(&$1234); prtwrd(addtxy(&$5678)); 
+  prtlin("SAVRXY(&$1234)"); putstr(" SUBTXY(&$68AC)=$"); 
+  savrxy(&$1234); prtwrd(subtxy(&$68AC));
+  newlin();
+  
+  putstr("DECRXY(&$0000)=$"); prtwrd(decrxy(&$0000));
+  putstr("INCRXY(&$FFFF)=$"); prtwrd(incrxy(&$FFFF));
+  newlin();
+  
+  prskey();
+  
+  prtlin("SETSRC(&$1234)"); clrsrc(); setsrc(&$1234); savsrc(); 
+  prtshl(); prtlin("SAVSRC()"); prtsav(); 
+  prtlin("RESSRC()"); clrsrc(); ressrc(); srcadr=getsrc(); 
+  prtshl(); putstr("GETSRC()="); prtwrd(srcadr);
+  prtlin("SETDSS()"); clrdst(); ressrc(); setdss(); prtdhl();
+  newlin();
+
+  prtlin("SETDST(&$5678)"); clrdst(); setdst(&$5678);savdst(); 
+  prtdhl(); prtlin("SAVDST()"); prtsav();
+  prtlin("RESDST()"); clrdst(); resdst(); dstadr=getdst(); 
+  prtdhl(); putstr("GETSRC()="); prtwrd(dstadr);
+  prtlin("SETSRD()"); clrsrc(); resdst(); setsrd(); prtshl();
+  newlin();
+
+  prskey();
+  
+  prtlin("SETSRC(&$0FFF)"); putstr(" ADDSRA($FF)=$");
+  setsrc(&$0FFF); addsra($FF); prtsrc();
+  prtlin("SETSRC(&$1234)"); putstr(" ADDSRC(&$CDEF)=$");
+  setsrc(&$1234); addsrc(&$CDEF); prtsrc();
+  prtlin("SETDST(&$0FFF)"); putstr(" ADDDSA($FF)=$");
+  setdst(&$0FFF); adddsa($FF); prtdst();
+  prtlin("SETDST(&$1234)"); putstr(" ADDDST(&$CDEF)=$");
+  setdst(&$1234); adddst(&$CDEF); prtdst();
+  newlin();
+
+  goto exit;
diff --git a/test/testsd.c02 b/test/testsd.c02
deleted file mode 100644
index 42e4a69..0000000
--- a/test/testsd.c02
+++ /dev/null
@@ -1,82 +0,0 @@
-/************************************************
- * TESTSD - Test Library stddef.h02 for py65mon *
- ************************************************/
- 
-
-//use -h option on command line
-#include <stddef.h02>
-
-const char txtstr = {
-        "#TRUE=",", #FALSE=",
-        "SAVREG($A,$B,$C)", " TEMP0,1,2=", 
-        "RESREG()", " A,X,Y=", 
-        "SETSRC(&$1234)"," SRCLO,HI=", " GETSRC()=",
-        "SETDST(&$5678)"," DSTLO,HI=", " GETDST()="
-      };
-char txtidx;
-
-char aa,xx,yy;
-
-main:
-  txtidx = 0;
-  newlin();
-
-  prttxt(); prbyte(#TRUE);
-  prttxt(); prbyte(#FALSE);
-  newlin(); newlin();
-
-  temp0=0; temp1=0; temp3 = 0;
-  prtlin(); savreg($A,$B,$C);
-  prttxt(); prbyte(temp0);
-  prtcma(); prbyte(temp1);
-  prtcma(); prbyte(temp2);
-  newlin(); 
- 
-  setreg(0,0,0);
-  prtlin(); aa,yy,xx = resreg();
-  prttxt(); prbyte(aa);
-  prtcma(); prbyte(yy);
-  prtcma(); prbyte(xx);
-  newlin(); newlin();
-  
-
-  srclo = 0; srchi = 0;
-  prtlin(); setsrc(&$1234);
-  prttxt(); prbyte(srclo);
-  prtcma(); prbyte(srchi);
-  newlin();
-  prttxt(); setreg(0,0,0);
-  getsrc(); prtwrd();
-  newlin();  newlin();
-
-  dstlo = 0; dsthi = 0;
-  prtlin(); setdst(&$5678);
-  prttxt(); prbyte(dstlo);
-  prtcma(); prbyte(dsthi);
-  newlin();
-  prttxt(); setreg(0,0,0);
-  getdst(); prtwrd();
-  newlin(); newlin();
-
-
-goto exit;
-
-void setreg(aa,yy,xx) {}
-
-void prtwrd(aa,yy,xx) {
-  prbyte(yy);
-  prbyte(xx);
-}
-
-void prtcma() {prchr(',');}
-
-void prtlin() {prttxt(); newlin();}
-
-void prttxt() {
-  while (txtstr[txtidx]) {
-    //prbyte(txtidx);prchr(' ');
-    prchr(txtstr[txtidx]);
-    txtidx++;
-  }
-  txtidx++;
-}