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 @+
+    seq:dey
-    dey
+    sty color
-@    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 @+
+    seq:dey
-    dey
+    sty color
-@    sty color
     jsr DrawBarrel
     ldx TankNr
 DoNotDrawTankNr
@@ -1046,11 +1044,11 @@ NoFallingSound
     and #01
     beq DoNotClearParachute
     ; here we clear the parachute
-;    ldx TankNr
+    ; ldx TankNr
     jsr DrawTankParachute
 DoNotClearParachute
     mva #0 Erase
-;    ldx TankNr
+    ; ldx TankNr
     lda EndOfTheFallFlag    ; We only get byte below the tank if still falling
     bne NoGroundCheck
     ; coordinates of the first pixel under the tank
@@ -1062,8 +1060,8 @@ DoNotClearParachute
     ; time in our lives! Tada! It opens a new chapter!!!
     sta ydraw
     ;
-;    UnderTank1    ; byte under tank
+    ; UnderTank1    ; byte under tank
-;    UnderTank2    ; byte under tank reversed (for simple check right direction)
+    ; UnderTank2    ; byte under tank reversed (for simple check right direction)
     lda #08
     sta temp  ; Loop Counter
 ByteBelowTank
@@ -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 WindChangeInRound .byte ; wind change after each turn (not round only) flag
-    .zpvar RandomMountains  .byte   ; mountains type change after each turn flag - (0 - round only, >0 - each turn)
+                                   ; (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 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
@@ -73,12 +77,12 @@ FirstZpageVariable = $51
     .zpvar TankSequencePointer .byte
     .zpvar oldplot          .word
     .zpvar xc               .word
-    .zpvar temp             .word ;temporary word for the most embeded loops only
+    .zpvar temp             .word  ; temporary word for the most embeded loops only
-    .zpvar temp2            .word ;same as above
+    .zpvar temp2            .word  ; same as above
-    .zpvar modify           .word ;origially used to replace self-modyfying code
+    .zpvar modify           .word  ; origially used to replace self-modyfying code
-    .zpvar tempXROLLER      .word ;same as above for XROLLER routine (used also in result display routine)
+    .zpvar tempXROLLER      .word  ; same as above for XROLLER routine (used also in result display routine)
-    .zpvar xtempDRAW        .word ;same as above for XDRAW routine
+    .zpvar xtempDRAW        .word  ; same as above for XDRAW routine
-    .zpvar ytempDRAW        .word ;same as above for XDRAW routine
+    .zpvar ytempDRAW        .word  ; same as above for XDRAW routine
     .zpvar tempor2          .word
     .zpvar CreditsVScrol    .byte
     ;--------------temps used in circle routine
@@ -103,7 +107,7 @@ FirstZpageVariable = $51
     .zpvar dliCounter       .byte
     .zpvar pressTimer       .byte
     .zpvar NTSCcounter      .byte
-    .zpvar IsEndOfTheFallFlag .byte  ; for small speedup ground falling
+    .zpvar IsEndOfTheFallFlag .byte ;for small speedup ground falling
     .zpvar sfx_effect       .byte
     .zpvar RMT_blocked      .byte
     .zpvar ScrollFlag       .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