Money calculations opty.

game.asm

@@ -123,24 +123,23 @@ CalculateGainsLoop
     ; if lose is greater than money then zero money
     lda moneyH,x
     cmp loseH,x
-    bcc zeromoney
+    bne @+
-    bne substractlose
     lda moneyL,x
     cmp loseL,x
-    bcc zeromoney
+@   bcs substractlose
+zeromoney
+    lda #0
+    sta moneyL,x
+    sta moneyH,x
+    beq skipzeroing
 substractlose
-    sec
+;    sec    ; C is allways set at this point
     lda moneyL,x
     sbc loseL,x
     sta moneyL,x
     lda moneyH,x
     sbc loseH,x
     sta moneyH,x
-    jmp skipzeroing
-zeromoney
-    lda #0
-    sta moneyL,x
-    sta moneyH,x
 skipzeroing
 ; and earned money for summary
     clc
@@ -154,24 +153,23 @@ skipzeroing
     ; if lose is greater than money then zero money
     lda EarnedMoneyH,x
     cmp loseH,x
-    bcc ezeromoney
+    bne @+
-    bne esubstractlose
     lda EarnedMoneyL,x
     cmp loseL,x
-    bcc ezeromoney
+@   bcs esubstractlose
+ezeromoney
+    lda #0
+    sta EarnedMoneyL,x
+    sta EarnedMoneyH,x
+    beq eskipzeroing
 esubstractlose
-    sec
+;    sec    ; C is allways set at this point
     lda EarnedMoneyL,x
     sbc loseL,x
     sta EarnedMoneyL,x
     lda EarnedMoneyH,x
     sbc loseH,x
     sta EarnedMoneyH,x
-    jmp eskipzeroing
-ezeromoney
-    lda #0
-    sta EarnedMoneyL,x
-    sta EarnedMoneyH,x
 eskipzeroing
 
     dex