A TempleOS distro for heretics
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

45 lines
582 B

//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;