(boot.rom) Added mouse selection

projects/software/boot.tal

@@ -1,23 +1,17 @@
-( launcher
-
-	TODO:
-		Theme setting
-		Window size setting
-		Play notes
-	)
+( launcher )
 
 %+  { ADD } %-   { SUB }  %*  { MUL }  %/  { DIV }
 %<  { LTH } %>   { GTH }  %=  { EQU }  %!  { NEQ }
 %++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 }
 %<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }
 
-%10** { #40 SFT2 }
+%10** { #40 SFT2 } %10// { #04 SFT2 }
 
 %MOD { DIVk MUL SUB }
 %DEC { #01 - }
 %RTN { JMP2r }
 %TOS { #00 SWP }
-%SWP? { #01 JCN SWP }
+%SWP? { #01 JCN SWP } %SWP2? { #01 JCN SWP2 }
 %BRK? { #01 JCN BRK }
 %RTN? { #01 JCN RTN }
 
@@ -26,14 +20,14 @@
 
 ( 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 ]
-|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 &wheel  $1 ]
-|a0 @File       &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
-|b0 @DateTime   &year   $2 &month    $1 &day    $1 &hour  $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
+|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 &wheel  $1 
+|a0 @File       &vector $2 &success  $2 &stat   $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
+|b0 @DateTime   &year   $2 &month    $1 &day    $1 &hour   $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 
 
 ( variables )
 
@@ -43,7 +37,8 @@
 @pointer
 	&x  $2 &y  $2
 @browser
-	&x $2 &y $2 &sel $1
+	&x $2 &y $2 
+	&sel $1 &last $1
 
 ( init )
 
@@ -77,6 +72,8 @@
 	( theme support )
 	;load-theme JSR2
 
+	( force selection )
+	#ff .browser/last STZ
 	#00 ;select-file JSR2
 
 BRK
@@ -106,6 +103,15 @@ BRK
 	.pointer/y LDZ2 .Screen/y DEO2
 	#41 .Mouse/state DEI #01 = + .Screen/sprite DEO
 
+	( select choice )
+	.Mouse/y DEI2 
+		( clamp ) #0010 GTH2k SWP2? POP2
+		10// NIP #01 - ;select-file JSR2
+
+	.Mouse/state DEI #00 = ,&no-click JCN
+		.browser/sel LDZ ;run-file JSR2
+		&no-click
+
 BRK
 
 @on-button ( -> )
@@ -145,12 +151,18 @@ RTN
 
 @select-file ( id -- )
 
+	DUP .browser/last LDZ ! ,&has-changed JCN
+		POP RTN
+		&has-changed
+
 	.browser/x LDZ2 #0018 -- .browser/y LDZ2 [ .browser/sel LDZ TOS 10** ++ ] 
 	#0010 #0010 
 		;hand-icn #00 ;draw-icn JSR2
 
 	DUP 
 		.browser/sel STZ
+	DUP
+		.browser/last STZ
 		#30 + .Audio0/pitch DEO
 	;draw-browser JSR2
 
@@ -343,7 +355,7 @@ RTN
 ( helpers )
 
 @print-hex ( value* -- )
-	
+
 	&short ( value* -- )
 		SWP ,&echo JSR 
 	&byte ( value -- )
@@ -359,22 +371,8 @@ RTN
 
 RTN
 
-@welcome-txt
-	"Welcome 20 "to 20 "your 20 "UXN 20 "Ordinator $1
-@today-txt
-	"Today 20 "is 20 "0000-00-00 ", 20 "the 20 "time 20 "is 20 "00:00:00 $1
-@prompt-txt
-	"What 20 "shall 20 "we 20 "do? $1
-@do-txt
-	"$: $1
-
-@error-txt
-	"Sorry, 20 "ROM 20 "not 20 "found. $1
-
 @pointer-icn
 	80c0 e0f0 f8e0 1000
-@cursor-icn
-	ffff ffff ffff ffff
 @hand-icn
 	000c 0a0a 1224 4780
 	0000 0000 0000 fc02
@@ -402,7 +400,6 @@ RTN
 include projects/library/check-rom.tal
 include projects/library/load-rom.tal
 
-include projects/assets/logo05x05.tal
 include projects/assets/mascot0cx0c.tal
 include projects/assets/msx01x02.tal