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 cpu.8080 ui ;\r
   7 IN: lunar-rescue\r
   8 \r
   9 TUPLE: lunar-rescue ; \r
  10 \r
  11 : <lunar-rescue> ( -- cpu )\r
  12   <space-invaders> lunar-rescue construct-delegate ;\r
  13 \r
  14 : run ( -- )  \r
  15   "Lunar Rescue" <lunar-rescue> {\r
  16     { HEX: 0000 "lrescue/lrescue.1" }\r
  17     { HEX: 0800 "lrescue/lrescue.2" }\r
  18     { HEX: 1000 "lrescue/lrescue.3" }\r
  19     { HEX: 1800 "lrescue/lrescue.4" }\r
  20     { HEX: 4000 "lrescue/lrescue.5" }\r
  21     { HEX: 4800 "lrescue/lrescue.6" }\r
  22   } [ (run) ] with-ui ;\r
  23 \r
  24 MAIN: run\r