(dos.tal) Impemented time[tm] command
This commit is contained in:
parent
97003d1ae2
commit
44789e4c00
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue