From ea6ee76a9d6e1c0900f445d879d5893597a4c949 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sat, 15 Jan 2022 16:15:05 -0500
Subject: [PATCH] fix CDA paging

---
 vt100.cda.S | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/vt100.cda.S b/vt100.cda.S
index 1b347a4..e969fd7 100644
--- 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