more label conflicts fixed

This commit is contained in:
FeralChild64 committed 2019-09-27 23:29:33 +02:00
1 parent c6350cc86b
commit 0597988a59
21 files changed
+311 -384

No files matched your search

@@ -1,32 +1,32 @@
// Put the address of the screen current line
// into the pointer at $D1 (current_screen_line_ptr).
// into the pointer at $D1 (PNT).
// It must take into account the screen line link table
// (Compute's Mapping the 64 p216)
set_pointer_to_current_screen_line:
// Get pointer to start of the screen
lda HIBASE
sta current_screen_line_ptr+1
sta PNT+1
lda #$00
sta current_screen_line_ptr+0
sta PNT+0
// Now advance for the number of lines
ldx current_screen_y
ldx TBLX
sptcsl_l2:
sptcsl_l2:
// XXX - Should we read the columns per line from
// somewhere?
ldy #<40
// Double line length if line is linked
lda screen_line_link_table,x
lda LDTBL,x
bpl sptcsl_l1
ldy #<80
sptcsl_l1:
tya
clc
adc current_screen_line_ptr+0
lda current_screen_line_ptr+1
adc PNT+0
lda PNT+1
adc #>40
sta current_screen_line_ptr+1
sta PNT+1
dex
bpl sptcsl_l2