mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-22 01:31:33 +00:00
169 lines
3.7 KiB
Plaintext
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;
|
||
|
|