builtup4/src/binary/add.bu4

36 lines
1010 B
Plaintext

{ (b) </[b]/[0][b!]> | b_double }
{ (b) </ <(zq)(lb)(hb!) [hb!]> [b]> | b_halve }
{
/(b_add)
(bA)(bB)
/(zqA)(lbA)(hb!A)
/
/(zqB)(lbB)(hb!B)
/
/
/
/
[hb!A]
/
[hb!B]
[b_add]
/
/[b0]/[b1] </[lbB]/[lbA][and]>
[b_add]
/
/[lbB]/[lbA][xor]
[b!]
/
[bA]
[zqB]
[bB]
/
[bB]
[zqA]
[bA]
[YC]
|
b_add
}