extract tests out of src
This commit is contained in:
parent
aad52241c8
commit
36635660b4
35 changed files with 10 additions and 3 deletions
32
test/prime.ssa
Normal file
32
test/prime.ssa
Normal file
|
@ -0,0 +1,32 @@
|
|||
# find the 10,001st prime
|
||||
# store it in a
|
||||
|
||||
function $test() {
|
||||
@start
|
||||
@loop
|
||||
%n =w phi @start 5, @tloop %n, @yes %n1
|
||||
%p =w phi @start 13, @tloop %p1, @yes %p1
|
||||
%p1 =w add %p, 2
|
||||
@tloop
|
||||
%t =w phi @loop 3, @next %t1
|
||||
%r =w rem %p, %t
|
||||
jnz %r, @next, @loop
|
||||
@next
|
||||
%t1 =w add 2, %t
|
||||
%tsq =w mul %t1, %t1
|
||||
%c0 =w csgtw %tsq, %p
|
||||
jnz %c0, @yes, @tloop
|
||||
@yes
|
||||
%n1 =w add 1, %n
|
||||
%c1 =w ceqw 10001, %n1
|
||||
jnz %c1, @end, @loop
|
||||
@end
|
||||
storew %p, $a
|
||||
ret
|
||||
}
|
||||
|
||||
# >>> driver
|
||||
# extern void test(void);
|
||||
# int a;
|
||||
# int main() { test(); return !(a == 104743); }
|
||||
# <<<
|
Loading…
Add table
Add a link
Reference in a new issue