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

Subversion Repositories eco32

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

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


* Permutation generator a la plain-changes (mockup only)
t IS $255
a GREG 0
p GREG 0
c GREG 0
fmask GREG #f
magic GREG #8844221188442211
ffmask GREG #ff000000
u IS $0
    LOC  #100
    GREG @
T   OCTA #194cb4594cb4594c,#b44,0
Main SET a,#1234
    SLU a,a,12 [needed to make the MXOR stuff work]
    LDA p,T
    JMP 3F
 
1H  SRU u,a,12  (trace this)
 
%    SLU u,fmask,t
%    SLU t,a,4
%    XOR t,t,a
%    AND t,t,u
%    SRU u,t,4
%    OR  t,t,u
%    XOR a,a,t
    SLU  u,a,t
    MXOR u,magic,u
    AND  u,u,ffmask
    SRU  u,u,t
    XOR  a,a,u
 
    SRU c,c,3
2H  AND t,c,#1c
    PBNZ t,1B
    ADD  p,p,8
3H  LDO  c,p,0
    PBNZ c,2B
    TRAP 0,Halt,0
 

Line No.	Rev	Author	Line
1	15	hellwig	`* Permutation generator a la plain-changes (mockup only)`
2			`t IS $255`
3			`a GREG 0`
4			`p GREG 0`
5			`c GREG 0`
6			`fmask GREG #f`
7			`magic GREG #8844221188442211`
8			`ffmask GREG #ff000000`
9			`u IS $0`
10			`LOC #100`
11			`GREG @`
12			`T OCTA #194cb4594cb4594c,#b44,0`
13			`Main SET a,#1234`
14			`SLU a,a,12 [needed to make the MXOR stuff work]`
15			`LDA p,T`
16			`JMP 3F`
17
18			`1H SRU u,a,12 (trace this)`
19
20			`% SLU u,fmask,t`
21			`% SLU t,a,4`
22			`% XOR t,t,a`
23			`% AND t,t,u`
24			`% SRU u,t,4`
25			`% OR t,t,u`
26			`% XOR a,a,t`
27			`SLU u,a,t`
28			`MXOR u,magic,u`
29			`AND u,u,ffmask`
30			`SRU u,u,t`
31			`XOR a,a,u`
32
33			`SRU c,c,3`
34			`2H AND t,c,#1c`
35			`PBNZ t,1B`
36			`ADD p,p,8`
37			`3H LDO c,p,0`
38			`PBNZ c,2B`
39			`TRAP 0,Halt,0`
40

Browse

Tools

Subversion Repositories eco32

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