extra/roms/balloon-bomber/balloon-bomber.factor

   1 ! Copyright (C) 2007 Chris Double.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 !
   4 ! Balloon Bomber: https://www.emuparadise.me/M.A.M.E._-_Multiple_Arcade_Machine_Emulator_ROMs/Balloon_Bomber/11301
   5 USING: kernel roms.space-invaders ui ;
   6 IN: roms.balloon-bomber
   7
   8 TUPLE: balloon-bomber < space-invaders ;
   9
  10 : <balloon-bomber> ( -- cpu )
  11     balloon-bomber new cpu-init ;
  12
  13 CONSTANT: rom-info {
  14     { 0x0000 "ballbomb/tn01" }
  15     { 0x0800 "ballbomb/tn02" }
  16     { 0x1000 "ballbomb/tn03" }
  17     { 0x1800 "ballbomb/tn04" }
  18     { 0x4000 "ballbomb/tn05-1" }
  19 }
  20
  21 : run-balloon ( -- )
  22     [
  23         "Balloon Bomber" <balloon-bomber> rom-info run-rom
  24     ] with-ui ;
  25
  26 MAIN: run-balloon