From 61bc8f8b4f3a288ca53c41f491fd97bf4826a059 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Mon, 3 Jul 2017 14:33:17 -0500
Subject: [PATCH] Reduce duplicated code in SHA-256 implementation.

---
 sha256.asm | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/sha256.asm b/sha256.asm
index 0feb596..9c97cdb 100644
--- a/sha256.asm
+++ b/sha256.asm
@@ -174,13 +174,10 @@ SHA256_PROCESSBLOCK start
 	lda	#k
 	sta	k_ptr
 	ComputeSchedule 1
-	BlockLoopPart 1
-	jsr	ComputeScheduleSub
-	BlockLoopPart 2
-	jsr	ComputeScheduleSub
-	BlockLoopPart 3
-	jsr	ComputeScheduleSub
-	BlockLoopPart 4
+	jsr	BlockLoopSub
+	jsr	ScheduleAndBlockLoopSub
+	jsr	ScheduleAndBlockLoopSub
+	jsr	ScheduleAndBlockLoopSub
 
 endloop clc
 	lda	h0
@@ -247,7 +244,9 @@ endloop clc
 	sta	h7+2	
 	rtl
 
-ComputeScheduleSub anop
+ScheduleAndBlockLoopSub anop
 	ComputeSchedule 2
+BlockLoopSub anop
+	BlockLoopPart 1
 	rts
 	end