Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-08 13:30:31 +00:00
Code Issues Projects Releases Wiki Activity

thumb scroll

Browse Source
This commit is contained in:
Joshua Bell 2017-08-30 22:13:41 -07:00
parent 2eb641c8aa
commit e23068f671
3 changed files with 36 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
desk.acc/show.text.file/stf.list
View File

@ -382,10 +382,13 @@ Current file: stf.s
000987 1 00 L0987: .byte $00
000988 1 00 L0988: .byte $00
000989 1 00 L0989: .byte $00
00098A 1 00 L098A: .byte $00
00098B 1 00 L098B: .byte $00
00098C 1 00 L098C: .byte $00
00098D 1 00 00 L098D: .byte $00,$00
00098A 1
00098A 1 ;;; Used when dragging vscroll thumb
00098A 1 .proc thumb_scroll_params
00098A 1 00 type: .byte 0 ; vscroll = 1, hscroll = 2 ??
00098B 1 00 00 xcoord: .word 0
00098D 1 00 00 ycoord: .word 0
00098F 1 .endproc
00098F 1 00 L098F: .byte $00
000990 1 00 L0990: .byte $00
000991 1
@ -395,7 +398,7 @@ Current file: stf.s
000993 1 text_string_len:
000993 1 00 .byte 0 ; length
000994 1
000994 1 64 02 L0994: .byte $64,$02
000994 1 64 02 L0994: .byte $64,$02 ; window params???
000996 1 00 L0996: .byte $00
000997 1 10 L0997: .byte $10
000998 1 00 C1 L0998: .byte $00,$C1
@ -519,7 +522,7 @@ Current file: stf.s
000A87 1 E6 09 inc $09
000A89 1 60 L0A89: rts
000A8A 1
000A8A 1 A9 00 L0A8A: lda #$00
000A8A 1 A9 00 L0A8A: lda #0
000A8C 1 8D 6F 09 sta fixed_mode_flag
000A8F 1 AE 01 88 ldx $8801
000A92 1 8D 04 C0 sta RAMWRTOFF
@ -535,7 +538,7 @@ Current file: stf.s
000AAD 1 8D F9 08 sta get_eof_params::ref_num
000AB0 1 8D 03 09 sta close_params::ref_num
000AB3 1 20 89 08 jsr get_file_eof
000AB6 1 20 00 40 38 A2D_CALL $38, L0994
000AB6 1 20 00 40 38 A2D_CALL $38, L0994 ; creates/draws window???
000ABA 1 94 09
000ABC 1 20 00 40 04 A2D_CALL $04, L09A8
000AC0 1 A8 09
@ -661,7 +664,7 @@ Current file: stf.s
000BC9 1
000BC9 1 .proc on_vscroll_click
000BC9 1 A9 01 L0BC9: lda #$01 ; ??
000BCB 1 8D 8A 09 sta L098A
000BCB 1 8D 8A 09 sta thumb_scroll_params::type
000BCE 1 8D 88 09 sta L0988
000BD1 1 AD 85 09 lda query_client_params::scroll
000BD4 1 C9 05 cmp #5
@ -766,8 +769,8 @@ Current file: stf.s
000C84 1 .endproc
000C84 1
000C84 1 .proc calc_track_scroll_delta
000C84 1 AD 63 09 lda L0963
000C87 1 A2 00 ldx #$00
000C84 1 AD 63 09 lda L0963 ; ceil(??? / 50)
000C87 1 A2 00 ldx #0
000C89 1 E8 loop: inx
000C8A 1 38 sec
000C8B 1 E9 32 sbc #50
@ -780,7 +783,7 @@ Current file: stf.s
000C95 1 ;;; Haven't been able to trigger this yet - click on ???
000C95 1 ;;; Possibly horizontal scroll bar? (unused in this DA - generic code?)
000C95 1 A9 02 L0C95: lda #$02
000C97 1 8D 8A 09 sta L098A
000C97 1 8D 8A 09 sta thumb_scroll_params::type
000C9A 1 8D 88 09 sta L0988
000C9D 1 AD 85 09 lda query_client_params::scroll
000CA0 1 C9 05 cmp #5
@ -857,13 +860,14 @@ Current file: stf.s
000D36 1 D0 D0 bne L0D08
000D38 1 60 rts
000D39 1
000D39 1 ;; Used at start of thumb drag
000D39 1 AD 71 09 L0D39: lda mouse_data::xcoord
000D3C 1 8D 8B 09 sta L098B
000D3C 1 8D 8B 09 sta thumb_scroll_params::xcoord
000D3F 1 AD 72 09 lda mouse_data::xcoord+1
000D42 1 8D 8C 09 sta L098C
000D42 1 8D 8C 09 sta thumb_scroll_params::xcoord+1
000D45 1 AD 73 09 lda mouse_data::ycoord
000D48 1 8D 8D 09 sta L098D
000D4B 1 20 00 40 4A A2D_CALL $4A, L098A
000D48 1 8D 8D 09 sta thumb_scroll_params::ycoord
000D4B 1 20 00 40 4A A2D_CALL $4A, thumb_scroll_params
000D4F 1 8A 09
000D51 1 60 rts
000D52 1

