mirror of
https://github.com/mi57730/a2d.git
synced 2024-12-01 05:50:24 +00:00
3011 lines
70 KiB
ArmAsm
3011 lines
70 KiB
ArmAsm
.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
|
|
device_num: .byte $00 ; next device number to try
|
|
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 device_num
|
|
sta L50A8
|
|
sta prompt_ip_flag
|
|
sta LD8EC
|
|
sta $D8F0
|
|
sta $D8F1
|
|
sta $D8F2
|
|
sta cursor_ip_flag
|
|
sta L5104
|
|
sta L5103
|
|
sta L5105
|
|
lda #prompt_insertion_point_blink_count
|
|
sta prompt_ip_counter
|
|
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
|
|
|
|
;;; ============================================================
|
|
;;; Flags set by invoker to alter behavior
|
|
|
|
L5103: .byte 0 ; ??? something before jt_13 invoked
|
|
L5104: .byte 0 ; ??? something about inputs
|
|
L5105: .byte 0 ; ??? something about the picker
|
|
|
|
;;; ============================================================
|
|
|
|
L5106: bit LD8EC
|
|
bpl :+
|
|
dec prompt_ip_counter
|
|
bne :+
|
|
jsr jt_02
|
|
lda #prompt_insertion_point_blink_count
|
|
sta prompt_ip_counter
|
|
: 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 set_port_for_window
|
|
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, common_input1_rect
|
|
cmp #MGTK::inrect_inside
|
|
bne L5196
|
|
beq L5190
|
|
L5183: MGTK_RELAY_CALL MGTK::InRect, common_input2_rect
|
|
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 :+
|
|
rts
|
|
: 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 set_port_for_window
|
|
lda winfo_entrydlg
|
|
sta screentowindow_window_id
|
|
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
|
|
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
|
|
|
|
;; In open button?
|
|
.proc check_open_button
|
|
MGTK_RELAY_CALL MGTK::InRect, common_open_button_rect
|
|
cmp #MGTK::inrect_inside
|
|
beq clicked
|
|
jmp check_change_drive_button
|
|
|
|
clicked:
|
|
bit L5105
|
|
bmi L520A
|
|
lda $D920
|
|
bpl L520D
|
|
L520A: jmp set_up_ports
|
|
|
|
L520D: tax
|
|
lda $1780,x
|
|
bmi L5216
|
|
L5213: jmp set_up_ports
|
|
|
|
L5216: lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_open_button_rect
|
|
jsr track_open_button_click
|
|
bmi L5213
|
|
jsr L5607
|
|
jmp set_up_ports
|
|
.endproc
|
|
|
|
.proc check_change_drive_button
|
|
MGTK_RELAY_CALL MGTK::InRect, common_change_drive_button_rect
|
|
cmp #MGTK::inrect_inside
|
|
beq :+
|
|
jmp check_close_button
|
|
: bit L5105
|
|
bmi L5268
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_change_drive_button_rect
|
|
jsr track_change_drive_button_click
|
|
bmi L5268
|
|
jsr L565C
|
|
L5268: jmp set_up_ports
|
|
.endproc
|
|
|
|
.proc check_close_button
|
|
MGTK_RELAY_CALL MGTK::InRect, common_close_button_rect
|
|
cmp #MGTK::inrect_inside
|
|
beq :+
|
|
jmp check_ok_button
|
|
: bit L5105
|
|
bmi L529A
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_close_button_rect
|
|
jsr track_close_button_click
|
|
bmi L529A
|
|
jsr L567F
|
|
L529A: jmp set_up_ports
|
|
.endproc
|
|
|
|
.proc check_ok_button
|
|
MGTK_RELAY_CALL MGTK::InRect, common_ok_button_rect
|
|
cmp #MGTK::inrect_inside
|
|
beq :+
|
|
jmp check_cancel_button
|
|
: MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_ok_button_rect
|
|
jsr track_ok_button_click
|
|
bmi L52CA
|
|
jsr jt_12
|
|
jsr jt_00
|
|
L52CA: jmp set_up_ports
|
|
.endproc
|
|
|
|
.proc check_cancel_button
|
|
MGTK_RELAY_CALL MGTK::InRect, common_cancel_button_rect
|
|
cmp #MGTK::inrect_inside
|
|
beq :+
|
|
jmp check_other_click
|
|
: MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_cancel_button_rect
|
|
jsr track_cancel_button_click
|
|
bmi L52F7
|
|
jsr jt_01
|
|
L52F7: jmp set_up_ports
|
|
.endproc
|
|
|
|
.proc check_other_click
|
|
bit L5103
|
|
bpl :+
|
|
jsr L531B
|
|
bmi set_up_ports
|
|
: jsr jt_13
|
|
rts
|
|
.endproc
|
|
|
|
set_up_ports:
|
|
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 set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_ok_button_rect
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_ok_button_rect
|
|
jsr jt_00
|
|
jmp L5340
|
|
|
|
L53B5: and #$7F
|
|
pha
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_open_button_rect
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_open_button_rect
|
|
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 jt_04
|
|
lda $D920
|
|
jsr L6274
|
|
L5446: lda screentowindow_windowy
|
|
sta $D920
|
|
bit $D8F0
|
|
bpl L5457
|
|
jsr jt_06
|
|
jsr jt_03
|
|
L5457: lda $D920
|
|
jsr L6274
|
|
jsr jt_05
|
|
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 jt_06
|
|
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 inc_device_num
|
|
jsr device_on_line
|
|
jsr L5F5B
|
|
jsr L6161
|
|
lda #$00
|
|
jsr L6227
|
|
jsr L61B1
|
|
jsr L606D
|
|
jsr jt_06
|
|
jsr jt_03
|
|
rts
|
|
|
|
L567F: lda #$00
|
|
sta L56E2
|
|
ldx path_buf
|
|
bne L568C
|
|
jmp L56E1
|
|
|
|
L568C: lda path_buf,x
|
|
and #CHAR_MASK
|
|
cmp #'/'
|
|
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 jt_04
|
|
lda $D920
|
|
bmi L56DC
|
|
jsr jt_04
|
|
jmp L56DC
|
|
|
|
L56D6: jsr jt_06
|
|
jsr jt_03
|
|
L56DC: lda #$FF
|
|
sta $D920
|
|
L56E1: rts
|
|
|
|
L56E2: .byte 0
|
|
|
|
L56E3: MGTK_RELAY_CALL MGTK::InitPort, grafport3
|
|
MGTK_RELAY_CALL MGTK::SetPort, grafport3
|
|
rts
|
|
|
|
;;; ============================================================
|
|
|
|
.proc track_ok_button_click
|
|
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, common_ok_button_rect
|
|
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, common_ok_button_rect
|
|
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, common_ok_button_rect
|
|
return #$00
|
|
|
|
L577B: .byte 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc track_close_button_click
|
|
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, common_close_button_rect
|
|
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, common_close_button_rect
|
|
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, common_close_button_rect
|
|
return #$00
|
|
|
|
L5801: .byte 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc track_cancel_button_click
|
|
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, common_cancel_button_rect
|
|
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, common_cancel_button_rect
|
|
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, common_cancel_button_rect
|
|
return #$01
|
|
|
|
L5887: .byte 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc track_open_button_click
|
|
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, common_open_button_rect
|
|
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, common_open_button_rect
|
|
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, common_open_button_rect
|
|
return #$00
|
|
|
|
L590D: .byte 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc track_change_drive_button_click
|
|
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, common_change_drive_button_rect
|
|
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, common_change_drive_button_rect
|
|
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, common_change_drive_button_rect
|
|
return #$01
|
|
|
|
L5993: .byte 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.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
|
|
|
|
;;; ============================================================
|
|
;;; Key handler
|
|
|
|
.proc L59B9
|
|
lda event_modifiers
|
|
beq L59F7
|
|
|
|
;; With modifiers
|
|
lda event_key
|
|
and #CHAR_MASK
|
|
|
|
cmp #CHAR_LEFT
|
|
bne :+
|
|
jmp jt_11 ; start of line
|
|
|
|
: cmp #CHAR_RIGHT
|
|
bne :+
|
|
jmp jt_12 ; end of line
|
|
|
|
: bit L5105
|
|
bmi L59E4
|
|
cmp #CHAR_DOWN
|
|
bne :+
|
|
jmp scroll_list_bottom ; end of list
|
|
|
|
: cmp #CHAR_UP
|
|
bne L59E4
|
|
jmp scroll_list_top ; start of list
|
|
|
|
L59E4: cmp #'0'
|
|
bcc :+
|
|
cmp #'9'+1
|
|
bcs :+
|
|
jmp key_meta_digit
|
|
|
|
: bit L5105
|
|
bmi L5A4F
|
|
jmp L5B70
|
|
|
|
;;; ============================================================
|
|
;;; Key - without modifiers
|
|
|
|
L59F7: lda event_key
|
|
and #CHAR_MASK
|
|
|
|
cmp #CHAR_LEFT
|
|
bne :+
|
|
jmp jt_09
|
|
|
|
: cmp #CHAR_RIGHT
|
|
bne :+
|
|
jmp jt_10
|
|
|
|
: cmp #CHAR_RETURN
|
|
bne :+
|
|
jmp key_return
|
|
|
|
: cmp #CHAR_ESCAPE
|
|
bne :+
|
|
jmp key_escape
|
|
|
|
: cmp #CHAR_DELETE
|
|
bne :+
|
|
jmp key_delete
|
|
|
|
: bit L5105
|
|
bpl L5A27
|
|
jmp L5AC4
|
|
|
|
L5A27: cmp #CHAR_TAB
|
|
bne L5A52
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_change_drive_button_rect
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_change_drive_button_rect
|
|
jsr L565C
|
|
L5A4F: jmp L5AC8
|
|
|
|
L5A52: cmp #CHAR_CTRL_O ; Open
|
|
bne L5A8B
|
|
lda $D920
|
|
bmi L5AC8
|
|
tax
|
|
lda $1780,x
|
|
bmi :+
|
|
jmp L5AC8
|
|
: lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_open_button_rect
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_open_button_rect
|
|
jsr L5607
|
|
jmp L5AC8
|
|
|
|
L5A8B: cmp #CHAR_CTRL_C ; Close
|
|
bne :+
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_close_button_rect
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_close_button_rect
|
|
jsr L567F
|
|
jmp L5AC8
|
|
|
|
: cmp #CHAR_DOWN
|
|
bne :+
|
|
jmp key_down
|
|
|
|
: cmp #CHAR_UP
|
|
bne L5AC4
|
|
jmp key_up
|
|
|
|
L5AC4: jsr jt_07
|
|
rts
|
|
|
|
L5AC8: jsr L56E3
|
|
rts
|
|
|
|
key_return:
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; flash the button
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_ok_button_rect
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_ok_button_rect
|
|
jsr jt_12
|
|
jsr jt_00
|
|
jsr L56E3
|
|
rts
|
|
|
|
key_escape:
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR ; flash the button
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_cancel_button_rect
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_cancel_button_rect
|
|
jsr jt_01
|
|
jsr L56E3
|
|
rts
|
|
|
|
key_delete:
|
|
jsr jt_08
|
|
rts
|
|
|
|
key_meta_digit:
|
|
jmp L59B8
|
|
|
|
.proc key_down
|
|
lda $177F
|
|
beq L5B37
|
|
lda $D920
|
|
bmi L5B47
|
|
tax
|
|
inx
|
|
cpx $177F
|
|
bcc L5B38
|
|
L5B37: rts
|
|
|
|
L5B38: jsr L6274
|
|
jsr jt_04
|
|
inc $D920
|
|
lda $D920
|
|
jmp update_list_selection
|
|
|
|
L5B47: lda #0
|
|
jmp update_list_selection
|
|
.endproc
|
|
|
|
.proc key_up
|
|
lda $177F
|
|
beq L5B58
|
|
lda $D920
|
|
bmi L5B68
|
|
bne L5B59
|
|
L5B58: rts
|
|
|
|
L5B59: jsr L6274
|
|
jsr jt_04
|
|
dec $D920
|
|
lda $D920
|
|
jmp update_list_selection
|
|
|
|
L5B68: ldx $177F
|
|
dex
|
|
txa
|
|
jmp update_list_selection
|
|
.endproc
|
|
|
|
L5B70: cmp #'A' ; upper alpha?
|
|
bcs :+
|
|
done: rts
|
|
: cmp #'Z'+1
|
|
bcc L5B83
|
|
cmp #'a' ; Lower alpha?
|
|
bcc done
|
|
cmp #'z'+1
|
|
bcs done
|
|
and #$5F ; convert lowercase to upperase
|
|
|
|
L5B83: jsr L5B9D
|
|
bmi done
|
|
cmp $D920
|
|
beq done
|
|
pha
|
|
lda $D920
|
|
bmi L5B99
|
|
jsr L6274
|
|
jsr jt_04
|
|
L5B99: pla
|
|
jmp update_list_selection
|
|
|
|
L5B9D: sta L5BF5
|
|
lda #0
|
|
sta L5BF3
|
|
L5BA5: lda L5BF3
|
|
cmp $177F
|
|
beq L5BC4
|
|
jsr L5BCB
|
|
ldy #1
|
|
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
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc scroll_list_top
|
|
lda $177F
|
|
beq L5C02
|
|
lda $D920
|
|
bmi L5C09
|
|
bne L5C03
|
|
L5C02: rts
|
|
|
|
L5C03: jsr L6274
|
|
jsr jt_04
|
|
L5C09: lda #$00
|
|
jmp update_list_selection
|
|
.endproc
|
|
|
|
.proc scroll_list_bottom
|
|
lda $177F
|
|
beq L5C1E
|
|
ldx $D920
|
|
bmi L5C27
|
|
inx
|
|
cpx $177F
|
|
bne L5C1F
|
|
L5C1E: rts
|
|
|
|
L5C1F: dex
|
|
txa
|
|
jsr L6274
|
|
jsr jt_04
|
|
L5C27: ldx $177F
|
|
dex
|
|
txa
|
|
jmp update_list_selection
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc update_list_selection
|
|
sta $D920
|
|
jsr jt_05
|
|
lda $D920
|
|
jsr L6586
|
|
jsr L6163
|
|
jsr L606D
|
|
|
|
copy #1, path_buf2
|
|
copy #' ', path_buf2+1
|
|
|
|
jsr jt_03
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc L5C4F
|
|
ldx #3
|
|
: lda screentowindow_screenx,x
|
|
sta L5CF0,x
|
|
dex
|
|
bpl :-
|
|
|
|
lda machine_type ; Timer for insertion point blink
|
|
sta ip_blink_counter
|
|
L5C60: dec ip_blink_counter
|
|
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
|
|
|
|
ip_blink_counter:
|
|
.byte 0
|
|
|
|
L5CF0: .byte 0
|
|
L5CF1: .byte 0
|
|
L5CF2: .byte 0
|
|
L5CF3: .byte 0
|
|
L5CF4: .byte 0
|
|
L5CF5: .byte 0
|
|
L5CF6: .byte 0
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc create_common_dialog
|
|
MGTK_RELAY_CALL MGTK::OpenWindow, winfo_entrydlg
|
|
MGTK_RELAY_CALL MGTK::OpenWindow, winfo_entrydlg_file_picker
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::FrameRect, common_dialog_frame_rect
|
|
MGTK_RELAY_CALL MGTK::FrameRect, common_ok_button_rect
|
|
MGTK_RELAY_CALL MGTK::FrameRect, common_open_button_rect
|
|
MGTK_RELAY_CALL MGTK::FrameRect, common_close_button_rect
|
|
MGTK_RELAY_CALL MGTK::FrameRect, common_cancel_button_rect
|
|
MGTK_RELAY_CALL MGTK::FrameRect, common_change_drive_button_rect
|
|
jsr draw_ok_button_label
|
|
jsr draw_open_button_label
|
|
jsr draw_close_button_label
|
|
jsr draw_cancel_button_label
|
|
jsr draw_change_drive_button_label
|
|
MGTK_RELAY_CALL MGTK::MoveTo, common_dialog_sep_start
|
|
MGTK_RELAY_CALL MGTK::LineTo, common_dialog_sep_end
|
|
MGTK_RELAY_CALL MGTK::InitPort, grafport3
|
|
MGTK_RELAY_CALL MGTK::SetPort, grafport3
|
|
rts
|
|
.endproc
|
|
|
|
draw_ok_button_label:
|
|
MGTK_RELAY_CALL MGTK::MoveTo, ok_button_pos
|
|
addr_call draw_string, ok_button_label
|
|
rts
|
|
|
|
draw_open_button_label:
|
|
MGTK_RELAY_CALL MGTK::MoveTo, open_button_pos
|
|
addr_call draw_string, open_button_label
|
|
rts
|
|
|
|
draw_close_button_label:
|
|
MGTK_RELAY_CALL MGTK::MoveTo, close_button_pos
|
|
addr_call draw_string, close_button_label
|
|
rts
|
|
|
|
draw_cancel_button_label:
|
|
MGTK_RELAY_CALL MGTK::MoveTo, cancel_button_pos
|
|
addr_call draw_string, cancel_button_label
|
|
rts
|
|
|
|
draw_change_drive_button_label:
|
|
MGTK_RELAY_CALL MGTK::MoveTo, change_drive_button_pos
|
|
addr_call draw_string, change_drive_button_label
|
|
rts
|
|
|
|
;;; ============================================================
|
|
|
|
.proc copy_string_to_lcbuf
|
|
ptr := $06
|
|
|
|
stax ptr
|
|
ldy #0
|
|
lda (ptr),y
|
|
tay
|
|
: lda (ptr),y
|
|
sta temp_string_buf,y
|
|
dey
|
|
bpl :-
|
|
ldax #temp_string_buf
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc draw_string
|
|
jsr copy_string_to_lcbuf
|
|
stax $06
|
|
ldy #$00
|
|
lda ($06),y
|
|
sta $08
|
|
inc16 $06
|
|
MGTK_RELAY_CALL MGTK::DrawText, $06
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc L5E0A
|
|
jsr copy_string_to_lcbuf
|
|
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
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
L5E57: jsr copy_string_to_lcbuf
|
|
stax $06
|
|
MGTK_RELAY_CALL MGTK::MoveTo, common_input1_label_pos
|
|
ldax $06
|
|
jsr draw_string
|
|
rts
|
|
|
|
;;; ============================================================
|
|
|
|
L5E6F: jsr copy_string_to_lcbuf
|
|
stax $06
|
|
MGTK_RELAY_CALL MGTK::MoveTo, common_input2_label_pos
|
|
ldax $06
|
|
jsr draw_string
|
|
rts
|
|
|
|
;;; ============================================================
|
|
|
|
.proc device_on_line
|
|
: ldx device_num
|
|
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 found
|
|
jsr inc_device_num
|
|
jmp :-
|
|
|
|
found: lda #0
|
|
sta path_buf
|
|
addr_call L5F0D, on_line_buffer
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
.proc inc_device_num
|
|
inc device_num
|
|
lda device_num
|
|
cmp DEVCNT
|
|
beq :+
|
|
bcc :+
|
|
lda #0
|
|
sta device_num
|
|
: rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
L5ECB: lda #$00
|
|
sta L5F0C
|
|
L5ED0: yax_call MLI_RELAY, OPEN, open_params
|
|
beq L5EE9
|
|
jsr device_on_line
|
|
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 device_on_line
|
|
lda #$FF
|
|
sta $D920
|
|
sta L5F0C
|
|
jmp L5ED0
|
|
|
|
L5F0B: rts
|
|
|
|
L5F0C: .byte 0
|
|
L5F0D: jsr copy_string_to_lcbuf
|
|
stax $06
|
|
ldx path_buf
|
|
lda #'/'
|
|
sta path_buf+1,x
|
|
inc path_buf
|
|
ldy #0
|
|
lda ($06),y
|
|
tay
|
|
clc
|
|
adc path_buf
|
|
cmp #'A'
|
|
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 #'/'
|
|
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 set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::PaintRect, winfo_entrydlg_file_picker_cliprect
|
|
lda #$10
|
|
sta picker_entry_pos
|
|
lda #$08
|
|
sta picker_entry_pos+2
|
|
lda #$00
|
|
sta picker_entry_pos+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, picker_entry_pos
|
|
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 draw_string
|
|
ldx L6128
|
|
lda $1780,x
|
|
bpl L60FF
|
|
lda #$01
|
|
sta picker_entry_pos
|
|
MGTK_RELAY_CALL MGTK::MoveTo, picker_entry_pos
|
|
addr_call draw_string, str_folder
|
|
lda #$10
|
|
sta picker_entry_pos
|
|
L60FF: lda L6128
|
|
cmp $D920
|
|
bne L6110
|
|
jsr L6274
|
|
lda winfo_entrydlg_file_picker
|
|
jsr set_port_for_window
|
|
L6110: inc L6128
|
|
add16 picker_entry_pos+2, #8, picker_entry_pos+2
|
|
jmp L608E
|
|
|
|
L6127: .byte 0
|
|
L6128: .byte 0
|
|
|
|
;;; ============================================================
|
|
|
|
.proc adjust_filename_case
|
|
ptr := $A
|
|
|
|
stx ptr+1
|
|
sta ptr
|
|
ldy #0
|
|
lda (ptr),y
|
|
tay
|
|
bne loop
|
|
rts
|
|
|
|
loop: dey
|
|
beq done
|
|
bpl :+
|
|
done: rts
|
|
|
|
: lda (ptr),y
|
|
and #CHAR_MASK ; convert to ASCII
|
|
cmp #'/'
|
|
beq next
|
|
cmp #'.'
|
|
bne check_alpha
|
|
next: dey
|
|
jmp loop
|
|
|
|
check_alpha:
|
|
iny
|
|
lda (ptr),y
|
|
and #CHAR_MASK
|
|
cmp #'A'
|
|
bcc :+
|
|
cmp #'Z'+1
|
|
bcs :+
|
|
clc
|
|
adc #('a' - 'A') ; convert to lower case
|
|
sta (ptr),y
|
|
: dey
|
|
jmp loop
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
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 set_port_for_window
|
|
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 #'/'
|
|
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 adjust_filename_case, $0220
|
|
MGTK_RELAY_CALL MGTK::MoveTo, disk_label_pos
|
|
addr_call draw_string, disk_label
|
|
addr_call draw_string, $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 set_port_for_window
|
|
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
|
|
|
|
;;; ============================================================
|
|
|
|
.proc set_port_for_window
|
|
sta getwinport_params2_window_id
|
|
MGTK_RELAY_CALL MGTK::GetWinPort, getwinport_params2
|
|
MGTK_RELAY_CALL MGTK::SetPort, grafport2
|
|
rts
|
|
.endproc
|
|
|
|
;;; ============================================================
|
|
|
|
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 #'/'
|
|
bne L64DE
|
|
dey
|
|
lda ($06),y
|
|
cmp #$02
|
|
bcc L64DE
|
|
tay
|
|
lda ($06),y
|
|
cmp #'/'
|
|
beq L64DE
|
|
ldx #$00
|
|
stx L64E1
|
|
L649B: lda ($06),y
|
|
cmp #'/'
|
|
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 #CHAR_MASK
|
|
cmp #'.'
|
|
beq L64D8
|
|
cmp #'/'
|
|
bcc L64DE
|
|
cmp #'9'+1
|
|
bcc L64D8
|
|
cmp #'A'
|
|
bcc L64DE
|
|
cmp #'Z'+1
|
|
bcc L64D8
|
|
cmp #'a'
|
|
bcc L64DE
|
|
cmp #'z'+1
|
|
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 adjust_filename_case
|
|
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 set_port_for_window
|
|
jsr L6E45
|
|
stax $06
|
|
copy16 common_input1_textpos+2, $08
|
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
|
bit prompt_ip_flag
|
|
bpl L65C8
|
|
MGTK_RELAY_CALL MGTK::SetTextBG, textbg1
|
|
lda #$00
|
|
sta prompt_ip_flag
|
|
beq L65D6
|
|
L65C8: MGTK_RELAY_CALL MGTK::SetTextBG, textbg2
|
|
lda #$FF
|
|
sta prompt_ip_flag
|
|
L65D6: copy16 #$D8EF, $06
|
|
lda $D8EE
|
|
sta $08
|
|
MGTK_RELAY_CALL MGTK::DrawText, $06
|
|
jsr L56E3
|
|
rts
|
|
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
jsr L6E72
|
|
stax $06
|
|
copy16 common_input2_textpos+2, $08
|
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
|
bit prompt_ip_flag
|
|
bpl L6626
|
|
MGTK_RELAY_CALL MGTK::SetTextBG, textbg1
|
|
lda #$00
|
|
sta prompt_ip_flag
|
|
jmp L6634
|
|
|
|
L6626: MGTK_RELAY_CALL MGTK::SetTextBG, textbg2
|
|
lda #$FF
|
|
sta prompt_ip_flag
|
|
L6634: copy16 #$D8EF, $06
|
|
lda $D8EE
|
|
sta $08
|
|
MGTK_RELAY_CALL MGTK::DrawText, $06
|
|
jsr L56E3
|
|
rts
|
|
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_input1_rect
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::FrameRect, common_input1_rect
|
|
MGTK_RELAY_CALL MGTK::MoveTo, common_input1_textpos
|
|
lda path_buf0
|
|
beq L6684
|
|
addr_call draw_string, path_buf0
|
|
L6684: addr_call draw_string, path_buf2
|
|
addr_call draw_string, str_2_spaces
|
|
rts
|
|
|
|
;;; ============================================================
|
|
|
|
L6693: lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::PaintRect, common_input2_rect
|
|
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
|
|
MGTK_RELAY_CALL MGTK::FrameRect, common_input2_rect
|
|
MGTK_RELAY_CALL MGTK::MoveTo, common_input2_textpos
|
|
lda path_buf1
|
|
beq L66C9
|
|
addr_call draw_string, path_buf1
|
|
L66C9: addr_call draw_string, path_buf2
|
|
addr_call draw_string, str_2_spaces
|
|
rts
|
|
|
|
lda winfo_entrydlg
|
|
sta screentowindow_window_id
|
|
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
|
|
MGTK_RELAY_CALL MGTK::InRect, common_input1_rect
|
|
cmp #MGTK::inrect_inside
|
|
beq L6719
|
|
bit L5104
|
|
bpl L6718
|
|
MGTK_RELAY_CALL MGTK::InRect, common_input2_rect
|
|
cmp #MGTK::inrect_inside
|
|
bne L6718
|
|
jmp jt_00
|
|
|
|
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, common_input1_textpos, $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 jt_03
|
|
jsr L6EA3
|
|
rts
|
|
|
|
L684D: .word 0
|
|
lda winfo_entrydlg
|
|
sta screentowindow_window_id
|
|
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
|
|
MGTK_RELAY_CALL MGTK::InRect, common_input2_rect
|
|
cmp #MGTK::inrect_inside
|
|
beq L6890
|
|
bit L5104
|
|
bpl L688F
|
|
MGTK_RELAY_CALL MGTK::InRect, common_input1_rect
|
|
cmp #MGTK::inrect_inside
|
|
bne L688F
|
|
jmp jt_01
|
|
|
|
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 #' '
|
|
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, common_input2_textpos, $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 jt_03
|
|
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 common_input1_textpos+2, $08
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
|
addr_call draw_string, str_1_char
|
|
addr_call draw_string, path_buf2
|
|
jsr L6EA3
|
|
rts
|
|
|
|
L6A17: .byte 0
|
|
lda path_buf0
|
|
bne L6A1E
|
|
rts
|
|
|
|
L6A1E: dec path_buf0
|
|
jsr L6E45
|
|
stax $06
|
|
copy16 common_input1_textpos+2, $08
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
|
addr_call draw_string, path_buf2
|
|
addr_call draw_string, 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 common_input1_textpos+2, $08
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
|
addr_call draw_string, path_buf2
|
|
addr_call draw_string, 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 set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::MoveTo, common_input1_textpos
|
|
addr_call draw_string, path_buf0
|
|
addr_call draw_string, path_buf2
|
|
addr_call draw_string, 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 #GLYPH_INSPT
|
|
sta path_buf2+1
|
|
lda #$00
|
|
sta path_buf0
|
|
jsr jt_03
|
|
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
|
|
copy #1, path_buf2
|
|
copy #GLYPH_INSPT, path_buf2+1
|
|
jsr jt_03
|
|
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 common_input2_textpos+2, $08
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
|
addr_call draw_string, str_1_char
|
|
addr_call draw_string, path_buf2
|
|
jsr L6E9F
|
|
rts
|
|
|
|
L6BC3: .byte 0
|
|
lda path_buf1
|
|
bne L6BCA
|
|
rts
|
|
|
|
L6BCA: dec path_buf1
|
|
jsr L6E72
|
|
stax $06
|
|
copy16 common_input2_textpos+2, $08
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
|
addr_call draw_string, path_buf2
|
|
addr_call draw_string, 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 common_input2_textpos+2, $08
|
|
lda winfo_entrydlg
|
|
jsr set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::MoveTo, $06
|
|
addr_call draw_string, path_buf2
|
|
addr_call draw_string, 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 set_port_for_window
|
|
MGTK_RELAY_CALL MGTK::MoveTo, common_input2_textpos
|
|
addr_call draw_string, path_buf1
|
|
addr_call draw_string, path_buf2
|
|
addr_call draw_string, 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 #GLYPH_INSPT
|
|
sta path_buf2+1
|
|
lda #$00
|
|
sta path_buf1
|
|
jsr jt_03
|
|
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
|
|
copy #1, path_buf2
|
|
copy #GLYPH_INSPT, path_buf2+1
|
|
jsr jt_03
|
|
jsr L6E9F
|
|
rts
|
|
|
|
jump_table:
|
|
jt_00: jmp 0 ; ok button ???
|
|
jt_01: jmp 0 ; cancel button ???
|
|
jt_02: jmp 0 ; input loop
|
|
jt_03: jmp 0
|
|
jt_04: jmp 0
|
|
jt_05: jmp 0
|
|
jt_06: jmp 0
|
|
jt_07: jmp 0
|
|
jt_08: jmp 0 ; delete key ???
|
|
jt_09: jmp 0 ; left key ???
|
|
jt_10: jmp 0 ; right key ???
|
|
jt_11: jmp 0 ; meta-left key ???
|
|
jt_12: jmp 0 ; meta-right key ???
|
|
jt_13: jmp 0 ; click handler ???
|
|
|
|
L6D48: stax $06
|
|
ldx path_buf0
|
|
lda #'/'
|
|
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 #'/'
|
|
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 #'/'
|
|
bne L6D9E
|
|
L6DAF: rts
|
|
|
|
L6DB0: ldx path_buf1
|
|
cpx #$00
|
|
beq L6DC1
|
|
dec path_buf1
|
|
lda path_buf1,x
|
|
cmp #'/'
|
|
bne L6DB0
|
|
L6DC1: rts
|
|
|
|
jsr L6D9E
|
|
jsr jt_03
|
|
rts
|
|
|
|
jsr L6DB0
|
|
jsr jt_03
|
|
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 jt_03
|
|
rts
|
|
|
|
L6E1B: .byte 0
|
|
L6E1C: .byte 0
|
|
ldx path_buf
|
|
L6E20: lda path_buf,x
|
|
sta path_buf0,x
|
|
dex
|
|
bpl L6E20
|
|
addr_call adjust_filename_case, path_buf0
|
|
rts
|
|
|
|
ldx path_buf
|
|
L6E34: lda path_buf,x
|
|
sta path_buf1,x
|
|
dex
|
|
bpl L6E34
|
|
addr_call adjust_filename_case, 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 common_input1_textpos
|
|
tay
|
|
lda $0A
|
|
adc common_input1_textpos+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 common_input2_textpos
|
|
tay
|
|
lda $0A
|
|
adc common_input2_textpos+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 adjust_filename_case, $D3C1
|
|
addr_call adjust_filename_case, 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
|