Labels and comments
This commit is contained in:
+15
-13
@@ -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
Binary file not shown.
Reference in New Issue
Block a user