Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-01-22 09:29:52 +00:00
Code Issues Projects Releases Wiki Activity

Don't monkey with ZP configuration when launching DA. Fixes #119

Browse Source
This commit is contained in:
Joshua Bell 2019-01-28 20:32:23 -08:00
parent 8ead691cf8
commit 30532c316d
3 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
desk.acc/screen.dump.s
View File

@ -14,15 +14,23 @@
;;; ============================================================ ;;; ============================================================
yax_call JUMP_TABLE_MGTK_RELAY, MGTK::HideCursor, 0 yax_call JUMP_TABLE_MGTK_RELAY, MGTK::HideCursor, 0
yax_call JUMP_TABLE_MGTK_RELAY, MGTK::HiliteMenu, menu_click_params jsr hilite_menu
jsr dump_screen jsr dump_screen
yax_call JUMP_TABLE_MGTK_RELAY, MGTK::HiliteMenu, menu_click_params jsr hilite_menu
yax_call JUMP_TABLE_MGTK_RELAY, MGTK::ShowCursor, 0 yax_call JUMP_TABLE_MGTK_RELAY, MGTK::ShowCursor, 0
rts rts
.proc menu_click_params ;;; ============================================================
menu_id:.byte 1 ; ID of Apple menu
item_num:.byte 0 .proc hilite_menu
;; Use zero page, which is visible from MGTK
menu_click_menu_id := $6
lda #1 ; ID of Apple menu
sta menu_click_menu_id
yax_call JUMP_TABLE_MGTK_RELAY, MGTK::HiliteMenu, menu_click_menu_id
rts
.endproc .endproc
;;; ============================================================ ;;; ============================================================

6
desk.acc/sort.directory.s
View File

@ -39,9 +39,9 @@ start: tsx
bne :+ bne :+
rts rts
: lda #$40 : lda #>(JUMP_TABLE_SELECT_WINDOW-1)
pha pha
lda #$0B lda #<(JUMP_TABLE_SELECT_WINDOW-1)
pha pha
lda a:$0A lda a:$0A
rts rts
@ -309,7 +309,7 @@ L0A4B: jsr L0B16
jsr write_block jsr write_block
jmp L0A4B jmp L0A4B
L0A8E: pla L0A8E: pla ; WTF ???
L0A8F: jmp exit L0A8F: jmp exit
dev_num: dev_num:

6
desktop/desktop_main.s
View File

@ -1587,10 +1587,10 @@ nope: dex
;; Invoke it ;; Invoke it
jsr set_pointer_cursor jsr set_pointer_cursor
jsr reset_grafport3 jsr reset_grafport3
MGTK_RELAY_CALL MGTK::SetZP1, zp_use_flag0 ;; MGTK_RELAY_CALL MGTK::SetZP1, zp_use_flag0
MGTK_RELAY_CALL MGTK::SetZP1, zp_use_flag1 ;; MGTK_RELAY_CALL MGTK::SetZP1, zp_use_flag1
jsr DA_LOAD_ADDRESS jsr DA_LOAD_ADDRESS
MGTK_RELAY_CALL MGTK::SetZP1, zp_use_flag0 ;; MGTK_RELAY_CALL MGTK::SetZP1, zp_use_flag0
lda #0 lda #0
sta running_da_flag sta running_da_flag