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

Subversion Repositories eco32

[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [permu-st.mms] - Blame information for rev 320

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 15 hellwig
* Permutation generator for n=6 using sigma-tau transforms only
2
t     IS   $255
3
magic GREG #8844221188442211
4
a     GREG 0
5
p     GREG 0
6
c     GREG 0
7
x     GREG #f000000
8
 
9
      LOC  #100
10
      GREG @
11
Magic OCTA #7df76fbb7df6ebe8,#f7dd5dafbedbedd0,#5f5df7ddadd5dbc0
12
*      (that was $\alpha\sigma\beta$)
13
      OCTA #5f7dd5dbeddf5f70,#6b7576fbefbbedf0,#6eafaeefbebedd70
14
*      (that was $\tau\gamma\sigma$)
15
      OCTA #6fbeeaedf6efafb0,#b5babb7df7ddf6f0,#b757d777df5f6eb0
16
*      (that was $\tau\sigma$\gamma)
17
      OCTA #77db7dbabebbefb0,#b5babb7df7ddbee8,#befb75f7df7576b0
18
*      (that was $\tau\beta\sigma\alpha\sigma$)
19
      OCTA 0
20
%Main  SETML a,#12
21
%      INCL  a,#3456
22
Main  SETML a,#02
23
      INCL  a,#3415
24
      LDA   p,Magic
25
      JMP   3F
26
0H    OR    $0,a,x    (trace this)
27
      PBN   c,Sigma
28
Tau   MXOR  t,magic,a
29
      ANDNL t,#ffff
30
      JMP   1F
31
Sigma SRU   t,a,20
32
      SLU   a,a,4
33
      ANDNML a,#f00
34
1H    XOR   a,a,t
35
      SLU   c,c,1
36
2H    PBNZ  c,0B
37
      INCL  p,8
38
3H    LDOU  c,p,0
39
      PBNZ  c,0B

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.