(logic.tal) Starting logic gates playground
This commit is contained in:
Devine Lu Linvega
parent
7dfce364a5
commit
6262078a04
|
|
@ -0,0 +1,186 @@
|
|||
( a blank file )
|
||||
|
||||
%+ { ADD } %- { SUB } %/ { DIV }
|
||||
%< { LTH } %> { GTH } %= { EQU } %! { NEQ }
|
||||
%++ { ADD2 } %-- { SUB2 } %// { DIV2 }
|
||||
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
|
||||
|
||||
%2* { #10 SFT } %2/ { #01 SFT }
|
||||
%4* { #20 SFT } %4/ { #02 SFT }
|
||||
%8* { #30 SFT } %8/ { #03 SFT }
|
||||
%10* { #40 SFT } %10/ { #04 SFT }
|
||||
%20* { #50 SFT } %20/ { #05 SFT }
|
||||
|
||||
%2** { #10 SFT2 } %2// { #01 SFT2 }
|
||||
%4** { #20 SFT2 } %4// { #02 SFT2 }
|
||||
%8** { #30 SFT2 } %8// { #03 SFT2 }
|
||||
%10** { #40 SFT2 } %10// { #04 SFT2 }
|
||||
%20** { #50 SFT2 } %20// { #05 SFT2 }
|
||||
|
||||
%DEBUG { ;print-hex JSR2 #0a .Console/write DEO }
|
||||
%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }
|
||||
|
||||
%RTN { JMP2r }
|
||||
%TOS { #00 SWP }
|
||||
|
||||
( devices )
|
||||
|
||||
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]
|
||||
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
|
||||
|20 @Screen [ &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|
||||
|30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|
||||
|40 @Audio1 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|
||||
|50 @Audio2 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|
||||
|60 @Audio3 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|
||||
|80 @Controller [ &vector $2 &button $1 &key $1 ]
|
||||
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &wheel $1 ]
|
||||
|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|
||||
|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
|
||||
|
||||
( variables )
|
||||
|
||||
|0000
|
||||
|
||||
@input
|
||||
&a $1 &b $1
|
||||
@center
|
||||
&x $2 &y $2
|
||||
@pointer
|
||||
&x $2 &y $2
|
||||
|
||||
( program )
|
||||
|
||||
|0100 ( -> )
|
||||
|
||||
( theme )
|
||||
#0fe5 .System/r DEO2
|
||||
#0fc5 .System/g DEO2
|
||||
#0f25 .System/b DEO2
|
||||
|
||||
;on-mouse .Mouse/vector DEO2
|
||||
|
||||
.Screen/width DEI2 2// .center/x STZ2
|
||||
.Screen/height DEI2 2// .center/y STZ2
|
||||
|
||||
;redraw JSR2
|
||||
|
||||
BRK
|
||||
|
||||
@on-mouse ( -> )
|
||||
|
||||
;draw-cursor JSR2
|
||||
|
||||
.Mouse/state DEI #00 ! JMP [ BRK ]
|
||||
|
||||
BRK
|
||||
|
||||
@redraw ( -- )
|
||||
|
||||
.center/x LDZ2 #0040 -- .Screen/x DEO2
|
||||
.center/y LDZ2 #0010 -- .Screen/y DEO2
|
||||
|
||||
#4f ;draw-byte JSR2
|
||||
|
||||
.center/x LDZ2 #0040 -- .Screen/x DEO2
|
||||
.center/y LDZ2 #0000 ++ .Screen/y DEO2
|
||||
|
||||
#e7 ;draw-byte JSR2
|
||||
|
||||
RTN
|
||||
|
||||
@draw-byte ( value -- )
|
||||
|
||||
STH
|
||||
#0800
|
||||
&loop
|
||||
DUP STHkr SWP SFT #01 AND ;draw-bit JSR2
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
.Screen/y DEI2 #0003 ++ .Screen/y DEO2
|
||||
STHr ;draw-hex JSR2
|
||||
|
||||
RTN
|
||||
|
||||
@draw-bit ( value -- )
|
||||
|
||||
STH
|
||||
|
||||
#05 .Screen/auto DEO
|
||||
;button-icns/off [ #00 STHkr 20* ++ ] .Screen/addr DEO2
|
||||
#01 .Screen/sprite DEO
|
||||
#01 .Screen/sprite DEO
|
||||
.Screen/y DEI2 #0008 ++ .Screen/y DEO2
|
||||
.Screen/x DEI2 #0010 -- .Screen/x DEO2
|
||||
|
||||
#01 .Screen/sprite DEO
|
||||
#01 .Screen/sprite DEO
|
||||
|
||||
#00 .Screen/auto DEO
|
||||
.Screen/y DEI2 #0008 -- .Screen/y DEO2
|
||||
|
||||
POPr
|
||||
|
||||
RTN
|
||||
|
||||
@draw-hex ( value -- )
|
||||
|
||||
DUP #04 SFT TOS 8** ;font-hex ++ .Screen/addr DEO2
|
||||
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
|
||||
( draw ) #01 .Screen/sprite DEO
|
||||
#0f AND TOS 8** ;font-hex ++ .Screen/addr DEO2
|
||||
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
|
||||
( draw ) #01 .Screen/sprite DEO
|
||||
|
||||
RTN
|
||||
|
||||
@draw-cursor ( -- )
|
||||
|
||||
( clear last cursor )
|
||||
;cursor .Screen/addr DEO2
|
||||
.pointer/x LDZ2 .Screen/x DEO2
|
||||
.pointer/y LDZ2 .Screen/y DEO2
|
||||
#40 .Screen/sprite DEO
|
||||
( record pointer positions )
|
||||
.Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2
|
||||
.Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2
|
||||
( colorize on state )
|
||||
#41 [ .Mouse/state DEI #00 ! ] + .Screen/sprite DEO
|
||||
|
||||
RTN
|
||||
|
||||
@print-hex ( value -- )
|
||||
|
||||
STHk #04 SFT ,&parse JSR .Console/write DEO
|
||||
STHr #0f AND ,&parse JSR .Console/write DEO
|
||||
RTN
|
||||
&parse ( value -- char )
|
||||
DUP #09 GTH ,&above JCN #30 ADD RTN &above #09 SUB #60 ADD RTN
|
||||
|
||||
RTN
|
||||
|
||||
@cursor
|
||||
80c0 e0f0 f8e0 1000
|
||||
|
||||
@button-icns
|
||||
&off
|
||||
3f40 8080 8080 8080
|
||||
f804 0202 0202 0202
|
||||
8080 8080 8040 3f00
|
||||
0202 0202 0204 f800
|
||||
&on
|
||||
3f40 9fbf bfbf bfbf
|
||||
f804 f2fa fafa fafa
|
||||
bfbf bfbf 9f40 3f00
|
||||
fafa fafa f204 f800
|
||||
|
||||
@font-hex ( 0-F )
|
||||
007c 8282 8282 827c 0030 1010 1010 1010
|
||||
007c 8202 7c80 80fe 007c 8202 1c02 827c
|
||||
000c 1424 4484 fe04 00fe 8080 7c02 827c
|
||||
007c 8280 fc82 827c 007c 8202 1e02 0202
|
||||
007c 8282 7c82 827c 007c 8282 7e02 827c
|
||||
007c 8202 7e82 827e 00fc 8282 fc82 82fc
|
||||
007c 8280 8080 827c 00fc 8282 8282 82fc
|
||||
007c 8280 f080 827c 007c 8280 f080 8080
|
||||
|
||||
|
||||
Loading…
Reference in New Issue