mirror of https://git.sr.ht/~rabbits/uxn
Devine Lu Linvega
6 months ago
3 changed files with 0 additions and 628 deletions
@ -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 |
|
||||||
@ -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 |
|
||||||
|
|
||||||
@ -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 |
|
||||||
Loading…
Reference in new issue