fix some bugs
This commit is contained in:
1 parent
85d6c10832
commit
aab7b98c27
2 files changed
+5
-7
No files matched your search
+1
-4
@@ -1,9 +1,6 @@
|
|||||||
; Function defined on pp272-273 of C64 Programmers Reference Guide
|
; Function defined on pp272-273 of C64 Programmers Reference Guide
|
||||||
chrout:
|
chrout:
|
||||||
;; Crude implementation of character output
|
;; Crude implementation of character output
|
||||||
sta $0400
|
|
||||||
inc $0401
|
|
||||||
jmp chrout
|
|
||||||
|
|
||||||
;; Write character on the screen
|
;; Write character on the screen
|
||||||
ldy current_screen_x
|
ldy current_screen_x
|
||||||
@@ -13,7 +10,7 @@ chrout:
|
|||||||
;; to insert a 2nd line in this logical line.
|
;; to insert a 2nd line in this logical line.
|
||||||
;; (eg Compute's Mapping the 64 p41)
|
;; (eg Compute's Mapping the 64 p41)
|
||||||
ldx current_screen_y
|
ldx current_screen_y
|
||||||
iny current_screen_x
|
iny
|
||||||
sty current_screen_x
|
sty current_screen_x
|
||||||
cpy #40
|
cpy #40
|
||||||
beq screen_grow_logical_line
|
beq screen_grow_logical_line
|
||||||
|
|||||||
@@ -15,12 +15,13 @@ set_pointer_to_current_screen_line:
|
|||||||
sptcsl_l2:
|
sptcsl_l2:
|
||||||
;; XXX - Should we read the columns per line from
|
;; XXX - Should we read the columns per line from
|
||||||
;; somewhere?
|
;; somewhere?
|
||||||
lda #<40
|
ldy #<40
|
||||||
;; Double line length if line is linked
|
;; Double line length if line is linked
|
||||||
bit screen_line_link_table,x
|
lda screen_line_link_table,x
|
||||||
bpl sptcsl_l1
|
bpl sptcsl_l1
|
||||||
asl
|
ldy #<80
|
||||||
sptcsl_l1:
|
sptcsl_l1:
|
||||||
|
tya
|
||||||
clc
|
clc
|
||||||
adc current_screen_line_ptr+0
|
adc current_screen_line_ptr+0
|
||||||
lda current_screen_line_ptr+1
|
lda current_screen_line_ptr+1
|
||||||
|
|||||||
Reference in new issue
Block a user