(dos.tal) Added command documentation in ls cmd

projects/software/dos.tal

@@ -57,9 +57,9 @@
 |0100 ( -> )
 
 	( theme ) 
-	#0f55 .System/r DEO2 
-	#0fc5 .System/g DEO2 
-	#0fa5 .System/b DEO2
+	#50f5 .System/r DEO2 
+	#c0f5 .System/g DEO2 
+	#a0f5 .System/b DEO2
 
 	( vectors ) 
 	;on-button .Controller/vector DEO2
@@ -68,7 +68,7 @@
 	#00 WIDTH 8** PAD 2** ++ .Screen/width DEO2
 	#00 HEIGHT 8** PAD 2** ++ .Screen/height DEO2
 
-	#08 ;draw-input JSR2
+	#04 ;draw-input JSR2
 
 	LIT '. .path STZ
 
@@ -90,12 +90,12 @@ BRK
 	DUP #08 ! ,&no-backspace JCN
 		#00 ;draw-input JSR2
 		;buffer ;spop JSR2
-		#08 ;draw-input JSR2
+		#04 ;draw-input JSR2
 		&no-backspace
 	DUP STHk #1f > STHr #7b < #0101 !! ,&no-valid JCN
 	;buffer ;slen JSR2 #007f >> ,&no-valid JCN
 		STHk ;buffer STHr ;sput JSR2
-		#08 ;draw-input JSR2
+		#04 ;draw-input JSR2
 		&no-valid
 	POP
 
@@ -126,7 +126,7 @@ RTN
 @validate ( -- )
 	
 	;clear JSR2
-	;get-cmd JSR2 #0003 ++ JSR2
+	;get-cmd JSR2 ;commands-func ++ LDA2 JSR2
 	;buffer #0080 ;mclr JSR2
 
 JMP2r
@@ -136,49 +136,53 @@ JMP2r
 	;commands/end ;commands
 	&loop
 		LDA2k ;buffer ;scmp-seg JSR2 #00 = ,&continue JCN
-			NIP2 LDA2 RTN
+			NIP2 ;commands -- RTN
 			&continue
 		INC2 INC2 GTH2k ,&loop JCN
 	&end
-	POP2 LDA2
+	POP2 ;commands --
 
 RTN
 
 @cmd-ls 
 	&name "ls $1
-	&run
+	&docs "list_folder_content $1
+	&func
+	
 	;path .File/name DEO2
 	#8000 .File/length DEO2
 	;view .File/read DEO2
-
 	PAD .Screen/x DEO2
 	PAD .Screen/y DEO2
-
 	;view #01 ;draw-tx JSR2
 
 RTN
 
 @cmd-cp 
 	&name "cp $1
-	&run
+	&docs "copy_file_to_name $1
+	&func
 
 RTN
 
 @cmd-mv 
 	&name "mv $1
-	&run
+	&docs "move_file_to_name $1
+	&func
 
 RTN
 
 @cmd-rm 
 	&name "rm $1
-	&run
+	&docs "remove_file $1
+	&func
 
 RTN
 
 @cmd-tx
 	&name "tx $1 ( print file text )
-	&run
+	&docs "display_file_as_text $1
+	&func
 
 	;buffer #0003 ++ .File/name DEO2
 	#8000 .File/length DEO2
@@ -199,7 +203,8 @@ RTN
 
 @cmd-hx
 	&name "hx $1 ( print file hex )
-	&run
+	&docs "display_file_as_hex $1
+	&func
 
 	;buffer #0003 ++ .File/name DEO2
 	#8000 .File/length DEO2
@@ -229,7 +234,8 @@ RTN
 
 @cmd-do
 	&name "do $1 ( print file hex )
-	&run
+	&docs "run_file_as_rom $1
+	&func
 
 	( release inputs )
 	#0000 .Controller/button DEO2
@@ -249,27 +255,39 @@ RTN
 
 @cmd-??
 	&name "-- $1
-	&run
+	&docs "display_commands $1
+	&func
+	#aa DEBUG
 	PAD .Screen/x DEO2
 	PAD .Screen/y DEO2
 	;&help-txt #01 ;draw-tx JSR2
-	PAD #0020 ++ .Screen/y DEO2
+	PAD #0010 ++ .Screen/y DEO2
 	;commands/end ;commands
 	&loop
-		PAD #0020 ++ .Screen/x DEO2
+		PAD #0008 ++ .Screen/x DEO2
 		LDA2k #02 ;draw-str JSR2
+		PAD #0030 ++ .Screen/x DEO2
+		DUP2 ;commands -- ;commands-docs ++ LDA2 #01 ;draw-str JSR2
 		.Screen/y DEI2k #0010 ++ ROT DEO2
 		INC2 INC2 GTH2k ,&loop JCN
 	&end
-	POP2 LDA2
+	POP2 POP2
 
 RTN
-	&help-txt "Available 20 "commands: $1
+	&help-txt "Commands: $1
 
 @commands
 	:cmd-ls :cmd-cp :cmd-mv :cmd-rm 
 	:cmd-hx :cmd-tx :cmd-do
 	&end :cmd-??
+@commands-docs
+	:cmd-ls/docs :cmd-cp/docs :cmd-mv/docs :cmd-rm/docs 
+	:cmd-hx/docs :cmd-tx/docs :cmd-do/docs
+	&end :cmd-??/docs
+@commands-func
+	:cmd-ls/func :cmd-cp/func :cmd-mv/func :cmd-rm/func 
+	:cmd-hx/func :cmd-tx/func :cmd-do/func
+	&end :cmd-??/func
 
 @draw-input ( color -- )
 
@@ -282,7 +300,12 @@ RTN
 
 	#20 #00 ;draw-char JSR2
 
-	;buffer STHr ;draw-str JSR2
+	;buffer STHkr ;draw-str JSR2
+
+	;cursor-icn .Screen/addr DEO2
+	STHr .Screen/sprite DEOk DEO
+	.Screen/y DEI2 #0010 -- .Screen/y DEO2
+	.Screen/x DEI2 #0008 ++ .Screen/x DEO2
 
 JMP2r
 
@@ -444,6 +467,10 @@ JMP2r
 @strings
 	&you-said "You 20 "said 20 $1
 
+@cursor-icn
+	aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55
+	aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55
+
 @font ( terminus01x02 )
 	0000 0000 0000 0000 0000 0000 0000 0000
 	0000 183c 3c3c 1818 1800 1818 0000 0000