a2d/desktop/ovl4.s

        .setcpu "6502"

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

;;; ============================================================
;;; Overlay for Common Routines (Selector, File Copy/Delete)
;;; ============================================================

        .org $5000
.proc common_overlay

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

L5000:  jmp     L50B1

        DEFINE_ON_LINE_PARAMS on_line_params,, on_line_buffer
        DEFINE_OPEN_PARAMS open_params, path_buf, $1000
        DEFINE_READ_PARAMS read_params, $1400, $200
        DEFINE_CLOSE_PARAMS close_params

on_line_buffer: .res    16, 0
L5027:  .byte   $00
path_buf:       .res    128, 0
L50A8:  .byte   $00
L50A9:  .byte   $00

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

stash_stack:    .byte   0
routine_table:  .addr   $7000, $7000, $7000

.proc L50B1
        sty     stash_y
        stx     stash_x
        tsx
        stx     stash_stack
        pha
        lda     #0
        sta     L5027
        sta     L50A8
        sta     LD8EB
        sta     LD8EC
        sta     $D8F0
        sta     $D8F1
        sta     $D8F2
        sta     cursor_ip_flag
        sta     L5104
        sta     L5103
        sta     L5105
        lda     #$14
        sta     $D8E9
        lda     #$FF
        sta     $D920
        pla
        asl     a
        tax
        copy16  routine_table,x, jump
        ldy     stash_y
        ldx     stash_x

        jump := * + 1
        jmp     dummy1234

stash_x:        .byte   0
stash_y:        .byte   0
.endproc

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

L5103:  .byte   0
L5104:  .byte   0
L5105:  .byte   0

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

L5106:  bit     LD8EC
        bpl     :+
        dec     $D8E9
        bne     :+
        jsr     L6D24
        lda     #$14
        sta     $D8E9
:       MGTK_RELAY_CALL MGTK::GetEvent, event_params
        lda     event_kind
        cmp     #MGTK::event_kind_button_down
        bne     :+
        jsr     L51AF
        jmp     L5106

:       cmp     #MGTK::event_kind_key_down
        bne     :+
        jsr     L59B9
:       MGTK_RELAY_CALL MGTK::FindWindow, findwindow_params
        lda     findwindow_which_area
        bne     :+
        jmp     L5106
:       lda     findwindow_window_id
        cmp     winfo_entrydlg
        beq     L5151
        jmp     L5106

L5151:  lda     winfo_entrydlg
        jsr     L62C8
        lda     winfo_entrydlg
        sta     screentowindow_window_id
        MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
        MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
        bit     L51AE
        bmi     L5183
        MGTK_RELAY_CALL MGTK::InRect, dialog_rect1
        cmp     #MGTK::inrect_inside
        bne     L5196
        beq     L5190
L5183:  MGTK_RELAY_CALL MGTK::InRect, dialog_rect2
        cmp     #MGTK::inrect_inside
        bne     L5196
L5190:  jsr     set_cursor_insertion
        jmp     L5199

L5196:  jsr     set_cursor_pointer
L5199:  MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport3
        jmp     L5106

L51AE:  .byte   0
L51AF:  MGTK_RELAY_CALL MGTK::FindWindow, findwindow_params
        lda     findwindow_which_area
        bne     L51BE
        rts

L51BE:  cmp     #MGTK::area_content
        bne     :+
        jmp     L51C7

        rts                     ; ???

:       rts

L51C7:  lda     findwindow_window_id
        cmp     winfo_entrydlg
        beq     L51D2
        jmp     L531F

L51D2:  lda     winfo_entrydlg
        jsr     L62C8
        lda     winfo_entrydlg
        sta     screentowindow_window_id
        MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
        MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
        MGTK_RELAY_CALL MGTK::InRect, rect_D9E0
        cmp     #MGTK::inrect_inside
        beq     L5200
        jmp     L5239

L5200:  bit     L5105
        bmi     L520A
        lda     $D920
        bpl     L520D
L520A:  jmp     L5308

L520D:  tax
        lda     $1780,x
        bmi     L5216
L5213:  jmp     L5308

L5216:  lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E0
        jsr     L5888
        bmi     L5213
        jsr     L5607
        jmp     L5308

L5239:  MGTK_RELAY_CALL MGTK::InRect, rect_D9F0
        cmp     #MGTK::inrect_inside
        beq     L5249
        jmp     L526B

L5249:  bit     L5105
        bmi     L5268
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9F0
        jsr     L590E
        bmi     L5268
        jsr     L565C
L5268:  jmp     L5308

L526B:  MGTK_RELAY_CALL MGTK::InRect, rect_D9D0
        cmp     #MGTK::inrect_inside
        beq     L527B
        jmp     L529D

L527B:  bit     L5105
        bmi     L529A
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D0
        jsr     L577C
        bmi     L529A
        jsr     L567F
L529A:  jmp     L5308

L529D:  MGTK_RELAY_CALL MGTK::InRect, rect_D9D8
        cmp     #MGTK::inrect_inside
        beq     L52AD
        jmp     L52CD

L52AD:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D8
        jsr     L56F6
        bmi     L52CA
        jsr     L6D42
        jsr     L6D1E
L52CA:  jmp     L5308

L52CD:  MGTK_RELAY_CALL MGTK::InRect, rect_D9E8
        cmp     #MGTK::inrect_inside
        beq     L52DD
        jmp     L52FA

L52DD:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E8
        jsr     L5802
        bmi     L52F7
        jsr     L6D21
L52F7:  jmp     L5308

L52FA:  bit     L5103
        bpl     L5304
        jsr     L531B
        bmi     L5308
L5304:  jsr     L6D45
        rts

L5308:  MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport2
        rts

L531B:  jsr     L59B8
        rts

L531F:  bit     L5105
        bmi     L5340
        MGTK_RELAY_CALL MGTK::FindControl, findcontrol_params
        lda     findcontrol_which_ctl
        beq     L5341
        cmp     #MGTK::ctl_vertical_scroll_bar
        bne     L5340
        lda     winfo_entrydlg_file_picker_vscroll
        and     #$01
        beq     L5340
        jmp     L5469

L5340:  rts

L5341:  lda     winfo_entrydlg_file_picker
        sta     screentowindow_window_id
        MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
        add16   screentowindow_windowy, winfo_entrydlg_file_picker_cliprect+2, screentowindow_windowy
        lsr16   screentowindow_windowy
        lsr16   screentowindow_windowy
        lsr16   screentowindow_windowy
        lda     $D920
        cmp     screentowindow_windowy
        beq     L5380
        jmp     L542F

L5380:  jsr     L5C4F
        beq     L5386
        rts

L5386:  ldx     $D920
        lda     $1780,x
        bmi     L53B5
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D8
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D8
        jsr     L6D1E
        jmp     L5340

L53B5:  and     #$7F
        pha
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E0
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E0
        lda     #$00
        sta     L542E
        copy16  #$1800, $08
        pla
        asl     a
        rol     L542E
        asl     a
        rol     L542E
        asl     a
        rol     L542E
        asl     a
        rol     L542E
        clc
        adc     $08
        sta     $08
        lda     L542E
        adc     $09
        sta     $09
        ldx     $09
        lda     $08
        jsr     L5F0D
        jsr     L5F5B
        jsr     L6161
        lda     #$00
        jsr     L6227
        jsr     L61B1
        jsr     L606D
        MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport2
        rts

L542E:  .byte   0

L542F:  lda     screentowindow_windowy
        cmp     $177F
        bcc     L5438
        rts

L5438:  lda     $D920
        bmi     L5446
        jsr     L6D2A
        lda     $D920
        jsr     L6274
L5446:  lda     screentowindow_windowy
        sta     $D920
        bit     $D8F0
        bpl     L5457
        jsr     L6D30
        jsr     L6D27
L5457:  lda     $D920
        jsr     L6274
        jsr     L6D2D
        jsr     L5C4F
        bmi     L5468
        jmp     L5386

L5468:  rts

L5469:  lda     findcontrol_which_part
        cmp     #MGTK::part_up_arrow
        bne     L5473
        jmp     L550A

L5473:  cmp     #MGTK::part_down_arrow
        bne     L547A
        jmp     L5533

L547A:  cmp     #MGTK::part_page_up
        bne     L5481
        jmp     L54BA

L5481:  cmp     #MGTK::part_page_down
        bne     L5488
        jmp     L54DF

