mirror of
https://github.com/mi57730/a2d.git
synced 2025-02-20 02:29:11 +00:00
Merge remote-tracking branch 'origin/disasm'
This commit is contained in:
Joshua Bell
commit
c81191651b
@ -263,6 +263,7 @@ L41CB: ldx cached_window_id
|
||||
by_icon:
|
||||
copy cached_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
jsr cached_icons_window_to_screen
|
||||
|
||||
COPY_BLOCK grafport2::cliprect, tmp_rect
|
||||
@ -279,9 +280,11 @@ L41FE: lda L4241
|
||||
: inc L4241
|
||||
jmp L41FE
|
||||
|
||||
L4227: copy #$00, draw_window_header_flag
|
||||
L4227: copy #0, draw_window_header_flag
|
||||
|
||||
copy cached_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
jsr cached_icons_screen_to_window
|
||||
lda active_window_id
|
||||
jsr assign_window_portbits
|
||||
@ -2293,8 +2296,10 @@ L516D: lda L51EB,x
|
||||
|
||||
lda active_window_id
|
||||
jsr create_file_icon_ep2
|
||||
|
||||
copy active_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
jsr cached_icons_window_to_screen
|
||||
copy #0, L51EF
|
||||
L518D: lda L51EF
|
||||
@ -3076,7 +3081,7 @@ L578D: .byte 0
|
||||
;;; Keyboard-based scrolling of window contents
|
||||
|
||||
.proc cmd_scroll
|
||||
jsr L5803
|
||||
jsr get_active_window_scroll_info
|
||||
loop: jsr get_event
|
||||
lda event_kind
|
||||
cmp #MGTK::EventKind::button_down
|
||||
@ -3125,17 +3130,19 @@ vertical:
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
.proc L5803
|
||||
.proc get_active_window_scroll_info
|
||||
jsr LoadActiveWindowIconTable
|
||||
ldx active_window_id
|
||||
dex
|
||||
lda win_view_by_table,x
|
||||
sta active_window_view_by
|
||||
jsr L58C3
|
||||
stax L585F
|
||||
jsr get_active_window_hscroll_info
|
||||
sta horiz_scroll_pos
|
||||
stx horiz_scroll_max
|
||||
sty horiz_scroll_flag
|
||||
jsr L58E2
|
||||
stax L5861
|
||||
jsr get_active_window_vscroll_info
|
||||
sta vert_scroll_pos
|
||||
stx vert_scroll_max
|
||||
sty vert_scroll_flag
|
||||
rts
|
||||
.endproc
|
||||
@ -3143,126 +3150,132 @@ vertical:
|
||||
;;; ============================================================
|
||||
|
||||
scroll_right: ; elevator right / contents left
|
||||
ldax L585F
|
||||
jsr L5863
|
||||
sta L585F
|
||||
lda horiz_scroll_pos
|
||||
ldx horiz_scroll_max
|
||||
jsr do_scroll_right
|
||||
sta horiz_scroll_pos
|
||||
rts
|
||||
|
||||
scroll_left: ; elevator left / contents right
|
||||
lda L585F
|
||||
jsr L587E
|
||||
sta L585F
|
||||
lda horiz_scroll_pos
|
||||
jsr do_scroll_left
|
||||
sta horiz_scroll_pos
|
||||
rts
|
||||
|
||||
scroll_down: ; elevator down / contents up
|
||||
ldax L5861
|
||||
jsr L5893
|
||||
sta L5861
|
||||
lda vert_scroll_pos
|
||||
ldx vert_scroll_max
|
||||
jsr do_scroll_down
|
||||
sta vert_scroll_pos
|
||||
rts
|
||||
|
||||
scroll_up: ; elevator up / contents down
|
||||
lda L5861
|
||||
jsr L58AE
|
||||
sta L5861
|
||||
lda vert_scroll_pos
|
||||
jsr do_scroll_up
|
||||
sta vert_scroll_pos
|
||||
rts
|
||||
|
||||
horiz_scroll_flag: .byte 0 ; can scroll horiz?
|
||||
vert_scroll_flag: .byte 0 ; can scroll vert?
|
||||
L585F: .word 0
|
||||
L5861: .word 0
|
||||
horiz_scroll_pos: .byte 0
|
||||
horiz_scroll_max: .byte 0
|
||||
vert_scroll_pos: .byte 0
|
||||
vert_scroll_max: .byte 0
|
||||
|
||||
.proc L5863
|
||||
stx L587D
|
||||
cmp L587D
|
||||
.proc do_scroll_right
|
||||
stx max
|
||||
cmp max
|
||||
beq :+
|
||||
sta updatethumb_stash
|
||||
inc updatethumb_stash
|
||||
lda #MGTK::Ctl::horizontal_scroll_bar
|
||||
sta updatethumb_which_ctl
|
||||
jsr L5C54
|
||||
copy #MGTK::Ctl::horizontal_scroll_bar, updatethumb_which_ctl
|
||||
jsr update_scroll_thumb
|
||||
lda updatethumb_stash
|
||||
: rts
|
||||
|
||||
L587D: .byte 0
|
||||
max: .byte 0
|
||||
.endproc
|
||||
|
||||
.proc L587E
|
||||
.proc do_scroll_left
|
||||
beq :+
|
||||
sta updatethumb_stash
|
||||
dec updatethumb_stash
|
||||
lda #MGTK::Ctl::horizontal_scroll_bar
|
||||
sta updatethumb_which_ctl
|
||||
jsr L5C54
|
||||
copy #MGTK::Ctl::horizontal_scroll_bar, updatethumb_which_ctl
|
||||
jsr update_scroll_thumb
|
||||
lda updatethumb_stash
|
||||
: rts
|
||||
.byte 0
|
||||
.endproc
|
||||
|
||||
.proc L5893
|
||||
stx L58AD
|
||||
cmp L58AD
|
||||
.proc do_scroll_down
|
||||
stx max
|
||||
cmp max
|
||||
beq :+
|
||||
sta updatethumb_stash
|
||||
inc updatethumb_stash
|
||||
lda #MGTK::Ctl::vertical_scroll_bar
|
||||
sta updatethumb_which_ctl
|
||||
jsr L5C54
|
||||
copy #MGTK::Ctl::vertical_scroll_bar, updatethumb_which_ctl
|
||||
jsr update_scroll_thumb
|
||||
lda updatethumb_stash
|
||||
: rts
|
||||
|
||||
L58AD: .byte 0
|
||||
max: .byte 0
|
||||
.endproc
|
||||
|
||||
.proc L58AE
|
||||
.proc do_scroll_up
|
||||
beq :+
|
||||
sta updatethumb_stash
|
||||
dec updatethumb_stash
|
||||
lda #MGTK::Ctl::vertical_scroll_bar
|
||||
sta updatethumb_which_ctl
|
||||
jsr L5C54
|
||||
copy #MGTK::Ctl::vertical_scroll_bar, updatethumb_which_ctl
|
||||
jsr update_scroll_thumb
|
||||
lda updatethumb_stash
|
||||
: rts
|
||||
|
||||
.byte 0
|
||||
.endproc
|
||||
|
||||
.proc L58C3
|
||||
;;; Output: A = hscroll pos, X = hscroll max, Y = hscroll active flag (high bit)
|
||||
.proc get_active_window_hscroll_info
|
||||
ptr := $06
|
||||
|
||||
lda active_window_id
|
||||
jsr window_lookup
|
||||
stax $06
|
||||
ldy #$06
|
||||
lda ($06),y
|
||||
stax ptr
|
||||
ldy #MGTK::Winfo::hthumbmax
|
||||
lda (ptr),y
|
||||
tax
|
||||
iny
|
||||
lda ($06),y
|
||||
iny ; hthumbpos
|
||||
lda (ptr),y
|
||||
pha
|
||||
ldy #$04
|
||||
lda ($06),y
|
||||
and #$01
|
||||
ldy #MGTK::Winfo::hscroll
|
||||
lda (ptr),y
|
||||
and #$01 ; active flag
|
||||
clc
|
||||
ror a
|
||||
ror a
|
||||
ror a ; shift to high bit
|
||||
tay
|
||||
pla
|
||||
rts
|
||||
.endproc
|
||||
|
||||
.proc L58E2
|
||||
;;; Output: A = vscroll pos, X = vscroll max, Y = vscroll active flag (high bit)
|
||||
.proc get_active_window_vscroll_info
|
||||
ptr := $06
|
||||
|
||||
lda active_window_id
|
||||
jsr window_lookup
|
||||
stax $06
|
||||
ldy #$08
|
||||
lda ($06),y
|
||||
stax ptr
|
||||
ldy #MGTK::Winfo::vthumbmax
|
||||
lda (ptr),y
|
||||
tax
|
||||
iny
|
||||
lda ($06),y
|
||||
lda (ptr),y
|
||||
pha
|
||||
ldy #$05
|
||||
lda ($06),y
|
||||
and #$01
|
||||
ldy #MGTK::Winfo::vscroll
|
||||
lda (ptr),y
|
||||
and #$01 ; active flag
|
||||
clc
|
||||
ror a
|
||||
ror a
|
||||
ror a ; shift to high bit
|
||||
tay
|
||||
pla
|
||||
rts
|
||||
@ -3612,7 +3625,7 @@ active_window_view_by:
|
||||
and #$01
|
||||
bne :+
|
||||
jmp done_client_click
|
||||
: jsr L5803
|
||||
: jsr get_active_window_scroll_info
|
||||
lda findcontrol_which_part
|
||||
cmp #MGTK::Part::thumb
|
||||
bne :+
|
||||
@ -3658,7 +3671,7 @@ horiz: lda active_window_id
|
||||
and #$01
|
||||
bne :+
|
||||
jmp done_client_click
|
||||
: jsr L5803
|
||||
: jsr get_active_window_scroll_info
|
||||
lda findcontrol_which_part
|
||||
cmp #MGTK::Part::thumb
|
||||
bne :+
|
||||
@ -3709,24 +3722,25 @@ done_client_click:
|
||||
lda trackthumb_thumbmoved
|
||||
bne :+
|
||||
rts
|
||||
: jsr L5C54
|
||||
: jsr update_scroll_thumb
|
||||
jsr StoreWindowIconTable
|
||||
jmp LoadDesktopIconTable
|
||||
.endproc
|
||||
|
||||
;;; ============================================================
|
||||
|
||||
.proc L5C54
|
||||
lda updatethumb_stash
|
||||
sta updatethumb_thumbpos
|
||||
.proc update_scroll_thumb
|
||||
copy updatethumb_stash, updatethumb_thumbpos
|
||||
MGTK_RELAY_CALL MGTK::UpdateThumb, updatethumb_params
|
||||
jsr L6523
|
||||
jsr L84D1
|
||||
bit active_window_view_by
|
||||
bmi :+
|
||||
bmi :+ ; list view, no icons
|
||||
jsr cached_icons_screen_to_window
|
||||
|
||||
: copy active_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
MGTK_RELAY_CALL MGTK::PaintRect, grafport2::cliprect
|
||||
jsr reset_grafport3
|
||||
jmp L6C19
|
||||
@ -3807,15 +3821,18 @@ replace:
|
||||
inc selected_icon_count
|
||||
|
||||
copy active_window_id, selected_window_index
|
||||
copy active_window_id, getwinport_params2::window_id
|
||||
|
||||
copy active_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
copy icon_num, icon_param
|
||||
jsr icon_window_to_screen
|
||||
jsr offset_grafport2_and_set
|
||||
DESKTOP_RELAY_CALL DT_HIGHLIGHT_ICON, icon_param
|
||||
|
||||
copy active_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
lda icon_num
|
||||
jsr icon_screen_to_window
|
||||
jsr reset_grafport3
|
||||
@ -3879,8 +3896,10 @@ desktop:
|
||||
|
||||
: cpx #$FF
|
||||
beq L5DF7
|
||||
|
||||
copy active_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
jsr cached_icons_window_to_screen
|
||||
jsr offset_grafport2_and_set
|
||||
|
||||
@ -3898,6 +3917,7 @@ desktop:
|
||||
|
||||
copy active_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
jsr update_scrollbars
|
||||
jsr cached_icons_screen_to_window
|
||||
jsr reset_grafport3
|
||||
@ -3998,6 +4018,7 @@ L5E77: .byte 0
|
||||
|
||||
: copy active_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
jsr set_penmode_copy
|
||||
MGTK_RELAY_CALL MGTK::PaintRect, grafport2::cliprect
|
||||
ldx active_window_id
|
||||
@ -5179,6 +5200,7 @@ L6BB8: jsr L744B
|
||||
|
||||
copy active_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
jsr draw_window_header
|
||||
jsr cached_icons_window_to_screen
|
||||
copy #0, L6C0E
|
||||
@ -5220,9 +5242,10 @@ L6C0E: .byte 0
|
||||
jmp L6CCD
|
||||
|
||||
L6C25: jsr push_pointers
|
||||
lda cached_window_id
|
||||
sta getwinport_params2::window_id
|
||||
|
||||
copy cached_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
bit draw_window_header_flag
|
||||
bmi :+
|
||||
jsr draw_window_header
|
||||
@ -5296,9 +5319,9 @@ rows_done:
|
||||
.byte 0
|
||||
.endproc
|
||||
|
||||
L6CCD: lda cached_window_id
|
||||
sta getwinport_params2::window_id
|
||||
L6CCD: copy cached_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
bit draw_window_header_flag
|
||||
bmi :+
|
||||
jsr draw_window_header
|
||||
@ -5314,9 +5337,10 @@ L6CF3: cpx cached_window_icon_count
|
||||
bne L6D09
|
||||
pla
|
||||
jsr reset_grafport3
|
||||
lda cached_window_id
|
||||
sta getwinport_params2::window_id
|
||||
|
||||
copy cached_window_id, getwinport_params2::window_id
|
||||
jsr get_set_port2
|
||||
|
||||
jsr cached_icons_screen_to_window
|
||||
rts
|
||||
|
||||
|
||||
6
mgtk.inc
6
mgtk.inc
@ -376,10 +376,10 @@ SetMark = $37
|
||||
|
||||
.struct Winfo
|
||||
window_id .byte
|
||||
options .byte ; option_*
|
||||
options .byte ; Option::*
|
||||
title .addr
|
||||
hscroll .byte ; scroll_option_*
|
||||
vscroll .byte ; scroll_option_*
|
||||
hscroll .byte ; Scroll::option_*
|
||||
vscroll .byte ; Scroll::option_*
|
||||
hthumbmax .byte
|
||||
hthumbpos .byte
|
||||
vthumbmax .byte
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user