d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Selection works in the launcher

This commit is contained in:
Devine Lu Linvega 2021-11-07 16:23:33 -05:00
parent f03a50b556
commit e371fddd7a
1 changed files with 67 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
projects/software/launcher.tal
View File

@ -11,6 +11,8 @@
%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 } %++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 } %<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
%10** { #40 SFT2 }
%MOD { DIVk MUL SUB } %MOD { DIVk MUL SUB }
%DEC { #01 - } %DEC { #01 - }
%RTN { JMP2r } %RTN { JMP2r }
@ -64,7 +66,7 @@
#dd .Audio0/volume DEO ( TODO: turn ON ) #dd .Audio0/volume DEO ( TODO: turn ON )
( place ) ( place )
#0080 .browser/x STZ2 #0088 .browser/x STZ2
#0010 .browser/y STZ2 #0010 .browser/y STZ2
( draw mascot ) ( draw mascot )
@ -75,6 +77,8 @@
( theme support ) ( theme support )
;load-theme JSR2 ;load-theme JSR2
#00 ;select-file JSR2
BRK BRK
@on-frame ( -> ) @on-frame ( -> )
@ -113,6 +117,9 @@ BRK
DUP #20 ! ,&no-down JCN DUP #20 ! ,&no-down JCN
.browser/sel LDZ ;dir/lines LDA LTHk SWP? POP INC ;select-file JSR2 .browser/sel LDZ ;dir/lines LDA LTHk SWP? POP INC ;select-file JSR2
&no-down &no-down
DUP #01 ! ,&no-a JCN
.browser/sel LDZ ;run-file JSR2
&no-a
POP POP
BRK BRK
@ -134,27 +141,72 @@ BRK
POP2 POP2
STHr #02 - ;dir/lines STA STHr #02 - ;dir/lines STA
;draw-browser JSR2
RTN RTN
@select-file ( id -- ) @select-file ( id -- )
.browser/x LDZ2 #0018 -- .browser/y LDZ2 [ .browser/sel LDZ TOS 10** ++ ]
#0010 #0010
;hand-icn #00 ;draw-icn JSR2
DUP DUP
.browser/sel STZ .browser/sel STZ
#40 + .Audio0/pitch DEO #40 + .Audio0/pitch DEO
;draw-browser JSR2 ;draw-browser JSR2
.browser/x LDZ2 #0018 -- .browser/y LDZ2 [ .browser/sel LDZ TOS 10** ++ ]
#0010 #0010
;hand-icn #02 ;draw-icn JSR2
RTN
@run-file ( id -- )
STH
( count lines )
LITr 00
;dir/data
&while
LDAk #0a ! ,&no-lb JCN
INCr
&no-lb
EQUkr STHr ,&end JCN
INC2 LDAk ,&while JCN
&end
POP2r
DUP2 INC2 ;close-path JSR2
#0006 ++ DUP2 ;print-string JSR2
#0a .Console/write DEO
;load-rom JSR2
RTN
@close-path ( addr* -- )
&while
LDAk #0a ! ,&no-lb JCN
STH2k #00 STH2r STA
,&end JMP
&no-lb
INC2 LDAk ,&while JCN
&end
POP2
RTN
@print-string ( addr* -- )
&loop
LDAk .Console/write DEO
INC2 LDAk ,&loop JCN
POP2
RTN RTN
@redraw ( -- ) @redraw ( -- )
RTN ( unused )
#0018 #0020 #0040 #0040 ;logo-icn #03 ;draw-icn JSR2
#0020 #0070 ;welcome-txt #01 ;draw-label JSR2
;draw-time JSR2
#0020 #00b0 ;prompt-txt #01 ;draw-label JSR2
#0020 #00c0 ;do-txt #03 ;draw-label JSR2
RTN RTN
@ -166,7 +218,7 @@ RTN
;dir/data ;dir/data
&loop &loop
LDAk #0a ! ,&no-lb JCN LDAk #0a ! ,&no-lb JCN
#0080 .Screen/x DEO2 .browser/x LDZ2 .Screen/x DEO2
.Screen/y DEI2 #0010 ++ .Screen/y DEO2 .Screen/y DEI2 #0010 ++ .Screen/y DEO2
( incr line counter ) INCr ( incr line counter ) INCr
,&skip JMP ,&skip JMP
@ -314,6 +366,11 @@ RTN
80c0 e0f0 f8e0 1000 80c0 e0f0 f8e0 1000
@cursor-icn @cursor-icn
ffff ffff ffff ffff ffff ffff ffff ffff
@hand-icn
000c 0a0a 1224 4780
0000 0000 0000 fc02
8180 8080 8040 3f00
fc20 c020 c020 c000
@sin-pcm @sin-pcm
8083 8689 8c8f 9295 989b 9ea1 a4a7 aaad 8083 8689 8c8f 9295 989b 9ea1 a4a7 aaad