L5488:  lda     #MGTK::ctl_vertical_scroll_bar
        sta     trackthumb_params
        MGTK_RELAY_CALL MGTK::TrackThumb, trackthumb_params
        lda     trackthumb_thumbmoved
        bne     :+
        rts
:       lda     trackthumb_thumbpos
        sta     updatethumb_thumbpos
        lda     #MGTK::ctl_vertical_scroll_bar
        sta     updatethumb_which_ctl
        MGTK_RELAY_CALL MGTK::UpdateThumb, updatethumb_params
        lda     updatethumb_stash
        jsr     L6227
        jsr     L606D
        rts

L54BA:  lda     winfo_entrydlg_file_picker_vthumbpos
        sec
        sbc     #$09
        bpl     L54C4
        lda     #$00
L54C4:  sta     updatethumb_thumbpos
        lda     #MGTK::ctl_vertical_scroll_bar
        sta     updatethumb_which_ctl
        MGTK_RELAY_CALL MGTK::UpdateThumb, updatethumb_params
        lda     updatethumb_thumbpos
        jsr     L6227
        jsr     L606D
        rts

L54DF:  lda     winfo_entrydlg_file_picker_vthumbpos
        clc
        adc     #$09
        cmp     $177F
        beq     L54EF
        bcc     L54EF
        lda     $177F
L54EF:  sta     updatethumb_thumbpos
        lda     #MGTK::ctl_vertical_scroll_bar
        sta     updatethumb_which_ctl
        MGTK_RELAY_CALL MGTK::UpdateThumb, updatethumb_params
        lda     updatethumb_thumbpos
        jsr     L6227
        jsr     L606D
        rts

L550A:  lda     winfo_entrydlg_file_picker_vthumbpos
        bne     L5510
        rts

L5510:  sec
        sbc     #$01
        sta     updatethumb_thumbpos
        lda     #MGTK::ctl_vertical_scroll_bar
        sta     updatethumb_which_ctl
        MGTK_RELAY_CALL MGTK::UpdateThumb, updatethumb_params
        lda     updatethumb_thumbpos
        jsr     L6227
        jsr     L606D
        jsr     L555F
        jmp     L550A

L5533:  lda     winfo_entrydlg_file_picker_vthumbpos
        cmp     winfo_entrydlg_file_picker_vthumbmax
        bne     L553C
        rts

L553C:  clc
        adc     #$01
        sta     updatethumb_thumbpos
        lda     #MGTK::ctl_vertical_scroll_bar
        sta     updatethumb_which_ctl
        MGTK_RELAY_CALL MGTK::UpdateThumb, updatethumb_params
        lda     updatethumb_thumbpos
        jsr     L6227
        jsr     L606D
        jsr     L555F
        jmp     L5533

L555F:  MGTK_RELAY_CALL MGTK::PeekEvent, event_params
        lda     event_kind
        cmp     #MGTK::event_kind_button_down
        beq     L5576
        cmp     #MGTK::event_kind_drag
        beq     L5576
        pla
        pla
        rts

L5576:  MGTK_RELAY_CALL MGTK::GetEvent, event_params
        MGTK_RELAY_CALL MGTK::FindWindow, findwindow_params
        lda     findwindow_window_id
        cmp     winfo_entrydlg_file_picker
        beq     :+
        pla
        pla
        rts

:       lda     findwindow_which_area
        cmp     #MGTK::area_content
        beq     :+
        pla
        pla
        rts

:       MGTK_RELAY_CALL MGTK::FindControl, findcontrol_params
        lda     findcontrol_which_ctl
        cmp     #MGTK::ctl_vertical_scroll_bar
        beq     :+
        pla
        pla
        rts

:       lda     findcontrol_which_part
        cmp     #MGTK::part_page_up
        bcc     L55B9
        pla
        pla
L55B9:  rts

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

.proc set_cursor_pointer
        bit     cursor_ip_flag
        bpl     done
        MGTK_RELAY_CALL MGTK::HideCursor
        MGTK_RELAY_CALL MGTK::SetCursor, pointer_cursor
        MGTK_RELAY_CALL MGTK::ShowCursor
        lda     #$00
        sta     cursor_ip_flag
done:   rts
.endproc

.proc set_cursor_insertion
        bit     cursor_ip_flag
        bmi     done
        MGTK_RELAY_CALL MGTK::HideCursor
        MGTK_RELAY_CALL MGTK::SetCursor, insertion_point_cursor
        MGTK_RELAY_CALL MGTK::ShowCursor
        lda     #$80
        sta     cursor_ip_flag
done:   rts
.endproc

cursor_ip_flag:                 ; high bit set when cursor is IP
        .byte   0

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

L5607:  ldx     $D920
        lda     $1780,x
        and     #$7F
        pha
        bit     $D8F0
        bpl     L5618
        jsr     L6D30
L5618:  lda     #$00
        sta     L565B
        copy16  #$1800, $08
        pla
        asl     a
        rol     L565B
        asl     a
        rol     L565B
        asl     a
        rol     L565B
        asl     a
        rol     L565B
        clc
        adc     $08
        sta     $08
        lda     L565B
        adc     $09
        sta     $09
        ldx     $09
        lda     $08
        jsr     L5F0D
        jsr     L5F5B
        jsr     L6161
        lda     #$00
        jsr     L6227
        jsr     L61B1
        jsr     L606D
        rts

L565B:  .byte   0
L565C:  lda     #$FF
        sta     $D920
        jsr     L5EB8
        jsr     L5E87
        jsr     L5F5B
        jsr     L6161
        lda     #$00
        jsr     L6227
        jsr     L61B1
        jsr     L606D
        jsr     L6D30
        jsr     L6D27
        rts

L567F:  lda     #$00
        sta     L56E2
        ldx     path_buf
        bne     L568C
        jmp     L56E1

L568C:  lda     path_buf,x
        and     #$7F
        cmp     #$2F
        beq     L569B
        dex
        bpl     L568C
        jmp     L56E1

L569B:  cpx     #$01
        bne     L56A2
        jmp     L56E1

L56A2:  jsr     L5F49
        lda     $D920
        pha
        lda     #$FF
        sta     $D920
        jsr     L5F5B
        jsr     L6161
        lda     #$00
        jsr     L6227
        jsr     L61B1
        jsr     L606D
        pla
        sta     $D920
        bit     L56E2
        bmi     L56D6
        jsr     L6D2A
        lda     $D920
        bmi     L56DC
        jsr     L6D2A
        jmp     L56DC

L56D6:  jsr     L6D30
        jsr     L6D27
L56DC:  lda     #$FF
        sta     $D920
L56E1:  rts

L56E2:  .byte   0
L56E3:  MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport3
        rts

L56F6:  lda     #$00
        sta     L577B
L56FB:  MGTK_RELAY_CALL MGTK::GetEvent, event_params
        lda     event_kind
        cmp     #MGTK::event_kind_button_up
        beq     L575E
        lda     winfo_entrydlg
        sta     screentowindow_window_id
        MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
        MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
        MGTK_RELAY_CALL MGTK::InRect, rect_D9D8
        cmp     #MGTK::inrect_inside
        beq     L5738
        lda     L577B
        beq     L5740
        jmp     L56FB

L5738:  lda     L577B
        bne     L5740
        jmp     L56FB

L5740:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D8
        lda     L577B
        clc
        adc     #$80
        sta     L577B
        jmp     L56FB

L575E:  lda     L577B
        beq     L5766
        return  #$FF

L5766:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D8
        return  #$00

L577B:  .byte   0
L577C:  lda     #$00
        sta     L5801
L5781:  MGTK_RELAY_CALL MGTK::GetEvent, event_params
        lda     event_kind
        cmp     #MGTK::event_kind_button_up
        beq     L57E4
        lda     winfo_entrydlg
        sta     screentowindow_window_id
        MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
        MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
        MGTK_RELAY_CALL MGTK::InRect, rect_D9D0
        cmp     #MGTK::inrect_inside
        beq     L57BE
        lda     L5801
        beq     L57C6
        jmp     L5781

L57BE:  lda     L5801
        bne     L57C6
        jmp     L5781

L57C6:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D0
        lda     L5801
        clc
        adc     #$80
        sta     L5801
        jmp     L5781

L57E4:  lda     L5801
        beq     L57EC
        return  #$FF

L57EC:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D0
        return  #$00

L5801:  .byte   0
L5802:  lda     #$00
        sta     L5887
