Fix for minimal mountain height drawing.

This commit is contained in:
Pecusx
2023-05-23 19:17:55 +02:00
parent 4e73e406a3
commit 2f0ea11d2e
6 changed files with 18 additions and 4 deletions
+4 -1
View File
@@ -239,7 +239,10 @@ MinCalculated
lda xdraw
and #%00000111 ; only every 8th pixel
bne NotFillBytes
; A=0 is here
lda temp2
cmp #screenheight+1 ; only if minimum is not miniminimum :)
beq NotFillBytes
dec ydraw ; protection if temp2=screenheight
@ lda #0
sta (xbyte),y
+4 -1
View File
@@ -247,7 +247,10 @@ MinCalculated
lda xdraw
and #%00000111 ; only every 8th pixel
bne NotFillBytes
; A=0 is here
lda temp2
cmp #screenheight+1 ; only if minimum is not miniminimum :)
beq NotFillBytes
dec ydraw ; protection if temp2=screenheight
@ lda #0
tay
+10 -2
View File
@@ -1539,9 +1539,10 @@ EndDrawing
rts
.endp
/*
/*
;--------------------------------------------------
.proc calculatemountains0
.proc calculatemountains
; Only for testing - makes ground flat (0 pixels)
; and places tanks on it
; remember to remove in final compilation :)
@@ -1555,6 +1556,13 @@ nextPointDrawing
inw xdraw
cpw xdraw #screenwidth
bne nextPointDrawing
; 20 first points - max height!
mwa #mountaintable modify
ldy #20
lda #0
@ sta (modify),y
dey
bpl @-
ldx NumberOfPlayers
dex
SetYofNextTank
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.
BIN
View File
Binary file not shown.