C02/vic20/blocks.c02

/*******************************************
 * 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;