unsignificants

grafproc.asm

@@ -585,7 +585,7 @@ UnequalTanks
     jsr PMoutofScreen
     mva #1 Erase    ; erase tanks flag
 .endp
-;--
+;-------------------------------------------------
 .proc drawtanks
 ;-------------------------------------------------
     lda TankNr
@@ -743,9 +743,8 @@ NoPlayerMissile
 noTankNoPM
     ldy #$01
     lda Erase
-    beq @+
-    dey
-@    sty color
+    seq:dey
+    sty color
     ; draw defensive weapons like shield ( tank number in X )
     ; in xdraw, ydraw we have coordinates left LOWER corner of Tank char
     ldx TankNr
@@ -786,9 +785,8 @@ NoShieldDraw
 BarrelChange
     ldy #$01
     lda Erase
-    beq @+
-    dey
-@    sty color
+    seq:dey
+    sty color
     jsr DrawBarrel
     ldx TankNr
 DoNotDrawTankNr
@@ -1596,8 +1594,7 @@ notZero
     jsr _calc_inverse_display
     
     ; now find length of the text
-@   
-    iny
+@     iny
       lda (LineAddress4x4),y
     bpl @-
     iny
@@ -2067,17 +2064,6 @@ ybarrel
     STA COLOR3     ; joined missiles (5th tank)
     rts
 .endp
-;--------------------------------------------------
-.proc Lissajous
-;--------------------------------------------------
-;  x = Asin(at + fi)
-;  y = Bsin(bt)
-; center: xdraw, ydraw
 
 
-
-
-    rts
-.endp
-
 .endif

scorch.asm

@@ -56,15 +56,19 @@ FirstZpageVariable = $51
     .zpvar PaddleState      .byte  ; old state 2nd button for 2 buttons joysticks
     .zpvar GradientNr       .byte
     .zpvar GradientColors   .word
-    .zpvar WindChangeInRound .byte    ; wind change after each turn (not round only) flag - (0 - round only, >0 - each turn)
-    .zpvar RandomMountains  .byte   ; mountains type change after each turn flag - (0 - round only, >0 - each turn)
+    .zpvar WindChangeInRound .byte ; wind change after each turn (not round only) flag
+                                   ; (0 - round only, >0 - each turn)
+    .zpvar RandomMountains  .byte  ; mountains type change after each turn flag
+                                   ; (0 - round only, >0 - each turn)
     .zpvar FastSoilDown     .byte  ; 0 - standard, >0 - fast
     .zpvar JoystickNumber   .byte
-    .zpvar LazyFlag         .byte    ; 7 bit - run Lazy Darwin, 6 bit - run Lazy Boy or Darwin (!) after inventory, 0 - nothing
+    .zpvar LazyFlag         .byte  ; 7 bit - run Lazy Darwin, 6 bit - run Lazy Boy or Darwin (!) after inventory
+                                   ; 0 - nothing
     .zpvar SpyHardFlag      .byte  ; >$7f - run SpyHard after inventory
     .zpvar Vdebug           .byte  ; "visual debug" flag ($00 - off, $ff - on)
     .zpvar xdraw            .word  ; = $64 ;variable X for plot
-    .zpvar ydraw            .word ;variable Y for plot (like in Atari Basic - Y=0 in upper right corner of the screen)
+    .zpvar ydraw            .word  ; variable Y for plot 
+                                   ; (like in Atari Basic - Y=0 in upper right corner of the screen)
     .zpvar xbyte            .word
     .zpvar ybyte            .word
     .zpvar CharCode         .byte
@@ -132,7 +136,8 @@ FirstZpageVariable = $51
     .zpvar vy_              .word  ; 4 bytes
     .zpvar vx               .word
     .zpvar vx_              .word  ; 4 bytes
-    .zpvar HitFlag .byte ;$ff when missile hit ground, $00 when no hit, $01-$06 tank index+1 when hit tank
+    .zpvar HitFlag          .byte  ; $ff when missile hit ground, $00 when no hit,
+                                   ; $01-$06 tank index+1 when hit tank
     .zpvar PositionOnTheList .byte ; pointer position on the list being displayed
     .zpvar XHit             .word
     .zpvar delta            .word
@@ -147,7 +152,8 @@ FirstZpageVariable = $51
     .zpvar RangeLeft        .word
     .zpvar RangeRight       .word
     .zpvar NewAngle         .byte
-    .zpvar escFlag .byte  ; 7 bit - Exit game, 6 bit - Exit to GameOver (cleared - exit to Menu), 0 - nothing
+    .zpvar escFlag          .byte  ; 7 bit - Exit game, 
+                                   ; 6 bit - Exit to GameOver (cleared - exit to Menu), 0 - nothing
     .zpvar LineYdraw        .byte
     .zpvar LineXdraw        .word
     .zpvar plot4x4color     .byte  ; $00 / $ff
@@ -163,7 +169,7 @@ FirstZpageVariable = $51
     .zpvar goleft           .byte
     .zpvar OffsetDL1        .byte
     .zpvar L1               .byte
-    HotNapalmFlag = FunkyBombCounter ; reuse variable!
+    HotNapalmFlag = FunkyBombCounter  ; variable reuse!
     displayposition = modify
     LineAddress4x4 = xcircle
     ;* RMT ZeroPage addresses in artwork/sfx/scorch_str9-NTSC.rmt
@@ -184,23 +190,6 @@ FirstZpageVariable = $51
       icl 'Atari/lib/5200SYS.ASM'
       icl 'Atari/lib/5200MACRO.ASM'
       .enum @kbcode
-        /*
-        _0
-        _1
-        _2
-        _3
-        _4
-        _5
-        _6
-        _7
-        _8
-        _9
-        _asterisk = $0a
-        _hash = $0b
-        _start = $0c
-        _pause = $0d
-        _reset = $0e
-        */
         _space = $00
         _Y     = $01
         _up    = $02