2018-01-18 03:19:01 +00:00
|
|
|
.setcpu "6502"
|
2017-10-12 15:04:27 +00:00
|
|
|
|
2017-12-31 03:21:34 +00:00
|
|
|
.include "apple2.inc"
|
|
|
|
|
.include "../inc/apple2.inc"
|
|
|
|
|
.include "../inc/prodos.inc"
|
2018-01-29 05:18:00 +00:00
|
|
|
.include "../mgtk.inc"
|
2017-12-31 05:03:33 +00:00
|
|
|
.include "../desktop.inc"
|
2018-02-07 05:59:25 +00:00
|
|
|
.include "../macros.inc"
|
2017-12-31 03:21:34 +00:00
|
|
|
|
2018-11-18 04:34:17 +00:00
|
|
|
|
2018-03-05 05:36:00 +00:00
|
|
|
;;; ============================================================
|
2018-01-04 22:18:24 +00:00
|
|
|
;;; DeskTop - the actual application
|
2018-03-05 05:36:00 +00:00
|
|
|
;;; ============================================================
|
2018-01-04 22:18:24 +00:00
|
|
|
|
2018-02-01 18:00:17 +00:00
|
|
|
dummy0000 := $0000 ; overwritten by self-modified code
|
|
|
|
|
dummy1234 := $1234 ; overwritten by self-modified code
|
2018-01-17 03:36:54 +00:00
|
|
|
|
2018-05-03 02:58:17 +00:00
|
|
|
;; TODO: Replace this with linker magic
|
2018-01-21 18:44:26 +00:00
|
|
|
|
2018-05-03 02:58:17 +00:00
|
|
|
.include "desktop_aux.s"
|
|
|
|
|
.include "desktop_lc.s"
|
2019-01-20 19:27:52 +00:00
|
|
|
.include "desktop_res.s"
|
2018-05-03 02:58:17 +00:00
|
|
|
.include "desktop_main.s"
|
2018-11-20 03:55:00 +00:00
|
|
|
|
|
|
|
|
.include "invoker.s"
|
|
|
|
|
|
|
|
|
|
.include "ovl1.s"
|
|
|
|
|
.include "ovl1a.s"
|
|
|
|
|
.include "ovl1b.s"
|
|
|
|
|
.include "ovl1c.s"
|
|
|
|
|
.include "ovl2.s"
|
|
|
|
|
|
|
|
|
|
.macro jump_table_entry addr
|
|
|
|
|
.byte 0
|
|
|
|
|
.addr addr
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
;;; Interdependent Overlays
|
|
|
|
|
|
|
|
|
|
.include "ovl3.s" ; Selector (1/2) @ $9000-$9FFF
|
|
|
|
|
.include "ovl4.s" ; Common @ $5000-$6FFF
|
|
|
|
|
.include "ovl5.s" ; File Copy @ $7000-$77FF
|
|
|
|
|
.include "ovl6.s" ; File Delete @ $7000-$77FF
|
|
|
|
|
.include "ovl7.s" ; Selector (2/2) @ $7000-$77FF
|
|
|
|
|
|
|
|
|
|
common_overlay_L5000 := common_overlay::L5000
|
