From 928e658abbd64b1a58b6ed2c4fb53580afee6c8b Mon Sep 17 00:00:00 2001
From: Your Name <you@example.com>
Date: Thu, 18 Jul 2019 13:30:08 +0100
Subject: copy4

---
 sha1/msauth.asm | 30 ++++++++++++++++++++++++------
 1 file changed, 24 insertions(+), 6 deletions(-)

(limited to 'sha1')

diff --git a/sha1/msauth.asm b/sha1/msauth.asm
index fc5e291..51147e0 100644
--- a/sha1/msauth.asm
+++ b/sha1/msauth.asm
@@ -133,18 +133,22 @@ test_l2:
 		inc	lidx
 		jsr	sha1_block
 
+		lda	#(T1-DATA_START)
+		sta	dest
+
 		lda 	H+16
 		and	#$F
+
 		tax
-		add	#(H-DATA_START)
-		sta	src1
+
 		lda	H+3,x
 		and	#$7F
 		sta	H+3,x
-		lda	#(T1-DATA_START)
-		sta	dest
-		lda	#(ZERO-DATA_START)
-		jsr 	add4
+
+		txa
+
+		add	#(H-DATA_START)
+		jsr 	copy4
 		
 		
 
@@ -170,12 +174,18 @@ get_w32_015_to_t2:
 				add	#(KEY-DATA_START)
 				sta	src1
 get_w32_015_to_t2_z1:
+
+
 			lda	#(ZERO-DATA_START)
 			jsr	add4
 			lda	#(T2-DATA_START)
 			sta	src1
 			lda	#(KEYOR-DATA_START)
 			jsr 	xor4
+
+
+
+
 		rts
 get_w32_015_to_t2_l1:
 		lda	j
@@ -394,6 +404,14 @@ op4_list_l2:
 		bra	op4_list
 		
 
+copy4:
+		sta	src1
+		lda	#(ZERO-DATA_START)
+		sta 	src2
+		lda	#$d9	; adc $ffff,a
+		sta 	op4_src2
+		bra 	op4_binary
+
 add4:
 		sta	src2
 		lda	#$d9	; adc $ffff,a
-- 
cgit v1.2.3