43 lines
718 B
Tal
43 lines
718 B
Tal
( 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
|
|
( integer )
|
|
DUPk ,print-dec JSR #2018 DEO
|
|
( fizzbuzz )
|
|
DUP #03 ,mod JSR ,&no3 JCN ;s/fizz ,print-str JSR &no3
|
|
DUP #05 ,mod JSR ,&no5 JCN ;s/buzz ,print-str JSR &no5
|
|
#0a18 DEO
|
|
INC GTHk ,&loop JCN
|
|
POP2
|
|
( halt )
|
|
#010f DEO
|
|
|
|
BRK
|
|
|
|
@mod ( a b -- c )
|
|
DIVk MUL SUB
|
|
JMP2r
|
|
|
|
@print-dec ( num -- )
|
|
#0a DIV ,&emit JSR
|
|
#0a ,mod JSR
|
|
&emit
|
|
#30 ADD #18 DEO
|
|
JMP2r
|
|
|
|
@print-str ( addr* -- )
|
|
&while
|
|
LDAk #18 DEO
|
|
INC2 LDAk ,&while JCN
|
|
POP2
|
|
JMP2r
|
|
|
|
@s &fizz "Fizz $1 &buzz "Buzz $1
|