mirror of
https://github.com/mi57730/a2d.git
synced 2024-06-08 14:29:30 +00:00
disasm: copy/delete/lock/unlock/size operations
This commit is contained in:
Joshua Bell
parent
4f4a514abe
commit
5a445fa078
|
|
@ -63,6 +63,16 @@ cases, e.g. `HideCursor`, `HideCursorImpl`, etc.
|
|||
: rts
|
||||
```
|
||||
|
||||
* **Do** use [cheap local labels](https://cc65.github.io/doc/ca65.html#ss6.5)
|
||||
to higlight repeated patterns. For example, retries:
|
||||
|
||||
```asm
|
||||
@retry: MLI_CALL GET_FILE_INFO, params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp @retry
|
||||
```
|
||||
|
||||
## Literals
|
||||
|
||||
* Use binary `%00110110` for bit patterns
|
||||
|
|
|
|||
|
|
@ -3546,7 +3546,7 @@ check_drive_flags:
|
|||
tax
|
||||
lda startup_menu_item_1,x
|
||||
sec
|
||||
sbc #$30
|
||||
sbc #'0'
|
||||
clc
|
||||
adc #>$C000 ; compute $Cn00
|
||||
sta reset_and_invoke_target+1
|
||||
|
|
@ -9433,46 +9433,48 @@ do_copy_file:
|
|||
copy #0, operation_flags ; copy/delete
|
||||
tsx
|
||||
stx stack_stash
|
||||
jsr prep_callbacks_for_count_clear_system_bitmap
|
||||
jsr prep_callbacks_for_size_or_count_clear_system_bitmap
|
||||
jsr do_copy_dialog_phase
|
||||
jsr LA271
|
||||
jsr size_or_count_process_selected_file
|
||||
jsr prep_callbacks_for_copy
|
||||
|
||||
do_run2:
|
||||
copy #$FF, LE05B
|
||||
copy #0, LE05C
|
||||
copy #0, delete_skip_decrement_flag
|
||||
jsr copy_file_for_run
|
||||
jsr done_dialog_phase1
|
||||
|
||||
L8F4F: jsr redraw_desktop_and_windows
|
||||
.proc finish_operation
|
||||
jsr redraw_desktop_and_windows
|
||||
return #0
|
||||
.endproc
|
||||
|
||||
;; Unreferenced???
|
||||
jsr prep_grafport3
|
||||
jmp L8F4F
|
||||
jmp finish_operation
|
||||
|
||||
do_delete_file:
|
||||
copy #0, operation_flags ; copy/delete
|
||||
tsx
|
||||
stx stack_stash
|
||||
jsr prep_callbacks_for_count_clear_system_bitmap
|
||||
jsr prep_callbacks_for_size_or_count_clear_system_bitmap
|
||||
lda #DeleteDialogLifecycle::open
|
||||
jsr do_delete_dialog_phase
|
||||
jsr LA271
|
||||
jsr size_or_count_process_selected_file
|
||||
jsr done_dialog_phase2
|
||||
jsr prep_callbacks_for_delete
|
||||
jsr delete_file
|
||||
jsr delete_process_selected_file
|
||||
jsr done_dialog_phase1
|
||||
jmp L8F4F
|
||||
jmp finish_operation
|
||||
|
||||
do_run:
|
||||
copy #$80, run_flag
|
||||
copy #%11000000, operation_flags ; get size
|
||||
tsx
|
||||
stx stack_stash
|
||||
jsr prep_callbacks_for_count_clear_system_bitmap
|
||||
jsr prep_callbacks_for_size_or_count_clear_system_bitmap
|
||||
jsr L9984
|
||||
jsr LA271
|
||||
jsr size_or_count_process_selected_file
|
||||
jsr L99BC
|
||||
jmp do_run2
|
||||
|
||||
|
|
@ -9481,11 +9483,11 @@ do_run:
|
|||
|
||||
do_lock:
|
||||
jsr L8FDD
|
||||
jmp L8F4F
|
||||
jmp finish_operation
|
||||
|
||||
do_unlock:
|
||||
jsr L8FE1
|
||||
jmp L8F4F
|
||||
jmp finish_operation
|
||||
|
||||
.proc get_icon_entry_win_type
|
||||
asl a
|
||||
|
|
@ -9525,7 +9527,7 @@ L8FE1: lda #$80 ; lock
|
|||
|
||||
L8FEB: tsx
|
||||
stx stack_stash
|
||||
copy #0, LE05C
|
||||
copy #0, delete_skip_decrement_flag
|
||||
jsr prep_grafport3
|
||||
lda operation_flags
|
||||
beq :+ ; copy/delete
|
||||
|
|
@ -9625,7 +9627,7 @@ L9076: ldy #$FF
|
|||
.proc begin_operation
|
||||
copy #0, L97E4
|
||||
|
||||
jsr prep_callbacks_for_count_clear_system_bitmap
|
||||
jsr prep_callbacks_for_size_or_count_clear_system_bitmap
|
||||
bit operation_flags
|
||||
bvs @size
|
||||
bmi @lock
|
||||
|
|
@ -9696,21 +9698,21 @@ L9114: lda L97E4
|
|||
bmi @lock_or_size
|
||||
bit delete_flag
|
||||
bmi :+
|
||||
jsr copy_file
|
||||
jsr copy_process_selected_file
|
||||
jmp next_icon
|
||||
|
||||
: jsr delete_file
|
||||
: jsr delete_process_selected_file
|
||||
jmp next_icon
|
||||
|
||||
@lock_or_size:
|
||||
bvs @size ; size?
|
||||
jsr lock_file
|
||||
jsr lock_process_selected_file
|
||||
jmp next_icon
|
||||
|
||||
@size: jsr LA271
|
||||
@size: jsr size_or_count_process_selected_file
|
||||
jmp next_icon
|
||||
|
||||
L913D: jsr LA271
|
||||
L913D: jsr size_or_count_process_selected_file
|
||||
|
||||
next_icon:
|
||||
inc icon_count
|
||||
|
|
@ -9750,7 +9752,7 @@ icon_count:
|
|||
|
||||
empty_string:
|
||||
.byte 0
|
||||
.endproc ; operations
|
||||
.endproc ; operations
|
||||
do_delete_file := operations::do_delete_file
|
||||
do_run := operations::do_run
|
||||
do_copy_file := operations::do_copy_file
|
||||
|
|
@ -10524,8 +10526,8 @@ file_entry_buf: .res 48, 0
|
|||
;; overlayed indirect jump table
|
||||
op_jt_addrs_size := 6
|
||||
op_jt_addrs:
|
||||
op_jt_addr1: .addr op_jt1_copy ; defaults are for copy
|
||||
op_jt_addr2: .addr op_jt2_copy
|
||||
op_jt_addr1: .addr copy_process_directory_entry ; defaults are for copy
|
||||
op_jt_addr2: .addr copy_pop_directory
|
||||
op_jt_addr3: .addr do_nothing
|
||||
|
||||
do_nothing: rts
|
||||
|
|
@ -10556,21 +10558,22 @@ L97E4: .byte $00
|
|||
sta entries_read
|
||||
sta entries_read_this_block
|
||||
|
||||
: yax_call JT_MLI_RELAY, OPEN, open_src_dir_params
|
||||
@retry: yax_call JT_MLI_RELAY, OPEN, open_src_dir_params
|
||||
beq :+
|
||||
ldx #$80
|
||||
jsr JT_SHOW_ALERT
|
||||
beq :-
|
||||
beq @retry
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
: lda open_src_dir_params::ref_num
|
||||
sta op_ref_num
|
||||
sta read_src_dir_header_params::ref_num
|
||||
: yax_call JT_MLI_RELAY, READ, read_src_dir_header_params
|
||||
|
||||
@retry2:yax_call JT_MLI_RELAY, READ, read_src_dir_header_params
|
||||
beq :+
|
||||
ldx #$80
|
||||
jsr JT_SHOW_ALERT
|
||||
beq :-
|
||||
beq @retry2
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
: jmp read_file_entry
|
||||
|
|
@ -10579,11 +10582,11 @@ L97E4: .byte $00
|
|||
.proc close_src_dir
|
||||
lda op_ref_num
|
||||
sta close_src_dir_params::ref_num
|
||||
: yax_call JT_MLI_RELAY, CLOSE, close_src_dir_params
|
||||
@retry: yax_call JT_MLI_RELAY, CLOSE, close_src_dir_params
|
||||
beq :+
|
||||
ldx #$80
|
||||
jsr JT_SHOW_ALERT
|
||||
beq :-
|
||||
beq @retry
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
: rts
|
||||
|
|
@ -10593,13 +10596,13 @@ L97E4: .byte $00
|
|||
inc entries_read
|
||||
lda op_ref_num
|
||||
sta read_src_dir_entry_params::ref_num
|
||||
: yax_call JT_MLI_RELAY, READ, read_src_dir_entry_params
|
||||
@retry: yax_call JT_MLI_RELAY, READ, read_src_dir_entry_params
|
||||
beq :+
|
||||
cmp #ERR_END_OF_FILE
|
||||
beq eof
|
||||
ldx #$80
|
||||
jsr JT_SHOW_ALERT
|
||||
beq :-
|
||||
beq @retry
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
: inc entries_read_this_block
|
||||
|
|
@ -10719,10 +10722,17 @@ saved_type_and_length: ; written but not read ???
|
|||
;;; "Copy" (including Drag/Drop) files state and logic
|
||||
;;; ============================================================
|
||||
|
||||
;;; Overlays for copy operation
|
||||
;;; copy_process_selected_file
|
||||
;;; - called for each file in selection; calls process_dir to recurse
|
||||
;;; copy_process_directory_entry
|
||||
;;; - c/o process_dir for each file in dir; skips if dir, copies otherwise
|
||||
;;; copy_pop_directory
|
||||
;;; - c/o process_dir when exiting dir; pops path segment
|
||||
|
||||
;;; Overlays for copy operation (op_jt_addrs)
|
||||
callbacks_for_copy:
|
||||
.addr op_jt1_copy ; Overlay for op_jt_addrs
|
||||
.addr op_jt2_copy
|
||||
.addr copy_process_directory_entry
|
||||
.addr copy_pop_directory
|
||||
.addr do_nothing
|
||||
|
||||
.enum CopyDialogLifecycle
|
||||
|
|
@ -10817,11 +10827,12 @@ L9984: copy #CopyDialogLifecycle::open, copy_dialog_params::phase
|
|||
cancel: jmp close_files_cancel_dialog
|
||||
|
||||
;;; ============================================================
|
||||
;;; Handle copying of a selected file.
|
||||
;;; Calls into the recursion logic of |process_dir| as necessary.
|
||||
|
||||
;; copy logic (for drag/drop only) ???
|
||||
.proc copy_file
|
||||
.proc copy_process_selected_file
|
||||
copy #$80, LE05B
|
||||
copy #0, LE05C
|
||||
copy #0, delete_skip_decrement_flag
|
||||
beq :+ ; always
|
||||
|
||||
for_run:
|
||||
|
|
@ -10841,7 +10852,7 @@ for_run:
|
|||
bne :+
|
||||
lda selected_window_index ; dragging from window?
|
||||
bne :+
|
||||
jmp L9B28
|
||||
jmp copy_dir
|
||||
|
||||
: ldx dst_path_buf
|
||||
ldy src_path_slash_index
|
||||
|
|
@ -10872,10 +10883,10 @@ L9A50: ldx dst_path_buf
|
|||
stx dst_path_buf
|
||||
|
||||
get_src_info:
|
||||
: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp :- ; retry
|
||||
jmp @retry
|
||||
|
||||
: lda src_file_info_params::storage_type
|
||||
cmp #ST_VOLUME_DIRECTORY
|
||||
|
|
@ -10886,7 +10897,7 @@ get_src_info:
|
|||
beq store
|
||||
is_dir: jsr decrement_op_file_count
|
||||
lda #$FF
|
||||
store: sta L9B30
|
||||
store: sta is_dir_flag
|
||||
jsr dec_file_count_and_run_copy_dialog_proc
|
||||
lda op_file_count+1
|
||||
bne :+
|
||||
|
|
@ -10955,34 +10966,39 @@ err: jsr show_error_alert
|
|||
jmp do_create ; retry
|
||||
|
||||
create_ok:
|
||||
lda L9B30
|
||||
beq L9B2D
|
||||
L9B28: jmp process_dir
|
||||
lda is_dir_flag
|
||||
beq copy_file
|
||||
copy_dir: ; also used when dragging a volume icon
|
||||
jmp process_dir
|
||||
|
||||
.byte 0 ; ???
|
||||
.byte 0 ; unused ???
|
||||
done: rts
|
||||
|
||||
L9B2D: jmp do_file_copy
|
||||
copy_file:
|
||||
jmp do_file_copy
|
||||
|
||||
L9B30: .byte 0
|
||||
is_dir_flag:
|
||||
.byte 0
|
||||
|
||||
is_run_flag:
|
||||
.byte 0
|
||||
.endproc
|
||||
copy_file_for_run := copy_file::for_run
|
||||
copy_file_for_run := copy_process_selected_file::for_run
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
src_path_slash_index:
|
||||
.byte 0
|
||||
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
op_jt2_copy:
|
||||
copy_pop_directory:
|
||||
jmp remove_dst_path_segment
|
||||
|
||||
;;; ============================================================
|
||||
;;; Called by |process_dir| to process a single file
|
||||
|
||||
.proc op_jt1_copy
|
||||
.proc copy_process_directory_entry
|
||||
jsr check_escape_key_down
|
||||
beq :+
|
||||
jmp close_files_cancel_dialog
|
||||
|
|
@ -10993,10 +11009,10 @@ op_jt2_copy:
|
|||
|
||||
;; Directory
|
||||
jsr append_to_src_path
|
||||
: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp :-
|
||||
jmp @retry
|
||||
|
||||
: jsr append_to_dst_path
|
||||
jsr dec_file_count_and_run_copy_dialog_proc
|
||||
|
|
@ -11022,10 +11038,10 @@ regular_file:
|
|||
jsr append_to_dst_path
|
||||
jsr append_to_src_path
|
||||
jsr dec_file_count_and_run_copy_dialog_proc
|
||||
: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp :- ; retry
|
||||
jmp @retry
|
||||
|
||||
: jsr check_space_and_show_prompt
|
||||
bcc :+
|
||||
|
|
@ -11051,10 +11067,10 @@ done: rts
|
|||
;;; ============================================================
|
||||
|
||||
.proc check_vol_blocks_free
|
||||
: yax_call JT_MLI_RELAY, GET_FILE_INFO, dst_file_info_params
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, dst_file_info_params
|
||||
beq :+
|
||||
jsr show_error_alert_dst
|
||||
jmp :-
|
||||
jmp @retry
|
||||
|
||||
: sub16 dst_file_info_params::aux_type, dst_file_info_params::blocks_used, blocks_free
|
||||
cmp16 blocks_free, op_block_count
|
||||
|
|
@ -11082,10 +11098,10 @@ done: rts
|
|||
|
||||
.proc check_space
|
||||
;; Size of source
|
||||
: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp :-
|
||||
jmp @retry
|
||||
|
||||
;; If destination doesn't exist, 0 blocks will be reclaimed.
|
||||
: lda #0
|
||||
|
|
@ -11093,12 +11109,12 @@ done: rts
|
|||
sta existing_size+1
|
||||
|
||||
;; Does destination exist?
|
||||
: yax_call JT_MLI_RELAY, GET_FILE_INFO, dst_file_info_params
|
||||
@retry2:yax_call JT_MLI_RELAY, GET_FILE_INFO, dst_file_info_params
|
||||
beq got_exist_size
|
||||
cmp #ERR_FILE_NOT_FOUND
|
||||
beq :+
|
||||
jsr show_error_alert_dst ; retry if destination not present
|
||||
jmp :-
|
||||
jmp @retry2
|
||||
|
||||
got_exist_size:
|
||||
copy16 dst_file_info_params::blocks_used, existing_size
|
||||
|
|
@ -11118,20 +11134,21 @@ got_exist_size:
|
|||
sta vol_path_length
|
||||
|
||||
;; Total blocks/used blocks on destination volume
|
||||
: yax_call JT_MLI_RELAY, GET_FILE_INFO, dst_file_info_params
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, dst_file_info_params
|
||||
beq got_info
|
||||
pha ; on failure, restore path
|
||||
lda saved_length ; in case copy is aborted
|
||||
sta dst_path_buf
|
||||
pla
|
||||
jsr show_error_alert_dst
|
||||
jmp :- ; BUG: Does this need to assign length again???
|
||||
jmp @retry ; BUG: Does this need to assign length again???
|
||||
|
||||
;; Unreferenced???
|
||||
lda vol_path_length
|
||||
sta dst_path_buf
|
||||
jmp :-
|
||||
jmp @retry
|
||||
|
||||
;; Unused???
|
||||
;; Unreferenced???
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
got_info:
|
||||
|
|
@ -11221,10 +11238,10 @@ eof: jsr close_dst
|
|||
jmp set_dst_file_info
|
||||
|
||||
.proc open_src
|
||||
: yax_call JT_MLI_RELAY, OPEN, open_src_params
|
||||
@retry: yax_call JT_MLI_RELAY, OPEN, open_src_params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp :-
|
||||
jmp @retry
|
||||
: rts
|
||||
.endproc
|
||||
|
||||
|
|
@ -11237,12 +11254,12 @@ eof: jsr close_dst
|
|||
.endproc
|
||||
|
||||
.proc open_dst
|
||||
: yax_call JT_MLI_RELAY, OPEN, open_dst_params
|
||||
@retry: yax_call JT_MLI_RELAY, OPEN, open_dst_params
|
||||
beq done
|
||||
cmp #ERR_VOL_NOT_FOUND
|
||||
beq not_found
|
||||
jsr show_error_alert_dst
|
||||
jmp :-
|
||||
jmp @retry
|
||||
|
||||
not_found:
|
||||
jsr show_error_alert_dst
|
||||
|
|
@ -11261,12 +11278,12 @@ done: rts
|
|||
|
||||
.proc read_src
|
||||
copy16 #buf_size, read_src_params::request_count
|
||||
: yax_call JT_MLI_RELAY, READ, read_src_params
|
||||
@retry: yax_call JT_MLI_RELAY, READ, read_src_params
|
||||
beq :+
|
||||
cmp #ERR_END_OF_FILE
|
||||
beq eof
|
||||
jsr show_error_alert
|
||||
jmp :-
|
||||
jmp @retry
|
||||
|
||||
: copy16 read_src_params::trans_count, write_dst_params::request_count
|
||||
ora read_src_params::trans_count
|
||||
|
|
@ -11277,10 +11294,10 @@ eof: copy #$FF, src_eof_flag
|
|||
.endproc
|
||||
|
||||
.proc write_dst
|
||||
: yax_call JT_MLI_RELAY, WRITE, write_dst_params
|
||||
@retry: yax_call JT_MLI_RELAY, WRITE, write_dst_params
|
||||
beq :+
|
||||
jsr show_error_alert_dst
|
||||
jmp :-
|
||||
jmp @retry
|
||||
: yax_call JT_MLI_RELAY, GET_MARK, mark_dst_params
|
||||
rts
|
||||
.endproc
|
||||
|
|
@ -11307,6 +11324,7 @@ src_eof_flag:
|
|||
;;; ============================================================
|
||||
|
||||
.proc try_create_dst
|
||||
;; Copy file_type, aux_type, storage_type
|
||||
ldx #7
|
||||
: lda src_file_info_params,x
|
||||
sta create_params3,x
|
||||
|
|
@ -11353,11 +11371,18 @@ failure:
|
|||
;;; Delete/Trash files dialog state and logic
|
||||
;;; ============================================================
|
||||
|
||||
;;; Overlays for delete operation
|
||||
;;; delete_process_selected_file
|
||||
;;; - called for each file in selection; calls process_dir to recurse
|
||||
;;; delete_process_directory_entry
|
||||
;;; - c/o process_dir for each file in dir; skips if dir, deletes otherwise
|
||||
;;; delete_finish_directory
|
||||
;;; - c/o process_dir when exiting dir; deletes it
|
||||
|
||||
;;; Overlays for delete operation (op_jt_addrs)
|
||||
callbacks_for_delete:
|
||||
.addr op_jt1_delete ; Overlay for op_jt_addrs
|
||||
.addr delete_process_directory_entry
|
||||
.addr do_nothing
|
||||
.addr destroy_with_retry
|
||||
.addr delete_finish_directory
|
||||
|
||||
.proc delete_dialog_params
|
||||
phase: .byte 0
|
||||
|
|
@ -11409,44 +11434,59 @@ count: .word 0
|
|||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
;;; Handle deletion of a selected file.
|
||||
;;; Calls into the recursion logic of |process_dir| as necessary.
|
||||
|
||||
.proc delete_file
|
||||
.proc delete_process_selected_file
|
||||
copy #DeleteDialogLifecycle::show, delete_dialog_params::phase
|
||||
jsr copy_paths_to_src_and_dst_paths
|
||||
L9EE3: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq L9EF4
|
||||
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp L9EE3
|
||||
jmp @retry
|
||||
|
||||
L9EF4: lda src_file_info_params::storage_type
|
||||
sta L9F1D
|
||||
;; Check if it's a regular file or directory
|
||||
: lda src_file_info_params::storage_type
|
||||
sta storage_type
|
||||
cmp #ST_LINKED_DIRECTORY
|
||||
beq L9F02
|
||||
lda #$00
|
||||
beq L9F04
|
||||
L9F02: lda #$FF
|
||||
L9F04: sta L9F1C
|
||||
beq L9F1E
|
||||
jsr process_dir
|
||||
lda L9F1D
|
||||
cmp #$0D
|
||||
bne L9F18
|
||||
copy #$FF, L9F1D
|
||||
L9F18: jmp L9F1E
|
||||
beq :+
|
||||
lda #0
|
||||
beq store
|
||||
: lda #$FF
|
||||
store: sta is_dir_flag
|
||||
beq do_destroy
|
||||
|
||||
;; Recurse, and process directory
|
||||
jsr process_dir
|
||||
|
||||
;; Was it a directory?
|
||||
lda storage_type
|
||||
cmp #ST_LINKED_DIRECTORY
|
||||
bne :+
|
||||
copy #$FF, storage_type ; is this re-checked?
|
||||
: jmp do_destroy
|
||||
|
||||
;; Unreferenced???
|
||||
rts
|
||||
|
||||
L9F1C: .byte 0
|
||||
L9F1D: .byte 0
|
||||
;; Written, not read???
|
||||
is_dir_flag:
|
||||
.byte 0
|
||||
|
||||
L9F1E: bit LE05C
|
||||
bmi L9F26
|
||||
storage_type:
|
||||
.byte 0
|
||||
|
||||
do_destroy:
|
||||
bit delete_skip_decrement_flag
|
||||
bmi :+
|
||||
jsr dec_file_count_and_run_delete_dialog_proc
|
||||
L9F26: jsr decrement_op_file_count
|
||||
L9F29: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
||||
: jsr decrement_op_file_count
|
||||
|
||||
retry: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
||||
beq done
|
||||
cmp #ERR_ACCESS_ERROR
|
||||
bne L9F8E
|
||||
bne error
|
||||
bit all_flag
|
||||
bmi do_it
|
||||
copy #DeleteDialogLifecycle::locked, delete_dialog_params::phase
|
||||
|
|
@ -11459,11 +11499,10 @@ L9F29: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
|||
cmp #PromptResult::yes
|
||||
beq do_it
|
||||
cmp #PromptResult::all
|
||||
bne L9F5F
|
||||
bne :+
|
||||
copy #$80, all_flag
|
||||
bne do_it ; always
|
||||
|
||||
L9F5F: jmp close_files_cancel_dialog
|
||||
: jmp close_files_cancel_dialog
|
||||
|
||||
do_it: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
lda src_file_info_params::access
|
||||
|
|
@ -11474,34 +11513,40 @@ do_it: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
|||
copy #7, src_file_info_params ; param count for SET_FILE_INFO
|
||||
yax_call JT_MLI_RELAY, SET_FILE_INFO, src_file_info_params
|
||||
copy #$A, src_file_info_params ; param count for GET_FILE_INFO
|
||||
jmp L9F29
|
||||
jmp retry
|
||||
|
||||
done: rts
|
||||
|
||||
L9F8E: jsr show_error_alert
|
||||
jmp L9F29
|
||||
error: jsr show_error_alert
|
||||
jmp retry
|
||||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
;;; Called by |process_dir| to process a single file
|
||||
|
||||
.proc op_jt1_delete
|
||||
.proc delete_process_directory_entry
|
||||
;; Cancel if escape pressed
|
||||
jsr check_escape_key_down
|
||||
beq :+
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
: jsr append_to_src_path
|
||||
bit LE05C
|
||||
bit delete_skip_decrement_flag
|
||||
bmi :+
|
||||
jsr dec_file_count_and_run_delete_dialog_proc
|
||||
: jsr decrement_op_file_count
|
||||
: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
|
||||
;; Check file type
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp :-
|
||||
jmp @retry
|
||||
|
||||
;; Directories will be processed separately
|
||||
: lda src_file_info_params::storage_type
|
||||
cmp #ST_LINKED_DIRECTORY
|
||||
beq next_file
|
||||
|
||||
loop: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
||||
beq next_file
|
||||
cmp #ERR_ACCESS_ERROR
|
||||
|
|
@ -11542,13 +11587,16 @@ next_file:
|
|||
rts
|
||||
.endproc
|
||||
|
||||
.proc destroy_with_retry
|
||||
retry: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
||||
;;; ============================================================
|
||||
;;; Delete directory when exiting via traversal
|
||||
|
||||
.proc delete_finish_directory
|
||||
@retry: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
||||
beq done
|
||||
cmp #ERR_ACCESS_ERROR
|
||||
beq done
|
||||
jsr show_error_alert
|
||||
jmp retry
|
||||
jmp @retry
|
||||
done: rts
|
||||
.endproc
|
||||
|
||||
|
|
@ -11561,9 +11609,14 @@ done: rts
|
|||
;;; "Lock"/"Unlock" dialog state and logic
|
||||
;;; ============================================================
|
||||
|
||||
;;; Overlays for lock/unlock operation
|
||||
;;; lock_process_selected_file
|
||||
;;; - called for each file in selection; calls process_dir to recurse
|
||||
;;; lock_process_directory_entry
|
||||
;;; - c/o process_dir for each file in dir; skips if dir, locks otherwise
|
||||
|
||||
;;; Overlays for lock/unlock operation (op_jt_addrs)
|
||||
callbacks_for_lock:
|
||||
.addr op_jt1_lock ; overlay for op_jt_addrs
|
||||
.addr lock_process_directory_entry
|
||||
.addr do_nothing
|
||||
.addr do_nothing
|
||||
|
||||
|
|
@ -11660,7 +11713,11 @@ unlock_dialog_lifecycle:
|
|||
yax_call invoke_dialog_proc, index_unlock_dialog, lock_unlock_dialog_params
|
||||
rts
|
||||
|
||||
.proc lock_file
|
||||
;;; ============================================================
|
||||
;;; Handle locking of a selected file.
|
||||
;;; Calls into the recursion logic of |process_dir| as necessary.
|
||||
|
||||
.proc lock_process_selected_file
|
||||
copy #LockDialogLifecycle::operation, lock_unlock_dialog_params::phase
|
||||
jsr copy_paths_to_src_and_dst_paths
|
||||
ldx dst_path_buf
|
||||
|
|
@ -11673,47 +11730,62 @@ LA123: iny
|
|||
cpy src_path_buf
|
||||
bne LA123
|
||||
stx dst_path_buf
|
||||
LA133: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq LA144
|
||||
jsr show_error_alert
|
||||
jmp LA133
|
||||
|
||||
LA144: lda src_file_info_params::storage_type
|
||||
sta LA169
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp @retry
|
||||
|
||||
: lda src_file_info_params::storage_type
|
||||
sta storage_type
|
||||
cmp #ST_VOLUME_DIRECTORY
|
||||
beq LA156
|
||||
beq is_dir
|
||||
cmp #ST_LINKED_DIRECTORY
|
||||
beq LA156
|
||||
beq is_dir
|
||||
lda #$00
|
||||
beq LA158
|
||||
LA156: lda #$FF
|
||||
LA158: sta LA168
|
||||
beq LA16A
|
||||
beq store
|
||||
is_dir: lda #$FF
|
||||
store: sta is_dir_flag
|
||||
beq do_lock
|
||||
|
||||
;; Process files in directory
|
||||
jsr process_dir
|
||||
lda LA169
|
||||
cmp #$0F
|
||||
bne LA16A
|
||||
|
||||
;; If this wasn't a volume directory, lock it too
|
||||
lda storage_type
|
||||
cmp #ST_VOLUME_DIRECTORY
|
||||
bne do_lock
|
||||
rts
|
||||
|
||||
LA168: .byte 0
|
||||
LA169: .byte 0
|
||||
;; Written, not read???
|
||||
is_dir_flag:
|
||||
.byte 0
|
||||
|
||||
LA16A: jsr LA173
|
||||
storage_type:
|
||||
.byte 0
|
||||
|
||||
do_lock:
|
||||
jsr lock_file_common
|
||||
jmp append_to_src_path
|
||||
.endproc
|
||||
|
||||
op_jt1_lock:
|
||||
;;; ============================================================
|
||||
;;; Called by |process_dir| to process a single file
|
||||
|
||||
lock_process_directory_entry:
|
||||
jsr append_to_src_path
|
||||
;; fall through
|
||||
|
||||
.proc LA173
|
||||
.proc lock_file_common
|
||||
jsr update_dialog
|
||||
|
||||
jsr decrement_op_file_count
|
||||
: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp :-
|
||||
jmp @retry
|
||||
|
||||
: lda src_file_info_params::storage_type
|
||||
cmp #ST_VOLUME_DIRECTORY
|
||||
beq ok
|
||||
|
|
@ -11750,6 +11822,10 @@ LA1DC: jmp lock_dialog_lifecycle
|
|||
;;; "Get Size" dialog state and logic
|
||||
;;; ============================================================
|
||||
|
||||
;;; Logic also used for "count" operation which precedes most
|
||||
;;; other operations (copy, delete, lock, unlock) to populate
|
||||
;;; confirmation dialog.
|
||||
|
||||
.proc get_size_dialog_params
|
||||
phase: .byte 0
|
||||
.addr op_file_count, op_block_count
|
||||
|
|
@ -11789,16 +11865,17 @@ get_size_rts2:
|
|||
;;; Most operations start by doing a traversal to just count
|
||||
;;; the files.
|
||||
|
||||
callbacks_for_count:
|
||||
.addr op_jt1_size ; overlay for op_jt_addrs
|
||||
;;; Overlays for size operation (op_jt_addrs)
|
||||
callbacks_for_size_or_count:
|
||||
.addr size_or_count_process_directory_entry
|
||||
.addr do_nothing
|
||||
.addr do_nothing
|
||||
|
||||
.proc prep_callbacks_for_count_clear_system_bitmap
|
||||
.proc prep_callbacks_for_size_or_count_clear_system_bitmap
|
||||
copy #0, LA425
|
||||
|
||||
ldy #op_jt_addrs_size-1
|
||||
: copy callbacks_for_count,y, op_jt_addrs,y
|
||||
: copy callbacks_for_size_or_count,y, op_jt_addrs,y
|
||||
dey
|
||||
bpl :-
|
||||
|
||||
|
|
@ -11818,13 +11895,15 @@ callbacks_for_count:
|
|||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
;;; Handle sizing (or just counting) of a selected file.
|
||||
;;; Calls into the recursion logic of |process_dir| as necessary.
|
||||
|
||||
.proc LA271
|
||||
.proc size_or_count_process_selected_file
|
||||
jsr copy_paths_to_src_and_dst_paths
|
||||
: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
@retry: yax_call JT_MLI_RELAY, GET_FILE_INFO, src_file_info_params
|
||||
beq :+
|
||||
jsr show_error_alert
|
||||
jmp :-
|
||||
jmp @retry
|
||||
|
||||
: copy src_file_info_params::storage_type, storage_type
|
||||
cmp #ST_VOLUME_DIRECTORY
|
||||
|
|
@ -11845,6 +11924,7 @@ store: sta is_dir_flag
|
|||
bne do_sum_file_size ; if a subdirectory
|
||||
rts
|
||||
|
||||
;; Written, not read???
|
||||
is_dir_flag:
|
||||
.byte 0
|
||||
|
||||
|
|
@ -11852,14 +11932,13 @@ storage_type:
|
|||
.byte 0
|
||||
|
||||
do_sum_file_size:
|
||||
jmp op_jt1_size
|
||||
jmp size_or_count_process_directory_entry
|
||||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
;;; Called by |process_dir| to process a single file
|
||||
|
||||
;; First pass - visit/count all files ???
|
||||
|
||||
op_jt1_size:
|
||||
size_or_count_process_directory_entry:
|
||||
bit operation_flags
|
||||
bvc :+ ; not size
|
||||
|
||||
|
|
@ -12091,10 +12170,10 @@ LA425: .byte 0 ; ??? only written to (with 0)
|
|||
: lda open_dst_params::ref_num
|
||||
sta set_eof_params::ref_num
|
||||
sta close_dst_params::ref_num
|
||||
: yax_call JT_MLI_RELAY, SET_EOF, set_eof_params
|
||||
@retry: yax_call JT_MLI_RELAY, SET_EOF, set_eof_params
|
||||
beq close
|
||||
jsr show_error_alert_dst
|
||||
jmp :- ; retry
|
||||
jmp @retry
|
||||
|
||||
close: yax_call JT_MLI_RELAY, CLOSE, close_dst_params
|
||||
done: rts
|
||||
|
|
|
|||
|
|
@ -945,7 +945,8 @@ filename_buf:
|
|||
;; Set to $80 for Copy, $FF for Run
|
||||
LE05B: .byte 0
|
||||
|
||||
LE05C: .byte 0 ; flag - always set to 0 ???
|
||||
delete_skip_decrement_flag: ; always set to 0 ???
|
||||
.byte 0
|
||||
|
||||
process_depth:
|
||||
.byte 0 ; tracks recursion depth
|
||||
|
|
|
|||
16
res/go.sh
16
res/go.sh
|
|
@ -4,14 +4,6 @@
|
|||
|
||||
set -e
|
||||
|
||||
cd desktop.system
|
||||
res/go.sh
|
||||
cd ..
|
||||
|
||||
cd ram.system
|
||||
res/go.sh
|
||||
cd ..
|
||||
|
||||
cd desktop
|
||||
res/go.sh
|
||||
cd ..
|
||||
|
|
@ -20,6 +12,14 @@ cd desk.acc
|
|||
res/go.sh
|
||||
cd ..
|
||||
|
||||
cd desktop.system
|
||||
res/go.sh
|
||||
cd ..
|
||||
|
||||
cd ram.system
|
||||
res/go.sh
|
||||
cd ..
|
||||
|
||||
# Mountable directory for Virtual ][
|
||||
if [ -d mount ]; then
|
||||
res/mount.sh
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user