extra/roms/lunar-rescue/lunar-rescue.factor

   1 ! Copyright (C) 2007 Chris Double.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 !
   4 ! Lunar Rescue: https://www.emuparadise.me/M.A.M.E._-_Multiple_Arcade_Machine_Emulator_ROMs/Lunar_Rescue/14294
   5 USING: kernel roms.space-invaders ui ;
   6 IN: roms.lunar-rescue
   7
   8 TUPLE: lunar-rescue < space-invaders ;
   9
  10 : <lunar-rescue> ( -- cpu )
  11     lunar-rescue new cpu-init ;
  12
  13 CONSTANT: rom-info {
  14     { 0x0000 "lrescue/lrescue.1" }
  15     { 0x0800 "lrescue/lrescue.2" }
  16     { 0x1000 "lrescue/lrescue.3" }
  17     { 0x1800 "lrescue/lrescue.4" }
  18     { 0x4000 "lrescue/lrescue.5" }
  19     { 0x4800 "lrescue/lrescue.6" }
  20 }
  21
  22 : run-lunar ( -- )
  23     [
  24         "Lunar Rescue" <lunar-rescue> rom-info run-rom
  25     ] with-ui ;
  26
  27 MAIN: run-lunar