URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [tags/] [eco32-0.23/] [fp/] [implementation/] [mmix/] [permu-langdon.mms] - Rev 179
Go to most recent revision | Compare with Previous | Blame | View Log
* Permutation generator a la Langdon
N IS 6 $n$ (2, 3, ..., 15)
t IS $255
k IS $0
kk IS $1
c IS $2
d IS $3
a GREG 0
ones GREG #1111111111111111&(1<<(4*N)-1)
LOC #100
GREG @
ElGordo OCTA #fedcba9876543210&(1<<(4*N)-1)
Main LDOU a,ElGordo $a\gets\.{\#...3210}$.
JMP 2F
1H SRU a,a,4*(16-N)
OR a,a,t
2H ADDU c,a,ones Trace this location to see the perm!
SRU t,a,4*(N-1)
SLU a,a,4*(17-N)
PBNZ t,1B
SET k,1
3H SRU d,a,60
SLU a,a,4
CMP c,d,k
SLU kk,k,2
SLU d,d,kk
OR t,t,d
PBNZ c,1B
INCL k,1
PBNZ a,3B
TRAP 0,Halt,0
Go to most recent revision | Compare with Previous | Blame | View Log