Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-03 10:30:31 +00:00
Code Issues Projects Releases Wiki Activity

Eyes DA: Fix glitch on first run

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
desk.acc/eyes.s
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

1
inc/apple2.inc
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)