commit f9b158e2c2d8ffa2b5f5215afdabbad63c630825
parent 755efc4fbde6952b9b0a720d791385fcce64b795
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sat, 28 May 2022 10:00:31 -0700
(wireworld.tal) Updated
Diffstat:
1 file changed, 133 insertions(+), 98 deletions(-)
diff --git a/projects/examples/demos/wireworld.tal b/projects/examples/demos/wireworld.tal
@@ -1,6 +1,6 @@
-(
+(
wireworld
-
+
A - conductor
B - tail
Sel - head
@@ -9,66 +9,45 @@
mouse2 - erase
RULES:
- - electron head(3), becomes electron tail(2)
- - electron tail(2), becomes conductor(1)
- - conductor(1), becomes electron head(3)
- if there are exactly 1 or 2 electron heads around it. )
-
-%+ { ADD } %- { SUB } %* { MUL } %/ { DIV }
-%< { LTH } %> { GTH } %= { EQU } %! { NEQ }
-%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
-%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
-
-%!~ { NEQk NIP }
-
-%2* { #10 SFT } %2/ { #01 SFT } %2** { #10 SFT2 } %2// { #01 SFT2 }
-%4* { #20 SFT } %4/ { #02 SFT } %4** { #20 SFT2 } %4// { #02 SFT2 }
-%8* { #30 SFT } %8/ { #03 SFT } %8** { #30 SFT2 } %8// { #03 SFT2 }
-%10* { #40 SFT } %10/ { #04 SFT } %10** { #40 SFT2 } %10// { #04 SFT2 }
-%20* { #50 SFT } %20/ { #05 SFT } %20** { #50 SFT2 } %20// { #05 SFT2 }
-
-%RTN { JMP2r }
-%TOS { #00 SWP }
-
-%WIDTH { #40 }
-%HEIGHT { #40 }
-%LENGTH { #1000 }
+ - electron head<3>, becomes electron tail<2>
+ - electron tail<2>, becomes conductor<1>
+ - conductor<1>, becomes electron head<3>
+ if there are exactly 1 or 2 electron heads around it. )
( devices )
-|00 @System &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1
-|20 @Screen &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
-|80 @Controller &vector $2 &button $1 &key $1 &func $1
-|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &modx $2 &mody $2
+|00 @System &vector $2 &wst $1 &rst $1 &pad $4 &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
+|80 @Controller &vector $2 &button $1 &key $1 &func $1
+|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &modx $2 &mody $2
|0000
@color $1
-@pointer
- &x $2 &y $2
-@timer
- &frame $1 &play $1
+@pointer &x $2 &y $2
+@timer &frame $1 &play $1
( program )
|0100 ( -> )
- ( theme )
- #0f7f .System/r DEO2
- #0fe0 .System/g DEO2
- #0fc0 .System/b DEO2
+ ( theme )
+ #07fe .System/r DEO2
+ #07b6 .System/g DEO2
+ #0fc6 .System/b DEO2
( size )
- #00 WIDTH 4** .Screen/width DEO2
- #00 HEIGHT 4** .Screen/height DEO2
- ( vectors )
+ #0100 .Screen/width DEO2
+ #0100 .Screen/height DEO2
+ ( vectors )
;on-frame .Screen/vector DEO2
;on-mouse .Mouse/vector DEO2
;on-button .Controller/vector DEO2
( setup )
#01 .timer/play STZ
#01 .color STZ
+ ( start )
;world ;get-addr/current STA2
- LENGTH ;run/future STA2
+ #1000 ;run/future STA2
;redraw JSR2
BRK
@@ -77,8 +56,8 @@ BRK
.timer/play LDZ JMP BRK
( every 4th )
- .timer/frame LDZk
- #03 AND ,&no-run JCN
+ .timer/frame LDZk
+ #03 AND ,&no-run JCN
;run JSR2
&no-run
LDZk INC SWP STZ
@@ -93,112 +72,162 @@ BRK
.pointer/y LDZ2 .Screen/y DEO2
#40 .Screen/sprite DEO
( draw new cursor )
- .Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2
+ .Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2
.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2
- #41 .Mouse/state DEI #00 ! + .timer/play LDZ + .Screen/sprite DEO
+ #40 .color LDZ ADD .Screen/sprite DEO
( paint )
- .Mouse/state DEI #00 = ,&no-down JCN
- ( color ) .color LDZ .Mouse/state DEI #01 > #00 = *
- ( cell* ) .Mouse/x DEI2 4// NIP .Mouse/y DEI2 4// NIP
- ;get-addr JSR2 STA
- ;redraw JSR2
- &no-down
+ .Mouse/state DEI ,on-mouse-down JCN
BRK
+@on-mouse-down ( -> )
+
+ .Mouse/x DEI2 #03 SFT2 NIP
+ .Mouse/y DEI2 #03 SFT2 NIP
+ #0202 NEQ2k NIP2 ,&no-color1 JCN
+ #01 .color STZ
+ #00 .Mouse/state DEO
+ POP2 BRK
+ &no-color1
+ #0302 NEQ2k NIP2 ,&no-color2 JCN
+ #02 .color STZ
+ #00 .Mouse/state DEO
+ POP2 BRK
+ &no-color2
+ #0402 NEQ2k NIP2 ,&no-color3 JCN
+ #03 .color STZ
+ #00 .Mouse/state DEO
+ POP2 BRK
+ &no-color3
+ #0602 NEQ2k NIP2 ,&no-toggle JCN
+ .timer/play LDZk #00 EQU SWP STZ
+ #00 .Mouse/state DEO
+ ;draw-ui JSR2
+ POP2 BRK
+ &no-toggle
+ POP2
+
+ ( color ) .color LDZ .Mouse/state DEI #01 GTH #00 EQU MUL
+ ( cell* ) .Mouse/x DEI2 #02 SFT2 NIP .Mouse/y DEI2 #02 SFT2 NIP
+ ;get-addr JSR2 STA
+ ;redraw JSR2
+
+BRK
+
+@print ( short* -- )
+
+ SWP ,&byte JSR
+ &byte ( byte -- ) DUP #04 SFT ,&char JSR
+ &char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO
+
+JMP2r
+
@on-button ( -> )
.Controller/button DEI
- [ #01 ] !~ ,&no-a JCN #01 .color STZ &no-a
- [ #02 ] !~ ,&no-b JCN #02 .color STZ &no-b
- [ #04 ] !~ ,&no-select JCN #03 .color STZ &no-select
- [ #08 ] !~ ,&no-start JCN
- ;world LENGTH 2** ;mclr JSR2
- ,redraw JSR
- &no-start
+ [ #01 ] NEQk NIP ,&no-a JCN #01 .color STZ &no-a
+ [ #02 ] NEQk NIP ,&no-b JCN #02 .color STZ &no-b
+ [ #04 ] NEQk NIP ,&no-select JCN #03 .color STZ &no-select
+ [ #08 ] NEQk NIP ,&no-start JCN ;world #2000 ;mclr JSR2 ;redraw JSR2 &no-start
POP
( space )
- .Controller/key DEI #20 ! ,&no-space JCN
- .timer/play LDZk #00 = SWP STZ &no-space
+ .Controller/key DEI #20 NEQ ,&no-space JCN .timer/play LDZk #00 EQU SWP STZ &no-space
BRK
+@draw-ui ( -- )
+
+ ( colors )
+ #01 .Screen/auto DEO
+ #0010 DUP2 .Screen/x DEO2 .Screen/y DEO2
+ ;color-icn .Screen/addr DEO2
+ #01 .Screen/sprite DEO
+ #02 .Screen/sprite DEO
+ #03 .Screen/sprite DEO
+ ( toggle )
+ #0030 .Screen/x DEO2
+ ;toggle-icn #00 .timer/play LDZ #30 SFT2 ADD2 .Screen/addr DEO2
+ #01 .Screen/sprite DEO
+
+JMP2r
+
@redraw ( -- )
;cell-icn .Screen/addr DEO2
- HEIGHT #00
+ #4000
&ver
- #00 OVR 4** .Screen/y DEO2
+ #00 OVR #20 SFT2 .Screen/y DEO2
STHk
- WIDTH #00
+ #4000
&hor
- #00 OVR 4** .Screen/x DEO2
+ #00 OVR #20 SFT2 .Screen/x DEO2
DUP STHkr ,get-addr JSR LDA .Screen/sprite DEO
INC GTHk ,&hor JCN
POP2
POPr
INC GTHk ,&ver JCN
POP2
+ ;draw-ui JSR2
-RTN
+JMP2r
@run ( -- )
- HEIGHT #00
+ #40 #00
&ver
STHk
- WIDTH #00
+ #40 #00
&hor
- ( x,y ) DUP STHkr
+ ( x,y ) DUP STHkr
( cell ) DUP2 ,get-addr JSR STH2k LDA
- ( transform ) ,transform JSR STH2r [ LIT2 &future $2 ] ++ STA
+ ( transform ) ,transform JSR STH2r [ LIT2 &future $2 ] ADD2 STA
INC GTHk ,&hor JCN
POP2
POPr
INC GTHk ,&ver JCN
POP2
( Swap worlds )
- ;get-addr/current LDA2k ;run/future LDA2 STH2k ++ SWP2 STA2
- #0000 STH2r -- ;run/future STA2
+ ;get-addr/current LDA2k ;run/future LDA2 STH2k ADD2 SWP2 STA2
+ #0000 STH2r SUB2 ;run/future STA2
,redraw JSR
-RTN
+JMP2r
@get-addr ( x y -- addr* )
- TOS [ #00 WIDTH ] ** ROT TOS ++ [ LIT2 ¤t $2 ] ++
+ #00 SWP #60 SFT2 ROT #00 SWP ADD2 [ LIT2 ¤t $2 ] ADD2
-RTN
+JMP2r
@transform ( xy cell -- cell )
- DUP #00 ! ,&no-null JCN NIP NIP RTN &no-null
- DUP #03 ! ,&no-head JCN POP POP2 #02 RTN &no-head
- DUP #02 ! ,&no-tail JCN POP POP2 #01 RTN &no-tail
- DUP #01 ! ,&no-cond JCN POP
+ DUP #00 NEQ ,&no-null JCN NIP NIP JMP2r &no-null
+ DUP #03 NEQ ,&no-head JCN POP POP2 #02 JMP2r &no-head
+ DUP #02 NEQ ,&no-tail JCN POP POP2 #01 JMP2r &no-tail
+ DUP #01 NEQ ,&no-cond JCN POP
LITr 00
- DUP2 #01 - ,get-addr JSR
- ( tl ) #0001 -- LDAk #03 ! JMP INCr
- ( tc ) INC2 LDAk #03 ! JMP INCr
- ( tr ) INC2 LDA #03 ! JMP INCr
+ DUP2 #01 SUB ,get-addr JSR
+ ( tl ) #0001 SUB2 LDAk #03 NEQ JMP INCr
+ ( tc ) INC2 LDAk #03 NEQ JMP INCr
+ ( tr ) INC2 LDA #03 NEQ JMP INCr
DUP2 ,get-addr JSR
- ( ml ) #0001 -- LDAk #03 ! JMP INCr
- ( mr ) INC2 INC2 LDA #03 ! JMP INCr
+ ( ml ) #0001 SUB2 LDAk #03 NEQ JMP INCr
+ ( mr ) INC2 INC2 LDA #03 NEQ JMP INCr
INC ,get-addr JSR
- ( bl ) #0001 -- LDAk #03 ! JMP INCr
- ( bc ) INC2 LDAk #03 ! JMP INCr
- ( br ) INC2 LDA #03 ! JMP INCr
- STHkr #02 = STHr #01 = #0000 >>
- #02 * INC RTN
+ ( bl ) #0001 SUB2 LDAk #03 NEQ JMP INCr
+ ( bc ) INC2 LDAk #03 NEQ JMP INCr
+ ( br ) INC2 LDA #03 NEQ JMP INCr
+ STHkr #02 EQU STHr #01 EQU #0000 GTH2
+ #10 SFT INC JMP2r
&no-cond
( unknown )
NIP NIP
-RTN
+JMP2r
@mclr ( addr* len* -- )
- OVR2 ++ SWP2
+ OVR2 ADD2 SWP2
&loop
STH2k #00 STH2r STA
INC2 GTH2k ,&loop JCN
@@ -206,15 +235,21 @@ RTN
JMP2r
-@pointer-icn
+@pointer-icn
80c0 e0f0 f8e0 1000
-@cell-icn
+@cell-icn
e0e0 e000 0000 0000
+@color-icn
+ 7cfe fefe fefe 7c00
+@toggle-icn
+ ( pause ) 6666 6666 6666 6600
+ ( play ) 4666 767e 7666 4600
+
-(
- I live in the atom with the happy protons and neutrons.
- I'm also so negative all the freakin time.
- What do I do?
+(
+ I live in the atom with the happy protons and neutrons.
+ I'm also so negative all the freakin time.
+ What do I do?
How do I find peace? )
@world