L5807:  MGTK_RELAY_CALL MGTK::GetEvent, event_params
        lda     event_kind
        cmp     #MGTK::event_kind_button_up
        beq     L586A
        lda     winfo_entrydlg
        sta     screentowindow_window_id
        MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
        MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
        MGTK_RELAY_CALL MGTK::InRect, rect_D9E8
        cmp     #MGTK::inrect_inside
        beq     L5844
        lda     L5887
        beq     L584C
        jmp     L5807

L5844:  lda     L5887
        bne     L584C
        jmp     L5807

L584C:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E8
        lda     L5887
        clc
        adc     #$80
        sta     L5887
        jmp     L5807

L586A:  lda     L5887
        beq     L5872
        return  #$FF

L5872:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E8
        return  #$01

L5887:  .byte   0
L5888:  lda     #$00
        sta     L590D
L588D:  MGTK_RELAY_CALL MGTK::GetEvent, event_params
        lda     event_kind
        cmp     #MGTK::event_kind_button_up
        beq     L58F0
        lda     winfo_entrydlg
        sta     screentowindow_window_id
        MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
        MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
        MGTK_RELAY_CALL MGTK::InRect, rect_D9E0
        cmp     #MGTK::inrect_inside
        beq     L58CA
        lda     L590D
        beq     L58D2
        jmp     L588D

L58CA:  lda     L590D
        bne     L58D2
        jmp     L588D

L58D2:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E0
        lda     L590D
        clc
        adc     #$80
        sta     L590D
        jmp     L588D

L58F0:  lda     L590D
        beq     L58F8
        return  #$FF

L58F8:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E0
        return  #$00

L590D:  .byte   0
L590E:  lda     #$00
        sta     L5993
L5913:  MGTK_RELAY_CALL MGTK::GetEvent, event_params
        lda     event_kind
        cmp     #MGTK::event_kind_button_up
        beq     L5976
        lda     winfo_entrydlg
        sta     screentowindow_window_id
        MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
        MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
        MGTK_RELAY_CALL MGTK::InRect, rect_D9F0
        cmp     #MGTK::inrect_inside
        beq     L5950
        lda     L5993
        beq     L5958
        jmp     L5913

L5950:  lda     L5993
        bne     L5958
        jmp     L5913

L5958:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9F0
        lda     L5993
        clc
        adc     #$80
        sta     L5993
        jmp     L5913

L5976:  lda     L5993
        beq     L597E
        return  #$FF

L597E:  MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9F0
        return  #$01

L5993:  .byte   0

.proc MLI_RELAY
        sty     call
        stax    params
        php
        sei
        sta     ALTZPOFF
        lda     ROMIN2
        jsr     MLI
call:   .byte   0
params: .addr   0
        sta     ALTZPON
        tax
        lda     LCBANK1
        lda     LCBANK1
        plp
        txa
        rts
.endproc

L59B8:  rts

L59B9:  lda     event_modifiers
        beq     L59F7
        lda     event_key
        and     #$7F
        cmp     #CHAR_LEFT
        bne     L59CA
        jmp     L6D3F

L59CA:  cmp     #CHAR_RIGHT
        bne     L59D1
        jmp     L6D42

L59D1:  bit     L5105
        bmi     L59E4
        cmp     #CHAR_DOWN
        bne     L59DD
        jmp     L5C0E

L59DD:  cmp     #CHAR_UP
        bne     L59E4
        jmp     L5BF6

L59E4:  cmp     #'0'
        bcc     L59EF
        cmp     #'9'+1
        bcs     L59EF
        jmp     L5B23

L59EF:  bit     L5105
        bmi     L5A4F
        jmp     L5B70

L59F7:  lda     event_key
        and     #$7F
        cmp     #CHAR_LEFT
        bne     L5A03
        jmp     L6D39

L5A03:  cmp     #CHAR_RIGHT
        bne     L5A0A
        jmp     L6D3C

L5A0A:  cmp     #CHAR_RETURN
        bne     L5A11
        jmp     L5ACC

L5A11:  cmp     #CHAR_ESCAPE
        bne     L5A18
        jmp     L5AF7

L5A18:  cmp     #CHAR_DELETE
        bne     L5A1F
        jmp     L5B1F

L5A1F:  bit     L5105
        bpl     L5A27
        jmp     L5AC4

L5A27:  cmp     #CHAR_TAB
        bne     L5A52
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9F0
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9F0
        jsr     L565C
L5A4F:  jmp     L5AC8

L5A52:  cmp     #$0F
        bne     L5A8B
        lda     $D920
        bmi     L5AC8
        tax
        lda     $1780,x
        bmi     L5A64
        jmp     L5AC8

L5A64:  lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E0
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E0
        jsr     L5607
        jmp     L5AC8

L5A8B:  cmp     #$03
        bne     L5AB6
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D0
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D0
        jsr     L567F
        jmp     L5AC8

L5AB6:  cmp     #$0A
        bne     L5ABD
        jmp     L5B26

L5ABD:  cmp     #$0B
        bne     L5AC4
        jmp     L5B4C

L5AC4:  jsr     L6D33
        rts

L5AC8:  jsr     L56E3
        rts

L5ACC:  lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D8
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9D8
        jsr     L6D42
        jsr     L6D1E
        jsr     L56E3
        rts

L5AF7:  lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E8
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9E8
        jsr     L6D21
        jsr     L56E3
        rts

L5B1F:  jsr     L6D36
        rts

L5B23:  jmp     L59B8

L5B26:  lda     $177F
        beq     L5B37
        lda     $D920
        bmi     L5B47
        tax
        inx
        cpx     $177F
        bcc     L5B38
L5B37:  rts

L5B38:  jsr     L6274
        jsr     L6D2A
        inc     $D920
        lda     $D920
        jmp     L5C2F

L5B47:  lda     #$00
        jmp     L5C2F

L5B4C:  lda     $177F
        beq     L5B58
        lda     $D920
        bmi     L5B68
        bne     L5B59
L5B58:  rts

L5B59:  jsr     L6274
        jsr     L6D2A
        dec     $D920
        lda     $D920
        jmp     L5C2F

L5B68:  ldx     $177F
        dex
        txa
        jmp     L5C2F

L5B70:  cmp     #$41
        bcs     L5B75
L5B74:  rts

L5B75:  cmp     #$5B
        bcc     L5B83
        cmp     #$61
        bcc     L5B74
        cmp     #$7B
        bcs     L5B74
        and     #$5F
L5B83:  jsr     L5B9D
        bmi     L5B74
        cmp     $D920
        beq     L5B74
        pha
        lda     $D920
        bmi     L5B99
        jsr     L6274
        jsr     L6D2A
L5B99:  pla
        jmp     L5C2F

L5B9D:  sta     L5BF5
        lda     #$00
        sta     L5BF3
L5BA5:  lda     L5BF3
        cmp     $177F
        beq     L5BC4
        jsr     L5BCB
        ldy     #$01
        lda     ($06),y
        cmp     L5BF5
        bcc     L5BBE
        beq     L5BC7
        jmp     L5BC4

L5BBE:  inc     L5BF3
        jmp     L5BA5

L5BC4:  return  #$FF

L5BC7:  return  L5BF3

L5BCB:  tax
        lda     $1780,x
        and     #$7F
        ldx     #$00
        stx     L5BF4
        asl     a
        rol     L5BF4
        asl     a
        rol     L5BF4
        asl     a
        rol     L5BF4
        asl     a
        rol     L5BF4
        clc
        adc     #$00
        sta     $06
        lda     L5BF4
        adc     #$18
        sta     $07
        rts

L5BF3:  .byte   0
L5BF4:  .byte   0
L5BF5:  .byte   0
L5BF6:  lda     $177F
        beq     L5C02
        lda     $D920
        bmi     L5C09
        bne     L5C03
L5C02:  rts

L5C03:  jsr     L6274
        jsr     L6D2A
L5C09:  lda     #$00
        jmp     L5C2F

L5C0E:  lda     $177F
        beq     L5C1E
        ldx     $D920
        bmi     L5C27
        inx
        cpx     $177F
        bne     L5C1F
L5C1E:  rts

L5C1F:  dex
        txa
        jsr     L6274
        jsr     L6D2A
L5C27:  ldx     $177F
        dex
        txa
        jmp     L5C2F

L5C2F:  sta     $D920
        jsr     L6D2D
        lda     $D920
        jsr     L6586
        jsr     L6163
        jsr     L606D
        copy16  #$2001, path_buf2
        jsr     L6D27
        rts

