mirror of https://git.sr.ht/~rabbits/uxn
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.
27 lines
727 B
27 lines
727 B
( FizzBuzz: |
|
A program that prints the integers from 1 to 100. |
|
for multiples of three, print "Fizz" |
|
for multiples of five, print "Buzz" |
|
for multiples of both three and five, print "FizzBuzz" ) |
|
|
|
|0100 ( -> ) @reset |
|
|
|
#6400 |
|
&loop |
|
( dec ) DUPk ,print-dec JSR |
|
( space ) #2018 DEO |
|
DUP #03 ,mod JSR ,&no3 JCN ;s/fizz ,print-str JSR &no3 |
|
DUP #05 ,mod JSR ,&no5 JCN ;s/buzz ,print-str JSR &no5 |
|
( linebreak ) #0a18 DEO |
|
INC GTHk ,&loop JCN |
|
POP2 |
|
( halt ) #010f DEO |
|
|
|
BRK |
|
|
|
@mod ( a b -- c ) DIVk MUL SUB JMP2r |
|
@print-dec ( num -- ) #0a DIV ,print-num JSR #0a ,mod JSR |
|
@print-num ( num -- ) #30 ADD #18 DEO JMP2r |
|
@print-str ( addr* -- ) &loop LDAk #18 DEO INC2 LDAk ,&loop JCN POP2 JMP2r |
|
|
|
@s &fizz "Fizz $1 &buzz "Buzz $1
|
|
|