URL
https://opencores.org/ocsvn/eco32/eco32/trunk
Subversion Repositories eco32
[/] [eco32/] [trunk/] [fp/] [implementation/] [mmix/] [crypto2.mms] - Rev 38
Go to most recent revision | Compare with Previous | Blame | View Log
* Cryptanalysis Problem (CLASSIFIED) (pipelined, superscalar)
a GREG
b GREG
bb GREG
bbb GREG
bbbb GREG
c GREG
cc GREG
t GREG
x GREG
y GREG
LOC Data_Segment
freq GREG @ Base address for even byte counts
LOC @+8*(1<<8) Space for the byte frequencies
freqq GREG @ Base address for odd 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
SLU bb,a,8
BNZ t,3F Do main loop, unless near the end.
2H SRU b,a,53
SRU bb,bb,53
LDO c,freq,b
LDO cc,freqq,bb
SLU bbb,a,16
SLU bbbb,a,24
INCL c,1
INCL cc,1
SRU bbb,bbb,53
SRU bbbb,bbbb,53
STO c,freq,b
STO cc,freqq,bb
LDO c,freq,bbb
LDO cc,freqq,bbbb
SLU b,a,32
SLU bb,a,40
INCL c,1
INCL cc,1
SRU b,b,53
SRU bb,bb,53
STO c,freq,bbb
STO cc,freqq,bbbb
LDO c,freq,b
LDO cc,freqq,bb
SLU bbb,a,48
SLU bbbb,a,56
INCL c,1
INCL cc,1
SRU bbb,bbb,53
SRU bbbb,bbbb,53
STO c,freq,b
STO cc,freqq,bb
LDO c,freq,bbb
LDO cc,freqq,bbbb
LDOU a,p,0
INCL p,8
INCL c,1
INCL cc,1
BDIF t,ones,a
SLU bb,a,8
STO c,freq,bbb
STO cc,freqq,bbbb
PBZ t,2B
3H SRU b,a,53
LDO c,freq,b
INCL c,1
STO c,freq,b
SRU b,b,3
SLU a,a,8
PBNZ b,3B
SET p,8*255
4H LDO c,freq,p
LDO cc,freqq,p
ADD c,c,cc
STO c,freq,p
SUB p,p,8
PBP p,4B
POP
Main IS Start
Go to most recent revision | Compare with Previous | Blame | View Log