From c86dcd7c596e90a7d19f1bc4f2ea206e12f1a9a2 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Thu, 16 Jun 2022 18:34:00 +0200
Subject: [PATCH] cosmetics

---
 grafproc.asm |  6 +++---
 scorch.asm   | 18 +++++++++---------
 textproc.asm |  2 +-
 weapons.asm  |  4 ++++
 4 files changed, 17 insertions(+), 13 deletions(-)

diff --git a/grafproc.asm b/grafproc.asm
index 581fc74..d57f6ec 100644
--- a/grafproc.asm
+++ b/grafproc.asm
@@ -363,7 +363,7 @@ endcircleloop
     rts
 .endp
 ;----
-splot8 .proc
+.proc splot8
 ; plot xcircle+XC,ycircle+YC
 ; plot xcircle+XC,ycircle-YC
 ; plot xcircle-XC,ycircle-YC
@@ -462,7 +462,7 @@ splot8 .proc
 .endp
 
 ;--------------------------------------------------
-clearscreen .proc
+.proc clearscreen
 ;--------------------------------------------------
 
     lda #$ff
@@ -476,7 +476,7 @@ clearscreen .proc
     rts
 .endp
 ;-------------------------------*------------------
-placetanks .proc
+.proc placetanks
 ;--------------------------------------------------
     ldx #(MaxPlayers-1)   ;maxNumberOfPlayers-1
     lda #0
diff --git a/scorch.asm b/scorch.asm
index a7ee2db..1e5864b 100644
--- a/scorch.asm
+++ b/scorch.asm
@@ -733,7 +733,7 @@ NotNegativeShieldEnergy
 .endp
 
 ;--------------------------------------------------
-GetRandomWind .proc
+.proc GetRandomWind
 ;in: MaxWind (byte)
 ;out: Wind (word)
 ;uses: _
@@ -762,7 +762,7 @@ GetRandomWind .proc
 .endp
 
 ;--------------------------------------------------
-PMoutofScreen .proc
+.proc PMoutofScreen
 ;--------------------------------------------------
     lda #$00 ; let all P/M disappear
     :8 sta hposp0+#
@@ -903,7 +903,7 @@ ClearResults
     rts
 .endp
     
-DLIinterruptGraph .proc
+.proc DLIinterruptGraph
     pha
 	phy
 	ldy dliCounter
@@ -920,7 +920,7 @@ DLIinterruptGraph .proc
     rti
 .endp
 
-DLIinterruptText .proc
+.proc DLIinterruptText
 	pha
 	sta WSYNC
     mva #TextBackgroundColor colpf2
@@ -930,7 +930,7 @@ DLIinterruptNone
 	rti
 .endp
 
-VBLinterrupt .proc
+.proc VBLinterrupt
 	pha
 	phx
 	phy
@@ -1017,7 +1017,7 @@ UsageLoop
     rts
 .endp
 ;----------------------------------------------
-RandomizeAngle .proc ;
+.proc RandomizeAngle
 ; routine returns in A
 ; a valid angle for the tank's barrel.
 ; X is not changed
@@ -1040,7 +1040,7 @@ RandomizeAngle .proc ;
     rts
 .endp
 ;----------------------------------------------
-RandomizeForce  .proc
+.proc RandomizeForce
 ; routine returns in ForceTable/L/H
 ; valid force of shooting for TankNr
 ; in X must be TankNr
@@ -1253,7 +1253,7 @@ getkeyend
 
 .endp
 ;--------------------------------------------------
-getkeynowait .proc;
+.proc getkeynowait
 ;--------------------------------------------------
     jsr WaitForKeyRelease 
     lda kbcode
@@ -1261,7 +1261,7 @@ getkeynowait .proc;
     rts
 .endp
 ;--------------------------------------------------
-WaitForKeyRelease .proc
+.proc WaitForKeyRelease
 ;--------------------------------------------------
     lda JSTICK0
     and #$0f
diff --git a/textproc.asm b/textproc.asm
index b06e072..be09ff4 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -8,7 +8,7 @@
 ;----------------------------------------
 
 ;--------------------------------------------------
-Options .proc
+.proc Options
 ;--------------------------------------------------
 ; start-up screen - options, etc.
 ; this function returns:
diff --git a/weapons.asm b/weapons.asm
index ddfdea2..5a5e636 100644
--- a/weapons.asm
+++ b/weapons.asm
@@ -2314,6 +2314,8 @@ CheckCollisionWithTankLoop
     cmp xdraw
 @
     bcs LeftFromTheTank ;add 8 double byte
+	; now we use Y as low byte and A as high byte of checked position (right edge of tank)
+	; it is tricky but fast and much shorter
     clc
     adc #8
     tay
@@ -2341,6 +2343,8 @@ DeadTank
     bne CheckCollisionWithTankLoop
     rts
 CheckCollisionWithShieldedTank
+	; now we use Y as low byte and A as high byte of checked position (left right edgs of shield)
+	; it is tricky but fast and much shorter
     lda xtankstableL,x
 	sec
 	sbc #4		; 5 pixels more on left side