... | ... |
@@ -83,7 +83,7 @@ |
83 | 83 |
.Screen/height DEI2 2// |
84 | 84 |
DUP2 .center/y STZ2 |
85 | 85 |
DUP2 #0078 -- .date/y STZ2 |
86 |
- #0070 ++ .time/y STZ2 |
|
86 |
+ #006c ++ .time/y STZ2 |
|
87 | 87 |
|
88 | 88 |
( circle ) |
89 | 89 |
#3c00 |
... | ... |
@@ -150,13 +150,17 @@ BRK |
150 | 150 |
|
151 | 151 |
STH |
152 | 152 |
.center/x LDZ2 .center/y LDZ2 |
153 |
- OVR2 OVR2 |
|
154 |
- OVR2 OVR2 |
|
155 | 153 |
OVR2 OVR2 |
156 | 154 |
.needles/zx LDZ2 .needles/zy LDZ2 #02 STHkr * ;draw-line JSR2 |
155 |
+ OVR2 OVR2 |
|
157 | 156 |
.needles/sx LDZ2 .needles/sy LDZ2 #02 STHkr * ;draw-line JSR2 |
157 |
+ OVR2 OVR2 |
|
158 | 158 |
.needles/mx LDZ2 .needles/my LDZ2 #01 STHkr * ;draw-line JSR2 |
159 |
+ OVR2 OVR2 |
|
159 | 160 |
.needles/hx LDZ2 .needles/hy LDZ2 #01 STHr * ;draw-line JSR2 |
161 |
+ #0001 -- .Screen/y DEO2 #0001 -- .Screen/x DEO2 |
|
162 |
+ ;middle-icn .Screen/addr DEO2 |
|
163 |
+ #0a .Screen/sprite DEO |
|
160 | 164 |
|
161 | 165 |
RTN |
162 | 166 |
|
... | ... |
@@ -224,7 +228,8 @@ RTN |
224 | 228 |
#0020 ,circle JSR .needles/sx STZ2 .needles/sy STZ2 |
225 | 229 |
[ #00 .DateTime/minute DEI ] 2** ;table ++ LDA2 |
226 | 230 |
#0022 ,circle JSR .needles/mx STZ2 .needles/my STZ2 |
227 |
- [ #00 .DateTime/hour DEI 12HOURS #20 SFTk NIP ADD ] 2** ;table ++ LDA2 |
|
231 |
+ [ #00 .DateTime/hour DEI 12HOURS #20 SFTk NIP ADD ] |
|
232 |
+ ( minute offset ) [ #00 .DateTime/minute DEI #0f / ++ ] 2** ;table ++ LDA2 |
|
228 | 233 |
#002a ,circle JSR .needles/hx STZ2 .needles/hy STZ2 |
229 | 234 |
|
230 | 235 |
RTN |
... | ... |
@@ -264,6 +269,9 @@ RTN |
264 | 269 |
0658 0b4b 113f 1834 202a 2a20 3418 3f11 |
265 | 270 |
4b0b 5806 6502 7200 |
266 | 271 |
|
272 |
+@middle-icn |
|
273 |
+ 40e0 4000 0000 0000 |
|
274 |
+ |
|
267 | 275 |
@font |
268 | 276 |
&num |
269 | 277 |
0018 2442 4242 4242 4242 4242 4224 1800 |
... | ... |
@@ -336,3 +344,4 @@ RTN |
336 | 344 |
0202 0404 0808 1010 2020 4040 8080 0000 |
337 | 345 |
&blank |
338 | 346 |
0000 0000 0000 0000 0000 0000 0000 0000 |
347 |
+ |