Apple Cider Spider demo launcher (#432)

* Add files via upload

* Delete CIDER.SPIDER.Z

* Delete CIDER.SPIDER.0

* Delete CIDER.SPIDER.1

* Delete CIDER.SPIDER.5

* Delete CIDER.SPIDER.7

* Delete CIDER.SPIDER.9

* Add files via upload
This commit is contained in:
frankmilliron 2021-11-11 07:47:48 -08:00 committed by GitHub
parent 08124340a7
commit 3330c7fed2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
9 changed files with 61 additions and 7 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -1,5 +1,6 @@
# This file is maintained by hand
AC=Type(06),AuxType(9B00),Access(C3)
AGENT.U.S.A=Type(06),AuxType(0300),Access(C3)
ALIEN.AMBUSH=Type(06),AuxType(4000),Access(C3)
ALIEN.DOWNPOUR=Type(06),AuxType(0300),Access(C3)
@ -22,13 +23,6 @@ CEILING.ZERO=Type(06),AuxType(0300),Access(C3)
CEILING.ZERO.1=Type(F1),AuxType(0000),Access(C3)
CL=Type(06),AuxType(0200),Access(C3)
CHOPLIFTER=Type(06),AuxType(0300),Access(C3)
AC=Type(06),AuxType(0300),Access(C3)
CIDER.SPIDER.0=Type(F1),AuxType(0000),Access(C3)
CIDER.SPIDER.1=Type(F1),AuxType(0000),Access(C3)
CIDER.SPIDER.5=Type(F1),AuxType(0000),Access(C3)
CIDER.SPIDER.7=Type(F1),AuxType(0000),Access(C3)
CIDER.SPIDER.9=Type(F1),AuxType(0000),Access(C3)
CIDER.SPIDER.Z=Type(F1),AuxType(0000),Access(C3)
CONAN=Type(06),AuxType(0300),Access(C3)
CONAN.1=Type(F1),AuxType(0000),Access(C3)
CRIME.WAVE=Type(06),AuxType(BE00),Access(C3)

60
src/demo/cider.spider.a Normal file
View File

@ -0,0 +1,60 @@
;license:MIT
;(c) 2021 by Frank M.
!cpu 6502
!to "res/DEMO/AC",plain
*=$9B00
!source "src/constants.a" ; no code in these
!source "src/macros.a"
+READ_RAM2_WRITE_RAM2
jsr EnableAccelerator
;+LOAD_FILE_KEEP_DIR
ldx #0 ; read to main memory
stx ldrhi
stx ldrlo
+LDADDR title
jsr iLoadFileDirect
ldx #5-1 ; we also need to copy the length byte
- lda newpath,x
sta $BFD0,x
dex
bpl -
lda #$60
sta $2076
jsr $1FFD ; decompress
lda #0
sta $10AC
lda #1
sta $10B1 ; reset vector patch
lda #$4C
sta $0C00
sta $1D27
lda #0
sta $0C00+1
sta $1D27+1
lda #1
sta $0C00+2
sta $1D27+2 ; set exits
+DISABLE_ACCEL
jmp $1000
newpath
!byte 4
!text "X/AC"
title !byte x_e-x_b
x_b !text "X/AC/AC"
x_e
!if * > $9BA0 {
!error "code is too large, ends at ", *
}