First commit of partial RosettaCode contents.
Pushing this for testing purposes. Lots of work still needed.
This commit is contained in:
commit
1e05ecd7ee
781 changed files with 9080 additions and 0 deletions
34
Task/FizzBuzz/PIR/fizzbuzz.pir
Normal file
34
Task/FizzBuzz/PIR/fizzbuzz.pir
Normal file
|
|
@ -0,0 +1,34 @@
|
|||
.sub main :main
|
||||
.local int f
|
||||
.local int mf
|
||||
.local int skipnum
|
||||
f = 1
|
||||
LOOP:
|
||||
if f > 100 goto DONE
|
||||
skipnum = 0
|
||||
mf = f % 3
|
||||
if mf == 0 goto FIZZ
|
||||
FIZZRET:
|
||||
mf = f % 5
|
||||
if mf == 0 goto BUZZ
|
||||
BUZZRET:
|
||||
if skipnum > 0 goto SKIPNUM
|
||||
print f
|
||||
SKIPNUM:
|
||||
print "\n"
|
||||
inc f
|
||||
goto LOOP
|
||||
end
|
||||
FIZZ:
|
||||
print "Fizz"
|
||||
inc skipnum
|
||||
goto FIZZRET
|
||||
end
|
||||
BUZZ:
|
||||
print "Buzz"
|
||||
inc skipnum
|
||||
goto BUZZRET
|
||||
end
|
||||
DONE:
|
||||
end
|
||||
.end
|
||||
Loading…
Add table
Add a link
Reference in a new issue