X-Git-Url: https://git.gir.st/Chiptunes.git/blobdiff_plain/dbf91c388bf0cf3d2e17bfb5a740eb4323e20a49..5b1c6cc5356711880dc73cf95813806c2c2ad04d:/foo.c

diff --git a/foo.c b/foo.c
index c5b7081..ba748ef 100644
--- a/foo.c
+++ b/foo.c
@@ -19,13 +19,18 @@ u8 _;
 #define Ml t // -"-
 void mod3(void) { //avail: t, o _
 //http://homepage.divms.uiowa.edu/~jones/bcd/mod.shtml
-    unsigned short a = ((Mh) + (Ml)) &0x1ff;
-        Mh = a>>8; //1 bit
-        Ml = a;
+    #define tmp _
+    //unsigned short a = ((Mh) + (Ml)) ;//&0x1ff;
+    //    Mh = a>>8; //1 bit
+    //    Ml = a;
+	ADD	(Ml, Mh)
+	CLR	(Mh)
+	ADC	(Mh, zero, carry)
     Ml = (Mh<<4|Ml>>4) + (Ml & 0xF);
     Ml = (Ml >>  2) + (Ml & 0x3);
     Ml = (Ml >>  2) + (Ml & 0x3);
     if (Ml > 2) Ml = Ml - 3;
+    #undef tmp
 }
 void g(void) {
 	// g(i, x, t, o) -> t