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 remote-tracking branch 'origin/disasm'

Browse Source
This commit is contained in:
Joshua Bell 2019-01-29 22:56:17 -08:00
commit f67fb001b6
1 changed files with 32 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
desktop/desktop_main.s
View File

@ -1652,14 +1652,16 @@ running_da_flag:
jsr restore_dynamic_routine
jsr set_pointer_cursor
pla
bpl L4CCD
bpl :+
jmp L4CD6
;;; --------------------------------------------------
;; --------------------------------------------------
L4CCD: jsr copy_paths_and_split_name
: jsr copy_paths_and_split_name
jsr redraw_windows_and_desktop
jsr jt_copy_file
L4CD6: pha
jsr set_pointer_cursor
pla
@ -1669,24 +1671,28 @@ L4CD6: pha
: addr_call find_window_for_path, path_buf4
beq :+
pha
jsr L6F0D
jsr update_used_free_for_vol_windows
pla
jmp select_and_refresh_window
;; --------------------------------------------------
;; Update used/free for windows for same vol as path_buf4
: ldy #1
L4CF3: iny
@loop: iny
lda path_buf4,y
cmp #'/'
beq :+
cpy path_buf4
bne L4CF3
bne @loop
iny
: dey
sty path_buf4
addr_call find_windows_for_prefix, path_buf4
ldax #path_buf4
ldy path_buf4
jsr L6F4B
jsr update_vol_used_free_for_found_windows
jmp redraw_windows_and_desktop
.endproc
@ -1784,7 +1790,7 @@ L4D9D: pha
addr_call find_window_for_path, path_buf3
beq L4DC2
pha
jsr L6F0D
jsr update_used_free_for_vol_windows
pla
jmp select_and_refresh_window
@ -1801,7 +1807,7 @@ L4DC2: ldy #1
addr_call find_windows_for_prefix, path_buf3
ldax #path_buf3
ldy path_buf3
jsr L6F4B
jsr update_vol_used_free_for_found_windows
jmp redraw_windows_and_desktop
.endproc
@ -3847,7 +3853,7 @@ L5D77: lda drag_drop_param
cmp trash_icon_num
bne L5D8E
lda active_window_id
jsr L6F0D
jsr update_used_free_for_vol_windows
lda active_window_id
jsr select_and_refresh_window
jmp redraw_windows_and_desktop
@ -3859,7 +3865,7 @@ L5D8E: lda drag_drop_param
L5D99: and #$7F
pha
jsr L6F0D
jsr update_used_free_for_vol_windows
pla
jsr select_and_refresh_window
jmp redraw_windows_and_desktop
@ -4862,7 +4868,7 @@ L6863: lda drag_drop_param
bpl L6872
and #$7F
pha
jsr L6F0D
jsr update_used_free_for_vol_windows
pla
jmp select_and_refresh_window
@ -5038,12 +5044,12 @@ L6A5C: lda (ptr),y
jsr find_windows_for_prefix
ldax #path_buf
ldy path_buf
jmp L6F4B
jmp update_vol_used_free_for_found_windows
L6A80: inx
txa
pha
jsr L6F0D
jsr update_used_free_for_vol_windows
pla
jmp select_and_refresh_window
.endproc
@ -5540,8 +5546,10 @@ flag: .byte 0
.endproc
;;; ============================================================
;;; Refresh vol used/free for windows of same volume as win in A.
;;; Input: A = window id
.proc L6F0D
.proc update_used_free_for_vol_windows
ptr := $6
jsr window_path_lookup
@ -5566,15 +5574,16 @@ finish: sty pathlen
addr_call_indirect find_windows_for_prefix, ptr ; ???
ldax pathptr
ldy pathlen
jmp L6F4B
jmp update_vol_used_free_for_found_windows
pathptr: .addr 0
pathlen: .byte 0
.endproc
;;; ============================================================
;;; Update used/free for results of find_window[s]_for_prefix
.proc L6F4B
.proc update_vol_used_free_for_found_windows
ptr := $6
stax ptr
@ -5587,11 +5596,11 @@ pathlen: .byte 0
jsr get_vol_free_used
bne L6F8F
bne done
lda found_windows_count
beq L6F8F
L6F64: dec found_windows_count
bmi L6F8F
beq done
loop: dec found_windows_count
bmi done
ldx found_windows_count
lda found_windows_list,x
sec
@ -5600,9 +5609,9 @@ L6F64: dec found_windows_count
tax
copy16 vol_kb_used, window_k_used_table,x
copy16 vol_kb_free, window_k_free_table,x
jmp L6F64
jmp loop
L6F8F: rts
done: rts
.endproc
;;; ============================================================