Implemented if statements and made putuint work with 0
This commit is contained in:
parent
52f97d2fe4
commit
441d737cf1
4 changed files with 38 additions and 8 deletions
|
|
@ -8,16 +8,19 @@ endproc
|
|||
|
||||
proc putuint
|
||||
@val
|
||||
if &val 0 == then
|
||||
48 :putchar return
|
||||
endif
|
||||
1 @divisor
|
||||
|
||||
|
||||
while &val &divisor u/ 9 u> do
|
||||
10 &divisor u* @divisor
|
||||
endwhile
|
||||
|
||||
|
||||
while &divisor 0 u> do
|
||||
&val &divisor u/ 10 u%
|
||||
48 u+ :putchar
|
||||
|
||||
|
||||
&divisor 10 u/ @divisor
|
||||
endwhile
|
||||
endproc
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue