From ce12e076ccd931f783158d34d090a7e57f1eaa77 Mon Sep 17 00:00:00 2001
From: Pecusx <Pecus@poczta.fm>
Date: Tue, 6 Jun 2023 09:39:46 +0200
Subject: [PATCH] Labels and comments

---
 Atari/gr_basics.asm |  28 +++++++++++++++-------------
 scorch.xex          | Bin 56333 -> 56333 bytes
 2 files changed, 15 insertions(+), 13 deletions(-)

diff --git a/Atari/gr_basics.asm b/Atari/gr_basics.asm
index 29ee894..f4e9d5e 100644
--- a/Atari/gr_basics.asm
+++ b/Atari/gr_basics.asm
@@ -274,9 +274,9 @@ NoMountain
 ;--------------------------------------------------
 ; Calculate mountaintable from screen data
 ; for speedup SoilDown, etc.
-    mwa #0 xdraw
+    mwa #0 temp ; byte in screen line
     mwa #mountaintable modify
-petlabajtowpoziomo
+HorizontalByteLoop
     lda #0
     ldy #7
 @   sta (modify),y
@@ -284,16 +284,16 @@ petlabajtowpoziomo
     bpl @-
     tax
     ;stx ydraw
-petlakolumny
-    lda LineTableL,x    ; Y=ydraw - sprawdzić
-    sta xbyte
+ColumnLoop
+    lda LineTableL,x    ; X=ydraw
+    sta xbyte   ; address of first byte in line X
     lda LineTableH,x
     sta xbyte+1
-    ldy xdraw
+    ldy temp
     lda (xbyte),y
-    sta temp2
+    sta temp2   ; byte from screen (8 pixels)
     ldy #7
-petlabajtu
+ByteLoop
     lsr temp2
     bcc NoPixel
     ;clc
@@ -303,18 +303,20 @@ petlabajtu
     sta (modify),y
 NoPixel
     dey
-    bpl petlabajtu
+    bpl ByteLoop    ; next bit in byte
+
     inx     ;  ydraw
     ;inc ydraw
     ;ldy ydraw
     cpx #screenheight
-    bne petlakolumny
+    bne ColumnLoop  ; next byte in colum
     
     adw modify #8
-    inc xdraw
-    lda xdraw
+    inc temp
+    lda temp
     cmp #screenBytes
-    bne petlabajtowpoziomo
+    bne HorizontalByteLoop  ; next column of bytes
+
     rts
 .endp
 ;--------------------------------------------------
diff --git a/scorch.xex b/scorch.xex
index f200ad00a4b2ebd92c5eed815e372fc8c1f6861f..45befe36dea04c79105083336ac1fc5ff3fc847e 100644
GIT binary patch
delta 32
ocmeC(!Q8upc|+z5=EByZ$vHD*84D+O%}`-3Tw1t!<BS+*0OL>%(EtDd

delta 32
ocmeC(!Q8upc|+z5=7iS7$vHD*851UV%}`-ZSemeT<BS+*0N$z%d;kCd