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