diff --git a/game.asm b/game.asm
index 56246c0..617d621 100644
--- a/game.asm
+++ b/game.asm
@@ -657,9 +657,8 @@ NotShooter
     clc
     adc EnergyDecrease
     sta loseL,x
-    lda loseH,x
-    adc #$00
-    sta loseH,x
+    scc
+    inc loseH,x
     ; Energy now, not less than 0
     lda Energy,x
     cmp EnergyDecrease
@@ -678,7 +677,7 @@ NotNegativeEnergy
     adc EnergyDecrease
     sta gainL,y
     lda gainH,y
-    adc #$00
+    adc #0
     sta gainH,y
     rts
 .endp
diff --git a/grafproc.asm b/grafproc.asm
index 02e4ef6..e6d99b3 100644
--- a/grafproc.asm
+++ b/grafproc.asm
@@ -1152,9 +1152,8 @@ NotRightEdge
     lda XtankstableL,x
     adc #1
     sta XtankstableL,x
-    lda XtankstableH,x
-    adc #0
-    sta XtankstableH,x
+    scc
+    inc XtankstableH,x
     mva #%10000000 PreviousFall    ; set bit 7 - right
     bne EndOfFCycle
 FallingLeft
@@ -1173,9 +1172,8 @@ NotLeftEdge
     lda XtankstableL,x
     sbc #1
     sta XtankstableL,x
-    lda XtankstableH,x
-    sbc #0
-    sta XtankstableH,x
+    scs
+    dec XtankstableH,x
     mva #%01000000 PreviousFall    ; set bit 6 - left
     bne EndOfFCycle
 EndLeftFall
diff --git a/scorch.bin b/scorch.bin
index 12b187f..a9ab755 100644
Binary files a/scorch.bin and b/scorch.bin differ
diff --git a/scorch.xex b/scorch.xex
index d8b5189..42102da 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/weapons.asm b/weapons.asm
index 1424ed2..5f4e339 100644
--- a/weapons.asm
+++ b/weapons.asm
@@ -456,18 +456,16 @@ diglewy ; even branches go left
     lda digtabxL,x
     sbc #$04
     sta digtabxL,x
-    lda digtabxH,x
-    sbc #$00
-    sta digtabxH,x
+    scs
+    dec digtabxH,x
     jmp DigRandomize
 DigRight ; odd go right (everytime 4 pixels)
     clc
     lda digtabxL,x
     adc #$04
     sta digtabxL,x
-    lda digtabxH,x
-    adc #$00
-    sta digtabxH,x
+    scc
+    inc digtabxH,x
 DigRandomize
     lda random
     ;and #$87
@@ -477,9 +475,8 @@ DigDown
     clc
     adc digtabyL,x
     sta digtabyL,x
-    scc:inc digtabyH,x
-;    adc #$00
-;    sta digtabyH,x
+    scc
+    inc digtabyH,x
     jmp DigCalculateNext
 DigUp
     and #$07
@@ -488,9 +485,8 @@ DigUp
     lda digtabyL,x
     sbc temp
     sta digtabyL,x
-    scs:dec digtabyH,x
-;    sbc #$00
-;    sta digtabyH,x
+    scs
+    dec digtabyH,x
 DigCalculateNext
     dex
     bpl CalculateBranches
@@ -767,7 +763,7 @@ DistanceCheckLoop
     adc #3  ;measure from middle of the tank
     sta xbyte
     lda XtankstableH,x
-    clc
+;    clc    ; ops :)
     adc #0  ;measure from middle of the tank
     sta xbyte+1
     lda Ytankstable,x