BIN
desk.acc/show.text.file/stf.o
View File

Binary file not shown.

30
desk.acc/show.text.file/stf.s
View File

@ -249,10 +249,13 @@ L0986: .byte $00
L0987: .byte $00
L0988: .byte $00
L0989: .byte $00
L098A: .byte $00
L098B: .byte $00
L098C: .byte $00
L098D: .byte $00,$00
;;; Used when dragging vscroll thumb
.proc thumb_scroll_params
type: .byte 0 ; vscroll = 1, hscroll = 2 ??
xcoord: .word 0
ycoord: .word 0
.endproc
L098F: .byte $00
L0990: .byte $00
@ -262,7 +265,7 @@ text_string_addr:
text_string_len:
.byte 0 ; length
L0994: .byte $64,$02
L0994: .byte $64,$02 ; window params???
L0996: .byte $00
L0997: .byte $10
L0998: .byte $00,$C1
@ -379,7 +382,7 @@ L0A74: lda ($06),y
inc $09
L0A89: rts
L0A8A: lda #$00
L0A8A: lda #0
sta fixed_mode_flag
ldx $8801
sta RAMWRTOFF
@ -395,7 +398,7 @@ L0A95: lda $8802,x
sta get_eof_params::ref_num
sta close_params::ref_num
jsr get_file_eof
A2D_CALL $38, L0994
A2D_CALL $38, L0994 ; creates/draws window???
A2D_CALL $04, L09A8
jsr L1088
jsr calc_and_draw_mode
@ -511,7 +514,7 @@ end: rts
.proc on_vscroll_click
L0BC9: lda #$01 ; ??
sta L098A
sta thumb_scroll_params::type
sta L0988
lda query_client_params::scroll
cmp #5
@ -630,7 +633,7 @@ loop: inx
;;; Haven't been able to trigger this yet - click on ???
;;; Possibly horizontal scroll bar? (unused in this DA - generic code?)
L0C95: lda #$02
sta L098A
sta thumb_scroll_params::type
sta L0988
lda query_client_params::scroll
cmp #5
@ -707,13 +710,14 @@ L0D27: sta L099B
bne L0D08
rts
;; Used at start of thumb drag
L0D39: lda mouse_data::xcoord
sta L098B
sta thumb_scroll_params::xcoord
lda mouse_data::xcoord+1
sta L098C
sta thumb_scroll_params::xcoord+1
lda mouse_data::ycoord
sta L098D
A2D_CALL $4A, L098A
sta thumb_scroll_params::ycoord
A2D_CALL $4A, thumb_scroll_params
rts
.proc was_button_released