Labels and comments

This commit is contained in:
Pecusx
2023-06-06 09:39:46 +02:00
parent c9e7f387bc
commit ce12e076cc
2 changed files with 15 additions and 13 deletions
+15 -13
View File
@@ -274,9 +274,9 @@ NoMountain
;-------------------------------------------------- ;--------------------------------------------------
; Calculate mountaintable from screen data ; Calculate mountaintable from screen data
; for speedup SoilDown, etc. ; for speedup SoilDown, etc.
mwa #0 xdraw mwa #0 temp ; byte in screen line
mwa #mountaintable modify mwa #mountaintable modify
petlabajtowpoziomo HorizontalByteLoop
lda #0 lda #0
ldy #7 ldy #7
@ sta (modify),y @ sta (modify),y
@@ -284,16 +284,16 @@ petlabajtowpoziomo
bpl @- bpl @-
tax tax
;stx ydraw ;stx ydraw
petlakolumny ColumnLoop
lda LineTableL,x ; Y=ydraw - sprawdziæ lda LineTableL,x ; X=ydraw
sta xbyte sta xbyte ; address of first byte in line X
lda LineTableH,x lda LineTableH,x
sta xbyte+1 sta xbyte+1
ldy xdraw ldy temp
lda (xbyte),y lda (xbyte),y
sta temp2 sta temp2 ; byte from screen (8 pixels)
ldy #7 ldy #7
petlabajtu ByteLoop
lsr temp2 lsr temp2
bcc NoPixel bcc NoPixel
;clc ;clc
@@ -303,18 +303,20 @@ petlabajtu
sta (modify),y sta (modify),y
NoPixel NoPixel
dey dey
bpl petlabajtu bpl ByteLoop ; next bit in byte
inx ; ydraw inx ; ydraw
;inc ydraw ;inc ydraw
;ldy ydraw ;ldy ydraw
cpx #screenheight cpx #screenheight
bne petlakolumny bne ColumnLoop ; next byte in colum
adw modify #8 adw modify #8
inc xdraw inc temp
lda xdraw lda temp
cmp #screenBytes cmp #screenBytes
bne petlabajtowpoziomo bne HorizontalByteLoop ; next column of bytes
rts rts
.endp .endp
;-------------------------------------------------- ;--------------------------------------------------
BIN
View File
Binary file not shown.