Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-25 21:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Merge origin/disasm

Browse Source
This commit is contained in:
Joshua Bell 2018-12-18 07:43:47 -08:00
parent 1297bbed6b
commit 77e7c3a12e
5 changed files with 459 additions and 294 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

532
desktop/ovl4.s
View File

File diff suppressed because it is too large Load Diff

91
desktop/ovl5.s
View File

@ -13,17 +13,16 @@ L7000: jsr common_overlay::create_common_dialog
jsr common_overlay::L61B1
jsr common_overlay::L606D
jsr L7026
jsr common_overlay::jt_06
jsr common_overlay::jt_03
lda #$FF
sta LD8EC
jsr common_overlay::jt_prep_path
jsr common_overlay::jt_redraw_input
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,39 +50,39 @@ 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
jump_table_entry common_overlay::L6593
jump_table_entry common_overlay::L664E
jump_table_entry common_overlay::L6DC2
jump_table_entry common_overlay::L6DD0
jump_table_entry common_overlay::L6E1D
jump_table_entry common_overlay::L69C6
jump_table_entry common_overlay::L6A18
jump_table_entry common_overlay::L6A53
jump_table_entry common_overlay::L6AAC
jump_table_entry common_overlay::L6B01
jump_table_entry common_overlay::L6B44
jump_table_entry common_overlay::L66D8
jump_table_entry common_overlay::blink_f1_ip
jump_table_entry common_overlay::redraw_f1
jump_table_entry common_overlay::strip_f1_path_segment
jump_table_entry common_overlay::jt_handle_f1_tbd05
jump_table_entry common_overlay::prep_path_buf0
jump_table_entry common_overlay::handle_f1_other_key
jump_table_entry common_overlay::handle_f1_delete_key
jump_table_entry common_overlay::handle_f1_left_key
jump_table_entry common_overlay::handle_f1_right_key
jump_table_entry common_overlay::handle_f1_meta_left_key
jump_table_entry common_overlay::handle_f1_meta_right_key
jump_table_entry common_overlay::handle_f1_click
jump_table2_entries:
jt_destination_entries:
.byte $29 ; length of following data block
jump_table_entry L7189
jump_table_entry L71F9
jump_table_entry common_overlay::L65F0
jump_table_entry common_overlay::L6693
jump_table_entry common_overlay::L6DC9
jump_table_entry common_overlay::L6DD4
jump_table_entry common_overlay::L6E31
jump_table_entry common_overlay::L6B72
jump_table_entry common_overlay::L6BC4
jump_table_entry common_overlay::L6BFF
jump_table_entry common_overlay::L6C58
jump_table_entry common_overlay::L6CAD
jump_table_entry common_overlay::L6CF0
jump_table_entry common_overlay::L684F
jump_table_entry common_overlay::blink_f2_ip
jump_table_entry common_overlay::redraw_f2
jump_table_entry common_overlay::strip_f2_path_segment
jump_table_entry common_overlay::jt_handle_f2_tbd05
jump_table_entry common_overlay::prep_path_buf1
jump_table_entry common_overlay::handle_f2_other_key
jump_table_entry common_overlay::handle_f2_delete_key
jump_table_entry common_overlay::handle_f2_left_key
jump_table_entry common_overlay::handle_f2_right_key
jump_table_entry common_overlay::handle_f2_meta_left_key
jump_table_entry common_overlay::handle_f2_meta_right_key
jump_table_entry common_overlay::handle_f2_click
;;; ============================================================
@ -91,13 +90,13 @@ L70F1: lda #1
sta path_buf2
lda #$20
sta path_buf2+1
jsr common_overlay::jt_03
jsr common_overlay::jt_redraw_input
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
@ -145,7 +144,7 @@ L7165: cpx path_buf0
iny
jmp L7165
L7178: jsr common_overlay::jt_03
L7178: jsr common_overlay::jt_redraw_input
lda LD8F0
sta LD8F1
lda LD8F2
@ -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
@ -196,12 +193,12 @@ L71F9: lda #1
sta path_buf2
lda #' '
sta path_buf2+1
jsr common_overlay::jt_03
ldx jump_table_entries
L7209: lda jump_table_entries+1,x
jsr common_overlay::jt_redraw_input
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
@ -237,7 +234,7 @@ L7209: lda jump_table_entries+1,x
jsr common_overlay::L6161
jsr common_overlay::L61B1
jsr common_overlay::L606D
jsr common_overlay::jt_03
jsr common_overlay::jt_redraw_input
jmp L7295
L726D: lda common_overlay::path_buf

36
desktop/ovl6.s
View File

