preprocessor_test.psm

;This is a program to test the
;new features of the preprocessor,
;the `<code>display</code>` directive,
;`<code>if</code>`-`<code>else</code>` branching and
;`<code>while</code>` loops, by
;printing the Fibonacci numbers
;smaller than 1000 on the terminal
;during the assembly time.
;This program compiles to no machine
;code at all, and it does nothing except
;causing an error message right after
;assembly (that the assembler written in
;JavaScript sent no machine code to the
;main program written in Java) in
;<a href="https://github.com/FlatAssembler/PicoBlaze_Simulator_for_Android">PicoBlaze Simulator for Android</a>.
;I have started a
;<a href="https://board.flatassembler.net/topic.php?p=232650#232650">forum thread about this program</a>.

;<b style="color: #770000">WARNING</b>: Please do not press
;         "<i>Highlight Assembly</i>"
;         before you assemble this program,
;         as there is a bug in the syntax
;         highlighter inserting a
;         semi-colon after the less-than
;         and greater-than characters,
;         causing syntax errors in programs
;         such as this one. I have opened
;         a <a href="https://github.com/FlatAssembler/PicoBlaze_Simulator_in_JS/issues/7">GitHub issue about that</a>.

base_decimal ;The PicoBlaze assembler by default considers numerical literals to be hexadecimal.

display "We are about to display Fibonacci numbers smaller than 1000 in the UART terminal... "
display a'x ;0xa=='\n', a new-line character.
constant first, 0
constant second, 1
while first &lt; 1000
	if first &lt; 10
		display "0" + first
		display " " ;In case inserting a new-line character doesn't work...
		            ;I have opened <a href="https://github.com/FlatAssembler/PicoBlaze_Simulator_in_JS/issues/8">a GitHub issue about that problem</a>.
		display a'x
	else
		constant remainder, first
		constant counter, 0
		while remainder &gt; 10 - 1
			constant remainder, remainder - 10
			constant counter, counter + 1
		endwhile
		if counter &gt; 10 - 1 ;If <code>first</code> is bigger than 99.
			constant hundreds, 0
			while counter &gt; 10 - 1
				constant counter, counter - 10
				constant hundreds, hundreds + 1
			endwhile
			display hundreds + "0"
		endif
		display counter + "0"
		display remainder + "0"
		display " "
		display a'x
	endif
	constant second, first + second
	constant first, second - first
endwhile