Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-26 02:49:18 +00:00
Code Issues Projects Releases Wiki Activity

misc labels

Browse Source
This commit is contained in:
Joshua Bell 2017-09-01 20:30:55 -07:00
parent 31404ddd52
commit 54605d2e67
4 changed files with 39 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
desk.acc/show.text.file/a2d.inc
View File

@ -4,6 +4,7 @@
;;; Entry Points
A2D := $4000
UNKNOWN_CALL := $8E00
A2D_SET_TEXT_POS:= $0E

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

@ -441,12 +441,12 @@ Current file: stf.s
00096E 1 00 .byte $00
00096F 1
00096F 1 fixed_mode_flag:
00096F 1 00 .byte $00 ; 0 = proportional, otherwise = fixed
00096F 1 00 .byte $00 ; 0 = proportional, otherwise = fixed
000970 1
000970 1 button_state:
000970 1 00 .byte $00
000971 1
000971 1 .proc mouse_params ; queried by main input loop
000971 1 .proc mouse_params ; queried by main input loop
000971 1 00 00 xcoord: .word 0
000973 1 00 00 ycoord: .word 0
000975 1 00 elem: .byte 0
@ -474,13 +474,13 @@ Current file: stf.s
000986 1
000986 1 ;; param block used in dead code (resize?)
000986 1 .proc resize_window_params
000986 1 00 L0986: .byte $00
000987 1 00 L0987: .byte $00
000986 1 00 L0986: .byte 0
000987 1 00 L0987: .byte 0
000988 1 .endproc
000988 1
000988 1 .proc update_scroll_params ; called to update scroll bar position
000988 1 00 type: .byte $00 ; 1 = vertical, 2 = horizontal ?
000989 1 00 pos: .byte $00 ; new position (0...250)
000988 1 00 type: .byte 0 ; 1 = vertical, 2 = horizontal ?
000989 1 00 pos: .byte 0 ; new position (0...250)
00098A 1 .endproc
00098A 1
00098A 1 ;;; Used when dragging vscroll thumb
@ -510,7 +510,7 @@ Current file: stf.s
00099D 1 vscroll_pos:
00099D 1 00 .byte 0
00099E 1
00099E 1 ;; unreferenced
00099E 1 ;; unreferenced ?
00099E 1 00 00 C8 00 .byte $00,$00,$C8,$00,$33,$00,$00 ; ???
0009A2 1 33 00 00
0009A5 1 02 96 00 .byte $02,$96,$00 ; ???
@ -548,7 +548,7 @@ Current file: stf.s
0009DE 1 .endproc
0009DE 1
0009DE 1 .proc init
0009DE 1 8D 09 C0 L09DE: sta ALTZPON
0009DE 1 8D 09 C0 sta ALTZPON
0009E1 1 AD 8B C0 lda LCBANK1
0009E4 1 AD 8B C0 lda LCBANK1
0009E7 1
@ -634,7 +634,7 @@ Current file: stf.s
000A5F 1 E6 07 inc src+1
000A61 1 20 72 0A : jsr copy_pathname ; copy x bytes (src) to (dst)
000A64 1
000A64 1 addr := $401E
000A64 1 addr := $401E ; ???
000A64 1 A9 1E lda #<addr
000A66 1 85 27 sta call_main_addr
000A68 1 A9 40 lda #>addr
@ -801,7 +801,7 @@ Current file: stf.s
000BA8 1 20 00 40 49 A2D_CALL A2D_RESIZE_WINDOW, resize_window_params ; change to clamped size ???
000BAC 1 86 09
000BAE 1 20 98 11 jsr calc_and_draw_mode
000BB1 1 4C F9 0D jmp L0DF9
000BB1 1 4C F9 0D jmp finish_resize
000BB4 1 .endproc
000BB4 1
000BB4 1 ;;; Non-title (client) area clicked
@ -818,7 +818,7 @@ Current file: stf.s
000BC9 1 .endproc
000BC9 1
000BC9 1 .proc on_vscroll_click
000BC9 1 A9 01 L0BC9: lda #A2D_VSCROLL
000BC9 1 A9 01 lda #A2D_VSCROLL
000BCB 1 8D 8A 09 sta thumb_drag_params::type
000BCE 1 8D 88 09 sta update_scroll_params::type
000BD1 1 AD 85 09 lda query_client_params::scroll
@ -972,7 +972,7 @@ Current file: stf.s
000CD7 1 AD B1 09 lda text_box::unk1+1
000CDA 1 6D 62 09 adc window_width+1
000CDD 1 8D B5 09 sta text_box::width+1
000CE0 1 20 D1 0D jsr L0DD1
000CE0 1 20 D1 0D jsr update_hscroll
000CE3 1 20 30 0E jsr draw_content
000CE6 1 60 end: rts
000CE7 1 .endproc
@ -1027,7 +1027,7 @@ Current file: stf.s
000D25 1 A9 00 lda #0
000D27 1 8D 9B 09 store: sta window_params::L099B
000D2A 1 20 5E 0D jsr L0D5E
000D2D 1 20 D1 0D jsr L0DD1
000D2D 1 20 D1 0D jsr update_hscroll
000D30 1 20 30 0E jsr draw_content
000D33 1 20 52 0D jsr was_button_released
000D36 1 D0 D0 bne loop
@ -1113,7 +1113,8 @@ Current file: stf.s
000DD0 1 60 end: rts
000DD1 1 .endproc
000DD1 1
000DD1 1 A9 02 L0DD1: lda #2
000DD1 1 .proc update_hscroll
000DD1 1 A9 02 lda #2
000DD3 1 8D 88 09 sta update_scroll_params::type
000DD6 1 AD B0 09 lda text_box::unk1
000DD9 1 85 06 sta $06
@ -1124,6 +1125,7 @@ Current file: stf.s
000DE6 1 20 00 40 4B A2D_CALL A2D_UPDATE_SCROLL, update_scroll_params
000DEA 1 88 09
000DEC 1 60 rts
000DED 1 .endproc
000DED 1
000DED 1 .proc update_vscroll ; update_scroll_params::pos set by caller
000DED 1 A9 01 lda #1
@ -1133,7 +1135,7 @@ Current file: stf.s
000DF8 1 60 rts
000DF9 1 .endproc
000DF9 1
000DF9 1 .proc L0DF9 ; only called from dead code
000DF9 1 .proc finish_resize ; only called from dead code
000DF9 1 20 00 8E jsr UNKNOWN_CALL
000DFC 1 0C .byte $0C
000DFD 1 00 00 .addr 0
@ -1142,7 +1144,7 @@ Current file: stf.s
000E05 1 AD 98 09 lda window_params::L0998
000E08 1 6A ror a
000E09 1 90 03 bcc :+
000E0B 1 20 D1 0D jsr L0DD1
000E0B 1 20 D1 0D jsr update_hscroll
000E0E 1 AD 9D 09 : lda window_params::vscroll_pos
000E11 1 8D 89 09 sta update_scroll_params::pos
000E14 1 20 ED 0D jsr update_vscroll

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

