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

DeskTop: misc disasm

Browse Source
This commit is contained in:
Joshua Bell 2018-12-12 20:45:44 -08:00
parent 34b6a67067
commit a3528536ff
4 changed files with 66 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
desktop/desktop_aux.s
View File

@ -1691,8 +1691,8 @@ LA0F2: COPY_STRUCT MGTK::Point, L9F94, moveto_params2
: lda #MGTK::textbg_black : lda #MGTK::textbg_black
setbg: sta settextbg_params setbg: sta settextbg_params
MGTK_CALL MGTK::SetTextBG, settextbg_params MGTK_CALL MGTK::SetTextBG, settextbg_params
lda text_buffer+1 lda text_buffer+1 ; Capitalize first letter of icon
and #$DF and #CASE_MASK ; Why - this is already guaranteed ???
sta text_buffer+1 sta text_buffer+1
MGTK_CALL MGTK::DrawText, drawtext_params MGTK_CALL MGTK::DrawText, drawtext_params
MGTK_CALL MGTK::ShowCursor MGTK_CALL MGTK::ShowCursor
@ -2970,12 +2970,12 @@ str_info_blocks:
str_colon: str_colon:
PASCAL_STRING ": " PASCAL_STRING ": "
LB22D: DEFINE_POINT 160,59 file_count_pos3: DEFINE_POINT 160,59
LB231: DEFINE_POINT 145,59 file_count_pos4: DEFINE_POINT 145,59
LB235: DEFINE_POINT 200,59 files_pos: DEFINE_POINT 200,59
LB239: DEFINE_POINT 185,59 files_pos2: DEFINE_POINT 185,59
LB23D: DEFINE_POINT 205,59 file_count_pos: DEFINE_POINT 205,59
LB241: DEFINE_POINT 195,59 file_count_pos2: DEFINE_POINT 195,59
str_format_disk: PASCAL_STRING "Format a Disk ..." str_format_disk: PASCAL_STRING "Format a Disk ..."
str_select_format: PASCAL_STRING "Select the location where the disk is to be formatted" str_select_format: PASCAL_STRING "Select the location where the disk is to be formatted"

72
desktop/desktop_main.s
View File

