mirror of https://github.com/RevCurtisP/C02.git
76 lines
1.6 KiB
Plaintext
76 lines
1.6 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 <string.h02>
|
|
#include <memory.h02>
|
|
#include <nybble.h02>
|
|
#include "include/veramem.h02" //Vera Memory Access
|
|
#include "include/veraspr.h02" //Vera Sprites
|
|
|
|
char i; //Index Variable
|
|
|
|
char aa,xx,yy; //Functions Parameters/Variables
|
|
char ii,oo,ss[128];
|
|
int yx;
|
|
|
|
void prthdr() {
|
|
putln("SPR ADDRESS MODE XPOS YPOS MASK Z VFLIP HFLIP HGHT WDTH POF");
|
|
}
|
|
|
|
void prtpos(yx) {
|
|
setdst(&ss); aa = itoa(yx);
|
|
for (ii=strlen(&ss); ii<4; ii++) putspc();
|
|
puts(&ss); putspc();
|
|
}
|
|
|
|
void prtflg(aa) {
|
|
if (aa) puts("TRUE ");
|
|
else puts("FALSE ");
|
|
}
|
|
|
|
void prtsiz() {
|
|
select(A) {
|
|
case 0: puts(" 8");
|
|
case 1: puts("16");
|
|
case 2: puts("32");
|
|
case 3: puts("64");
|
|
default: puts("??");
|
|
}
|
|
puts("PX ");
|
|
}
|
|
|
|
void prtofs(aa) {
|
|
if (aa) {aa<<;aa<<;aa<<;aa<<;}
|
|
printf(aa,"%r ");
|
|
}
|
|
|
|
main:
|
|
newlin();
|
|
for (i=0; i<#MAXSPR; i++) {
|
|
if (!i&31) prthdr();
|
|
printf(i,"%r ");
|
|
printf(setdst(getspa(i))," $%g%w ");
|
|
if (getspb(i)) puts("8BPP "); else puts("4BPP ");
|
|
prtpos(getspx(i));
|
|
prtpos(getspy(i));
|
|
putmsk(getspm(i),$0F); putspc();
|
|
putdec(getspz(i)); putspc();
|
|
prtflg(getspf(i));
|
|
prtflg(getspv(i));
|
|
prtsiz(getsph(i));
|
|
prtsiz(getspw(i));
|
|
prtofs(getspp(i));
|
|
newlin();
|
|
if (i&31==31 and anykey() == #ESCKEY) goto exit;
|
|
}
|
|
newlin();
|
|
goto exit;
|
|
|