M examples/clock.xyw → examples/clock.xyw

@@ -1,16 +1,47 @@ 
 .include "lib/macros.xyw"
 
-clock.hour LDB
-ZEROPADx JSRw
-$3A PUTC
-clock.minute LDB
-ZEROPADx JSRw
-$3A PUTC
-clock.second LDB
-ZEROPADx JSRw
-NL
+.macro CR $0D PUTC
+
+; Main program
+print-clock JSRw
+set-timer JSRw
 end JMPw
 
+.include "lib/putd.xyw"
+
+; Print current time every second
+; --
+.label on-timer
+  CR
+  ; print current time
+  print-clock JSRw
+  ; reset timer
+  set-timer JSRw
+  RTS
+
+; Set on_timer handler and start timer for 1 second
+; --
+.label set-timer
+   ; reset on_timer handler
+  on-timer clock.on_timer STW
+  ; reset timer for 1 second
+  $0100 clock.timer STW
+  RTS
+
+; Print current time in HH:MM:SS format
+; --
+.label print-clock
+  clock.hour LDB
+  ZEROPADx JSRw
+  $3A PUTC
+  clock.minute LDB
+  ZEROPADx JSRw
+  $3A PUTC
+  clock.second LDB
+  ZEROPADx JSRw
+  RTS
+
+; Print an 8bit integer as decimal, with leading zero if less than 10
 ; a8 -- | [x]
 .label ZEROPADx
   POPx PSHx $0A LTH put-zero JCNw
@@ -21,5 +52,4 @@ .label put-zero
     $30 PUTC
     put-digit JMPw
 
-.include "lib/putd.xyw"
 .label end

M examples/lib/macros.xyw → examples/lib/macros.xyw

@@ -23,7 +23,7 @@ .macro clock.weekday          $24
 .macro clock.hour             $25
 .macro clock.minute           $26
 .macro clock.second           $27
-.macro clock.timer            $29
+.macro clock.timer            $28
 .macro clock.on_timer         $2A
 
 ;file