Two's complement: Difference between revisions
→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 310:
Module Complement2{
// we use binary.and to get a number in range of byte 0 to 255
byte k
v=random(0, 255)
print z=156 // z is type of byte always positive▼
k=v
z=binary.and(binary.not(k)+1, 0xFF)
print sint(z+0xFFFFFF00)=-100 // using 4bytes, we add unsinged 0xFFFFFF00▼
print v
print z
}
Complement2
Complement2
</syntaxhighlight>
{{out}}
<pre>
2
254
True
True
208
48
True
True
| |||