extra/lunar-rescue/lunar-rescue.factor

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