Eyes DA: Fix glitch on first run

This commit is contained in:
Joshua Bell 2018-04-18 22:37:52 -07:00
parent cc2f1d13a8
commit 62139539d7
2 changed files with 7 additions and 0 deletions

View File

@ -36,6 +36,8 @@ entry:
sta ALTZPON
lda LCBANK1
lda LCBANK1
;; back to main for exit
sta RAMRDOFF
sta RAMWRTOFF
rts
@ -191,7 +193,11 @@ grow_box_bitmap:
lda LCBANK1
lda LCBANK1
;; Don't let MGTK smash zero page
MGTK_CALL MGTK::SetZP1, preserve_zp_params
lda #0
sta SHIFT_SIGN_EXT ; Must zero before using FP ops
MGTK_CALL MGTK::OpenWindow, winfo
jsr draw_window
MGTK_CALL MGTK::FlushEvents

View File

@ -71,6 +71,7 @@ LINNUM := $50 ; Line number, unsigned word
ERRFLG := $D8
TXTPTR := $B8
FAC := $9D
SHIFT_SIGN_EXT := $A4 ; Zero before using FP ops
;;; Entry Points
GIVAYF := $E2F2 ; FAC from signed integer in (Y,A)