runtime-demo Sneakers

res/DEMO/_FileInformation.txt

@@ -145,8 +145,7 @@ SERPENTINE=Type(06),AuxType(0300),Access(C3)
 SERPENTINE.1=Type(F1),AuxType(0000),Access(C3)
 SNAKE.BYTE=Type(06),AuxType(0300),Access(C3)
 SNAKE.BYTE.1=Type(F1),AuxType(0000),Access(C3)
-SNEAKERS=Type(06),AuxType(0800),Access(C3)
+SNEAKERS=Type(06),AuxType(0300),Access(C3)
-SNEAKERS.1=Type(F1),AuxType(0000),Access(C3)
 SPACE.EGGS=Type(06),AuxType(0300),Access(C3)
 SPACE.EGGS.1=Type(F1),AuxType(0000),Access(C3)
 SPACE.QUARKS=Type(06),AuxType(B000),Access(C3)

res/demosrc/sneakers.a

@@ -0,0 +1,38 @@
+;license:MIT
+;(c) 2021 by qkumba
+
+!cpu 6502
+!to "res/DEMO/SNEAKERS",plain
+*=$300
+
+    !source "src/prelaunch/common.a"
+
+         +READ_RAM2_WRITE_RAM2
+         jsr   EnableAccelerator
+         +LOAD_FILE_AT sneakers, $00
+         lda   #$60
+         sta   $84c7
+         jsr   $3ffa      ; decompress
+         ldx   #0
+         stx   $54AB
+         inx
+         stx   $54AC
+         stx   $9E2F      ; reset vector patch
+         ldx   #8
+-        lda   patch, x
+         sta   $4068, x
+         dex
+         bpl   -
+         jsr   DisableAccelerator
+         +READ_ROM_NO_WRITE
+         jmp   $9e00
+
+sneakers
+         !byte 19
+         !text "X/SNEAKERS/SNEAKERS"
+
+patch    !byte $10,$03,$4C,$00,$01,$EA,$EA,$A9,$00
+
+!if * > $3F0 {
+  !error "code is too large, ends at ", *
+}