Pecus/scorch_src
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix for silly "big mountains" bug.

Browse Source 
It's not a real fix, but rather a workaround.
The putchar4x4 routine now checks for writing off-screen.
This commit is contained in:
Pecusx
2022-08-23 10:13:22 +02:00
parent 36d029bb87
commit bfe777c4c6
3 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
grafproc.asm
+7 -4
View File
@@ -1903,10 +1903,13 @@ EndPutChar
; all pixels are being drawn ; all pixels are being drawn
; (empty and not empty) ; (empty and not empty)
;-------------------------------------------------- ;--------------------------------------------------
; cpw ydraw #(screenheight-4) ; rts
; jcs TypeChar.EndPutChar ;nearest RTS cpw dy #(screenheight-1)
; cpw xdraw #(screenwidth-4) jcs TypeChar.EndPutChar ;nearest RTS
; jcs TypeChar.EndPutChar ;nearest RTS cpw dy #(4)
jcc TypeChar.EndPutChar ;nearest RTS
cpw dx #(screenwidth-4)
jcs TypeChar.EndPutChar ;nearest RTS
; checks ommited. ; checks ommited.
lda plot4x4color lda plot4x4color
beq FontColor0 beq FontColor0
scorch.xex
BIN
View File
Binary file not shown.
textproc.asm
+2
View File
@@ -1532,6 +1532,7 @@ DOTNcharloop
sta dx+1 sta dx+1
lda TextPositionY lda TextPositionY
sta dy sta dy
mva #0 dy+1 ; dy is 2 bytes value
jsr PutChar4x4 jsr PutChar4x4
inc TextCounter inc TextCounter
@@ -1617,6 +1618,7 @@ TypeLine4x4Loop
sta CharCode4x4 sta CharCode4x4
mwa LineXdraw dx mwa LineXdraw dx
mva LineYdraw dy mva LineYdraw dy
mva #0 dy+1 ; dy is 2 bytes value
jsr PutChar4x4 ;type empty pixels as well! jsr PutChar4x4 ;type empty pixels as well!
adw LineXdraw #4 adw LineXdraw #4
inc LineCharNr inc LineCharNr