(clock.tal) Fixed routine comments

This commit is contained in:
Devine Lu Linvega 2021-11-20 13:12:12 -05:00
parent 5f010b485c
commit 31d1503548
1 changed files with 16 additions and 15 deletions

View File

@ -39,9 +39,6 @@
|0000 |0000
@date-buf $4
@time-buf
&h $2 &s1 $1 &m $2 &s2 $1 &s $3
@last @last
&day $1 &sec $1 &day $1 &sec $1
@center @center
@ -55,6 +52,8 @@
&mx $2 &my $2 &mx $2 &my $2
&sx $2 &sy $2 &sx $2 &sy $2
&zx $2 &zy $2 &zx $2 &zy $2
@buf
&d $3 &h $2 &s1 $1 &m $2 &s2 $1 &s $3
@line @line
&x0 $2 &y0 $2 &x $2 &y $2 &sx $2 &sy $2 &x0 $2 &y0 $2 &x $2 &y $2 &sx $2 &sy $2
&dx $2 &dy $2 &e1 $2 &e2 $2 &color $1 &dx $2 &dy $2 &e1 $2 &e2 $2 &color $1
@ -103,10 +102,10 @@
POP2 POP2
LIT ': LIT ':
DUP .time-buf/s1 STZ DUP .buf/s1 STZ
.time-buf/s2 STZ .buf/s2 STZ
BRK ( continue )
@on-frame ( -> ) @on-frame ( -> )
@ -114,13 +113,13 @@ BRK
.DateTime/second DEI .DateTime/second DEI
DUP .last/sec LDZ = ,&same-sec JCN DUP .last/sec LDZ = ,&same-sec JCN
( make time ) ( make time )
.DateTime/hour DEI .time-buf/h ;decimal JSR2 .DateTime/hour DEI .buf/h ;decimal JSR2
.DateTime/minute DEI .time-buf/m ;decimal JSR2 .DateTime/minute DEI .buf/m ;decimal JSR2
DUP .time-buf/s ;decimal JSR2 DUP .buf/s ;decimal JSR2
( draw label ) ( draw label )
.time/x LDZ2 .Screen/x DEO2 .time/x LDZ2 .Screen/x DEO2
.time/y LDZ2 .Screen/y DEO2 .time/y LDZ2 .Screen/y DEO2
;time-buf ;draw-text JSR2 ;buf/h ;draw-text JSR2
( draw needles ) ( draw needles )
#00 ;draw-needles JSR2 #00 ;draw-needles JSR2
;make-needles JSR2 ;make-needles JSR2
@ -133,13 +132,13 @@ BRK
.DateTime/day DEI .DateTime/day DEI
DUP .last/day LDZ = ,&same-day JCN DUP .last/day LDZ = ,&same-day JCN
( make date ) ( make date )
DUP .date-buf ;decimal JSR2 DUP .buf/d ;decimal JSR2
( draw label ) ( draw label )
.date/x LDZ2 .Screen/x DEO2 .date/x LDZ2 .Screen/x DEO2
.date/y LDZ2 .Screen/y DEO2 .date/y LDZ2 .Screen/y DEO2
.DateTime/dotw DEI 4* TOS ;week-txt ++ ;draw-text JSR2 .DateTime/dotw DEI 4* TOS ;week-txt ++ ;draw-text JSR2
.DateTime/month DEI 4* TOS ;month-txt ++ ;draw-text JSR2 .DateTime/month DEI 4* TOS ;month-txt ++ ;draw-text JSR2
;date-buf ;draw-text JSR2 ;buf/d ;draw-text JSR2
DUP .last/day STZ DUP .last/day STZ
&same-day &same-day
POP POP
@ -158,6 +157,7 @@ BRK
.needles/mx LDZ2 .needles/my LDZ2 #01 STHkr * ;draw-line JSR2 .needles/mx LDZ2 .needles/my LDZ2 #01 STHkr * ;draw-line JSR2
OVR2 OVR2 OVR2 OVR2
.needles/hx LDZ2 .needles/hy LDZ2 #01 STHr * ;draw-line JSR2 .needles/hx LDZ2 .needles/hy LDZ2 #01 STHr * ;draw-line JSR2
( middle )
#0001 -- .Screen/y DEO2 #0001 -- .Screen/x DEO2 #0001 -- .Screen/y DEO2 #0001 -- .Screen/x DEO2
;middle-icn .Screen/addr DEO2 ;middle-icn .Screen/addr DEO2
#0a .Screen/sprite DEO #0a .Screen/sprite DEO
@ -192,7 +192,7 @@ RTN
&slash POP ;font/slash ,&end JMP &slash POP ;font/slash ,&end JMP
&colon POP ;font/colon ,&end JMP &colon POP ;font/colon ,&end JMP
@draw-line ( x1 y1 x2 y2 color -- ) @draw-line ( x1* y1* x2* y2* color -- )
( load ) .line/color STZ .line/y0 STZ2 .line/x0 STZ2 .line/y STZ2 .line/x STZ2 ( load ) .line/color STZ .line/y0 STZ2 .line/x0 STZ2 .line/y STZ2 .line/x STZ2
.line/x0 LDZ2 .line/x LDZ2 -- ABS2 .line/dx STZ2 .line/x0 LDZ2 .line/x LDZ2 -- ABS2 .line/dx STZ2
@ -234,7 +234,7 @@ RTN
RTN RTN
@circle ( cx cy radius* -- ) @circle ( cx cy radius* -- y* x* )
STH2 SWP STH2 SWP
TOS 10** STH2kr // .center/x LDZ2 ++ #0080 10** STH2kr // -- TOS 10** STH2kr // .center/x LDZ2 ++ #0080 10** STH2kr // --
@ -244,7 +244,7 @@ RTN
RTN RTN
@decimal ( value* label -- ) @decimal ( value* zp-label -- )
STH STH
DUP #0a DIV #30 + STHkr STZ DUP #0a DIV #30 + STHkr STZ
@ -255,6 +255,7 @@ RTN
@week-txt @week-txt
"Sun $1 "Mon $1 "Tue $1 "Wed $1 "Thu $1 "Fri $1 "Sun $1 "Mon $1 "Tue $1 "Wed $1 "Thu $1 "Fri $1
"Sat $1 "Sat $1
@month-txt @month-txt
"Jan $1 "Feb $1 "Mar $1 "Apr $1 "May $1 "Jun $1 "Jan $1 "Feb $1 "Mar $1 "Apr $1 "May $1 "Jun $1
"Jul $1 "Aug $1 "Sep $1 "Oct $1 "Nov $1 "Dec $1 "Jul $1 "Aug $1 "Sep $1 "Oct $1 "Nov $1 "Dec $1