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

overlay windows, sys tracing

Browse Source
This commit is contained in:
Joshua Bell 2018-03-14 20:16:15 -07:00
parent 8fdf8addc3
commit d6b757849b
5 changed files with 89 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
desktop/inc/desktoplc.inc
View File

@ -69,8 +69,10 @@ updatethumb_stash := updatethumb_params + 5 ; not part of struct
;;; ============================================================ ;;; ============================================================
;;; Resources ;;; Resources
winfoF := $D57D
winfo12 := $D5B7 winfo12 := $D5B7
winfo15 := $D5F1 winfo15 := $D5F1
winfo1B := $D665
path_buf0 := $D402 path_buf0 := $D402
path_buf1 := $D443 path_buf1 := $D443

2
desktop/ovl1.s
View File

@ -53,7 +53,7 @@ str_desktop2:
start: lda #$80 start: lda #$80
sta ptr sta ptr
DESKTOP_RELAY_CALL $6, $0 DESKTOP_RELAY_CALL $6, $0
MGTK_RELAY_CALL MGTK::CloseAll, $0 MGTK_RELAY_CALL MGTK::CloseAll
MGTK_RELAY_CALL MGTK::SetZP1, ptr MGTK_RELAY_CALL MGTK::SetZP1, ptr
;; Copy menu bar up to language card, and use it. ;; Copy menu bar up to language card, and use it.

22
desktop/ovl2.s
View File

@ -41,7 +41,7 @@ L0800: pha
L080C: lda #$00 L080C: lda #$00
sta $D8E8 sta $D8E8
jsr LB509 jsr LB509
lda $D57D lda winfoF
jsr set_port_from_window_id jsr set_port_from_window_id
addr_call draw_dialog_title, $B245 addr_call draw_dialog_title, $B245
axy_call draw_dialog_label, $01, $B257 axy_call draw_dialog_label, $01, $B257
@ -64,7 +64,7 @@ L0841: jsr prompt_input_loop
L085F: bit $D887 L085F: bit $D887
bmi L0832 bmi L0832
lda $D57D lda winfoF
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
@ -90,7 +90,7 @@ L08B7: lda $D443
cmp #$10 cmp #$10
bcs L08B1 bcs L08B1
jsr set_cursor_pointer jsr set_cursor_pointer
lda $D57D lda winfoF
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
@ -109,7 +109,7 @@ L0902: jsr prompt_input_loop
beq L090C beq L090C
jmp L09C2 jmp L09C2
L090C: lda $D57D L090C: lda winfoF
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
ldy #$11 ldy #$11
@ -126,7 +126,7 @@ L090C: lda $D57D
lda L09D7 lda L09D7
jsr L126F jsr L126F
bcs L099B bcs L099B
L0942: lda $D57D L0942: lda winfoF
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
@ -174,7 +174,7 @@ L09B8: jsr prompt_input_loop
L09C2: pha L09C2: pha
jsr set_cursor_pointer jsr set_cursor_pointer
jsr reset_state jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, $D57D MGTK_RELAY_CALL MGTK::CloseWindow, winfoF
ldx L09D8 ldx L09D8
pla pla
rts rts
@ -184,7 +184,7 @@ L09D8: .byte 0
L09D9: lda #$00 L09D9: lda #$00
sta $D8E8 sta $D8E8
jsr LB509 jsr LB509
lda $D57D lda winfoF
jsr set_port_from_window_id jsr set_port_from_window_id
addr_call draw_dialog_title, $B319 addr_call draw_dialog_title, $B319
ldax #$B32A ldax #$B32A
@ -204,7 +204,7 @@ L0A0E: jsr prompt_input_loop
L0A18: bit $D887 L0A18: bit $D887
bmi L0A0E bmi L0A0E
copy16 #$A898, $A89A copy16 #$A898, $A89A
lda $D57D lda winfoF
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
@ -230,7 +230,7 @@ L0A7A: lda $D443
cmp #$10 cmp #$10
bcs L0A74 bcs L0A74
jsr set_cursor_pointer jsr set_cursor_pointer
lda $D57D lda winfoF
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
@ -250,7 +250,7 @@ L0AC7: jsr prompt_input_loop
beq L0AD1 beq L0AD1
jmp L0B31 jmp L0B31
L0AD1: lda $D57D L0AD1: lda winfoF
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, pencopy MGTK_RELAY_CALL MGTK::SetPenMode, pencopy
MGTK_RELAY_CALL MGTK::PaintRect, $AE6E MGTK_RELAY_CALL MGTK::PaintRect, $AE6E
@ -282,7 +282,7 @@ L0B2A: jsr prompt_input_loop
L0B31: pha L0B31: pha
jsr set_cursor_pointer jsr set_cursor_pointer
jsr reset_state jsr reset_state
MGTK_RELAY_CALL MGTK::CloseWindow, $D57D MGTK_RELAY_CALL MGTK::CloseWindow, winfoF
ldx L0B47 ldx L0B47
pla pla
rts rts

