Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-13 22:30:49 +00:00
Code Issues Projects Releases Wiki Activity

memories: update emulator

Browse Source
This commit is contained in:
Vince Weaver 2020-05-07 15:22:43 -04:00
parent db894d69cd
commit 83219ff84b
2 changed files with 58 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
gr-sim/hellmood_memories/hellmood_gr.c
View File

@ -26,6 +26,9 @@
static unsigned short frame;
//int m1s[256],m2s[256];
#if 0
static unsigned short stack[128];
static int sp=0;
@ -409,18 +412,18 @@ fx4q:
/* raycast bent tunnel */
static int fx5(int xx, int yy, int xprime) {
unsigned char al;
unsigned short xcoord,ycoord;
signed short color,yproj,xproj,depth,ax=0;
signed short yproj,xproj;
signed char depth;
int zf=0;
signed char m1,m2;
signed char m1,m2,color,al;
/* adjust to be centered */
xcoord=(xprime-10)*4;
ycoord=(yy-10)*4;
/* set depth to -9 (move backwards) */
depth=(-9&0xff);
depth=-9;
fx5L:
/* put Ycoord into AL */
@ -430,9 +433,12 @@ fx5L:
/* 8x8 signed multiply Ycoord*depth to get projection */
m1=al;
m2=depth&0xff;
m1=al; //m1s[m1&0xff]++;
m2=depth; //m2s[m2&0xff]++;
yproj=m1*m2;
// printf("%d %d = %x\n",m1,m2,yproj);
/* only top used? */
/* Get X paramater */
@ -441,10 +447,15 @@ fx5L:
al+=depth&0xff;
/* 8x8 signed multiply Ycoord*depth to get projection */
m1=al;
m2=depth&0xff;
m1=al; //m1s[m1&0xff]++;
m2=depth; //m2s[m2&0xff]++;
xproj=m1*m2;
// printf("%d %d = %x\n",m1,m2,xproj);
depth--;
if (depth==0) goto putpixel;
al=(yproj>>8)&0xff;// mov al,dh ; get projection(1) in AL
al^=(xproj>>8); // xor al,ah ; combine with projection(2)
al+=4; // add al,4 ; center the walls around 0
@ -455,20 +466,26 @@ fx5L:
zf=1;
}
depth--;
if ((depth!=0) && (zf==1)) goto fx5L;
if (zf==1) goto fx5L;
putpixel:
// if ((depth!=0) && (zf==1)) goto fx5L;
color=al;
// loopz fx5L (repeat until "hit" or "iter=max"
depth=depth-frame; // sub cx,bp ; offset depth by time
// color=ax;
al^=(depth&0xff); // xor al,cl ; XOR pattern for texture
// ah=al/6;
color=color; // aam 6 ; irregular pattern with MOD 6
al+=20; // add al,20 ; offset into grayscale pattern
ax=al&0xff;
color^=depth; // xor al,cl ; XOR pattern for texture
return ax;
color&=0x7;
/* aam 6 ; irregular pattern with MOD 6 */
/* add al,20 ; offset into grayscale pattern */
//color+=20;
return color;
}
@ -531,6 +548,9 @@ int main(int argc, char **argv) {
int color=0,which,xx,yy,xprime;
int ch;
// int i;
// for(i=0;i<256;i++) { m1s[i]=0; m2s[i]=0;}
grsim_init();
gr();
@ -571,7 +591,15 @@ int main(int argc, char **argv) {
/* so wraps 3 times before updating screen? */
}
}
if (frame%128==0) printf("frame: %d\n",frame);
if (frame%128==0) {
printf("frame: %d\n",frame);
// printf("m1: ");
// for(i=0;i<256;i++) printf("%d ",m1s[i]);
// printf("\n");
// printf("m2: ");
// for(i=0;i<256;i++) printf("%d ",m2s[i]);
// printf("\n");
}
grsim_update();

15
hellmood_memories/Makefile
View File

@ -8,14 +8,14 @@ B2D = ../bmp2dhr/b2d
all: memories.dsk
memories.dsk: HELLO CIRCLES.BAS CIRCLES CHECKERS CHECKERS_SMALL
memories.dsk: HELLO CIRCLES.BAS CIRCLES CHECKERS CHECKERS_SMALL TUNNEL
cp empty.dsk memories.dsk
$(DOS33) -y memories.dsk SAVE A HELLO
$(DOS33) -y memories.dsk SAVE A CIRCLES.BAS
$(DOS33) -y memories.dsk BSAVE -a 0x070 CIRCLES
$(DOS33) -y memories.dsk BSAVE -a 0x070 CHECKERS
$(DOS33) -y memories.dsk BSAVE -a 0x070 CHECKERS_SMALL
$(DOS33) -y memories.dsk BSAVE -a 0x1000 TUNNEL
CIRCLES: circles.o
ld65 -o CIRCLES circles.o -C ../linker_scripts/apple2_70_zp.inc
@ -33,6 +33,15 @@ checkers.o: checkers.s
###
TUNNEL: tunnel.o
ld65 -o TUNNEL tunnel.o -C ../linker_scripts/apple2_1000.inc
tunnel.o: tunnel.s
ca65 -o tunnel.o tunnel.s -l tunnel.lst
###
CHECKERS_SMALL: checkers_small.o
ld65 -o CHECKERS_SMALL checkers_small.o -C ../linker_scripts/apple2_70_zp.inc
@ -53,5 +62,5 @@ CIRCLES.BAS: zooming_circles.bas
clean:
rm -f *~ *.o *.lst HELLO CIRCLES.BAS CIRCLES CHECKERS \
CHECKERS_SMALL
CHECKERS_SMALL TUNNEL