more label conflicts fixed
This commit is contained in:
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
|
||||
|
||||
Reference in new issue
Block a user