fix CDA paging

2022-01-15 16:15:05 -05:00 · 2022-01-15 16:15:05 -05:00 · ea6ee76a9d
parent 1cc501e72a
commit ea6ee76a9d
1 changed files with 3 additions and 2 deletions
--- a/vt100.cda.S
+++ b/vt100.cda.S
@ -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