L5C4F:  ldx     #$03
L5C51:  lda     screentowindow_screenx,x
        sta     L5CF0,x
        dex
        bpl     L5C51
        lda     machine_type
        sta     L5CEF
L5C60:  dec     L5CEF
        beq     L5CA6
        MGTK_RELAY_CALL MGTK::PeekEvent, event_params
        jsr     L5CA9
        bmi     L5CA6
        lda     #$FF
        sta     L5CF6
        lda     event_kind
        sta     L5CF5
        cmp     #MGTK::event_kind_no_event
        beq     L5C60
        cmp     #MGTK::event_kind_drag
        beq     L5C60
        cmp     #MGTK::event_kind_button_up
        bne     L5C96
        MGTK_RELAY_CALL MGTK::GetEvent, event_params
        jmp     L5C60

L5C96:  cmp     #MGTK::event_kind_button_down
        bne     L5CA6
        MGTK_RELAY_CALL MGTK::GetEvent, event_params
        return  #$00

L5CA6:  return  #$FF

L5CA9:  lda     event_xcoord
        sec
        sbc     L5CF0
        sta     L5CF4
        lda     event_xcoord+1
        sbc     L5CF1
        bpl     L5CC5
        lda     L5CF4
        cmp     #$FB
        bcs     L5CCC
L5CC2:  return  #$FF

L5CC5:  lda     L5CF4
        cmp     #$05
        bcs     L5CC2
L5CCC:  lda     event_ycoord
        sec
        sbc     L5CF2
        sta     L5CF4
        lda     event_ycoord+1
        sbc     L5CF3
        bpl     L5CE5
        lda     L5CF4
        cmp     #$FC
        bcs     L5CEC
L5CE5:  lda     L5CF4
        cmp     #$04
        bcs     L5CC2
L5CEC:  return  #$00

L5CEF:  .byte   0
L5CF0:  .byte   0
L5CF1:  .byte   0
L5CF2:  .byte   0
L5CF3:  .byte   0
L5CF4:  .byte   0
L5CF5:  .byte   0
L5CF6:  .byte   0

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

L5CF7:  MGTK_RELAY_CALL MGTK::OpenWindow, winfo_entrydlg
        MGTK_RELAY_CALL MGTK::OpenWindow, winfo_entrydlg_file_picker
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::FrameRect, rect_D9C0
        MGTK_RELAY_CALL MGTK::FrameRect, rect_D9D8
        MGTK_RELAY_CALL MGTK::FrameRect, rect_D9E0
        MGTK_RELAY_CALL MGTK::FrameRect, rect_D9D0
        MGTK_RELAY_CALL MGTK::FrameRect, rect_D9E8
        MGTK_RELAY_CALL MGTK::FrameRect, rect_D9F0
        jsr     L5D82
        jsr     L5D93
        jsr     L5DA4
        jsr     L5DB5
        jsr     L5DC6
        MGTK_RELAY_CALL MGTK::MoveTo, pos_D9F8
        MGTK_RELAY_CALL MGTK::LineTo, pos_D9FC
        MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport3
        rts

L5D82:  MGTK_RELAY_CALL MGTK::MoveTo, ok_button_pos
        addr_call L5DED, ok_button_label
        rts

L5D93:  MGTK_RELAY_CALL MGTK::MoveTo, open_button_pos
        addr_call L5DED, open_button_label
        rts

L5DA4:  MGTK_RELAY_CALL MGTK::MoveTo, close_button_pos
        addr_call L5DED, close_button_label
        rts

L5DB5:  MGTK_RELAY_CALL MGTK::MoveTo, cancel_button_pos
        addr_call L5DED, cancel_button_label
        rts

L5DC6:  MGTK_RELAY_CALL MGTK::MoveTo, change_drive_button_pos
        addr_call L5DED, change_drive_button_label
        rts

L5DD7:  stax    $06
        ldy     #$00
        lda     ($06),y
        tay
L5DE0:  lda     ($06),y
        sta     $D380,y
        dey
        bpl     L5DE0
        ldax    #$D380
        rts

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

L5DED:  jsr     L5DD7
        stax    $06
        ldy     #$00
        lda     ($06),y
        sta     $08
        inc16   $06
        MGTK_RELAY_CALL MGTK::DrawText, $06
        rts

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

L5E0A:  jsr     L5DD7
        stax    $06
        ldy     #$00
        lda     ($06),y
        sta     $08
        inc16   $06
        MGTK_RELAY_CALL MGTK::TextWidth, $06
        lsr16    $09
        lda     #$01
        sta     L5E56
        lda     #$F4
        lsr     L5E56
        ror     a
        sec
        sbc     $09
        sta     pos_D90B
        lda     L5E56
        sbc     $0A
        sta     pos_D90B+1
        MGTK_RELAY_CALL MGTK::MoveTo, pos_D90B
        MGTK_RELAY_CALL MGTK::DrawText, $06
        rts

L5E56:  .byte   0

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

L5E57:  jsr     L5DD7
        stax    $06
        MGTK_RELAY_CALL MGTK::MoveTo, pos1
        ldax    $06
        jsr     L5DED
        rts

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

L5E6F:  jsr     L5DD7
        stax    $06
        MGTK_RELAY_CALL MGTK::MoveTo, pos2
        ldax    $06
        jsr     L5DED
        rts

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

L5E87:  ldx     L5027
        lda     DEVLST,x
        and     #$F0
        sta     on_line_params::unit_num
        yax_call MLI_RELAY, ON_LINE, on_line_params
        lda     on_line_buffer
        and     #$0F
        sta     on_line_buffer
        bne     L5EAB
        jsr     L5EB8
        jmp     L5E87

L5EAB:  lda     #$00
        sta     path_buf
        addr_call L5F0D, on_line_buffer
        rts

L5EB8:  inc     L5027
        lda     L5027
        cmp     DEVCNT
        beq     L5ECA
        bcc     L5ECA
        lda     #$00
        sta     L5027
L5ECA:  rts

L5ECB:  lda     #$00
        sta     L5F0C
L5ED0:  yax_call MLI_RELAY, OPEN, open_params
        beq     L5EE9
        jsr     L5E87
        lda     #$FF
        sta     $D920
        sta     L5F0C
        jmp     L5ED0

L5EE9:  lda     open_params::ref_num
        sta     read_params::ref_num
        sta     close_params::ref_num
        yax_call MLI_RELAY, READ, read_params
        beq     L5F0B
        jsr     L5E87
        lda     #$FF
        sta     $D920
        sta     L5F0C
        jmp     L5ED0

L5F0B:  rts

L5F0C:  .byte   0
L5F0D:  jsr     L5DD7
        stax    $06
        ldx     path_buf
        lda     #$2F
        sta     path_buf+1,x
        inc     path_buf
        ldy     #$00
        lda     ($06),y
        tay
        clc
        adc     path_buf
        cmp     #$41
        bcc     L5F2F
        return  #$FF

L5F2F:  pha
        tax
L5F31:  lda     ($06),y
        sta     path_buf,x
        dey
        dex
        cpx     path_buf
        bne     L5F31
        pla
        sta     path_buf
        lda     #$FF
        sta     $D920
        return  #$00

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

L5F49:  ldx     path_buf
        cpx     #$00
        beq     L5F5A
        dec     path_buf
        lda     path_buf,x
        cmp     #$2F
        bne     L5F49
L5F5A:  rts

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

L5F5B:  jsr     L5ECB
        lda     #$00
        sta     L6067
        sta     L6068
        sta     L50A9
        lda     #$01
        sta     L6069
        copy16  $1423, L606A
        lda     $1425
        and     #$7F
        sta     $177F
        bne     L5F87
        jmp     L6012

L5F87:  copy16  #$142B, $06
L5F8F:  ldy     #$00
        lda     ($06),y
        and     #$0F
        bne     L5F9A
        jmp     L6007

L5F9A:  ldx     L6067
        txa
        sta     $1780,x
        ldy     #$00
        lda     ($06),y
        and     #$F0
        cmp     #$D0
        beq     L5FB6
        bit     L50A8
        bpl     L5FC1
        inc     L6068
        jmp     L6007

L5FB6:  lda     $1780,x
        ora     #$80
        sta     $1780,x
        inc     L50A9
