mirror of https://github.com/RevCurtisP/C02.git
135 lines
3.8 KiB
Plaintext
135 lines
3.8 KiB
Plaintext
/***********************************************
|
|
* STKTEST - Test Stack Manipulation Functions *
|
|
* Assumes free RAM from $7FFF to $807E *
|
|
***********************************************/
|
|
|
|
//use -h option on command line when compiling
|
|
#include <stddef.h02>
|
|
#include <stdlib.h02>
|
|
#include <intlib.h02>
|
|
#include <stdio.h02>
|
|
#include <stdiox.h02>
|
|
#include <string.h02>
|
|
#include <memory.h02>
|
|
#include <stack.h02>
|
|
|
|
char c,f,g,i,n;
|
|
char aa,xx,yy,zz;
|
|
int addr,adr,cptr,csiz,nn,optr,ptr,siz,yx;
|
|
const char r={6,7,8,9};
|
|
const char s="TEST STRING";
|
|
char t[255];
|
|
char stackb[128], stacke;
|
|
|
|
|
|
void pass() {putln(" PASS");}
|
|
void fail() {putln(" FAIL"); goto exit;}
|
|
void psorfl(aa) {if (aa) pass(); else fail();}
|
|
void florps(aa) {if (aa) fail(); else pass();}
|
|
void equals(aa,zz) {A = (aa == zz) ? #TRUE : #FALSE;}
|
|
void prtadr(adr) {puts("$"); putwrd(adr);}
|
|
void prtstk() {aa,yy,xx=stksiz(); for (zz=0; zz<xx; zz++) {if (zz) putc(','); putdec(stackb[zz]);}}
|
|
void errstk() {newlin(); puts("STACK={"); prtstk(); putc(')'); fail();}
|
|
void addsub(zz,yx) {if (zz:-) subayx(-zz+1,yx); else addayx(zz+1,yx);}
|
|
void updptr(aa) {if (aa) cptr=addsub(aa,cptr); else cptr=stkptr;}
|
|
void updsiz(aa) {if (aa) csiz=addsub(aa,csiz); else csiz=0;}
|
|
void cmpadr(adr) {f = equals(<addr,<adr); g = equals(>addr,>adr); return f & g;}
|
|
void chkadr(yx) {prtadr(addr); psorfl(cmpadr(yx));}
|
|
void chkint(yx) {putint(addr); psorfl(cmpadr(yx));}
|
|
void chkmem(aa,yx) {setdst(optr); florps(memcmp(aa, yx));}
|
|
void chkmet(aa,yx) {setdst(t); florps(memcmp(aa, yx));}
|
|
void chkptr(aa,ptr) {addr=stkptr; puts(" STKPTR="); chkadr(ptr); optr=stkptr;}
|
|
void chkres(aa,zz) {printf(zz,"=%d");if (aa<>zz) fail();}
|
|
void chksiz(siz) {puts(" STKSIZ()="); addr=stksiz(); chkint(siz);}
|
|
void chkstr(yx) {setdst(optr); florps(strcmp(yx));}
|
|
void chkstt(yx) {setdst(t); florps(strcmp(yx));}
|
|
void pause() {if (anykey()==#ESCKEY) goto exit;}
|
|
|
|
main:
|
|
|
|
stkbgn = &stackb; puts("STKBGN="); prtadr(stkbgn); newlin();
|
|
stkend = &stacke; puts("STKEND="); prtadr(stkend); newlin();
|
|
|
|
putln("STKRST()");
|
|
stkrst();
|
|
updptr(0); chkptr(stkbgn); updsiz(0); chksiz(csiz);
|
|
|
|
//Push Array - Stack=R
|
|
puts("STKPSH(@R,R)");
|
|
n=stkpsh(@r,r); chkres(@r,n); chkmem(@r, &r);
|
|
updptr(n); chkptr(cptr); updsiz(n); chksiz(csiz);
|
|
|
|
//Duplicate Top - Stack=R,R
|
|
puts("STKDUP()");
|
|
n=stkdup(); chkres(@r,n); chkmem(@r, &r);
|
|
updptr(n); chkptr(cptr); updsiz(n); chksiz(csiz);
|
|
|
|
//Push String - Stack=S,R,R
|
|
puts("STKSTR(S)");
|
|
n=stkstr(s); chkres(@s+1,n); chkstr(s);
|
|
updptr(n); chkptr(cptr); updsiz(n); chksiz(csiz);
|
|
|
|
pause();
|
|
|
|
//Copy Second to Top - Stack=R,S,R,R
|
|
puts("STKOVR()");
|
|
n=stkovr(); chkres(@r,n); chkmem(@r, &r);
|
|
updptr(n); chkptr(cptr); updsiz(n); chksiz(csiz);
|
|
|
|
//Swap Top and Second - Stack=S,R,R,R
|
|
puts("STKSWP()");
|
|
n=stkswp(s); chkres(@s+1,n); chkstr(s);
|
|
chkptr(cptr); chksiz(csiz);
|
|
|
|
//Read String - Stack=S,R,R,R
|
|
puts("STKTOP(T)");
|
|
n=stktop(t); chkres(@s+1,n); chkstt(s);
|
|
chkptr(cptr); chksiz(csiz);
|
|
|
|
//Pop String - Stack=R,R,R
|
|
puts("STKPOP(T)");
|
|
n=stkpop(&t); chkres(@s+1,n); chkstt(s);
|
|
updptr(-n); chkptr(cptr); updsiz(-n); chksiz(csiz);
|
|
|
|
pause();
|
|
|
|
//Drop Copy - Stack=R,R
|
|
puts("STKDRP()");
|
|
n=stkdrp(); chkres(@r,n); pass();
|
|
updptr(-n); chkptr(cptr); updsiz(-n); chksiz(csiz);
|
|
|
|
//Drop Duplicate - Stack=R
|
|
puts("STKDRP()");
|
|
n=stkdrp(); chkres(@r,n); pass();
|
|
updptr(-n); chkptr(cptr); updsiz(-n); chksiz(csiz);
|
|
|
|
//Pop Array - Stack Empty
|
|
puts("STKPOP(&T)");
|
|
n=stkpop(&t); chkres(@r,n); chkmet(@r,t);
|
|
updptr(-n); chkptr(cptr); updsiz(-n); chksiz(csiz);
|
|
|
|
pause();
|
|
|
|
//Pop from Empty Stack
|
|
puts("STKPOP(&T)");
|
|
n=stkpop(&t); chkres(0,n); pass();
|
|
chkptr(cptr); chksiz(csiz);
|
|
|
|
//Overflow Stack - Stack Empty
|
|
puts("STKPSH(255,&T)");
|
|
n=stkpsh(255,&t); chkres(0,n); pass();
|
|
chkptr(cptr); chksiz(csiz);
|
|
|
|
putln("TESTS COMPLETE");
|
|
|
|
goto exit;
|
|
|
|
|
|
puts("Dropping Swapped Entry off Stack");
|
|
puts("stkdrp()");
|
|
f=stkdrp(); printf(f,"bytes=%d:");
|
|
g=(f==4) ? #TRUE : #FALSE;
|
|
psorfl(f & g);
|
|
chkptr(&$8016);
|
|
|