Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-08-10 08:25:15 +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
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 sta ALTZPON
lda LCBANK1 lda LCBANK1
lda LCBANK1 lda LCBANK1
;; back to main for exit
sta RAMRDOFF sta RAMRDOFF
sta RAMWRTOFF sta RAMWRTOFF
rts rts
@@ -191,7 +193,11 @@ grow_box_bitmap:
lda LCBANK1 lda LCBANK1
lda LCBANK1 lda LCBANK1
;; Don't let MGTK smash zero page
MGTK_CALL MGTK::SetZP1, preserve_zp_params MGTK_CALL MGTK::SetZP1, preserve_zp_params
lda #0
sta SHIFT_SIGN_EXT ; Must zero before using FP ops
MGTK_CALL MGTK::OpenWindow, winfo MGTK_CALL MGTK::OpenWindow, winfo
jsr draw_window jsr draw_window
MGTK_CALL MGTK::FlushEvents MGTK_CALL MGTK::FlushEvents

1
inc/apple2.inc
View File

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