Initial (manual) import

TempleOSCD/Demo/Carry.HC

@@ -0,0 +1,45 @@
+//Shows the $LK,"Carry",A="MN:Carry"$ function.  It holds the CPU carry flag.
+//$LK,"U",A="MN:U"$() Unassemble to make sure it is right.
+
+U0 BigCnt()
+{
+  U64 lo=0,hi=0;
+  "BigCnt\n";
+  while (hi<0x10) {
+    lo+=1<<58;
+    hi+=Carry;
+    "%016X %016X\n",hi,lo;
+  }
+}
+
+BigCnt;
+
+U0 BigShift()
+{
+  U64 lo=1,hi=0;
+  "Big Shift\n";
+  while (lo||hi) {
+    hi<<=1;
+    lo<<=1;
+    hi+=Carry;
+    "%016X %016X\n",hi,lo;
+  }
+}
+
+BigShift;
+
+U0 Branch()
+{
+  U64 i=0xFFCC3311,j;
+  'Branch\n';
+  for (j=0;j<64;j++) {
+    i<<=1;
+    if (Carry)
+      '1';
+    else
+      '0';
+  }
+  '\n';
+}
+
+Branch;