uxn/projects/examples/exercises/fizzbuzz.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 ( -> ) @program

	#6400
	&loop
		( dec )
		DUPk #0a DIV ,print-num JSR
		#0a ,mod JSR ,print-num JSR
		( space )
		#2018 DEO
		( text )
		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-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