mirror of
https://github.com/Zeal-Operating-System/ZealOS.git
synced 2024-12-28 08:16:31 +00:00
45 lines
549 B
HolyC
Executable file
45 lines
549 B
HolyC
Executable file
//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 BigCount()
|
|
{
|
|
U64 lo=0,hi=0;
|
|
"BigCount\n";
|
|
while (hi<0x10) {
|
|
lo+=1<<58;
|
|
hi+=Carry;
|
|
"%016X %016X\n",hi,lo;
|
|
}
|
|
}
|
|
|
|
BigCount;
|
|
|
|
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;
|