L5FC1:  ldy     #$00
        lda     ($06),y
        and     #$0F
        sta     ($06),y
        copy16  #$1800, $08
        lda     #$00
        sta     L606C
        lda     L6067
        asl     a
        rol     L606C
        asl     a
        rol     L606C
        asl     a
        rol     L606C
        asl     a
        rol     L606C
        clc
        adc     $08
        sta     $08
        lda     L606C
        adc     $09
        sta     $09
        ldy     #$00
        lda     ($06),y
        tay
L5FFA:  lda     ($06),y
        sta     ($08),y
        dey
        bpl     L5FFA
        inc     L6067
        inc     L6068
L6007:  inc     L6069
        lda     L6068
        cmp     $177F
        bne     L6035
L6012:  yax_call MLI_RELAY, CLOSE, close_params
        bit     L50A8
        bpl     L6026
        lda     L50A9
        sta     $177F
L6026:  jsr     L62DE
        jsr     L64E2
        lda     L5F0C
        bpl     L6033
        sec
        rts

L6033:  clc
        rts

L6035:  lda     L6069
        cmp     L606B
        beq     L604E
        lda     $06
        clc
        adc     L606A
        sta     $06
        lda     $07
        adc     #$00
        sta     $07
        jmp     L5F8F

L604E:  yax_call MLI_RELAY, READ, read_params
        copy16  #$1404, $06
        lda     #$00
        sta     L6069
        jmp     L5F8F

L6067:  .byte   0
L6068:  .byte   0
L6069:  .byte   0
L606A:  .byte   0
L606B:  .byte   0
L606C:  .byte   0

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

L606D:  lda     winfo_entrydlg_file_picker
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::PaintRect, winfo_entrydlg_file_picker_cliprect
        lda     #$10
        sta     pos_D917
        lda     #$08
        sta     pos_D917+2
        lda     #$00
        sta     pos_D917+3
        sta     L6128
L608E:  lda     L6128
        cmp     $177F
        bne     L60A9
        MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport3
        rts

L60A9:  MGTK_RELAY_CALL MGTK::MoveTo, pos_D917
        ldx     L6128
        lda     $1780,x
        and     #$7F
        ldx     #$00
        stx     L6127
        asl     a
        rol     L6127
        asl     a
        rol     L6127
        asl     a
        rol     L6127
        asl     a
        rol     L6127
        clc
        adc     #$00
        tay
        lda     L6127
        adc     #$18
        tax
        tya
        jsr     L5DED
        ldx     L6128
        lda     $1780,x
        bpl     L60FF
        lda     #$01
        sta     pos_D917
        MGTK_RELAY_CALL MGTK::MoveTo, pos_D917
        addr_call L5DED, str_folder
        lda     #$10
        sta     pos_D917
L60FF:  lda     L6128
        cmp     $D920
        bne     L6110
        jsr     L6274
        lda     winfo_entrydlg_file_picker
        jsr     L62C8
L6110:  inc     L6128
        add16   pos_D917+2, #8, pos_D917+2
        jmp     L608E

L6127:  .byte   0
L6128:  .byte   0

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

L6129:  stx     $0B
        sta     $0A
        ldy     #$00
        lda     ($0A),y
        tay
        bne     L6135
        rts

L6135:  dey
        beq     L613A
        bpl     L613B
L613A:  rts

L613B:  lda     ($0A),y
        and     #$7F
        cmp     #$2F
        beq     L6147
        cmp     #$2E
        bne     L614B
L6147:  dey
        jmp     L6135

L614B:  iny
        lda     ($0A),y
        and     #$7F
        cmp     #$41
        bcc     L615D
        cmp     #$5B
        bcs     L615D
        clc
        adc     #$20
        sta     ($0A),y
L615D:  dey
        jmp     L6135

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

L6161:  lda     #$00
L6163:  sta     L61B0
        lda     $177F
        cmp     #$0A
        bcs     L6181
        lda     #MGTK::ctl_vertical_scroll_bar
        sta     activatectl_which_ctl
        lda     #MGTK::activatectl_deactivate
        sta     activatectl_activate
        MGTK_RELAY_CALL MGTK::ActivateCtl, activatectl_params
        rts

L6181:  lda     $177F
        sta     winfo_entrydlg_file_picker_vthumbmax
        .assert MGTK::ctl_vertical_scroll_bar = MGTK::activatectl_activate, error, "need to match"
        lda     #MGTK::ctl_vertical_scroll_bar
        sta     activatectl_which_ctl
        sta     activatectl_activate
        MGTK_RELAY_CALL MGTK::ActivateCtl, activatectl_params
        lda     L61B0
        sta     updatethumb_thumbpos
        jsr     L6227
        lda     #MGTK::ctl_vertical_scroll_bar
        sta     updatethumb_which_ctl
        MGTK_RELAY_CALL MGTK::UpdateThumb, updatethumb_params
        rts

L61B0:  .byte   0

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

L61B1:  lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D9C8
        copy16  #path_buf, $06
        ldy     #$00
        lda     ($06),y
        sta     L6226
        iny
L61D0:  iny
        lda     ($06),y
        cmp     #$2F
        beq     L61DE
        cpy     L6226
        bne     L61D0
        beq     L61E2
L61DE:  dey
        sty     L6226
L61E2:  ldy     #$00
        ldx     #$00
L61E6:  inx
        iny
        lda     ($06),y
        sta     $0220,x
        cpy     L6226
        bne     L61E6
        stx     $0220
        addr_call L6129, $0220
        MGTK_RELAY_CALL MGTK::MoveTo, disk_label_pos
        addr_call L5DED, disk_label
        addr_call L5DED, $0220
        MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport3
        rts

L6226:  .byte   0

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

L6227:  sta     L6273
        clc
        adc     #$09
        cmp     $177F
        beq     L6234
        bcs     L623A
L6234:  lda     L6273
        jmp     L624A

L623A:  lda     $177F
        cmp     #$0A
        bcs     L6247
        lda     L6273
        jmp     L624A

L6247:  sec
        sbc     #$09
L624A:  ldx     #$00
        stx     L6273
        asl     a
        rol     L6273
        asl     a
        rol     L6273
        asl     a
        rol     L6273
        sta     winfo_entrydlg_file_picker_cliprect+2
        ldx     L6273
        stx     winfo_entrydlg_file_picker_cliprect+3
        clc
        adc     #70
        sta     winfo_entrydlg_file_picker_cliprect+6
        lda     L6273
        adc     #0
        sta     winfo_entrydlg_file_picker_cliprect+7
        rts

L6273:  .byte   0


L6274:  ldx     #0
        stx     L62C7
        asl     a
        rol     L62C7
        asl     a
        rol     L62C7
        asl     a
        rol     L62C7
        sta     rect_D90F+2
        ldx     L62C7
        stx     rect_D90F+3
        clc
        adc     #7
        sta     rect_D90F+6
        lda     L62C7
        adc     #0
        sta     rect_D90F+7
        lda     winfo_entrydlg_file_picker
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::PaintRect, rect_D90F
        MGTK_RELAY_CALL MGTK::InitPort, grafport3
        MGTK_RELAY_CALL MGTK::SetPort, grafport3
        rts

L62C7:  .byte   0

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

L62C8:  sta     getwinport_params2 ; window_id
        MGTK_RELAY_CALL MGTK::GetWinPort, getwinport_params2
        MGTK_RELAY_CALL MGTK::SetPort, grafport2
        rts

L62DE:  ldax    #$0F5A
L62E2:  sta     L63C2,x
        dex
        bpl     L62E2
        lda     #$00
        sta     L63BF
        sta     L63BE
L62F0:  lda     L63BF
        cmp     $177F
        bne     L62FB
        jmp     L6377

L62FB:  lda     L63BE
        jsr     L6451
        ldy     #$00
        lda     ($06),y
        bmi     L633D
        and     #$0F
        sta     L63C1
        ldy     #$01
L630E:  lda     ($06),y
        cmp     L63C1,y
        beq     L631A
        bcs     L633D
        jmp     L6322

L631A:  iny
        cpy     #$10
        bne     L630E
        jmp     L633D

L6322:  lda     L63BE
        sta     L63C0
        ldx     #$0F
        lda     #$20
L632C:  sta     L63C2,x
        dex
        bpl     L632C
        ldy     L63C1
L6335:  lda     ($06),y
        sta     L63C1,y
        dey
        bne     L6335
L633D:  inc     L63BE
        lda     L63BE
        cmp     $177F
        beq     L634B
        jmp     L62FB

