a2d/desktop/ovl5.s

265 lines
7.7 KiB
ArmAsm
Raw Normal View History

2018-03-05 05:36:00 +00:00
;;; ============================================================
2018-02-20 05:32:47 +00:00
;;; Overlay for File Copy
2018-03-05 05:36:00 +00:00
;;; ============================================================
2018-02-20 05:32:47 +00:00
2018-02-25 23:19:38 +00:00
.proc file_copy_overlay
.org $7000
2018-02-20 05:32:47 +00:00
2018-05-08 02:35:36 +00:00
L7000: jsr common_overlay::create_common_dialog
2018-02-20 05:32:47 +00:00
jsr L7052
2018-05-17 15:54:22 +00:00
jsr common_overlay::device_on_line
2018-02-26 03:02:34 +00:00
jsr common_overlay::L5F5B
jsr common_overlay::L6161
jsr common_overlay::L61B1
jsr common_overlay::L606D
2018-02-20 05:32:47 +00:00
jsr L7026
2018-05-17 15:54:22 +00:00
jsr common_overlay::jt_06
jsr common_overlay::jt_03
2018-02-20 05:32:47 +00:00
lda #$FF
2018-11-23 17:56:53 +00:00
sta LD8EC
2018-02-26 03:02:34 +00:00
jmp common_overlay::L5106
2018-02-20 05:32:47 +00:00
2018-05-17 15:54:22 +00:00
L7026: ldx jump_table_entries
L7029: lda jump_table_entries+1,x
sta common_overlay::jump_table,x
2018-02-20 05:32:47 +00:00
dex
2018-05-17 15:54:22 +00:00
lda jump_table_entries+1,x
sta common_overlay::jump_table,x
2018-02-20 05:32:47 +00:00
dex
dex
bpl L7029
lda #$80
2018-11-23 17:56:53 +00:00
sta common_overlay::L5104
2018-02-20 05:32:47 +00:00
lda #$00
sta path_buf0
2018-11-23 17:56:53 +00:00
sta common_overlay::L51AE
2018-02-20 05:32:47 +00:00
lda #$01
sta path_buf2
lda #$06
sta path_buf2+1
2018-02-20 05:32:47 +00:00
rts
2018-03-15 04:10:08 +00:00
L7052: lda winfo_entrydlg
2018-05-18 06:54:10 +00:00
jsr common_overlay::set_port_for_window
addr_call common_overlay::L5E0A, copy_a_file_label
addr_call common_overlay::L5E57, source_filename_label
addr_call common_overlay::L5E6F, destination_filename_label
2018-03-02 02:25:42 +00:00
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
2018-05-08 02:35:36 +00:00
MGTK_RELAY_CALL MGTK::FrameRect, common_input1_rect
MGTK_RELAY_CALL MGTK::FrameRect, common_input2_rect
2018-02-22 05:28:13 +00:00
MGTK_RELAY_CALL MGTK::InitPort, grafport3
MGTK_RELAY_CALL MGTK::SetPort, grafport3
2018-02-20 05:32:47 +00:00
rts
2018-05-17 15:54:22 +00:00
jump_table_entries:
.byte $29 ; length of following data block
jump_table_entry L70F1
jump_table_entry L71D8
2018-11-23 17:56:53 +00:00
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
2018-02-20 05:32:47 +00:00
2018-05-17 15:54:22 +00:00
jump_table2_entries:
.byte $29 ; length of following data block
jump_table_entry L7189
jump_table_entry L71F9
2018-11-23 17:56:53 +00:00
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
2018-02-20 05:32:47 +00:00
2018-03-05 05:36:00 +00:00
;;; ============================================================
2018-02-20 05:32:47 +00:00
L70F1: lda #1
sta path_buf2
lda #$20
sta path_buf2+1
2018-05-17 15:54:22 +00:00
jsr common_overlay::jt_03
2018-02-20 05:32:47 +00:00
2018-05-17 15:54:22 +00:00
ldx jump_table2_entries
: lda jump_table2_entries+1,x
2018-11-23 17:56:53 +00:00
sta common_overlay::jump_table,x
2018-02-20 05:32:47 +00:00
dex
2018-05-17 15:54:22 +00:00
lda jump_table2_entries+1,x
2018-11-23 17:56:53 +00:00
sta common_overlay::jump_table,x
2018-02-20 05:32:47 +00:00
dex
dex
bpl :-
lda #$80
2018-11-23 17:50:47 +00:00
sta common_overlay::L50A8
2018-11-23 17:56:53 +00:00
sta common_overlay::L51AE
lda LD920
sta LD921
2018-02-20 05:32:47 +00:00
lda #$FF
2018-11-23 17:56:53 +00:00
sta LD920
2018-05-17 15:54:22 +00:00
jsr common_overlay::device_on_line
2018-02-26 03:02:34 +00:00
jsr common_overlay::L5F5B
jsr common_overlay::L6161
jsr common_overlay::L61B1
2018-02-20 05:32:47 +00:00
2018-02-26 03:02:34 +00:00
jsr common_overlay::L606D
2018-11-23 17:50:47 +00:00
ldx common_overlay::path_buf
L7137: lda common_overlay::path_buf,x
2018-02-20 05:32:47 +00:00
sta path_buf1,x
dex
bpl L7137
2018-05-18 16:07:41 +00:00
addr_call common_overlay::adjust_filename_case, path_buf1 ; path_buf1
2018-02-20 05:32:47 +00:00
lda #$01
sta path_buf2 ; path_buf2
lda #$06
sta path_buf2+1
2018-02-20 05:32:47 +00:00
ldx path_buf0
beq L7178
L7156: lda path_buf0,x
and #CHAR_MASK
2018-02-20 05:32:47 +00:00
cmp #'/'
beq L7162
dex
bne L7156
2018-02-21 04:36:46 +00:00
L7162: ldy #2
2018-02-20 05:32:47 +00:00
dex
L7165: cpx path_buf0
beq L7178
inx
lda path_buf0,x
sta path_buf2,y
inc path_buf2
iny
jmp L7165
2018-05-17 15:54:22 +00:00
L7178: jsr common_overlay::jt_03
2018-11-23 17:56:53 +00:00
lda LD8F0
sta LD8F1
lda LD8F2
sta LD8F0
2018-02-20 05:32:47 +00:00
rts
.byte 0
2018-03-05 05:36:00 +00:00
;;; ============================================================
2018-02-20 05:32:47 +00:00
2018-02-26 03:02:34 +00:00
L7189: addr_call common_overlay::L647C, path_buf0
2018-02-20 05:32:47 +00:00
beq L7198
L7192: lda #$40
2018-02-25 07:19:29 +00:00
jsr JUMP_TABLE_ALERT_0
2018-02-20 05:32:47 +00:00
rts
2018-02-26 03:02:34 +00:00
L7198: addr_call common_overlay::L647C, path_buf1
2018-02-20 05:32:47 +00:00
bne L7192
2018-03-15 03:38:47 +00:00
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
2018-03-15 04:10:08 +00:00
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
2018-02-20 05:32:47 +00:00
lda #0
2018-11-23 17:50:47 +00:00
sta common_overlay::L50A8
2018-02-20 05:32:47 +00:00
lda #0
2018-11-23 17:56:53 +00:00
sta LD8EC
jsr common_overlay::set_cursor_pointer
2018-02-25 21:47:06 +00:00
copy16 #path_buf0, $6
2018-02-20 05:32:47 +00:00
copy16 #path_buf1, $8
2018-11-23 17:56:53 +00:00
ldx common_overlay::stash_stack
2018-02-20 05:32:47 +00:00
txs
2018-02-24 05:11:20 +00:00
return #$00
2018-02-20 05:32:47 +00:00
.byte 0
2018-03-05 05:36:00 +00:00
;;; ============================================================
2018-02-20 05:32:47 +00:00
2018-03-15 03:38:47 +00:00
L71D8: MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
2018-03-15 04:10:08 +00:00
MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
2018-02-20 05:32:47 +00:00
lda #0
2018-11-23 17:56:53 +00:00
sta LD8EC
jsr common_overlay::set_cursor_pointer
2018-11-23 17:56:53 +00:00
ldx common_overlay::stash_stack
2018-02-20 05:32:47 +00:00
txs
2018-02-24 05:11:20 +00:00
return #$FF
2018-02-20 05:32:47 +00:00
2018-03-05 05:36:00 +00:00
;;; ============================================================
2018-02-20 05:32:47 +00:00
L71F9: lda #1
sta path_buf2
lda #' '
sta path_buf2+1
2018-05-17 15:54:22 +00:00
jsr common_overlay::jt_03
ldx jump_table_entries
L7209: lda jump_table_entries+1,x
2018-11-23 17:56:53 +00:00
sta common_overlay::jump_table,x
2018-02-20 05:32:47 +00:00
dex
2018-05-17 15:54:22 +00:00
lda jump_table_entries+1,x
2018-11-23 17:56:53 +00:00
sta common_overlay::jump_table,x
2018-02-20 05:32:47 +00:00
dex
dex
bpl L7209
lda #$01
sta path_buf2
lda #$06
sta path_buf2+1
2018-02-20 05:32:47 +00:00
lda #$00
2018-11-23 17:50:47 +00:00
sta common_overlay::L50A8
2018-02-20 05:32:47 +00:00
lda #$FF
2018-11-23 17:56:53 +00:00
sta LD920
2018-02-20 05:32:47 +00:00
lda #$00
2018-11-23 17:56:53 +00:00
sta common_overlay::L51AE
lda LD8F0
sta LD8F2
lda LD8F1
sta LD8F0
2018-02-20 05:32:47 +00:00
ldx path_buf0
: lda path_buf0,x
2018-11-23 17:50:47 +00:00
sta common_overlay::path_buf,x
2018-02-20 05:32:47 +00:00
dex
bpl :-
2018-02-26 03:02:34 +00:00
jsr common_overlay::L5F49
2018-11-23 17:56:53 +00:00
bit LD8F0
2018-02-20 05:32:47 +00:00
bpl L726D
2018-05-17 15:54:22 +00:00
jsr common_overlay::device_on_line
2018-02-21 04:36:46 +00:00
lda #0
2018-02-26 03:02:34 +00:00
jsr common_overlay::L6227
jsr common_overlay::L5F5B
jsr common_overlay::L6161
jsr common_overlay::L61B1
jsr common_overlay::L606D
2018-05-17 15:54:22 +00:00
jsr common_overlay::jt_03
2018-02-20 05:32:47 +00:00
jmp L7295
2018-11-23 17:50:47 +00:00
L726D: lda common_overlay::path_buf
2018-02-20 05:32:47 +00:00
bne L7281
2018-05-17 15:54:22 +00:00
L7272: jsr common_overlay::device_on_line
2018-02-20 05:32:47 +00:00
lda #$00
2018-02-26 03:02:34 +00:00
jsr common_overlay::L6227
jsr common_overlay::L5F5B
2018-02-20 05:32:47 +00:00
lda #$FF
bne L7289
2018-02-26 03:02:34 +00:00
L7281: jsr common_overlay::L5F5B
2018-02-20 05:32:47 +00:00
bcs L7272
2018-11-23 17:56:53 +00:00
lda LD921
L7289: sta LD920
2018-02-26 03:02:34 +00:00
jsr common_overlay::L6163
jsr common_overlay::L61B1
jsr common_overlay::L606D
2018-02-20 05:32:47 +00:00
L7295: rts
2018-03-05 05:36:00 +00:00
;;; ============================================================
2018-02-25 23:19:38 +00:00
2018-02-20 05:32:47 +00:00
PAD_TO $7800
2018-02-25 23:19:38 +00:00
.endproc ; file_copy_overlay