trunk/3rdparty/genie/src/host/scripts.c
| r245600 | r245601 | |
| 98 | 98 | "\nif not name then\nif type(premake.CurrentContainer) == \"project\" then\nreturn premake.CurrentContainer.solution\nelse\nreturn premake.CurrentContainer\nend\nend\npremake.CurrentContainer = premake.solution.get(name)\nif (not premake.CurrentContainer) then\npremake.CurrentContainer = premake.solution.new(name)\nend\nconfiguration { }\nreturn premake.CurrentContainer\nend\nfunction group(name)\nif not name then\nreturn premake.CurrentGroup\nend\npremake.CurrentGroup = name\nreturn premake.CurrentGroup\nend\nfunction newaction(a)\npremake.action.add(a)\nend\nfunction newoption(opt)\npremake.option.add(opt)\nend\n", |
| 99 | 99 | |
| 100 | 100 | /* base/cmdline.lua */ |
| 101 | | "newoption \n{\ntrigger = \"cc\",\nvalue = \"VALUE\",\ndescription = \"Choose a C/C++ compiler set\",\nallowed = {\n{ \"gcc\", \"GNU GCC (gcc/g++)\" },\n{ \"ow\", \"OpenWatcom\" },\n}\n}\nnewoption\n{\ntrigger = \"dotnet\",\nvalue = \"VALUE\",\ndescription = \"Choose a .NET compiler set\",\nallowed = {\n{ \"msnet\", \"Microsoft .NET (csc)\" },\n{ \"mono\", \"Novell Mono (mcs)\" },\n{ \"pnet\", \"Portable.NET (cscc)\" },\n}\n}\nnewoption\n{\ntrigger = \"file\",\nvalue = \"FILE\",\ndescription = \"Read FILE as a Premake script; default is 'premake4.lua'\"\n}\nnewoption\n{\ntrigger = \"help\",\ndescription = \"Display this information\"\n}\nnewoption\n{\ntrigger = \"os\",\nvalue = \"VALUE\",\ndescription = \"Generate files for a different operating system\",\nallowed = {\n{ \"bsd\", \"OpenBSD, NetBSD, or FreeBSD\" },\n{ \"linux\", \"Linux\" },\n{ \"macosx\", \"Apple Mac OS X\" },\n{ \"solaris\", \"Solaris\" },\n{ \"windows\", \"Microsoft W" |
| 102 | | "indows\" },\n}\n}\nnewoption\n{\ntrigger = \"platform\",\nvalue = \"VALUE\",\ndescription = \"Add target architecture (if supported by action)\",\nallowed = {\n{ \"x32\", \"32-bit\" },\n{ \"x64\", \"64-bit\" },\n{ \"universal\", \"Mac OS X Universal, 32- and 64-bit\" },\n{ \"universal32\", \"Mac OS X Universal, 32-bit only\" },\n{ \"universal64\", \"Mac OS X Universal, 64-bit only\" },\n{ \"ps3\", \"Playstation 3 (experimental)\" },\n{ \"xbox360\", \"Xbox 360 (experimental)\" },\n{ \"ARM\", \"ARM (Microsoft)\" },\n}\n}\nnewoption\n{\ntrigger = \"scripts\",\nvalue = \"path\",\ndescription = \"Search for additional scripts on the given path\"\n}\nnewoption\n{\ntrigger = \"version\",\ndescription = \"Display version information\"\n}\n", |
| 101 | "newoption \n{\ntrigger = \"cc\",\nvalue = \"VALUE\",\ndescription = \"Choose a C/C++ compiler set\",\nallowed = {\n{ \"gcc\", \"GNU GCC (gcc/g++)\" },\n{ \"ow\", \"OpenWatcom\" },\n}\n}\nnewoption\n{\ntrigger = \"dotnet\",\nvalue = \"VALUE\",\ndescription = \"Choose a .NET compiler set\",\nallowed = {\n{ \"msnet\", \"Microsoft .NET (csc)\" },\n{ \"mono\", \"Novell Mono (mcs)\" },\n{ \"pnet\", \"Portable.NET (cscc)\" },\n}\n}\nnewoption\n{\ntrigger = \"file\",\nvalue = \"FILE\",\ndescription = \"Read FILE as a Premake script; default is 'premake4.lua'\"\n}\nnewoption\n{\ntrigger = \"help\",\ndescription = \"Display this information\"\n}\nnewoption\n{\ntrigger = \"os\",\nvalue = \"VALUE\",\ndescription = \"Generate files for a different operating system\",\nallowed = {\n{ \"bsd\", \"OpenBSD, NetBSD, or FreeBSD\" },\n{ \"linux\", \"Linux\" },\n{ \"macosx\", \"Apple Mac OS X\" },\n{ \"windows\", \"Microsoft Windows\" },\n}\n}\nnewoption\n{" |
| 102 | "\ntrigger = \"platform\",\nvalue = \"VALUE\",\ndescription = \"Add target architecture (if supported by action)\",\nallowed = {\n{ \"x32\", \"32-bit\" },\n{ \"x64\", \"64-bit\" },\n{ \"universal\", \"Mac OS X Universal, 32- and 64-bit\" },\n{ \"universal32\", \"Mac OS X Universal, 32-bit only\" },\n{ \"universal64\", \"Mac OS X Universal, 64-bit only\" },\n{ \"ps3\", \"Playstation 3 (experimental)\" },\n{ \"xbox360\", \"Xbox 360 (experimental)\" },\n{ \"ARM\", \"ARM (Microsoft)\" },\n}\n}\nnewoption\n{\ntrigger = \"scripts\",\nvalue = \"path\",\ndescription = \"Search for additional scripts on the given path\"\n}\nnewoption\n{\ntrigger = \"version\",\ndescription = \"Display version information\"\n}\n", |
| 103 | 103 | |
| 104 | 104 | /* base/inspect.lua */ |
| 105 | 105 | "-- Copyright (c) 2013 Enrique GarcĂa Cota\nlocal function smartQuote(str)\n if str:match('\"') and not str:match(\"'\") then\n return \"'\" .. str .. \"'\"\n end\n return '\"' .. str:gsub('\"', '\\\\\"') .. '\"'\nend\nlocal controlCharsTranslation = {\n [\"\\a\"] = \"\\\\a\", [\"\\b\"] = \"\\\\b\", [\"\\f\"] = \"\\\\f\", [\"\\n\"] = \"\\\\n\",\n [\"\\r\"] = \"\\\\r\", [\"\\t\"] = \"\\\\t\", [\"\\v\"] = \"\\\\v\"\n}\nlocal function escapeChar(c) return controlCharsTranslation[c] end\nlocal function escape(str)\n local result = str:gsub(\"\\\\\", \"\\\\\\\\\"):gsub(\"(%c)\", escapeChar)\n return result\nend\nlocal function isIdentifier(str)\n return type(str) == 'string' and str:match( \"^[_%a][_%a%d]*$\" )\nend\nlocal function isArrayKey(k, length)\n return type(k) == 'number' and 1 <= k and k <= length\nend\nlocal function isDictionaryKey(k, length)\n return not isArrayKey(k, length)\nend\nlocal defaultTypeOrders = {\n ['number'] = 1, ['boolean'] = 2, ['string'] = 3, ['table'] = 4,\n ['fu" |
trunk/src/mess/drivers/pegasus.c
| r245600 | r245601 | |
| 51 | 51 | { |
| 52 | 52 | public: |
| 53 | 53 | pegasus_state(const machine_config &mconfig, device_type type, const char *tag) |
| 54 | | : driver_device(mconfig, type, tag), |
| 55 | | m_maincpu(*this, "maincpu"), |
| 56 | | m_cass(*this, "cassette"), |
| 57 | | m_pia_s(*this, "pia_s"), |
| 58 | | m_pia_u(*this, "pia_u"), |
| 59 | | m_exp_00(*this, "exp00"), |
| 60 | | m_exp_01(*this, "exp01"), |
| 61 | | m_exp_02(*this, "exp02"), |
| 62 | | m_exp_0c(*this, "exp0c"), |
| 63 | | m_exp_0d(*this, "exp0d"), |
| 64 | | m_p_videoram(*this, "p_videoram"){ } |
| 54 | : driver_device(mconfig, type, tag) |
| 55 | , m_maincpu(*this, "maincpu") |
| 56 | , m_cass(*this, "cassette") |
| 57 | , m_pia_s(*this, "pia_s") |
| 58 | , m_pia_u(*this, "pia_u") |
| 59 | , m_exp_00(*this, "exp00") |
| 60 | , m_exp_01(*this, "exp01") |
| 61 | , m_exp_02(*this, "exp02") |
| 62 | , m_exp_0c(*this, "exp0c") |
| 63 | , m_exp_0d(*this, "exp0d") |
| 64 | , m_p_videoram(*this, "videoram") |
| 65 | , m_io_keyboard(*this, "KEY") |
| 66 | { } |
| 65 | 67 | |
| 66 | | required_device<cpu_device> m_maincpu; |
| 67 | | required_device<cassette_image_device> m_cass; |
| 68 | | required_device<pia6821_device> m_pia_s; |
| 69 | | required_device<pia6821_device> m_pia_u; |
| 70 | | required_device<generic_slot_device> m_exp_00; |
| 71 | | required_device<generic_slot_device> m_exp_01; |
| 72 | | required_device<generic_slot_device> m_exp_02; |
| 73 | | required_device<generic_slot_device> m_exp_0c; |
| 74 | | required_device<generic_slot_device> m_exp_0d; |
| 75 | 68 | DECLARE_READ8_MEMBER( pegasus_keyboard_r ); |
| 76 | 69 | DECLARE_READ8_MEMBER( pegasus_protection_r ); |
| 77 | 70 | DECLARE_READ8_MEMBER( pegasus_pcg_r ); |
| r245600 | r245601 | |
| 82 | 75 | DECLARE_READ_LINE_MEMBER( pegasus_cassette_r ); |
| 83 | 76 | DECLARE_WRITE_LINE_MEMBER( pegasus_cassette_w ); |
| 84 | 77 | DECLARE_WRITE_LINE_MEMBER( pegasus_firq_clr ); |
| 85 | | UINT8 m_kbd_row; |
| 86 | | bool m_kbd_irq; |
| 87 | | UINT8 *m_p_pcgram; |
| 88 | | required_shared_ptr<UINT8> m_p_videoram; |
| 89 | | const UINT8 *m_p_chargen; |
| 90 | | UINT8 m_control_bits; |
| 91 | | virtual void machine_reset(); |
| 92 | | virtual void machine_start(); |
| 93 | | virtual void video_start(); |
| 94 | 78 | UINT32 screen_update(screen_device &screen, bitmap_ind16 &bitmap, const rectangle &cliprect); |
| 95 | 79 | DECLARE_DRIVER_INIT(pegasus); |
| 96 | 80 | TIMER_DEVICE_CALLBACK_MEMBER(pegasus_firq); |
| 97 | | void pegasus_decrypt_rom(UINT8 *ROM, bool force_decrypt); |
| 98 | | |
| 99 | 81 | int load_cart(device_image_interface &image, generic_slot_device *slot, const char *reg_tag); |
| 100 | 82 | DECLARE_DEVICE_IMAGE_LOAD_MEMBER(exp00_load) { return load_cart(image, m_exp_00, "0000"); } |
| 101 | 83 | DECLARE_DEVICE_IMAGE_LOAD_MEMBER(exp01_load) { return load_cart(image, m_exp_01, "1000"); } |
| 102 | 84 | DECLARE_DEVICE_IMAGE_LOAD_MEMBER(exp02_load) { return load_cart(image, m_exp_02, "2000"); } |
| 103 | 85 | DECLARE_DEVICE_IMAGE_LOAD_MEMBER(exp0c_load) { return load_cart(image, m_exp_0c, "c000"); } |
| 104 | 86 | DECLARE_DEVICE_IMAGE_LOAD_MEMBER(exp0d_load) { return load_cart(image, m_exp_0d, "d000"); } |
| 87 | private: |
| 88 | UINT8 m_kbd_row; |
| 89 | bool m_kbd_irq; |
| 90 | UINT8 *m_p_pcgram; |
| 91 | const UINT8 *m_p_chargen; |
| 92 | UINT8 m_control_bits; |
| 93 | virtual void machine_reset(); |
| 94 | virtual void machine_start(); |
| 95 | virtual void video_start(); |
| 96 | void pegasus_decrypt_rom(UINT8 *ROM, bool force_decrypt); |
| 97 | required_device<cpu_device> m_maincpu; |
| 98 | required_device<cassette_image_device> m_cass; |
| 99 | required_device<pia6821_device> m_pia_s; |
| 100 | required_device<pia6821_device> m_pia_u; |
| 101 | required_device<generic_slot_device> m_exp_00; |
| 102 | required_device<generic_slot_device> m_exp_01; |
| 103 | required_device<generic_slot_device> m_exp_02; |
| 104 | required_device<generic_slot_device> m_exp_0c; |
| 105 | required_device<generic_slot_device> m_exp_0d; |
| 106 | required_shared_ptr<UINT8> m_p_videoram; |
| 107 | required_ioport_array<8> m_io_keyboard; |
| 105 | 108 | }; |
| 106 | 109 | |
| 107 | 110 | TIMER_DEVICE_CALLBACK_MEMBER(pegasus_state::pegasus_firq) |
| r245600 | r245601 | |
| 116 | 119 | |
| 117 | 120 | READ8_MEMBER( pegasus_state::pegasus_keyboard_r ) |
| 118 | 121 | { |
| 119 | | static const char *const keynames[] = { "X0", "X1", "X2", "X3", "X4", "X5", "X6", "X7" }; |
| 120 | | UINT8 bit,data = 0xff; |
| 121 | | for (bit = 0; bit < 8; bit++) |
| 122 | | if (!BIT(m_kbd_row, bit)) data &= ioport(keynames[bit])->read(); |
| 122 | UINT8 i,data = 0xff; |
| 123 | for (i = 0; i < 8; i++) |
| 124 | if (!BIT(m_kbd_row, i)) data &= m_io_keyboard[i]->read(); |
| 123 | 125 | |
| 124 | 126 | m_kbd_irq = (data == 0xff) ? 1 : 0; |
| 125 | | if (m_control_bits & 8) data<<=4; |
| 127 | if BIT(m_control_bits, 3) |
| 128 | data<<=4; |
| 126 | 129 | return data; |
| 127 | 130 | } |
| 128 | 131 | |
| r245600 | r245601 | |
| 166 | 169 | |
| 167 | 170 | WRITE8_MEMBER( pegasus_state::pegasus_pcg_w ) |
| 168 | 171 | { |
| 169 | | // if (m_control_bits & 2) |
| 172 | // if BIT(m_control_bits, 1) |
| 170 | 173 | { |
| 171 | 174 | UINT8 code = m_p_videoram[offset] & 0x7f; |
| 172 | 175 | m_p_pcgram[(code << 4) | (~m_kbd_row & 15)] = data; |
| r245600 | r245601 | |
| 185 | 188 | ADDRESS_MAP_UNMAP_HIGH |
| 186 | 189 | //AM_RANGE(0x0000, 0x2fff) // mapped by the cartslots 1-3 |
| 187 | 190 | AM_RANGE(0xb000, 0xbdff) AM_RAM |
| 188 | | AM_RANGE(0xbe00, 0xbfff) AM_RAM AM_SHARE("p_videoram") |
| 191 | AM_RANGE(0xbe00, 0xbfff) AM_RAM AM_SHARE("videoram") |
| 189 | 192 | //AM_RANGE(0xc000, 0xdfff) // mapped by the cartslots 4-5 |
| 190 | 193 | AM_RANGE(0xe000, 0xe1ff) AM_READ(pegasus_protection_r) |
| 191 | 194 | AM_RANGE(0xe200, 0xe3ff) AM_READWRITE(pegasus_pcg_r,pegasus_pcg_w) |
| r245600 | r245601 | |
| 196 | 199 | |
| 197 | 200 | static ADDRESS_MAP_START(pegasusm_mem, AS_PROGRAM, 8, pegasus_state) |
| 198 | 201 | ADDRESS_MAP_UNMAP_HIGH |
| 199 | | AM_RANGE(0x0000, 0x2fff) AM_ROM |
| 200 | | AM_RANGE(0x5000, 0xbdff) AM_RAM |
| 201 | | AM_RANGE(0xbe00, 0xbfff) AM_RAM AM_SHARE("p_videoram") |
| 202 | | AM_RANGE(0xc000, 0xdfff) AM_ROM AM_WRITENOP |
| 203 | | AM_RANGE(0xe000, 0xe1ff) AM_READ(pegasus_protection_r) |
| 204 | | AM_RANGE(0xe200, 0xe3ff) AM_READWRITE(pegasus_pcg_r,pegasus_pcg_w) |
| 205 | | AM_RANGE(0xe400, 0xe403) AM_MIRROR(0x1fc) AM_DEVREADWRITE("pia_u", pia6821_device, read, write) |
| 206 | | AM_RANGE(0xe600, 0xe603) AM_MIRROR(0x1fc) AM_DEVREADWRITE("pia_s", pia6821_device, read, write) |
| 207 | | AM_RANGE(0xf000, 0xffff) AM_ROM |
| 202 | AM_IMPORT_FROM(pegasus_mem) |
| 203 | AM_RANGE(0x5000, 0xafff) AM_RAM |
| 208 | 204 | ADDRESS_MAP_END |
| 209 | 205 | |
| 210 | 206 | /* Input ports */ |
| 211 | 207 | static INPUT_PORTS_START( pegasus ) |
| 212 | | PORT_START("X0") |
| 208 | PORT_START("KEY.0") |
| 213 | 209 | PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("= +") PORT_CODE(KEYCODE_EQUALS) PORT_CHAR('=') PORT_CHAR('+') |
| 214 | 210 | PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("0 )") PORT_CODE(KEYCODE_0) PORT_CHAR('0') PORT_CHAR(')') |
| 215 | 211 | PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("BackSpace") PORT_CODE(KEYCODE_BACKSPACE) PORT_CHAR(8) PORT_CHAR(8) |
| r245600 | r245601 | |
| 219 | 215 | PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("L") PORT_CODE(KEYCODE_L) PORT_CHAR('L') PORT_CHAR('l') PORT_CHAR(13) |
| 220 | 216 | PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("P") PORT_CODE(KEYCODE_P) PORT_CHAR('P') PORT_CHAR('p') PORT_CHAR(16) |
| 221 | 217 | |
| 222 | | PORT_START("X1") |
| 218 | PORT_START("KEY.1") |
| 223 | 219 | PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("- _") PORT_CODE(KEYCODE_MINUS) PORT_CHAR('-') PORT_CHAR('_') |
| 224 | 220 | PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("Tab") PORT_CODE(KEYCODE_9) PORT_CHAR('9') PORT_CHAR('(') |
| 225 | 221 | PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("[ ]") PORT_CODE(KEYCODE_OPENBRACE) PORT_CHAR('[') PORT_CHAR(']') |
| r245600 | r245601 | |
| 229 | 225 | PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("K") PORT_CODE(KEYCODE_K) PORT_CHAR('K') PORT_CHAR('k') PORT_CHAR(11) |
| 230 | 226 | PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("O") PORT_CODE(KEYCODE_O) PORT_CHAR('O') PORT_CHAR('o') PORT_CHAR(15) |
| 231 | 227 | |
| 232 | | PORT_START("X2") |
| 228 | PORT_START("KEY.2") |
| 233 | 229 | PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("5 %") PORT_CODE(KEYCODE_5) PORT_CHAR('5') PORT_CHAR('%') |
| 234 | 230 | PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("8 *") PORT_CODE(KEYCODE_8) PORT_CHAR('8') PORT_CHAR('*') |
| 235 | 231 | PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("6 ^") PORT_CODE(KEYCODE_6) PORT_CHAR('6') PORT_CHAR('^') |
| r245600 | r245601 | |
| 239 | 235 | PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("U") PORT_CODE(KEYCODE_U) PORT_CHAR('U') PORT_CHAR('u') PORT_CHAR(21) |
| 240 | 236 | PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("G") PORT_CODE(KEYCODE_G) PORT_CHAR('G') PORT_CHAR('g') PORT_CHAR(7) |
| 241 | 237 | |
| 242 | | PORT_START("X3") |
| 238 | PORT_START("KEY.3") |
| 243 | 239 | PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("T") PORT_CODE(KEYCODE_T) PORT_CHAR('T') PORT_CHAR('t') PORT_CHAR(20) |
| 244 | 240 | PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("7 &") PORT_CODE(KEYCODE_7) PORT_CHAR('7') PORT_CHAR('&') |
| 245 | 241 | PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("4 $") PORT_CODE(KEYCODE_4) PORT_CHAR('4') PORT_CHAR('$') |
| r245600 | r245601 | |
| 249 | 245 | PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("H") PORT_CODE(KEYCODE_H) PORT_CHAR('H') PORT_CHAR('h') PORT_CHAR(8) |
| 250 | 246 | PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("Y") PORT_CODE(KEYCODE_Y) PORT_CHAR('Y') PORT_CHAR('y') PORT_CHAR(25) |
| 251 | 247 | |
| 252 | | PORT_START("X4") |
| 248 | PORT_START("KEY.4") |
| 253 | 249 | PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("R") PORT_CODE(KEYCODE_R) PORT_CHAR('R') PORT_CHAR('r') PORT_CHAR(18) |
| 254 | 250 | PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("W") PORT_CODE(KEYCODE_W) PORT_CHAR('W') PORT_CHAR('w') PORT_CHAR(23) |
| 255 | 251 | PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("2") PORT_CODE(KEYCODE_2) PORT_CHAR('2') PORT_CHAR('@') |
| r245600 | r245601 | |
| 259 | 255 | PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("C") PORT_CODE(KEYCODE_C) PORT_CHAR('C') PORT_CHAR('c') PORT_CHAR(3) |
| 260 | 256 | PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("F") PORT_CODE(KEYCODE_F) PORT_CHAR('F') PORT_CHAR('f') PORT_CHAR(6) |
| 261 | 257 | |
| 262 | | PORT_START("X5") |
| 258 | PORT_START("KEY.5") |
| 263 | 259 | PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("E") PORT_CODE(KEYCODE_E) PORT_CHAR('E') PORT_CHAR('e') PORT_CHAR(5) |
| 264 | 260 | PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("Q") PORT_CODE(KEYCODE_Q) PORT_CHAR('Q') PORT_CHAR('q') PORT_CHAR(17) |
| 265 | 261 | PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_UNUSED ) // REPEAT key which is disconnected - outputs a space |
| r245600 | r245601 | |
| 269 | 265 | PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("D") PORT_CODE(KEYCODE_D) PORT_CHAR('D') PORT_CHAR('d') PORT_CHAR(4) |
| 270 | 266 | PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("N") PORT_CODE(KEYCODE_N) PORT_CHAR('N') PORT_CHAR('n') PORT_CHAR(14) |
| 271 | 267 | |
| 272 | | PORT_START("X6") |
| 268 | PORT_START("KEY.6") |
| 273 | 269 | PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("V") PORT_CODE(KEYCODE_V) PORT_CHAR('V') PORT_CHAR('v') PORT_CHAR(22) |
| 274 | 270 | PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("A") PORT_CODE(KEYCODE_A) PORT_CHAR('A') PORT_CHAR('a') PORT_CHAR(1) |
| 275 | 271 | PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("Tab") PORT_CODE(KEYCODE_TAB) PORT_CHAR(9) |
| r245600 | r245601 | |
| 279 | 275 | PORT_BIT( 0x40, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("X") PORT_CODE(KEYCODE_X) PORT_CHAR('X') PORT_CHAR('x') PORT_CHAR(24) |
| 280 | 276 | PORT_BIT( 0x80, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("BlankL") PORT_CODE(KEYCODE_0_PAD) PORT_CHAR(16) |
| 281 | 277 | |
| 282 | | PORT_START("X7") |
| 278 | PORT_START("KEY.7") |
| 283 | 279 | PORT_BIT( 0x01, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("B") PORT_CODE(KEYCODE_B) PORT_CHAR('B') PORT_CHAR('b') PORT_CHAR(2) |
| 284 | 280 | PORT_BIT( 0x02, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("S") PORT_CODE(KEYCODE_S) PORT_CHAR('S') PORT_CHAR('s') PORT_CHAR(19) |
| 285 | 281 | PORT_BIT( 0x04, IP_ACTIVE_LOW, IPT_KEYBOARD ) PORT_NAME("CapsLock") PORT_CODE(KEYCODE_CAPSLOCK) PORT_CHAR(19) |
| r245600 | r245601 | |
| 312 | 308 | { |
| 313 | 309 | UINT8 y,ra,chr,gfx,inv; |
| 314 | 310 | UINT16 sy=0,ma=0,x; |
| 315 | | UINT8 pcg_mode = m_control_bits & 2; |
| 311 | bool pcg_mode = BIT(m_control_bits, 1); |
| 316 | 312 | |
| 317 | 313 | for(y = 0; y < 16; y++ ) |
| 318 | 314 | { |
| r245600 | r245601 | |
| 573 | 569 | /* Driver */ |
| 574 | 570 | |
| 575 | 571 | /* YEAR NAME PARENT COMPAT MACHINE INPUT INIT COMPANY FULLNAME FLAGS */ |
| 576 | | COMP( 1981, pegasus, 0, 0, pegasus, pegasus, pegasus_state, pegasus, "Technosys", "Aamber Pegasus", GAME_NO_SOUND_HW ) |
| 572 | COMP( 1981, pegasus, 0, 0, pegasus, pegasus, pegasus_state, pegasus, "Technosys", "Aamber Pegasus", GAME_NO_SOUND_HW ) |
| 577 | 573 | COMP( 1981, pegasusm, pegasus, 0, pegasusm, pegasus, pegasus_state, pegasus, "Technosys", "Aamber Pegasus with RAM expansion unit", GAME_NO_SOUND_HW ) |