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: \r
   7     cpu.8080\r
   8     kernel \r
   9     space-invaders\r
  10     ui \r
  11 ;\r
  12 IN: lunar-rescue\r
  13 \r
  14 TUPLE: lunar-rescue < space-invaders ; \r
  15 \r
  16 : <lunar-rescue> ( -- cpu )\r
  17   lunar-rescue new cpu-init ;\r
  18 \r
  19 CONSTANT: rom-info {\r
  20     { 0x0000 "lrescue/lrescue.1" }\r
  21     { 0x0800 "lrescue/lrescue.2" }\r
  22     { 0x1000 "lrescue/lrescue.3" }\r
  23     { 0x1800 "lrescue/lrescue.4" }\r
  24     { 0x4000 "lrescue/lrescue.5" }\r
  25     { 0x4800 "lrescue/lrescue.6" }\r
  26   }\r
  27 \r
  28 : run-lunar ( -- )  \r
  29   [ "Lunar Rescue" <lunar-rescue>  rom-info (run) ] with-ui ;\r
  30 \r
  31 MAIN: run-lunar\r