25 lines
660 B
Factor
25 lines
660 B
Factor
! Copyright (C) 2007 Chris Double.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
!
|
|
! Lunar Rescue: http://www.mameworld.net/maws/romset/lrescue
|
|
!
|
|
USING: kernel space-invaders cpu.8080 ui ;
|
|
IN: lunar-rescue
|
|
|
|
TUPLE: lunar-rescue ;
|
|
|
|
: <lunar-rescue> ( -- cpu )
|
|
<space-invaders> lunar-rescue construct-delegate ;
|
|
|
|
: run ( -- )
|
|
"Lunar Rescue" <lunar-rescue> {
|
|
{ HEX: 0000 "lrescue/lrescue.1" }
|
|
{ HEX: 0800 "lrescue/lrescue.2" }
|
|
{ HEX: 1000 "lrescue/lrescue.3" }
|
|
{ HEX: 1800 "lrescue/lrescue.4" }
|
|
{ HEX: 4000 "lrescue/lrescue.5" }
|
|
{ HEX: 4800 "lrescue/lrescue.6" }
|
|
} [ (run) ] with-ui ;
|
|
|
|
MAIN: run
|