etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

(dos.tal) Impemented time[tm] command

This commit is contained in:
neauoire 2022-01-23 10:31:32 -08:00
parent 97003d1ae2
commit 44789e4c00
1 changed files with 62 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
projects/software/dos.tal
View File

@ -22,6 +22,9 @@
%8MOD { #07 AND } %8MOD2 { #0007 AND2 } %8MOD { #07 AND } %8MOD2 { #0007 AND2 }
%10MOD { #0f AND } %10MOD2 { #000f AND2 } %10MOD { #0f AND } %10MOD2 { #000f AND2 }
%MOD { DIVk MUL SUB }
%MOD2 { DIV2k MUL2 SUB2 }
%AUTO-NONE { #00 .Screen/auto DEO } %AUTO-NONE { #00 .Screen/auto DEO }
%AUTO-X { #01 .Screen/auto DEO } %AUTO-X { #01 .Screen/auto DEO }
%AUTO-Y { #02 .Screen/auto DEO } %AUTO-Y { #02 .Screen/auto DEO }
@ -44,6 +47,7 @@
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|80 @Controller &vector $2 &button $1 &key $1 |80 @Controller &vector $2 &button $1 &key $1
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 |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 ) ( variables )
@ -126,6 +130,10 @@ RTN
@validate ( -- ) @validate ( -- )
;clear JSR2 ;clear JSR2
PAD .Screen/x DEO2
PAD .Screen/y DEO2
;get-cmd JSR2 ;commands-func ++ LDA2 JSR2 ;get-cmd JSR2 ;commands-func ++ LDA2 JSR2
;buffer #0080 ;mclr JSR2 ;buffer #0080 ;mclr JSR2
@ -144,79 +152,57 @@ JMP2r
RTN RTN
@cmd-ls @cmd-ls "ls $1
&name "ls $1
&docs "list_folder_content $1 &docs "list_folder_content $1
&func &func
;path .File/name DEO2 ;path .File/name DEO2
#8000 .File/length DEO2 #8000 .File/length DEO2
;view .File/read DEO2 ;view .File/read DEO2
PAD .Screen/x DEO2
PAD .Screen/y DEO2
;view #01 ;draw-tx JSR2 ;view #01 ;draw-tx JSR2
RTN RTN
@cmd-cp @cmd-cp "cp $1 &docs "copy_file_to_name $1
&name "cp $1
&docs "copy_file_to_name $1
&func &func
RTN RTN
@cmd-mv @cmd-mv "mv $1 &docs "move_file_to_name $1
&name "mv $1
&docs "move_file_to_name $1
&func &func
RTN RTN
@cmd-rm @cmd-rm "rm $1 &docs "remove_file $1
&name "rm $1
&docs "remove_file $1
&func &func
RTN RTN
@cmd-tx @cmd-tx "tx $1 &docs "display_file_as_text $1
&name "tx $1 ( print file text )
&docs "display_file_as_text $1
&func &func
;buffer #0003 ++ .File/name DEO2 ;buffer #0003 ++ .File/name DEO2
#8000 .File/length DEO2 #8000 .File/length DEO2
;view .File/read DEO2 ;view .File/read DEO2
PAD .Screen/x DEO2 .File/success DEI2 #0000 >> ,&valid JCN
PAD .Screen/y DEO2 ;&error-txt #02 ;draw-str JSR2 RTN &valid
.File/success DEI2 #0000 >> ,&continue JCN
;&error-txt #02 ;draw-str JSR2
RTN
&continue
;view #01 ;draw-tx JSR2 ;view #01 ;draw-tx JSR2
RTN RTN
&error-txt "unknown_file $1 &error-txt "unknown_file $1
@cmd-hx @cmd-hx "hx $1 &docs "display_file_as_hex $1
&name "hx $1 ( print file hex )
&docs "display_file_as_hex $1
&func &func
;buffer #0003 ++ .File/name DEO2 ;buffer #0003 ++ .File/name DEO2
#8000 .File/length DEO2 #8000 .File/length DEO2
;view .File/read DEO2 ;view .File/read DEO2
PAD .Screen/x DEO2 .File/success DEI2 #0000 >> ,&valid JCN
PAD .Screen/y DEO2 ;&error-txt #02 ;draw-str JSR2 RTN &valid
.File/success DEI2 #0000 >> ,&continue JCN
;&error-txt #02 ;draw-str JSR2
RTN
&continue
AUTO-YADDR AUTO-YADDR
.Screen/x DEI2 ,&anchor STR2 .Screen/x DEI2 ,&anchor STR2
@ -232,9 +218,7 @@ RTN
RTN RTN
&error-txt "unknown_file $1 &error-txt "unknown_file $1
@cmd-do @cmd-do "do $1 &docs "run_file_as_rom $1
&name "do $1 ( print file hex )
&docs "run_file_as_rom $1
&func &func
( release inputs ) ( release inputs )
@ -253,20 +237,34 @@ RTN
RTN RTN
&invalid-txt "invalid_rom: $1 &invalid-txt "invalid_rom: $1
@cmd-?? @cmd-tm "tm $1 &docs "display_time $1
&name "-- $1
&docs "display_commands $1
&func &func
#aa DEBUG
PAD .Screen/x DEO2 #00 .DateTime/month DEI 4* ;month-txt ++ #01 ;draw-str JSR2
PAD .Screen/y DEO2 #20 #01 ;draw-char JSR2
.DateTime/day DEI #01 ;draw-dec JSR2
#20 #01 ;draw-char JSR2
#00 .DateTime/dotw DEI 4* ;week-txt ++ #01 ;draw-str JSR2
#20 #01 ;draw-char JSR2
.DateTime/hour DEI #01 ;draw-dec JSR2
LIT ': #01 ;draw-char JSR2
.DateTime/minute DEI #01 ;draw-dec JSR2
LIT ': #01 ;draw-char JSR2
.DateTime/second DEI #01 ;draw-dec JSR2
RTN
@cmd-?? "-- $1 &docs "display_commands $1
&func
;&help-txt #01 ;draw-tx JSR2 ;&help-txt #01 ;draw-tx JSR2
PAD #0010 ++ .Screen/y DEO2 PAD #0010 ++ .Screen/y DEO2
;commands/end ;commands ;commands/end ;commands
&loop &loop
PAD #0008 ++ .Screen/x DEO2 PAD .Screen/x DEO2
LDA2k #02 ;draw-str JSR2 LDA2k #06 ;draw-str JSR2
PAD #0030 ++ .Screen/x DEO2 PAD #0020 ++ .Screen/x DEO2
DUP2 ;commands -- ;commands-docs ++ LDA2 #01 ;draw-str JSR2 DUP2 ;commands -- ;commands-docs ++ LDA2 #01 ;draw-str JSR2
.Screen/y DEI2k #0010 ++ ROT DEO2 .Screen/y DEI2k #0010 ++ ROT DEO2
INC2 INC2 GTH2k ,&loop JCN INC2 INC2 GTH2k ,&loop JCN
@ -278,15 +276,15 @@ RTN
@commands @commands
:cmd-ls :cmd-cp :cmd-mv :cmd-rm :cmd-ls :cmd-cp :cmd-mv :cmd-rm
:cmd-hx :cmd-tx :cmd-do :cmd-hx :cmd-tx :cmd-do :cmd-tm
&end :cmd-?? &end :cmd-??
@commands-docs @commands-docs
:cmd-ls/docs :cmd-cp/docs :cmd-mv/docs :cmd-rm/docs :cmd-ls/docs :cmd-cp/docs :cmd-mv/docs :cmd-rm/docs
:cmd-hx/docs :cmd-tx/docs :cmd-do/docs :cmd-hx/docs :cmd-tx/docs :cmd-do/docs :cmd-tm/docs
&end :cmd-??/docs &end :cmd-??/docs
@commands-func @commands-func
:cmd-ls/func :cmd-cp/func :cmd-mv/func :cmd-rm/func :cmd-ls/func :cmd-cp/func :cmd-mv/func :cmd-rm/func
:cmd-hx/func :cmd-tx/func :cmd-do/func :cmd-hx/func :cmd-tx/func :cmd-do/func :cmd-tm/func
&end :cmd-??/func &end :cmd-??/func
@draw-input ( color -- ) @draw-input ( color -- )
@ -348,6 +346,14 @@ RTN
RTN RTN
@draw-dec ( byte color -- )
STH
DUP #0a DIV LIT '0 + STHkr ,draw-char JSR
#0a MOD LIT '0 + STHr ,draw-char JSR
RTN
@draw-str ( str* color -- ) @draw-str ( str* color -- )
AUTO-YADDR AUTO-YADDR
@ -464,8 +470,13 @@ JMP2r
~projects/library/check-rom.tal ~projects/library/check-rom.tal
~projects/library/load-rom.tal ~projects/library/load-rom.tal
@strings @week-txt
&you-said "You 20 "said 20 $1 "Sun $1 "Mon $1 "Tue $1 "Wed $1 "Thu $1 "Fri $1
"Sat $1
@month-txt
"Jan $1 "Feb $1 "Mar $1 "Apr $1 "May $1 "Jun $1
"Jul $1 "Aug $1 "Sep $1 "Oct $1 "Nov $1 "Dec $1
@cursor-icn @cursor-icn
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55