Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-06-25 21:29:30 +00:00
Code Issues Projects Releases Wiki Activity

disasm: Rename LC relays from SHOUTY_CAPS to TitleCase

Browse Source
This commit is contained in:
Joshua Bell 2019-01-19 09:40:43 -08:00
parent 78dc563020
commit ca15759620
5 changed files with 110 additions and 100 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
desktop/desktop_aux.s
View File

@ -7,6 +7,7 @@
;;; ============================================================
;;; Segment loaded into AUX $851F-$BFFF (follows MGTK)
;;; ============================================================
.proc desktop_aux
.org $851F
@ -2507,20 +2508,26 @@ LA7C8: ldy #4
sta LA6B1
sub16 grafport4::viewloc::xcoord, #2, grafport4::viewloc::xcoord
sub16 grafport4::cliprect::x1, #2, grafport4::cliprect::x1
bit LA6B2
bmi LA820
lda grafport4::viewloc::ycoord
sec
sbc #14
sta grafport4::viewloc::ycoord
bcs LA812
bcs :+
dec grafport4::viewloc::ycoord+1
LA812: lda grafport4::cliprect::y1
:
lda grafport4::cliprect::y1
sec
sbc #14
sta grafport4::cliprect::y1
bcs LA820
bcs :+
dec grafport4::cliprect::y1+1
:
LA820: bit LA6B1
bpl LA833
lda grafport4::cliprect::y2

28
desktop/desktop_lc.s
View File

@ -24,7 +24,7 @@
;;; ============================================================
;;; MGTK call from main>aux, call in Y, params at (X,A)
.proc MGTK_RELAY_IMPL
.proc MGTKRelayImpl
.assert * = MGTK_RELAY, error, "Entry point mismatch"
sty addr-1
stax addr
@ -39,7 +39,7 @@
;;; ============================================================
;;; SET_POS with params at (X,A) followed by DRAW_TEXT call
.proc SETPOS_DRAWTEXT_RELAY
.proc SetPosDrawText
stax addr
sta RAMRDON
sta RAMWRTON
@ -55,7 +55,7 @@
;;; ============================================================
;;; DESKTOP call from main>aux, call in Y params at (X,A)
.proc DESKTOP_RELAY_IMPL
.proc DTRelayImpl
.assert * = DESKTOP_RELAY, error, "Entry point mismatch"
sty addr-1
stax addr
@ -77,7 +77,7 @@
;;; Find first available free icon in the map; if
;;; available, mark it and return index+1.
.proc DESKTOP_ALLOC_ICON
.proc AllocateIcon
sta RAMRDON
sta RAMWRTON
ldx #0
@ -102,7 +102,7 @@ loop: lda free_icon_map,x
;;; Mark the specified icon as free
.proc DESKTOP_FREE_ICON
.proc FreeIcon
tay
sta RAMRDON
sta RAMWRTON
@ -117,7 +117,7 @@ loop: lda free_icon_map,x
;;; ============================================================
;;; Copy data to/from buffers (see cached_window_id / cached_window_icon_list / window_icon_count_table/2) ???
.proc DESKTOP_COPY_BUF_IMPL
.proc XferWindowIconTable
ptr := $6
from:
@ -184,13 +184,13 @@ done: sta RAMRDOFF
flag: .byte 0
rts ; ???
.endproc
DESKTOP_COPY_FROM_BUF := DESKTOP_COPY_BUF_IMPL::from
DESKTOP_COPY_TO_BUF := DESKTOP_COPY_BUF_IMPL::to
StoreWindowIconTable := XferWindowIconTable::from
LoadWindowIconTable := XferWindowIconTable::to
;;; ============================================================
;;; Assign active state to active_window_id window
.proc DESKTOP_ASSIGN_STATE
.proc OverwriteWindowPort
src := $6
dst := $8
@ -204,12 +204,12 @@ flag: .byte 0
copy16 win_table,x, dst
lda dst
clc
adc #20 ; add offset
adc #MGTK::Winfo::port
sta dst
bcc :+
inc dst+1
: ldy #35 ; copy 35 bytes into window state
: ldy #.sizeof(MGTK::GrafPort)-1
loop: lda (src),y
sta (dst),y
dey
@ -223,7 +223,7 @@ loop: lda (src),y
;;; ============================================================
;;; From MAIN, load AUX (A,X) into A
.proc DESKTOP_AUXLOAD
.proc AuxLoad
stx op+2
sta op+1
sta RAMRDON
@ -238,13 +238,13 @@ op: lda dummy1234
;;; From MAIN, show alert
;;; ...with prompt #0
.proc DESKTOP_SHOW_ALERT0
.proc ShowAlert
ldx #$00
;; fall through
.endproc
;;; ... with prompt # in X
.proc DESKTOP_SHOW_ALERT
.proc ShowAlertOption
sta RAMRDON
sta RAMWRTON
jsr desktop_aux::show_alert_indirection