L634B:  lda     L63C0
        jsr     L6451
        ldy     #$00
        lda     ($06),y
        ora     #$80
        sta     ($06),y
        ldax    #$0F5A
L635D:  sta     L63C2,x
        dex
        bpl     L635D
        ldx     L63BF
        lda     L63C0
        sta     L63D2,x
        lda     #$00
        sta     L63BE
        inc     L63BF
        jmp     L62F0

L6377:  ldx     $177F
        dex
        stx     L63BF
L637E:  lda     L63BF
        bpl     L63AD
        ldx     $177F
        beq     L63AC
        dex
L6389:  lda     L63D2,x
        tay
        lda     $1780,y
        bpl     L639A
        lda     L63D2,x
        ora     #$80
        sta     L63D2,x
L639A:  dex
        bpl     L6389
        ldx     $177F
        beq     L63AC
        dex
L63A3:  lda     L63D2,x
        sta     $1780,x
        dex
        bpl     L63A3
L63AC:  rts

L63AD:  jsr     L6451
        ldy     #$00
        lda     ($06),y
        and     #$7F
        sta     ($06),y
        dec     L63BF
        jmp     L637E

L63BE:  .byte   0
L63BF:  .byte   0
L63C0:  .byte   0
L63C1:  .byte   0
L63C2:  .res 16, 0
L63D2:  .res 127, 0
L6451:  ldx     #$00
        stx     $06
        ldx     #$18
        stx     $07
        ldx     #$00
        stx     L647B
        asl     a
        rol     L647B
        asl     a
        rol     L647B
        asl     a
        rol     L647B
        asl     a
        rol     L647B
        clc
        adc     $06
        sta     $06
        lda     L647B
        adc     $07
        sta     $07
        rts

L647B:  .byte   0

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

L647C:  stax    $06
        ldy     #$01
        lda     ($06),y
        cmp     #$2F
        bne     L64DE
        dey
        lda     ($06),y
        cmp     #$02
        bcc     L64DE
        tay
        lda     ($06),y
        cmp     #$2F
        beq     L64DE
        ldx     #$00
        stx     L64E1
L649B:  lda     ($06),y
        cmp     #$2F
        beq     L64AB
        inx
        cpx     #$10
        beq     L64DE
        dey
        bne     L649B
        beq     L64B3
L64AB:  inc     L64E1
        ldx     #$00
        dey
        bne     L649B
L64B3:  ldy     #$00
        lda     ($06),y
        tay
L64B8:  lda     ($06),y
        and     #$7F
        cmp     #$2E
        beq     L64D8
        cmp     #$2F
        bcc     L64DE
        cmp     #$3A
        bcc     L64D8
        cmp     #$41
        bcc     L64DE
        cmp     #$5B
        bcc     L64D8
        cmp     #$61
        bcc     L64DE
        cmp     #$7B
        bcs     L64DE
L64D8:  dey
        bne     L64B8
        return  #$00

L64DE:  return  #$FF

L64E1:  .byte   0
L64E2:  lda     $177F
        bne     L64E8
L64E7:  rts

L64E8:  lda     #$00
        sta     L6515
        copy16  #$1800, $06
L64F5:  lda     L6515
        cmp     $177F
        beq     L64E7
        lda     $06
        ldx     $07
        jsr     L6129
        inc     L6515
        lda     $06
        clc
        adc     #$10
        sta     $06
        bcc     L64F5
        inc     $07
        jmp     L64F5

L6515:  .byte   0

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

L6516:  stax    $06
        ldy     #$00
        lda     ($06),y
        tay
L651F:  lda     ($06),y
        sta     L6576,y
        dey
        bpl     L651F
        lda     #$00
        sta     L6575
        copy16  #$1800, $06
L6534:  lda     L6575
        cmp     $177F
        beq     L6564
        ldy     #$00
        lda     ($06),y
        cmp     L6576
        bne     L6553
        tay
L6546:  lda     ($06),y
        cmp     L6576,y
        bne     L6553
        dey
        bne     L6546
        jmp     L6567

L6553:  inc     L6575
        lda     $06
        clc
        adc     #$10
        sta     $06
        bcc     L6534
        inc     $07
        jmp     L6534

L6564:  return  #$FF

L6567:  ldx     $177F
        lda     L6575
L656D:  dex
        cmp     $1780,x
        bne     L656D
        txa
        rts

L6575:  .byte   0
L6576:  .res 16, 0

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

L6586:  bpl     L658B
L6588:  return  #$00

L658B:  cmp     #$09
        bcc     L6588
        sec
        sbc     #$08
        rts

        lda     winfo_entrydlg
        jsr     L62C8
        jsr     L6E45
        stax    $06
        copy16  path_pos1+2, $08
        MGTK_RELAY_CALL MGTK::MoveTo, $06
        bit     LD8EB
        bpl     L65C8
        MGTK_RELAY_CALL MGTK::SetTextBG, textbg1
        lda     #$00
        sta     LD8EB
        beq     L65D6
L65C8:  MGTK_RELAY_CALL MGTK::SetTextBG, textbg2
        lda     #$FF
        sta     LD8EB
L65D6:  copy16  #$D8EF, $06
        lda     $D8EE
        sta     $08
        MGTK_RELAY_CALL MGTK::DrawText, $06
        jsr     L56E3
        rts

        lda     winfo_entrydlg
        jsr     L62C8
        jsr     L6E72
        stax    $06
        copy16  path_pos2+2, $08
        MGTK_RELAY_CALL MGTK::MoveTo, $06
        bit     LD8EB
        bpl     L6626
        MGTK_RELAY_CALL MGTK::SetTextBG, textbg1
        lda     #$00
        sta     LD8EB
        jmp     L6634

L6626:  MGTK_RELAY_CALL MGTK::SetTextBG, textbg2
        lda     #$FF
        sta     LD8EB
L6634:  copy16  #$D8EF, $06
        lda     $D8EE
        sta     $08
        MGTK_RELAY_CALL MGTK::DrawText, $06
        jsr     L56E3
        rts

        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::PaintRect, dialog_rect1
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect1
        MGTK_RELAY_CALL MGTK::MoveTo, path_pos1
        lda     path_buf0
        beq     L6684
        addr_call L5DED, path_buf0
L6684:  addr_call L5DED, path_buf2
        addr_call L5DED, str_2_spaces
        rts

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

L6693:  lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::PaintRect, dialog_rect2
        MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
        MGTK_RELAY_CALL MGTK::FrameRect, dialog_rect2
        MGTK_RELAY_CALL MGTK::MoveTo, path_pos2
        lda     path_buf1
        beq     L66C9
        addr_call L5DED, path_buf1
L66C9:  addr_call L5DED, path_buf2
        addr_call L5DED, str_2_spaces
        rts

        lda     winfo_entrydlg
        sta     screentowindow_window_id
        MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
        MGTK_RELAY_CALL MGTK::InRect, dialog_rect1
        cmp     #MGTK::inrect_inside
        beq     L6719
        bit     L5104
        bpl     L6718
        MGTK_RELAY_CALL MGTK::InRect, dialog_rect2
        cmp     #MGTK::inrect_inside
        bne     L6718
        jmp     L6D1E

L6718:  rts

L6719:  jsr     L6E45
        stax    $06
        cmp16   screentowindow_windowx, $06
        bcs     L672F
        jmp     L67C4

L672F:  jsr     L6E45
        stax    L684D
        ldx     path_buf2
        inx
        lda     #' '
        sta     path_buf2,x
        inc     path_buf2
        copy16  #path_buf2, $06
        lda     path_buf2
        sta     $08
L6751:  MGTK_RELAY_CALL MGTK::TextWidth, $06
        add16   $09, L684D, $09
        cmp16   $09, screentowindow_windowx
        bcc     L6783
        dec     $08
        lda     $08
        cmp     #$01
        bne     L6751
        dec     path_buf2
        jmp     L6846

L6783:  lda     $08
        cmp     path_buf2
        bcc     L6790
        dec     path_buf2
        jmp     L6B44

L6790:  ldx     #$02
        ldy     path_buf0
        iny
L6796:  lda     path_buf2,x
        sta     path_buf0,y
        cpx     $08
        beq     L67A5
        iny
        inx
        jmp     L6796

L67A5:  sty     path_buf0
        ldy     #$02
        ldx     $08
        inx
