sb: properly page flip

This commit is contained in:
Vince Weaver 2023-03-15 02:02:51 -04:00
parent aaed2d1b39
commit cc4f67099e
1 changed files with 13 additions and 1 deletions

View File

@ -40,9 +40,13 @@ duck_pond:
bit SET_GR bit SET_GR
bit PAGE1 bit PAGE1
lda #$0 lda #$4
sta DRAW_PAGE sta DRAW_PAGE
lda #$0
sta FRAME
sta FRAMEH
sta DISP_PAGE
;=================== ;===================
; TITLE SCREEN ; TITLE SCREEN
@ -63,6 +67,8 @@ title_screen:
bit TEXTGR bit TEXTGR
jsr page_flip
wait_until_keypress: wait_until_keypress:
lda KEYPRESS ; 4 lda KEYPRESS ; 4
bpl wait_until_keypress ; 3 bpl wait_until_keypress ; 3
@ -180,6 +186,12 @@ check_bracket:
done_keyboard: done_keyboard:
; increment frame
inc FRAME
bne frame_noflo
inc FRAMEH
frame_noflo:
done_loop: done_loop: