(mandelbrot.tal) Migrated to immediate opcodes
This commit is contained in:
Devine Lu Linvega
parent
617e3d1f41
commit
895bfc8675
|
|
@ -1,30 +1,15 @@
|
|||
( mandelbrot )
|
||||
|
||||
%GTS2 { #8000 ADD2 SWP2 #8000 ADD2 LTH2 }
|
||||
%AUTO-X { #01 .Screen/auto DEO }
|
||||
%NEXT-LINE { #0000 .Screen/x DEO2 .Screen/y DEI2k INC2 ROT DEO2 }
|
||||
|
||||
%WIDTH { #0280 }
|
||||
%HEIGHT { #01e0 }
|
||||
|
||||
%WIDTH { #02a0 }
|
||||
%HEIGHT { #0200 }
|
||||
%XMIN { #de69 } ( -8601 )
|
||||
%XMAX { #0b33 } ( 2867 )
|
||||
%YMIN { #ecc7 } ( -4915 )
|
||||
%YMAX { #1333 } ( 4915 )
|
||||
%MAXI { #20 } ( 32 )
|
||||
%DX { XMAX XMIN SUB2 WIDTH DIV2 } ( (XMAX-XMIN)/W )
|
||||
%DY { YMAX YMIN SUB2 HEIGHT DIV2 } ( (YMAX-YMIN)/H )
|
||||
%X { .x LDZ2 } %Y { .y LDZ2 }
|
||||
%X2 { .x2 LDZ2 } %Y2 { .y2 LDZ2 }
|
||||
|
||||
|00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1
|
||||
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|
||||
|
||||
|0000 ( zero-page )
|
||||
|
||||
@x $2 @y $2
|
||||
@x2 $2 @y2 $2
|
||||
|
||||
|0100 ( -> )
|
||||
|
||||
( theme )
|
||||
|
|
@ -35,46 +20,58 @@
|
|||
WIDTH .Screen/width DEO2 ( 640 )
|
||||
HEIGHT .Screen/height DEO2 ( 480 )
|
||||
|
||||
AUTO-X
|
||||
|
||||
;draw-mandel JSR2
|
||||
draw-mandel
|
||||
|
||||
BRK
|
||||
|
||||
@draw-mandel ( -- )
|
||||
|
||||
XMAX XMIN SUB2 WIDTH DIV2 ;&dx STA2
|
||||
YMAX YMIN SUB2 HEIGHT DIV2 ;&dy STA2
|
||||
[ LIT2 01 -Screen/auto ] DEO
|
||||
YMAX YMIN
|
||||
&ver
|
||||
DUP2 ,&y STR2
|
||||
XMAX XMIN
|
||||
&hor
|
||||
DUP2 ,&x STR2
|
||||
#0000 DUP2k DUP2 .x STZ2 .y STZ2 .x2 STZ2 .y2 STZ2
|
||||
MAXI #00
|
||||
#0000
|
||||
DUP2 ,&x1 STR2
|
||||
DUP2 ,&y1 STR2
|
||||
DUP2 ,&x2 STR2
|
||||
,&y2 STR2
|
||||
( pixel )
|
||||
#2000
|
||||
&loop
|
||||
X Y ;smul2 JSR2 DUP2 ADD2 [ LIT2 &y $2 ] ADD2 .y STZ2
|
||||
X2 Y2 SUB2 [ LIT2 &x $2 ] ADD2 .x STZ2
|
||||
X DUP2 ;smul2 JSR2 .x2 STZ2
|
||||
Y DUP2 ;smul2 JSR2 .y2 STZ2
|
||||
X2 Y2 ADD2 #4000 GTH2 ,&end JCN
|
||||
INC GTHk ,&loop JCN
|
||||
[ LIT2 &x1 $2 ] [ LIT2 &y1 $2 ] smul2 DUP2 ADD2
|
||||
[ LIT2 &y $2 ] ADD2 ,&y1 STR2
|
||||
[ LIT2 &x2 $2 ] [ LIT2 &y2 $2 ] SUB2
|
||||
[ LIT2 &x $2 ] ADD2 ,&x1 STR2
|
||||
,&x1 LDR2 DUP2 smul2
|
||||
DUP2 ,&x2 STR2
|
||||
,&y1 LDR2 DUP2 smul2
|
||||
DUP2 ,&y2 STR2
|
||||
ADD2 #4000 GTH2 ?&end
|
||||
INC GTHk ?&loop
|
||||
&end
|
||||
NIP .Screen/pixel DEO
|
||||
DX ADD2 OVR2 OVR2 GTS2 ;&hor JCN2
|
||||
( done. )
|
||||
[ LIT2 &dx $2 ] ADD2 OVR2 #8000 ADD2 OVR2 #8000 ADD2 SWP2 LTH2 ?&hor
|
||||
POP2 POP2
|
||||
NEXT-LINE
|
||||
DY ADD2 OVR2 OVR2 GTS2 ;&ver JCN2
|
||||
#0000 .Screen/x DEO2
|
||||
.Screen/y DEI2k INC2 ROT DEO2
|
||||
[ LIT2 &dy $2 ] ADD2 OVR2 #8000 ADD2 OVR2 #8000 ADD2 SWP2 LTH2 ?&ver
|
||||
POP2 POP2
|
||||
|
||||
JMP2r
|
||||
|
||||
@smul2 ( a* b* -- c* )
|
||||
LITr 00
|
||||
DUP2 #8000 LTH2 ,&b-positive JCN
|
||||
DUP2 #8000 LTH2 ?&b-positive
|
||||
INCr DUP2k EOR2 SWP2 SUB2
|
||||
&b-positive
|
||||
SWP2
|
||||
DUP2 #8000 LTH2 ,&a-positive JCN
|
||||
DUP2 #8000 LTH2 ?&a-positive
|
||||
INCr DUP2k EOR2 SWP2 SUB2
|
||||
&a-positive
|
||||
( ahi alo bhi blo )
|
||||
|
|
@ -97,8 +94,9 @@ JMP2r
|
|||
( The result we want is bits 27-12 due to the fixed point representation we use. )
|
||||
#04 SFT2 SWP2 #40 SFT2 ADD2
|
||||
( saturate to +/-7.fff )
|
||||
#7fff GTH2k JMP SWP2 NIP2
|
||||
STHr #01 NEQ ,&result-positive JCN
|
||||
#7fff GTH2k [ JMP SWP2 NIP2 ]
|
||||
STHr #01 NEQ ?&result-positive
|
||||
DUP2k EOR2 SWP2 SUB2
|
||||
&result-positive
|
||||
JMP2r
|
||||
|
||||
|
|
|
|||
|
|
@ -29,7 +29,7 @@ WITH REGARD TO THIS SOFTWARE.
|
|||
#define N2 PEEK16(s->dat+s->ptr-4)
|
||||
#define L2 PEEK16(s->dat+s->ptr-6)
|
||||
|
||||
#define HALT(c) { return uxn_halt(u, instr, (c), pc - 1); }
|
||||
#define HALT(c) { return uxn_halt(u, ins, (c), pc - 1); }
|
||||
#define INC(mul, add) { if(mul > s->ptr) HALT(1) s->ptr += k * mul + add; if(s->ptr > 255) HALT(2) }
|
||||
#define DEC(mul, sub) { if(mul > s->ptr) HALT(1) s->ptr -= !k * mul - sub; if(s->ptr > 255) HALT(2) }
|
||||
#define PUT(o, v) { s->dat[s->ptr - o - 1] = (v); }
|
||||
|
|
@ -40,17 +40,15 @@ WITH REGARD TO THIS SOFTWARE.
|
|||
int
|
||||
uxn_eval(Uxn *u, Uint16 pc)
|
||||
{
|
||||
Uint8 instr, opc, k;
|
||||
Uint8 ins, opc, k;
|
||||
Uint16 t, n, l, tmp;
|
||||
Stack *s;
|
||||
if(!pc || u->dev[0x0f]) return 0;
|
||||
for(;;) {
|
||||
instr = u->ram[pc++];
|
||||
k = !!(instr & 0x80);
|
||||
s = instr & 0x40 ? u->rst : u->wst;
|
||||
opc = instr & 0x3f;
|
||||
if(!(instr & 0x1f))
|
||||
opc = 0 - (instr >> 5);
|
||||
ins = u->ram[pc++];
|
||||
k = !!(ins & 0x80);
|
||||
s = ins & 0x40 ? u->rst : u->wst;
|
||||
opc = !(ins & 0x1f) ? 0 - (ins >> 5) : ins & 0x3f;
|
||||
switch(opc) {
|
||||
/* IMM */
|
||||
case 0x00: /* BRK */ return 1;
|
||||
|
|
@ -90,8 +88,8 @@ uxn_eval(Uxn *u, Uint16 pc)
|
|||
case 0x0d: /* JCN */ t=T;n=N; DEC(2, 0) pc += !!n * (Sint8)t; break;
|
||||
case 0x2e: /* JSR2 */ t=T2; DEC(2, 0) PUSH2(u->rst, pc) pc = t; break;
|
||||
case 0x0e: /* JSR */ t=T; DEC(1, 0) PUSH2(u->rst, pc) pc += (Sint8)t; break;
|
||||
case 0x2f: /* STH2 */ t=T2; if(instr & 0x40){ u->rst->ptr -= !k * 2; PUSH2(u->wst, t); } else{ u->wst->ptr -= !k * 2; PUSH2(u->rst, t); } break;
|
||||
case 0x0f: /* STH */ t=T; if(instr & 0x40){ u->rst->ptr -= !k; PUSH(u->wst, t); } else{ u->wst->ptr -= !k; PUSH(u->rst, t); } break;
|
||||
case 0x2f: /* STH2 */ t=T2; if(ins & 0x40) { u->rst->ptr -= !k * 2; PUSH2(u->wst, t); } else{ u->wst->ptr -= !k * 2; PUSH2(u->rst, t); } break;
|
||||
case 0x0f: /* STH */ t=T; if(ins & 0x40) { u->rst->ptr -= !k; PUSH(u->wst, t); } else{ u->wst->ptr -= !k; PUSH(u->rst, t); } break;
|
||||
case 0x30: /* LDZ2 */ t=T; INC(1, 1) PUT2(0, PEEK16(u->ram + t)) break;
|
||||
case 0x10: /* LDZ */ t=T; INC(1, 0) PUT(0, u->ram[t]) break;
|
||||
case 0x31: /* STZ2 */ t=T;n=H2; DEC(3, 0) POKE16(u->ram + t, n) break;
|
||||
|
|
|
|||
Loading…
Reference in New Issue