diff --git a/ai.asm b/ai.asm
index 7052c2c..6c01bb6 100644
--- a/ai.asm
+++ b/ai.asm
@@ -31,19 +31,19 @@ loop
 
 ;----------------------------------------------
 .proc ArtificialIntelligence ;
-; A - skill of the TankNr
+; A - skill of the TankNr (in X)
 ; returns shoot energy and angle in
 ; ForceTable/L/H and AngleTable
 ;----------------------------------------------
     asl
-    tax
-    :2 dex  ;credit KK
-    lda AIRoutines+1,x
+    tay
+    :2 dey  ;credit KK
+    lda AIRoutines+1,y
     pha
-    lda AIRoutines,x
+    lda AIRoutines,y
     pha
 
-    ldx TankNr  ; common values used in AI routines
+    ; common values used in AI routines
     ; address of weapons table (for future use)
     lda TanksWeaponsTableL,x
     sta temp
diff --git a/scorch.asm b/scorch.asm
index 69dfd8a..b7dcc99 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -403,6 +403,7 @@ DoNotFinishTheRound
 
 RoboTanks
 	; robotanks shoot here	
+	; TankNr still in X
     jsr ArtificialIntelligence
     jsr PutTankNameOnScreen
 	jsr DisplayStatus
@@ -1146,7 +1147,6 @@ LimitForce
 ;----------------------------------------------
 .proc MoveBarrelToNewPosition
 	jsr DrawTankNr
-	ldx TankNr
 	jsr DisplayStatus.displayAngle
 	ldx TankNr
 	lda NewAngle
diff --git a/scorch.xex b/scorch.xex
index 2740cdf..40114bf 100644
Binary files a/scorch.xex and b/scorch.xex differ