1
0
mirror of https://github.com/RevCurtisP/C02.git synced 2024-10-31 10:14:09 +00:00
C02/vic20/blocks.c02
2018-01-28 13:57:49 -05:00

169 lines
3.7 KiB
Plaintext

/*******************************************
* TESTBLK - Test Array Handling Functions *
*******************************************/
//todo: Test blknxt() and blkprv()
#include "include/vic20.h02"
#include <stdio.h02>
#include <stdlib.h02>
#include <string.h02>
#include <memory.h02>
#include <block.h02>
char TRUE=$FF, FALSE=$00;
char c, i, n, r, z;
char savlo,savhi,tmplo,tmphi; //Address Pointer
char number[5];
//char numbrs = "ZERO ONE TWO THREEFOUR FIVE SIX SEVENEIGHTNINE TEN";
char name1 = "DICK", name2 = "JANE";
char temp[127];
char seglen = 7;
char sgmt[6]; //Structure: [0-5]=Text, [6]=Binary
char seg1[6],seg2[6];
char pass = " PASS ";
char fail = " FAIL ";
//Copy Textual Representation of n to temp
void numcpy(n) {
strdst(&temp);
strcut(mult(n,6), "ZERO ONE TWO THREE FOUR FIVE SIX SEVEN EIGHT NINE TEN ");
z = strchr(' ', &temp);
temp[z] = 0; //and terminate at that point
//strcut(mult(n,5), &numbrs); //Copy Representation
//temp[5] = 0; //Cut off remainder of String
//z = strchr(' ', &temp);
//if (z:+) //Search for space in string
// temp[z] = 0; //and terminate at that point
}
//Build String Segment in Temp
void numtmp(n) {
numcpy(n); //Copy Textual Representation to temp[0:5]
temp[6] = i; //Set
}
//Print Addresses
void pradrs() {
tmplo=srclo;tmphi=srchi;
outstr(" SRC: $");prbyte(tmphi);prbyte(tmplo);
outstr(" DST: $");prbyte(dsthi);prbyte(dstlo);
outstr(" BLK: $");prbyte(blkhi);prbyte(blklo);
newlin();
}
//Print Block Addresses
void prbadr() {
prbyte(blkshi);prbyte(blkslo);putchr(' ');
prbyte(blkehi);prbyte(blkelo);putchr(' ');
prbyte(blkhi);prbyte(blklo);newlin();
}
main:
outstr("BLKBGN(&$4000);");
blkbgn(&$4000); //Set Block Start
if (blkshi == $40) putstr(&pass); else putstr(&fail);
outstr("BLKEND(&$4400);");
blkend(&$4400); //Set Block End
if (blkehi == $44) putstr(&pass); else putstr(&fail);
outstr("BLKSEG(SEGLEN);");
blkseg(seglen);
if (blklen == seglen) putstr(&pass); else putstr(&fail);
outstr("BLKRST(); ");
blkrst();
if (blkhi == $40) putstr(&pass); else putstr(&fail);
outstr("BLKSET('@'); ");
blkset('@');
r = $FF;
blkrst();
while (blkget(1,&sgmt)) {
if (sgmt <> '@') r = $00;
}
if (r) putstr(&pass); else putstr(&fail);
setdst(&seg1); strcpy(&name1);seg1[6] = 1;
setdst(&seg2); strcpy(&name2);seg2[6] = 2;
outstr("BLKSWP(SEGLEN, &seg2);");
blkrst();
blkput(seglen, &seg1);
blkrst();
setdst(&temp);
blkswp(seglen, &seg2);
r = $FF;
blkget(seglen, &sgmt);
if (strcmp(&name2)) r = $00;
if (sgmt[6] <> 2) r = $00;
setdst(&seg2);
if (strcmp(&name1)) r = $00;
if (seg2[6] <> 1) r = $00;
if (r) putstr(&pass); else putstr(&fail);
blkset(0);
outstr("BLKPUT(SEGLEN, &TEMP);");
r = TRUE;
blkrst();
for (i=0; i<10; i++) {
numtmp(i);
savlo=blklo;savhi=blkhi;
blkput(seglen, &temp);
dstlo=savlo;dsthi=savhi;
if (memcmp(seglen,&temp)) r = FALSE;
}
if (blklo <> 70) r = TRUE;
if (r) putstr(&pass); else putstr(&fail);
outstr("BLKMEM(SEGLEN, &TEMP);");
r = $FF;
for (i=9; i:+; i--) {
numtmp(i);
r = blkmem(seglen, &temp);
if (mult(seglen,i) <> dstlo) r = 0;
}
if (r) putstr(&pass); else putstr(&fail);
outstr("blkstr(seglen, &TEMP);");
r = $FF;
for (i=0; i<10; i++) {
numtmp(i);
setdst(&sgmt);
r = blkstr(seglen, &z);
if (sgmt[6] <> i) r = 0;
}
if (r) putstr(&pass); else putstr(&fail);
blkrst();
outstr("blkget(seglen, &sgmt);");
r = $FF;
for (i=0; i<10; i++) {
numtmp(i);
setdst(&sgmt);
r = blkget(seglen, &sgmt);
if (memcmp(seglen, &temp)) r = 0;
}
if (r) putstr(&pass); else putstr(&fail);
outstr("BLKSRT(&TEMP);");
blksrt(&temp);
r = TRUE;
seg1[0] = 0;
blkrst();
while(blkget(seglen, &seg2)) {
if (!seg2[0]) break;
if (strcmp(&seg1)<>1) r = FALSE;
strdst(&seg1);strcpy(&seg2);
}
if (r) putstr(&pass); else putstr(&fail);
goto exit;