L67AD:  lda     path_buf2,x
        sta     path_buf2,y
        cpx     path_buf2
        beq     L67BD
        iny
        inx
        jmp     L67AD

L67BD:  dey
        sty     path_buf2
        jmp     L6846

L67C4:  copy16  #path_buf0, $06
        lda     path_buf0
        sta     $08
L67D1:  MGTK_RELAY_CALL MGTK::TextWidth, $06
        add16   $09, path_pos1, $09
        cmp16   $09, screentowindow_windowx
        bcc     L6800
        dec     $08
        lda     $08
        cmp     #$01
        bcs     L67D1
        jmp     L6B01

L6800:  inc     $08
        ldy     #$00
        ldx     $08
L6806:  cpx     path_buf0
        beq     L6816
        inx
        iny
        lda     path_buf0,x
        sta     $D3C2,y
        jmp     L6806

L6816:  iny
        sty     $D3C1
        ldx     #$01
        ldy     $D3C1
L681F:  cpx     path_buf2
        beq     L682F
        inx
        iny
        lda     path_buf2,x
        sta     $D3C1,y
        jmp     L681F

L682F:  sty     $D3C1
        lda     $D8EF
        sta     $D3C2
L6838:  lda     $D3C1,y
        sta     path_buf2,y
        dey
        bpl     L6838
        lda     $08
        sta     path_buf0
L6846:  jsr     L6D27
        jsr     L6EA3
        rts

L684D:  .word   0
        lda     winfo_entrydlg
        sta     screentowindow_window_id
        MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
        MGTK_RELAY_CALL MGTK::InRect, dialog_rect2
        cmp     #MGTK::inrect_inside
        beq     L6890
        bit     L5104
        bpl     L688F
        MGTK_RELAY_CALL MGTK::InRect, dialog_rect1
        cmp     #MGTK::inrect_inside
        bne     L688F
        jmp     L6D21

L688F:  rts

L6890:  jsr     L6E72
        stax    $06
        cmp16   screentowindow_windowx, $06
        bcs     L68A6
        jmp     L693B

L68A6:  jsr     L6E72
        stax    L69C4
        ldx     path_buf2
        inx
        lda     #$20
        sta     path_buf2,x
        inc     path_buf2
        copy16  #path_buf2, $06
        lda     path_buf2
        sta     $08
L68C8:  MGTK_RELAY_CALL MGTK::TextWidth, $06
        add16   $09, L69C4, $09
        cmp16   $09, screentowindow_windowx
        bcc     L68FA
        dec     $08
        lda     $08
        cmp     #$01
        bne     L68C8
        dec     path_buf2
        jmp     L69BD

L68FA:  lda     $08
        cmp     path_buf2
        bcc     L6907
        dec     path_buf2
        jmp     L6CF0

L6907:  ldx     #$02
        ldy     path_buf1
        iny
L690D:  lda     path_buf2,x
        sta     path_buf1,y
        cpx     $08
        beq     L691C
        iny
        inx
        jmp     L690D

L691C:  sty     path_buf1
        ldy     #$02
        ldx     $08
        inx
L6924:  lda     path_buf2,x
        sta     path_buf2,y
        cpx     path_buf2
        beq     L6934
        iny
        inx
        jmp     L6924

L6934:  dey
        sty     path_buf2
        jmp     L69BD

L693B:  copy16  #path_buf1, $06
        lda     path_buf1
        sta     $08
L6948:  MGTK_RELAY_CALL MGTK::TextWidth, $06
        add16   $09, path_pos2, $09
        cmp16   $09, screentowindow_windowx
        bcc     L6977
        dec     $08
        lda     $08
        cmp     #$01
        bcs     L6948
        jmp     L6CAD

L6977:  inc     $08
        ldy     #$00
        ldx     $08
L697D:  cpx     path_buf1
        beq     L698D
        inx
        iny
        lda     path_buf1,x
        sta     $D3C2,y
        jmp     L697D

L698D:  iny
        sty     $D3C1
        ldx     #$01
        ldy     $D3C1
L6996:  cpx     path_buf2
        beq     L69A6
        inx
        iny
        lda     path_buf2,x
        sta     $D3C1,y
        jmp     L6996

L69A6:  sty     $D3C1
        lda     $D8EF
        sta     $D3C2
L69AF:  lda     $D3C1,y
        sta     path_buf2,y
        dey
        bpl     L69AF
        lda     $08
        sta     path_buf1
L69BD:  jsr     L6D27
        jsr     L6E9F
        rts

L69C4:  .word   0
        sta     L6A17
        lda     path_buf0
        clc
        adc     path_buf2
        cmp     #$3F
        bcc     L69D5
        rts

L69D5:  lda     L6A17
        ldx     path_buf0
        inx
        sta     path_buf0,x
        sta     str_1_char+1
        jsr     L6E45
        inc     path_buf0
        stax    $06
        copy16  path_pos1+2, $08
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::MoveTo, $06
        addr_call L5DED, str_1_char
        addr_call L5DED, path_buf2
        jsr     L6EA3
        rts

L6A17:  .byte   0
        lda     path_buf0
        bne     L6A1E
        rts

L6A1E:  dec     path_buf0
        jsr     L6E45
        stax    $06
        copy16  path_pos1+2, $08
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::MoveTo, $06
        addr_call L5DED, path_buf2
        addr_call L5DED, str_2_spaces
        jsr     L6EA3
        rts

        lda     path_buf0
        bne     L6A59
        rts

L6A59:  ldx     path_buf2
        cpx     #$01
        beq     L6A6B
L6A60:  lda     path_buf2,x
        sta     path_buf2+1,x
        dex
        cpx     #$01
        bne     L6A60
L6A6B:  ldx     path_buf0
        lda     path_buf0,x
        sta     path_buf2+2
        dec     path_buf0
        inc     path_buf2
        jsr     L6E45
        stax    $06
        copy16  path_pos1+2, $08
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::MoveTo, $06
        addr_call L5DED, path_buf2
        addr_call L5DED, str_2_spaces
        jsr     L6EA3
        rts

        lda     path_buf2
        cmp     #$02
        bcs     L6AB4
        rts

L6AB4:  ldx     path_buf0
        inx
        lda     path_buf2+2
        sta     path_buf0,x
        inc     path_buf0
        ldx     path_buf2
        cpx     #$03
        bcc     L6AD6
        ldx     #$02
L6ACA:  lda     path_buf2+1,x
        sta     path_buf2,x
        inx
        cpx     path_buf2
        bne     L6ACA
L6AD6:  dec     path_buf2
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::MoveTo, path_pos1
        addr_call L5DED, path_buf0
        addr_call L5DED, path_buf2
        addr_call L5DED, str_2_spaces
        jsr     L6EA3
        rts

L6B01:  lda     path_buf0
        bne     L6B07
        rts

L6B07:  ldy     path_buf0
        lda     path_buf2
        cmp     #$02
        bcc     L6B20
        ldx     #$01
L6B13:  iny
        inx
        lda     path_buf2,x
        sta     path_buf0,y
        cpx     path_buf2
        bne     L6B13
L6B20:  sty     path_buf0
L6B23:  lda     path_buf0,y
        sta     path_buf2+1,y
        dey
        bne     L6B23
        ldx     path_buf0
        inx
        stx     path_buf2
        lda     #$06
        sta     path_buf2+1
        lda     #$00
        sta     path_buf0
        jsr     L6D27
        jsr     L6EA3
        rts

L6B44:  lda     path_buf2
        cmp     #$02
        bcs     L6B4C
        rts

L6B4C:  ldx     #$01
        ldy     path_buf0
L6B51:  inx
        iny
        lda     path_buf2,x
        sta     path_buf0,y
        cpx     path_buf2
        bne     L6B51
        sty     path_buf0
        copy16  #$0601, path_buf2
        jsr     L6D27
        jsr     L6EA3
        rts

        sta     L6BC3
        lda     path_buf1
        clc
        adc     path_buf2
        cmp     #$3F
        bcc     L6B81
        rts

L6B81:  lda     L6BC3
        ldx     path_buf1
        inx
        sta     path_buf1,x
        sta     str_1_char+1
        jsr     L6E72
        inc     path_buf1
        stax    $06
        copy16  path_pos2+2, $08
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::MoveTo, $06
        addr_call L5DED, str_1_char
        addr_call L5DED, path_buf2
        jsr     L6E9F
        rts

L6BC3:  .byte   0
        lda     path_buf1
        bne     L6BCA
        rts

