add includes
This commit is contained in:
@@ -0,0 +1,14 @@
|
||||
(
|
||||
(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)
|
||||
)
|
||||
)
|
||||
@@ -0,0 +1,17 @@
|
||||
(
|
||||
(proc printnum num
|
||||
(mkbf r15)
|
||||
(ld r1 num)
|
||||
(tst r1 (<0? (mul r1 -1)))
|
||||
(:next)
|
||||
(mod r0 r1 10)
|
||||
(add r0 '0')
|
||||
(bfrpush @r15 r0)
|
||||
(div r1 10 (z?
|
||||
(tst num (<0? (bfrpush @r15 '-')))
|
||||
(lds @cout @r15)
|
||||
(del @r15)
|
||||
(ret)))
|
||||
(j :next)
|
||||
)
|
||||
)
|
||||
Reference in New Issue
Block a user