mirror of
https://github.com/sheumann/65816-crypto.git
synced 2025-02-19 17:30:33 +00:00
Reduce duplicated code in SHA-256 implementation.
This commit is contained in:
parent
91c107eb98
commit
61bc8f8b4f
15
sha256.asm
15
sha256.asm
@ -174,13 +174,10 @@ SHA256_PROCESSBLOCK start
|
|||||||
lda #k
|
lda #k
|
||||||
sta k_ptr
|
sta k_ptr
|
||||||
ComputeSchedule 1
|
ComputeSchedule 1
|
||||||
BlockLoopPart 1
|
jsr BlockLoopSub
|
||||||
jsr ComputeScheduleSub
|
jsr ScheduleAndBlockLoopSub
|
||||||
BlockLoopPart 2
|
jsr ScheduleAndBlockLoopSub
|
||||||
jsr ComputeScheduleSub
|
jsr ScheduleAndBlockLoopSub
|
||||||
BlockLoopPart 3
|
|
||||||
jsr ComputeScheduleSub
|
|
||||||
BlockLoopPart 4
|
|
||||||
|
|
||||||
endloop clc
|
endloop clc
|
||||||
lda h0
|
lda h0
|
||||||
@ -247,7 +244,9 @@ endloop clc
|
|||||||
sta h7+2
|
sta h7+2
|
||||||
rtl
|
rtl
|
||||||
|
|
||||||
ComputeScheduleSub anop
|
ScheduleAndBlockLoopSub anop
|
||||||
ComputeSchedule 2
|
ComputeSchedule 2
|
||||||
|
BlockLoopSub anop
|
||||||
|
BlockLoopPart 1
|
||||||
rts
|
rts
|
||||||
end
|
end
|
||||||
|
Loading…
x
Reference in New Issue
Block a user