L6BCA:  dec     path_buf1
        jsr     L6E72
        stax    $06
        copy16  path_pos2+2, $08
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::MoveTo, $06
        addr_call L5DED, path_buf2
        addr_call L5DED, str_2_spaces
        jsr     L6E9F
        rts

        lda     path_buf1
        bne     L6C05
        rts

L6C05:  ldx     path_buf2
        cpx     #$01
        beq     L6C17
L6C0C:  lda     path_buf2,x
        sta     path_buf2+1,x
        dex
        cpx     #$01
        bne     L6C0C
L6C17:  ldx     path_buf1
        lda     path_buf1,x
        sta     path_buf2+2
        dec     path_buf1
        inc     path_buf2
        jsr     L6E72
        stax    $06
        copy16  path_pos2+2, $08
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::MoveTo, $06
        addr_call L5DED, path_buf2
        addr_call L5DED, str_2_spaces
        jsr     L6E9F
        rts

        lda     path_buf2
        cmp     #$02
        bcs     L6C60
        rts

L6C60:  ldx     path_buf1
        inx
        lda     path_buf2+2
        sta     path_buf1,x
        inc     path_buf1
        ldx     path_buf2
        cpx     #$03
        bcc     L6C82
        ldx     #$02
L6C76:  lda     path_buf2+1,x
        sta     path_buf2,x
        inx
        cpx     path_buf2
        bne     L6C76
L6C82:  dec     path_buf2
        lda     winfo_entrydlg
        jsr     L62C8
        MGTK_RELAY_CALL MGTK::MoveTo, path_pos2
        addr_call L5DED, path_buf1
        addr_call L5DED, path_buf2
        addr_call L5DED, str_2_spaces
        jsr     L6E9F
        rts

L6CAD:  lda     path_buf1
        bne     L6CB3
        rts

L6CB3:  ldy     path_buf1
        lda     path_buf2
        cmp     #$02
        bcc     L6CCC
        ldx     #$01
L6CBF:  iny
        inx
        lda     path_buf2,x
        sta     path_buf1,y
        cpx     path_buf2
        bne     L6CBF
L6CCC:  sty     path_buf1
L6CCF:  lda     path_buf1,y
        sta     path_buf2+1,y
        dey
        bne     L6CCF
        ldx     path_buf1
        inx
        stx     path_buf2
        lda     #$06
        sta     path_buf2+1
        lda     #$00
        sta     path_buf1
        jsr     L6D27
        jsr     L6E9F
        rts

L6CF0:  lda     path_buf2
        cmp     #$02
        bcs     L6CF8
        rts

L6CF8:  ldx     #$01
        ldy     path_buf1
L6CFD:  inx
        iny
        lda     path_buf2,x
        sta     path_buf1,y
        cpx     path_buf2
        bne     L6CFD
        sty     path_buf1
        copy16  #$0601, path_buf2
        jsr     L6D27
        jsr     L6E9F
        rts

L6D1E:  jmp     0
L6D21:  jmp     0
L6D24:  jmp     0
L6D27:  jmp     0
L6D2A:  jmp     0
L6D2D:  jmp     0
L6D30:  jmp     0
L6D33:  jmp     0
L6D36:  jmp     0
L6D39:  jmp     0
L6D3C:  jmp     0
L6D3F:  jmp     0
L6D42:  jmp     0
L6D45:  jmp     0

L6D48:  stax    $06
        ldx     path_buf0
        lda     #$2F
        sta     path_buf0+1,x
        inc     path_buf0
        ldy     #$00
        lda     ($06),y
        tay
        clc
        adc     path_buf0
        pha
        tax
L6D62:  lda     ($06),y
        sta     path_buf0,x
        dey
        dex
        cpx     path_buf0
        bne     L6D62
        pla
        sta     path_buf0
        rts

L6D73:  stax    $06
        ldx     path_buf1
        lda     #$2F
        sta     path_buf1+1,x
        inc     path_buf1
        ldy     #$00
        lda     ($06),y
        tay
        clc
        adc     path_buf1
        pha
        tax
L6D8D:  lda     ($06),y
        sta     path_buf1,x
        dey
        dex
        cpx     path_buf1
        bne     L6D8D
        pla
        sta     path_buf1
        rts

L6D9E:  ldx     path_buf0
        cpx     #$00
        beq     L6DAF
        dec     path_buf0
        lda     path_buf0,x
        cmp     #$2F
        bne     L6D9E
L6DAF:  rts

L6DB0:  ldx     path_buf1
        cpx     #$00
        beq     L6DC1
        dec     path_buf1
        lda     path_buf1,x
        cmp     #$2F
        bne     L6DB0
L6DC1:  rts

        jsr     L6D9E
        jsr     L6D27
        rts

        jsr     L6DB0
        jsr     L6D27
        rts

        lda     #$00
        beq     L6DD6
        lda     #$80
L6DD6:  sta     L6E1C
        copy16  #$1800, $06
        ldx     $D920
        lda     $1780,x
        and     #$7F
        ldx     #$00
        stx     L6E1B
        asl     a
        rol     L6E1B
        asl     a
        rol     L6E1B
        asl     a
        rol     L6E1B
        asl     a
        rol     L6E1B
        clc
        adc     $06
        tay
        lda     L6E1B
        adc     $07
        tax
        tya
        bit     L6E1C
        bpl     L6E14
        jsr     L6D73
        jmp     L6E17

L6E14:  jsr     L6D48
L6E17:  jsr     L6D27
        rts

L6E1B:  .byte   0
L6E1C:  .byte   0
        ldx     path_buf
L6E20:  lda     path_buf,x
        sta     path_buf0,x
        dex
        bpl     L6E20
        addr_call L6129, path_buf0
        rts

        ldx     path_buf
L6E34:  lda     path_buf,x
        sta     path_buf1,x
        dex
        bpl     L6E34
        addr_call L6129, path_buf1
        rts

L6E45:  lda     #$00
        sta     $09
        sta     $0A
        lda     path_buf0
        beq     L6E63
        sta     $08
        copy16  #path_buf0+1, $06
        MGTK_RELAY_CALL MGTK::TextWidth, $06
L6E63:  lda     $09
        clc
        adc     path_pos1
        tay
        lda     $0A
        adc     path_pos1+1
        tax
        tya
        rts

L6E72:  lda     #$00
        sta     $09
        sta     $0A
        lda     path_buf1
        beq     L6E90
        sta     $08
        copy16  #path_buf1+1, $06
        MGTK_RELAY_CALL MGTK::TextWidth, $06
L6E90:  lda     $09
        clc
        adc     path_pos2
        tay
        lda     $0A
        adc     path_pos2+1
        tax
        tya
        rts

L6E9F:  lda     #$FF
        bmi     L6EA5
L6EA3:  lda     #$00
L6EA5:  bmi     L6EB6
        ldx     path_buf0
L6EAA:  lda     path_buf0,x
        sta     $D3C1,x
        dex
        bpl     L6EAA
        jmp     L6EC2

L6EB6:  ldx     path_buf1
L6EB9:  lda     path_buf1,x
        sta     $D3C1,x
        dex
        bpl     L6EB9
L6EC2:  lda     $D920
        sta     L6F3D
        bmi     L6EFB
        ldx     #$00
        stx     $06
        ldx     #$18
        stx     $07
        ldx     #$00
        stx     L6F3C
        tax
        lda     $1780,x
        and     #$7F
        asl     a
        rol     L6F3C
        asl     a
        rol     L6F3C
        asl     a
        rol     L6F3C
        asl     a
        rol     L6F3C
        clc
        adc     $06
        tay
        lda     L6F3C
        adc     $07
        tax
        tya
        jsr     L5F0D
L6EFB:  addr_call L6129, $D3C1
        addr_call L6129, path_buf
        lda     $D3C1
        cmp     path_buf
        bne     L6F26
        tax
L6F12:  lda     $D3C1,x
        cmp     path_buf,x
        bne     L6F26
        dex
        bne     L6F12
        lda     #$00
        sta     $D8F0
        jsr     L6F2F
        rts

L6F26:  lda     #$FF
        sta     $D8F0
        jsr     L6F2F
        rts

L6F2F:  lda     L6F3D
        sta     $D920
        bpl     L6F38
        rts

L6F38:  jsr     L5F49
        rts

L6F3C:  .byte   0
L6F3D:  .byte   0

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

        PAD_TO $7000
.endproc ; common_overlay