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

Subversion Repositories eco32

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

Details | Compare with Previous | View Log


* Cryptanalysis Problem (CLASSIFIED) (pipelined)
a GREG
b GREG
bb GREG
c GREG
t GREG
x GREG
y GREG
       LOC Data_Segment
freq   GREG @           Base address for byte counts
       LOC @+8*(1<<8)   Space for the byte frequencies
p      GREG @
       BYTE "abracadabraa",0,"abc" Trivial test data
ones   GREG #0101010101010101
       LOC  #100
Start  LDOU a,p,0
       INCL p,8
       BDIF t,ones,a
       BNZ  t,3F        Do main loop, unless near the end.
2H     SRU  b,a,53
       LDO  c,freq,b   Load old count.
       SLU  bb,a,8
       INCL c,1
       SRU  bb,bb,53
       STO  c,freq,b   Store new count.
       LDO  c,freq,bb
       SLU  b,a,16
       INCL c,1
       SRU  b,b,53
       STO  c,freq,bb
       LDO  c,freq,b   Load old count.
       SLU  bb,a,24
       INCL c,1
       SRU  bb,bb,53
       STO  c,freq,b   Store new count.
       LDO  c,freq,bb
       SLU  b,a,32
       INCL c,1
       SRU  b,b,53
       STO  c,freq,bb
       LDO  c,freq,b   Load old count.
       SLU  bb,a,40
       INCL c,1
       SRU  bb,bb,53
       STO  c,freq,b   Store new count.
       LDO  c,freq,bb
       SLU  b,a,48
       INCL c,1
       SRU  b,b,53
       STO  c,freq,bb
       LDO  c,freq,b   Load old count.
       SLU  bb,a,56
       INCL c,1
       SRU  bb,bb,53
       STO  c,freq,b   Store new count.
       LDO  c,freq,bb
       LDOU a,p,0
       INCL p,8
       INCL c,1
       BDIF t,ones,a
       STO  c,freq,bb
       PBZ  t,2B        Do main loop, unless near the end.
3H     SRU  b,a,53
       LDO  c,freq,b   Load old count.
       INCL c,1
       STO  c,freq,b   Store new count.
       SRU  b,b,3
       SLU  a,a,8
       PBNZ b,3B        Continue unless done.
       POP
 
Main   IS   Start
 

Line No.	Rev	Author	Line
1	15	hellwig	`* Cryptanalysis Problem (CLASSIFIED) (pipelined)`
2			`a GREG`
3			`b GREG`
4			`bb GREG`
5			`c GREG`
6			`t GREG`
7			`x GREG`
8			`y GREG`
9			`LOC Data_Segment`
10			`freq GREG @ Base address for byte counts`
11			`LOC @+8*(1<<8) Space for the byte frequencies`
12			`p GREG @`
13			`BYTE "abracadabraa",0,"abc" Trivial test data`
14			`ones GREG #0101010101010101`
15			`LOC #100`
16			`Start LDOU a,p,0`
17			`INCL p,8`
18			`BDIF t,ones,a`
19			`BNZ t,3F Do main loop, unless near the end.`
20			`2H SRU b,a,53`
21			`LDO c,freq,b Load old count.`
22			`SLU bb,a,8`
23			`INCL c,1`
24			`SRU bb,bb,53`
25			`STO c,freq,b Store new count.`
26			`LDO c,freq,bb`
27			`SLU b,a,16`
28			`INCL c,1`
29			`SRU b,b,53`
30			`STO c,freq,bb`
31			`LDO c,freq,b Load old count.`
32			`SLU bb,a,24`
33			`INCL c,1`
34			`SRU bb,bb,53`
35			`STO c,freq,b Store new count.`
36			`LDO c,freq,bb`
37			`SLU b,a,32`
38			`INCL c,1`
39			`SRU b,b,53`
40			`STO c,freq,bb`
41			`LDO c,freq,b Load old count.`
42			`SLU bb,a,40`
43			`INCL c,1`
44			`SRU bb,bb,53`
45			`STO c,freq,b Store new count.`
46			`LDO c,freq,bb`
47			`SLU b,a,48`
48			`INCL c,1`
49			`SRU b,b,53`
50			`STO c,freq,bb`
51			`LDO c,freq,b Load old count.`
52			`SLU bb,a,56`
53			`INCL c,1`
54			`SRU bb,bb,53`
55			`STO c,freq,b Store new count.`
56			`LDO c,freq,bb`
57			`LDOU a,p,0`
58			`INCL p,8`
59			`INCL c,1`
60			`BDIF t,ones,a`
61			`STO c,freq,bb`
62			`PBZ t,2B Do main loop, unless near the end.`
63			`3H SRU b,a,53`
64			`LDO c,freq,b Load old count.`
65			`INCL c,1`
66			`STO c,freq,b Store new count.`
67			`SRU b,b,3`
68			`SLU a,a,8`
69			`PBNZ b,3B Continue unless done.`
70			`POP`
71
72			`Main IS Start`
73

Browse

Tools

Subversion Repositories eco32

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