158
desktop/desktop_main.s
View File

@ -46,19 +46,19 @@ JT_MGTK_RELAY: jmp MGTK_RELAY
JT_SIZE_STRING: jmp compose_blocks_string
JT_DATE_STRING: jmp compose_date_string
JT_SELECT_WINDOW: jmp select_and_refresh_window
JT_AUXLOAD: jmp DESKTOP_AUXLOAD
JT_AUXLOAD: jmp AuxLoad
JT_EJECT: jmp cmd_eject
JT_REDRAW_ALL: jmp redraw_windows ; *
JT_DESKTOP_RELAY: jmp DESKTOP_RELAY
JT_LOAD_OVL: jmp load_dynamic_routine
JT_CLEAR_SELECTION: jmp clear_selection ; *
JT_MLI_RELAY: jmp MLI_RELAY ; *
JT_COPY_TO_BUF: jmp DESKTOP_COPY_TO_BUF
JT_COPY_FROM_BUF: jmp DESKTOP_COPY_FROM_BUF
JT_COPY_TO_BUF: jmp LoadWindowIconTable
JT_COPY_FROM_BUF: jmp StoreWindowIconTable
JT_NOOP: jmp cmd_noop
JT_FILE_TYPE_STRING: jmp compose_file_type_string
JT_SHOW_ALERT0: jmp DESKTOP_SHOW_ALERT0
JT_SHOW_ALERT: jmp DESKTOP_SHOW_ALERT
JT_SHOW_ALERT0: jmp ShowAlert
JT_SHOW_ALERT: jmp ShowAlertOption
JT_LAUNCH_FILE: jmp launch_file
JT_CUR_POINTER: jmp set_pointer_cursor ; *
JT_CUR_WATCH: jmp set_watch_cursor
@ -90,7 +90,7 @@ iloop: cpx cached_window_icon_count
jmp iloop
skip: copy #0, cached_window_id
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
;; Clear various flags
lda #0
@ -103,7 +103,7 @@ skip: copy #0, cached_window_id
lda pending_alert
beq main_loop
tay
jsr DESKTOP_SHOW_ALERT0
jsr ShowAlert
;; Main loop
main_loop:
@ -184,7 +184,7 @@ L4113: MGTK_RELAY_CALL MGTK::BeginUpdate, event_window_id
rts
L412B: copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
lda L40F0
sta active_window_id
beq L4143
@ -214,14 +214,14 @@ draw_window_header_flag: .byte 0
L415B: sta active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
copy #$80, draw_window_header_flag
copy cached_window_id, getwinport_params2::window_id
jsr get_port2
jsr draw_window_header
lda active_window_id
jsr copy_window_portbits
jsr DESKTOP_ASSIGN_STATE
jsr OverwriteWindowPort
lda active_window_id
jsr window_lookup
stax $06
@ -611,10 +611,10 @@ start: jsr clear_selection
L44A6: MGTK_RELAY_CALL MGTK::SelectWindow, findwindow_window_id
copy findwindow_window_id, active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
jsr L6C19
copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
copy #MGTK::checkitem_uncheck, checkitem_params::check
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
ldx active_window_id
@ -962,7 +962,7 @@ begin:
;; Get the file info to determine type.
MLI_RELAY_CALL GET_FILE_INFO, get_file_info_params
beq :+
jsr DESKTOP_SHOW_ALERT0
jsr ShowAlert
rts
;; Check file type.
@ -1048,7 +1048,7 @@ not_found:
no_bs: lda #ERR_BASIC_SYS_NOT_FOUND
show_alert_and_fail:
jsr DESKTOP_SHOW_ALERT0
jsr ShowAlert
pla ; pop caller address, return to its caller
pla
rts
@ -1943,7 +1943,7 @@ L4E78: jsr clear_selection
dec LEC2E
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
ldx active_window_id
dex
lda win_view_by_table,x
@ -1957,7 +1957,7 @@ L4E78: jsr clear_selection
L4EA5: cpx cached_window_icon_count
beq L4EB4
lda cached_window_icon_list,x
jsr DESKTOP_FREE_ICON
jsr FreeIcon
inx
jmp L4EA5
@ -1970,9 +1970,9 @@ L4EB7: sta cached_window_icon_list,x
jmp L4EB7
L4EC3: sta cached_window_icon_count
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
MGTK_RELAY_CALL MGTK::CloseWindow, active_window_id
ldx active_window_id
dex
@ -2080,7 +2080,7 @@ L4FD4: copy #$80, new_folder_dialog_params::phase
beq success
;; Failure
jsr DESKTOP_SHOW_ALERT0
jsr ShowAlert
copy16 L504E, new_folder_dialog_params::win_path_ptr
jmp L4FC6
@ -2225,7 +2225,7 @@ start:
entry:
: lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
ldx #$00
txa
: cpx cached_window_icon_count
@ -2288,7 +2288,7 @@ L518D: lda L51EF
L51A7: jsr reset_grafport3
jsr cached_icons_screen_to_window
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
jsr update_scrollbars
lda selected_window_index
beq L51E3
@ -2306,7 +2306,7 @@ L51C0: ldx L51EF
dec L51EF
bne L51C0
L51E3: copy #0, cached_window_id
jmp DESKTOP_COPY_TO_BUF
jmp LoadWindowIconTable
L51EB: .word 0
L51ED: .byte 0
@ -2322,9 +2322,9 @@ L51EF: .byte 0
sta win_view_by_table,x
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
jsr sort_records
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
lda active_window_id
sta getwinport_params2::window_id
jsr get_port2
@ -2473,7 +2473,7 @@ L5265: .byte 0
DESKTOP_RELAY_CALL DT_CLOSE_WINDOW, active_window_id
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
lda icon_count
sec
sbc cached_window_icon_count
@ -2482,14 +2482,14 @@ L5265: .byte 0
loop: cpx cached_window_icon_count
beq done
lda cached_window_icon_list,x
jsr DESKTOP_FREE_ICON
jsr FreeIcon
copy #0, cached_window_icon_list,x
inx
jmp loop
done: jsr DESKTOP_COPY_FROM_BUF
done: jsr StoreWindowIconTable
copy #0, cached_window_id
jmp DESKTOP_COPY_TO_BUF
jmp LoadWindowIconTable
.endproc
;;; ============================================================
@ -2694,7 +2694,7 @@ L545A: tax
L5464: lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
lda active_window_id
jsr window_lookup
stax $06
@ -2731,7 +2731,7 @@ L54B7: pla
jmp L5485
L54BD: copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
L54C5: ldx $1800
ldy #$00
L54CA: lda cached_window_icon_list,y
@ -2916,7 +2916,7 @@ L566A: ldx active_window_id
rts
L5676: copy active_window_id, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
lda cached_window_icon_count
bne L5687
jmp L56F0
@ -2953,7 +2953,7 @@ L56E3: dec L56F8
beq L56F0
jsr reset_grafport3
L56F0: copy #0, cached_window_id
jmp DESKTOP_COPY_TO_BUF
jmp LoadWindowIconTable
L56F8: .byte 0
.endproc
@ -3076,7 +3076,7 @@ loop: jsr get_event
bne :+
done: copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
rts
;; Horizontal ok?
@ -3116,7 +3116,7 @@ vertical:
.proc L5803
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
ldx active_window_id
dex
lda win_view_by_table,x
@ -3265,7 +3265,7 @@ L58AD: .byte 0
sta pending_alert
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
jsr cmd_close_all
jsr clear_selection
ldx cached_window_icon_count
@ -3280,7 +3280,7 @@ L5916: lda cached_window_icon_list,x
copy #0, cached_window_icon_list,x
DESKTOP_RELAY_CALL DT_REMOVE_ICON, icon_param
lda icon_param
jsr DESKTOP_FREE_ICON
jsr FreeIcon
dec cached_window_icon_count
dec icon_count
pla
@ -3310,8 +3310,8 @@ L5976: cpx cached_window_icon_count
bne L5986
lda pending_alert
beq L5983
jsr DESKTOP_SHOW_ALERT0
L5983: jmp DESKTOP_COPY_FROM_BUF
jsr ShowAlert
L5983: jmp StoreWindowIconTable
L5986: txa
pha
@ -3361,7 +3361,7 @@ by_icon_number:
start: sta check_drive_flags
copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
bit check_drive_flags
bpl explicit_command
bvc after_format_erase
@ -3462,7 +3462,7 @@ not_in_map:
jsr redraw_windows_and_desktop
jsr clear_selection
copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
lda devlst_index
tay
@ -3474,7 +3474,7 @@ not_in_map:
jsr remove_icon_from_window
dec icon_count
lda icon_param
jsr DESKTOP_FREE_ICON
jsr FreeIcon
jsr reset_grafport3
DESKTOP_RELAY_CALL DT_REMOVE_ICON, icon_param
@ -3495,9 +3495,9 @@ not_in_map:
cmp #$2F ; there was an error ($2F = ???)
beq add_icon
pha
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
pla
jsr DESKTOP_SHOW_ALERT0
jsr ShowAlert
rts
add_icon:
@ -3513,7 +3513,7 @@ add_icon:
ldy #DT_ADD_ICON
jsr DESKTOP_RELAY ; icon entry addr in A,X
: jsr DESKTOP_COPY_FROM_BUF
: jsr StoreWindowIconTable
jmp redraw_windows_and_desktop
previous_icon_count:
@ -3587,7 +3587,7 @@ active_window_view_by:
.proc handle_client_click
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
ldx active_window_id
dex
lda win_view_by_table,x
@ -3702,9 +3702,9 @@ pgrt: jsr L64B0
jmp done_client_click
done_client_click:
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
copy #0, cached_window_id
jmp DESKTOP_COPY_TO_BUF
jmp LoadWindowIconTable
.endproc
;;; ============================================================
@ -3717,9 +3717,9 @@ done_client_click:
bne :+
rts
: jsr L5C54
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
copy #0, cached_window_id
jmp DESKTOP_COPY_TO_BUF
jmp LoadWindowIconTable
.endproc
;;; ============================================================
@ -3895,9 +3895,9 @@ L5DC4: txa
jsr update_scrollbars
jsr cached_icons_screen_to_window
jsr reset_grafport3
L5DEC: jsr DESKTOP_COPY_FROM_BUF
L5DEC: jsr StoreWindowIconTable
copy #0, cached_window_id
jmp DESKTOP_COPY_TO_BUF
jmp LoadWindowIconTable
L5DF7: ldx saved_stack
txs
@ -4013,10 +4013,10 @@ L5E77: .byte 0
pla
jsr open_directory
jsr cmd_view_by_icon::entry
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
copy active_window_id, getwinport_params2::window_id
jsr get_port2
jsr draw_window_header
@ -4027,7 +4027,7 @@ L5E77: .byte 0
copy #1, menu_click_params::item_num
jsr update_view_menu_check
copy #0, cached_window_id
jmp DESKTOP_COPY_TO_BUF
jmp LoadWindowIconTable
window_id:
.byte 0
@ -4207,13 +4207,13 @@ L6112: ldy #$14
L6143: lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
ldx #$00
L614E: cpx cached_window_icon_count
bne L6161
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
jmp L6196
L6161: txa
@ -4246,12 +4246,12 @@ L6199: .word 0
jsr redraw_windows_and_desktop
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
jsr cached_icons_window_to_screen
jsr update_scrollbars
jsr cached_icons_screen_to_window
copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
jmp reset_grafport3
.endproc
@ -4267,7 +4267,7 @@ handle_close_click:
.proc close_window
lda active_window_id
sta cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
jsr clear_selection
ldx active_window_id
dex
@ -4282,7 +4282,7 @@ handle_close_click:
L6206: cpx cached_window_icon_count
beq L6215
lda cached_window_icon_list,x
jsr DESKTOP_FREE_ICON
jsr FreeIcon
inx
jmp L6206
@ -4296,7 +4296,7 @@ L621B: sta cached_window_icon_list,x
jmp L621B
L6227: sta cached_window_icon_count
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
MGTK_RELAY_CALL MGTK::CloseWindow, active_window_id
ldx active_window_id
dex
@ -4335,7 +4335,7 @@ L6276: ldx active_window_id
sta win_view_by_table,x
MGTK_RELAY_CALL MGTK::FrontWindow, active_window_id
copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
lda #MGTK::checkitem_uncheck
sta checkitem_params::check
MGTK_RELAY_CALL MGTK::CheckItem, checkitem_params
@ -4878,7 +4878,7 @@ L6880: lda findicon_which_icon
cmp trash_icon_num
beq L688E
jsr open_folder_or_volume_icon
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
L688E: rts
L688F: ldx selected_icon_count
@ -5051,7 +5051,7 @@ L6A80: inx
.proc open_folder_or_volume_icon
sta icon_params2
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
lda icon_params2
ldx #$07
L6A95: cmp window_to_dir_icon_table,x
@ -5066,7 +5066,7 @@ L6AA0: inx
rts
L6AA7: stx cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
lda icon_params2
jsr icon_entry_lookup
stax $06
@ -5104,7 +5104,7 @@ L6B01: MGTK_RELAY_CALL MGTK::SelectWindow, cached_window_id
jsr L6C19
jsr redraw_windows
copy #0, cached_window_id
jmp DESKTOP_COPY_TO_BUF
jmp LoadWindowIconTable
L6B1E: lda LEC2E
cmp #$08
@ -5125,7 +5125,7 @@ L6B3A: lda icon_params2
sta window_to_dir_icon_table,x
inx
stx cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
inc LEC2E
ldx cached_window_id
dex
@ -5194,9 +5194,9 @@ L6BF4: lda cached_window_id
sta active_window_id
jsr update_scrollbars
jsr cached_icons_screen_to_window
jsr DESKTOP_COPY_FROM_BUF
jsr StoreWindowIconTable
copy #0, cached_window_id
jsr DESKTOP_COPY_TO_BUF
jsr LoadWindowIconTable
jmp reset_grafport3
L6C0E: .byte 0
@ -5995,7 +5995,7 @@ L72A8: .word 0
.proc do_open
MLI_RELAY_CALL OPEN, open_params
beq done
jsr DESKTOP_SHOW_ALERT0
jsr ShowAlert
jsr mark_icons_not_opened_2
lda selected_window_index
bne :+
@ -6224,7 +6224,7 @@ L74D3: tay
cmp #$43
bcc L750D
lda #ERR_INVALID_PATHNAME
jsr DESKTOP_SHOW_ALERT0
jsr ShowAlert
jsr mark_icons_not_opened_2
dec LEC2E
ldx saved_stack
@ -6513,7 +6513,7 @@ L7767: .byte $14
name_tmp := $1800
inc icon_count
jsr DESKTOP_ALLOC_ICON
jsr AllocateIcon
ldx cached_window_icon_count
inc cached_window_icon_count
sta cached_window_icon_list,x
@ -7751,13 +7751,13 @@ L81E8: cmp16 pos_col_name::ycoord, grafport2::cliprect::y1
rts
L81F7: jsr prepare_col_name
addr_call SETPOS_DRAWTEXT_RELAY, pos_col_name
addr_call SetPosDrawText, pos_col_name
jsr prepare_col_type
addr_call SETPOS_DRAWTEXT_RELAY, pos_col_type
addr_call SetPosDrawText, pos_col_type
jsr prepare_col_size
addr_call SETPOS_DRAWTEXT_RELAY, pos_col_size
addr_call SetPosDrawText, pos_col_size
jsr compose_date_string
addr_jump SETPOS_DRAWTEXT_RELAY, pos_col_date
addr_jump SetPosDrawText, pos_col_date
.endproc
L813F := L813F_impl::start
@ -8779,7 +8779,7 @@ create_icon:
icon_ptr := $6
jsr push_pointers
jsr DESKTOP_ALLOC_ICON
jsr AllocateIcon
ldy devlst_index
sta device_to_icon_map,y
jsr icon_entry_lookup
@ -15110,7 +15110,7 @@ trash_name: PASCAL_STRING " Trash "
lda #1
sta cached_window_icon_count
sta icon_count
jsr DESKTOP_ALLOC_ICON
jsr AllocateIcon
sta trash_icon_num
sta cached_window_icon_list
jsr desktop_main::icon_entry_lookup

9
desktop/desktop_res.s
View File

@ -2,9 +2,10 @@
;;; DeskTop - Resources
;;;
;;; Compiled as part of desktop.s via desktop_lc.s
;;;
;;; Also compiled via desktop_res_builder.s to extract
;;; addresses and build desktop_res.inc used by overlays
;;; ============================================================
;;; ============================================================
;;; Segment loaded into AUX $D200-$ECFF
;;; ============================================================
.assert * = $D200, error, "Addr mismatch"
@ -1407,6 +1408,8 @@ icon_entries:
;;; (there's enough room here for 127 files at 27 bytes each)
;;; ============================================================
;;; Segment loaded into AUX $FB00-$FFFF
;;; ============================================================
.org $FB00

2
desktop/ovl0.inc
View File

@ -131,7 +131,7 @@ L8672: pha
L867B: lda on_line_buffer
beq L8672
jsr $8388 ; into dynamically loaded code???
jsr DESKTOP_ALLOC_ICON ; AUX > MAIN call???
jsr AllocateIcon ; AUX > MAIN call???
ldy L8738
sta $D464,y
asl a