(dos.tal) Added command documentation in ls cmd
This commit is contained in:
neauoire
parent
edd05ed1d1
commit
97003d1ae2
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue