d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(clock.tal) Added minute offset to hour needle

This commit is contained in:
Devine Lu Linvega 2021-11-20 12:50:41 -05:00
parent 6c8600d6b3
commit 5f010b485c
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
projects/examples/devices/datetime.tal
View File

@ -83,7 +83,7 @@
.Screen/height DEI2 2// .Screen/height DEI2 2//
DUP2 .center/y STZ2 DUP2 .center/y STZ2
DUP2 #0078 -- .date/y STZ2 DUP2 #0078 -- .date/y STZ2
#0070 ++ .time/y STZ2 #006c ++ .time/y STZ2
( circle ) ( circle )
#3c00 #3c00
@ -150,13 +150,17 @@ BRK
STH STH
.center/x LDZ2 .center/y LDZ2 .center/x LDZ2 .center/y LDZ2
OVR2 OVR2
OVR2 OVR2
OVR2 OVR2 OVR2 OVR2
.needles/zx LDZ2 .needles/zy LDZ2 #02 STHkr * ;draw-line JSR2 .needles/zx LDZ2 .needles/zy LDZ2 #02 STHkr * ;draw-line JSR2
OVR2 OVR2
.needles/sx LDZ2 .needles/sy LDZ2 #02 STHkr * ;draw-line JSR2 .needles/sx LDZ2 .needles/sy LDZ2 #02 STHkr * ;draw-line JSR2
OVR2 OVR2
.needles/mx LDZ2 .needles/my LDZ2 #01 STHkr * ;draw-line JSR2 .needles/mx LDZ2 .needles/my LDZ2 #01 STHkr * ;draw-line JSR2
OVR2 OVR2
.needles/hx LDZ2 .needles/hy LDZ2 #01 STHr * ;draw-line JSR2 .needles/hx LDZ2 .needles/hy LDZ2 #01 STHr * ;draw-line JSR2
#0001 -- .Screen/y DEO2 #0001 -- .Screen/x DEO2
;middle-icn .Screen/addr DEO2
#0a .Screen/sprite DEO
RTN RTN
@ -224,7 +228,8 @@ RTN
#0020 ,circle JSR .needles/sx STZ2 .needles/sy STZ2 #0020 ,circle JSR .needles/sx STZ2 .needles/sy STZ2
[ #00 .DateTime/minute DEI ] 2** ;table ++ LDA2 [ #00 .DateTime/minute DEI ] 2** ;table ++ LDA2
#0022 ,circle JSR .needles/mx STZ2 .needles/my STZ2 #0022 ,circle JSR .needles/mx STZ2 .needles/my STZ2
[ #00 .DateTime/hour DEI 12HOURS #20 SFTk NIP ADD ] 2** ;table ++ LDA2 [ #00 .DateTime/hour DEI 12HOURS #20 SFTk NIP ADD ]
( minute offset ) [ #00 .DateTime/minute DEI #0f / ++ ] 2** ;table ++ LDA2
#002a ,circle JSR .needles/hx STZ2 .needles/hy STZ2 #002a ,circle JSR .needles/hx STZ2 .needles/hy STZ2
RTN RTN
@ -264,6 +269,9 @@ RTN
0658 0b4b 113f 1834 202a 2a20 3418 3f11 0658 0b4b 113f 1834 202a 2a20 3418 3f11
4b0b 5806 6502 7200 4b0b 5806 6502 7200
@middle-icn
40e0 4000 0000 0000
@font @font
&num &num
0018 2442 4242 4242 4242 4242 4224 1800 0018 2442 4242 4242 4242 4242 4224 1800
@ -336,3 +344,4 @@ RTN
0202 0404 0808 1010 2020 4040 8080 0000 0202 0404 0808 1010 2020 4040 8080 0000
&blank &blank
0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000