fix CDA paging

This commit is contained in:
Kelvin Sherlock 2022-01-15 16:15:05 -05:00
parent 1cc501e72a
commit ea6ee76a9d

View File

@ -51,6 +51,7 @@ Header
page ds 2
MAX_PAGE equ 8
pages dw variables
dw hexdump_r
dw hexdump_w
@ -112,14 +113,14 @@ main
dec
dec
bpl :lok
lda #$05
lda #MAX_PAGE-2
:lok sta page
bra main
:right lda page
inc
inc
cmp #$05+1
cmp #MAX_PAGE
bcc :rok
lda #0
:rok sta page