11 lines
162 B
Text
11 lines
162 B
Text
Lbl BIN
|
|
.Axe supports 16-bit integers, so 16 digits are enough
|
|
L₁+16→P
|
|
0→{P}
|
|
While r₁
|
|
P--
|
|
{(r₁ and 1)▶Hex+3}→P
|
|
r₁/2→r₁
|
|
End
|
|
Disp P,i
|
|
Return
|