examples/clock.xyw
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
.include "lib/macros.xyw"
clock.hour LDB
ZEROPADx JSRw
$3A PUTC
clock.minute LDB
ZEROPADx JSRw
$3A PUTC
clock.second LDB
ZEROPADx JSRw
NL
end JMPw
; a8 -- | [x]
.label ZEROPADx
POPx PSHx $0A LTH put-zero JCNw
.label put-digit
PSHx putd JSRw
RTS
.label put-zero
$30 PUTC
put-digit JMPw
.include "lib/putd.xyw"
.label end
|