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

Small optimizations for MD5.

Browse Source
This commit is contained in:
Stephen Heumann 2017-07-04 12:39:11 -05:00
parent 0f144df99b
commit 748e0b5c24
2 changed files with 18 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
md5.asm
View File

@ -27,7 +27,7 @@ b gequ 16
c gequ 20
d gequ 24
;unused gequ 28
f_plus_a gequ 32
;unused gequ 32
temp gequ 36
h0 gequ 40
h1 gequ 44

35
md5.macros
View File

@ -131,14 +131,14 @@
eor &d
clc
adc &a
sta f_plus_a
sta temp
lda &c+2
eor &d+2
and &b+2
eor &d+2
adc &a+2
sta f_plus_a+2
sta temp+2
.skip1
* f_16 to f_31
@ -149,14 +149,14 @@
eor &c
clc
adc &a
sta f_plus_a
sta temp
lda &b+2
eor &c+2
and &d+2
eor &c+2
adc &a+2
sta f_plus_a+2
sta temp+2
.skip2
* f_32 to f_47
@ -166,13 +166,13 @@
eor &d
clc
adc &a
sta f_plus_a
sta temp
lda &b+2
eor &c+2
eor &d+2
adc &a+2
sta f_plus_a+2
sta temp+2
.skip3
* f_48 to f_63
@ -183,27 +183,27 @@
eor &c
clc
adc &a
sta f_plus_a
sta temp
lda &d+2
eor #$FFFF
ora &b+2
eor &c+2
adc &a+2
sta f_plus_a+2
sta temp+2
.skip4
ldy idx
ldx g_times_4,y
lda m,x
clc
adc f_plus_a
adc temp
sta temp
inx
inx
lda m,x
adc f_plus_a+2
sta temp+2
adc temp+2
tax
lda k,y
clc
@ -211,10 +211,14 @@
sta temp
iny
iny
lda k,y
adc temp+2
txa
adc k,y
sta temp+2
iny
iny
sty idx
ROTL4 temp,&shift
clc
@ -225,11 +229,6 @@
adc temp+2
sta &a+2
inc idx
inc idx
inc idx
inc idx
mend