mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-10-31 10:14:09 +00:00
681 lines
19 KiB
Plaintext
681 lines
19 KiB
Plaintext
/************************************
|
|
* TESTVERA - Test All Vera Modules *
|
|
************************************/
|
|
|
|
//Specify System Header using -H option
|
|
#include <stddef.h02>
|
|
#include <stdlib.h02>
|
|
#include <intlib.h02>
|
|
#include <stdio.h02>
|
|
#include <stdiox.h02>
|
|
#include <memory.h02>
|
|
#include <nybble.h02>
|
|
#include "include/veramem.h02" //Vera Memory Access
|
|
#include "include/veradsp.h02" //Vera Display Controller
|
|
#include "include/veraclr.h02" //Vera Color Palette
|
|
#include "include/veralyr.h02" //Vera Layer Control
|
|
#include "include/veraspr.h02" //Vera Sprites
|
|
#include "include/vera.h02"
|
|
|
|
const char abcdef = {1,2,3,4,5,6};
|
|
char buffer[255]; //Buffer for getmem
|
|
|
|
char d,e,f,i,j,k; //Index Variables
|
|
char b,h,l,m,n,p,w; //Temporary Variables
|
|
char bank,msb,lsb; //Vera Memory Address
|
|
int addr,bytes,size; //16-bit Address and Sizes
|
|
int height,width; //16-bit Height and Width Value
|
|
|
|
char hscale,vscale; //Video Scaling
|
|
char hrzvrt[5]; //Horizontal and Vertical Register Contents
|
|
char index; //Color Palette Index
|
|
char mode,mono,field; //Video Output Mode, Monochrome Flag, Current Field
|
|
char red,green,blue; //Color Components
|
|
char enabld; //Layer Enabled
|
|
|
|
int color,colour;
|
|
int hstart,hstop; //Horizontal Start and Stop
|
|
int vstart,vstop; //Vertical Start and Stop
|
|
int irqlin; //IRQ Line#
|
|
|
|
char spenbl; //Sprite Enabled
|
|
char spmode; //Sprite Mode (Bits Per Pixel)
|
|
int spaddr; //Sprite Attributes Address
|
|
int spsize; //Sprite Data Size
|
|
struct sprite spattr; //Sprite Attributes (Read)
|
|
struct sprite spattw; //Sprite Attributes (Write)
|
|
|
|
/* Layer 0/1 */
|
|
|
|
const char msizel = {32,64,128,0};
|
|
const char msizeh = { 0, 0, 0,1};
|
|
const char tsizel = {8,16};
|
|
|
|
char layer; //Layer Number
|
|
char layer0[9]; //Layer 0 Register Contents
|
|
char layer1[9]; //Layer 1 Register Contents
|
|
char tsize; //Tile Size in Pixels
|
|
int msize; //Map Size in Pixeks
|
|
int mbase0,mbase1; //Map Base, Layer 0 and 1
|
|
int tbase0,tbase1; //Tile Base, Layer 0 and 1
|
|
int mbaddr,tbaddr; //Map and Tile Base Address
|
|
int hscrl0,hscrl1; //Horizontal Scroll, Layer 0 and 1
|
|
int vscrl0,vscrl1; //Vertical Scroll, Layer 0 and 1
|
|
|
|
|
|
char aa,xx,yy; //Functions Parameters/Variables
|
|
|
|
void failed() {
|
|
putln(" FAILED");
|
|
}
|
|
|
|
void passed() {
|
|
putln(" PASSED");
|
|
//newlin();
|
|
}
|
|
|
|
void padint(aa,yy,xx) {
|
|
if (xx&96) putc(aa);
|
|
if (yy < 4) putc(aa);
|
|
}
|
|
|
|
void prtadr(aa,yy,xx) {
|
|
putc('$'); prhex(aa); prbyte(yy); prbyte(xx);
|
|
}
|
|
|
|
void prtflg(aa,yy,xx) {
|
|
if (aa) setdst("TRUE"); else setdst("FALSE");
|
|
printf(aa,yy,xx);
|
|
}
|
|
|
|
void prtreg(aa,yy,xx) {
|
|
printf(aa,"(%d,"); printf(yy,"%d,"); printf(xx,"%d) ");
|
|
}
|
|
|
|
void prtrgb(aa,yy,xx) {
|
|
prbyte(aa); putchr(',');
|
|
prbyte(yy); putchr(',');
|
|
prbyte(xx); putspc();
|
|
}
|
|
|
|
void prtscl() {
|
|
printf(hscale, "HSCALE=%h, ");
|
|
printf(vscale, "VSCALE=%h%n");
|
|
}
|
|
|
|
/*Print Sprite Attributes */
|
|
void prtspr() {
|
|
printf(setdst(spattr.addr),"ADR=$%w, ");
|
|
printf(setdst(spattr.horz),"HRZ=%i, ");
|
|
printf(setdst(spattr.vert),"VRT=%i, ");
|
|
printf(spattr.ctrl,"CTL=$%h, ");
|
|
printf(spattr.size,"SIZ=$%h%n");
|
|
}
|
|
|
|
void prttmp() {
|
|
printf(temp0, "TEMP0=$%h%n");
|
|
printf(temp1, "TEMP1=$%h%n");
|
|
printf(temp2, "TEMP2=$%h%n");
|
|
printf(temp3, "TEMP3=$%h%n");
|
|
}
|
|
|
|
void prtvid() {
|
|
select (mode) {
|
|
case 0: puts("DISABLED");
|
|
case 1: puts("VGA");
|
|
case 2: puts("NTSC");
|
|
case 3: puts("RGB");
|
|
default: puts("UNDEFINED");
|
|
}
|
|
if (mono) puts(" MONOCHROME"); else puts(" COLOR");
|
|
puts(", ");
|
|
if (field) puts("ODD"); else puts("EVEN");
|
|
putln(" FIELD");
|
|
}
|
|
|
|
int toint(.,yy,xx) {}
|
|
|
|
void xerror() {
|
|
putln(" ERROR ENCOUNTERED");
|
|
goto exit;
|
|
}
|
|
|
|
main:
|
|
newlin();
|
|
|
|
|
|
|
|
puts("TESTING GETMEM() AND SETMEM()");
|
|
setadr($20,&0); setmem(@abcdef,&abcdef);
|
|
setadr($20,&0); getmem(@abcdef,&buffer);
|
|
setdst(&abcdef); if (memcmp(@abcdef,&buffer)) xerror();
|
|
passed();
|
|
|
|
puts("TESTING GETVID() AND SETVID()");
|
|
for (i=0;i<4;i++) {
|
|
for (j=1;j:+;j--) {
|
|
//inline $ff;
|
|
setvid(i,j);
|
|
mode,mono,field = getvid();
|
|
//prtvid();
|
|
if (mode<>i or mono&j<>j) xerror();
|
|
}
|
|
}
|
|
passed();
|
|
|
|
puts("TESTING GETBDR() AND SETBDR()");
|
|
i=0; do {
|
|
setbdr(i);
|
|
index = getbdr();
|
|
if (index<>i) xerror();
|
|
//printf(index, "BORDER=%h%n");
|
|
i++;
|
|
} while(i);
|
|
passed();
|
|
|
|
puts("TESTING GETSCL() AND SETSCL()");
|
|
i=1; do {
|
|
j=1;
|
|
do {
|
|
setscl(i,j); hscale,vscale = getscl();
|
|
if (hscale<>i or vscale<>j) xerror("ERROR IN GETSCL()/SETSCL()");
|
|
j<<;
|
|
} while (j);
|
|
i<<;
|
|
} while (i);
|
|
passed();
|
|
|
|
//putln("SAVING START AND STOP REGISTERS");
|
|
setadr($1F, &$0004); getmem(5, &hrzvrt);
|
|
//for (i=0;i<5;i++) printf(hrzvrt[i], "%h "); newlin();
|
|
|
|
puts("TESTING GETHSR() AND SETHSR()");
|
|
sethsr(&$024C);
|
|
hstart = gethsr();
|
|
//setdst(hstart);printf("HSTART=%w%n");
|
|
if (>hstart<>$02 or <hstart<>$4C) xerror(); else passed();
|
|
|
|
puts("TESTING GETHSP() AND SETHSP()");
|
|
sethsp(&$025D); hstop = gethsp();
|
|
//setdst(hstop);printf("HSTOP=%w%n");
|
|
if (>hstop<>$02 or <hstop<>$5D) xerror(); else passed();
|
|
|
|
puts("TESTING GETVSR() AND SETVSR()");
|
|
setvsr(&$016E); vstart = getvsr();
|
|
//setdst(vstart);printf("VSTART=%w%n");
|
|
if (>vstart<>$01 or <vstart<>$6E) xerror(); else passed();
|
|
|
|
puts("TESTING GETVSP() AND SETVSP()");
|
|
setvsp(&$017F); vstop = getvsp();
|
|
//setdst(vstop);printf("VSTOP=%w%n");
|
|
if (>vstop<>$01 or <vstop<>$7F) xerror(); else passed();
|
|
|
|
//putln("RESTORING START AND STOP REGISTERS");
|
|
setadr($1F, &$0004); setmem(5, &hrzvrt);
|
|
|
|
puts("TESTING GETIRL() AND SETIRL()");
|
|
for (i=0;i<2;i++) {
|
|
j=0;
|
|
do {
|
|
setiql(0,i,j);
|
|
irqlin = getiql();
|
|
//setdst(); printf("IRQ LINE=%w%n");
|
|
if (>irqlin<>i or <irqlin<>j) xerror();
|
|
j++;
|
|
} while (j);
|
|
}
|
|
passed();
|
|
|
|
newlin();
|
|
|
|
/*************************************************************************/
|
|
|
|
puts("TESTING RGBCLR() AND CLRRGB()");
|
|
for (red=7;red<255;red=red+8) {
|
|
for (green=7;green<255;green=green+8) {
|
|
for (blue=7;blue<255;blue=blue+8) {
|
|
color = rgbclr(red,green,blue);
|
|
i,j,k = clrrgb(color);
|
|
if (red&$f0<>i or green&$f0<>j or blue&$f0<>k) {
|
|
prtrgb(red,green,blue);
|
|
putwrd(color); putspc();
|
|
prtrgb(i,j,k); newlin();
|
|
xerror();
|
|
}
|
|
}
|
|
}
|
|
}
|
|
passed();
|
|
|
|
puts("TESTING GETCLR() AND SETCLR()");
|
|
for (i=16; i<32; i++) {
|
|
//puthex(i); putspc();
|
|
color = getclr(i);
|
|
//putwrd(color); putspc();
|
|
if (i&15<>>color or nybdup(i)<><color) xerror();
|
|
//if (i&7==7) newlin();
|
|
}
|
|
//passed();
|
|
|
|
//puts("TESTING SETCLR()");
|
|
for (i=128; i<160; i++) {
|
|
//puthex(i); putspc();
|
|
red = i; green = i + 32; blue = i + 64;
|
|
//prhex(red); prhex(green); prhex(blue); putspc(); putspc();
|
|
color = rgbclr(red,green,blue);
|
|
setclr(i,color);
|
|
colour = getclr(i);
|
|
//putwrd(colour); putspc();
|
|
if (<colour<><color or >colour<>>color) xerror();
|
|
//if (i&7==7) newlin();
|
|
}
|
|
passed();
|
|
|
|
puts("TESTING GETRGB() AND SETRGB()");
|
|
for (l=128; l<160; l++) {
|
|
red = l; green = l + 32; blue = l + 64;
|
|
setidx(i); setrgb(red,green,blue);
|
|
setidx(l); i,j,k = getrgb();
|
|
if (red&$f0<>i or green&$f0<>j or blue&$f0<>k) {
|
|
puthex(l); putspc();
|
|
prtrgb(red,green,blue);
|
|
putwrd(color); putspc();
|
|
prtrgb(i,j,k); newlin();
|
|
xerror();
|
|
}
|
|
}
|
|
passed();
|
|
|
|
newlin();
|
|
|
|
/*************************************************************************/
|
|
|
|
//putln("SAVING LAYER REGISTERS");
|
|
setadr($1F,&$2000); getmem(@layer0,&layer0);
|
|
setadr($1F,&$3000); getmem(@layer1,&layer1);
|
|
|
|
printf("TESTING GETENB() AND SETENB()");
|
|
setenb(0,$00); if (getenb(0)<>$00) xerror();
|
|
setenb(0,$FF); if (getenb(0)<>$FF) xerror();
|
|
setenb(1,$00); if (getenb(1)<>$00) xerror();
|
|
setenb(1,$FF); if (getenb(1)<>$FF) xerror();
|
|
passed();
|
|
|
|
printf("TESTING GETMOD() AND SETMOD()");
|
|
for (i=0;i<2;i++) {for (j=0;j<8;j++) {
|
|
setmod(i,j); if (getmod(i)<>j) goto reslyr; //xerror();
|
|
} }
|
|
passed();
|
|
|
|
printf("TESTING GETMSZ() AND SETMSZ()");
|
|
for (i=0;i<2;i++) {for (j=0;j<4;j++) {for (k=0;k<4;k++) {
|
|
//printf(j,"%nJ=%h, "); printf(k,"K=%h");
|
|
setmsz(i,j,k); w, h = getmsz(i);
|
|
//printf(w," WIDTH=%h, "); printf(h,"HEIGHT=%h");
|
|
if (w<>j or h<>k) xerror();
|
|
}}}
|
|
passed();
|
|
|
|
printf("TESTING GETTSZ() AND SETTSZ()");
|
|
for (i=0;i<2;i++) {for (j=0;j<2;j++) {for (k=0;k<2;k++) {
|
|
//printf(j,"%nJ=%h, "); printf(k,"K=%h");
|
|
settsz(i,j,k); w, h = gettsz(i);
|
|
//printf(w," WIDTH=%h, "); printf(h,"HEIGHT=%h");
|
|
if (w<>j or h<>k) xerror();
|
|
}}}
|
|
passed();
|
|
|
|
printf("TESTING MAPSIZ() AND TILSIZ()");
|
|
for (i=0; i<@msizel; i++) {
|
|
msize = mapsiz(i);
|
|
//printf(i,"%nMAP SIZE %h = "); setdst(msize); printf("$%w PIXELS");
|
|
if (<msize<>msizel[i] or >msize<>msizeh[i]) xerror();
|
|
}
|
|
for (i=0; i<@tsizel; i++) {
|
|
tsize = tilsiz(i);
|
|
//printf(i,"%nTILE SIZE %h = "); printf(tsize, "$%h PIXELS");
|
|
if (tsize<>tsizel[i]) xerror();
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETMBS() AND SETMBS()");
|
|
setmbs(0,&$1234); mbase0 = getmbs(0);
|
|
setmbs(1,&$5678); mbase1 = getmbs(1);
|
|
//setdst(mbase0); printf("%nMBASE0=$%w, "); setdst(mbase1); printf("MBASE1=$%w%n");
|
|
if (>mbase0<>$12 or <mbase0<>$34) xerror();
|
|
if (>mbase1<>$56 or <mbase1<>$78) xerror();
|
|
passed();
|
|
|
|
printf("TESTING GETTBS() AND SETTBS()");
|
|
settbs(0,&$90AB); tbase0 = gettbs(0);
|
|
settbs(1,&$CDEF); tbase1 = gettbs(1);
|
|
//setdst(tbase0); printf("%nTBASE0=$%w, "); setdst(tbase1); printf("TBASE1=$%w%n");
|
|
if (>tbase0<>$90 or <tbase0<>$AB) xerror();
|
|
if (>tbase1<>$CD or <tbase1<>$EF) xerror();
|
|
passed();
|
|
|
|
printf("TESTING GETMBA() AND GETTBA()");
|
|
i,j,k = getmba(0); if (i<>$00 or j<>$48 or k<>$D0) xerror();
|
|
i,j,k = getmba(1); if (i<>$01 or j<>$59 or k<>$E0) xerror();
|
|
i,j,k = gettba(0); if (i<>$02 or j<>$42 or k<>$AC) xerror();
|
|
i,j,k = gettba(1); if (i<>$03 or j<>$37 or k<>$BC) xerror();
|
|
passed();
|
|
|
|
printf("TESTING GETHSC() AND SETHSC()");
|
|
sethsc(0,&$1357); hscrl0 = gethsc(0);
|
|
sethsc(1,&$2468); hscrl1 = gethsc(1);
|
|
//setdst(hscrl0); printf("%nHSCRL0=$%w, "); setdst(hscrl1); printf("HSCRL1=$%w%n");
|
|
if (>hscrl0<>$13 or <hscrl0<>$57) xerror();
|
|
if (>hscrl1<>$24 or <hscrl1<>$68) xerror();
|
|
passed();
|
|
|
|
printf("TESTING GETVSC() AND SETVSC()");
|
|
setvsc(0,&$9BDF); vscrl0 = getvsc(0);
|
|
setvsc(1,&$0ACE); vscrl1 = getvsc(1);
|
|
//setdst(vscrl0); printf("%nVSCRL0=$%w, "); setdst(hscrl1); printf("VSCRL1=$%w%n");
|
|
if (>vscrl0<>$9B or <vscrl0<>$DF) xerror();
|
|
if (>vscrl1<>$0A or <vscrl1<>$CE) xerror();
|
|
passed();
|
|
|
|
printf("TESTING GETBPO() AND SETBPO()");
|
|
i = 0; do {
|
|
setbpo(0,i); if (getbpo(0)<>i) xerror();
|
|
setbpo(1,i); if (getbpo(1)<>i) xerror();
|
|
i = i + 16;
|
|
} while (i);
|
|
passed();
|
|
|
|
reslyr:
|
|
setadr($1F, &$2000); setmem(@layer0, &layer0);
|
|
setadr($1F, &$3000); setmem(@layer1, &layer1);
|
|
|
|
newlin();
|
|
|
|
/*************************************************************************/
|
|
|
|
printf("TESTING GETSPE() AND SETSPE()");
|
|
setspe(#FALSE); if (getspe()) xerror();
|
|
setspe(#TRUE); if (!getspe()) xerror();
|
|
passed();
|
|
|
|
printf("TESTING GETSPO() AND SETSPO()");
|
|
addr = &$5000;
|
|
for (i=0; i<#MAXSPR;i++) {
|
|
for (j=0;j<8;j++) {
|
|
spaddr = getspo(i,j);
|
|
//printf(i,"%nSPRITE %r "); printf(j,"OFFSET %d ADDRESS=$"); putwrd(spaddr);
|
|
if (<spaddr <> <addr or >spaddr <> >addr) xerror();
|
|
if (setspo(i,j)<>8) xerror(); //Returns number of attribute bytes per sprite
|
|
b,m,l = getadr();
|
|
//puts(", $"); putexh(b,m,l);
|
|
if (b <> $1F or l <> <addr or m <> >addr) xerror();
|
|
addr++;
|
|
}
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPR() AND SETSPR()");
|
|
bank=$1f;msb=$50; lsb=$00;
|
|
for (i=0; i<#MAXSPR;i++) {
|
|
lsb=lsb+8; if (!lsb) msb++;
|
|
/* Set Sprite Attributes */
|
|
spattw[0]=i^$FF; spattw[1]=i|$80; //Sprite Address & Mode
|
|
spattw[2]=i|$80; spattw[3]=0; spattw.horz<<; spattw.horz<<;
|
|
spattw[4]=i^$FF; spattw[5]=0; spattw.vert<<; spattw.vert<<;
|
|
spattw[6]=(i&1) ? $80|i : i;//Sprite Control
|
|
spattw[7]=(i&1) ? i : $80|i; //Sprite Size
|
|
l = setspr(i,&spattw); if (l<>8) xerror();
|
|
b,m,l = getadr(); if (b<>bank or m<>msb or l<>lsb) xerror();
|
|
/* Get Sprite Attributes */
|
|
l = getspr(i,&spattr); if (l<>8) xerror();
|
|
b,m,l = getadr(); if (b<>bank or m<>msb or l<>lsb) xerror();
|
|
//printf(i, "SPRITE %r ATTRS: "); prtspr();
|
|
for (j=0; j<@spattr; j++) {if (spattr[j]<>spattw[j]) xerror();}
|
|
/* Clear Sprite Attributes */
|
|
clrspr(i); b,m,l = getadr(); if (b<>bank or m<>msb or l<>lsb) xerror();
|
|
getspr(i, &spattr); b,m,l = getadr(); if (b<>bank or m<>msb or l<>lsb) xerror();
|
|
for (j=0; j<@spattr; j++) {if (spattr[j]) xerror();}
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPD() AND SETSPD()");
|
|
spaddr=&$800; //Sprite Address Register Value
|
|
bank=1; msb=0; lsb=0; //Sprite Data Address (spaddr<<5)
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i,"%nSPRITE %r ");
|
|
setspg(i,1,$80); //Set Bit 7 of Register 1 (Mode)
|
|
setspd(i,spaddr);
|
|
//printf(getspg(i,1),"REG=$%h"); printf(getspg(i,0),"%h ");
|
|
if (!getspg(i,1)&$80) xerror(); //Check Bit 7 of Register 1
|
|
addr = getspd(i);
|
|
//printf(setdst(addr),"ADDRESS=$%w");
|
|
if (<addr <> <spaddr or >addr <> >spaddr) xerror();
|
|
b,m,l = getspa(i);
|
|
//printf(setdst(b,m,l)," ($%g%w)");
|
|
if (b<>bank or m<>msb or l<>lsb) xerror();
|
|
spaddr++;
|
|
lsb = lsb + $20; if (!lsb) msb++;
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING SETSPB() AND GETSPB()");
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i, "%nSPRITE %r ");
|
|
k=127-i; setspg(i,1,k); //Set Bits 0-6 of Register
|
|
for (j=1; j:+; j--) {
|
|
setspb(i,j);
|
|
spmode = getspb(i);
|
|
//printf(spmode,"MODE=%d ");
|
|
//printf(getspg(i,1),"REG=$%h ");
|
|
if (spmode<>j) xerror();
|
|
}
|
|
if (getspg(i,1)<>k) xerror(); //Check Bits 0-6 of Register
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPX() AND SETSPX()");
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i, "%nSPRITE %r ");
|
|
lsb = i&3; msb = i+64;
|
|
setspx(i, msb, lsb); l = getspg(i,2); m = getspg(i,3);
|
|
//printf(setdst(.,m,l),"REG=$%w ");
|
|
if (l<>lsb or m<>msb) xerror();
|
|
n,m,l = getspx(i);
|
|
//printf(setdst(.,m,l),"X=%i ");
|
|
if (m<>msb or l<>lsb) xerror();
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPY() AND SETSPY()");
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i, "%nSPRITE %r ");
|
|
lsb = i&3^3; msb = 192-i;
|
|
setspy(i, msb, lsb); l = getspg(i,4); m = getspg(i,5);
|
|
//printf(setdst(.,m,l),"REG=$%w ");
|
|
if (l<>lsb or m<>msb) xerror();
|
|
n,m,l = getspy(i);
|
|
//printf(setdst(.,m,l),"Y=%i ");
|
|
if (m<>msb or l<>lsb) xerror();
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPF() AND SETSPF()");
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i, "%nSPRITE %r ");
|
|
setspn(i,$ff); //Set All Bits in Control Register
|
|
for (j=1; j:+; j--) { //1 to 0
|
|
k = j-1; //#FALSE then #TRUE
|
|
setspf(i,k);
|
|
//printf(getspn(i),"REG=$%h ");
|
|
n = getspf(i);
|
|
//prtflg(n,"HFLIP=$%h (%s) ");
|
|
if (n<>k) xerror();
|
|
}
|
|
if (getspn(i)<>$ff) xerror();
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPV() AND SETSPV()");
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i, "%nSPRITE %r ");
|
|
setspn(i,$ff); //Set All Bits in Control Register
|
|
for (j=1; j:+; j--) { //1 to 0
|
|
k = j-1; //#FALSE then #TRUE
|
|
setspv(i,k);
|
|
//printf(getspn(i),"REG=$%h ");
|
|
n = getspv(i);
|
|
//prtflg(n,"HFLIP=$%h (%s) ");
|
|
if (n<>k) xerror();
|
|
}
|
|
if (getspn(i)<>$ff) xerror();
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPZ() AND SETSPZ()");
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i, "%nSPRITE %r ");
|
|
setspn(i,$ff); //Set All Bits in Control Register
|
|
for (j=0; j<4; j++) {
|
|
setspz(i,j);
|
|
//printf(getspn(i),"REG=$%h ");
|
|
n = getspz(i);
|
|
//printf(n,"ZDEPTH=%d ");
|
|
if (n<>j) xerror();
|
|
}
|
|
if (getspn(i)<>$ff) xerror();
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPM() AND SETSPM()");
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i, "%n%r ");
|
|
setspn(i,$ff); //Set All Bits in Control Register
|
|
for (j=0; j<16; j++) {
|
|
setspm(i,j);
|
|
//printf(getspn(i),"%h:");
|
|
n = getspm(i);
|
|
//printf(n,"%g ");
|
|
if (n<>j) xerror();
|
|
}
|
|
if (getspn(i)<>$ff) xerror();
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPP() AND SETSPP()");
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i, "%n%r ");
|
|
setsps(i,$ff); //Set All Bits in Control Register
|
|
for (j=0; j<16; j++) {
|
|
setspp(i,j);
|
|
//printf(getsps(i),"%h:");
|
|
n = getspp(i);
|
|
//printf(n,"%g ");
|
|
if (n<>j) xerror();
|
|
}
|
|
if (getsps(i)<>$ff) xerror();
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPH() AND SETSPH()");
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i, "%nSPRITE %r HEIGHT ");
|
|
setsps(i,$ff); //Set All Bits in Control Register
|
|
for (j=0; j<4; j++) {
|
|
setsph(i,j);
|
|
//printf(getsps(i),"[$%h] ");
|
|
n = getsph(i);
|
|
//printf(n,"%d ");
|
|
if (n<>j) xerror();
|
|
}
|
|
if (getsps(i)<>$ff) xerror();
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPW() AND SETSPW()");
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
//printf(i, "%nSPRITE %r WIDTH ");
|
|
setsps(i,$ff); //Set All Bits in Control Register
|
|
for (j=0; j<4; j++) {
|
|
setspw(i,j);
|
|
//printf(getsps(i),"[$%h] ");
|
|
n = getspw(i);
|
|
//printf(n,"%d ");
|
|
if (n<>j) xerror();
|
|
}
|
|
if (getsps(i)<>$ff) xerror();
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPJ() AND GETSPK()");
|
|
l = 8; m = 3; //Size in Pixels, Shift Counter
|
|
for (i=0; i<4; i++) {
|
|
//printf(i,"%nSIZE %r =");
|
|
j,k = getspj(i);
|
|
//printf(j,"%r PIXELS, ");
|
|
//printf(k,"SHIFT COUNT %d");
|
|
if (j<>l or k<>m) xerror();
|
|
l<<; m++; //Multiply Size by Two, Increment Shift Counter
|
|
}
|
|
h = 8; height = &8; //Sprite Height in Pixels
|
|
for (i=0; i<4; i++) {
|
|
w = 8; //Sprite Width in Pixels
|
|
size = height; size<<; size<<; //Set Size to Height*4
|
|
for (j=0; j<4; j++) {
|
|
p = 4; //Bits Per Pixeg
|
|
bytes = size;
|
|
//printf(h,"%nSPRITE HEIGHT=%l"); printf(w,"WIDTH=%l");
|
|
for (k=0; k<2; k++) {
|
|
//printf(p,"%d BPP ");
|
|
spsize = getspk(j,i,k); //Calculate Sprite Data Size
|
|
//printf(setdst(spsize),"SIZE=%i "); padint(' ',spsize);
|
|
//printf(setdst(bytes),"[%i] "); padint(' ',bytes);
|
|
if (<spsize <> <bytes or >spsize <> >bytes) xerror();
|
|
p<<; bytes<<; //Multiply BPP, Size by 2
|
|
}
|
|
w<<; size<<; //Multiply Width, Size by 2
|
|
}
|
|
h<<; height<<; //Multiply Height by 2
|
|
}
|
|
passed();
|
|
|
|
printf("TESTING GETSPL() AND GETSPU()");
|
|
n = 0; //Sprite Index
|
|
h = 8; height = &8; //Sprite Height in Pixels
|
|
for (i=0; i<4; i++) {
|
|
setsph(n,i); //Set Sprite Height Specifier
|
|
w = 8; //Sprite Width in Pixels
|
|
size = height; size<<; size<<; //Set Size to Height*4
|
|
for (j=0; j<4; j++) {
|
|
setspw(n,j); //Set Sprite Width Specifier
|
|
p = 4; //Bits Per Pixeg
|
|
bytes = size;
|
|
//printf(h,"%nHEIGHT=%d "); if (!i) putspc();
|
|
//printf(w,"WIDTH=%d "); if (!j) putspc();
|
|
for (k=0; k<2; k++) {
|
|
setspp(n,k);
|
|
d,e,f = getspu(n);
|
|
//printf(p,"%dBPP "); prtreg();
|
|
if (d<>j or e<>i or f<>k) xerror();
|
|
spsize = getspl(n); //Get Sprite Data Size
|
|
//printf(setdst(spsize),"SIZE=%i "); padint(' ',spsize);
|
|
//printf(setdst(bytes),"[%i] "); padint(' ',bytes);
|
|
if (<spsize <> <bytes or >spsize <> >bytes) xerror();
|
|
p<<; bytes<<; //Multiply BPP, Size by 2
|
|
}
|
|
w<<; size<<; //Multiply Width, Size by 2
|
|
}
|
|
h<<; height<<; //Multiply Height by 2
|
|
n++; //Increment Sprite Index
|
|
}
|
|
passed();
|
|
|
|
newlin();
|
|
|
|
/*************************************************************************/
|
|
|
|
|
|
newlin();
|
|
|
|
goto exit;
|
|
|