commit 44789e4c00ff8c45dd0215a1540fc79c0b3e7e2a
parent 97003d1ae2bffe7cfab0c215e9b9ea53323748d2
Author: neauoire <aliceffekt@gmail.com>
Date: Sun, 23 Jan 2022 10:31:32 -0800
(dos.tal) Impemented time[tm] command
Diffstat:
1 file changed, 62 insertions(+), 51 deletions(-)
diff --git a/projects/software/dos.tal b/projects/software/dos.tal
@@ -22,6 +22,9 @@
%8MOD { #07 AND } %8MOD2 { #0007 AND2 }
%10MOD { #0f AND } %10MOD2 { #000f AND2 }
+%MOD { DIVk MUL SUB }
+%MOD2 { DIV2k MUL2 SUB2 }
+
%AUTO-NONE { #00 .Screen/auto DEO }
%AUTO-X { #01 .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
|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
+|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
( variables )
@@ -126,6 +130,10 @@ RTN
@validate ( -- )
;clear JSR2
+
+ PAD .Screen/x DEO2
+ PAD .Screen/y DEO2
+
;get-cmd JSR2 ;commands-func ++ LDA2 JSR2
;buffer #0080 ;mclr JSR2
@@ -144,79 +152,57 @@ JMP2r
RTN
-@cmd-ls
- &name "ls $1
+@cmd-ls "ls $1
&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
- &docs "copy_file_to_name $1
+@cmd-cp "cp $1 &docs "copy_file_to_name $1
&func
RTN
-@cmd-mv
- &name "mv $1
- &docs "move_file_to_name $1
+@cmd-mv "mv $1 &docs "move_file_to_name $1
&func
RTN
-@cmd-rm
- &name "rm $1
- &docs "remove_file $1
+@cmd-rm "rm $1 &docs "remove_file $1
&func
RTN
-@cmd-tx
- &name "tx $1 ( print file text )
- &docs "display_file_as_text $1
+@cmd-tx "tx $1 &docs "display_file_as_text $1
&func
;buffer #0003 ++ .File/name DEO2
#8000 .File/length DEO2
;view .File/read DEO2
- PAD .Screen/x DEO2
- PAD .Screen/y DEO2
-
- .File/success DEI2 #0000 >> ,&continue JCN
- ;&error-txt #02 ;draw-str JSR2
- RTN
- &continue
+ .File/success DEI2 #0000 >> ,&valid JCN
+ ;&error-txt #02 ;draw-str JSR2 RTN &valid
;view #01 ;draw-tx JSR2
RTN
&error-txt "unknown_file $1
-@cmd-hx
- &name "hx $1 ( print file hex )
- &docs "display_file_as_hex $1
+@cmd-hx "hx $1 &docs "display_file_as_hex $1
&func
;buffer #0003 ++ .File/name DEO2
#8000 .File/length DEO2
;view .File/read DEO2
- PAD .Screen/x DEO2
- PAD .Screen/y DEO2
-
- .File/success DEI2 #0000 >> ,&continue JCN
- ;&error-txt #02 ;draw-str JSR2
- RTN
- &continue
+ .File/success DEI2 #0000 >> ,&valid JCN
+ ;&error-txt #02 ;draw-str JSR2 RTN &valid
AUTO-YADDR
.Screen/x DEI2 ,&anchor STR2
@@ -232,9 +218,7 @@ RTN
RTN
&error-txt "unknown_file $1
-@cmd-do
- &name "do $1 ( print file hex )
- &docs "run_file_as_rom $1
+@cmd-do "do $1 &docs "run_file_as_rom $1
&func
( release inputs )
@@ -253,20 +237,34 @@ RTN
RTN
&invalid-txt "invalid_rom: $1
-@cmd-??
- &name "-- $1
- &docs "display_commands $1
+@cmd-tm "tm $1 &docs "display_time $1
&func
- #aa DEBUG
- PAD .Screen/x DEO2
- PAD .Screen/y DEO2
+
+ #00 .DateTime/month DEI 4* ;month-txt ++ #01 ;draw-str JSR2
+ #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
PAD #0010 ++ .Screen/y DEO2
+
;commands/end ;commands
&loop
- PAD #0008 ++ .Screen/x DEO2
- LDA2k #02 ;draw-str JSR2
- PAD #0030 ++ .Screen/x DEO2
+ PAD .Screen/x DEO2
+ LDA2k #06 ;draw-str JSR2
+ PAD #0020 ++ .Screen/x DEO2
DUP2 ;commands -- ;commands-docs ++ LDA2 #01 ;draw-str JSR2
.Screen/y DEI2k #0010 ++ ROT DEO2
INC2 INC2 GTH2k ,&loop JCN
@@ -278,15 +276,15 @@ RTN
@commands
:cmd-ls :cmd-cp :cmd-mv :cmd-rm
- :cmd-hx :cmd-tx :cmd-do
+ :cmd-hx :cmd-tx :cmd-do :cmd-tm
&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
+ :cmd-hx/docs :cmd-tx/docs :cmd-do/docs :cmd-tm/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
+ :cmd-hx/func :cmd-tx/func :cmd-do/func :cmd-tm/func
&end :cmd-??/func
@draw-input ( color -- )
@@ -348,6 +346,14 @@ 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 -- )
AUTO-YADDR
@@ -464,8 +470,13 @@ JMP2r
~projects/library/check-rom.tal
~projects/library/load-rom.tal
-@strings
- &you-said "You 20 "said 20 $1
+@week-txt
+ "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
aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55
