runtime-demo Tubeway

res/ARTWORK.SHR/_FileInformation.txt

@@ -103,7 +103,7 @@ HANDY.DANDY=Type(06),AuxType(1FF8),Access(C3)
 HARD.HAT.MACK=Type(06),AuxType(1FF8),Access(C3)
 HEAVY.BARREL=Type(06),AuxType(1FF8),Access(C3)
 HORIZON.V=Type(06),AuxType(1FF8),Access(C3)
-HUNGRY.BOY=Type(06),AuxType(1FF8),Access(C3)
+HUNGRYBOY=Type(06),AuxType(1FF8),Access(C3)
 I1=Type(06),AuxType(1FF8),Access(C3)
 I2=Type(06),AuxType(1FF8),Access(C3)
 IE=Type(06),AuxType(1FF8),Access(C3)
@@ -163,12 +163,12 @@ PEST.PATROL=Type(06),AuxType(1FF8),Access(C3)
 PHANTOMS.FIVE=Type(06),AuxType(1FF8),Access(C3)
 PHASER.FIRE=Type(06),AuxType(1FF8),Access(C3)
 PHOTAR=Type(06),AuxType(1FF8),Access(C3)
-PIE.MAN=Type(06),AuxType(1FF8),Access(C3)
 PIG.PEN=Type(06),AuxType(1FF8),Access(C3)
 PIPE.DREAM=Type(06),AuxType(1FF8),Access(C3)
 PITFALL.II=Type(06),AuxType(1FF8),Access(C3)
 PITSTOP.II=Type(06),AuxType(1FF8),Access(C3)
 PLATOON=Type(06),AuxType(1FF8),Access(C3)
+PM=Type(06),AuxType(1FF8),Access(C3)
 POOYAN=Type(06),AuxType(1FF8),Access(C3)
 POP.END=Type(06),AuxType(1FF8),Access(C3)
 PP=Type(06),AuxType(1FF8),Access(C3)

res/DEMO/_FileInformation.txt

@@ -183,7 +183,6 @@ STELLAR.7.1=Type(F1),AuxType(0000),Access(C3)
 THUNDERBOMBS=Type(06),AuxType(2000),Access(C3)
 THUNDER.1=Type(F1),AuxType(0000),Access(C3)
 TB=Type(06),AuxType(0300),Access(C3)
-TUBEWAY.1=Type(F1),AuxType(0000),Access(C3)
 TUNNEL.TERROR=Type(06),AuxType(4600),Access(C3)
 TUNNEL.TERROR.1=Type(F1),AuxType(0000),Access(C3)
 WARP.DESTROYER=Type(06),AuxType(0300),Access(C3)

res/demosrc/tubeway.a

@@ -0,0 +1,56 @@
+;license:MIT
+;(c) 2021 by qkumba
+
+!cpu 6502
+!to "res/DEMO/TB",plain
+*=$300
+
+    !source "src/prelaunch/common.a"
+
+         +READ_RAM2_WRITE_RAM2
+         jsr   EnableAccelerator
+         +LOAD_FILE_AT tubeway, $00
+         lda   #$4C
+         sta   $6BA8
+         sta   $6C2D
+         jsr   $4EC6      ; decompress
+         jsr   $B2EC
+         lda   #$4C
+         sta   $4F46
+         sta   $AD44
+         sta   $AD2A
+         sta   $AB86
+         sta   $AC64
+         ldx   #0
+         stx   $4F47
+         stx   $AD45
+         stx   $AD2B
+         stx   $AB87
+         stx   $AC65
+         inx
+         stx   $4F48
+         stx   $AD46
+         stx   $AD2C
+         stx   $AB88
+         stx   $AC66
+         lda   #$10
+         sta   $AD28
+         sta   $AB84
+         lda   #$15
+         sta   $AD29
+         lda   #$D0
+         sta   $9580
+         lda   #8
+         sta   $AB85
+         lda   #$2C
+         sta   $4F3E
+         +DISABLE_ACCEL
+         jmp   $9000
+
+tubeway
+         !byte 7
+         !text "X/TB/TB"
+
+!if * > $3F0 {
+  !error "code is too large, ends at ", *
+}