use EOR2 instead of MUL2 to avoid problems with zero

2024-07-28 16:22:13 -04:00 · 2024-07-28 16:22:13 -04:00 · 96348c69b7
parent 6063a95967
commit 96348c69b7
1 changed files with 1 additions and 1 deletions
--- a/cards.tal
+++ b/cards.tal
@ -139,7 +139,7 @@
    #00 .DateTime/hr DEI #0e10 MUL2 ADD2
    #00 .DateTime/min DEI #003c MUL2 ADD2
    #00 .DateTime/sec DEI ADD2 ( s* )
-    DUP2 .DateTime/doy DEI2 MUL2 ( s* sdoy* )
+    DUP2 .DateTime/doy DEI2 EOR2 ( s* sdoy* )
    #0001 ROT2 OVR2             ( y* 1* x* 1* )
    ORA2 ;rng-x STA2            ( y* 1* )
    ORA2 ;rng-x STA2 JMP2r      ( )