mirror of
https://github.com/mi57730/a2d.git
synced 2025-02-08 13:30:31 +00:00
DeskTop disasm: dialog lifecycle/params
This commit is contained in:
Joshua Bell
parent
a3528536ff
commit
27894b368a
@ -1950,8 +1950,10 @@ fail: rts
|
||||
|
||||
ptr := $06
|
||||
|
||||
L4F67: .byte $00
|
||||
.proc new_folder_dialog_params
|
||||
phase: .byte 0 ; window_id?
|
||||
L4F68: .word 0
|
||||
.endproc
|
||||
|
||||
;; access = destroy/rename/write/read
|
||||
DEFINE_CREATE_PARAMS create_params, path_buffer, ACCESS_DEFAULT, FT_DIRECTORY,, ST_LINKED_DIRECTORY
|
||||
@ -1959,17 +1961,15 @@ L4F68: .word 0
|
||||
path_buffer:
|
||||
.res 65, 0 ; buffer is used elsewhere too
|
||||
|
||||
start: lda active_window_id
|
||||
sta L4F67
|
||||
yax_call launch_dialog, index_new_folder_dialog, L4F67
|
||||
start: copy active_window_id, new_folder_dialog_params::phase
|
||||
yax_call launch_dialog, index_new_folder_dialog, new_folder_dialog_params
|
||||
|
||||
L4FC6: lda active_window_id
|
||||
beq L4FD4
|
||||
jsr window_address_lookup
|
||||
stax L4F68
|
||||
L4FD4: lda #$80
|
||||
sta L4F67
|
||||
yax_call launch_dialog, index_new_folder_dialog, L4F67
|
||||
stax new_folder_dialog_params::L4F68
|
||||
L4FD4: copy #$80, new_folder_dialog_params::phase
|
||||
yax_call launch_dialog, index_new_folder_dialog, new_folder_dialog_params
|
||||
beq :+
|
||||
jmp done ; Cancelled
|
||||
: stx ptr+1
|
||||
@ -1995,15 +1995,14 @@ L4FD4: lda #$80
|
||||
|
||||
;; Failure
|
||||
jsr DESKTOP_SHOW_ALERT0
|
||||
copy16 L504E, L4F68
|
||||
copy16 L504E, new_folder_dialog_params::L4F68
|
||||
jmp L4FC6
|
||||
|
||||
rts ; ???
|
||||
|
||||
success:
|
||||
lda #$40
|
||||
sta L4F67
|
||||
yax_call launch_dialog, index_new_folder_dialog, L4F67
|
||||
copy #$40, new_folder_dialog_params::phase
|
||||
yax_call launch_dialog, index_new_folder_dialog, new_folder_dialog_params
|
||||
addr_call L6F90, path_buffer
|
||||
sty path_buffer
|
||||
addr_call L6FAF, path_buffer
|
||||
@ -9354,7 +9353,7 @@ L8FD2: sta L918A
|
||||
L8FDD: lda #$00
|
||||
beq L8FE3
|
||||
L8FE1: lda #$80
|
||||
L8FE3: sta L918B
|
||||
L8FE3: sta unlock_flag
|
||||
lda #$80
|
||||
sta L9189
|
||||
L8FEB: tsx
|
||||
@ -9555,7 +9554,11 @@ stack_stash:
|
||||
|
||||
L9189: .byte 0
|
||||
L918A: .byte 0
|
||||
L918B: .byte 0
|
||||
|
||||
;; high bit set = unlock, clear = lock
|
||||
unlock_flag:
|
||||
.byte 0
|
||||
|
||||
L918C: .byte 0
|
||||
L918D: .byte 0
|
||||
|
||||
@ -9773,22 +9776,24 @@ L92DB: .byte 0,0
|
||||
|
||||
DEFINE_READ_BLOCK_PARAMS block_params, $0800, $A
|
||||
|
||||
L92E3: .byte $00
|
||||
.proc get_info_dialog_params
|
||||
L92E3: .byte 0
|
||||
L92E4: .word 0
|
||||
L92E6: .byte $00
|
||||
L92E6: .byte 0
|
||||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
;;; Get Info
|
||||
|
||||
.proc do_get_info
|
||||
lda selected_icon_count
|
||||
bne L92ED
|
||||
bne :+
|
||||
rts
|
||||
|
||||
L92ED: lda #$00
|
||||
sta L92E6
|
||||
: lda #$00
|
||||
sta get_info_dialog_params::L92E6
|
||||
jsr L91D5
|
||||
L92F5: ldx L92E6
|
||||
L92F5: ldx get_info_dialog_params::L92E6
|
||||
cpx selected_icon_count
|
||||
bne L9300
|
||||
jmp L9534
|
||||
@ -9798,7 +9803,7 @@ L9300: lda selected_window_index
|
||||
asl a
|
||||
tax
|
||||
copy16 window_address_table,x, $08
|
||||
ldx L92E6
|
||||
ldx get_info_dialog_params::L92E6
|
||||
lda selected_icon_list,x
|
||||
jsr icon_entry_name_lookup
|
||||
jsr join_paths
|
||||
@ -9811,7 +9816,7 @@ L931F: lda path_buf3,y
|
||||
dec $220
|
||||
jmp L9356
|
||||
|
||||
L9331: ldx L92E6
|
||||
L9331: ldx get_info_dialog_params::L92E6
|
||||
lda selected_icon_list,x
|
||||
cmp #$01
|
||||
bne L933E
|
||||
@ -9834,30 +9839,30 @@ L9356: yax_call JT_MLI_RELAY, GET_FILE_INFO, get_file_info_params5
|
||||
L9366: lda selected_window_index
|
||||
beq L9387
|
||||
lda #$80
|
||||
sta L92E3
|
||||
lda L92E6
|
||||
sta get_info_dialog_params::L92E3
|
||||
lda get_info_dialog_params::L92E6
|
||||
clc
|
||||
adc #$01
|
||||
cmp selected_icon_count
|
||||
beq L9381
|
||||
inc L92E3
|
||||
inc L92E3
|
||||
inc get_info_dialog_params::L92E3
|
||||
inc get_info_dialog_params::L92E3
|
||||
L9381: jsr launch_get_info_dialog
|
||||
jmp L93DB
|
||||
|
||||
L9387: lda #$81
|
||||
sta L92E3
|
||||
lda L92E6
|
||||
sta get_info_dialog_params::L92E3
|
||||
lda get_info_dialog_params::L92E6
|
||||
clc
|
||||
adc #$01
|
||||
cmp selected_icon_count
|
||||
beq L939D
|
||||
inc L92E3
|
||||
inc L92E3
|
||||
inc get_info_dialog_params::L92E3
|
||||
inc get_info_dialog_params::L92E3
|
||||
L939D: jsr launch_get_info_dialog
|
||||
lda #$00
|
||||
sta L942E
|
||||
ldx L92E6
|
||||
ldx get_info_dialog_params::L92E6
|
||||
lda selected_icon_list,x
|
||||
ldy #$0F
|
||||
L93AD: cmp device_to_icon_map,y
|
||||
@ -9875,41 +9880,41 @@ L93B8: lda DEVLST,y
|
||||
bne L93DB
|
||||
lda #$80
|
||||
sta L942E
|
||||
L93DB: ldx L92E6
|
||||
L93DB: ldx get_info_dialog_params::L92E6
|
||||
lda selected_icon_list,x
|
||||
jsr icon_entry_name_lookup
|
||||
lda #$01
|
||||
sta L92E3
|
||||
copy16 $06, L92E4
|
||||
sta get_info_dialog_params::L92E3
|
||||
copy16 $06, get_info_dialog_params::L92E4
|
||||
jsr launch_get_info_dialog
|
||||
lda #$02
|
||||
sta L92E3
|
||||
sta get_info_dialog_params::L92E3
|
||||
lda selected_window_index
|
||||
bne L9413
|
||||
bit L942E
|
||||
bmi L940C
|
||||
lda #$00
|
||||
sta L92E4
|
||||
sta get_info_dialog_params::L92E4
|
||||
beq L9428
|
||||
L940C: lda #$01
|
||||
sta L92E4
|
||||
sta get_info_dialog_params::L92E4
|
||||
bne L9428
|
||||
L9413: lda get_file_info_params5::access
|
||||
and #$C3
|
||||
cmp #$C3
|
||||
beq L9423
|
||||
lda #$01
|
||||
sta L92E4
|
||||
sta get_info_dialog_params::L92E4
|
||||
bne L9428
|
||||
L9423: lda #$00
|
||||
sta L92E4
|
||||
sta get_info_dialog_params::L92E4
|
||||
L9428: jsr launch_get_info_dialog
|
||||
jmp L942F
|
||||
|
||||
L942E: .byte 0
|
||||
|
||||
L942F: lda #$03
|
||||
sta L92E3
|
||||
sta get_info_dialog_params::L92E3
|
||||
lda #$00
|
||||
sta $220
|
||||
lda selected_window_index
|
||||
@ -9964,24 +9969,24 @@ L94A9: lda $220,x
|
||||
dex
|
||||
bpl L94A9
|
||||
lda #<path_buf4
|
||||
sta L92E4
|
||||
sta get_info_dialog_params::L92E4
|
||||
lda #>path_buf4
|
||||
sta L92E4+1
|
||||
sta get_info_dialog_params::L92E4+1
|
||||
jsr launch_get_info_dialog
|
||||
lda #$04
|
||||
sta L92E3
|
||||
sta get_info_dialog_params::L92E3
|
||||
copy16 get_file_info_params5::create_date, date
|
||||
jsr JT_DATE_STRING
|
||||
copy16 #text_buffer2::length, L92E4
|
||||
copy16 #text_buffer2::length, get_info_dialog_params::L92E4
|
||||
jsr launch_get_info_dialog
|
||||
lda #$05
|
||||
sta L92E3
|
||||
sta get_info_dialog_params::L92E3
|
||||
copy16 get_file_info_params5::mod_date, date
|
||||
jsr JT_DATE_STRING
|
||||
copy16 #text_buffer2::length, L92E4
|
||||
copy16 #text_buffer2::length, get_info_dialog_params::L92E4
|
||||
jsr launch_get_info_dialog
|
||||
lda #$06
|
||||
sta L92E3
|
||||
sta get_info_dialog_params::L92E3
|
||||
lda selected_window_index
|
||||
bne L9519
|
||||
ldx str_vol
|
||||
@ -9992,10 +9997,10 @@ L950E: lda str_vol,x
|
||||
bmi L951F
|
||||
L9519: lda get_file_info_params5::file_type
|
||||
jsr JT_FILE_TYPE_STRING
|
||||
L951F: copy16 #str_file_type, L92E4
|
||||
L951F: copy16 #str_file_type, get_info_dialog_params::L92E4
|
||||
jsr launch_get_info_dialog
|
||||
bne L9534
|
||||
L952E: inc L92E6
|
||||
L952E: inc get_info_dialog_params::L92E6
|
||||
jmp L92F5
|
||||
|
||||
L9534: lda #$00
|
||||
@ -10006,7 +10011,7 @@ str_vol:
|
||||
PASCAL_STRING " VOL"
|
||||
|
||||
.proc launch_get_info_dialog
|
||||
yax_call launch_dialog, index_get_info_dialog, L92E3
|
||||
yax_call launch_dialog, index_get_info_dialog, get_info_dialog_params
|
||||
rts
|
||||
.endproc
|
||||
.endproc
|
||||
@ -10297,7 +10302,7 @@ L9809: yax_call JT_MLI_RELAY, OPEN, open_params3
|
||||
ldx #$80
|
||||
jsr JT_SHOW_ALERT
|
||||
beq L9809
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
L981E: lda open_params3::ref_num
|
||||
sta LE060
|
||||
@ -10307,7 +10312,7 @@ L9827: yax_call JT_MLI_RELAY, READ, read_params3
|
||||
ldx #$80
|
||||
jsr JT_SHOW_ALERT
|
||||
beq L9827
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
L983C: jmp L985B
|
||||
.endproc
|
||||
@ -10320,7 +10325,7 @@ L9845: yax_call JT_MLI_RELAY, CLOSE, close_params6
|
||||
ldx #$80
|
||||
jsr JT_SHOW_ALERT
|
||||
beq L9845
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
L985A: rts
|
||||
.endproc
|
||||
@ -10336,7 +10341,7 @@ L9864: yax_call JT_MLI_RELAY, READ, read_params4
|
||||
ldx #$80
|
||||
jsr JT_SHOW_ALERT
|
||||
beq L9864
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
L987D: inc LE10D
|
||||
lda LE10D
|
||||
@ -10421,21 +10426,23 @@ L9931: .addr L9B36 ; Overlay for L97DD
|
||||
.addr L9B33
|
||||
.addr rts2
|
||||
|
||||
L9937: .byte 0
|
||||
L9938: .addr 0
|
||||
.proc copy_dialog_params
|
||||
.byte 0
|
||||
count: .addr 0
|
||||
.addr $220
|
||||
.addr path_buf_main
|
||||
.endproc
|
||||
|
||||
.proc L993E
|
||||
lda #0
|
||||
sta L9937
|
||||
sta copy_dialog_params
|
||||
copy16 #L995A, L917D
|
||||
copy16 #L997C, L9180
|
||||
jmp L9BBF
|
||||
|
||||
L995A: stax L9938
|
||||
L995A: stax copy_dialog_params::count
|
||||
lda #1
|
||||
sta L9937
|
||||
sta copy_dialog_params
|
||||
jmp L9BBF
|
||||
.endproc
|
||||
|
||||
@ -10450,20 +10457,20 @@ L996A: lda L9931,y
|
||||
rts
|
||||
|
||||
L997C: lda #5
|
||||
sta L9937
|
||||
sta copy_dialog_params
|
||||
jmp L9BBF
|
||||
|
||||
L9984: lda #0
|
||||
sta L9937
|
||||
sta copy_dialog_params
|
||||
copy16 #L99A7, L917D
|
||||
copy16 #L99DC, L9180
|
||||
yax_call launch_dialog, index_download_dialog, L9937
|
||||
yax_call launch_dialog, index_download_dialog, copy_dialog_params
|
||||
rts
|
||||
|
||||
L99A7: stax L9938
|
||||
L99A7: stax copy_dialog_params::count
|
||||
lda #1
|
||||
sta L9937
|
||||
yax_call launch_dialog, index_download_dialog, L9937
|
||||
sta copy_dialog_params
|
||||
yax_call launch_dialog, index_download_dialog, copy_dialog_params
|
||||
rts
|
||||
|
||||
L99BC: lda #$80
|
||||
@ -10479,18 +10486,18 @@ L99C3: lda L9931,y
|
||||
rts
|
||||
|
||||
L99DC: lda #3
|
||||
sta L9937
|
||||
yax_call launch_dialog, index_download_dialog, L9937
|
||||
sta copy_dialog_params
|
||||
yax_call launch_dialog, index_download_dialog, copy_dialog_params
|
||||
rts
|
||||
|
||||
L99EB: lda #4
|
||||
sta L9937
|
||||
yax_call launch_dialog, index_download_dialog, L9937
|
||||
sta copy_dialog_params
|
||||
yax_call launch_dialog, index_download_dialog, copy_dialog_params
|
||||
cmp #2
|
||||
bne L99FE
|
||||
rts
|
||||
|
||||
L99FE: jmp LA39F
|
||||
L99FE: jmp close_files_cancel_dialog
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
@ -10500,7 +10507,7 @@ L99FE: jmp LA39F
|
||||
L9A0D: lda #$FF
|
||||
L9A0F: sta L9B31
|
||||
lda #2
|
||||
sta L9937
|
||||
sta copy_dialog_params
|
||||
jsr LA379
|
||||
bit L9189
|
||||
bvc L9A22
|
||||
@ -10559,7 +10566,7 @@ L9A95: sta L9B30
|
||||
bne L9AA8
|
||||
lda LA2ED
|
||||
bne L9AA8
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
L9AA8: ldy #$07
|
||||
L9AAA: lda file_info_params2,y
|
||||
@ -10593,11 +10600,11 @@ L9AE0: yax_call JT_MLI_RELAY, CREATE, create_params2
|
||||
bit L918D
|
||||
bmi L9B14
|
||||
lda #3
|
||||
sta L9937
|
||||
sta copy_dialog_params
|
||||
jsr L9BBF
|
||||
pha
|
||||
lda #2
|
||||
sta L9937
|
||||
sta copy_dialog_params
|
||||
pla
|
||||
cmp #$02
|
||||
beq L9B14
|
||||
@ -10610,7 +10617,7 @@ L9AE0: yax_call JT_MLI_RELAY, CREATE, create_params2
|
||||
L9B14: jsr LA426
|
||||
jmp L9B23
|
||||
|
||||
L9B1A: jmp LA39F
|
||||
L9B1A: jmp close_files_cancel_dialog
|
||||
|
||||
L9B1D: jsr show_error_alert
|
||||
jmp L9AE0
|
||||
@ -10641,7 +10648,7 @@ L9B33: jmp LA360
|
||||
.proc L9B36
|
||||
jsr check_escape_key_down
|
||||
beq :+
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
: lda L97BD
|
||||
cmp #$0F
|
||||
bne L9B88
|
||||
@ -10658,7 +10665,7 @@ L9B59: jsr LA33B
|
||||
bne L9B6F
|
||||
lda LA2ED
|
||||
bne L9B6F
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
L9B6F: jsr L9E19
|
||||
bcs L9B7A
|
||||
@ -10681,7 +10688,7 @@ L9B91: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
|
||||
|
||||
L9BA2: jsr L9C01
|
||||
bcc L9BAA
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
L9BAA: jsr remove_path_segment_220
|
||||
jsr L9E19
|
||||
@ -10695,7 +10702,7 @@ L9BBE: rts
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
L9BBF: yax_call launch_dialog, index_copy_file_dialog, L9937
|
||||
L9BBF: yax_call launch_dialog, index_copy_file_dialog, copy_dialog_params
|
||||
rts
|
||||
|
||||
;;; ============================================================
|
||||
@ -10722,12 +10729,12 @@ L9BFF: .word 0
|
||||
jsr L9C1A
|
||||
bcc done
|
||||
lda #4
|
||||
sta L9937
|
||||
sta copy_dialog_params
|
||||
jsr L9BBF
|
||||
beq :+
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
: lda #3
|
||||
sta L9937
|
||||
sta copy_dialog_params
|
||||
sec
|
||||
done: rts
|
||||
|
||||
@ -10773,7 +10780,7 @@ L9C70: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params3
|
||||
sta path_buf_main
|
||||
jmp L9C70
|
||||
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
L9C95: sub16 file_info_params3::aux_type, file_info_params3::blocks_used, L9CD4
|
||||
add16 L9CD4, L9CD8, L9CD4
|
||||
@ -10924,11 +10931,11 @@ L9E26: yax_call JT_MLI_RELAY, CREATE, create_params3
|
||||
bit L918D
|
||||
bmi L9E60
|
||||
lda #3
|
||||
sta L9937
|
||||
yax_call launch_dialog, index_copy_file_dialog, L9937
|
||||
sta copy_dialog_params
|
||||
yax_call launch_dialog, index_copy_file_dialog, copy_dialog_params
|
||||
pha
|
||||
lda #2
|
||||
sta L9937
|
||||
sta copy_dialog_params
|
||||
pla
|
||||
cmp #$02
|
||||
beq L9E60
|
||||
@ -10941,7 +10948,7 @@ L9E26: yax_call JT_MLI_RELAY, CREATE, create_params3
|
||||
L9E60: jsr LA426
|
||||
jmp L9E6F
|
||||
|
||||
L9E66: jmp LA39F
|
||||
L9E66: jmp close_files_cancel_dialog
|
||||
|
||||
L9E69: jsr show_error_alert_dst
|
||||
jmp L9E26
|
||||
@ -10956,29 +10963,29 @@ L9E71: sec
|
||||
L9E73: .addr L9F94 ; Overlay for L97DD
|
||||
.addr rts2
|
||||
.addr destroy_with_retry
|
||||
L9E79: .byte 0
|
||||
L9E7A: .word 0
|
||||
|
||||
.proc delete_file_dialog_params
|
||||
phase: .byte 0
|
||||
count: .word 0
|
||||
.addr $220
|
||||
.endproc
|
||||
|
||||
.proc L9E7E
|
||||
sta L9E79
|
||||
sta delete_file_dialog_params::phase
|
||||
copy16 #L9EB1, L9183
|
||||
copy16 #L9EA3, L917D
|
||||
jsr LA044
|
||||
copy16 #L9ED3, L9180
|
||||
rts
|
||||
|
||||
L9EA3: stax L9E7A
|
||||
lda #1
|
||||
sta L9E79
|
||||
L9EA3: stax delete_file_dialog_params::count
|
||||
copy #1, delete_file_dialog_params::phase
|
||||
jmp LA044
|
||||
|
||||
L9EB1: lda #$02
|
||||
sta L9E79
|
||||
L9EB1: copy #2, delete_file_dialog_params::phase
|
||||
jsr LA044
|
||||
beq L9EBE
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
L9EBE: rts
|
||||
.endproc
|
||||
@ -10998,16 +11005,14 @@ L9EBE: rts
|
||||
.endproc
|
||||
|
||||
.proc L9ED3
|
||||
lda #$05
|
||||
sta L9E79
|
||||
copy #5, delete_file_dialog_params::phase
|
||||
jmp LA044
|
||||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
.proc L9EDB
|
||||
lda #$03
|
||||
sta L9E79
|
||||
copy #3, delete_file_dialog_params::phase
|
||||
jsr LA379
|
||||
L9EE3: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
|
||||
beq L9EF4
|
||||
@ -11046,23 +11051,21 @@ L9F29: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
||||
bne L9F8E
|
||||
bit L918D
|
||||
bmi L9F62
|
||||
lda #$04
|
||||
sta L9E79
|
||||
copy #4, delete_file_dialog_params::phase
|
||||
jsr LA044
|
||||
pha
|
||||
lda #$03
|
||||
sta L9E79
|
||||
copy #3, delete_file_dialog_params::phase
|
||||
pla
|
||||
cmp #$03
|
||||
cmp #3
|
||||
beq L9F8D
|
||||
cmp #$02
|
||||
cmp #2
|
||||
beq L9F62
|
||||
cmp #$04
|
||||
cmp #4
|
||||
bne L9F5F
|
||||
lda #$80
|
||||
sta L918D
|
||||
bne L9F62
|
||||
L9F5F: jmp LA39F
|
||||
L9F5F: jmp close_files_cancel_dialog
|
||||
|
||||
L9F62: yax_call JT_MLI_RELAY, GET_FILE_INFO, file_info_params2
|
||||
lda file_info_params2::access
|
||||
@ -11088,7 +11091,7 @@ L9F8E: jsr show_error_alert
|
||||
.proc L9F94
|
||||
jsr check_escape_key_down
|
||||
beq :+
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
: jsr append_to_path_220
|
||||
bit LE05C
|
||||
bmi L9FA7
|
||||
@ -11108,12 +11111,10 @@ L9FC2: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
||||
bne LA01C
|
||||
bit L918D
|
||||
bmi LA001
|
||||
lda #$04
|
||||
sta L9E79
|
||||
yax_call launch_dialog, index_delete_file_dialog, L9E79
|
||||
copy #4, delete_file_dialog_params::phase
|
||||
yax_call launch_dialog, index_delete_file_dialog, delete_file_dialog_params
|
||||
pha
|
||||
lda #$03
|
||||
sta L9E79
|
||||
copy #3, delete_file_dialog_params::phase
|
||||
pla
|
||||
cmp #$03
|
||||
beq LA022
|
||||
@ -11124,7 +11125,7 @@ L9FC2: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
||||
lda #$80
|
||||
sta L918D
|
||||
bne LA001
|
||||
L9FFE: jmp LA39F
|
||||
L9FFE: jmp close_files_cancel_dialog
|
||||
|
||||
LA001: lda #ACCESS_DEFAULT
|
||||
sta file_info_params2::access
|
||||
@ -11158,55 +11159,71 @@ retry: yax_call JT_MLI_RELAY, DESTROY, destroy_params
|
||||
done: rts
|
||||
.endproc
|
||||
|
||||
LA044: yax_call launch_dialog, index_delete_file_dialog, L9E79
|
||||
LA044: yax_call launch_dialog, index_delete_file_dialog, delete_file_dialog_params
|
||||
rts
|
||||
|
||||
LA04E: .addr LA170
|
||||
.addr rts2
|
||||
.addr rts2
|
||||
LA054: .byte 0
|
||||
LA055: .word 0
|
||||
.addr $220
|
||||
|
||||
LA059: lda #$00
|
||||
sta LA054
|
||||
bit L918B
|
||||
bpl LA085
|
||||
;;; 0 = opening window, initial label
|
||||
;;; 1 = show operation details (e.g. file count)
|
||||
;;; 2 = draw buttons, input loop
|
||||
;;; 3 = performing operation
|
||||
;;; 4 = destroy window
|
||||
|
||||
.enum LockDialogLifecycle
|
||||
open = 0
|
||||
populate = 1
|
||||
loop = 2
|
||||
operation = 3
|
||||
destroy = 4
|
||||
.endenum
|
||||
|
||||
.proc lock_unlock_dialog_params
|
||||
phase: .byte 0
|
||||
files_remaining_count:
|
||||
.word 0
|
||||
.addr $220
|
||||
.endproc
|
||||
|
||||
.proc LA059
|
||||
copy #LockDialogLifecycle::open, lock_unlock_dialog_params::phase
|
||||
bit unlock_flag
|
||||
bpl lock
|
||||
|
||||
copy16 #LA0D1, L9183
|
||||
copy16 #LA0B5, L917D
|
||||
jsr launch_unlock_dialog
|
||||
jsr unlock_dialog_lifecycle
|
||||
copy16 #LA0F8, L9180
|
||||
rts
|
||||
|
||||
LA085: copy16 #LA0C3, L9183
|
||||
lock: copy16 #LA0C3, L9183
|
||||
copy16 #LA0A7, L917D
|
||||
jsr launch_lock_dialog
|
||||
jsr lock_dialog_lifecycle
|
||||
copy16 #LA0F0, L9180
|
||||
rts
|
||||
.endproc
|
||||
|
||||
LA0A7: stax LA055
|
||||
lda #$01
|
||||
sta LA054
|
||||
jmp launch_lock_dialog
|
||||
LA0A7: stax lock_unlock_dialog_params::files_remaining_count
|
||||
copy #LockDialogLifecycle::populate, lock_unlock_dialog_params::phase
|
||||
jmp lock_dialog_lifecycle
|
||||
|
||||
LA0B5: stax LA055
|
||||
lda #$01
|
||||
sta LA054
|
||||
jmp launch_unlock_dialog
|
||||
LA0B5: stax lock_unlock_dialog_params::files_remaining_count
|
||||
copy #LockDialogLifecycle::populate, lock_unlock_dialog_params::phase
|
||||
jmp unlock_dialog_lifecycle
|
||||
|
||||
LA0C3: lda #$02
|
||||
sta LA054
|
||||
jsr launch_lock_dialog
|
||||
LA0C3: copy #LockDialogLifecycle::loop, lock_unlock_dialog_params::phase
|
||||
jsr lock_dialog_lifecycle
|
||||
beq LA0D0
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
LA0D0: rts
|
||||
|
||||
LA0D1: lda #$02
|
||||
sta LA054
|
||||
jsr launch_unlock_dialog
|
||||
LA0D1: copy #LockDialogLifecycle::loop, lock_unlock_dialog_params::phase
|
||||
jsr unlock_dialog_lifecycle
|
||||
beq LA0DE
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
LA0DE: rts
|
||||
|
||||
@ -11221,27 +11238,24 @@ LA0DE: rts
|
||||
rts
|
||||
.endproc
|
||||
|
||||
LA0F0: lda #$04
|
||||
sta LA054
|
||||
jmp launch_lock_dialog
|
||||
LA0F0: copy #LockDialogLifecycle::destroy, lock_unlock_dialog_params::phase
|
||||
jmp lock_dialog_lifecycle
|
||||
|
||||
LA0F8: lda #$04
|
||||
sta LA054
|
||||
jmp launch_unlock_dialog
|
||||
LA0F8: copy #LockDialogLifecycle::destroy, lock_unlock_dialog_params::phase
|
||||
jmp unlock_dialog_lifecycle
|
||||
|
||||
launch_lock_dialog:
|
||||
yax_call launch_dialog, index_lock_dialog, LA054
|
||||
lock_dialog_lifecycle:
|
||||
yax_call launch_dialog, index_lock_dialog, lock_unlock_dialog_params
|
||||
rts
|
||||
|
||||
launch_unlock_dialog:
|
||||
yax_call launch_dialog, index_unlock_dialog, LA054
|
||||
unlock_dialog_lifecycle:
|
||||
yax_call launch_dialog, index_unlock_dialog, lock_unlock_dialog_params
|
||||
rts
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
.proc LA114
|
||||
lda #$03
|
||||
sta LA054
|
||||
copy #LockDialogLifecycle::operation, lock_unlock_dialog_params::phase
|
||||
jsr LA379
|
||||
ldx path_buf_main
|
||||
ldy L9B32
|
||||
@ -11298,7 +11312,7 @@ LA170: jsr append_to_path_220
|
||||
beq LA1C0
|
||||
cmp #ST_LINKED_DIRECTORY
|
||||
beq LA1C0
|
||||
bit L918B
|
||||
bit unlock_flag
|
||||
bpl :+
|
||||
lda #ACCESS_DEFAULT
|
||||
bne LA1A0
|
||||
@ -11315,35 +11329,37 @@ LA1A3: copy #7, file_info_params2 ; param count for SET_FILE_INFO
|
||||
|
||||
LA1C0: jmp remove_path_segment_220
|
||||
|
||||
LA1C3: sub16 LA2ED, #1, LA055
|
||||
bit L918B
|
||||
LA1C3: sub16 LA2ED, #1, lock_unlock_dialog_params::files_remaining_count
|
||||
bit unlock_flag
|
||||
bpl LA1DC
|
||||
jmp launch_unlock_dialog
|
||||
jmp unlock_dialog_lifecycle
|
||||
|
||||
LA1DC: jmp launch_lock_dialog
|
||||
LA1DC: jmp lock_dialog_lifecycle
|
||||
.endproc
|
||||
|
||||
LA1DF: .byte 0
|
||||
.proc get_size_dialog_params
|
||||
phase: .byte 0
|
||||
.addr LA2ED, LA2EF
|
||||
.endproc
|
||||
|
||||
LA1E4: copy #0, LA1DF
|
||||
LA1E4: copy #0, get_size_dialog_params::phase
|
||||
copy16 #LA220, L9183
|
||||
copy16 #LA211, L917D
|
||||
yax_call launch_dialog, index_get_size_dialog, LA1DF
|
||||
yax_call launch_dialog, index_get_size_dialog, get_size_dialog_params
|
||||
copy16 #LA233, L9180
|
||||
rts
|
||||
|
||||
LA211: copy #1, LA1DF
|
||||
yax_call launch_dialog, index_get_size_dialog, LA1DF
|
||||
LA211: copy #1, get_size_dialog_params::phase
|
||||
yax_call launch_dialog, index_get_size_dialog, get_size_dialog_params
|
||||
LA21F: rts
|
||||
|
||||
LA220: copy #2, LA1DF
|
||||
yax_call launch_dialog, index_get_size_dialog, LA1DF
|
||||
LA220: copy #2, get_size_dialog_params::phase
|
||||
yax_call launch_dialog, index_get_size_dialog, get_size_dialog_params
|
||||
beq LA21F
|
||||
jmp LA39F
|
||||
jmp close_files_cancel_dialog
|
||||
|
||||
LA233: copy #3, LA1DF
|
||||
yax_call launch_dialog, index_get_size_dialog, LA1DF
|
||||
LA233: copy #3, get_size_dialog_params::phase
|
||||
yax_call launch_dialog, index_get_size_dialog, get_size_dialog_params
|
||||
LA241: rts
|
||||
|
||||
LA242: .addr LA2AE,rts2,rts2
|
||||
@ -11547,14 +11563,13 @@ LA395: lda path_buf4,y
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
LA39F: jsr L917F
|
||||
jmp LA3A7
|
||||
|
||||
.proc LA3A7_impl
|
||||
.proc close_files_cancel_dialog
|
||||
jsr L917F
|
||||
jmp :+
|
||||
|
||||
DEFINE_CLOSE_PARAMS close_params
|
||||
|
||||
start: yax_call JT_MLI_RELAY, CLOSE, close_params
|
||||
: yax_call JT_MLI_RELAY, CLOSE, close_params
|
||||
lda selected_window_index
|
||||
beq :+
|
||||
sta getwinport_params2::window_id
|
||||
@ -11564,7 +11579,6 @@ start: yax_call JT_MLI_RELAY, CLOSE, close_params
|
||||
txs
|
||||
return #$FF
|
||||
.endproc
|
||||
LA3A7 := LA3A7_impl::start
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
@ -11582,12 +11596,12 @@ nope: lda #$00
|
||||
done: rts
|
||||
.endproc
|
||||
|
||||
LA3EF: sub16 LA2ED, #1, L9E7A
|
||||
yax_call launch_dialog, index_delete_file_dialog, L9E79
|
||||
LA3EF: sub16 LA2ED, #1, delete_file_dialog_params::count
|
||||
yax_call launch_dialog, index_delete_file_dialog, delete_file_dialog_params
|
||||
rts
|
||||
|
||||
LA40A: sub16 LA2ED, #1, L9938
|
||||
yax_call launch_dialog, index_copy_file_dialog, L9937
|
||||
LA40A: sub16 LA2ED, #1, copy_dialog_params::count
|
||||
yax_call launch_dialog, index_copy_file_dialog, copy_dialog_params
|
||||
rts
|
||||
|
||||
LA425: .byte 0
|
||||
@ -11671,7 +11685,7 @@ show: jsr JT_SHOW_ALERT0
|
||||
bne LA4C2
|
||||
jmp do_on_line
|
||||
|
||||
LA4C2: jmp LA39F
|
||||
LA4C2: jmp close_files_cancel_dialog
|
||||
|
||||
flag: .byte 0
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user