18
desktop/ovl3.s
View File

@ -398,13 +398,13 @@ L933F: pha
jsr JUMP_TABLE_REDRAW_ALL jsr JUMP_TABLE_REDRAW_ALL
L934F: MGTK_RELAY_CALL MGTK::InitPort, $D239 L934F: MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239 MGTK_RELAY_CALL MGTK::SetPort, $D239
MGTK_RELAY_CALL MGTK::CloseWindow, $D665 MGTK_RELAY_CALL MGTK::CloseWindow, winfo1B
pla pla
jmp L900F jmp L900F
L936E: MGTK_RELAY_CALL MGTK::InitPort, $D239 L936E: MGTK_RELAY_CALL MGTK::InitPort, $D239
MGTK_RELAY_CALL MGTK::SetPort, $D239 MGTK_RELAY_CALL MGTK::SetPort, $D239
MGTK_RELAY_CALL MGTK::CloseWindow, $D665 MGTK_RELAY_CALL MGTK::CloseWindow, winfo1B
rts rts
L938A: .byte 0 L938A: .byte 0
@ -415,8 +415,8 @@ L938E: .byte 0
L938F: .byte 0 L938F: .byte 0
L9390: MGTK_RELAY_CALL MGTK::OpenWindow, $D665 L9390: MGTK_RELAY_CALL MGTK::OpenWindow, winfo1B
lda $D665 lda winfo1B
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::SetPenMode, penXOR MGTK_RELAY_CALL MGTK::SetPenMode, penXOR
MGTK_RELAY_CALL MGTK::FrameRect, $D6D8 MGTK_RELAY_CALL MGTK::FrameRect, $D6D8
@ -555,7 +555,7 @@ L953F: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq L95A2 beq L95A2
lda $D665 lda winfo1B
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -593,7 +593,7 @@ L95C5: MGTK_RELAY_CALL MGTK::GetEvent, event_params
lda event_kind lda event_kind
cmp #MGTK::event_kind_button_up cmp #MGTK::event_kind_button_up
beq L9628 beq L9628
lda $D665 lda winfo1B
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx
@ -645,13 +645,13 @@ L9671: cmp #MGTK::area_content
return #$FF return #$FF
L9678: lda findwindow_window_id L9678: lda findwindow_window_id
cmp $D665 cmp winfo1B
beq L9683 beq L9683
return #$FF return #$FF
L9683: lda $D665 L9683: lda winfo1B
jsr set_port_from_window_id jsr set_port_from_window_id
lda $D665 lda winfo1B
sta screentowindow_window_id sta screentowindow_window_id
MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params MGTK_RELAY_CALL MGTK::ScreenToWindow, screentowindow_params
MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx MGTK_RELAY_CALL MGTK::MoveTo, screentowindow_windowx

104
desktop/sys.s
View File

