extra/balloon-bomber/balloon-bomber.factor

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