commit f2e858273890abcffe7451b0566669e610036f49
parent b56cb3501b741410188b00ffcac9010cfbe1783c
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sun, 7 Sep 2025 16:00:21 -0700
Removed asma and launcher
Diffstat:
3 files changed, 0 insertions(+), 628 deletions(-)
diff --git a/projects/examples/blank.tal b/projects/examples/blank.tal
@@ -1,46 +0,0 @@
-( a blank file )
-
-|00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &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 &func $1
-|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2
-|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
-|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
-
-( variables )
-
-|0000
-
-( program )
-
-|0100 ( -> )
-
- ( theme )
- #0fe5 .System/r DEO2
- #0fc5 .System/g DEO2
- #0f25 .System/b DEO2
-
-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
-
-@print-str ( str* -- )
-
- &while
- LDAk #18 DEO
- INC2 LDAk ,&while JCN
- POP2
-
-JMP2r
diff --git a/projects/software/asma.tal b/projects/software/asma.tal
@@ -1,53 +0,0 @@
-( 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 ]
-|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
-
-( vectors )
-
-|0100 @reset
- (
- Set the log level for helping to debug stuff.
- Its value is the bitwise OR of all the following output types:
- #01 prints the number of lines in the source code,
- #04 dumps all defined labels at end, and
- #08 prints the heap usage.
- )
- #09 ;asma/log-level STA
-
- ;asma-heap ;heap STA2
-
- ;on-input .Console/vector DEO2
- BRK
-
-@on-input ( -> )
- .Console/read DEI
- DUP #0a EQU ,&newline JCN
- ;append-heap-byte JSR2
- BRK
-
- &newline ( 0a )
- DUP EOR ( 00 )
- ;append-heap-byte JSR2 ( )
-
- ,&output-file LDR2 ORA ,&run JCN
- ;heap LDA2 ,&output-file STR2
- BRK
-
- &run
- ;asma-heap LIT2 &output-file $2 ;asma-assemble-file JSR2
- #80 .System/halt DEO
- BRK
-
-~projects/library/asma.tal
-
-@asma-heap
-|e000 &end
-
-@asma-read-buffer
-|f800 &end
-
-@asma-write-buffer
-|ffff &end
-
diff --git a/projects/software/launcher.tal b/projects/software/launcher.tal
@@ -1,529 +0,0 @@
-( launcher )
-
-|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
-|80 @Controller &vector $2 &button $1 &key $1
-|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2
-|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
-|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
-
-( variables )
-
-|0000
-
-@pointer
- &x $2 &y $2
-@browser
- &x $2 &y $2 &x2 $2 &y2 $2
- &sel $1 &last $1 &scroll $1
- &lines $1
-
-( init )
-
-|0100 ( -> )
-
- ( theme )
- #f079 .System/r DEO2
- #f0c2 .System/g DEO2
- #f0a4 .System/b DEO2
-
- ( vectors )
- ;on-frame .Screen/vector DEO2
- ;on-button .Controller/vector DEO2
- ;on-mouse .Mouse/vector DEO2
-
- ( resize )
- #0200 .Screen/width DEO2
- #0140 .Screen/height DEO2
-
- ( asma debugger )
- #0d ;asma/log-level STA
-
- ;asma-heap ;heap STA2
-
- ( setup synth )
- #0102 .Audio0/adsr DEO2
- ;sin-pcm .Audio0/addr DEO2
- #0100 .Audio0/length DEO2
- #dd .Audio0/volume DEO ( TODO: turn ON )
-
- ( place )
- #0088 .browser/x STZ2
- #0010 .browser/y STZ2
- .Screen/height DEI2 #33 SFT2 #0011 SUB2 .browser/y2 STZ2
-
- ( theme support )
- ;load-theme JSR2
-
- ( draw mascot )
- #0010 #0010 #0060 #0060 ;mascot-icn #01 ;draw-icn JSR2
-
- ;load-dir JSR2
-
- ( force selection )
- #ff .browser/last STZ
- #00 ;select-file JSR2
-
-BRK
-
-@on-frame ( -> )
-
- ( unused )
-
-BRK
-
-@on-mouse ( -> )
-
- ;pointer-icn .Screen/addr DEO2
- ( clear last cursor )
- .pointer/x LDZ2 .Screen/x DEO2
- .pointer/y LDZ2 .Screen/y DEO2
- #40 .Screen/sprite DEO
-
- ( draw new cursor )
- .Mouse/x DEI2 DUP2 .pointer/x STZ2 .Screen/x DEO2
- .Mouse/y DEI2 DUP2 .pointer/y STZ2 .Screen/y DEO2
- #41 .Mouse/state DEI #01 EQU ADD .Screen/sprite DEO
-
- ( wheel )
- .Mouse/scrolly INC DEI
- DUP #ff NEQ ,&no-up JCN
- .browser/scroll LDZ #00 EQU ,&no-up JCN
- DUP .browser/scroll LDZ ADD ;scroll-to JSR2
- &no-up
- DUP #01 NEQ ,&no-down JCN
- .browser/scroll LDZ .browser/lines LDZ EQU ,&no-down JCN
- DUP .browser/scroll LDZ ADD ;scroll-to JSR2
- &no-down
- POP
-
- ( within browser )
- .Mouse/y DEI2 .browser/y LDZ2 LTH2 ,&outside JCN
- .Mouse/y DEI2 .browser/y2 LDZ2 #0010 SUB2 GTH2 ,&outside JCN
- ( select choice )
- .Mouse/y DEI2 .browser/y LDZ2 SUB2
- #04 SFT2 NIP .browser/scroll LDZ ADD ;select-file JSR2
- ( run choice )
- .Mouse/state DEI #00 EQU ,&no-click JCN
- .browser/sel LDZ ;run-file JSR2
- &no-click
- &outside
-
-BRK
-
-@on-button ( -> )
-
- ( controller )
- .Controller/button DEI
- DUP #10 NEQ ,&no-up JCN
- .browser/sel LDZ #00 EQU ,&no-up JCN
- .browser/sel LDZ #01 SUB ;select-file JSR2
- ;follow-selection JSR2
- POP BRK
- &no-up
- DUP #20 NEQ ,&no-down JCN
- .browser/sel LDZ INC .browser/lines LDZ EQU ,&no-down JCN
- .browser/sel LDZ INC ;select-file JSR2
- ;follow-selection JSR2
- POP BRK
- &no-down
- DUP #01 NEQ ,&no-a JCN
- .browser/sel LDZ ;run-file JSR2
- POP BRK
- &no-a
- POP
- ( keyboard )
- .Controller/key DEI
- DUP #0d NEQ ,&no-enter JCN
- .browser/sel LDZ ;run-file JSR2
- POP BRK
- &no-enter
- POP
-
-BRK
-
-@load-dir ( -- )
-
- ;dir/path .File/name DEO2
- #1000 .File/length DEO2
- ;dir/data .File/read DEO2
- .File/success DEI2 ;dir/length STA2
- #00 .browser/lines STZ
-
- ( split with null-char )
- ;dir/data
- &while
- LDAk #1f GTH ,&no-lb JCN
- ( split ) STH2k #00 STH2r STA
- ( count lines ) .browser/lines LDZk INC SWP STZ
- &no-lb
- INC2 LDAk ,&while JCN
- POP2
-
-JMP2r
-
-@select-file ( id -- )
-
- ( has changed )
- DUP .browser/last LDZ NEQ ,&has-changed JCN
- POP JMP2r
- &has-changed
- ( beyond )
- DUP .browser/lines LDZ LTH ,&valid JCN
- POP JMP2r
- &valid
-
- clear-browser
- DUP .browser/sel STZ
- DUP .browser/last STZ
- #30 ADD .Audio0/pitch DEO
- draw-browser
-
- ( draw mascot )
- #0010 #0010 #0060 #0060
- ;mascot-icn .browser/sel LDZ #03 AND #00 SWP #0480 MUL2 ADD2 #01
- ;draw-icn JSR2
-
- ( draw position )
- #06 .Screen/auto DEO
- #0010 .Screen/x DEO2
- #0080 .Screen/y DEO2
- .browser/sel LDZ #02 ;draw-byte JSR2
- LIT "/ #02 ;draw-char JSR2
- .browser/lines LDZ #01 SUB #02 ;draw-byte JSR2
- #00 .Screen/auto DEO
-
-JMP2r
-
-@follow-selection ( -- )
-
- .browser/y2 LDZ2 .browser/y LDZ2 SUB2 #04 SFT2 NIP .browser/sel LDZ .browser/scroll LDZ SUB
- GTHk ,&no-down JCN
- .browser/scroll LDZ INC ,scroll-to JSR
- &no-down
- DUP2 SWP LTH ,&no-up JCN
- .browser/sel LDZ ,scroll-to JSR
- &no-up
- POP2
-
-JMP2r
-
-@scroll-to ( line -- )
-
- STH
- ( more lines than visible )
- .browser/lines LDZ .browser/y2 LDZ2 .browser/y LDZ2 SUB2 #04 SFT2 NIP
- GTHk ,&can-scroll JCN
- POPr POP2 JMP2r
- &can-scroll
- ( less than max scroll )
- SUB INC STHkr GTH ,&valid-scroll JCN
- POPr JMP2r
- &valid-scroll
- clear-browser
- STHr .browser/scroll STZ
- draw-browser
-
-JMP2r
-
-@run-file ( id -- )
-
- ( release inputs )
- #0000 .Controller/button DEO2
- #00 .Mouse/state DEO
-
- ;get-entry JSR2 LDA2k LIT2 "?? NEQ2 ?&size-ok
- POP2 ;error-txt !pstr
- &size-ok
- #0005 ADD2
- DUP2 ;check-rom JSR2 ,&valid JCN
- ( check if tal file )
- DUP2 ;scap JSR2 #0004 SUB2 ;&tal-ext ;scmp JSR2 #01 NEQ ,&no-tal JCN
- ( assemble tal file )
- DUP2 ;&output-path ;scpy JSR2
- ;&rom-ext ;&output-path ;scat JSR2
- ;&output-path ;asma-assemble-file JSR2
- ;load-dir JSR2
- ;redraw JSR2
- JMP2r
- &no-tal
- POP2 JMP2r
- &valid
- ;load-rom JSR2
-
-JMP2r
- &tal-ext ".tal $1
- &rom-ext ".rom $1
- &output-path $20
-
-@redraw ( -- )
-
- ( force selection )
- #ff .browser/last STZ
- #00 ;select-file JSR2
-
-JMP2r
-
-@clear-browser ( -- )
-
- #0000
- DUP2 .Screen/x DEO2
- .Screen/y DEO2
- #80 .Screen/pixel DEO
-
-JMP2r
-
-@draw-browser ( mask -- )
-
- ( when empty )
- .browser/lines LDZ #01 EQU ;draw-browser-empty JCN2
-
- ( draw hand )
- .browser/x LDZ2 #0018 SUB2 .browser/y LDZ2
- .browser/sel LDZ .browser/scroll LDZ SUB #00 SWP #40 SFT2 ADD2
- #0010 #0010 ;hand-icn #02 ;draw-icn JSR2
- ( draw files )
- .browser/y2 LDZ2 .browser/y LDZ2 SUB2 #04 SFT2 NIP #00
- &loop
- ( reached end )
- INCk .browser/lines LDZ GTH ,&end JCN
- ( has file )
- .browser/x LDZ2 .Screen/x DEO2
- #00 OVR #40 SFT2 .browser/y LDZ2 ADD2 .Screen/y DEO2
- DUP .browser/scroll LDZ ADD ;get-entry JSR2
- DUP2 ;get-type JSR2 ;draw-type JSR2
- #01 ;draw-str JSR2
- INC GTHk ,&loop JCN
- &end
- POP2
-
-JMP2r
-
-@draw-browser-empty ( mask -- )
-
- POP
- .browser/x LDZ2 .Screen/x DEO2
- .browser/y LDZ2 .Screen/y DEO2
- ;&empty-txt #01 ;draw-str JSR2
-
-JMP2r
- &empty-txt "Empty 20 "Folder $1
-
-@get-type ( line* -- type )
-
- ;scap JSR2 #0004 SUB2 ;&rom-ext ;scmp JSR2
-
-JMP2r
- &rom-ext ".rom $1
-
-@get-entry ( id -- addr* )
-
- ( limit ) STH
- ( counter ) LITr 00
- ;dir/length LDA2 #0000
- &loop
- EQUkr STHr #00 EQU ,&no-reached JCN
- POP2r NIP2 ;dir/data ADD2 JMP2r
- &no-reached
- DUP2 ;dir/data ADD2 LDA ,&no-lb JCN
- INCr
- &no-lb
- INC2 GTH2k ,&loop JCN
- POP2 POP2
- POP2r
- ;dir/data
-
-JMP2r
-
-@draw-type ( type -- )
-
- STHk #00 SWP #50 SFT2 ;file-icns ADD2 .Screen/addr DEO2
- #05 .Screen/auto DEO
- #02 STHkr SUB .Screen/sprite DEOk DEO
-
- .Screen/x DEI2k #0010 SUB2 ROT DEO2
- .Screen/y DEI2k #0008 ADD2 ROT DEO2
-
- #02 STHr SUB .Screen/sprite DEOk DEO
-
- .Screen/x DEI2k #0008 ADD2 ROT DEO2
- .Screen/y DEI2k #0008 SUB2 ROT DEO2
- #00 .Screen/auto DEO
-
-JMP2r
-
-@draw-icn ( x* y* width* height* addr* color -- )
-
- #05 .Screen/auto DEO
- ( load ) STH .Screen/addr DEO2 ,&height STR2 ,&width STR2 ,&y STR2 ,&x STR2
- ,&height LDR2 #0000
- &ver
- ( save ) DUP2 ,&y LDR2 ADD2 .Screen/y DEO2
- ,&x LDR2 .Screen/x DEO2
- ,&width LDR2 #0000
- &hor
- ( draw ) STHkr .Screen/sprite DEO
- #0008 ADD2 GTH2k ,&hor JCN
- POP2 POP2
- #0008 ADD2 GTH2k ,&ver JCN
- POP2 POP2
- POPr
- #00 .Screen/auto DEO
-
-JMP2r
- &x $2 &y $2 &width $2 &height $2
-
-@draw-str ( text* color -- )
-
- #06 .Screen/auto DEO
- STH
- &while
- LDAk STHkr ,draw-char JSR
- INC2 LDAk ,&while JCN
- POP2
- POPr
-
-JMP2r
-
-@draw-byte ( byte color -- )
-
- STH
- DUP #04 SFT ,&parse JSR STHkr ,draw-char JSR
- #0f AND ,&parse JSR STHr ,draw-char JSR
-
-JMP2r
- &parse ( byte -- char ) DUP #09 GTH ,&above JCN #30 ADD JMP2r
- &above #57 ADD JMP2r
-
-@draw-char ( char color -- )
-
- SWP
- #15 .Screen/auto DEO
- #20 SUB #00 SWP #40 SFT2 ;font ADD2 .Screen/addr DEO2
- .Screen/sprite DEO
-
-JMP2r
-
-( theme )
-
-@theme-txt ".theme $1
-
-@load-theme ( -- )
-
- ;theme-txt .File/name DEO2
- #0006 .File/length DEO2
- #fffa .File/read DEO2
-
- .File/success DEI2 #0006 NEQ2 ,&ignore JCN
- #fffa LDA2 .System/r DEO2
- #fffc LDA2 .System/g DEO2
- #fffe LDA2 .System/b DEO2
- &ignore
-
-JMP2r
-
-(
-@|stdlib )
-
-@scmp ( a* b* -- flag )
-
- STH2
- &loop
- LDAk LDAkr STHr NEQ ,&end JCN
- LDAk LDAkr STHr ORA ,¬-end JCN
- POP2 POP2r #01 JMP2r
- ¬-end
- INC2 INC2r ,&loop JMP
- &end
- POP2 POP2r #00
-
-JMP2r
-
-@scat ( src* dst* -- )
-
- DUP2 ,slen JSR ADD2
-
-@scpy ( src* dst* -- )
-
- STH2
- &while
- LDAk STH2kr STA INC2r
- INC2 LDAk ,&while JCN
- POP2
- #00 STH2r STA
-
-JMP2r
-
-@slen ( str* -- len* )
-
- DUP2 ,scap JSR SWP2 SUB2
-
-JMP2r
-
-@scap ( str* -- str-end* )
-
- ( clamp ) LDAk #00 NEQ JMP JMP2r
- &while INC2 LDAk ,&while JCN
-
-JMP2r
-
-@pstr ( str* -- ) LDAk ?&w POP2 JMP2r &w LDAk #19 DEO INC2 LDAk ?&w POP2 JMP2r
-
-@error-txt
- "Error: 20 "Extra-large 20 "ROM, 20 "open 20 "file 20 "outside 20 "of 20 "launcher. 0a $1
-
-@pointer-icn [
- 80c0 e0f0 f8e0 1000 ]
-@hand-icn [
- 000c 0a0a 1224 4780
- 0000 0000 0000 fc02
- 8180 8080 8040 3f00
- fc20 c020 c020 c000 ]
-@file-icns [
- 003f 3f30 3f30 3f30
- 00fc fc0c fc0c fc0c
- 3f33 3f3f 3f3f 3f00
- fcfc fcc4 c8d0 e000
- 003f 3f30 3132 3231
- 00fc fc0c 8c4c 4c8c
- 303f 3f3f 3f3f 3f00
- 0cfc fcc4 c8d0 e000 ]
-@sin-pcm [
- 8083 8689 8c8f 9295 989b 9ea1 a4a7 aaad
- b0b3 b6b9 bbbe c1c3 c6c9 cbce d0d2 d5d7
- d9db dee0 e2e4 e6e7 e9eb ecee f0f1 f2f4
- f5f6 f7f8 f9fa fbfb fcfd fdfe fefe fefe
- fffe fefe fefe fdfd fcfb fbfa f9f8 f7f6
- f5f4 f2f1 f0ee eceb e9e7 e6e4 e2e0 dedb
- d9d7 d5d2 d0ce cbc9 c6c3 c1be bbb9 b6b3
- b0ad aaa7 a4a1 9e9b 9895 928f 8c89 8683
- 807d 7a77 7471 6e6b 6865 625f 5c59 5653
- 504d 4a47 4542 3f3d 3a37 3532 302e 2b29
- 2725 2220 1e1c 1a19 1715 1412 100f 0e0c
- 0b0a 0908 0706 0505 0403 0302 0202 0202
- 0102 0202 0202 0303 0405 0506 0708 090a
- 0b0c 0e0f 1012 1415 1719 1a1c 1e20 2225
- 2729 2b2e 3032 3537 3a3d 3f42 4547 4a4d
- 5053 5659 5c5f 6265 686b 6e71 7477 7a7d ]
-
-~projects/library/check-rom.tal
-~projects/library/load-rom.tal
-~projects/assets/mascot0cx0c.tal
-~projects/assets/msx01x02.tal
-
-( directory memory )
-@dir
- &path ". $1
- &length $2
- &data $1000
-
-( assembler memory )
-
-~projects/library/asma.tal
-
-@asma-heap
-|e000 &end @asma-read-buffer
-|f800 &end @asma-write-buffer
-|ffff &end
