diff --git a/projects/examples/blank.tal b/projects/examples/blank.tal deleted file mode 100644 index dae1ab3..0000000 --- a/projects/examples/blank.tal +++ /dev/null @@ -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 deleted file mode 100644 index 562310a..0000000 --- a/projects/software/asma.tal +++ /dev/null @@ -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 deleted file mode 100644 index 17d2807..0000000 --- a/projects/software/launcher.tal +++ /dev/null @@ -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