@ -34,7 +34,7 @@ data_buffer: .addr path_buf
.byte $00,$01 .byte $00,$01
.addr L2362 .addr L2362
L2362: .byte $00 L2362: .byte 0
L2363: .res 15, 0 L2363: .res 15, 0
butn1: .byte 0 ; written, but not read butn1: .byte 0 ; written, but not read
@ -193,8 +193,8 @@ nomatch:
match: sta $D3AC match: sta $D3AC
lda ROMIN2 lda ROMIN2
ldx #$00 ldx #0
jsr L26A5 jsr stx_lc_d3ff
;; Point $8 at $C100 ;; Point $8 at $C100
lda #0 lda #0
@ -275,13 +275,13 @@ L25BF: lda on_line_buffer,y
dey dey
bne L25BF bne L25BF
ldx #$C0 ldx #$C0
jsr L26A5 jsr stx_lc_d3ff
addr_call copy_to_lc2_b, path0 addr_call copy_to_lc2_b, path0
jsr check_desktop2_on_device jsr check_desktop2_on_device
bcs L25E4 bcs L25E4
ldx #$80 ldx #$80
jsr L26A5 jsr stx_lc_d3ff
jsr L2B57 jsr copy_2005_to_lc2_a
jmp fail jmp fail
L25E4: lda BUTN1 L25E4: lda BUTN1
@ -294,7 +294,7 @@ str_slash_desktop:
PASCAL_STRING "/DeskTop" PASCAL_STRING "/DeskTop"
;; Overwrite first bytes of get_file_info_params ;; Overwrite first bytes of get_file_info_params
.proc file_info_ovl .proc dir_file_info
.byte $A ; param_count .byte $A ; param_count
.addr 0 ; pathname .addr 0 ; pathname
.byte ACCESS_DEFAULT ; access .byte ACCESS_DEFAULT ; access
@ -306,32 +306,36 @@ str_slash_desktop:
start_copy: start_copy:
jsr show_copying_screen jsr show_copying_screen
MLI_CALL GET_PREFIX, get_prefix_params MLI_CALL GET_PREFIX, get_prefix_params
beq L2611 beq :+
jmp fail_copy jmp fail_copy
: dec buffer
L2611: dec buffer
ldx #$80 ldx #$80
jsr L26A5 jsr stx_lc_d3ff
ldy buffer ldy buffer
L261C: lda buffer,y : lda buffer,y
sta L2005,y sta L2005,y
dey dey
bpl L261C bpl :-
ldy path0 ldy path0
ldx #$00 ldx #0
L262A: iny : iny
inx inx
lda str_slash_desktop,x lda str_slash_desktop,x
sta path0,y sta path0,y
cpx str_slash_desktop cpx str_slash_desktop
bne L262A bne :-
sty path0 sty path0
;; copy file_type, aux_type, storage_type
ldx #7 ldx #7
L263C: lda file_info_ovl,x : lda dir_file_info,x
sta get_file_info_params,x sta get_file_info_params,x
dex dex
cpx #3 cpx #3
bne L263C bne :-
jsr create_file_for_copy jsr create_file_for_copy
lda path0 lda path0
sta copy_flag sta copy_flag
@ -361,11 +365,11 @@ file_loop:
jmp fail2 jmp fail2
fail2: lda copy_flag fail2: lda copy_flag
beq L268F beq :+
sta path0 sta path0
MLI_CALL SET_PREFIX, set_prefix_params MLI_CALL SET_PREFIX, set_prefix_params
L268F: jsr write_desktop1 : jsr write_desktop1
jsr L2B57 jsr copy_2005_to_lc2_a
lda #$00 lda #$00
sta RAMWORKS_BANK ; ??? sta RAMWORKS_BANK ; ???
@ -376,11 +380,13 @@ L268F: jsr write_desktop1
bpl :- bpl :-
jmp copy_selector_entries_to_ramcard jmp copy_selector_entries_to_ramcard
L26A5: lda LCBANK2 .proc stx_lc_d3ff
lda LCBANK2
lda LCBANK2 lda LCBANK2
stx $D3FF stx $D3FF
lda ROMIN2 lda ROMIN2
rts rts
.endproc
.proc copy_to_lc2_b .proc copy_to_lc2_b
ptr := $6 ptr := $6
@ -857,8 +863,10 @@ start: MLI_CALL OPEN, open_params
;;; ============================================================ ;;; ============================================================
L2B57: addr_call copy_to_lc2_a, L2005 .proc copy_2005_to_lc2_a
addr_call copy_to_lc2_a, L2005
rts rts
.endproc
.byte 0 .byte 0
@ -1116,21 +1124,25 @@ L334A: .byte $00
;;; ============================================================ ;;; ============================================================
L334B: ldx L3349 .proc L334B
ldx L3349
lda L329E lda L329E
sta L329F,x sta L329F,x
inx inx
stx L3349 stx L3349
rts rts
.endproc
;;; ============================================================ ;;; ============================================================
L3359: ldx L3349 .proc L3359
ldx L3349
dex dex
lda L329F,x lda L329F,x
sta L329E sta L329E
stx L3349 stx L3349
rts rts
.endproc
;;; ============================================================ ;;; ============================================================
@ -1154,12 +1166,14 @@ L3359: ldx L3349
;;; ============================================================ ;;; ============================================================
L3392: lda ref_num .proc L3392
lda ref_num
sta close_params::ref_num sta close_params::ref_num
MLI_CALL CLOSE, close_params MLI_CALL CLOSE, close_params
beq :+ beq :+
jmp handle_error_code jmp handle_error_code
: rts : rts
.endproc
;;; ============================================================ ;;; ============================================================
@ -1191,29 +1205,35 @@ done: return #0
;;; ============================================================ ;;; ============================================================
L33E3: lda L329C .proc L33E3
lda L329C
sta L329E sta L329E
jsr L3392 jsr L3392
jsr L334B jsr L334B
jsr append_filename_to_path2 jsr append_filename_to_path2
jsr L3367 jsr L3367
rts rts
.endproc
L33F6: jsr L3392 .proc L33F6
jsr L346E jsr L3392
jsr noop
jsr remove_filename_from_path2 jsr remove_filename_from_path2
jsr L3359 jsr L3359
jsr L3367 jsr L3367
jsr L340C jsr L340C
jsr L346B jsr remove_filename_from_path1_alt2
rts rts
.endproc
L340C: lda L329C .proc L340C
lda L329C
cmp L329E cmp L329E
beq :+ beq :+
jsr L33A4 jsr L33A4
jmp L340C jmp L340C
: rts : rts
.endproc
;;; ============================================================ ;;; ============================================================
@ -1231,7 +1251,7 @@ loop: jsr L33A4
sta filename sta filename
lda #$00 lda #$00
sta L3467 sta L3467
jsr L3468 jsr do_copy_alt
lda L3467 lda L3467
bne loop bne loop
lda file_info + 16 lda file_info + 16
@ -1255,11 +1275,13 @@ done: jsr L3392
L3467: .byte 0 L3467: .byte 0
L3468: jmp L3540 do_copy_alt:
jmp do_copy
L346B: jmp L353D remove_filename_from_path1_alt2:
jmp remove_filename_from_path1_alt
L346E: rts noop: rts
L346F: .byte 0 L346F: .byte 0
@ -1381,11 +1403,12 @@ is_dir_flag:
L353B: .byte 0 L353B: .byte 0
L353C: .byte 0 L353C: .byte 0
L353D: jmp remove_filename_from_path1 remove_filename_from_path1_alt:
jmp remove_filename_from_path1
;;; ============================================================ ;;; ============================================================
.proc L3540 .proc do_copy
lda file_info + 16 ; file_type ??? lda file_info + 16 ; file_type ???
cmp #$0F ; FT_DIRECTORY ??? cmp #$0F ; FT_DIRECTORY ???
bne do_file bne do_file
@ -1987,16 +2010,17 @@ loop: lda KBD
and #$7F and #$7F
sta KBDSTRB sta KBDSTRB
cmp #'M' cmp #'M'
beq L3A97 beq monitor
cmp #'m' cmp #'m'
beq L3A97 beq monitor
cmp #CHAR_RETURN cmp #CHAR_RETURN
bne loop bne loop
jsr HOME jsr HOME
jmp invoke_selector_or_desktop jmp invoke_selector_or_desktop
.endproc .endproc
L3A97: jmp MONZ monitor:
jmp MONZ
;;; ============================================================ ;;; ============================================================