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

Disk Copy Overlay disasm

Browse Source
This commit is contained in:
Joshua Bell 2018-11-22 20:49:48 -08:00
parent 08bcffad5c
commit 5f7584d8d5
1 changed files with 24 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
desktop/ovl1b.s
View File

@ -144,14 +144,16 @@ label_disk_copy:
;;; ============================================================ ;;; ============================================================
disablemenu_params: .proc disablemenu_params
.byte 3 menu_id: .byte 3
LD129: .byte 0 disable: .byte 0
.endproc
checkitem_params: .proc checkitem_params
.byte 3 menu_id: .byte 3
LD12B: .byte 0 menu_item: .byte 0
LD12C: .byte 0 check: .byte 0
.endproc
event_params := * event_params := *
event_kind := event_params + 0 event_kind := event_params + 0
@ -497,10 +499,10 @@ LD5E0: .byte 0
LD5E1: jsr remove_ram_disk LD5E1: jsr remove_ram_disk
MGTK_RELAY_CALL2 MGTK::SetMenu, menu_definition MGTK_RELAY_CALL2 MGTK::SetMenu, menu_definition
jsr set_cursor_pointer jsr set_cursor_pointer
copy16 #$0101, LD12B copy #1, checkitem_params::menu_item
copy #1, checkitem_params::check
MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params
lda #$01 copy #1, disablemenu_params::disable
sta LD129
MGTK_RELAY_CALL2 MGTK::DisableMenu, disablemenu_params MGTK_RELAY_CALL2 MGTK::DisableMenu, disablemenu_params
lda #$00 lda #$00
sta quick_copy_flag sta quick_copy_flag
@ -514,11 +516,10 @@ LD61C: lda #$00
sta current_drive_selection sta current_drive_selection
lda #$81 lda #$81
sta LD44D sta LD44D
lda #$00 copy #0, disablemenu_params::disable
sta LD129
MGTK_RELAY_CALL2 MGTK::DisableMenu, disablemenu_params MGTK_RELAY_CALL2 MGTK::DisableMenu, disablemenu_params
lda #$01 lda #1
sta LD12C sta checkitem_params::check
MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params
jsr draw_dialog jsr draw_dialog
MGTK_RELAY_CALL2 MGTK::OpenWindow, winfo_drive_select MGTK_RELAY_CALL2 MGTK::OpenWindow, winfo_drive_select
@ -540,8 +541,7 @@ LD674: jsr LD986
LD687: lda current_drive_selection LD687: lda current_drive_selection
bmi LD674 bmi LD674
lda #$01 copy #1, disablemenu_params::disable
sta LD129
MGTK_RELAY_CALL2 MGTK::DisableMenu, disablemenu_params MGTK_RELAY_CALL2 MGTK::DisableMenu, disablemenu_params
lda current_drive_selection lda current_drive_selection
sta source_drive_index sta source_drive_index
@ -903,16 +903,12 @@ cmd_quick_copy:
bne LDA42 bne LDA42
rts rts
LDA42: lda #$00 LDA42: copy #0, checkitem_params::check
sta LD12C
MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params
lda quick_copy_flag copy quick_copy_flag, checkitem_params::menu_item
sta LD12B copy #1, checkitem_params::check
lda #$01
sta LD12C
MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params
lda #$00 copy #0, quick_copy_flag
sta quick_copy_flag
lda winfo_dialog::window_id lda winfo_dialog::window_id
jsr set_win_port jsr set_win_port
addr_call draw_title_text, str_quick_copy_padded addr_call draw_title_text, str_quick_copy_padded
@ -923,13 +919,12 @@ cmd_disk_copy:
beq LDA7D beq LDA7D
rts rts
LDA7D: lda #$00 LDA7D: copy #0, checkitem_params::check
sta LD12C
MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params
copy16 #$0102, LD12B copy #2, checkitem_params::menu_item
copy #1, checkitem_params::check
MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params MGTK_RELAY_CALL2 MGTK::CheckItem, checkitem_params
lda #$01 copy #1, quick_copy_flag
sta quick_copy_flag
lda winfo_dialog::window_id lda winfo_dialog::window_id
jsr set_win_port jsr set_win_port
addr_call draw_title_text, str_disk_copy_padded addr_call draw_title_text, str_disk_copy_padded