TempleOSTS_131005.ISO

TempleOS/Demo/Carry.CPP

@@ -0,0 +1,28 @@
+//This shows the $LK,"Carry","MN:Carry"$ function.
+//It's tricky to use.
+
+U0 BigCnt()
+{
+  U64 lo=0,hi=0;
+  while (hi<0x10) {
+    lo+=1<<58;
+    hi+=Carry;
+    "%016X %016X\n",hi,lo;
+  }
+}
+
+BigCnt;
+PressAKey;
+
+U0 BigShift()
+{
+  U64 lo=1,hi=0;
+  while (lo||hi) {
+    hi<<=1;
+    lo<<=1;
+    hi+=Carry;
+    "%016X %016X\n",hi,lo;
+  }
+}
+
+BigShift;