X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=calu.git;a=blobdiff_plain;f=progs%2Fsum.s;fp=progs%2Fsum.s;h=c0daa3c6d8bbadb4d0da0fc617f392bb0247e258;hp=6c96a2647f935826804696ea8617416b79c376a8;hb=1c926aa503f06fc7844b6482c89b55961a58d16b;hpb=701e1eb018a01b1cc7f13f7005ce97c3307762d5

diff --git a/progs/sum.s b/progs/sum.s
index 6c96a26..c0daa3c 100644
--- a/progs/sum.s
+++ b/progs/sum.s
@@ -84,7 +84,9 @@ sum:
 	andx r1, 0x3
 
 	cmpi r1, 0
-	breq+ go_loop
+	addideq r3, r3, 4
+	; subideq r2, r2, 0
+	breq+ loop
 
 	cmpi r1, 1
 	addideq r3, r3, 3
@@ -96,13 +98,11 @@ sum:
 	subideq r2, r2, 8
 	breq- loop2
 
-	cmpi r1, 3
-	addideq r3, r3, 1
-	subideq r2, r2, 4
-	breq- loop3
+	; cmpi r1, 3
+	addi r3, r3, 1
+	subi r2, r2, 4
+	br+ loop3
 
-go_loop:
-	addi r3, r3, 4
 loop:
 	subi r3, r3, 4
 	retzs-