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.
15 lines
310 B
15 lines
310 B
5 years ago
|
(
|
||
|
|
(proc itoa buf num
|
||
|
|
(ld r1 num)
|
||
|
|
(tst r1 (<0? (mul r1 -1)))
|
||
|
|
(:next)
|
||
|
|
(mod r0 r1 10)
|
||
|
|
(add r0 '0')
|
||
|
|
(bfrpush @buf r0)
|
||
|
|
(div r1 10 (z?
|
||
|
|
(tst num (<0? (bfrpush @buf '-')))
|
||
|
|
(ret)))
|
||
|
|
(j :next)
|
||
|
|
)
|
||
|
|
)
|