a2d/desktop/ovl5.s

        .setcpu "6502"

;;; NB: Compiled as part of ovl34567.s

;;; ============================================================
;;; Overlay for File Copy
;;; ============================================================

        .org $7000
.proc file_copy_overlay

L7000:  jsr     common_overlay::L5CF7
        jsr     L7052
        jsr     common_overlay::L5E87
        jsr     common_overlay::L5F5B
        jsr     common_overlay::L6161
        jsr     common_overlay::L61B1
        jsr     common_overlay::L606D
        jsr     L7026
        jsr     common_overlay::L6D30
        jsr     common_overlay::L6D27
        lda     #$FF
        sta     $D8EC
        jmp     common_overlay::L5106

L7026:  ldx     L709B
L7029:  lda     L709B+1,x
        sta     $6D1E,x
        dex
        lda     L709B+1,x
        sta     $6D1E,x
        dex
        dex
        bpl     L7029
        lda     #$80
        sta     $5104
        lda     #$00
        sta     path_buf0
        sta     $51AE
        lda     #$01
        sta     path_buf2
        lda     #$06
        sta     $D485
        rts

L7052:  lda     winfo_entrydlg
        jsr     common_overlay::L62C8
        addr_call common_overlay::L5E0A, $DA67  ; "Copy a File ..."
        addr_call common_overlay::L5E57, $DA77  ; "Source filename:"
        addr_call common_overlay::L5E6F, $DA88  ; "Destination filename:"
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; penXOR
        MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
        MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2
        MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport3
        rts

L709B:  .byte   $29             ; length of following data block
        entry   0, L70F1
        entry   0, L71D8

        entry   0, $6593
        entry   0, $664E
        entry   0, $6DC2
        entry   0, $6DD0
        entry   0, $6E1D
        entry   0, $69C6
        entry   0, $6A18
        entry   0, $6A53
        entry   0, $6AAC
        entry   0, $6B01
        entry   0, $6B44
        entry   0, $66D8

L70C6:  .byte   $29             ; length of following data block
        entry   0, L7189
        entry   0, L71F9

        entry   0, $65F0
        entry   0, $6693
        entry   0, $6DC9
        entry   0, $6DD4
        entry   0, $6E31
        entry   0, $6B72
        entry   0, $6BC4
        entry   0, $6BFF
        entry   0, $6C58
        entry   0, $6CAD
        entry   0, $6CF0
        entry   0, $684F

;;; ============================================================

L70F1:  lda     #1
        sta     path_buf2
        lda     #$20
        sta     $D485
        jsr     common_overlay::L6D27

        ldx     L70C6
:       lda     L70C6+1,x
        sta     $6D1E,x
        dex
        lda     L70C6+1,x
        sta     $6D1E,x
        dex
        dex
        bpl     :-

        lda     #$80
        sta     $50A8
        sta     $51AE
        lda     $D920
        sta     $D921
        lda     #$FF
        sta     $D920
        jsr     common_overlay::L5E87
        jsr     common_overlay::L5F5B
        jsr     common_overlay::L6161
        jsr     common_overlay::L61B1

        jsr     common_overlay::L606D
        ldx     $5028
L7137:  lda     $5028,x
        sta     path_buf1,x
        dex
        bpl     L7137
        addr_call common_overlay::L6129, path_buf1  ; path_buf1
        lda     #$01
        sta     path_buf2           ; path_buf2
        lda     #$06
        sta     $D485
        ldx     path_buf0
        beq     L7178
L7156:  lda     path_buf0,x
        and     #$7F
        cmp     #'/'
        beq     L7162
        dex
        bne     L7156
L7162:  ldy     #2
        dex
L7165:  cpx     path_buf0
        beq     L7178
        inx
        lda     path_buf0,x
        sta     path_buf2,y
        inc     path_buf2
        iny
        jmp     L7165

L7178:  jsr     common_overlay::L6D27
        lda     $D8F0
        sta     $D8F1
        lda     $D8F2
        sta     $D8F0
        rts

        .byte   0

;;; ============================================================

L7189:  addr_call common_overlay::L647C, path_buf0
        beq     L7198
L7192:  lda     #$40
        jsr     JUMP_TABLE_ALERT_0
        rts

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     $50A8
        lda     #0
        sta     $D8EC
        jsr     common_overlay::L55BA
        copy16  #path_buf0, $6
        copy16  #path_buf1, $8
        ldx     $50AA
        txs
        return  #$00

        .byte   0

;;; ============================================================

L71D8:  MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg_file_picker
        MGTK_RELAY_CALL MGTK::CloseWindow, winfo_entrydlg
        lda     #0
        sta     $D8EC
        jsr     common_overlay::L55BA
        ldx     $50AA
        txs
        return  #$FF

;;; ============================================================

L71F9:  lda     #1
        sta     path_buf2
        lda     #' '
        sta     $D485
        jsr     common_overlay::L6D27
        ldx     L709B
L7209:  lda     L709B+1,x
        sta     $6D1E,x
        dex
        lda     L709B+1,x
        sta     $6D1E,x
        dex
        dex
        bpl     L7209
        lda     #$01
        sta     path_buf2
        lda     #$06
        sta     $D485
        lda     #$00
        sta     $50A8
        lda     #$FF
        sta     $D920
        lda     #$00
        sta     $51AE
        lda     $D8F0
        sta     $D8F2
        lda     $D8F1
        sta     $D8F0

        ldx     path_buf0
:       lda     path_buf0,x
        sta     $5028,x
        dex
        bpl     :-

        jsr     common_overlay::L5F49
        bit     $D8F0
        bpl     L726D
        jsr     common_overlay::L5E87
        lda     #0
        jsr     common_overlay::L6227
        jsr     common_overlay::L5F5B
        jsr     common_overlay::L6161
        jsr     common_overlay::L61B1
        jsr     common_overlay::L606D
        jsr     common_overlay::L6D27
        jmp     L7295

L726D:  lda     $5028
        bne     L7281
L7272:  jsr     common_overlay::L5E87
        lda     #$00
        jsr     common_overlay::L6227
        jsr     common_overlay::L5F5B
        lda     #$FF
        bne     L7289
L7281:  jsr     common_overlay::L5F5B
        bcs     L7272
        lda     $D921
L7289:  sta     $D920
        jsr     common_overlay::L6163
        jsr     common_overlay::L61B1
        jsr     common_overlay::L606D
L7295:  rts

;;; ============================================================

        PAD_TO $7800
.endproc ; file_copy_overlay