mirror of https://github.com/RevCurtisP/C02.git
Replaced test/testsd.c02 with test/sdeftest.c02
This commit is contained in:
Curtis F Kaylor
parent
72eb1fff3d
commit
4d460ce581
|
|
@ -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;
|
||||
|
|
@ -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++;
|
||||
}
|
||||
Loading…
Reference in New Issue