correct page display, limit to 99 pages

2016-11-25 10:50:23 -08:00 · 2016-11-25 10:50:23 -08:00 · de691da719
parent 4e5f2c0cf3
commit de691da719
1 changed files with 4 additions and 1 deletions
--- a/src/4live.a
+++ b/src/4live.a
@ -553,7 +553,7 @@ HexToDec                                ;called with X=hex value to print
        ldx     #0
 -       cmp     #$0A
        bcc     +
-        sbc     #9
+        sbc     #$0A
        inx
        bne     -
 +       jsr     AToScr
@ -910,6 +910,9 @@ PageReturn
        ;then select that page

 HandleKeyAddPage
+        lda     Pages + 1
+        cmp     #(99 - 1)               ;maximum 99 pages
+        beq     PageReturn
        jsr     ExchangeVirtualBuffer
        sec
        jsr     ClearVirtualBuffer