extra/balloon-bomber/balloon-bomber.factor

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