URL https://opencores.org/ocsvn/eco32/eco32/trunk

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [primesf.mms] - Blame information for rev 15

Details | Compare with Previous | View Log


% Example program ... Table of primes (floating point version)
L      IS   500          The number of primes to find
t      IS   $255         Temporary storage
n      GREG
q      GREG
r      GREG
jj     GREG
kk     GREG
pk     GREG
mm     IS   kk
 
       LOC  Data_Segment
PRIME1 WYDE 2
       LOC  PRIME1+2*L
ptop   GREG @
j0     GREG PRIME1+2-@
BUF    OCTA
 
       LOC  #100
Main   SET  n,3
       SET  jj,j0
2H     STWU n,ptop,jj
       INCL jj,2
3H     BZ   jj,2F
4H     INCL n,2
5H     SET  kk,j0
fn    GREG 0
sqrtn GREG 0
      FLOT fn,n
      FSQRT sqrtn,fn
6H     LDWU pk,ptop,kk
      FLOT t,pk
      FREM r,fn,t
       BZ   r,4B
7H    FCMP t,t,sqrtn
       BNN  t,2B
8H     INCL kk,2
       JMP  6B
       GREG @
Title  BYTE "First Five Hundred Primes"
NewLn  BYTE #a,0
Blanks BYTE "   ",0
2H     LDA  t,Title
       TRAP 0,Fputs,StdOut
       NEG  mm,2
3H     ADD  mm,mm,j0
       LDA  t,Blanks
       TRAP 0,Fputs,StdOut
2H     LDWU pk,ptop,mm
0H     GREG #2030303030000000
       STOU 0B,BUF
       LDA  t,BUF+4
1H     DIV  pk,pk,10
       GET  r,rR
       INCL r,'0'
       STBU r,t,0
       SUB  t,t,1
       PBNZ pk,1B
       LDA  t,BUF
       TRAP 0,Fputs,StdOut
       INCL mm,2*L/10
       PBN  mm,2B
       LDA  t,NewLn
       TRAP 0,Fputs,StdOut
       CMP  t,mm,2*(L/10-1)
       PBNZ t,3B
       TRAP 0,Halt,0

Line No.	Rev	Author	Line
1	15	hellwig	`% Example program ... Table of primes (floating point version)`
2			`L IS 500 The number of primes to find`
3			`t IS $255 Temporary storage`
4			`n GREG`
5			`q GREG`
6			`r GREG`
7			`jj GREG`
8			`kk GREG`
9			`pk GREG`
10			`mm IS kk`
11
12			`LOC Data_Segment`
13			`PRIME1 WYDE 2`
14			`LOC PRIME1+2*L`
15			`ptop GREG @`
16			`j0 GREG PRIME1+2-@`
17			`BUF OCTA`
18
19			`LOC #100`
20			`Main SET n,3`
21			`SET jj,j0`
22			`2H STWU n,ptop,jj`
23			`INCL jj,2`
24			`3H BZ jj,2F`
25			`4H INCL n,2`
26			`5H SET kk,j0`
27			`fn GREG 0`
28			`sqrtn GREG 0`
29			`FLOT fn,n`
30			`FSQRT sqrtn,fn`
31			`6H LDWU pk,ptop,kk`
32			`FLOT t,pk`
33			`FREM r,fn,t`
34			`BZ r,4B`
35			`7H FCMP t,t,sqrtn`
36			`BNN t,2B`
37			`8H INCL kk,2`
38			`JMP 6B`
39			`GREG @`
40			`Title BYTE "First Five Hundred Primes"`
41			`NewLn BYTE #a,0`
42			`Blanks BYTE " ",0`
43			`2H LDA t,Title`
44			`TRAP 0,Fputs,StdOut`
45			`NEG mm,2`
46			`3H ADD mm,mm,j0`
47			`LDA t,Blanks`
48			`TRAP 0,Fputs,StdOut`
49			`2H LDWU pk,ptop,mm`
50			`0H GREG #2030303030000000`
51			`STOU 0B,BUF`
52			`LDA t,BUF+4`
53			`1H DIV pk,pk,10`
54			`GET r,rR`
55			`INCL r,'0'`
56			`STBU r,t,0`
57			`SUB t,t,1`
58			`PBNZ pk,1B`
59			`LDA t,BUF`
60			`TRAP 0,Fputs,StdOut`
61			`INCL mm,2*L/10`
62			`PBN mm,2B`
63			`LDA t,NewLn`
64			`TRAP 0,Fputs,StdOut`
65			`CMP t,mm,2*(L/10-1)`
66			`PBNZ t,3B`
67			`TRAP 0,Halt,0`

Browse

Tools

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [primesf.mms] - Blame information for rev 15