extra/lunar-rescue/lunar-rescue.factor

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