commit 45c31327ecadd9cb6f187f8735c83419f81e02cf
parent 0c587b9e0e0291deac20e4ff6676b2ce24ea0f39
Author: neauoire <aliceffekt@gmail.com>
Date: Sun, 27 Mar 2022 11:53:24 -0700
(examples/devices) Revamped a lot of the device examples
Diffstat:
9 files changed, 171 insertions(+), 452 deletions(-)
diff --git a/projects/examples/devices/console.echo.tal b/projects/examples/devices/console.echo.tal
@@ -1,23 +0,0 @@
-( dev/console )
-
-(
- Copies data from stdin to both stdout and stderr.
-)
-
-|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
-
-( init )
-
-|0100 ( -> )
-
- ;on-stdin .Console/vector DEO2
-
-BRK
-
-@on-stdin ( -> )
-
- .Console/read DEI
- DUP .Console/write DEO
- .Console/error DEO
-
-BRK
diff --git a/projects/examples/devices/console.lib.tal b/projects/examples/devices/console.lib.tal
@@ -1,94 +0,0 @@
-( dev/console )
-
-%RTN { JMP2r }
-%PRINT { ;print JSR2 }
-%BR { #0a .Console/write DEO }
-
-( devices )
-
-|10 @Console [ &pad $8 &write $1 ]
-
-( variables )
-
-|0000
-
-@number [ &started $1 ]
-
-( init )
-
-|0100 ( -> )
-
- ;char-txt PRINT #42 .Console/write DEO BR
- ;byte-txt PRINT #ab ;print-byte JSR2 BR
- ;short-txt PRINT #cdef ;print-short JSR2 BR
- ;string-txt PRINT ;hello-word ;print JSR2 BR
-
- ;hello-word ;print JSR2
- #ffff ;print-short JSR2
- ;is-word ;print JSR2
- #ffff ;print-short-decimal JSR2
-
-BRK
-
-@print ( addr* -- )
-
- &loop
- ( send ) LDAk .Console/write DEO
- ( incr ) INC2
- ( loop ) LDAk ,&loop JCN
- POP2
-
-RTN
-
-@print-short ( short* -- )
- LIT '0 .Console/write DEO
- LIT 'x .Console/write DEO
- OVR #04 SFT ,&hex JSR
- SWP #0f AND ,&hex JSR
- DUP #04 SFT ,&hex JSR
- #0f AND ,&hex JMP
-
- &hex
- #30 ADD DUP #3a LTH ,¬-alpha JCN
- #27 ADD
- ¬-alpha
- .Console/write DEO
-RTN
-
-@print-byte ( byte -- )
- LIT '0 .Console/write DEO
- LIT 'x .Console/write DEO
- DUP #04 SFT ,&hex JSR
- #0f AND ,&hex JMP
-
- &hex
- #30 ADD DUP #39 GTH #27 MUL ADD .Console/write DEO
-RTN
-
-@print-short-decimal ( short -- )
- #00 .number/started STZ
- DUP2 #2710 DIV2 DUP2 ,&digit JSR #2710 MUL2 SUB2
- DUP2 #03e8 DIV2 DUP2 ,&digit JSR #03e8 MUL2 SUB2
- DUP2 #0064 DIV2 DUP2 ,&digit JSR #0064 MUL2 SUB2
- DUP2 #000a DIV2 DUP2 ,&digit JSR #000a MUL2 SUB2
- ,&digit JSR
- .number/started LDZ ,&end JCN
- LIT '0 .Console/write DEO
- &end
-RTN
-
- &digit
- NIP
- DUP .number/started LDZ ORA #02 JCN
- POP JMP2r
- LIT '0 ADD .Console/write DEO
- #01 .number/started STZ
-RTN
-
-@char-txt "char: 20 $1
-@byte-txt "byte: 20 $1
-@short-txt "short: 20 $1
-@string-txt "string: 20 $1
-
-@hello-word "hello 20 "World! 0a 00
-@is-word 20 "is 20 00
diff --git a/projects/examples/devices/console.tal b/projects/examples/devices/console.tal
@@ -1,19 +1,37 @@
-( dev/console )
+( Console:
+ Prints Hello Uxn!, and listens for incoming stdin events on enter. )
-%HALT { #010f DEO }
-%EMIT { #18 DEO }
-
-( init )
+|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
|0100 ( -> )
- ;hello-word
+ ( set vector )
+ ;on-console .Console/vector DEO2
+ ( print hello )
+ ;hello-txt
&while
- ( send ) LDAk EMIT
+ LDAk .Console/write DEO
INC2 LDAk ,&while JCN
POP2
- ( stop ) HALT
BRK
-@hello-word "Hello 20 "Uxn! $1
-\ No newline at end of file
+@on-console ( -> )
+
+ ;yousaid-txt ,print-str JSR
+ .Console/read DEI .Console/write DEO
+ #0a .Console/write DEO
+
+BRK
+
+@print-str ( str* -- )
+
+ &while
+ LDAk #18 DEO
+ INC2 LDAk ,&while JCN
+ POP2
+
+JMP2r
+
+@hello-txt "Hello 20 "Uxn! $1
+@yousaid-txt "You 20 "said: 20 $1
diff --git a/projects/examples/devices/controller.tal b/projects/examples/devices/controller.tal
@@ -1,58 +1,35 @@
-( dev/controller/keys )
+( Controller:
+ Buttons should highlight on press and display the button and key bytes. )
-%+ { ADD } %- { SUB } %/ { DIV }
-%< { LTH } %> { GTH } %= { EQU } %! { NEQ }
-%++ { ADD2 } %-- { SUB2 } %// { DIV2 }
-%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
-
-%RTN { JMP2r }
-%TOS { #00 SWP }
-%LTS2 { #8000 ++ SWP2 #8000 ++ >> }
-%AUTO-NONE { #00 .Screen/auto DEO }
-%AUTO-X { #01 .Screen/auto DEO }
-
-( devices )
-
-|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
-|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 ]
-
-( variables )
+|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
|0000
@center
- &x $2
- &y $2
+ &x $2 &y $2
@frame
- &w $2 &h $2
- &x0 $2 &y0 $2
- &x1 $2 &y1 $2
-
-( init )
+ &w $2 &h $2 &x0 $2 &y0 $2 &x1 $2 &y1 $2
|0100 ( -> )
- ( theme )
- #0ff7 .System/r DEO2
- #0f07 .System/g DEO2
+ ( theme )
+ #0ff7 .System/r DEO2
+ #0f07 .System/g DEO2
#0f07 .System/b DEO2
-
( find center )
.Screen/width DEI2 #01 SFT2 .center/x STZ2
.Screen/height DEI2 #01 SFT2 .center/y STZ2
-
( place controller )
#0068 .frame/w STZ2
#0030 .frame/h STZ2
- .center/x LDZ2 .frame/w LDZ2 #0002 // -- .frame/x0 STZ2
- .center/y LDZ2 .frame/h LDZ2 #0002 // -- .frame/y0 STZ2
- .frame/x0 LDZ2 .frame/w LDZ2 ++ .frame/x1 STZ2
- .frame/y0 LDZ2 .frame/h LDZ2 ++ .frame/y1 STZ2
-
- ( vectors )
+ .center/x LDZ2 .frame/w LDZ2 #01 SFT2 SUB2 .frame/x0 STZ2
+ .center/y LDZ2 .frame/h LDZ2 #01 SFT2 SUB2 .frame/y0 STZ2
+ .frame/x0 LDZ2 .frame/w LDZ2 ADD2 .frame/x1 STZ2
+ .frame/y0 LDZ2 .frame/h LDZ2 ADD2 .frame/y1 STZ2
+ ( vectors )
;on-button .Controller/vector DEO2
-
( frame )
.frame/x0 LDZ2 .frame/y0 LDZ2
.frame/x1 LDZ2 .frame/y1 LDZ2
@@ -67,7 +44,7 @@ BRK
,draw-controller JSR
( print stack on start button )
- .Controller/button DEI #08 = JMP BRK #010e DEO
+ .Controller/button DEI #08 EQU JMP BRK #010e DEO
BRK
@@ -76,74 +53,74 @@ BRK
.Controller/button DEI STH
( d-pad )
- .frame/x0 LDZ2 #0010 ++ .Screen/x DEO2
- .frame/y0 LDZ2 #0010 ++ .Screen/y DEO2
+ .frame/x0 LDZ2 #0010 ADD2 .Screen/x DEO2
+ .frame/y0 LDZ2 #0010 ADD2 .Screen/y DEO2
;controller-icn/dpad-up .Screen/addr DEO2
- #03 [ STHkr #04 SFT #01 AND DUP + - ] .Screen/sprite DEO
- .Screen/y DEI2 #0010 ++ .Screen/y DEO2
+ #03 [ STHkr #04 SFT #01 AND DUP ADD SUB ] .Screen/sprite DEO
+ .Screen/y DEI2 #0010 ADD2 .Screen/y DEO2
;controller-icn/dpad-down .Screen/addr DEO2
- #03 [ STHkr #05 SFT #01 AND DUP + - ] .Screen/sprite DEO
- .Screen/y DEI2 #0008 -- .Screen/y DEO2
- .Screen/x DEI2 #0008 -- .Screen/x DEO2
+ #03 [ STHkr #05 SFT #01 AND DUP ADD SUB ] .Screen/sprite DEO
+ .Screen/y DEI2 #0008 SUB2 .Screen/y DEO2
+ .Screen/x DEI2 #0008 SUB2 .Screen/x DEO2
;controller-icn/dpad-left .Screen/addr DEO2
- #03 [ STHkr #06 SFT #01 AND DUP + - ] .Screen/sprite DEO
- .Screen/x DEI2 #0010 ++ .Screen/x DEO2
+ #03 [ STHkr #06 SFT #01 AND DUP ADD SUB ] .Screen/sprite DEO
+ .Screen/x DEI2 #0010 ADD2 .Screen/x DEO2
;controller-icn/dpad-right .Screen/addr DEO2
- #03 [ STHkr #07 SFT #01 AND DUP + - ] .Screen/sprite DEO
- .Screen/x DEI2 #0008 -- .Screen/x DEO2
+ #03 [ STHkr #07 SFT #01 AND DUP ADD SUB ] .Screen/sprite DEO
+ .Screen/x DEI2 #0008 SUB2 .Screen/x DEO2
;controller-icn/dpad .Screen/addr DEO2
#03 .Screen/sprite DEO
( options )
- .center/y LDZ2 #0009 ++ .Screen/y DEO2
- .center/x LDZ2 #0009 -- .Screen/x DEO2
+ .center/y LDZ2 #0009 ADD2 .Screen/y DEO2
+ .center/x LDZ2 #0009 SUB2 .Screen/x DEO2
;controller-icn/option .Screen/addr DEO2
- #03 [ STHkr #02 SFT #01 AND DUP + - ] .Screen/sprite DEO
- .center/x LDZ2 #0004 ++ .Screen/x DEO2
+ #03 [ STHkr #02 SFT #01 AND DUP ADD SUB ] .Screen/sprite DEO
+ .center/x LDZ2 #0004 ADD2 .Screen/x DEO2
;controller-icn/option .Screen/addr DEO2
- #03 [ STHkr #03 SFT #01 AND DUP + - ] .Screen/sprite DEO
+ #03 [ STHkr #03 SFT #01 AND DUP ADD SUB ] .Screen/sprite DEO
( buttons )
- .center/y LDZ2 #0000 ++ .Screen/y DEO2
- .center/x LDZ2 #0018 ++ .Screen/x DEO2
+ .center/y LDZ2 #0000 ADD2 .Screen/y DEO2
+ .center/x LDZ2 #0018 ADD2 .Screen/x DEO2
;controller-icn/button .Screen/addr DEO2
- #03 [ STHkr #01 SFT #01 AND - ] .Screen/sprite DEO
- .Screen/y DEI2 #000a ++ .Screen/y DEO2
- ;font-hex #000b #30 SFT2 ++ .Screen/addr DEO2
+ #03 [ STHkr #01 SFT #01 AND SUB ] .Screen/sprite DEO
+ .Screen/y DEI2 #000a ADD2 .Screen/y DEO2
+ ;font-hex #000b #30 SFT2 ADD2 .Screen/addr DEO2
#03 .Screen/sprite DEO
- .center/y LDZ2 #0000 ++ .Screen/y DEO2
- .center/x LDZ2 #0024 ++ .Screen/x DEO2
+ .center/y LDZ2 #0000 ADD2 .Screen/y DEO2
+ .center/x LDZ2 #0024 ADD2 .Screen/x DEO2
;controller-icn/button .Screen/addr DEO2
- #03 [ STHr #01 AND - ] .Screen/sprite DEO
- .Screen/y DEI2 #000a ++ .Screen/y DEO2
- ;font-hex #000a #30 SFT2 ++ .Screen/addr DEO2
+ #03 [ STHr #01 AND SUB ] .Screen/sprite DEO
+ .Screen/y DEI2 #000a ADD2 .Screen/y DEO2
+ ;font-hex #000a #30 SFT2 ADD2 .Screen/addr DEO2
#03 .Screen/sprite DEO
- .center/x LDZ2 #0010 -- .Screen/x DEO2
- .center/y LDZ2 #0010 -- .Screen/y DEO2
- AUTO-X
- .Controller/button DEI2 #03 ;draw-short JSR2
- AUTO-NONE
+ .center/x LDZ2 #0010 SUB2 .Screen/x DEO2
+ .center/y LDZ2 #0010 SUB2 .Screen/y DEO2
+ #01 .Screen/auto DEO
+ .Controller/button DEI2 ,draw-short JSR
+ #00 .Screen/auto DEO
-RTN
+JMP2r
( generics )
-@draw-short ( short* color -- )
+@draw-short ( short* -- )
- STH SWP STHkr ,draw-byte JSR STHr
+ SWP ,draw-byte JSR
-@draw-byte ( byte color -- )
+@draw-byte ( byte -- )
- STH DUP #04 SFT STHkr ,draw-hex JSR STHr
+ DUP #04 SFT ,draw-hex JSR
-@draw-hex ( char color -- )
+@draw-hex ( char -- )
- #00 ROT #0f AND #30 SFT2 ;font-hex ++ .Screen/addr DEO2
- .Screen/sprite DEO
+ #00 SWP #0f AND #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2
+ #03 .Screen/sprite DEO
-RTN
+JMP2r
@line-rect ( x1* y1* x2* y2* color -- )
@@ -170,7 +147,7 @@ RTN
POP2 POP2
POPr
-RTN
+JMP2r
@controller-icn
&dpad ffff ffff ffff ffff
@@ -181,12 +158,12 @@ RTN
&option 0000 7eff ff7e 0000
&button 3c7e ffff ffff 7e3c
-@font-hex
- 003c 4242 4242 3c00 0018 0808 0808 1c00
- 003c 4202 3c40 7e00 003c 421c 0242 3c00
- 000c 1424 447e 0400 007e 407c 0242 3c00
- 003c 407c 4242 3c00 007e 0204 0810 1000
- 003c 423c 4242 3c00 003c 4242 3e02 3c00
- 003c 4242 7e42 4200 007c 427c 4242 7c00
- 003c 4240 4042 3c00 007c 4242 4242 7c00
- 007e 4078 4040 7e00 007e 4078 4040 4000
+@font-hex
+ 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 00fe 0202 0408 1010
+ 007c 8282 7c82 827c 007c 8282 7e02 827c
+ 007c 8202 7e82 827e 00fc 8282 fc82 82fc
+ 007c 8280 8080 827c 00fc 8282 8282 82fc
+ 00fe 8080 fe80 80fe 00fe 8080 f080 8080
diff --git a/projects/examples/devices/file.load.tal b/projects/examples/devices/file.load.tal
@@ -1,133 +0,0 @@
-( simple Dev/File reading example )
-
-( devices )
-
-|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
-|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
-|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
-
-( variables )
-
-|0000
-
-( program )
-
-|0100 ( -> )
- ;try-load JSR2
- BRK
-
-@try-load ( -- )
- ( load contents from file )
- #1000 .File/length DEO2
- ;filename .File/name DEO2
- ;contents .File/read DEO2
-
- .File/success DEI2 ORA ,&success JCN
- ( failed to read: bright yellow background )
- #f0f7 .System/r DEO2
- #f0f7 .System/g DEO2
- #00f7 .System/b DEO2
- JMP2r
-
- &success
- ( read successful: dark blue background, show contents )
- #00f7 .System/r DEO2
- #00f7 .System/g DEO2
- #40f7 .System/b DEO2
- ;contents DUP2 .File/success DEI2 ADD2 SWP2 ;draw JSR2
- JMP2r
-
-@draw ( end-ptr* ptr* -- )
- EQU2k ,&end JCN
- LDAk
- DUP #0a EQU ,&linefeed JCN
- #0005 SFT2 ;font ADD2
- .Screen/addr DEO2
- #09 .Screen/sprite DEO
- .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
- &next
- INC2
- ,draw JMP
-
- &linefeed
- POP
- #0000 .Screen/x DEO2
- .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2
- ,&next JMP
-
- &end
- POP2 POP2
- JMP2r
-
-@get-x-advance ( font-char-addr* -- advance* )
- ( Save two 00 bytes for later use )
- #0000 SWP2
- ( First, load the eight bytes that make up the character )
- LDA2k SWP2 #0002 ADD2
- LDA2k SWP2 #0002 ADD2
- LDA2k SWP2 #0002 ADD2
- LDA2
- ( OR all the bytes together, so we know which columns contain filled pixels )
- ORA2 ORA2 ORA2 ORA
- ( Find the lowest set bit (using one of the 00 bytes at the top, but not consuming it) )
- SUBk AND
- ( Convert the nine possible values (00-80) into an offset into the magic table (00-08). )
- ( They get jumbled up with these two operations, but each possible value remains unique )
- #a3 MUL #16 DIV
- ( Load the byte from the magic table, return a short (consuming/returning the 00 bytes at the top) )
- ;&magic ADD2 LDA
- JMP2r
- ( The magic table performs the last bit of arithmetic we want:
- * the advance in x should be one more than the number of columns with filled pixels,
- * with a maximum of 8, and
- * a minimum of 3. )
- &magic
- 03 ( lowest set bit is 00, 0 columns wide )
- 06 ( lowest set bit is 08, 5 columns wide )
- 05 ( lowest set bit is 10, 4 columns wide )
- 08 ( lowest set bit is 02, 7 columns wide )
- 04 ( lowest set bit is 20, 3 columns wide )
- 03 ( lowest set bit is 80, 1 column wide )
- 07 ( lowest set bit is 04, 6 columns wide )
- 08 ( lowest set bit is 01, 8 columns wide )
- 03 ( lowest set bit is 40, 2 columns wide )
-
-@font ( spectrum-zx font )
-[
- 0000 0000 0000 0000 0000 2400 7e3c 0000 0000 2400 3c42 0000 0000 6c7c 7c38 1000
- 0010 387c 7c38 1000 0038 387c 6c10 3800 0010 387c 7c10 3800 0000 0018 1800 0000
- 007e 4242 4242 7e00 0000 1824 2418 0000 0018 2442 4224 1800 001e 063a 4a48 3000
- 0038 446c 107c 1000 000c 0808 0838 3800 003e 2222 2266 6600 0000 0822 0022 0800
- 0000 1018 1c18 1000 0000 0818 3818 0800 0008 1c00 001c 0800 0028 2828 2800 2800
- 003e 4a4a 3a0a 0a00 000c 3046 620c 3000 0000 0000 0000 ffff 0010 3800 3810 0038
- 0008 1c2a 0808 0800 0008 0808 2a1c 0800 0000 0804 7e04 0800 0000 1020 7e20 1000
- 0000 4040 7e00 0000 0000 0024 6624 0000 0000 1038 7c00 0000 0000 007c 3810 0000
- 0000 0000 0000 0000 0008 0808 0800 0800 0014 1400 0000 0000 0024 7e24 247e 2400
- 0008 1e28 1c0a 3c08 0042 0408 1020 4200 0030 4832 4c44 3a00 0008 1000 0000 0000
- 0004 0808 0808 0400 0010 0808 0808 1000 0000 1408 3e08 1400 0000 0808 3e08 0800
- 0000 0000 0008 0810 0000 0000 3c00 0000 0000 0000 0000 0800 0000 0204 0810 2000
- 003c 464a 5262 3c00 0018 2808 0808 3e00 003c 4202 3c40 7e00 003c 421c 0242 3c00
- 0008 1828 487e 0800 007e 407c 0242 3c00 003c 407c 4242 3c00 007e 0204 0810 1000
- 003c 423c 4242 3c00 003c 4242 3e02 3c00 0000 0008 0000 0800 0000 0800 0008 0810
- 0000 0810 2010 0800 0000 003e 003e 0000 0000 1008 0408 1000 003c 4202 0c00 0800
- 003c 425a 5442 3c00 0018 2442 7e42 4200 007c 427c 4242 7c00 003c 4240 4042 3c00
- 0078 4442 4244 7800 007e 407c 4040 7e00 003e 4040 7c40 4000 003c 4240 4e42 3c00
- 0042 427e 4242 4200 003e 0808 0808 3e00 0002 0202 4242 3c00 0044 4870 4844 4200
- 0040 4040 4040 7e00 0042 665a 4242 4200 0042 6252 4a46 4200 003c 4242 4242 3c00
- 007c 4242 7c40 4000 003c 4242 524a 3c00 007c 4242 7c44 4200 003c 403c 0242 3c00
- 00fe 1010 1010 1000 0042 4242 4242 3c00 0042 4242 4224 1800 0042 4242 5a66 4200
- 0042 2418 1824 4200 0082 4428 1010 1000 007e 0408 1020 7e00 000c 0808 0808 0c00
- 0040 2010 0804 0200 0018 0808 0808 1800 0008 1422 0000 0000 0000 0000 0000 7e00
- 0008 0400 0000 0000 0000 1c02 1e22 1e00 0020 203c 2222 3c00 0000 1e20 2020 1e00
- 0002 021e 2222 1e00 0000 1c22 3c20 1e00 000c 101c 1010 1000 0000 1c22 221e 021c
- 0020 202c 3222 2200 0008 0018 0808 0400 0008 0008 0808 4830 0020 2428 3028 2400
- 0010 1010 1010 0c00 0000 6854 5454 5400 0000 5864 4444 4400 0000 3844 4444 3800
- 0000 7844 4478 4040 0000 3c44 443c 0406 0000 2c30 2020 2000 0000 3840 3804 7800
- 0010 103c 1010 0c00 0000 4444 4444 3800 0000 4444 2828 1000 0000 4454 5454 2800
- 0000 4428 1028 4400 0000 4444 443c 0438 0000 7c08 1020 7c00 000c 0810 1008 0c00
- 0008 0808 0808 0800 0030 1008 0810 3000 0000 0032 4c00 0000 3c42 99a1 a199 423c
-]
-
-@filename "hello.txt 00
-@contents
-
diff --git a/projects/examples/devices/file.save.tal b/projects/examples/devices/file.save.tal
@@ -1,41 +0,0 @@
-( simple Dev/File writing example )
-
-( devices )
-
-|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
-|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
-
-( variables )
-
-|0000
-
-( init )
-
-|0100 ( -> )
- ;try-save JSR2
- BRK
-
-@try-save ( -- )
- ( save contents to file )
- ;contents/end ;contents SUB2 .File/length DEO2
- ;filename .File/name DEO2
- ;contents .File/write DEO2
-
- .File/success DEI2 ORA ,&success JCN
- ( failed to write: bright yellow background )
- #f0f7 .System/r DEO2
- #f0f7 .System/g DEO2
- #00f7 .System/b DEO2
- JMP2r
-
- &success
- ( write successful: dark blue background )
- #00f7 .System/r DEO2
- #00f7 .System/g DEO2
- #40f7 .System/b DEO2
- JMP2r
-
-@filename "hello.txt 00
-@contents "Hello 20 "world, 0a "how 20 "are 20 "you? 0a
- &end
-
diff --git a/projects/examples/devices/file.tal b/projects/examples/devices/file.tal
@@ -1,78 +1,92 @@
-( Dev/File )
+( File:
+ Creates a temporary file called file-output.txt,
+ then read it back in console, print length and delete it. )
-%8+ { #0008 ADD2 }
-%MEMORY { #1000 }
+|a0 @File0 &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
+|b0 @File1 &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
-( devices )
+|0100 ( -> )
-|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
-|10 @Console [ &pad $8 &write $1 ]
-|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
-|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
+ ( write a file with file0 )
+ ;filepath-txt .File0/name DEO2
+ ;part1 ,append JSR
+ ;part2 ,append JSR
+ ( read a file with file1 )
+ ;filepath-txt .File1/name DEO2
+ ,stream JSR
+ ( delete file with file0 )
+ ;filepath-txt .File0/delete DEO2
-( variables )
+BRK
-|0000
+@append ( part* -- )
-( init )
+ DUP2 ;print-str JSR2
+ DUP2 ;slen JSR2 STH2k .File0/length DEO2
+ .File0/write DEO2
+ ( print result )
+ ;saved-txt ;print-str JSR2
+ STH2r ;print JSR2 #2018 DEO
+ ;bytes-txt ;print-str JSR2 #0a18 DEO
-|0100 ( -> )
+JMP2r
- ( theme )
- #0efc .System/r DEO2
- #03cc .System/g DEO2
- #03ac .System/b DEO2
+@stream ( -- )
- ( load file )
- #1000 .File/length DEO2
- ;srcpath .File/name DEO2
- MEMORY .File/read DEO2
+ #0001 .File1/length DEO2
+ LIT2r 0000
+ &stream
+ ;&buf DUP2 .File1/read DEO2 LDA #18 DEO INC2r
+ .File1/success DEI2 #0000 NEQ2 ,&stream JCN
+ ( print result )
+ ;loaded-txt ;print-str JSR2
+ STH2r ;print JSR2 #2018 DEO
+ ;bytes-txt ;print-str JSR2 #0a18 DEO
- .File/success DEI2 ORA ;on-success JCN2
+JMP2r
+ &buf $1
- ;failedtxt ;print-string JSR2
+@slen ( str* -- len* )
-BRK
+ DUP2 ,scap JSR SWP2 SUB2
-@on-success ( -> )
-
- ;successtxt ;print-string JSR2
-
- ( draw image )
- MEMORY .Screen/addr DEO2
- #0000 #0080
- &ver
- ( save ) OVR2 .Screen/y DEO2
- #0000 #0080
- &hor
- ( save ) OVR2 .Screen/x DEO2
- ( draw ) #81 .Screen/sprite DEO
- ( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2
- ( incr ) SWP2 8+ SWP2
- LTH2k ,&hor JCN
- POP2 POP2
- ( incr ) SWP2 8+ SWP2
- LTH2k ,&ver JCN
- POP2 POP2
-
- ( save file )
- #1000 .File/length DEO2
- ;dstpath .File/name DEO2
- MEMORY .File/write DEO2
+JMP2r
-BRK
+@scap ( str* -- end* )
+
+ LDAk #00 NEQ JMP JMP2r
+ &while INC2 LDAk ,&while JCN
+
+JMP2r
+
+@print ( short* -- )
+
+ &short ( 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
+
+@print-str ( str* -- )
+
+ &while
+ LDAk #18 DEO
+ INC2 LDAk ,&while JCN
+ POP2
-@print-string ( ptr* -- )
- LDAk DUP ,&keep-going JCN
- POP POP2 JMP2r
+JMP2r
- &keep-going
- .Console/write DEO
- INC2
- ,print-string JMP
+@saved-txt "Saved 20 $1
+@loaded-txt "Loaded 20 $1
+@bytes-txt "bytes. $1
+@filepath-txt "file-output.txt $1
-@successtxt "Success! 09 $1
-@failedtxt "Failed. 09 $1
+@part1
+ 476f 6420 6865 6c70 2074 6865 2064 7265
+ 616d 6572 2077 686f 7365 206d 6164 2076
+ 6973 696f 6e73 2073 6865 770a 00
-@srcpath "projects/pictures/ako10x10.chr $1
-@dstpath "bin/image-copy.chr $1
+@part2
+ 5468 6f73 6520 6465 6164 2065 7965 7320
+ 7365 7420 696e 2063 7279 7374 616c 2067
+ 756c 6673 2062 656c 6f77 210a 00
diff --git a/projects/examples/devices/mouse.tal b/projects/examples/devices/mouse.tal
@@ -1,4 +1,5 @@
-( Mouse )
+( Mouse:
+ Paint with 3 colors with each mouse button. )
|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
diff --git a/projects/examples/devices/screen.tal b/projects/examples/devices/screen.tal
@@ -1,4 +1,5 @@
-( Screen )
+( Screen:
+ Draws a table of all possible sprite arrangements. )
|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
