mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-06-15 22:29:27 +00:00
Replaced test/testsd.c02 with test/sdeftest.c02
This commit is contained in:
parent
72eb1fff3d
commit
4d460ce581
80
test/sdeftest.c02
Normal file
80
test/sdeftest.c02
Normal file
|
@ -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
Block a user