24 lines
618 B
Factor
24 lines
618 B
Factor
|
! Copyright (C) 2007 Chris Double.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
!
|
||
|
|
! Balloon Bomber: http://www.mameworld.net/maws/romset/ballbomb
|
||
|
|
!
|
||
|
|
USING: kernel space-invaders cpu.8080 ui ;
|
||
|
|
IN: balloon-bomber
|
||
|
|
|
||
|
|
TUPLE: balloon-bomber ;
|
||
|
|
|
||
|
|
: <balloon-bomber> ( -- cpu )
|
||
|
|
<space-invaders> balloon-bomber construct-delegate ;
|
||
|
|
|
||
|
|
: run ( -- )
|
||
|
|
"Balloon Bomber" <balloon-bomber> {
|
||
|
|
{ HEX: 0000 "ballbomb/tn01" }
|
||
|
|
{ HEX: 0800 "ballbomb/tn02" }
|
||
|
|
{ HEX: 1000 "ballbomb/tn03" }
|
||
|
|
{ HEX: 1800 "ballbomb/tn04" }
|
||
|
|
{ HEX: 4000 "ballbomb/tn05-1" }
|
||
|
|
} [ (run) ] with-ui ;
|
||
|
|
|
||
|
|
MAIN: run
|