Apple-2gs-SW/65816-crypto
1
0
Fork 0
mirror of https://github.com/sheumann/65816-crypto.git synced 2024-11-22 07:31:58 +00:00
Code Issues Projects Releases Wiki Activity

Don't update index value in each unrolled loop iteration.

Browse Source
This commit is contained in:
Stephen Heumann 2017-06-30 00:34:09 -05:00
parent 2d8c85bd98
commit d97e0c0153
2 changed files with 18 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sha1.asm
View File

@ -88,16 +88,12 @@ SHA1_PROCESSCHUNK start
sta e+2
ComputeSchedule 1
ldx #0
BlockLoopPart 1
ComputeSchedule 2
ldx #0
BlockLoopPart 2
ComputeSchedule 3
ldx #0
BlockLoopPart 3
ComputeSchedule 4
ldx #0
BlockLoopPart 4
endloop clc

32
sha1.macros
View File

@ -212,10 +212,7 @@ dorotl3
* One iteration of the loop for processing blocks.
* The a,b,c,d,e variables are given as parameters so we can aviod cycling them.
macro
BlockLoopIter &a,&b,&c,&d,&e,&part
stx idx
ROTL4MOVE temp,&a,5
BlockLoopIter &a,&b,&c,&d,&e,&iter
* f_0 to f_19
aif &part<>1,.skip1
@ -291,12 +288,13 @@ dorotl3
sta f_plus_k+2
.skip4
ROTL4MOVE temp,&a,5
ldx idx
clc
lda w,x
lda w+&iter*4,x
adc temp
tay
lda w+2,x
lda w+&iter*4+2,x
adc temp+2
tax
clc
@ -316,11 +314,6 @@ dorotl3
ROTL4 &b,30
ldx idx
inx
inx
inx
inx
mend
@ -328,15 +321,20 @@ dorotl3
macro
BlockLoopPart &part
lda #0
loop&part anop
sta idx
BlockLoopIter a_,b,c,d,e,&part
BlockLoopIter e,a_,b,c,d,&part
BlockLoopIter d,e,a_,b,c,&part
BlockLoopIter c,d,e,a_,b,&part
BlockLoopIter b,c,d,e,a_,&part
BlockLoopIter a_,b,c,d,e,0
BlockLoopIter e,a_,b,c,d,1
BlockLoopIter d,e,a_,b,c,2
BlockLoopIter c,d,e,a_,b,3
BlockLoopIter b,c,d,e,a_,4
cpx #20*4
clc
lda idx
adc #4*5
cmp #20*4
bge endloop&part
jmp loop&part
endloop&part anop