2007-09-20 18:09:08 -04:00
|
|
|
! Copyright (C) 2007 Chris Double.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
!
|
|
|
|
|
! Lunar Rescue: http://www.mameworld.net/maws/romset/lrescue
|
|
|
|
|
!
|
2014-12-12 17:01:13 -05:00
|
|
|
USING: kernel space-invaders ui ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: lunar-rescue
|
|
|
|
|
|
2014-12-12 17:01:13 -05:00
|
|
|
TUPLE: lunar-rescue < space-invaders ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
: <lunar-rescue> ( -- cpu )
|
2013-07-24 17:52:09 -04:00
|
|
|
lunar-rescue new cpu-init ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2009-10-15 19:15:10 -04:00
|
|
|
CONSTANT: rom-info {
|
2011-11-23 21:49:33 -05:00
|
|
|
{ 0x0000 "lrescue/lrescue.1" }
|
|
|
|
|
{ 0x0800 "lrescue/lrescue.2" }
|
|
|
|
|
{ 0x1000 "lrescue/lrescue.3" }
|
|
|
|
|
{ 0x1800 "lrescue/lrescue.4" }
|
|
|
|
|
{ 0x4000 "lrescue/lrescue.5" }
|
|
|
|
|
{ 0x4800 "lrescue/lrescue.6" }
|
2013-07-24 17:52:09 -04:00
|
|
|
}
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2014-12-12 16:24:22 -05:00
|
|
|
: run-lunar ( -- )
|
|
|
|
|
[
|
2014-12-12 17:01:13 -05:00
|
|
|
"Lunar Rescue" <lunar-rescue> rom-info run-rom
|
2014-12-12 16:24:22 -05:00
|
|
|
] with-ui ;
|
2009-10-15 19:15:10 -04:00
|
|
|
|
|
|
|
|
MAIN: run-lunar
|
