commit 97003d1ae2bffe7cfab0c215e9b9ea53323748d2
parent edd05ed1d14ea70c34afb0228552bd7363f36a76
Author: neauoire <aliceffekt@gmail.com>
Date: Sun, 23 Jan 2022 10:03:15 -0800
(dos.tal) Added command documentation in ls cmd
Diffstat:
1 file changed, 51 insertions(+), 24 deletions(-)
diff --git a/projects/software/dos.tal b/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
