Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-04-11 08:37:10 +00:00
Code Issues Projects Releases Wiki Activity

Consolidate padding

Browse Source
This commit is contained in:
Joshua Bell 2018-12-27 21:25:52 -08:00
parent 4cf8ab90ab
commit 23acfe7c50
1 changed files with 16 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
desktop/desktop_main.s
View File

@ -438,8 +438,6 @@ offset_table:
.byte menu8_start - dispatch_table
.byte menu_end - dispatch_table
PAD_TO $4359
flag: .byte $00
;; Handle accelerator keys
@ -2194,8 +2192,6 @@ fail: jsr DESKTOP_SHOW_ALERT
.endproc
cmd_quit := cmd_quit_impl::start
PAD_TO $50F9 ; Maintain previous addresses
;;; ============================================================
.proc cmd_view_by_icon
@ -3545,10 +3541,6 @@ check_drive_flags:
rts
.endproc
;;; ============================================================
PAD_TO $5B1B ; Maintain previous addresses
;;; ============================================================
active_window_view_by:
@ -9264,19 +9256,6 @@ open: MLI_RELAY_CALL OPEN, open_params
restore_dynamic_routine := load_dynamic_routine_impl::restore
;;; ============================================================
;;; Operations performed on selection
;;;
;;; These operate on the entire selection recursively, e.g.
;;; computing size, deleting, copying, etc., and share common
;;; logic.
.enum PromptResult
ok = 0
cancel = 1
yes = 2
no = 3
all = 4
.endenum
.proc show_clock
lda MACHID
@ -9336,6 +9315,21 @@ done: rts
PAD_TO $8F00
;;; ============================================================
;;; Operations performed on selection
;;;
;;; These operate on the entire selection recursively, e.g.
;;; computing size, deleting, copying, etc., and share common
;;; logic.
.enum PromptResult
ok = 0
cancel = 1
yes = 2
no = 3
all = 4
.endenum
;;; ============================================================
jt_drop: jmp do_drop
@ -10000,8 +9994,6 @@ L92E6: .byte 0
exit: rts
.endproc
PAD_TO $92E7 ; Maintain offsets
;;; ============================================================
;;; Get Info
@ -10242,10 +10234,6 @@ str_vol:
.endproc
L92F5 := do_get_info::L92F5
;;; ============================================================
PAD_TO $9569 ; Maintain previous addresses
;;; ============================================================
.proc do_rename_icon_impl
@ -12120,9 +12108,6 @@ do_on_line:
show_error_alert := show_error_alert_impl::flag_clear
show_error_alert_dst := show_error_alert_impl::flag_set
.assert * = $A4D0, error, "Segment length mismatch"
;;; ============================================================
;;; Reformat /RAM (Slot 3, Drive 2) if present
;;; Assumes ROM is banked in, restores it when complete. Also
@ -12158,6 +12143,7 @@ RAMSLOT := DEVADR + $16 ; Slot 3, Drive 2
driver: jmp (RAMSLOT)
.endproc
;;; ============================================================
PAD_TO $A500