@ -1280,7 +1280,7 @@ L49ED: lda L49A5
L49FA: lda L49A5 L49FA: lda L49A5
jsr a_times_64 jsr a_times_64
addax #$DB9E, $06 addax #run_list_paths, $06
L4A0A: ldy #$00 L4A0A: ldy #$00
lda ($06),y lda ($06),y
tay tay
@ -1313,7 +1313,7 @@ L4A2B: iny
L4A46: .byte 0 L4A46: .byte 0
L4A47: pha L4A47: pha
jsr a_times_64 jsr a_times_64
addax #$DB9E, $06 addax #run_list_paths, $06
ldy #$00 ldy #$00
lda ($06),y lda ($06),y
tay tay
@ -1450,7 +1450,7 @@ L4AEA: jsr L4B5F
addr_call copy_quit_string_1, path_buffer addr_call copy_quit_string_1, path_buffer
lda L4BB0 lda L4BB0
jsr a_times_64 jsr a_times_64
addax #$DB9E, $06 addax #run_list_paths, $06
ldy #$00 ldy #$00
lda ($06),y lda ($06),y
sta L4BB1 sta L4BB1
@ -9871,7 +9871,7 @@ L93B8: lda DEVLST,y
yax_call JT_MLI_RELAY, READ_BLOCK, block_params yax_call JT_MLI_RELAY, READ_BLOCK, block_params
bne L93DB bne L93DB
yax_call JT_MLI_RELAY, WRITE_BLOCK, block_params yax_call JT_MLI_RELAY, WRITE_BLOCK, block_params
cmp #$2B cmp #ERR_WRITE_PROTECTED
bne L93DB bne L93DB
lda #$80 lda #$80
sta L942E sta L942E
@ -9984,8 +9984,8 @@ L94A9: lda $220,x
sta L92E3 sta L92E3
lda selected_window_index lda selected_window_index
bne L9519 bne L9519
ldx L953A ldx str_vol
L950E: lda L953A,x L950E: lda str_vol,x
sta str_file_type,x sta str_file_type,x
dex dex
bpl L950E bpl L950E
@ -10002,7 +10002,8 @@ L9534: lda #$00
sta path_buf4 sta path_buf4
rts rts
L953A: PASCAL_STRING " VOL" str_vol:
PASCAL_STRING " VOL"
.proc launch_get_info_dialog .proc launch_get_info_dialog
yax_call launch_dialog, index_get_info_dialog, L92E3 yax_call launch_dialog, index_get_info_dialog, L92E3
@ -10858,13 +10859,13 @@ L9D74: lda open_params4::ref_num
L9D81: yax_call JT_MLI_RELAY, OPEN, open_params5 L9D81: yax_call JT_MLI_RELAY, OPEN, open_params5
beq L9D9B beq L9D9B
cmp #$45 cmp #ERR_VOL_NOT_FOUND
beq L9D96 beq L9D96
jsr show_error_alert_dst jsr show_error_alert_dst
jmp L9D81 jmp L9D81
L9D96: jsr show_error_alert_dst L9D96: jsr show_error_alert_dst
lda #$45 lda #ERR_VOL_NOT_FOUND
L9D9B: rts L9D9B: rts
L9D9C: lda open_params5::ref_num L9D9C: lda open_params5::ref_num
@ -10876,7 +10877,7 @@ L9D9C: lda open_params5::ref_num
L9DA9: copy16 #$0AC0, read_params6::request_count L9DA9: copy16 #$0AC0, read_params6::request_count
L9DB3: yax_call JT_MLI_RELAY, READ, read_params6 L9DB3: yax_call JT_MLI_RELAY, READ, read_params6
beq L9DC8 beq L9DC8
cmp #$4C cmp #ERR_END_OF_FILE
beq L9DD9 beq L9DD9
jsr show_error_alert jsr show_error_alert
jmp L9DB3 jmp L9DB3
@ -10918,7 +10919,7 @@ L9E1B: lda file_info_params2,x
bne L9E1B bne L9E1B
L9E26: yax_call JT_MLI_RELAY, CREATE, create_params3 L9E26: yax_call JT_MLI_RELAY, CREATE, create_params3
beq L9E6F beq L9E6F
cmp #$47 cmp #ERR_DUPLICATE_FILENAME
bne L9E69 bne L9E69
bit L918D bit L918D
bmi L9E60 bmi L9E60
@ -11041,7 +11042,7 @@ L9F1E: bit LE05C
L9F26: jsr decrement_LA2ED L9F26: jsr decrement_LA2ED
L9F29: yax_call JT_MLI_RELAY, DESTROY, destroy_params L9F29: yax_call JT_MLI_RELAY, DESTROY, destroy_params
beq L9F8D beq L9F8D
cmp #$4E cmp #ERR_ACCESS_ERROR
bne L9F8E bne L9F8E
bit L918D bit L918D
bmi L9F62 bmi L9F62
@ -11103,7 +11104,7 @@ L9FBB: lda file_info_params2::storage_type
beq LA022 beq LA022
L9FC2: yax_call JT_MLI_RELAY, DESTROY, destroy_params L9FC2: yax_call JT_MLI_RELAY, DESTROY, destroy_params
beq LA022 beq LA022
cmp #$4E cmp #ERR_ACCESS_ERROR
bne LA01C bne LA01C
bit L918D bit L918D
bmi LA001 bmi LA001
@ -12761,9 +12762,9 @@ do1: ldy #$01
jsr compose_file_count_string jsr compose_file_count_string
lda winfo_alert_dialog lda winfo_alert_dialog
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB231 MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::file_count_pos4
addr_call draw_text1, str_file_count addr_call draw_text1, str_file_count
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB239 MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::files_pos2
addr_call draw_text1, str_files addr_call draw_text1, str_files
rts rts
@ -12785,7 +12786,7 @@ do3: ldy #$01
jsr copy_name_to_buf0_adjust_case jsr copy_name_to_buf0_adjust_case
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LAE7E MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LAE7E
addr_call draw_text1, path_buf0 addr_call draw_text1, path_buf0
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB241 MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::file_count_pos2
addr_call draw_text1, str_file_count addr_call draw_text1, str_file_count
rts rts
@ -12843,9 +12844,9 @@ do1: ldy #$01
jsr compose_file_count_string jsr compose_file_count_string
lda winfo_alert_dialog lda winfo_alert_dialog
jsr set_port_from_window_id jsr set_port_from_window_id
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB22D MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::file_count_pos3
addr_call draw_text1, str_file_count addr_call draw_text1, str_file_count
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB235 MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::files_pos
addr_call draw_text1, str_files addr_call draw_text1, str_files
rts rts
@ -12867,7 +12868,7 @@ do3: ldy #$01
jsr copy_name_to_buf0_adjust_case jsr copy_name_to_buf0_adjust_case
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LAE7E MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LAE7E
addr_call draw_text1, path_buf0 addr_call draw_text1, path_buf0
MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::LB23D MGTK_RELAY_CALL MGTK::MoveTo, desktop_aux::file_count_pos
addr_call draw_text1, str_file_count addr_call draw_text1, str_file_count
rts rts
@ -12944,8 +12945,8 @@ LB2FD: jsr prompt_input_loop
lda path_buf1 lda path_buf1
beq LB2FD beq LB2FD
jsr LBCC9 jsr LBCC9
ldy #$43 ldy #<path_buf1
ldx #$D4 ldx #>path_buf1
return #0 return #0
LB313: jsr reset_grafport3a LB313: jsr reset_grafport3a
@ -13936,7 +13937,8 @@ LBBBC: ldx path_buf1
rts rts
.endproc .endproc
LBC03: lda path_buf2 .proc LBC03
lda path_buf2
cmp #$02 cmp #$02
bcs LBC0B bcs LBC0B
rts rts
@ -13964,8 +13966,10 @@ LBC2D: dec path_buf2
lda winfo_alert_dialog lda winfo_alert_dialog
jsr set_port_from_window_id jsr set_port_from_window_id
rts rts
.endproc
LBC5E: lda path_buf1 .proc LBC5E
lda path_buf1
bne LBC64 bne LBC64
rts rts
@ -14010,8 +14014,10 @@ LBCB3: pla
MGTK_RELAY_CALL MGTK::MoveTo, name_input_textpos MGTK_RELAY_CALL MGTK::MoveTo, name_input_textpos
jsr draw_filename_prompt jsr draw_filename_prompt
rts rts
.endproc
LBCC9: lda path_buf2 .proc LBCC9
lda path_buf2
cmp #$02 cmp #$02
bcs LBCD1 bcs LBCD1
rts rts
@ -14037,6 +14043,9 @@ LBCDF: lda path_buf2,x
MGTK_RELAY_CALL MGTK::MoveTo, name_input_textpos MGTK_RELAY_CALL MGTK::MoveTo, name_input_textpos
jsr draw_filename_prompt jsr draw_filename_prompt
rts rts
.endproc
;;; Entry point???
stax $06 stax $06
ldy #$00 ldy #$00
@ -14726,10 +14735,10 @@ calc_entry_addr:
calc_entry_str: calc_entry_str:
jsr desktop_main::a_times_64 jsr desktop_main::a_times_64
clc clc
adc #<(run_list_entries + $80) adc #<run_list_paths
tay tay
txa txa
adc #>(run_list_entries + $80) adc #>run_list_paths
tax tax
tya tya
rts rts
@ -14992,7 +15001,7 @@ process_volume:
inc icon_count inc icon_count
lda DEVLST,y lda DEVLST,y
jsr desktop_main::create_volume_icon jsr desktop_main::create_volume_icon
sta L0E34 sta cvi_result
MGTK_RELAY_CALL MGTK::CheckEvents MGTK_RELAY_CALL MGTK::CheckEvents
pla ; restore all registers pla ; restore all registers
@ -15002,8 +15011,8 @@ process_volume:
pla pla
pha pha
lda L0E34 lda cvi_result
cmp #$28 cmp #ERR_DEVICE_NOT_CONNECTED
bne L0D64 bne L0D64
ldy volume_num ldy volume_num
lda DEVLST,y lda DEVLST,y
@ -15153,7 +15162,8 @@ unit_number_lo_nibble:
.byte 0 .byte 0
volume_num: volume_num:
.byte 0 .byte 0
L0E34: .byte 0 cvi_result:
.byte 0
.endproc .endproc
;;; ============================================================ ;;; ============================================================
@ -15178,7 +15188,7 @@ L0E36: inx
lda DEVCNT lda DEVCNT
clc clc
adc #3 adc #3
sta LE270 sta check_menu ; obsolete
lda #0 lda #0
sta slot sta slot

32
desktop/desktop_res.s
View File

@ -867,8 +867,15 @@ selector_menu_addr:
.addr selector_menu .addr selector_menu
;; Buffer for Run List entries ;; Buffer for Run List entries
max_run_list_entries = 8
;; Names
run_list_entries: run_list_entries:
.res 640, 0 .res max_run_list_entries * 16, 0
;; Paths
run_list_paths:
.res max_run_list_entries * 64, 0
;;; ============================================================ ;;; ============================================================
;;; Window & Icon State ;;; Window & Icon State
@ -1014,14 +1021,10 @@ disable: .byte 0
LE26F: .byte $00 LE26F: .byte $00
LE270: .byte $04 ; number of items in startup menu? check_menu:
DEFINE_MENU 4
.byte $00 DEFINE_MENU_ITEM str_all
.byte $00,$00,$00,$00,$00,$00,$00,$00 DEFINE_MENU_SEPARATOR
.addr str_all
LE27C: DEFINE_MENU_SEPARATOR
DEFINE_MENU_ITEM sd0s DEFINE_MENU_ITEM sd0s
DEFINE_MENU_ITEM sd1s DEFINE_MENU_ITEM sd1s
DEFINE_MENU_ITEM sd2s DEFINE_MENU_ITEM sd2s
@ -1091,14 +1094,9 @@ selector_menu:
DEFINE_MENU_ITEM label_del DEFINE_MENU_ITEM label_del
DEFINE_MENU_ITEM label_run, '0', '0' DEFINE_MENU_ITEM label_run, '0', '0'
DEFINE_MENU_SEPARATOR DEFINE_MENU_SEPARATOR
DEFINE_MENU_ITEM run_list_entries + 0 * $10, '1', '1' .repeat max_run_list_entries, i
DEFINE_MENU_ITEM run_list_entries + 1 * $10, '2', '2' DEFINE_MENU_ITEM run_list_entries + i * $10, .string(i+1), .string(i+1)
DEFINE_MENU_ITEM run_list_entries + 2 * $10, '3', '3' .endrepeat
DEFINE_MENU_ITEM run_list_entries + 3 * $10, '4', '4'
DEFINE_MENU_ITEM run_list_entries + 4 * $10, '5', '5'
DEFINE_MENU_ITEM run_list_entries + 5 * $10, '6', '6'
DEFINE_MENU_ITEM run_list_entries + 6 * $10, '7', '7'
DEFINE_MENU_ITEM run_list_entries + 7 * $10, '8', '8'
label_add: label_add:
PASCAL_STRING "Add an Entry ..." PASCAL_STRING "Add an Entry ..."

2
inc/prodos.inc
View File

@ -118,6 +118,8 @@ ST_VOLUME_DIRECTORY := $0F
;;; Errors ;;; Errors
;;; ============================================================ ;;; ============================================================
ERR_DEVICE_NOT_CONNECTED := $28
ERR_WRITE_PROTECTED := $2B
ERR_INVALID_REFERENCE := $43 ERR_INVALID_REFERENCE := $43
ERR_PATH_NOT_FOUND := $44 ERR_PATH_NOT_FOUND := $44
ERR_VOL_NOT_FOUND := $45 ERR_VOL_NOT_FOUND := $45