correct page display, limit to 99 pages

This commit is contained in:
Peter Ferrie 2016-11-25 10:50:23 -08:00
parent 4e5f2c0cf3
commit de691da719

View File

@ -553,7 +553,7 @@ HexToDec ;called with X=hex value to print
ldx #0 ldx #0
- cmp #$0A - cmp #$0A
bcc + bcc +
sbc #9 sbc #$0A
inx inx
bne - bne -
+ jsr AToScr + jsr AToScr
@ -910,6 +910,9 @@ PageReturn
;then select that page ;then select that page
HandleKeyAddPage HandleKeyAddPage
lda Pages + 1
cmp #(99 - 1) ;maximum 99 pages
beq PageReturn
jsr ExchangeVirtualBuffer jsr ExchangeVirtualBuffer
sec sec
jsr ClearVirtualBuffer jsr ClearVirtualBuffer