(clock.tal) Print date
This commit is contained in:
Devine Lu Linvega
parent
e8480dc669
commit
f0ba07acde
|
|
@ -24,6 +24,10 @@
|
||||||
%SCALEY { 2// .center/y LDZ2 ++ RADIUS -- }
|
%SCALEY { 2// .center/y LDZ2 ++ RADIUS -- }
|
||||||
%12HOURS { #0c MOD }
|
%12HOURS { #0c MOD }
|
||||||
|
|
||||||
|
%IS-UC { DUP #40 > SWP #5b < AND }
|
||||||
|
%IS-LC { DUP #60 > SWP #7b < AND }
|
||||||
|
%IS-NUM { DUP #2f > SWP #3a < AND }
|
||||||
|
|
||||||
( devices )
|
( devices )
|
||||||
|
|
||||||
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|
||||||
|
|
@ -35,7 +39,8 @@
|
||||||
|
|
||||||
|0000
|
|0000
|
||||||
|
|
||||||
@current $1
|
@last
|
||||||
|
&day $1 &sec $1
|
||||||
@center
|
@center
|
||||||
&x $2 &y $2
|
&x $2 &y $2
|
||||||
@date
|
@date
|
||||||
|
|
@ -66,7 +71,7 @@
|
||||||
( center )
|
( center )
|
||||||
.Screen/width DEI2 2//
|
.Screen/width DEI2 2//
|
||||||
DUP2 .center/x STZ2
|
DUP2 .center/x STZ2
|
||||||
DUP2 #0048 -- .date/x STZ2
|
DUP2 #0028 -- .date/x STZ2
|
||||||
#0020 -- .time/x STZ2
|
#0020 -- .time/x STZ2
|
||||||
.Screen/height DEI2 2//
|
.Screen/height DEI2 2//
|
||||||
DUP2 .center/y STZ2
|
DUP2 .center/y STZ2
|
||||||
|
|
@ -83,23 +88,40 @@
|
||||||
INC GTHk ,&loop JCN
|
INC GTHk ,&loop JCN
|
||||||
POP2
|
POP2
|
||||||
|
|
||||||
( continue )
|
BRK
|
||||||
|
|
||||||
@on-frame ( -> )
|
@on-frame ( -> )
|
||||||
|
|
||||||
( only draw once per second )
|
( once per second )
|
||||||
.DateTime/second DEI .current LDZ = ,&skip JCN
|
.DateTime/second DEI
|
||||||
|
DUP .last/sec LDZ = ,&same-sec JCN
|
||||||
( clear ) #00 ,draw-needles JSR
|
( clear ) #00 ,draw-needles JSR
|
||||||
( update ) ,update-needles JSR
|
( update ) ;make-needles JSR2
|
||||||
( draw ) #01 ,draw-needles JSR
|
( draw ) #01 ,draw-needles JSR
|
||||||
;draw-display JSR2
|
.time/x LDZ2 .Screen/x DEO2
|
||||||
&skip
|
.time/y LDZ2 .Screen/y DEO2
|
||||||
|
;make-time JSR2
|
||||||
|
;time-txt ;draw-text JSR2
|
||||||
|
DUP .last/sec STZ
|
||||||
|
&same-sec
|
||||||
|
POP
|
||||||
|
|
||||||
.DateTime/second DEI .current STZ
|
( once per day )
|
||||||
|
.DateTime/day DEI
|
||||||
|
DUP .last/day LDZ = ,&same-day JCN
|
||||||
|
.date/x LDZ2 .Screen/x DEO2
|
||||||
|
.date/y LDZ2 .Screen/y DEO2
|
||||||
|
.DateTime/dotw DEI 4* TOS ;week-txt ++ ;draw-text JSR2
|
||||||
|
.DateTime/month DEI 4* TOS ;month-txt ++ ;draw-text JSR2
|
||||||
|
;make-date JSR2
|
||||||
|
;date-txt ;draw-text JSR2
|
||||||
|
DUP .last/day STZ
|
||||||
|
&same-day
|
||||||
|
POP
|
||||||
|
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
@draw-needles ( mul -- )
|
@draw-needles ( draw -- )
|
||||||
|
|
||||||
STH
|
STH
|
||||||
.center/x LDZ2 .center/y LDZ2
|
.center/x LDZ2 .center/y LDZ2
|
||||||
|
|
@ -111,81 +133,33 @@ BRK
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
@update-needles ( -- )
|
@draw-text ( addr* -- )
|
||||||
|
|
||||||
#00 .DateTime/second DEI 2** ;table ++ LDA2
|
( auto addr ) #06 .Screen/auto DEO
|
||||||
TOS SCALEY .needles/sy STZ2
|
&while
|
||||||
TOS SCALEX .needles/sx STZ2
|
LDAk
|
||||||
#00 .DateTime/minute DEI 2** ;table ++ LDA2
|
DUP IS-LC ,&lc JCN
|
||||||
TOS 20** RADIUS ++ #0024 // SCALEY #0007 ++ .needles/my STZ2
|
DUP IS-UC ,&uc JCN
|
||||||
TOS 20** RADIUS ++ #0024 // SCALEX #0007 ++ .needles/mx STZ2
|
DUP IS-NUM ,&num JCN
|
||||||
#00 .DateTime/hour DEI 12HOURS #20 SFTk NIP ADD 2** ;table ++ LDA2
|
DUP LIT '/ = ,&slash JCN
|
||||||
TOS 4// DUP2k ++ ++ #0020 ++ SCALEY .needles/hy STZ2
|
DUP LIT ': = ,&colon JCN
|
||||||
TOS 4// DUP2k ++ ++ #0020 ++ SCALEX .needles/hx STZ2
|
POP ;font/blank
|
||||||
|
&end
|
||||||
RTN
|
|
||||||
|
|
||||||
@draw-display ( -- )
|
|
||||||
|
|
||||||
( auto addr ) #04 .Screen/auto DEO
|
|
||||||
|
|
||||||
( dotw )
|
|
||||||
.date/x LDZ2 .Screen/x DEO2
|
|
||||||
.date/y LDZ2 .Screen/y DEO2
|
|
||||||
.DateTime/dotw DEI 4* TOS ;dotw ++ ;draw-dotw JSR2
|
|
||||||
( date )
|
|
||||||
.Screen/x DEI2 #001c ++ .Screen/x DEO2
|
|
||||||
.DateTime/month DEI2
|
|
||||||
SWP INC ,&number JSR
|
|
||||||
;font/slash ,&char JSR
|
|
||||||
,&number JSR
|
|
||||||
( time )
|
|
||||||
.time/y LDZ2 .Screen/y DEO2
|
|
||||||
.time/x LDZ2 .Screen/x DEO2
|
|
||||||
.DateTime/hour DEI2
|
|
||||||
SWP ,&number JSR
|
|
||||||
;font/spacer ,&char JSR
|
|
||||||
,&number JSR
|
|
||||||
;font/spacer ,&char JSR
|
|
||||||
.DateTime/second DEI
|
|
||||||
,&number JSR
|
|
||||||
|
|
||||||
( auto none ) #00 .Screen/auto DEO
|
|
||||||
|
|
||||||
RTN
|
|
||||||
&pady ( -- )
|
|
||||||
.Screen/y DEI2 #0008 ++ .Screen/y DEO2 RTN
|
|
||||||
&char ( char* -- )
|
|
||||||
.Screen/addr DEO2
|
.Screen/addr DEO2
|
||||||
#03 .Screen/sprite DEO
|
#0303 .Screen/sprite DEO .Screen/sprite DEO
|
||||||
,&pady JSR
|
.Screen/y DEI2 #0010 -- .Screen/y DEO2
|
||||||
#03 .Screen/sprite DEO
|
|
||||||
,&reset JSR
|
|
||||||
RTN
|
|
||||||
&digit ( number -- )
|
|
||||||
10* TOS ;font ++ .Screen/addr DEO2
|
|
||||||
#03 .Screen/sprite DEO
|
|
||||||
,&pady JSR
|
|
||||||
#03 .Screen/sprite DEO
|
|
||||||
RTN
|
|
||||||
&number ( number -- )
|
|
||||||
DUP #0a DIV ,&digit JSR
|
|
||||||
,&reset JSR
|
|
||||||
#0a MOD ,&digit JSR
|
|
||||||
&reset
|
|
||||||
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
|
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
|
||||||
.Screen/y DEI2 #0008 -- .Screen/y DEO2
|
INC2 LDAk ,&while JCN
|
||||||
RTN
|
POP2
|
||||||
|
( auto none ) #00 .Screen/auto DEO
|
||||||
@draw-dotw ( str* -- )
|
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
|
||||||
|
|
||||||
DUP2 #0003 ++ SWP2
|
|
||||||
&loop
|
|
||||||
LDAk #41 - TOS 10** ;font/letters ++ ;draw-display/char JSR2
|
|
||||||
INC2 GTH2k ,&loop JCN
|
|
||||||
POP2 POP2
|
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
&lc #61 - TOS 10** ;font/lc ++ ,&end JMP
|
||||||
|
&uc #41 - TOS 10** ;font/uc ++ ,&end JMP
|
||||||
|
&num #30 - TOS 10** ;font/num ++ ,&end JMP
|
||||||
|
&slash POP ;font/slash ,&end JMP
|
||||||
|
&colon POP ;font/colon ,&end JMP
|
||||||
|
|
||||||
@draw-line ( x1 y1 x2 y2 color -- )
|
@draw-line ( x1 y1 x2 y2 color -- )
|
||||||
|
|
||||||
|
|
@ -215,8 +189,54 @@ RTN
|
||||||
|
|
||||||
RTN
|
RTN
|
||||||
|
|
||||||
@dotw
|
@make-needles ( -- )
|
||||||
"Sun $1 "Mon $1 "Tue $1 "Wed $1 "Thu $1 "Fri $1 "Sat $1
|
|
||||||
|
#00 .DateTime/second DEI 2** ;table ++ LDA2
|
||||||
|
TOS SCALEY .needles/sy STZ2
|
||||||
|
TOS SCALEX .needles/sx STZ2
|
||||||
|
#00 .DateTime/minute DEI 2** ;table ++ LDA2
|
||||||
|
TOS 20** RADIUS ++ #0024 // SCALEY #0007 ++ .needles/my STZ2
|
||||||
|
TOS 20** RADIUS ++ #0024 // SCALEX #0007 ++ .needles/mx STZ2
|
||||||
|
#00 .DateTime/hour DEI 12HOURS #20 SFTk NIP ADD 2** ;table ++ LDA2
|
||||||
|
TOS 4// DUP2k ++ ++ #0020 ++ SCALEY .needles/hy STZ2
|
||||||
|
TOS 4// DUP2k ++ ++ #0020 ++ SCALEX .needles/hx STZ2
|
||||||
|
|
||||||
|
RTN
|
||||||
|
|
||||||
|
@make-date ( -- )
|
||||||
|
|
||||||
|
.DateTime/day DEI
|
||||||
|
DUP #0a DIV #30 + ;date-txt STA
|
||||||
|
#0a MOD #30 + ;date-txt INC STA
|
||||||
|
|
||||||
|
RTN
|
||||||
|
|
||||||
|
@make-time ( -- )
|
||||||
|
|
||||||
|
.DateTime/hour DEI ;time-txt/h ,decimal JSR
|
||||||
|
.DateTime/minute DEI ;time-txt/m ,decimal JSR
|
||||||
|
.DateTime/second DEI ;time-txt/s ,decimal JSR
|
||||||
|
|
||||||
|
RTN
|
||||||
|
|
||||||
|
@decimal ( -- )
|
||||||
|
|
||||||
|
STH2
|
||||||
|
DUP #0a DIV #30 + STH2kr STA
|
||||||
|
#0a MOD #30 + STH2r INC2 STA
|
||||||
|
|
||||||
|
RTN
|
||||||
|
|
||||||
|
@time-txt
|
||||||
|
&h "00: &m "00: &s "00 $1
|
||||||
|
@date-txt
|
||||||
|
"00 $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
|
||||||
|
|
||||||
@table ( 60 positions on a circle )
|
@table ( 60 positions on a circle )
|
||||||
8000 8d00 9a02 a706 b40b c011 cb18 d520
|
8000 8d00 9a02 a706 b40b c011 cb18 d520
|
||||||
|
|
@ -229,6 +249,7 @@ RTN
|
||||||
4b0b 5806 6502 7200
|
4b0b 5806 6502 7200
|
||||||
|
|
||||||
@font
|
@font
|
||||||
|
&num
|
||||||
0018 2442 4242 4242 4242 4242 4224 1800
|
0018 2442 4242 4242 4242 4242 4224 1800
|
||||||
0008 1828 0808 0808 0808 0808 0808 1c00
|
0008 1828 0808 0808 0808 0808 0808 1c00
|
||||||
0018 2442 4202 0202 0408 1020 4040 7e00
|
0018 2442 4202 0202 0408 1020 4040 7e00
|
||||||
|
|
@ -239,11 +260,7 @@ RTN
|
||||||
007e 4202 0204 0404 0808 0810 1010 1000
|
007e 4202 0204 0404 0808 0810 1010 1000
|
||||||
0018 2442 4242 2418 2442 4242 4224 1800
|
0018 2442 4242 2418 2442 4242 4224 1800
|
||||||
0018 2442 4242 4242 261a 0202 0408 3000
|
0018 2442 4242 4242 261a 0202 0408 3000
|
||||||
&spacer
|
&uc
|
||||||
0000 0000 0010 1000 0000 0000 1010 0000
|
|
||||||
&slash
|
|
||||||
0202 0404 0808 1010 2020 4040 8080 0000
|
|
||||||
&letters
|
|
||||||
0010 1028 2844 4444 8282 fe82 8282 0000
|
0010 1028 2844 4444 8282 fe82 8282 0000
|
||||||
00f8 4442 4242 4478 4442 4242 44f8 0000
|
00f8 4442 4242 4478 4442 4242 44f8 0000
|
||||||
003c 4282 8280 8080 8080 8282 423c 0000
|
003c 4282 8280 8080 8080 8282 423c 0000
|
||||||
|
|
@ -270,12 +287,7 @@ RTN
|
||||||
0042 4242 2424 1818 1824 2442 4242 0000
|
0042 4242 2424 1818 1824 2442 4242 0000
|
||||||
0082 8282 4444 2828 1010 1010 1038 0000
|
0082 8282 4444 2828 1010 1010 1038 0000
|
||||||
007e 4204 0408 0810 1020 2040 427e 0000
|
007e 4204 0408 0810 1020 2040 427e 0000
|
||||||
0e08 0808 0808 0808 0808 0808 0808 080e
|
&lc
|
||||||
0082 8282 4444 fe28 10fe 1010 1010 1000
|
|
||||||
7010 1010 1010 1010 1010 1010 1010 1070
|
|
||||||
1028 4400 0000 0000 0000 0000 0000 0000
|
|
||||||
0000 0000 0000 0000 0000 0000 0000 00fe
|
|
||||||
1010 1008 0000 0000 0000 0000 0000 0000
|
|
||||||
0000 0000 0030 0808 3848 4848 4834 0000
|
0000 0000 0030 0808 3848 4848 4834 0000
|
||||||
0060 2020 202c 3222 2222 2222 322c 0000
|
0060 2020 202c 3222 2222 2222 322c 0000
|
||||||
0000 0000 001c 2240 4040 4040 221c 0000
|
0000 0000 001c 2240 4040 4040 221c 0000
|
||||||
|
|
@ -302,4 +314,9 @@ RTN
|
||||||
0000 0000 00ee 4428 1010 1028 44ee 0000
|
0000 0000 00ee 4428 1010 1028 44ee 0000
|
||||||
0000 0000 00ee 4444 4448 2828 1010 2040
|
0000 0000 00ee 4444 4448 2828 1010 2040
|
||||||
0000 0000 007c 4408 0810 2020 447c 0000
|
0000 0000 007c 4408 0810 2020 447c 0000
|
||||||
|
&colon
|
||||||
|
0000 0000 0010 1000 0000 0000 1010 0000
|
||||||
|
&slash
|
||||||
|
0202 0404 0808 1010 2020 4040 8080 0000
|
||||||
|
&blank
|
||||||
|
0000 0000 0000 0000 0000 0000 0000 0000
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue