From 84bf831e933e6747b923acf85d37276fa4940297 Mon Sep 17 00:00:00 2001
From: frankmilliron <34376619+frankmilliron@users.noreply.github.com>
Date: Wed, 10 Nov 2021 11:16:40 -0800
Subject: [PATCH] new demo for Apple Invader (#428)

* Add files via upload

* Add files via upload
---
 res/DEMO/APPLE.INVADER        | Bin 0 -> 167 bytes
 res/DEMO/_FileInformation.txt |   1 +
 src/demo/apple.invader.a      |  60 ++++++++++++++++++++++++++++++++++
 3 files changed, 61 insertions(+)
 create mode 100644 res/DEMO/APPLE.INVADER
 create mode 100644 src/demo/apple.invader.a

diff --git a/res/DEMO/APPLE.INVADER b/res/DEMO/APPLE.INVADER
new file mode 100644
index 0000000000000000000000000000000000000000..d4d79a177967c5044fd58f64c55b937c1edfece3
GIT binary patch
literal 167
zcmdOCKA_WlKw<mswTxFh)-qr5Sj5m4y0UWtlfwJ|8NJL`GI|-WtW4-tNKjx(Sb3vY
zSg_Yss8`3U*Tk#W(W`e(RPU0g-i=W}#>$($3*>tZy?TB9dlyEnyw$s2uvbN*_r7HB
z3)$W%xs^V>2i#UN^d5BUo#wTYvG<T$?`$ufh64&)ZtFB1@L`CTjnH=t2=H;$^YjaI
Kba4$r<pBUfzD1D$

literal 0
HcmV?d00001

diff --git a/res/DEMO/_FileInformation.txt b/res/DEMO/_FileInformation.txt
index 6bf890420..63184b6f5 100644
--- a/res/DEMO/_FileInformation.txt
+++ b/res/DEMO/_FileInformation.txt
@@ -6,6 +6,7 @@ ALIEN.DOWNPOUR=Type(06),AuxType(0300),Access(C3)
 ALIEN.MUNCHIES=Type(06),AuxType(0300),Access(C3)
 ALIEN.MUNCH.1=Type(F1),AuxType(0000),Access(C3)
 ALIEN.TYPHOON=Type(06),AuxType(0300),Access(C3)
+APPLE.INVADER=Type(06),AuxType(0200),Access(C3)
 AQUATRON=Type(06),AuxType(BD00),Access(C3)
 AXIS.ASSASSIN=Type(06),AuxType(0300),Access(C3)
 AXIS.ASSASSIN.1=Type(F1),AuxType(0000),Access(C3)
diff --git a/src/demo/apple.invader.a b/src/demo/apple.invader.a
new file mode 100644
index 000000000..e04e5d265
--- /dev/null
+++ b/src/demo/apple.invader.a
@@ -0,0 +1,60 @@
+;license:MIT
+;(c) 2021 by Frank M.
+
+!cpu 6502
+!to "res/DEMO/APPLE.INVADER",plain
+*=$200
+
+         !source "src/constants.a"   ; no code in these
+         !source "src/macros.a"
+
+         +READ_RAM2_WRITE_RAM2
+         jsr   EnableAccelerator
+         +LOAD_FILE_AT title, $00
+
+         lda   #$60
+         sta   $6020
+         jsr   $6002      ; decompress
+
+         lda   #$D8       ; move location from $3F2 to $3D8
+         sta   $1113      ; (program uses reset vector for storage)
+         sta   $1245
+         sta   $4A2C
+         sta   $4A34
+         sta   $4A41
+         sta   $5A9C
+         sta   $5AA4
+         sta   $5AB1
+         sta   $5A9C
+         lda   #$D9       ; move location from $3F3 to $3D9
+         sta   $1FA0
+         sta   $4A31
+         sta   $4F4D
+         sta   $5AA1
+         lda   #$DA       ; move location from $3F4 to $3DA
+         sta   $11AF
+         sta   $1824
+         sta   $19DF
+         sta   $1DE8
+         sta   $1E5A      ; reset vector fix
+
+         lda   #$4C
+         sta   $46C0
+         lda   #0
+         sta   $46C0+1
+         sta   $4A96      ; (moved to $1E37+1)
+         lda   #1
+         sta   $46C0+2    ; exit on keypress
+         sta   $4A9B      ; exit at end of demo loop (moved to $1E37+2)
+
+         +DISABLE_ACCEL
+
+         jmp   $5F00
+
+title    !byte x_e-x_b
+x_b      !text "X/APPLE.INVADER/APPLE.INVADER"
+x_e
+
+!if * > $300 {
+  !error "code is too large, ends at ", *
+}