factor/extra/balloon-bomber/balloon-bomber.factor

31 lines
684 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:
cpu.8080
kernel
space-invaders
ui
;
IN: balloon-bomber
TUPLE: balloon-bomber < space-invaders ;
: <balloon-bomber> ( -- cpu )
balloon-bomber new cpu-init ;
CONSTANT: rom-info {
{ HEX: 0000 "ballbomb/tn01" }
{ HEX: 0800 "ballbomb/tn02" }
{ HEX: 1000 "ballbomb/tn03" }
{ HEX: 1800 "ballbomb/tn04" }
{ HEX: 4000 "ballbomb/tn05-1" }
}
: run-balloon ( -- )
[ "Balloon Bomber" <balloon-bomber> rom-info (run) ] with-ui ;
MAIN: run-balloon