@ -13,17 +13,17 @@ L7000: jsr common_overlay::create_common_dialog
jsr common_overlay::L61B1
jsr common_overlay::L606D
jsr L7026
jsr common_overlay::jt_06
jsr common_overlay::jt_03
jsr common_overlay::jt_prep_path
jsr common_overlay::jt_redraw_input
lda #$FF
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,22 +47,22 @@ 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
jump_table_entry common_overlay::L6593
jump_table_entry common_overlay::L664E
jump_table_entry common_overlay::L6DC2
jump_table_entry common_overlay::L6DD0
jump_table_entry common_overlay::L6E1D
jump_table_entry common_overlay::L69C6
jump_table_entry common_overlay::L6A18
jump_table_entry common_overlay::L6A53
jump_table_entry common_overlay::L6AAC
jump_table_entry common_overlay::L6B01
jump_table_entry common_overlay::L6B44
jump_table_entry common_overlay::L66D8
jump_table_entry common_overlay::blink_f1_ip
jump_table_entry common_overlay::redraw_f1
jump_table_entry common_overlay::strip_f1_path_segment
jump_table_entry common_overlay::jt_handle_f1_tbd05
jump_table_entry common_overlay::prep_path_buf0
jump_table_entry common_overlay::handle_f1_other_key
jump_table_entry common_overlay::handle_f1_delete_key
jump_table_entry common_overlay::handle_f1_left_key
jump_table_entry common_overlay::handle_f1_right_key
jump_table_entry common_overlay::handle_f1_meta_left_key
jump_table_entry common_overlay::handle_f1_meta_right_key
jump_table_entry common_overlay::handle_f1_click
L70B1: addr_call common_overlay::L647C, path_buf0

84
desktop/ovl7.s
View File

@ -50,11 +50,11 @@ L706A: jsr common_overlay::L6163
jsr common_overlay::L606D
lda path_buf0
bne L707B
jsr common_overlay::jt_06
jsr common_overlay::jt_prep_path
L707B: copy #1, path_buf2
copy #' ', path_buf2+1
jsr common_overlay::jt_03
jsr common_overlay::L6693
jsr common_overlay::jt_redraw_input
jsr common_overlay::redraw_f2
copy #1, path_buf2
copy #' ', path_buf2+1
lda #$FF
@ -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,48 +137,48 @@ 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
jump_table_entry common_overlay::L664E
jump_table_entry common_overlay::L6DC2
jump_table_entry common_overlay::L6DD0
jump_table_entry common_overlay::L6E1D
jump_table_entry common_overlay::L69C6
jump_table_entry common_overlay::L6A18
jump_table_entry common_overlay::L6A53
jump_table_entry common_overlay::L6AAC
jump_table_entry common_overlay::L6B01
jump_table_entry common_overlay::L6B44
jump_table_entry common_overlay::L66D8
jump_table_entry common_overlay::blink_f1_ip
jump_table_entry common_overlay::redraw_f1
jump_table_entry common_overlay::strip_f1_path_segment
jump_table_entry common_overlay::jt_handle_f1_tbd05
jump_table_entry common_overlay::prep_path_buf0
jump_table_entry common_overlay::handle_f1_other_key
jump_table_entry common_overlay::handle_f1_delete_key
jump_table_entry common_overlay::handle_f1_left_key
jump_table_entry common_overlay::handle_f1_right_key
jump_table_entry common_overlay::handle_f1_meta_left_key
jump_table_entry common_overlay::handle_f1_meta_right_key
jump_table_entry common_overlay::handle_f1_click
jump_table2_entries: .byte $29
jt_entry_name: .byte $29
jump_table_entry L72CD
jump_table_entry L736C
jump_table_entry common_overlay::L65F0
jump_table_entry common_overlay::L6693
jump_table_entry common_overlay::L6DC9
jump_table_entry common_overlay::L6DD4
jump_table_entry common_overlay::L6E31
jump_table_entry common_overlay::L6B72
jump_table_entry common_overlay::L6BC4
jump_table_entry common_overlay::L6BFF
jump_table_entry common_overlay::L6C58
jump_table_entry common_overlay::L6CAD
jump_table_entry common_overlay::L6CF0
jump_table_entry common_overlay::L684F
jump_table_entry common_overlay::blink_f2_ip
jump_table_entry common_overlay::redraw_f2
jump_table_entry common_overlay::strip_f2_path_segment
jump_table_entry common_overlay::jt_handle_f2_tbd05
jump_table_entry common_overlay::prep_path_buf1
jump_table_entry common_overlay::handle_f2_other_key
jump_table_entry common_overlay::handle_f2_delete_key
jump_table_entry common_overlay::handle_f2_left_key
jump_table_entry common_overlay::handle_f2_right_key
jump_table_entry common_overlay::handle_f2_meta_left_key
jump_table_entry common_overlay::handle_f2_meta_right_key
jump_table_entry common_overlay::handle_f2_click
;;; ============================================================
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
jsr common_overlay::jt_redraw_input
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
@ -213,7 +213,7 @@ L72AF: iny
sty path_buf1
L72BF: copy #1, path_buf2
copy #GLYPH_INSPT, path_buf2+1
jsr common_overlay::jt_03
jsr common_overlay::jt_redraw_input
rts
L72CD: addr_call common_overlay::L647C, path_buf0
@ -259,19 +259,19 @@ 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
jsr common_overlay::jt_redraw_input
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
bpl L737C
copy #1, path_buf2
copy #GLYPH_INSPT, path_buf2+1
jsr common_overlay::jt_03
jsr common_overlay::jt_redraw_input
lda #$00
sta common_overlay::L5105
sta common_overlay::L51AE

10
macros.inc
View File

@ -667,3 +667,13 @@ loop: lda src,x
.macro COPY_BLOCK block, dst
COPY_BYTES .sizeof(block), block, dst
.endmacro
.macro COPY_STRING src, dst
.scope
ldx src
loop: lda src,x
sta dst,x
dex
bpl loop
.endscope
.endmacro