From 861ed9e67620ec6b48f4eccd78e385204c2ad70e Mon Sep 17 00:00:00 2001
From: frankmilliron <34376619+frankmilliron@users.noreply.github.com>
Date: Tue, 15 Feb 2022 09:27:56 -0800
Subject: [PATCH] brand new demo for Apple-Oids (#454)

* Add files via upload

* Add files via upload

* Add files via upload

* Add files via upload
---
 res/DEMO/AO                   | Bin 0 -> 125 bytes
 res/DEMO/_FileInformation.txt |   1 +
 src/demo/apple.oids.a         |  64 ++++++++++++++++++++++++++++++++++
 3 files changed, 65 insertions(+)
 create mode 100644 res/DEMO/AO
 create mode 100644 src/demo/apple.oids.a

diff --git a/res/DEMO/AO b/res/DEMO/AO
new file mode 100644
index 0000000000000000000000000000000000000000..fc356c5a4542fd769021c78f5d867e2f87b0e6d1
GIT binary patch
literal 125
zcmV-@0D}K4gTO3<z#zBZtpV0ZtpnCbq5y_fsdb>aAn*TZjRV$bjRDrFV2w^-AOK*g
zOpVu1jh0WT0FBsBsR51IPpQz2pbd=}5se=asb7tkPpP?$m`^N#z#z2WEP}vH08Om`
fz%UJ|{~)OR&UCr(1597JOaK8r2UssbPcK1FY%e#_

literal 0
HcmV?d00001

diff --git a/res/DEMO/_FileInformation.txt b/res/DEMO/_FileInformation.txt
index c16dacd50..9ea782b37 100644
--- a/res/DEMO/_FileInformation.txt
+++ b/res/DEMO/_FileInformation.txt
@@ -6,6 +6,7 @@ ALIEN.AMBUSH=Type(06),AuxType(4000),Access(C3)
 ALIEN.DOWNPOUR=Type(06),AuxType(0300),Access(C3)
 ALIEN.MUNCHIES=Type(06),AuxType(0200),Access(C3)
 ALIEN.TYPHOON=Type(06),AuxType(0300),Access(C3)
+AO=Type(06),AuxType(B900),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)
diff --git a/src/demo/apple.oids.a b/src/demo/apple.oids.a
new file mode 100644
index 000000000..7d9d62981
--- /dev/null
+++ b/src/demo/apple.oids.a
@@ -0,0 +1,64 @@
+;license:MIT
+;(c) 2021 by Frank M.
+
+!cpu 6502
+!to "res/DEMO/AO",plain
+*=$B900
+
+         !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   $604E
+         jsr   $6000      ; decompress
+
+         lda   #$4C
+         sta   $4FD7      ; exit on keypress
+         sta   $4F96      ; exit at end of demo
+         lda   #0
+         sta   $4FD7+1
+         lda   #1
+         sta   $4FD7+2
+
+                          ; doesn't try to detect joystick or joystick buttons
+
+         lda   #$D0       ; disable sounds
+         sta   $0DA0      ; A-P-P-L-E-O-I-D-S
+         sta   $1118      ; alien
+         sta   $111F      ; alien
+
+         lda   #<callback
+         sta   $4F96+1
+         lda   #>callback
+         sta   $4F96+2    ; wait 10 seconds at end of demo once Twilight logo is shown
+
+         +DISABLE_ACCEL
+         jmp   $4D00
+
+callback lda   $C000
+         bmi   +
+         lda   #$FF
+         jsr   $FCA8      ; WAIT 0.16395694 seconds
+         dec   count
+         beq   +
+         jmp   callback
++        jmp   $100
+
+count    !byte $3D        ; number of 0.16395694 second WAIT cycles
+
+                          ; (A*A*2.5 + A*13.5 + 7) * 0.980 usec
+                          ; 163,840 + 3,456 + 7 = 167,303 * 0.980 usec = 163,956.94 usec
+                          ; 163,956.94 usec = 0.16395694 seconds
+                          ; 61 cycles (hex $3D) of A=256 WAIT = 10 seconds
+
+title    !byte x_e-x_b
+x_b      !text "X/AO/AO"
+x_e
+
+!if * > $BDFF {
+  !error "code is too large, ends at ", *
+}