Binary file not shown.

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

@ -241,12 +241,12 @@ track_scroll_delta:
.byte $00
fixed_mode_flag:
.byte $00 ; 0 = proportional, otherwise = fixed
.byte $00 ; 0 = proportional, otherwise = fixed
button_state:
.byte $00
.proc mouse_params ; queried by main input loop
.proc mouse_params ; queried by main input loop
xcoord: .word 0
ycoord: .word 0
elem: .byte 0
@ -274,13 +274,13 @@ scroll: .byte 0 ; 1 = up, 2 = down, 3 = above, 4 = below, 5 = th
;; param block used in dead code (resize?)
.proc resize_window_params
L0986: .byte $00
L0987: .byte $00
L0986: .byte 0
L0987: .byte 0
.endproc
.proc update_scroll_params ; called to update scroll bar position
type: .byte $00 ; 1 = vertical, 2 = horizontal ?
pos: .byte $00 ; new position (0...250)
type: .byte 0 ; 1 = vertical, 2 = horizontal ?
pos: .byte 0 ; new position (0...250)
.endproc
;;; Used when dragging vscroll thumb
@ -310,7 +310,7 @@ L099B: .byte $00,$FF ; more hscroll?
vscroll_pos:
.byte 0
;; unreferenced
;; unreferenced ?
.byte $00,$00,$C8,$00,$33,$00,$00 ; ???
.byte $02,$96,$00 ; ???
.endproc
@ -344,7 +344,7 @@ height: .word $96
.endproc
.proc init
L09DE: sta ALTZPON
sta ALTZPON
lda LCBANK1
lda LCBANK1
@ -430,7 +430,7 @@ abort: rts
inc src+1
: jsr copy_pathname ; copy x bytes (src) to (dst)
addr := $401E
addr := $401E ; ???
lda #<addr
sta call_main_addr
lda #>addr
@ -532,9 +532,11 @@ title: jsr on_title_bar_click
beq input_loop ; nope
jsr close_file
A2D_CALL A2D_DESTROY_WINDOW, window_params
jsr UNKNOWN_CALL ; hides the cursor?
.byte $0C
.addr 0
rts ; exits input loop
.endproc
@ -588,7 +590,7 @@ L0B8B: sta window_params::L0998
sta resize_window_params::L0986
A2D_CALL A2D_RESIZE_WINDOW, resize_window_params ; change to clamped size ???
jsr calc_and_draw_mode
jmp L0DF9
jmp finish_resize
.endproc
;;; Non-title (client) area clicked
@ -604,7 +606,7 @@ end: rts
.endproc
.proc on_vscroll_click
L0BC9: lda #A2D_VSCROLL
lda #A2D_VSCROLL
sta thumb_drag_params::type
sta update_scroll_params::type
lda query_client_params::scroll
@ -758,7 +760,7 @@ loop: inx
lda text_box::unk1+1
adc window_width+1
sta text_box::width+1
jsr L0DD1
jsr update_hscroll
jsr draw_content
end: rts
.endproc
@ -813,7 +815,7 @@ overflow:
lda #0
store: sta window_params::L099B
jsr L0D5E
jsr L0DD1
jsr update_hscroll
jsr draw_content
jsr was_button_released
bne loop
@ -897,7 +899,8 @@ loop: beq end
end: rts
.endproc
L0DD1: lda #2
.proc update_hscroll
lda #2
sta update_scroll_params::type
lda text_box::unk1
sta $06
@ -907,6 +910,7 @@ L0DD1: lda #2
sta update_scroll_params::pos
A2D_CALL A2D_UPDATE_SCROLL, update_scroll_params
rts
.endproc
.proc update_vscroll ; update_scroll_params::pos set by caller
lda #1
@ -915,7 +919,7 @@ L0DD1: lda #2
rts
.endproc
.proc L0DF9 ; only called from dead code
.proc finish_resize ; only called from dead code
jsr UNKNOWN_CALL
.byte $0C
.addr 0
@ -923,7 +927,7 @@ L0DD1: lda #2
lda window_params::L0998
ror a
bcc :+
jsr L0DD1
jsr update_hscroll
: lda window_params::vscroll_pos
sta update_scroll_params::pos
jsr update_vscroll