2018-08-23 20:02:48 +00:00
|
|
|
!cpu 6502
|
|
|
|
!to "build/LAUNCHER.SYSTEM",plain
|
|
|
|
*=$2000
|
|
|
|
|
2018-08-26 19:33:32 +00:00
|
|
|
!source "src/constants.a"
|
|
|
|
!source "src/macros.a"
|
2018-11-10 13:36:36 +00:00
|
|
|
|
|
|
|
; first-run initialization, relocates code to language card and continues from Main
|
2018-11-07 23:56:39 +00:00
|
|
|
!source "src/4cade.init.a"
|
2018-10-23 19:44:06 +00:00
|
|
|
|
2018-10-29 23:23:43 +00:00
|
|
|
FirstMover
|
|
|
|
!pseudopc $D000 {
|
|
|
|
Reenter ; self-running demos should call this to exit back to 4cade
|
2018-12-10 00:04:36 +00:00
|
|
|
cld
|
|
|
|
cli
|
2018-10-29 23:23:43 +00:00
|
|
|
+READ_RAM1_WRITE_RAM1
|
2018-11-12 02:13:27 +00:00
|
|
|
jsr CloseHandles ; close any open handles to restore ProRWTS state to original
|
2018-11-26 19:43:39 +00:00
|
|
|
jsr SaveScreenHoles ; restore screen hole contents from saved copy
|
2018-10-28 21:20:48 +00:00
|
|
|
Main
|
2018-10-29 23:23:43 +00:00
|
|
|
ldx #$FF
|
|
|
|
txs
|
2018-10-28 18:04:52 +00:00
|
|
|
jsr BlankHGR
|
2018-12-23 16:13:47 +00:00
|
|
|
@loop
|
|
|
|
bit $C010
|
2018-10-27 22:47:27 +00:00
|
|
|
jsr AttractMode
|
2018-12-23 16:13:47 +00:00
|
|
|
jmp @loop
|
2018-10-27 22:47:27 +00:00
|
|
|
|
2018-08-31 04:31:54 +00:00
|
|
|
; these routines will only be called after relocating to language card
|
2018-12-23 16:13:47 +00:00
|
|
|
!source "src/ui.search.mode.a"
|
2018-11-07 23:56:39 +00:00
|
|
|
!source "src/ui.attract.mode.a"
|
2018-09-13 13:53:04 +00:00
|
|
|
!source "src/prodos.path.a"
|
2018-08-31 04:31:54 +00:00
|
|
|
!source "src/glue.prorwts2.a"
|
2018-08-30 20:30:58 +00:00
|
|
|
!source "src/okvs.a"
|
2018-10-29 23:23:43 +00:00
|
|
|
!source "src/wait.a"
|
2018-10-23 19:44:06 +00:00
|
|
|
!source "src/parse.common.a"
|
2018-11-11 13:42:53 +00:00
|
|
|
!source "src/parse.prefs.a"
|
2018-08-31 04:31:54 +00:00
|
|
|
!source "src/parse.games.a"
|
2018-12-23 16:13:47 +00:00
|
|
|
!source "src/ui.font.a"
|
|
|
|
!source "src/ui.font.data.a"
|
2018-11-10 15:08:14 +00:00
|
|
|
gGlobalPrefsStore
|
2018-08-31 04:31:54 +00:00
|
|
|
!word *+2 ; address of first okvs store
|
2018-08-29 19:27:30 +00:00
|
|
|
}
|
|
|
|
LastMover
|