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

overlay disasm

Browse Source
This commit is contained in:
Joshua Bell 2018-12-17 19:01:37 -08:00
parent 6b472d5fdd
commit 896d31c244
4 changed files with 34 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
desktop/ovl4.s
View File

@ -72,11 +72,12 @@ L5105: .byte 0 ; ??? something about the picker
L5106: bit LD8EC
bpl :+
dec prompt_ip_counter
bne :+
jsr jt_02
lda #prompt_insertion_point_blink_count
sta prompt_ip_counter
copy #prompt_insertion_point_blink_count, prompt_ip_counter
: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind
cmp #MGTK::EventKind::button_down
@ -2776,6 +2777,8 @@ L6CFD: inx
jsr L6E9F
rts
;;; Dynamically altered table of handlers for focused
;;; input field (e.g. source/destination filename, etc)
jump_table:
jt_00: jmp 0 ; ok button ???
jt_01: jmp 0 ; cancel button ???

31
desktop/ovl5.s
View File

@ -15,15 +15,14 @@ L7000: jsr common_overlay::create_common_dialog
jsr L7026
jsr common_overlay::jt_06
jsr common_overlay::jt_03
lda #$FF
sta LD8EC
copy #$FF, LD8EC
jmp common_overlay::L5106
L7026: ldx jump_table_entries
L7029: lda jump_table_entries+1,x
L7026: ldx jt_source_filename
L7029: lda jt_source_filename+1,x
sta common_overlay::jump_table,x
dex
lda jump_table_entries+1,x
lda jt_source_filename+1,x
sta common_overlay::jump_table,x
dex
dex
@ -51,7 +50,7 @@ L7052: lda winfo_entrydlg
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
jump_table_entries:
jt_source_filename:
.byte $29 ; length of following data block
jump_table_entry L70F1
jump_table_entry L71D8
@ -68,7 +67,7 @@ jump_table_entries:
jump_table_entry common_overlay::L6B44
jump_table_entry common_overlay::L66D8
jump_table2_entries:
jt_destination_entries:
.byte $29 ; length of following data block
jump_table_entry L7189
jump_table_entry L71F9
@ -93,11 +92,11 @@ L70F1: lda #1
sta path_buf2+1
jsr common_overlay::jt_03
ldx jump_table2_entries
: lda jump_table2_entries+1,x
ldx jt_destination_entries
: lda jt_destination_entries+1,x
sta common_overlay::jump_table,x
dex
lda jump_table2_entries+1,x
lda jt_destination_entries+1,x
sta common_overlay::jump_table,x
dex
dex
@ -166,10 +165,8 @@ L7198: addr_call common_overlay::L647C, path_buf1
bne L7192
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
lda #0
sta common_overlay::L50A8
lda #0
sta LD8EC
copy #0, common_overlay::L50A8
copy #0, LD8EC
jsr common_overlay::set_cursor_pointer
copy16 #path_buf0, $6
copy16 #path_buf1, $8
@ -197,11 +194,11 @@ L71F9: lda #1
lda #' '
sta path_buf2+1
jsr common_overlay::jt_03
ldx jump_table_entries
L7209: lda jump_table_entries+1,x
ldx jt_source_filename
L7209: lda jt_source_filename+1,x
sta common_overlay::jump_table,x
dex
lda jump_table_entries+1,x
lda jt_source_filename+1,x
sta common_overlay::jump_table,x
dex
dex

8
desktop/ovl6.s
View File

@ -19,11 +19,11 @@ L7000: jsr common_overlay::create_common_dialog
sta LD8EC
jmp common_overlay::L5106
L7026: ldx jump_table_entries
L7029: lda jump_table_entries+1,x
L7026: ldx jt_filename
L7029: lda jt_filename+1,x
sta common_overlay::jump_table,x
dex
lda jump_table_entries+1,x
lda jt_filename+1,x
sta common_overlay::jump_table,x
dex
dex
@ -47,7 +47,7 @@ L704D: lda winfo_entrydlg
MGTK_RELAY_CALL MGTK::SetPort, grafport3
rts
jump_table_entries:
jt_filename:
.byte $29 ; length of the following data block
jump_table_entry L70B1
jump_table_entry L70EA

22
desktop/ovl7.s
View File

@ -68,11 +68,11 @@ L709D: .res 16, 0
;;; ============================================================
L70AD: ldx jump_table_entries
L70B0: lda jump_table_entries+1,x
L70AD: ldx jt_pathname
L70B0: lda jt_pathname+1,x
sta common_overlay::jump_table,x
dex
lda jump_table_entries+1,x
lda jt_pathname+1,x
sta common_overlay::jump_table,x
dex
dex
@ -137,7 +137,7 @@ L711D: addr_call common_overlay::L5E6F, enter_the_full_pathname_label2
.byte $00
jump_table_entries: .byte $29
jt_pathname: .byte $29
jump_table_entry L725D
jump_table_entry L732F
jump_table_entry common_overlay::L6593
@ -153,7 +153,7 @@ jump_table_entries: .byte $29
jump_table_entry common_overlay::L6B44
jump_table_entry common_overlay::L66D8
jump_table2_entries: .byte $29
jt_entry_name: .byte $29
jump_table_entry L72CD
jump_table_entry L736C
jump_table_entry common_overlay::L65F0
@ -174,11 +174,11 @@ jump_table2_entries: .byte $29
L725D: copy #1, path_buf2
copy #' ', path_buf2+1
jsr common_overlay::jt_03
ldx jump_table2_entries
L726D: lda jump_table2_entries+1,x
ldx jt_entry_name
L726D: lda jt_entry_name+1,x
sta common_overlay::jump_table,x
dex
lda jump_table2_entries+1,x
lda jt_entry_name+1,x
sta common_overlay::jump_table,x
dex
dex
@ -260,11 +260,11 @@ L732F: MGTK_RELAY_CALL MGTK::InitPort, grafport3
L736C: copy #1, path_buf2
copy #' ', path_buf2+1
jsr common_overlay::jt_03
ldx jump_table_entries
L737C: lda jump_table_entries+1,x
ldx jt_pathname
L737C: lda jt_pathname+1,x
sta common_overlay::jump_table,x
dex
lda jump_table_entries+1,x
lda jt_pathname+1,x
sta common_overlay::jump_table,x
dex
dex