convert Bellhop demo, save 13kb

res/DEMO/_FileInformation.txt

@@ -12,7 +12,7 @@ AQUATRON=Type(06),AuxType(BD00),Access(C3)
 AXIS.ASSASSIN=Type(06),AuxType(0300),Access(C3)
 BATTLEZONE=Type(06),AuxType(0300),Access(C3)
 BEER.RUN=Type(06),AuxType(0300),Access(C3)
-BELLHOP=Type(06),AuxType(3FFD),Access(C3)
+BELLHOP=Type(06),AuxType(0300),Access(C3)
 BB=Type(06),AuxType(0300),Access(C3)
 BOLO=Type(06),AuxType(0300),Access(C3)
 BORG=Type(06),AuxType(0310),Access(C3)

src/demo/bellhop.a

@@ -0,0 +1,46 @@
+;license:MIT
+;(c) 2022 by qkumba
+
+!cpu 6502
+!to "res/DEMO/BELLHOP",plain
+*=$300
+
+         !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   $0813
+         jsr   $0800      ; decompress
+         lda   #$4C
+         sta   $602F
+         sta   $6BD4
+         sta   $66D2
+         ldx   #0
+         stx   $6030
+         stx   $6BD5
+         inx
+         stx   $6031
+         stx   $6BD6
+         stx   $66D4
+         lda   #$EE
+         sta   $66CA
+         lda   #<counter
+         sta   $66CB
+         lda   #>counter
+         sta   $66CC
+         jsr   DisableAccelerator
+         +READ_ROM_NO_WRITE
+         jmp   $6000
+
+counter  !byte $FD
+
+title    !byte x_e-x_b
+x_b      !text "X/BELLHOP/BELLHOP"
+x_e
+
+!if * > $3F0 {
+  !error "code is too large, ends at ", *
+}