sam/libqbe
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

extract tests out of src

Browse source
This commit is contained in:
Quentin Carbonneaux 2016-03-27 15:00:45 -04:00
parent aad52241c8
commit 36635660b4
35 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

123
test/mandel.ssa Normal file
View file

@ -0,0 +1,123 @@
# Print the Mandelbrot set on the
# terminal line output.
function w $mandel(d %x, d %y) {
@mandel
%cr =d sub %y, d_0.5
%ci =d copy %x
@loop
%i =w phi @mandel 0, @loop1 %i1
%zr =d phi @mandel d_0, @loop1 %zr1
%zi =d phi @mandel d_0, @loop1 %zi1
%i1 =w add 1, %i
%tmp =d mul %zr, %zi
%zr2 =d mul %zr, %zr
%zi2 =d mul %zi, %zi
%zrx =d sub %zr2, %zi2
%zr1 =d add %zrx, %cr
%zix =d add %tmp, %tmp
%zi1 =d add %zix, %ci
%sum =d add %zi2, %zr2
%cmp1 =w cgtd %sum, d_16
jnz %cmp1, @reti, @loop1
@loop1
%cmp2 =w csgtw %i1, 1000
jnz %cmp2, @ret0, @loop
@reti
ret %i1
@ret0
ret 0
}
function w $main() {
@main
@loopy
%y =d phi @main d_-1, @loopy1 %y1
@loopx
%x =d phi @loopy d_-1, @loopx1 %x1
%i =w call $mandel(d %x, d %y)
jnz %i, @out, @in
@in
%r0 =w call $putchar(w 42) # '*'
jmp @loopx1
@out
%r1 =w call $putchar(w 32) # ' '
jmp @loopx1
@loopx1
%x1 =d add %x, d_0.032
%cmp1 =w cgtd %x1, d_1
jnz %cmp1, @loopy1, @loopx
@loopy1
%r2 =w call $putchar(w 10) # '\n'
%y1 =d add %y, d_0.032
%cmp2 =w cgtd %y1, d_1
jnz %cmp2, @ret, @loopy
@ret
ret 0
}
# >>> output
# #
# #
# #
# #
# * #
# **** #
# **** #
# *** #
# ***** #
# ********* #
# ************ #
# ***************** #
# **************** #
# *************** #
# **************** #
# **************** #
# ***************** #
# **************** #
# **************** #
# ************** #
# ************* #
# ************ #
# ********* #
# ***** #
# *********** #
# ***************** #
# ********************** #
# * *********************** ** #
# *************************** #
# ***************************** #
# * ******************************* ** #
# ** *********************************** #
# *********************************** * #
# *********************************** #
# ************************************* #
# ************************************* #
# *************************************** #
# *************************************** #
# *************************************** #
# **************************************** #
# * **************************************** #
# ********************************************** **** #
# **************************************************** #
# * ***************************************************** #
# * ***************************************************** #
# ***** **************************************** **** #
# * **************************************** * #
# **************************************** #
# *************************************** #
# **************************************** #
# *************************************** #
# **************************************** #
# ************************************ #
# *********************************** #
# ********************************* #
# ************************************ #
# *** ************* ************** *** #
# *********** ************ ** #
# ******** ******** #
# ** * * #
# #
# #
# #
# <<<