90 lines
1.5 KiB
C
90 lines
1.5 KiB
C
/* Dump a shape table. Trying to debug a weird problem. */
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
|
|
static char name[8][5]={
|
|
"NUP", /* 0 */
|
|
"NRT", /* 1 */
|
|
"NDN", /* 2 */
|
|
"NLT", /* 3 */
|
|
"UP", /* 4 */
|
|
"RT", /* 5 */
|
|
"DN", /* 6 */
|
|
"LT" /* 7 */
|
|
};
|
|
|
|
int main(int argc, char **argv) {
|
|
|
|
int ch,i;
|
|
int h,l;
|
|
int num_shapes=0,offset;
|
|
int a,b,c;
|
|
short offsets[256];
|
|
/* applesoft indexes from 1 not 0 */
|
|
int shape_num=1;
|
|
|
|
l=fgetc(stdin);
|
|
h=fgetc(stdin);
|
|
printf("BLOAD address: 0x%x\n",(h*256)+l);
|
|
l=fgetc(stdin);
|
|
h=fgetc(stdin);
|
|
printf("BLOAD size: %d\n",(h*256)+l);
|
|
offset=0;
|
|
|
|
num_shapes=fgetc(stdin);
|
|
printf("NUM SHAPES = %d\n",num_shapes);
|
|
ch=fgetc(stdin);
|
|
if (ch!=0) printf("\tERROR! NOT ZERO\n");
|
|
offset+=2;
|
|
|
|
for(i=0;i<num_shapes;i++) {
|
|
l=fgetc(stdin);
|
|
h=fgetc(stdin);
|
|
printf("SHAPE %d offset = %d ($%02X%02X)\n",i,
|
|
(h*256)+l,h,l);
|
|
offsets[i]=(h*256)+l;
|
|
offset+=2;
|
|
}
|
|
|
|
/* skip to proper offset */
|
|
while(offset<offsets[0]) {
|
|
offset++;
|
|
ch=fgetc(stdin);
|
|
if (ch<0) return -1;
|
|
}
|
|
|
|
printf("Shape %d\n",shape_num);
|
|
|
|
while(1) {
|
|
ch=fgetc(stdin);
|
|
if (ch<0) break;
|
|
|
|
a=ch&0x7;
|
|
b=(ch>>3)&0x7;
|
|
c=(ch>>6)&0x3;
|
|
|
|
printf("$%X:\t%x ",offset,ch);
|
|
if ((c==0) && (b==0) && (a==0)) {
|
|
printf("END!\n");
|
|
shape_num++;
|
|
if (shape_num<num_shapes) {
|
|
printf("\nShape %d\n",shape_num);
|
|
}
|
|
} else{
|
|
printf("\tA: %s ",name[a]);
|
|
}
|
|
if ((c==0) && (b==0)) {
|
|
}
|
|
else {
|
|
printf("\tB: %s ",name[b]);
|
|
}
|
|
if (c!=0) printf("\tC: %s ",name[c]);
|
|
printf("\n");
|
|
offset++;
|
|
}
|
|
|
|
return 0;
|
|
}
|