From e3aa573bac356f9a90cf8f42599a209bc87106dc Mon Sep 17 00:00:00 2001 From: Marcel Date: Wed, 17 Jul 2019 22:47:43 +0200 Subject: [PATCH] New Cores WIP --- .../MoonWar_MiST/MoonWar_MiST.qpf | 30 + .../MoonWar_MiST/MoonWar_MiST.qsf | 217 ++ .../MoonWar_MiST/MoonWar_MiST.srf | 3 + .../Berzerk Hardware/MoonWar_MiST/README.txt | 150 ++ .../Berzerk Hardware/MoonWar_MiST/clean.bat | 37 + .../MoonWar_MiST/rtl/MoonWar_mist.sv | 179 ++ .../MoonWar_MiST/rtl/T80/T80.vhd | 1097 +++++++++ .../MoonWar_MiST/rtl/T80/T8080se.vhd | 199 ++ .../MoonWar_MiST/rtl/T80/T80_ALU.vhd | 371 +++ .../MoonWar_MiST/rtl/T80/T80_MCode.vhd | 2030 +++++++++++++++++ .../MoonWar_MiST/rtl/T80/T80_Pack.vhd | 220 ++ .../MoonWar_MiST/rtl/T80/T80_Reg.vhd | 116 + .../MoonWar_MiST/rtl/T80/T80a.vhd | 262 +++ .../MoonWar_MiST/rtl/T80/T80se.vhd | 193 ++ .../MoonWar_MiST/rtl/T80/T80sed.vhd | 177 ++ .../MoonWar_MiST/rtl/berzerk.vhd | 617 +++++ .../MoonWar_MiST/rtl/berzerk_sound_fx.vhd | 276 +++ .../MoonWar_MiST/rtl/berzerk_speech.vhd | 441 ++++ .../MoonWar_MiST/rtl/build_id.tcl | 35 + .../MoonWar_MiST/rtl/gen_ram.vhd | 84 + .../MoonWar_MiST/rtl/joy2quad.sv | 100 + .../MoonWar_MiST/rtl/ls161.vhd | 59 + .../Berzerk Hardware/MoonWar_MiST/rtl/pll.qip | 4 + .../Berzerk Hardware/MoonWar_MiST/rtl/pll.v | 348 +++ .../MoonWar_MiST/rtl/rom/MoonWar_program1.vhd | 1046 +++++++++ .../MoonWar_MiST/rtl/rom/MoonWar_program2.vhd | 278 +++ .../rtl/rom/MoonWar_speech_rom.vhd | 278 +++ .../MoonWar_MiST/rtl/video_gen.vhd | 134 ++ .../GunFight_MiST/GunFight.qpf | 30 + .../GunFight_MiST/GunFight.qsf | 178 ++ .../GunFight_MiST/GunFight.sdc | 126 + .../Midway8080_MiST/GunFight_MiST/README.txt | 29 + .../GunFight_MiST/Release/GunFight.rbf | Bin 0 -> 236134 bytes .../Midway8080_MiST/GunFight_MiST/clean.bat | 15 + .../GunFight_MiST/rtl/GunFight_memory.sv | 129 ++ .../GunFight_MiST/rtl/GunFight_mist.sv | 197 ++ .../GunFight_MiST/rtl/GunFight_overlay.vhd | 127 ++ .../GunFight_MiST/rtl/T80/T80.vhd | 1080 +++++++++ .../GunFight_MiST/rtl/T80/T8080se.vhd | 194 ++ .../GunFight_MiST/rtl/T80/T80_ALU.vhd | 361 +++ .../GunFight_MiST/rtl/T80/T80_MCode.vhd | 1944 ++++++++++++++++ .../GunFight_MiST/rtl/T80/T80_Pack.vhd | 217 ++ .../GunFight_MiST/rtl/T80/T80_Reg.vhd | 114 + .../GunFight_MiST/rtl/build_id.tcl | 35 + .../Midway8080_MiST/GunFight_MiST/rtl/dac.vhd | 48 + .../GunFight_MiST/rtl/invaders.vhd | 287 +++ .../GunFight_MiST/rtl/invaders_audio.vhd | 496 ++++ .../GunFight_MiST/rtl/mw8080.vhd | 336 +++ .../Midway8080_MiST/GunFight_MiST/rtl/pll.ppf | 9 + .../Midway8080_MiST/GunFight_MiST/rtl/pll.qip | 4 + .../Midway8080_MiST/GunFight_MiST/rtl/pll.vhd | 350 +++ .../GunFight_MiST/rtl/roms/gf-a.hex | 18 + .../GunFight_MiST/rtl/roms/gf-b.hex | 18 + .../GunFight_MiST/rtl/roms/gf-c.hex | 18 + .../GunFight_MiST/rtl/roms/gf-d.hex | 18 + .../GunFight_MiST/rtl/roms/gf-e.hex | 18 + .../GunFight_MiST/rtl/roms/gf-f.hex | 18 + .../GunFight_MiST/rtl/roms/gf-g.hex | 18 + .../GunFight_MiST/rtl/roms/gf-h.hex | 18 + .../GunFight_MiST/rtl/spram.vhd | 55 + .../GunFight_MiST/rtl/sprom.vhd | 82 + .../SpaceWalk_MiST/SpaceWalk.qsf | 1 - .../SpaceWalk_MiST/rtl/invaders_memory.sv | 4 +- 63 files changed, 15570 insertions(+), 3 deletions(-) create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.qpf create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.qsf create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.srf create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/README.txt create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/clean.bat create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/MoonWar_mist.sv create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T8080se.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_ALU.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_MCode.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_Pack.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_Reg.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80a.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80se.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80sed.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk_sound_fx.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk_speech.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/build_id.tcl create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/gen_ram.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/joy2quad.sv create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/ls161.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/pll.qip create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/pll.v create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_program1.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_program2.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_speech_rom.vhd create mode 100644 Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/video_gen.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.qpf create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.qsf create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.sdc create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/README.txt create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/Release/GunFight.rbf create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/clean.bat create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/GunFight_memory.sv create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/GunFight_mist.sv create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/GunFight_overlay.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T8080se.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_ALU.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_MCode.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_Pack.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_Reg.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/build_id.tcl create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/dac.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/invaders.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/invaders_audio.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/mw8080.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.ppf create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.qip create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-a.hex create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-b.hex create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-c.hex create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-d.hex create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-e.hex create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-f.hex create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-g.hex create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-h.hex create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/spram.vhd create mode 100644 Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/sprom.vhd diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.qpf b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.qpf new file mode 100644 index 00000000..7e79f656 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.qpf @@ -0,0 +1,30 @@ +# -------------------------------------------------------------------------- # +# +# Copyright (C) 1991-2013 Altera Corporation +# Your use of Altera Corporation's design tools, logic functions +# and other software and tools, and its AMPP partner logic +# functions, and any output files from any of the foregoing +# (including device programming or simulation files), and any +# associated documentation or information are expressly subject +# to the terms and conditions of the Altera Program License +# Subscription Agreement, Altera MegaCore Function License +# Agreement, or other applicable license agreement, including, +# without limitation, that your use is for the sole purpose of +# programming logic devices manufactured by Altera and sold by +# Altera or its authorized distributors. Please refer to the +# applicable agreement for further details. +# +# -------------------------------------------------------------------------- # +# +# Quartus II 64-Bit +# Version 13.1.0 Build 162 10/23/2013 SJ Web Edition +# Date created = 23:59:05 March 16, 2017 +# +# -------------------------------------------------------------------------- # + +QUARTUS_VERSION = "13.1" +DATE = "23:59:05 March 16, 2017" + +# Revisions + +PROJECT_REVISION = "MoonWar_MiST" diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.qsf b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.qsf new file mode 100644 index 00000000..2c1b5dee --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.qsf @@ -0,0 +1,217 @@ +# -------------------------------------------------------------------------- # +# +# Copyright (C) 1991-2014 Altera Corporation +# Your use of Altera Corporation's design tools, logic functions +# and other software and tools, and its AMPP partner logic +# functions, and any output files from any of the foregoing +# (including device programming or simulation files), and any +# associated documentation or information are expressly subject +# to the terms and conditions of the Altera Program License +# Subscription Agreement, Altera MegaCore Function License +# Agreement, or other applicable license agreement, including, +# without limitation, that your use is for the sole purpose of +# programming logic devices manufactured by Altera and sold by +# Altera or its authorized distributors. Please refer to the +# applicable agreement for further details. +# +# -------------------------------------------------------------------------- # +# +# Quartus II 64-Bit +# Version 13.1.4 Build 182 03/12/2014 SJ Web Edition +# Date created = 00:18:18 July 17, 2019 +# +# -------------------------------------------------------------------------- # +# +# Notes: +# +# 1) The default values for assignments are stored in the file: +# MoonWar_MiST_assignment_defaults.qdf +# If this file doesn't exist, see file: +# assignment_defaults.qdf +# +# 2) Altera recommends that you do not modify this file. This +# file is updated automatically by the Quartus II software +# and any changes you make may be lost or overwritten. +# +# -------------------------------------------------------------------------- # + + + +# Project-Wide Assignments +# ======================== +set_global_assignment -name ORIGINAL_QUARTUS_VERSION 13.1 +set_global_assignment -name PROJECT_CREATION_TIME_DATE "23:59:05 MARCH 16, 2017" +set_global_assignment -name LAST_QUARTUS_VERSION 13.1 +set_global_assignment -name PROJECT_OUTPUT_DIRECTORY Output +set_global_assignment -name PRE_FLOW_SCRIPT_FILE "quartus_sh:rtl/build_id.tcl" +set_global_assignment -name SYSTEMVERILOG_FILE rtl/MoonWar_mist.sv +set_global_assignment -name VHDL_FILE rtl/berzerk.vhd +set_global_assignment -name VHDL_FILE rtl/video_gen.vhd +set_global_assignment -name VHDL_FILE rtl/berzerk_speech.vhd +set_global_assignment -name VHDL_FILE rtl/berzerk_sound_fx.vhd +set_global_assignment -name VHDL_FILE rtl/gen_ram.vhd +set_global_assignment -name VHDL_FILE rtl/rom/MoonWar_speech_rom.vhd +set_global_assignment -name VHDL_FILE rtl/rom/MoonWar_program2.vhd +set_global_assignment -name VHDL_FILE rtl/rom/MoonWar_program1.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80se.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80_Reg.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80_Pack.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80_MCode.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80_ALU.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80.vhd +set_global_assignment -name VERILOG_FILE rtl/pll.v +set_global_assignment -name QIP_FILE ../../../common/mist/mist.qip + +# Pin & Location Assignments +# ========================== +set_location_assignment PIN_54 -to CLOCK_27 +set_location_assignment PIN_7 -to LED +set_location_assignment PIN_144 -to VGA_R[5] +set_location_assignment PIN_143 -to VGA_R[4] +set_location_assignment PIN_142 -to VGA_R[3] +set_location_assignment PIN_141 -to VGA_R[2] +set_location_assignment PIN_137 -to VGA_R[1] +set_location_assignment PIN_135 -to VGA_R[0] +set_location_assignment PIN_133 -to VGA_B[5] +set_location_assignment PIN_132 -to VGA_B[4] +set_location_assignment PIN_125 -to VGA_B[3] +set_location_assignment PIN_121 -to VGA_B[2] +set_location_assignment PIN_120 -to VGA_B[1] +set_location_assignment PIN_115 -to VGA_B[0] +set_location_assignment PIN_114 -to VGA_G[5] +set_location_assignment PIN_113 -to VGA_G[4] +set_location_assignment PIN_112 -to VGA_G[3] +set_location_assignment PIN_111 -to VGA_G[2] +set_location_assignment PIN_110 -to VGA_G[1] +set_location_assignment PIN_106 -to VGA_G[0] +set_location_assignment PIN_136 -to VGA_VS +set_location_assignment PIN_119 -to VGA_HS +set_location_assignment PIN_65 -to AUDIO_L +set_location_assignment PIN_80 -to AUDIO_R +set_location_assignment PIN_105 -to SPI_DO +set_location_assignment PIN_88 -to SPI_DI +set_location_assignment PIN_126 -to SPI_SCK +set_location_assignment PIN_127 -to SPI_SS2 +set_location_assignment PIN_91 -to SPI_SS3 +set_location_assignment PIN_90 -to SPI_SS4 +set_location_assignment PIN_13 -to CONF_DATA0 +set_location_assignment PIN_49 -to SDRAM_A[0] +set_location_assignment PIN_44 -to SDRAM_A[1] +set_location_assignment PIN_42 -to SDRAM_A[2] +set_location_assignment PIN_39 -to SDRAM_A[3] +set_location_assignment PIN_4 -to SDRAM_A[4] +set_location_assignment PIN_6 -to SDRAM_A[5] +set_location_assignment PIN_8 -to SDRAM_A[6] +set_location_assignment PIN_10 -to SDRAM_A[7] +set_location_assignment PIN_11 -to SDRAM_A[8] +set_location_assignment PIN_28 -to SDRAM_A[9] +set_location_assignment PIN_50 -to SDRAM_A[10] +set_location_assignment PIN_30 -to SDRAM_A[11] +set_location_assignment PIN_32 -to SDRAM_A[12] +set_location_assignment PIN_83 -to SDRAM_DQ[0] +set_location_assignment PIN_79 -to SDRAM_DQ[1] +set_location_assignment PIN_77 -to SDRAM_DQ[2] +set_location_assignment PIN_76 -to SDRAM_DQ[3] +set_location_assignment PIN_72 -to SDRAM_DQ[4] +set_location_assignment PIN_71 -to SDRAM_DQ[5] +set_location_assignment PIN_69 -to SDRAM_DQ[6] +set_location_assignment PIN_68 -to SDRAM_DQ[7] +set_location_assignment PIN_86 -to SDRAM_DQ[8] +set_location_assignment PIN_87 -to SDRAM_DQ[9] +set_location_assignment PIN_98 -to SDRAM_DQ[10] +set_location_assignment PIN_99 -to SDRAM_DQ[11] +set_location_assignment PIN_100 -to SDRAM_DQ[12] +set_location_assignment PIN_101 -to SDRAM_DQ[13] +set_location_assignment PIN_103 -to SDRAM_DQ[14] +set_location_assignment PIN_104 -to SDRAM_DQ[15] +set_location_assignment PIN_58 -to SDRAM_BA[0] +set_location_assignment PIN_51 -to SDRAM_BA[1] +set_location_assignment PIN_85 -to SDRAM_DQMH +set_location_assignment PIN_67 -to SDRAM_DQML +set_location_assignment PIN_60 -to SDRAM_nRAS +set_location_assignment PIN_64 -to SDRAM_nCAS +set_location_assignment PIN_66 -to SDRAM_nWE +set_location_assignment PIN_59 -to SDRAM_nCS +set_location_assignment PIN_33 -to SDRAM_CKE +set_location_assignment PIN_43 -to SDRAM_CLK +set_location_assignment PIN_31 -to UART_RX +set_location_assignment PIN_46 -to UART_TX + +# Classic Timing Assignments +# ========================== +set_global_assignment -name MIN_CORE_JUNCTION_TEMP 0 +set_global_assignment -name MAX_CORE_JUNCTION_TEMP 85 + +# Analysis & Synthesis Assignments +# ================================ +set_global_assignment -name FAMILY "Cyclone III" +set_global_assignment -name TOP_LEVEL_ENTITY MoonWar_mist +set_global_assignment -name DEVICE_FILTER_PACKAGE TQFP +set_global_assignment -name DEVICE_FILTER_PIN_COUNT 144 +set_global_assignment -name DEVICE_FILTER_SPEED_GRADE 8 +set_global_assignment -name VERILOG_INPUT_VERSION SYSTEMVERILOG_2005 +set_global_assignment -name VERILOG_SHOW_LMF_MAPPING_MESSAGES OFF + +# Fitter Assignments +# ================== +set_global_assignment -name DEVICE EP3C25E144C8 +set_global_assignment -name ERROR_CHECK_FREQUENCY_DIVISOR 1 +set_global_assignment -name STRATIX_DEVICE_IO_STANDARD "3.3-V LVTTL" +set_global_assignment -name CYCLONEIII_CONFIGURATION_SCHEME "PASSIVE SERIAL" +set_global_assignment -name CRC_ERROR_OPEN_DRAIN OFF +set_global_assignment -name FORCE_CONFIGURATION_VCCIO ON +set_global_assignment -name CYCLONEII_RESERVE_NCEO_AFTER_CONFIGURATION "USE AS REGULAR IO" +set_global_assignment -name RESERVE_DATA0_AFTER_CONFIGURATION "USE AS REGULAR IO" +set_global_assignment -name RESERVE_DATA1_AFTER_CONFIGURATION "USE AS REGULAR IO" +set_global_assignment -name RESERVE_FLASH_NCE_AFTER_CONFIGURATION "USE AS REGULAR IO" +set_global_assignment -name RESERVE_DCLK_AFTER_CONFIGURATION "USE AS REGULAR IO" + +# EDA Netlist Writer Assignments +# ============================== +set_global_assignment -name EDA_SIMULATION_TOOL "ModelSim-Altera (VHDL)" + +# Assembler Assignments +# ===================== +set_global_assignment -name USE_CONFIGURATION_DEVICE OFF +set_global_assignment -name GENERATE_RBF_FILE ON + +# Power Estimation Assignments +# ============================ +set_global_assignment -name POWER_PRESET_COOLING_SOLUTION "23 MM HEAT SINK WITH 200 LFPM AIRFLOW" +set_global_assignment -name POWER_BOARD_THERMAL_MODEL "NONE (CONSERVATIVE)" + +# Advanced I/O Timing Assignments +# =============================== +set_global_assignment -name OUTPUT_IO_TIMING_NEAR_END_VMEAS "HALF VCCIO" -rise +set_global_assignment -name OUTPUT_IO_TIMING_NEAR_END_VMEAS "HALF VCCIO" -fall +set_global_assignment -name OUTPUT_IO_TIMING_FAR_END_VMEAS "HALF SIGNAL SWING" -rise +set_global_assignment -name OUTPUT_IO_TIMING_FAR_END_VMEAS "HALF SIGNAL SWING" -fall + +# start EDA_TOOL_SETTINGS(eda_simulation) +# --------------------------------------- + + # EDA Netlist Writer Assignments + # ============================== + set_global_assignment -name EDA_OUTPUT_DATA_FORMAT VHDL -section_id eda_simulation + +# end EDA_TOOL_SETTINGS(eda_simulation) +# ------------------------------------- + +# -------------------------- +# start ENTITY(MoonWar_mist) + + # start DESIGN_PARTITION(Top) + # --------------------------- + + # Incremental Compilation Assignments + # =================================== + set_global_assignment -name PARTITION_NETLIST_TYPE SOURCE -section_id Top + set_global_assignment -name PARTITION_FITTER_PRESERVATION_LEVEL PLACEMENT_AND_ROUTING -section_id Top + set_global_assignment -name PARTITION_COLOR 16764057 -section_id Top + + # end DESIGN_PARTITION(Top) + # ------------------------- + +# end ENTITY(MoonWar_mist) +# ------------------------ +set_instance_assignment -name PARTITION_HIERARCHY root_partition -to | -section_id Top \ No newline at end of file diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.srf b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.srf new file mode 100644 index 00000000..bde7a414 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/MoonWar_MiST.srf @@ -0,0 +1,3 @@ +{ "" "" "" "VHDL Signal Declaration warning at berzerk.vhd(107): used implicit default value for signal \"dbg_cpu_di\" because signal was never assigned a value or an explicit default value. Use of implicit default value may introduce unintended design optimizations." { } { } 0 10541 "" 0 0 "Quartus II" 0 -1 0 ""} +{ "" "" "" "Verilog HDL information at scandoubler.v(114): always construct contains both blocking and non-blocking assignments" { } { } 0 10268 "" 0 0 "Quartus II" 0 -1 0 ""} +{ "" "" "" "Verilog HDL warning at hq2x.sv(247): extended using \"x\" or \"z\"" { } { } 0 10273 "" 0 0 "Quartus II" 0 -1 0 ""} diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/README.txt b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/README.txt new file mode 100644 index 00000000..0083a101 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/README.txt @@ -0,0 +1,150 @@ +Moon War Port to MiST + + + + +------------------------------------------------- +-- Berzerk FPGA by Dar - (darfpga@aol.fr) +-- http://darfpga.blogspot.fr +------------------------------------------------- +-- Berzerk releases +-- +-- Release 0.0 - 07/07/2018 - Dar +------------------------------------------------- +Educational use only +Do not redistribute synthetized file with roms +Do not redistribute roms whatever the form +Use at your own risk +-------------------------------------------------------------------- +make sure to use berzerk.zip roms +-------------------------------------------------------------------- +-- +-- Main features : +-- PS2 keyboard input @gpio pins 35/34 (beware voltage translation/protection) +-- Audio pwm output @gpio pins 1/3 (beware voltage translation/protection) +-- +-- Uses 1 pll for 10MHz generation from 50MHz +-- +-- Board key : +-- 0 : reset game +-- +-- Board switch : +-- 1 : tv 15Khz mode / VGA 640x480 mode +-- +-- Keyboard players inputs : +-- +-- F3 : Add coin +-- F2 : Start 2 players +-- F1 : Start 1 player +-- SPACE : fire +-- RIGHT arrow : move right +-- LEFT arrow : move left +-- UP arrow : move up +-- DOWN arrow : move down +-- +-- Sound effects : OK +-- Speech synthesis : todo +-- +--------------- +VHDL File list +--------------- + +max10_pll_10M.vhd Pll 10MHz from 50MHz altera mf + +berzerk_de10_lite.vhd Top level for de10-lite board +berzerk.vhd Main logic +berzerk_sound_fx.vhd Music logic +berzerk_program1.vhd +berzerk_program2.vhd + +video_gen.vhd Video scheduler, syncs (h,v and composite) +line_doubler.vhd Line doubler 15kHz -> 31kHz VGA + +kbd_joystick.vhd Keyboard key to player/coin input + +T80se.vhd T80 release 304 +T80_Reg.vhd +T80_Pack.vhd +T80_MCode.vhd +T80_ALU.vhd +T80.vhd + +io_ps2_keyboard.vhd Copyright 2005-2008 by Peter Wendrich (pwsoft@syntiac.com) +gen_ram.vhd + +decodeur_7_seg.vhd for debug + +---------------------- +Quartus project files +---------------------- +de10_lite/berzerk_de10_lite.qsf de10_lite settings (files,pins,...) +de10_lite/berzerk_de10_lite.qpf de10_lite project +de10_lite/berzerk_de10_lite.sdc timequest constraints + + ++----------------------------------------------------------------------------------+ +; Fitter Summary ; ++------------------------------------+---------------------------------------------+ +; Fitter Status ; Successful - Sat Jul 07 07:38:44 2018 ; +; Quartus Prime Version ; 16.1.0 Build 196 10/24/2016 SJ Lite Edition ; +; Revision Name ; berzerk_de10_lite ; +; Top-level Entity Name ; berzerk_de10_lite ; +; Family ; MAX 10 ; +; Device ; 10M50DAF484C6GES ; +; Timing Models ; Preliminary ; +; Total logic elements ; 3,277 / 49,760 ( 7 % ) ; +; Total combinational functions ; 3,043 / 49,760 ( 6 % ) ; +; Dedicated logic registers ; 886 / 49,760 ( 2 % ) ; +; Total registers ; 886 ; +; Total pins ; 121 / 360 ( 34 % ) ; +; Total virtual pins ; 0 ; +; Total memory bits ; 241,664 / 1,677,312 ( 14 % ) ; +; Embedded Multiplier 9-bit elements ; 0 / 288 ( 0 % ) ; +; Total PLLs ; 1 / 4 ( 25 % ) ; +; UFM blocks ; 0 / 1 ( 0 % ) ; +; ADC blocks ; 0 / 2 ( 0 % ) ; ++------------------------------------+---------------------------------------------+ +----------------------------- +Required ROMs (Not included) +----------------------------- + +You need the following 8 ROMs from berzerk.zip + +berzerk_rc31_1c.rom0.1c CRC(ca566dbc) SHA1(fae2647f12f1cd82826db61b53b116a5e0c9f995) +berzerk_rc31_1d.rom1.1d CRC(7ba69fde) SHA1(69af170c4a39a3494dcd180737e5c87b455f9203) +berzerk_rc31_3d.rom2.3d CRC(a1d5248b) SHA1(a0b7842f6a5f86c16d80d78e7012c78b3ea11d1d) +berzerk_rc31_5d.rom3.5d CRC(fcaefa95) SHA1(07f849aa39f1e3db938187ffde4a46a588156ddc) +berzerk_rc31_6d.rom4.6d CRC(1e35b9a0) SHA1(5a5e549ec0e4803ab2d1eac6b3e7171aedf28244) +berzerk_rc31_5c.rom5.5c CRC(c8c665e5) SHA1(e9eca4b119549e0061384abf52327c14b0d56624) +berzerk_r_vo_1c.1c CRC(2cfe825d) SHA1(f12fed8712f20fa8213f606c4049a8144bfea42e) +berzerk_r_vo_2c.2c CRC(d2b6324e) SHA1(20a6611ad6ec19409ac138bdae7bdfaeab6c47cf) + +------ +Tools +------ +You need to build vhdl ROM image files from the binary file : + - Unzip the roms file in the tools/berzerk_unzip directory + - Double click (execute) the script tools/berzerk_unzip/make_berzerk_proms.bat to get the following files + +berzerk_program1.vhd +berzerk_program2.vhd + +*DO NOT REDISTRIBUTE THESE FILES* + +The script make_berzerk_proms uses make_vhdl_prom and and duplicate_byte executables delivered both in linux and windows version. The script itself is delivered only in windows version (.bat) but should be easily ported to linux. + +Source code of make_vhdl_prom.c and and duplicate_byte.c is also delivered. + +--------------------------------- +Compiling for de10_lite +--------------------------------- +You can rebuild the project with ROM image embeded in the sof file. DO NOT REDISTRIBUTE THESE FILES. +4 steps + + - put the VHDL rom files into the project directory + - rebuild berzerk_de10_lite + - program berzerk_de10_lite.sof into the fpga + +------------------------ +End of file +------------------------ \ No newline at end of file diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/clean.bat b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/clean.bat new file mode 100644 index 00000000..b3b7c3b5 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/clean.bat @@ -0,0 +1,37 @@ +@echo off +del /s *.bak +del /s *.orig +del /s *.rej +del /s *~ +rmdir /s /q db +rmdir /s /q incremental_db +rmdir /s /q output_files +rmdir /s /q simulation +rmdir /s /q greybox_tmp +rmdir /s /q hc_output +rmdir /s /q .qsys_edit +rmdir /s /q hps_isw_handoff +rmdir /s /q sys\.qsys_edit +rmdir /s /q sys\vip +cd sys +for /d %%i in (*_sim) do rmdir /s /q "%%~nxi" +cd .. +for /d %%i in (*_sim) do rmdir /s /q "%%~nxi" +del build_id.v +del c5_pin_model_dump.txt +del PLLJ_PLLSPE_INFO.txt +del /s *.qws +del /s *.ppf +del /s *.ddb +del /s *.csv +del /s *.cmp +del /s *.sip +del /s *.spd +del /s *.bsf +del /s *.f +del /s *.sopcinfo +del /s *.xml +del /s new_rtl_netlist +del /s old_rtl_netlist + +pause diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/MoonWar_mist.sv b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/MoonWar_mist.sv new file mode 100644 index 00000000..e5e3d7e3 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/MoonWar_mist.sv @@ -0,0 +1,179 @@ +module MoonWar_mist( + output LED, + output [5:0] VGA_R, + output [5:0] VGA_G, + output [5:0] VGA_B, + output VGA_HS, + output VGA_VS, + output AUDIO_L, + output AUDIO_R, + input SPI_SCK, + output SPI_DO, + input SPI_DI, + input SPI_SS2, + input SPI_SS3, + input CONF_DATA0, + input CLOCK_27 +); + +`include "rtl\build_id.v" + +localparam CONF_STR = { + "Moon War;;", + "O34,Scanlines,None,CRT 25%,CRT 50%,CRT 75%;", + "T6,Reset;", + "V,v1.20.",`BUILD_DATE +}; + +assign LED = 1; +assign AUDIO_R = AUDIO_L; + +wire clk_10, clk_20; +pll pll( + .inclk0(CLOCK_27), + .areset(0), + .c0(clk_10), + .c1(clk_20) +); + +wire [31:0] status; +wire [1:0] buttons; +wire [1:0] switches; +wire [9:0] kbjoy; +wire [7:0] joystick_0; +wire [7:0] joystick_1; +wire scandoublerD; +wire ypbpr; +wire [10:0] ps2_key; +wire hs, vs; +wire hb, vb; +wire blankn = ~(hb | vb); +wire r, g, b; +wire [15:0] audio; + +berzerk berzerk( + .clock_10(clk_10), + .reset(status[0] | status[6] | buttons[1]), + .video_r(r), + .video_g(g), + .video_b(b), + .video_hi(), + .video_clk(), + .video_csync(), + .video_hs(hs), + .video_vs(vs), + .video_hb(hb), + .video_vb(vb), + .audio_out(audio), + .hyperflip(m_hyperflip),//Cocktail Only + .coin1(btn_coin), + .start1(btn_one_player),//not working- activate hyperflip maybe DIP Setting + .start2(btn_two_players), + .fire3(m_fire3),//mines + .fire2(m_fire2),//thrust + .fire1(m_fire1),//bolts + .cleft(m_left), + .cright(m_right), + .ledr(), + .dbg_cpu_di(), + .dbg_cpu_addr(), + .dbg_cpu_addr_latch() +); + +mist_video #(.COLOR_DEPTH(3), .SD_HCNT_WIDTH(9)) mist_video( + .clk_sys(clk_20), + .SPI_SCK(SPI_SCK), + .SPI_SS3(SPI_SS3), + .SPI_DI(SPI_DI), + .R(blankn ? {r,r,r} : 0), + .G(blankn ? {g,g,g} : 0), + .B(blankn ? {b,b,b} : 0), + .HSync(~hs), + .VSync(~vs), + .VGA_R(VGA_R), + .VGA_G(VGA_G), + .VGA_B(VGA_B), + .VGA_VS(VGA_VS), + .VGA_HS(VGA_HS), + .ce_divider(0), + .rotate({1'b1,status[2]}), + .scandoubler_disable(scandoublerD), + .scanlines(scandoublerD ? 2'b00 : status[4:3]), + .ypbpr(ypbpr) + ); + + +user_io #( + .STRLEN(($size(CONF_STR)>>3))) +user_io( + .clk_sys (clk_20 ), + .conf_str (CONF_STR ), + .SPI_CLK (SPI_SCK ), + .SPI_SS_IO (CONF_DATA0 ), + .SPI_MISO (SPI_DO ), + .SPI_MOSI (SPI_DI ), + .buttons (buttons ), + .switches (switches ), + .scandoubler_disable (scandoublerD ), + .ypbpr (ypbpr ), + .key_strobe (key_strobe ), + .key_pressed (key_pressed ), + .key_code (key_code ), + .joystick_0 (joystick_0 ), + .joystick_1 (joystick_1 ), + .status (status ) + ); + + +dac #( + .C_bits(15)) +dac( + .clk_i(clk_20), + .res_n_i(1), + .dac_i(audio), + .dac_o(AUDIO_L) +); + +wire m_up = btn_up | joystick_0[3] | joystick_1[3]; +wire m_down = btn_down | joystick_0[2] | joystick_1[2]; +wire m_left = btn_left | joystick_0[1] | joystick_1[1]; +wire m_right = btn_right | joystick_0[0] | joystick_1[0]; +wire m_fire1 = btn_fire1 | joystick_0[4] | joystick_1[4];//Bolts +wire m_fire2 = btn_fire2 | joystick_0[5] | joystick_1[5];//thrust +wire m_fire3 = btn_fire3 | joystick_0[6] | joystick_1[6];//mines +wire m_hyperflip = btn_test | joystick_0[7] | joystick_1[7]; + +reg btn_one_player = 0; +reg btn_two_players = 0; +reg btn_left = 0; +reg btn_right = 0; +reg btn_down = 0; +reg btn_up = 0; +reg btn_test = 0; +reg btn_fire1 = 0; +reg btn_fire2 = 0; +reg btn_fire3 = 0; +reg btn_coin = 0; +wire key_pressed; +wire [7:0] key_code; +wire key_strobe; + +always @(posedge clk_20) begin + if(key_strobe) begin + case(key_code) + 'h75: btn_up <= key_pressed; // up + 'h72: btn_down <= key_pressed; // down + 'h6B: btn_left <= key_pressed; // left + 'h74: btn_right <= key_pressed; // right + 'h76: btn_coin <= key_pressed; // ESC + 'h05: btn_test <= key_pressed; // F3 + 'h05: btn_one_player <= key_pressed; // F1 + 'h06: btn_two_players <= key_pressed; // F2 + 'h14: btn_fire3 <= key_pressed; // ctrl + 'h11: btn_fire2 <= key_pressed; // alt + 'h29: btn_fire1 <=key_pressed; // Space + endcase + end +end + +endmodule diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80.vhd new file mode 100644 index 00000000..4150a43d --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80.vhd @@ -0,0 +1,1097 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- Ver 304 init values of registers on first startup (better simulation) +-- Ver 303 add undocumented DDCB and FDCB opcodes by TobiFlex 20.04.2010 +-- Ver 302 fixed IO cycle timing, tested thanks to Alessandro. +-- Ver 301 parity flag is just parity for 8080, also overflow for Z80, by Sean Riddle +-- Ver 300 started tidyup. Rmoved some auto_wait bits from 0247 which caused problems +-- +-- MikeJ March 2005 +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- $Id: T80.vhd 1330 2015-05-22 19:55:46Z wolfgang.scherr $ +-- +-- **** +-- +-- Z80 compatible microprocessor core +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- MikeJ March 2005 +-- Wolfgang Scherr 2011-2015 (email: WoS pin4 at) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0208 : First complete release +-- +-- 0210 : Fixed wait and halt +-- +-- 0211 : Fixed Refresh addition and IM 1 +-- +-- 0214 : Fixed mostly flags, only the block instructions now fail the zex regression test +-- +-- 0232 : Removed refresh address output for Mode > 1 and added DJNZ M1_n fix by Mike Johnson +-- +-- 0235 : Added clock enable and IM 2 fix by Mike Johnson +-- +-- 0237 : Changed 8080 I/O address output, added IntE output +-- +-- 0238 : Fixed (IX/IY+d) timing and 16 bit ADC and SBC zero flag +-- +-- 0240 : Added interrupt ack fix by Mike Johnson, changed (IX/IY+d) timing and changed flags in GB mode +-- +-- 0242 : Added I/O wait, fixed refresh address, moved some registers to RAM +-- +-- 0247 : Fixed bus req/ack cycle +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; +use work.T80_Pack.all; + +entity T80 is + generic( + Mode : integer := 0; -- 0 => Z80, 1 => Fast Z80, 2 => 8080, 3 => GB + IOWait : integer := 0; -- 1 => Single cycle I/O, 1 => Std I/O cycle + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + RESET_n : in std_logic; + CLK_n : in std_logic; + CEN : in std_logic; + WAIT_n : in std_logic; + INT_n : in std_logic; + NMI_n : in std_logic; + BUSRQ_n : in std_logic; + M1_n : out std_logic; + IORQ : out std_logic; + NoRead : out std_logic; + Write : out std_logic; + RFSH_n : out std_logic; + HALT_n : out std_logic; + BUSAK_n : out std_logic; + A : out std_logic_vector(15 downto 0); + DInst : in std_logic_vector(7 downto 0); + DI : in std_logic_vector(7 downto 0); + DO : out std_logic_vector(7 downto 0); + MC : out std_logic_vector(2 downto 0); + TS : out std_logic_vector(2 downto 0); + IntCycle_n : out std_logic; + IntE : out std_logic; + Stop : out std_logic + ); +end T80; + +architecture rtl of T80 is + + constant aNone : std_logic_vector(2 downto 0) := "111"; + constant aBC : std_logic_vector(2 downto 0) := "000"; + constant aDE : std_logic_vector(2 downto 0) := "001"; + constant aXY : std_logic_vector(2 downto 0) := "010"; + constant aIOA : std_logic_vector(2 downto 0) := "100"; + constant aSP : std_logic_vector(2 downto 0) := "101"; + constant aZI : std_logic_vector(2 downto 0) := "110"; + + -- Registers + signal ACC, F : std_logic_vector(7 downto 0) := "11111111"; + signal Ap, Fp : std_logic_vector(7 downto 0) := "11111111"; + signal I : std_logic_vector(7 downto 0) := "00000000"; + signal R : unsigned(7 downto 0) := "00000000"; + signal SP : unsigned(15 downto 0) := "1111111111111111"; + signal PC : unsigned(15 downto 0) := "0000000000000000"; + + signal RegDIH : std_logic_vector(7 downto 0); + signal RegDIL : std_logic_vector(7 downto 0); + signal RegBusA : std_logic_vector(15 downto 0); + signal RegBusB : std_logic_vector(15 downto 0); + signal RegBusC : std_logic_vector(15 downto 0); + signal RegAddrA_r : std_logic_vector(2 downto 0); + signal RegAddrA : std_logic_vector(2 downto 0); + signal RegAddrB_r : std_logic_vector(2 downto 0); + signal RegAddrB : std_logic_vector(2 downto 0); + signal RegAddrC : std_logic_vector(2 downto 0); + signal RegWEH : std_logic; + signal RegWEL : std_logic; + signal Alternate : std_logic; + + -- Help Registers + signal TmpAddr : std_logic_vector(15 downto 0); -- Temporary address register + signal IR : std_logic_vector(7 downto 0); -- Instruction register + signal ISet : std_logic_vector(1 downto 0); -- Instruction set selector + signal RegBusA_r : std_logic_vector(15 downto 0); + + signal ID16 : signed(15 downto 0); + signal Save_Mux : std_logic_vector(7 downto 0); + + signal TState : unsigned(2 downto 0); + signal MCycle : std_logic_vector(2 downto 0); + signal IntE_FF1 : std_logic; + signal IntE_FF2 : std_logic; + signal Halt_FF : std_logic; + signal BusReq_s : std_logic; + signal BusAck : std_logic; + signal ClkEn : std_logic; + signal NMI_s : std_logic; + signal INT_s : std_logic; + signal IStatus : std_logic_vector(1 downto 0); + + signal DI_Reg : std_logic_vector(7 downto 0); + signal T_Res : std_logic; + signal XY_State : std_logic_vector(1 downto 0); + signal Pre_XY_F_M : std_logic_vector(2 downto 0); + signal NextIs_XY_Fetch : std_logic; + signal XY_Ind : std_logic; + signal No_BTR : std_logic; + signal BTR_r : std_logic; + signal Auto_Wait : std_logic; + signal Auto_Wait_t1 : std_logic; + signal Auto_Wait_t2 : std_logic; + signal IncDecZ : std_logic; + + -- ALU signals + signal BusB : std_logic_vector(7 downto 0); + signal BusA : std_logic_vector(7 downto 0); + signal ALU_Q : std_logic_vector(7 downto 0); + signal F_Out : std_logic_vector(7 downto 0); + + -- Registered micro code outputs + signal Read_To_Reg_r : std_logic_vector(4 downto 0); + signal Arith16_r : std_logic; + signal Z16_r : std_logic; + signal ALU_Op_r : std_logic_vector(3 downto 0); + signal Save_ALU_r : std_logic; + signal PreserveC_r : std_logic; + signal MCycles : std_logic_vector(2 downto 0); + + -- Micro code outputs + signal MCycles_d : std_logic_vector(2 downto 0); + signal TStates : std_logic_vector(2 downto 0); + signal IntCycle : std_logic; + signal NMICycle : std_logic; + signal Inc_PC : std_logic; + signal Inc_WZ : std_logic; + signal IncDec_16 : std_logic_vector(3 downto 0); + signal Prefix : std_logic_vector(1 downto 0); + signal Read_To_Acc : std_logic; + signal Read_To_Reg : std_logic; + signal Set_BusB_To : std_logic_vector(3 downto 0); + signal Set_BusA_To : std_logic_vector(3 downto 0); + signal ALU_Op : std_logic_vector(3 downto 0); + signal Save_ALU : std_logic; + signal PreserveC : std_logic; + signal Arith16 : std_logic; + signal Set_Addr_To : std_logic_vector(2 downto 0); + signal Jump : std_logic; + signal JumpE : std_logic; + signal JumpXY : std_logic; + signal Call : std_logic; + signal RstP : std_logic; + signal LDZ : std_logic; + signal LDW : std_logic; + signal LDSPHL : std_logic; + signal IORQ_i : std_logic; + signal Special_LD : std_logic_vector(2 downto 0); + signal ExchangeDH : std_logic; + signal ExchangeRp : std_logic; + signal ExchangeAF : std_logic; + signal ExchangeRS : std_logic; + signal I_DJNZ : std_logic; + signal I_CPL : std_logic; + signal I_CCF : std_logic; + signal I_SCF : std_logic; + signal I_RETN : std_logic; + signal I_BT : std_logic; + signal I_BC : std_logic; + signal I_BTR : std_logic; + signal I_RLD : std_logic; + signal I_RRD : std_logic; + signal I_INRC : std_logic; + signal SetDI : std_logic; + signal SetEI : std_logic; + signal IMode : std_logic_vector(1 downto 0); + signal Halt : std_logic; + signal XYbit_undoc : std_logic; + + +begin + + mcode : T80_MCode + generic map( + Mode => Mode, + Flag_C => Flag_C, + Flag_N => Flag_N, + Flag_P => Flag_P, + Flag_X => Flag_X, + Flag_H => Flag_H, + Flag_Y => Flag_Y, + Flag_Z => Flag_Z, + Flag_S => Flag_S) + port map( + IR => IR, + ISet => ISet, + MCycle => MCycle, + F => F, + NMICycle => NMICycle, + IntCycle => IntCycle, + XY_State => XY_State, + MCycles => MCycles_d, + TStates => TStates, + Prefix => Prefix, + Inc_PC => Inc_PC, + Inc_WZ => Inc_WZ, + IncDec_16 => IncDec_16, + Read_To_Acc => Read_To_Acc, + Read_To_Reg => Read_To_Reg, + Set_BusB_To => Set_BusB_To, + Set_BusA_To => Set_BusA_To, + ALU_Op => ALU_Op, + Save_ALU => Save_ALU, + PreserveC => PreserveC, + Arith16 => Arith16, + Set_Addr_To => Set_Addr_To, + IORQ => IORQ_i, + Jump => Jump, + JumpE => JumpE, + JumpXY => JumpXY, + Call => Call, + RstP => RstP, + LDZ => LDZ, + LDW => LDW, + LDSPHL => LDSPHL, + Special_LD => Special_LD, + ExchangeDH => ExchangeDH, + ExchangeRp => ExchangeRp, + ExchangeAF => ExchangeAF, + ExchangeRS => ExchangeRS, + I_DJNZ => I_DJNZ, + I_CPL => I_CPL, + I_CCF => I_CCF, + I_SCF => I_SCF, + I_RETN => I_RETN, + I_BT => I_BT, + I_BC => I_BC, + I_BTR => I_BTR, + I_RLD => I_RLD, + I_RRD => I_RRD, + I_INRC => I_INRC, + SetDI => SetDI, + SetEI => SetEI, + IMode => IMode, + Halt => Halt, + NoRead => NoRead, + Write => Write, + XYbit_undoc => XYbit_undoc); + + alu : T80_ALU + generic map( + Mode => Mode, + Flag_C => Flag_C, + Flag_N => Flag_N, + Flag_P => Flag_P, + Flag_X => Flag_X, + Flag_H => Flag_H, + Flag_Y => Flag_Y, + Flag_Z => Flag_Z, + Flag_S => Flag_S) + port map( + Arith16 => Arith16_r, + Z16 => Z16_r, + ALU_Op => ALU_Op_r, + IR => IR(5 downto 0), + ISet => ISet, + BusA => BusA, + BusB => BusB, + F_In => F, + Q => ALU_Q, + F_Out => F_Out); + + ClkEn <= CEN and not BusAck; + + T_Res <= '1' when TState = unsigned(TStates) else '0'; + + NextIs_XY_Fetch <= '1' when XY_State /= "00" and XY_Ind = '0' and + ((Set_Addr_To = aXY) or + (MCycle = "001" and IR = "11001011") or + (MCycle = "001" and IR = "00110110")) else '0'; + + Save_Mux <= BusB when ExchangeRp = '1' else + DI_Reg when Save_ALU_r = '0' else + ALU_Q; + + process (RESET_n, CLK_n) + begin + if RESET_n = '0' then + PC <= (others => '0'); -- Program Counter + A <= (others => '0'); + TmpAddr <= (others => '0'); + IR <= "00000000"; + ISet <= "00"; + XY_State <= "00"; + IStatus <= "00"; + MCycles <= "000"; + DO <= "00000000"; + + ACC <= (others => '1'); + F <= (others => '1'); + Ap <= (others => '1'); + Fp <= (others => '1'); + I <= (others => '0'); + R <= (others => '0'); + SP <= (others => '1'); + Alternate <= '0'; + + Read_To_Reg_r <= "00000"; + F <= (others => '1'); + Arith16_r <= '0'; + BTR_r <= '0'; + Z16_r <= '0'; + ALU_Op_r <= "0000"; + Save_ALU_r <= '0'; + PreserveC_r <= '0'; + XY_Ind <= '0'; + + elsif CLK_n'event and CLK_n = '1' then + + if ClkEn = '1' then + + ALU_Op_r <= "0000"; + Save_ALU_r <= '0'; + Read_To_Reg_r <= "00000"; + + MCycles <= MCycles_d; + + if IMode /= "11" then + IStatus <= IMode; + end if; + + Arith16_r <= Arith16; + PreserveC_r <= PreserveC; + if ISet = "10" and ALU_OP(2) = '0' and ALU_OP(0) = '1' and MCycle = "011" then + Z16_r <= '1'; + else + Z16_r <= '0'; + end if; + + if MCycle = "001" and TState(2) = '0' then + -- MCycle = 1 and TState = 1, 2, or 3 + + if TState = 2 and Wait_n = '1' then + if Mode < 2 then + A(7 downto 0) <= std_logic_vector(R); + A(15 downto 8) <= I; + R(6 downto 0) <= R(6 downto 0) + 1; + end if; + + if Jump = '0' and Call = '0' and NMICycle = '0' and IntCycle = '0' and not (Halt_FF = '1' or Halt = '1') then + PC <= PC + 1; + end if; + + if IntCycle = '1' and IStatus = "01" then + IR <= "11111111"; + elsif Halt_FF = '1' or (IntCycle = '1' and IStatus = "10") or NMICycle = '1' then + IR <= "00000000"; + else + IR <= DInst; + end if; + + ISet <= "00"; + if Prefix /= "00" then + if Prefix = "11" then + if IR(5) = '1' then + XY_State <= "10"; + else + XY_State <= "01"; + end if; + else + if Prefix = "10" then + XY_State <= "00"; + XY_Ind <= '0'; + end if; + ISet <= Prefix; + end if; + else + XY_State <= "00"; + XY_Ind <= '0'; + end if; + end if; + + else + -- either (MCycle > 1) OR (MCycle = 1 AND TState > 3) + + if MCycle = "110" then + XY_Ind <= '1'; + if Prefix = "01" then + ISet <= "01"; + end if; + end if; + + if T_Res = '1' then + BTR_r <= (I_BT or I_BC or I_BTR) and not No_BTR; + if Jump = '1' then + A(15 downto 8) <= DI_Reg; + A(7 downto 0) <= TmpAddr(7 downto 0); + PC(15 downto 8) <= unsigned(DI_Reg); + PC(7 downto 0) <= unsigned(TmpAddr(7 downto 0)); + elsif JumpXY = '1' then + A <= RegBusC; + PC <= unsigned(RegBusC); + elsif Call = '1' or RstP = '1' then + A <= TmpAddr; + PC <= unsigned(TmpAddr); + elsif MCycle = MCycles and NMICycle = '1' then + A <= "0000000001100110"; + PC <= "0000000001100110"; + elsif MCycle = "011" and IntCycle = '1' and IStatus = "10" then + A(15 downto 8) <= I; + A(7 downto 0) <= TmpAddr(7 downto 0); + PC(15 downto 8) <= unsigned(I); + PC(7 downto 0) <= unsigned(TmpAddr(7 downto 0)); + else + case Set_Addr_To is + when aXY => + if XY_State = "00" then + A <= RegBusC; + else + if NextIs_XY_Fetch = '1' then + A <= std_logic_vector(PC); + else + A <= TmpAddr; + end if; + end if; + when aIOA => + if Mode = 3 then + -- Memory map I/O on GBZ80 + A(15 downto 8) <= (others => '1'); + elsif Mode = 2 then + -- Duplicate I/O address on 8080 + A(15 downto 8) <= DI_Reg; + else + A(15 downto 8) <= ACC; + end if; + A(7 downto 0) <= DI_Reg; + when aSP => + A <= std_logic_vector(SP); + when aBC => + if Mode = 3 and IORQ_i = '1' then + -- Memory map I/O on GBZ80 + A(15 downto 8) <= (others => '1'); + A(7 downto 0) <= RegBusC(7 downto 0); + else + A <= RegBusC; + end if; + when aDE => + A <= RegBusC; + when aZI => + if Inc_WZ = '1' then + A <= std_logic_vector(unsigned(TmpAddr) + 1); + else + A(15 downto 8) <= DI_Reg; + A(7 downto 0) <= TmpAddr(7 downto 0); + end if; + when others => + A <= std_logic_vector(PC); + end case; + end if; + + Save_ALU_r <= Save_ALU; + ALU_Op_r <= ALU_Op; + + if I_CPL = '1' then + -- CPL + ACC <= not ACC; + F(Flag_Y) <= not ACC(5); + F(Flag_H) <= '1'; + F(Flag_X) <= not ACC(3); + F(Flag_N) <= '1'; + end if; + if I_CCF = '1' then + -- CCF + F(Flag_C) <= not F(Flag_C); + F(Flag_Y) <= ACC(5); + F(Flag_H) <= F(Flag_C); + F(Flag_X) <= ACC(3); + F(Flag_N) <= '0'; + end if; + if I_SCF = '1' then + -- SCF + F(Flag_C) <= '1'; + F(Flag_Y) <= ACC(5); + F(Flag_H) <= '0'; + F(Flag_X) <= ACC(3); + F(Flag_N) <= '0'; + end if; + end if; + + if TState = 2 and Wait_n = '1' then + if ISet = "01" and MCycle = "111" then + IR <= DInst; + end if; + if JumpE = '1' then + PC <= unsigned(signed(PC) + signed(DI_Reg)); + elsif Inc_PC = '1' then + PC <= PC + 1; + end if; + if BTR_r = '1' then + PC <= PC - 2; + end if; + if RstP = '1' then + TmpAddr <= (others =>'0'); + TmpAddr(5 downto 3) <= IR(5 downto 3); + end if; + end if; + if TState = 3 and MCycle = "110" then + TmpAddr <= std_logic_vector(signed(RegBusC) + signed(DI_Reg)); + end if; + + if (TState = 2 and Wait_n = '1') or (TState = 4 and MCycle = "001") then + if IncDec_16(2 downto 0) = "111" then + if IncDec_16(3) = '1' then + SP <= SP - 1; + else + SP <= SP + 1; + end if; + end if; + end if; + + if LDSPHL = '1' then + SP <= unsigned(RegBusC); + end if; + if ExchangeAF = '1' then + Ap <= ACC; + ACC <= Ap; + Fp <= F; + F <= Fp; + end if; + if ExchangeRS = '1' then + Alternate <= not Alternate; + end if; + end if; + + if TState = 3 then + if LDZ = '1' then + TmpAddr(7 downto 0) <= DI_Reg; + end if; + if LDW = '1' then + TmpAddr(15 downto 8) <= DI_Reg; + end if; + + if Special_LD(2) = '1' then + case Special_LD(1 downto 0) is + when "00" => + ACC <= I; + F(Flag_P) <= IntE_FF2; + when "01" => + ACC <= std_logic_vector(R); + F(Flag_P) <= IntE_FF2; + when "10" => + I <= ACC; + when others => + R <= unsigned(ACC); + end case; + end if; + end if; + + if (I_DJNZ = '0' and Save_ALU_r = '1') or ALU_Op_r = "1001" then + if Mode = 3 then + F(6) <= F_Out(6); + F(5) <= F_Out(5); + F(7) <= F_Out(7); + if PreserveC_r = '0' then + F(4) <= F_Out(4); + end if; + else + F(7 downto 1) <= F_Out(7 downto 1); + if PreserveC_r = '0' then + F(Flag_C) <= F_Out(0); + end if; + end if; + end if; + if T_Res = '1' and I_INRC = '1' then + F(Flag_H) <= '0'; + F(Flag_N) <= '0'; + if DI_Reg(7 downto 0) = "00000000" then + F(Flag_Z) <= '1'; + else + F(Flag_Z) <= '0'; + end if; + F(Flag_S) <= DI_Reg(7); + F(Flag_P) <= not (DI_Reg(0) xor DI_Reg(1) xor DI_Reg(2) xor DI_Reg(3) xor + DI_Reg(4) xor DI_Reg(5) xor DI_Reg(6) xor DI_Reg(7)); + end if; + + if TState = 1 then + DO <= BusB; + if I_RLD = '1' then + DO(3 downto 0) <= BusA(3 downto 0); + DO(7 downto 4) <= BusB(3 downto 0); + end if; + if I_RRD = '1' then + DO(3 downto 0) <= BusB(7 downto 4); + DO(7 downto 4) <= BusA(3 downto 0); + end if; + end if; + + if T_Res = '1' then + Read_To_Reg_r(3 downto 0) <= Set_BusA_To; + Read_To_Reg_r(4) <= Read_To_Reg; + if Read_To_Acc = '1' then + Read_To_Reg_r(3 downto 0) <= "0111"; + Read_To_Reg_r(4) <= '1'; + end if; + end if; + + if TState = 1 and I_BT = '1' then + F(Flag_X) <= ALU_Q(3); + F(Flag_Y) <= ALU_Q(1); + F(Flag_H) <= '0'; + F(Flag_N) <= '0'; + end if; + if I_BC = '1' or I_BT = '1' then + F(Flag_P) <= IncDecZ; + end if; + + if (TState = 1 and Save_ALU_r = '0') or + (Save_ALU_r = '1' and ALU_OP_r /= "0111") then + case Read_To_Reg_r is + when "10111" => + ACC <= Save_Mux; + when "10110" => + DO <= Save_Mux; + when "11000" => + SP(7 downto 0) <= unsigned(Save_Mux); + when "11001" => + SP(15 downto 8) <= unsigned(Save_Mux); + when "11011" => + F <= Save_Mux; + when others => + end case; + if XYbit_undoc='1' then + DO <= ALU_Q; + end if; + end if; + + end if; + + end if; + + end process; + +--------------------------------------------------------------------------- +-- +-- BC('), DE('), HL('), IX and IY +-- +--------------------------------------------------------------------------- + process (CLK_n) + begin + if CLK_n'event and CLK_n = '1' then + if ClkEn = '1' then + -- Bus A / Write + RegAddrA_r <= Alternate & Set_BusA_To(2 downto 1); + if XY_Ind = '0' and XY_State /= "00" and Set_BusA_To(2 downto 1) = "10" then + RegAddrA_r <= XY_State(1) & "11"; + end if; + + -- Bus B + RegAddrB_r <= Alternate & Set_BusB_To(2 downto 1); + if XY_Ind = '0' and XY_State /= "00" and Set_BusB_To(2 downto 1) = "10" then + RegAddrB_r <= XY_State(1) & "11"; + end if; + + -- Address from register + RegAddrC <= Alternate & Set_Addr_To(1 downto 0); + -- Jump (HL), LD SP,HL + if (JumpXY = '1' or LDSPHL = '1') then + RegAddrC <= Alternate & "10"; + end if; + if ((JumpXY = '1' or LDSPHL = '1') and XY_State /= "00") or (MCycle = "110") then + RegAddrC <= XY_State(1) & "11"; + end if; + + if I_DJNZ = '1' and Save_ALU_r = '1' and Mode < 2 then + IncDecZ <= F_Out(Flag_Z); + end if; + if (TState = 2 or (TState = 3 and MCycle = "001")) and IncDec_16(2 downto 0) = "100" then + if ID16 = 0 then + IncDecZ <= '0'; + else + IncDecZ <= '1'; + end if; + end if; + + RegBusA_r <= RegBusA; + end if; + end if; + end process; + + RegAddrA <= + -- 16 bit increment/decrement + Alternate & IncDec_16(1 downto 0) when (TState = 2 or + (TState = 3 and MCycle = "001" and IncDec_16(2) = '1')) and XY_State = "00" else + XY_State(1) & "11" when (TState = 2 or + (TState = 3 and MCycle = "001" and IncDec_16(2) = '1')) and IncDec_16(1 downto 0) = "10" else + -- EX HL,DL + Alternate & "10" when ExchangeDH = '1' and TState = 3 else + Alternate & "01" when ExchangeDH = '1' and TState = 4 else + -- Bus A / Write + RegAddrA_r; + + RegAddrB <= + -- EX HL,DL + Alternate & "01" when ExchangeDH = '1' and TState = 3 else + -- Bus B + RegAddrB_r; + + ID16 <= signed(RegBusA) - 1 when IncDec_16(3) = '1' else + signed(RegBusA) + 1; + + process (Save_ALU_r, Auto_Wait_t1, ALU_OP_r, Read_To_Reg_r, + ExchangeDH, IncDec_16, MCycle, TState, Wait_n) + begin + RegWEH <= '0'; + RegWEL <= '0'; + if (TState = 1 and Save_ALU_r = '0') or + (Save_ALU_r = '1' and ALU_OP_r /= "0111") then + case Read_To_Reg_r is + when "10000" | "10001" | "10010" | "10011" | "10100" | "10101" => + RegWEH <= not Read_To_Reg_r(0); + RegWEL <= Read_To_Reg_r(0); + when others => + end case; + end if; + + if ExchangeDH = '1' and (TState = 3 or TState = 4) then + RegWEH <= '1'; + RegWEL <= '1'; + end if; + + if IncDec_16(2) = '1' and ((TState = 2 and Wait_n = '1' and MCycle /= "001") or (TState = 3 and MCycle = "001")) then + case IncDec_16(1 downto 0) is + when "00" | "01" | "10" => + RegWEH <= '1'; + RegWEL <= '1'; + when others => + end case; + end if; + end process; + + process (Save_Mux, RegBusB, RegBusA_r, ID16, + ExchangeDH, IncDec_16, MCycle, TState, Wait_n) + begin + RegDIH <= Save_Mux; + RegDIL <= Save_Mux; + + if ExchangeDH = '1' and TState = 3 then + RegDIH <= RegBusB(15 downto 8); + RegDIL <= RegBusB(7 downto 0); + end if; + if ExchangeDH = '1' and TState = 4 then + RegDIH <= RegBusA_r(15 downto 8); + RegDIL <= RegBusA_r(7 downto 0); + end if; + + if IncDec_16(2) = '1' and ((TState = 2 and MCycle /= "001") or (TState = 3 and MCycle = "001")) then + RegDIH <= std_logic_vector(ID16(15 downto 8)); + RegDIL <= std_logic_vector(ID16(7 downto 0)); + end if; + end process; + + Regs : T80_Reg + port map( + Clk => CLK_n, + CEN => ClkEn, + WEH => RegWEH, + WEL => RegWEL, + AddrA => RegAddrA, + AddrB => RegAddrB, + AddrC => RegAddrC, + DIH => RegDIH, + DIL => RegDIL, + DOAH => RegBusA(15 downto 8), + DOAL => RegBusA(7 downto 0), + DOBH => RegBusB(15 downto 8), + DOBL => RegBusB(7 downto 0), + DOCH => RegBusC(15 downto 8), + DOCL => RegBusC(7 downto 0)); + +--------------------------------------------------------------------------- +-- +-- Buses +-- +--------------------------------------------------------------------------- + process (CLK_n) + begin + if CLK_n'event and CLK_n = '1' then + if ClkEn = '1' then + case Set_BusB_To is + when "0111" => + BusB <= ACC; + when "0000" | "0001" | "0010" | "0011" | "0100" | "0101" => + if Set_BusB_To(0) = '1' then + BusB <= RegBusB(7 downto 0); + else + BusB <= RegBusB(15 downto 8); + end if; + when "0110" => + BusB <= DI_Reg; + when "1000" => + BusB <= std_logic_vector(SP(7 downto 0)); + when "1001" => + BusB <= std_logic_vector(SP(15 downto 8)); + when "1010" => + BusB <= "00000001"; + when "1011" => + BusB <= F; + when "1100" => + BusB <= std_logic_vector(PC(7 downto 0)); + when "1101" => + BusB <= std_logic_vector(PC(15 downto 8)); + when "1110" => + BusB <= "00000000"; + when others => + BusB <= "--------"; + end case; + + case Set_BusA_To is + when "0111" => + BusA <= ACC; + when "0000" | "0001" | "0010" | "0011" | "0100" | "0101" => + if Set_BusA_To(0) = '1' then + BusA <= RegBusA(7 downto 0); + else + BusA <= RegBusA(15 downto 8); + end if; + when "0110" => + BusA <= DI_Reg; + when "1000" => + BusA <= std_logic_vector(SP(7 downto 0)); + when "1001" => + BusA <= std_logic_vector(SP(15 downto 8)); + when "1010" => + BusA <= "00000000"; + when others => + BusB <= "--------"; + end case; + if XYbit_undoc='1' then + BusA <= DI_Reg; + BusB <= DI_Reg; + end if; + end if; + end if; + end process; + +--------------------------------------------------------------------------- +-- +-- Generate external control signals +-- +--------------------------------------------------------------------------- + process (RESET_n,CLK_n) + begin + if RESET_n = '0' then + RFSH_n <= '1'; + elsif CLK_n'event and CLK_n = '1' then + if CEN = '1' then + if MCycle = "001" and ((TState = 2 and Wait_n = '1') or TState = 3) then + RFSH_n <= '0'; + else + RFSH_n <= '1'; + end if; + end if; + end if; + end process; + + MC <= std_logic_vector(MCycle); + TS <= std_logic_vector(TState); + DI_Reg <= DI; + HALT_n <= not Halt_FF; + BUSAK_n <= not BusAck; + IntCycle_n <= not IntCycle; + IntE <= IntE_FF1; + IORQ <= IORQ_i; + Stop <= I_DJNZ; + +------------------------------------------------------------------------- +-- +-- Syncronise inputs +-- +------------------------------------------------------------------------- + process (RESET_n, CLK_n) + variable OldNMI_n : std_logic; + begin + if RESET_n = '0' then + BusReq_s <= '0'; + INT_s <= '0'; + NMI_s <= '0'; + OldNMI_n := '0'; + elsif CLK_n'event and CLK_n = '1' then + if CEN = '1' then + BusReq_s <= not BUSRQ_n; + INT_s <= not INT_n; + if NMICycle = '1' then + NMI_s <= '0'; + elsif NMI_n = '0' and OldNMI_n = '1' then + NMI_s <= '1'; + end if; + OldNMI_n := NMI_n; + end if; + end if; + end process; + +------------------------------------------------------------------------- +-- +-- Main state machine +-- +------------------------------------------------------------------------- + process (RESET_n, CLK_n) + begin + if RESET_n = '0' then + MCycle <= "001"; + TState <= "000"; + Pre_XY_F_M <= "000"; + Halt_FF <= '0'; + BusAck <= '0'; + NMICycle <= '0'; + IntCycle <= '0'; + IntE_FF1 <= '0'; + IntE_FF2 <= '0'; + No_BTR <= '0'; + Auto_Wait_t1 <= '0'; + Auto_Wait_t2 <= '0'; + M1_n <= '1'; + elsif CLK_n'event and CLK_n = '1' then + if CEN = '1' then + Auto_Wait_t1 <= Auto_Wait; + Auto_Wait_t2 <= Auto_Wait_t1; + No_BTR <= (I_BT and (not IR(4) or not F(Flag_P))) or + (I_BC and (not IR(4) or F(Flag_Z) or not F(Flag_P))) or + (I_BTR and (not IR(4) or F(Flag_Z))); + if TState = 2 then + if SetEI = '1' then + IntE_FF1 <= '1'; + IntE_FF2 <= '1'; + end if; + if I_RETN = '1' then + IntE_FF1 <= IntE_FF2; + end if; + end if; + if TState = 3 then + if SetDI = '1' then + IntE_FF1 <= '0'; + IntE_FF2 <= '0'; + end if; + end if; + if IntCycle = '1' or NMICycle = '1' then + Halt_FF <= '0'; + end if; + if MCycle = "001" and TState = 2 and Wait_n = '1' then + M1_n <= '1'; + end if; + if BusReq_s = '1' and BusAck = '1' then + else + BusAck <= '0'; + if TState = 2 and Wait_n = '0' then + elsif T_Res = '1' then + if Halt = '1' then + Halt_FF <= '1'; + end if; + if BusReq_s = '1' then + BusAck <= '1'; + else + TState <= "001"; + if NextIs_XY_Fetch = '1' then + MCycle <= "110"; + Pre_XY_F_M <= MCycle; + if IR = "00110110" and Mode = 0 then + Pre_XY_F_M <= "010"; + end if; + elsif (MCycle = "111") or + (MCycle = "110" and Mode = 1 and ISet /= "01") then + MCycle <= std_logic_vector(unsigned(Pre_XY_F_M) + 1); + elsif (MCycle = MCycles) or + No_BTR = '1' or + (MCycle = "010" and I_DJNZ = '1' and IncDecZ = '1') then + M1_n <= '0'; + MCycle <= "001"; + IntCycle <= '0'; + NMICycle <= '0'; + if NMI_s = '1' and Prefix = "00" then + NMICycle <= '1'; + IntE_FF1 <= '0'; + elsif (IntE_FF1 = '1' and INT_s = '1') and Prefix = "00" and SetEI = '0' then + IntCycle <= '1'; + IntE_FF1 <= '0'; + IntE_FF2 <= '0'; + end if; + else + MCycle <= std_logic_vector(unsigned(MCycle) + 1); + end if; + end if; + else + if Auto_Wait = '1' nand Auto_Wait_t2 = '0' then + + TState <= TState + 1; + end if; + end if; + end if; + if TState = 0 then + M1_n <= '0'; + end if; + end if; + end if; + end process; + + process (IntCycle, NMICycle, MCycle) + begin + Auto_Wait <= '0'; + if IntCycle = '1' or NMICycle = '1' then + if MCycle = "001" then + Auto_Wait <= '1'; + end if; + end if; + end process; + +end; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T8080se.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T8080se.vhd new file mode 100644 index 00000000..f51c885e --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T8080se.vhd @@ -0,0 +1,199 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- Ver 300 started tidyup +-- +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- $Id: T8080se.vhd 1330 2015-05-22 19:55:46Z wolfgang.scherr $ +-- +-- **** +-- +-- 8080 compatible microprocessor core, synchronous top level with clock enable +-- Different timing than the original 8080 +-- Inputs needs to be synchronous and outputs may glitch +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- MikeJ March 2005 +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- STACK status output not supported +-- +-- File history : +-- +-- 0237 : First version +-- +-- 0238 : Updated for T80 interface change +-- +-- 0240 : Updated for T80 interface change +-- +-- 0242 : Updated for T80 interface change +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; +use work.T80_Pack.all; + +entity T8080se is + generic( + Mode : integer := 2; -- 0 => Z80, 1 => Fast Z80, 2 => 8080, 3 => GB + T2Write : integer := 1 -- 0 => WR_n active in T3, /=0 => WR_n active in T2 + ); + port( + RESET_n : in std_logic; + CLK : in std_logic; + CLKEN : in std_logic; + READY : in std_logic; + HOLD : in std_logic; + INT : in std_logic; + INTE : out std_logic; + DBIN : out std_logic; + SYNC : out std_logic; + VAIT : out std_logic; + HLDA : out std_logic; + RD_n : out std_logic; + WR_n : out std_logic; + A : out std_logic_vector(15 downto 0); + DI : in std_logic_vector(7 downto 0); + DO : out std_logic_vector(7 downto 0) + ); +end T8080se; + +architecture rtl of T8080se is + + signal IntCycle_n : std_logic; + signal NoRead : std_logic; + signal Write : std_logic; + signal IORQ : std_logic; + signal INT_n : std_logic; + signal HALT_n : std_logic; + signal BUSRQ_n : std_logic; + signal BUSAK_n : std_logic; + signal DO_i : std_logic_vector(7 downto 0); + signal DI_Reg : std_logic_vector(7 downto 0); + signal MCycle : std_logic_vector(2 downto 0); + signal TState : std_logic_vector(2 downto 0); + signal One : std_logic; + +begin + + INT_n <= not INT; + BUSRQ_n <= HOLD; + HLDA <= not BUSAK_n; + SYNC <= '1' when TState = "001" else '0'; + VAIT <= '1' when TState = "010" else '0'; + One <= '1'; + + DO(0) <= not IntCycle_n when TState = "001" else DO_i(0); -- INTA + DO(1) <= Write when TState = "001" else DO_i(1); -- WO_n + DO(2) <= DO_i(2); -- STACK not supported !!!!!!!!!! + DO(3) <= not HALT_n when TState = "001" else DO_i(3); -- HLTA + DO(4) <= IORQ and Write when TState = "001" else DO_i(4); -- OUT + DO(5) <= DO_i(5) when TState /= "001" else '1' when MCycle = "001" else '0'; -- M1 + DO(6) <= IORQ and not Write when TState = "001" else DO_i(6); -- INP + DO(7) <= not IORQ and not Write and IntCycle_n when TState = "001" else DO_i(7); -- MEMR + + u0 : T80 + generic map( + Mode => Mode, + IOWait => 0) + port map( + CEN => CLKEN, + M1_n => open, + IORQ => IORQ, + NoRead => NoRead, + Write => Write, + RFSH_n => open, + HALT_n => HALT_n, + WAIT_n => READY, + INT_n => INT_n, + NMI_n => One, + RESET_n => RESET_n, + BUSRQ_n => One, + BUSAK_n => BUSAK_n, + CLK_n => CLK, + A => A, + DInst => DI, + DI => DI_Reg, + DO => DO_i, + MC => MCycle, + TS => TState, + IntCycle_n => IntCycle_n, + IntE => INTE); + + process (RESET_n, CLK) + begin + if RESET_n = '0' then + DBIN <= '0'; + RD_n <= '0'; + WR_n <= '1'; + DI_Reg <= "00000000"; + elsif CLK'event and CLK = '1' then + if CLKEN = '1' then + DBIN <= '0'; + RD_n <= '0'; + WR_n <= '1'; + if MCycle = "001" then + if TState = "001" or (TState = "010" and READY = '0') then + DBIN <= IntCycle_n; + end if; + else + if (TState = "001" or (TState = "010" and READY = '0')) and NoRead = '0' and Write = '0' then + DBIN <= '1'; + end if; + if T2Write = 0 then + if TState = "010" and Write = '1' then + WR_n <= '0'; + RD_n <= '1'; + end if; + else + if (TState = "001" or (TState = "010" and READY = '0')) and Write = '1' then + WR_n <= '0'; + RD_n <= '1'; + end if; + end if; + end if; + if TState = "010" and READY = '1' then + DI_Reg <= DI; + end if; + end if; + end if; + end process; + +end; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_ALU.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_ALU.vhd new file mode 100644 index 00000000..96e689f1 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_ALU.vhd @@ -0,0 +1,371 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- Ver 301 parity flag is just parity for 8080, also overflow for Z80, by Sean Riddle +-- Ver 300 started tidyup +-- +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- $Id: T80_ALU.vhd 1330 2015-05-22 19:55:46Z wolfgang.scherr $ +-- +-- **** +-- +-- Z80 compatible microprocessor core +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- MikeJ March 2005 +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0214 : Fixed mostly flags, only the block instructions now fail the zex regression test +-- +-- 0238 : Fixed zero flag for 16 bit SBC and ADC +-- +-- 0240 : Added GB operations +-- +-- 0242 : Cleanup +-- +-- 0247 : Cleanup +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; + +entity T80_ALU is + generic( + Mode : integer := 0; + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + Arith16 : in std_logic; + Z16 : in std_logic; + ALU_Op : in std_logic_vector(3 downto 0); + IR : in std_logic_vector(5 downto 0); + ISet : in std_logic_vector(1 downto 0); + BusA : in std_logic_vector(7 downto 0); + BusB : in std_logic_vector(7 downto 0); + F_In : in std_logic_vector(7 downto 0); + Q : out std_logic_vector(7 downto 0); + F_Out : out std_logic_vector(7 downto 0) + ); +end T80_ALU; + +architecture rtl of T80_ALU is + + procedure AddSub(A : std_logic_vector; + B : std_logic_vector; + Sub : std_logic; + Carry_In : std_logic; + signal Res : out std_logic_vector; + signal Carry : out std_logic) is + + variable B_i : unsigned(A'length - 1 downto 0); + variable Res_i : unsigned(A'length + 1 downto 0); + begin + if Sub = '1' then + B_i := not unsigned(B); + else + B_i := unsigned(B); + end if; + + Res_i := unsigned("0" & A & Carry_In) + unsigned("0" & B_i & "1"); + Carry <= Res_i(A'length + 1); + Res <= std_logic_vector(Res_i(A'length downto 1)); + end; + + -- AddSub variables (temporary signals) + signal UseCarry : std_logic; + signal Carry7_v : std_logic; + signal Overflow_v : std_logic; + signal HalfCarry_v : std_logic; + signal Carry_v : std_logic; + signal Q_v : std_logic_vector(7 downto 0); + + signal BitMask : std_logic_vector(7 downto 0); + +begin + + with IR(5 downto 3) select BitMask <= "00000001" when "000", + "00000010" when "001", + "00000100" when "010", + "00001000" when "011", + "00010000" when "100", + "00100000" when "101", + "01000000" when "110", + "10000000" when others; + + UseCarry <= not ALU_Op(2) and ALU_Op(0); + AddSub(BusA(3 downto 0), BusB(3 downto 0), ALU_Op(1), ALU_Op(1) xor (UseCarry and F_In(Flag_C)), Q_v(3 downto 0), HalfCarry_v); + AddSub(BusA(6 downto 4), BusB(6 downto 4), ALU_Op(1), HalfCarry_v, Q_v(6 downto 4), Carry7_v); + AddSub(BusA(7 downto 7), BusB(7 downto 7), ALU_Op(1), Carry7_v, Q_v(7 downto 7), Carry_v); + + -- bug fix - parity flag is just parity for 8080, also overflow for Z80 + process (Carry_v, Carry7_v, Q_v) + begin + if(Mode=2) then + OverFlow_v <= not (Q_v(0) xor Q_v(1) xor Q_v(2) xor Q_v(3) xor + Q_v(4) xor Q_v(5) xor Q_v(6) xor Q_v(7)); else + OverFlow_v <= Carry_v xor Carry7_v; + end if; + end process; + + process (Arith16, ALU_OP, F_In, BusA, BusB, IR, Q_v, Carry_v, HalfCarry_v, OverFlow_v, BitMask, ISet, Z16) + variable Q_t : std_logic_vector(7 downto 0); + variable DAA_Q : unsigned(8 downto 0); + begin + Q_t := "--------"; + F_Out <= F_In; + DAA_Q := "---------"; + case ALU_Op is + when "0000" | "0001" | "0010" | "0011" | "0100" | "0101" | "0110" | "0111" => + F_Out(Flag_N) <= '0'; + F_Out(Flag_C) <= '0'; + case ALU_OP(2 downto 0) is + when "000" | "001" => -- ADD, ADC + Q_t := Q_v; + F_Out(Flag_C) <= Carry_v; + F_Out(Flag_H) <= HalfCarry_v; + F_Out(Flag_P) <= OverFlow_v; + when "010" | "011" | "111" => -- SUB, SBC, CP + Q_t := Q_v; + F_Out(Flag_N) <= '1'; + F_Out(Flag_C) <= not Carry_v; + F_Out(Flag_H) <= not HalfCarry_v; + F_Out(Flag_P) <= OverFlow_v; + when "100" => -- AND + Q_t(7 downto 0) := BusA and BusB; + F_Out(Flag_H) <= '1'; + when "101" => -- XOR + Q_t(7 downto 0) := BusA xor BusB; + F_Out(Flag_H) <= '0'; + when others => -- OR "110" + Q_t(7 downto 0) := BusA or BusB; + F_Out(Flag_H) <= '0'; + end case; + if ALU_Op(2 downto 0) = "111" then -- CP + F_Out(Flag_X) <= BusB(3); + F_Out(Flag_Y) <= BusB(5); + else + F_Out(Flag_X) <= Q_t(3); + F_Out(Flag_Y) <= Q_t(5); + end if; + if Q_t(7 downto 0) = "00000000" then + F_Out(Flag_Z) <= '1'; + if Z16 = '1' then + F_Out(Flag_Z) <= F_In(Flag_Z); -- 16 bit ADC,SBC + end if; + else + F_Out(Flag_Z) <= '0'; + end if; + F_Out(Flag_S) <= Q_t(7); + case ALU_Op(2 downto 0) is + when "000" | "001" | "010" | "011" | "111" => -- ADD, ADC, SUB, SBC, CP + when others => + F_Out(Flag_P) <= not (Q_t(0) xor Q_t(1) xor Q_t(2) xor Q_t(3) xor + Q_t(4) xor Q_t(5) xor Q_t(6) xor Q_t(7)); + end case; + if Arith16 = '1' then + F_Out(Flag_S) <= F_In(Flag_S); + F_Out(Flag_Z) <= F_In(Flag_Z); + F_Out(Flag_P) <= F_In(Flag_P); + end if; + when "1100" => + -- DAA + F_Out(Flag_H) <= F_In(Flag_H); + F_Out(Flag_C) <= F_In(Flag_C); + DAA_Q(7 downto 0) := unsigned(BusA); + DAA_Q(8) := '0'; + if F_In(Flag_N) = '0' then + -- After addition + -- Alow > 9 or H = 1 + if DAA_Q(3 downto 0) > 9 or F_In(Flag_H) = '1' then + if (DAA_Q(3 downto 0) > 9) then + F_Out(Flag_H) <= '1'; + else + F_Out(Flag_H) <= '0'; + end if; + DAA_Q := DAA_Q + 6; + end if; + -- new Ahigh > 9 or C = 1 + if DAA_Q(8 downto 4) > 9 or F_In(Flag_C) = '1' then + DAA_Q := DAA_Q + 96; -- 0x60 + end if; + else + -- After subtraction + if DAA_Q(3 downto 0) > 9 or F_In(Flag_H) = '1' then + if DAA_Q(3 downto 0) > 5 then + F_Out(Flag_H) <= '0'; + end if; + DAA_Q(7 downto 0) := DAA_Q(7 downto 0) - 6; + end if; + if unsigned(BusA) > 153 or F_In(Flag_C) = '1' then + DAA_Q := DAA_Q - 352; -- 0x160 + end if; + end if; + F_Out(Flag_X) <= DAA_Q(3); + F_Out(Flag_Y) <= DAA_Q(5); + F_Out(Flag_C) <= F_In(Flag_C) or DAA_Q(8); + Q_t := std_logic_vector(DAA_Q(7 downto 0)); + if DAA_Q(7 downto 0) = "00000000" then + F_Out(Flag_Z) <= '1'; + else + F_Out(Flag_Z) <= '0'; + end if; + F_Out(Flag_S) <= DAA_Q(7); + F_Out(Flag_P) <= not (DAA_Q(0) xor DAA_Q(1) xor DAA_Q(2) xor DAA_Q(3) xor + DAA_Q(4) xor DAA_Q(5) xor DAA_Q(6) xor DAA_Q(7)); + when "1101" | "1110" => + -- RLD, RRD + Q_t(7 downto 4) := BusA(7 downto 4); + if ALU_Op(0) = '1' then + Q_t(3 downto 0) := BusB(7 downto 4); + else + Q_t(3 downto 0) := BusB(3 downto 0); + end if; + F_Out(Flag_H) <= '0'; + F_Out(Flag_N) <= '0'; + F_Out(Flag_X) <= Q_t(3); + F_Out(Flag_Y) <= Q_t(5); + if Q_t(7 downto 0) = "00000000" then + F_Out(Flag_Z) <= '1'; + else + F_Out(Flag_Z) <= '0'; + end if; + F_Out(Flag_S) <= Q_t(7); + F_Out(Flag_P) <= not (Q_t(0) xor Q_t(1) xor Q_t(2) xor Q_t(3) xor + Q_t(4) xor Q_t(5) xor Q_t(6) xor Q_t(7)); + when "1001" => + -- BIT + Q_t(7 downto 0) := BusB and BitMask; + F_Out(Flag_S) <= Q_t(7); + if Q_t(7 downto 0) = "00000000" then + F_Out(Flag_Z) <= '1'; + F_Out(Flag_P) <= '1'; + else + F_Out(Flag_Z) <= '0'; + F_Out(Flag_P) <= '0'; + end if; + F_Out(Flag_H) <= '1'; + F_Out(Flag_N) <= '0'; + F_Out(Flag_X) <= '0'; + F_Out(Flag_Y) <= '0'; + if IR(2 downto 0) /= "110" then + F_Out(Flag_X) <= BusB(3); + F_Out(Flag_Y) <= BusB(5); + end if; + when "1010" => + -- SET + Q_t(7 downto 0) := BusB or BitMask; + when "1011" => + -- RES + Q_t(7 downto 0) := BusB and not BitMask; + when "1000" => + -- ROT + case IR(5 downto 3) is + when "000" => -- RLC + Q_t(7 downto 1) := BusA(6 downto 0); + Q_t(0) := BusA(7); + F_Out(Flag_C) <= BusA(7); + when "010" => -- RL + Q_t(7 downto 1) := BusA(6 downto 0); + Q_t(0) := F_In(Flag_C); + F_Out(Flag_C) <= BusA(7); + when "001" => -- RRC + Q_t(6 downto 0) := BusA(7 downto 1); + Q_t(7) := BusA(0); + F_Out(Flag_C) <= BusA(0); + when "011" => -- RR + Q_t(6 downto 0) := BusA(7 downto 1); + Q_t(7) := F_In(Flag_C); + F_Out(Flag_C) <= BusA(0); + when "100" => -- SLA + Q_t(7 downto 1) := BusA(6 downto 0); + Q_t(0) := '0'; + F_Out(Flag_C) <= BusA(7); + when "110" => -- SLL (Undocumented) / SWAP + if Mode = 3 then + Q_t(7 downto 4) := BusA(3 downto 0); + Q_t(3 downto 0) := BusA(7 downto 4); + F_Out(Flag_C) <= '0'; + else + Q_t(7 downto 1) := BusA(6 downto 0); + Q_t(0) := '1'; + F_Out(Flag_C) <= BusA(7); + end if; + when "101" => -- SRA + Q_t(6 downto 0) := BusA(7 downto 1); + Q_t(7) := BusA(7); + F_Out(Flag_C) <= BusA(0); + when others => -- SRL + Q_t(6 downto 0) := BusA(7 downto 1); + Q_t(7) := '0'; + F_Out(Flag_C) <= BusA(0); + end case; + F_Out(Flag_H) <= '0'; + F_Out(Flag_N) <= '0'; + F_Out(Flag_X) <= Q_t(3); + F_Out(Flag_Y) <= Q_t(5); + F_Out(Flag_S) <= Q_t(7); + if Q_t(7 downto 0) = "00000000" then + F_Out(Flag_Z) <= '1'; + else + F_Out(Flag_Z) <= '0'; + end if; + F_Out(Flag_P) <= not (Q_t(0) xor Q_t(1) xor Q_t(2) xor Q_t(3) xor + Q_t(4) xor Q_t(5) xor Q_t(6) xor Q_t(7)); + if ISet = "00" then + F_Out(Flag_P) <= F_In(Flag_P); + F_Out(Flag_S) <= F_In(Flag_S); + F_Out(Flag_Z) <= F_In(Flag_Z); + end if; + when others => + null; + end case; + Q <= Q_t; + end process; +end; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_MCode.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_MCode.vhd new file mode 100644 index 00000000..6fc66bc1 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_MCode.vhd @@ -0,0 +1,2030 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- Ver 304 synthesis/simulation fixes +-- Ver 303 add undocumented DDCB and FDCB opcodes by TobiFlex 20.04.2010 +-- Ver 302 fixed IO cycle timing, tested thanks to Alessandro. +-- Ver 300 started tidyup +-- +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- $Id: T80_MCode.vhd 1330 2015-05-22 19:55:46Z wolfgang.scherr $ +-- +-- **** +-- +-- Z80 compatible microprocessor core +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- MikeJ March 2005 +-- Wolfgang Scherr 2011-2015 (email: WoS pin4 at) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0208 : First complete release +-- +-- 0211 : Fixed IM 1 +-- +-- 0214 : Fixed mostly flags, only the block instructions now fail the zex regression test +-- +-- 0235 : Added IM 2 fix by Mike Johnson +-- +-- 0238 : Added NoRead signal +-- +-- 0238b: Fixed instruction timing for POP and DJNZ +-- +-- 0240 : Added (IX/IY+d) states, removed op-codes from mode 2 and added all remaining mode 3 op-codes + +-- 0240mj1 fix for HL inc/dec for INI, IND, INIR, INDR, OUTI, OUTD, OTIR, OTDR +-- +-- 0242 : Fixed I/O instruction timing, cleanup +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; +use work.T80_Pack.all; + +entity T80_MCode is + generic( + Mode : integer := 0; + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + IR : in std_logic_vector(7 downto 0); + ISet : in std_logic_vector(1 downto 0); + MCycle : in std_logic_vector(2 downto 0); + F : in std_logic_vector(7 downto 0); + NMICycle : in std_logic; + IntCycle : in std_logic; + XY_State : in std_logic_vector(1 downto 0); + MCycles : out std_logic_vector(2 downto 0); + TStates : out std_logic_vector(2 downto 0); + Prefix : out std_logic_vector(1 downto 0); -- None,CB,ED,DD/FD + Inc_PC : out std_logic; + Inc_WZ : out std_logic; + IncDec_16 : out std_logic_vector(3 downto 0); -- BC,DE,HL,SP 0 is inc + Read_To_Reg : out std_logic; + Read_To_Acc : out std_logic; + Set_BusA_To : out std_logic_vector(3 downto 0); -- B,C,D,E,H,L,DI/DB,A,SP(L),SP(M),0,F + Set_BusB_To : out std_logic_vector(3 downto 0); -- B,C,D,E,H,L,DI,A,SP(L),SP(M),1,F,PC(L),PC(M),0 + ALU_Op : out std_logic_vector(3 downto 0); + -- ADD, ADC, SUB, SBC, AND, XOR, OR, CP, ROT, BIT, SET, RES, DAA, RLD, RRD, None + Save_ALU : out std_logic; + PreserveC : out std_logic; + Arith16 : out std_logic; + Set_Addr_To : out std_logic_vector(2 downto 0); -- aNone,aXY,aIOA,aSP,aBC,aDE,aZI + IORQ : out std_logic; + Jump : out std_logic; + JumpE : out std_logic; + JumpXY : out std_logic; + Call : out std_logic; + RstP : out std_logic; + LDZ : out std_logic; + LDW : out std_logic; + LDSPHL : out std_logic; + Special_LD : out std_logic_vector(2 downto 0); -- A,I;A,R;I,A;R,A;None + ExchangeDH : out std_logic; + ExchangeRp : out std_logic; + ExchangeAF : out std_logic; + ExchangeRS : out std_logic; + I_DJNZ : out std_logic; + I_CPL : out std_logic; + I_CCF : out std_logic; + I_SCF : out std_logic; + I_RETN : out std_logic; + I_BT : out std_logic; + I_BC : out std_logic; + I_BTR : out std_logic; + I_RLD : out std_logic; + I_RRD : out std_logic; + I_INRC : out std_logic; + SetDI : out std_logic; + SetEI : out std_logic; + IMode : out std_logic_vector(1 downto 0); + Halt : out std_logic; + NoRead : out std_logic; + Write : out std_logic; + XYbit_undoc : out std_logic + ); +end T80_MCode; + +architecture rtl of T80_MCode is + + constant aNone : std_logic_vector(2 downto 0) := "111"; + constant aBC : std_logic_vector(2 downto 0) := "000"; + constant aDE : std_logic_vector(2 downto 0) := "001"; + constant aXY : std_logic_vector(2 downto 0) := "010"; + constant aIOA : std_logic_vector(2 downto 0) := "100"; + constant aSP : std_logic_vector(2 downto 0) := "101"; + constant aZI : std_logic_vector(2 downto 0) := "110"; + + function is_cc_true( + F : std_logic_vector(7 downto 0); + cc : bit_vector(2 downto 0) + ) return boolean is + begin + if Mode = 3 then + case cc is + when "000" => return F(7) = '0'; -- NZ + when "001" => return F(7) = '1'; -- Z + when "010" => return F(4) = '0'; -- NC + when "011" => return F(4) = '1'; -- C + when "100" => return false; + when "101" => return false; + when "110" => return false; + when "111" => return false; + end case; + else + case cc is + when "000" => return F(6) = '0'; -- NZ + when "001" => return F(6) = '1'; -- Z + when "010" => return F(0) = '0'; -- NC + when "011" => return F(0) = '1'; -- C + when "100" => return F(2) = '0'; -- PO + when "101" => return F(2) = '1'; -- PE + when "110" => return F(7) = '0'; -- P + when "111" => return F(7) = '1'; -- M + end case; + end if; + end; + +begin + + process (IR, ISet, MCycle, F, NMICycle, IntCycle, XY_State) + variable DDD : std_logic_vector(2 downto 0); + variable SSS : std_logic_vector(2 downto 0); + variable DPair : std_logic_vector(1 downto 0); + variable IRB : bit_vector(7 downto 0); + begin + DDD := IR(5 downto 3); + SSS := IR(2 downto 0); + DPair := IR(5 downto 4); + IRB := to_bitvector(IR); + + MCycles <= "001"; + if MCycle = "001" then + TStates <= "100"; + else + TStates <= "011"; + end if; + Prefix <= "00"; + Inc_PC <= '0'; + Inc_WZ <= '0'; + IncDec_16 <= "0000"; + Read_To_Acc <= '0'; + Read_To_Reg <= '0'; + Set_BusB_To <= "0000"; + Set_BusA_To <= "0000"; + ALU_Op <= "0" & IR(5 downto 3); + Save_ALU <= '0'; + PreserveC <= '0'; + Arith16 <= '0'; + IORQ <= '0'; + Set_Addr_To <= aNone; + Jump <= '0'; + JumpE <= '0'; + JumpXY <= '0'; + Call <= '0'; + RstP <= '0'; + LDZ <= '0'; + LDW <= '0'; + LDSPHL <= '0'; + Special_LD <= "000"; + ExchangeDH <= '0'; + ExchangeRp <= '0'; + ExchangeAF <= '0'; + ExchangeRS <= '0'; + I_DJNZ <= '0'; + I_CPL <= '0'; + I_CCF <= '0'; + I_SCF <= '0'; + I_RETN <= '0'; + I_BT <= '0'; + I_BC <= '0'; + I_BTR <= '0'; + I_RLD <= '0'; + I_RRD <= '0'; + I_INRC <= '0'; + SetDI <= '0'; + SetEI <= '0'; + IMode <= "11"; + Halt <= '0'; + NoRead <= '0'; + Write <= '0'; + XYbit_undoc <= '0'; + + case ISet is + when "00" => + +------------------------------------------------------------------------------ +-- +-- Unprefixed instructions +-- +------------------------------------------------------------------------------ + + case IRB is +-- 8 BIT LOAD GROUP + when "01000000"|"01000001"|"01000010"|"01000011"|"01000100"|"01000101"|"01000111" + |"01001000"|"01001001"|"01001010"|"01001011"|"01001100"|"01001101"|"01001111" + |"01010000"|"01010001"|"01010010"|"01010011"|"01010100"|"01010101"|"01010111" + |"01011000"|"01011001"|"01011010"|"01011011"|"01011100"|"01011101"|"01011111" + |"01100000"|"01100001"|"01100010"|"01100011"|"01100100"|"01100101"|"01100111" + |"01101000"|"01101001"|"01101010"|"01101011"|"01101100"|"01101101"|"01101111" + |"01111000"|"01111001"|"01111010"|"01111011"|"01111100"|"01111101"|"01111111" => + -- LD r,r' + Set_BusB_To(2 downto 0) <= SSS; + ExchangeRp <= '1'; + Set_BusA_To(2 downto 0) <= DDD; + Read_To_Reg <= '1'; + when "00000110"|"00001110"|"00010110"|"00011110"|"00100110"|"00101110"|"00111110" => + -- LD r,n + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_BusA_To(2 downto 0) <= DDD; + Read_To_Reg <= '1'; + when others => null; + end case; + when "01000110"|"01001110"|"01010110"|"01011110"|"01100110"|"01101110"|"01111110" => + -- LD r,(HL) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + Set_BusA_To(2 downto 0) <= DDD; + Read_To_Reg <= '1'; + when others => null; + end case; + when "01110000"|"01110001"|"01110010"|"01110011"|"01110100"|"01110101"|"01110111" => + -- LD (HL),r + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusB_To(3) <= '0'; + when 2 => + Write <= '1'; + when others => null; + end case; + when "00110110" => + -- LD (HL),n + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_Addr_To <= aXY; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusB_To(3) <= '0'; + when 3 => + Write <= '1'; + when others => null; + end case; + when "00001010" => + -- LD A,(BC) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + when 2 => + Read_To_Acc <= '1'; + when others => null; + end case; + when "00011010" => + -- LD A,(DE) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aDE; + when 2 => + Read_To_Acc <= '1'; + when others => null; + end case; + when "00111010" => + if Mode = 3 then + -- LDD A,(HL) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + Read_To_Acc <= '1'; + IncDec_16 <= "1110"; + when others => null; + end case; + else + -- LD A,(nn) + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + when 4 => + Read_To_Acc <= '1'; + when others => null; + end case; + end if; + when "00000010" => + -- LD (BC),A + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + Set_BusB_To <= "0111"; + when 2 => + Write <= '1'; + when others => null; + end case; + when "00010010" => + -- LD (DE),A + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aDE; + Set_BusB_To <= "0111"; + when 2 => + Write <= '1'; + when others => null; + end case; + when "00110010" => + if Mode = 3 then + -- LDD (HL),A + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + Set_BusB_To <= "0111"; + when 2 => + Write <= '1'; + IncDec_16 <= "1110"; + when others => null; + end case; + else + -- LD (nn),A + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + Set_BusB_To <= "0111"; + when 4 => + Write <= '1'; + when others => null; + end case; + end if; + +-- 16 BIT LOAD GROUP + when "00000001"|"00010001"|"00100001"|"00110001" => + -- LD dd,nn + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Read_To_Reg <= '1'; + if DPAIR = "11" then + Set_BusA_To(3 downto 0) <= "1000"; + else + Set_BusA_To(2 downto 1) <= DPAIR; + Set_BusA_To(0) <= '1'; + end if; + when 3 => + Inc_PC <= '1'; + Read_To_Reg <= '1'; + if DPAIR = "11" then + Set_BusA_To(3 downto 0) <= "1001"; + else + Set_BusA_To(2 downto 1) <= DPAIR; + Set_BusA_To(0) <= '0'; + end if; + when others => null; + end case; + when "00101010" => + if Mode = 3 then + -- LDI A,(HL) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + Read_To_Acc <= '1'; + IncDec_16 <= "0110"; + when others => null; + end case; + else + -- LD HL,(nn) + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + when 4 => + Set_BusA_To(2 downto 0) <= "101"; -- L + Read_To_Reg <= '1'; + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + when 5 => + Set_BusA_To(2 downto 0) <= "100"; -- H + Read_To_Reg <= '1'; + when others => null; + end case; + end if; + when "00100010" => + if Mode = 3 then + -- LDI (HL),A + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + Set_BusB_To <= "0111"; + when 2 => + Write <= '1'; + IncDec_16 <= "0110"; + when others => null; + end case; + else + -- LD (nn),HL + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + Set_BusB_To <= "0101"; -- L + when 4 => + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + Write <= '1'; + Set_BusB_To <= "0100"; -- H + when 5 => + Write <= '1'; + when others => null; + end case; + end if; + when "11111001" => + -- LD SP,HL + TStates <= "110"; + LDSPHL <= '1'; + when "11000101"|"11010101"|"11100101"|"11110101" => + -- PUSH qq + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + IncDec_16 <= "1111"; + Set_Addr_TO <= aSP; + if DPAIR = "11" then + Set_BusB_To <= "0111"; + else + Set_BusB_To(2 downto 1) <= DPAIR; + Set_BusB_To(0) <= '0'; + Set_BusB_To(3) <= '0'; + end if; + when 2 => + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + if DPAIR = "11" then + Set_BusB_To <= "1011"; + else + Set_BusB_To(2 downto 1) <= DPAIR; + Set_BusB_To(0) <= '1'; + Set_BusB_To(3) <= '0'; + end if; + Write <= '1'; + when 3 => + Write <= '1'; + when others => null; + end case; + when "11000001"|"11010001"|"11100001"|"11110001" => + -- POP qq + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aSP; + when 2 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + Read_To_Reg <= '1'; + if DPAIR = "11" then + Set_BusA_To(3 downto 0) <= "1011"; + else + Set_BusA_To(2 downto 1) <= DPAIR; + Set_BusA_To(0) <= '1'; + end if; + when 3 => + IncDec_16 <= "0111"; + Read_To_Reg <= '1'; + if DPAIR = "11" then + Set_BusA_To(3 downto 0) <= "0111"; + else + Set_BusA_To(2 downto 1) <= DPAIR; + Set_BusA_To(0) <= '0'; + end if; + when others => null; + end case; + +-- EXCHANGE, BLOCK TRANSFER AND SEARCH GROUP + when "11101011" => + if Mode /= 3 then + -- EX DE,HL + ExchangeDH <= '1'; + end if; + when "00001000" => + if Mode = 3 then + -- LD (nn),SP + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + Set_BusB_To <= "1000"; + when 4 => + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + Write <= '1'; + Set_BusB_To <= "1001"; + when 5 => + Write <= '1'; + when others => null; + end case; + elsif Mode < 2 then + -- EX AF,AF' + ExchangeAF <= '1'; + end if; + when "11011001" => + if Mode = 3 then + -- RETI + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_TO <= aSP; + when 2 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + LDZ <= '1'; + when 3 => + Jump <= '1'; + IncDec_16 <= "0111"; + I_RETN <= '1'; + SetEI <= '1'; + when others => null; + end case; + elsif Mode < 2 then + -- EXX + ExchangeRS <= '1'; + end if; + when "11100011" => + if Mode /= 3 then + -- EX (SP),HL + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aSP; + when 2 => + Read_To_Reg <= '1'; + Set_BusA_To <= "0101"; + Set_BusB_To <= "0101"; + Set_Addr_To <= aSP; + when 3 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + TStates <= "100"; + Write <= '1'; + when 4 => + Read_To_Reg <= '1'; + Set_BusA_To <= "0100"; + Set_BusB_To <= "0100"; + Set_Addr_To <= aSP; + when 5 => + IncDec_16 <= "1111"; + TStates <= "101"; + Write <= '1'; + when others => null; + end case; + end if; + +-- 8 BIT ARITHMETIC AND LOGICAL GROUP + when "10000000"|"10000001"|"10000010"|"10000011"|"10000100"|"10000101"|"10000111" + |"10001000"|"10001001"|"10001010"|"10001011"|"10001100"|"10001101"|"10001111" + |"10010000"|"10010001"|"10010010"|"10010011"|"10010100"|"10010101"|"10010111" + |"10011000"|"10011001"|"10011010"|"10011011"|"10011100"|"10011101"|"10011111" + |"10100000"|"10100001"|"10100010"|"10100011"|"10100100"|"10100101"|"10100111" + |"10101000"|"10101001"|"10101010"|"10101011"|"10101100"|"10101101"|"10101111" + |"10110000"|"10110001"|"10110010"|"10110011"|"10110100"|"10110101"|"10110111" + |"10111000"|"10111001"|"10111010"|"10111011"|"10111100"|"10111101"|"10111111" => + -- ADD A,r + -- ADC A,r + -- SUB A,r + -- SBC A,r + -- AND A,r + -- OR A,r + -- XOR A,r + -- CP A,r + Set_BusB_To(2 downto 0) <= SSS; + Set_BusA_To(2 downto 0) <= "111"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + when "10000110"|"10001110"|"10010110"|"10011110"|"10100110"|"10101110"|"10110110"|"10111110" => + -- ADD A,(HL) + -- ADC A,(HL) + -- SUB A,(HL) + -- SBC A,(HL) + -- AND A,(HL) + -- OR A,(HL) + -- XOR A,(HL) + -- CP A,(HL) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusA_To(2 downto 0) <= "111"; + when others => null; + end case; + when "11000110"|"11001110"|"11010110"|"11011110"|"11100110"|"11101110"|"11110110"|"11111110" => + -- ADD A,n + -- ADC A,n + -- SUB A,n + -- SBC A,n + -- AND A,n + -- OR A,n + -- XOR A,n + -- CP A,n + MCycles <= "010"; + if MCycle = "010" then + Inc_PC <= '1'; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusA_To(2 downto 0) <= "111"; + end if; + when "00000100"|"00001100"|"00010100"|"00011100"|"00100100"|"00101100"|"00111100" => + -- INC r + Set_BusB_To <= "1010"; + Set_BusA_To(2 downto 0) <= DDD; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + PreserveC <= '1'; + ALU_Op <= "0000"; + when "00110100" => + -- INC (HL) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + TStates <= "100"; + Set_Addr_To <= aXY; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + PreserveC <= '1'; + ALU_Op <= "0000"; + Set_BusB_To <= "1010"; + Set_BusA_To(2 downto 0) <= DDD; + when 3 => + Write <= '1'; + when others => null; + end case; + when "00000101"|"00001101"|"00010101"|"00011101"|"00100101"|"00101101"|"00111101" => + -- DEC r + Set_BusB_To <= "1010"; + Set_BusA_To(2 downto 0) <= DDD; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + PreserveC <= '1'; + ALU_Op <= "0010"; + when "00110101" => + -- DEC (HL) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + TStates <= "100"; + Set_Addr_To <= aXY; + ALU_Op <= "0010"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + PreserveC <= '1'; + Set_BusB_To <= "1010"; + Set_BusA_To(2 downto 0) <= DDD; + when 3 => + Write <= '1'; + when others => null; + end case; + +-- GENERAL PURPOSE ARITHMETIC AND CPU CONTROL GROUPS + when "00100111" => + -- DAA + Set_BusA_To(2 downto 0) <= "111"; + Read_To_Reg <= '1'; + ALU_Op <= "1100"; + Save_ALU <= '1'; + when "00101111" => + -- CPL + I_CPL <= '1'; + when "00111111" => + -- CCF + I_CCF <= '1'; + when "00110111" => + -- SCF + I_SCF <= '1'; + when "00000000" => + if NMICycle = '1' then + -- NMI + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1101"; + when 2 => + TStates <= "100"; + Write <= '1'; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1100"; + when 3 => + TStates <= "100"; + Write <= '1'; + when others => null; + end case; + elsif IntCycle = '1' then + -- INT (IM 2) + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 1 => + LDZ <= '1'; + TStates <= "101"; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1101"; + when 2 => + TStates <= "100"; + Write <= '1'; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1100"; + when 3 => + TStates <= "100"; + Write <= '1'; + when 4 => + Inc_PC <= '1'; + LDZ <= '1'; + when 5 => + Jump <= '1'; + when others => null; + end case; + else + -- NOP + end if; + when "01110110" => + -- HALT + Halt <= '1'; + when "11110011" => + -- DI + SetDI <= '1'; + when "11111011" => + -- EI + SetEI <= '1'; + +-- 16 BIT ARITHMETIC GROUP + when "00001001"|"00011001"|"00101001"|"00111001" => + -- ADD HL,ss + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + NoRead <= '1'; + ALU_Op <= "0000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusA_To(2 downto 0) <= "101"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '1'; + when others => + Set_BusB_To <= "1000"; + end case; + TStates <= "100"; + Arith16 <= '1'; + when 3 => + NoRead <= '1'; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0001"; + Set_BusA_To(2 downto 0) <= "100"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + when others => + Set_BusB_To <= "1001"; + end case; + Arith16 <= '1'; + when others => + end case; + when "00000011"|"00010011"|"00100011"|"00110011" => + -- INC ss + TStates <= "110"; + IncDec_16(3 downto 2) <= "01"; + IncDec_16(1 downto 0) <= DPair; + when "00001011"|"00011011"|"00101011"|"00111011" => + -- DEC ss + TStates <= "110"; + IncDec_16(3 downto 2) <= "11"; + IncDec_16(1 downto 0) <= DPair; + +-- ROTATE AND SHIFT GROUP + when "00000111" + -- RLCA + |"00010111" + -- RLA + |"00001111" + -- RRCA + |"00011111" => + -- RRA + Set_BusA_To(2 downto 0) <= "111"; + ALU_Op <= "1000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + +-- JUMP GROUP + when "11000011" => + -- JP nn + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Inc_PC <= '1'; + Jump <= '1'; + when others => null; + end case; + when "11000010"|"11001010"|"11010010"|"11011010"|"11100010"|"11101010"|"11110010"|"11111010" => + if IR(5) = '1' and Mode = 3 then + case IRB(4 downto 3) is + when "00" => + -- LD ($FF00+C),A + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + Set_BusB_To <= "0111"; + when 2 => + Write <= '1'; + IORQ <= '1'; + when others => + end case; + when "01" => + -- LD (nn),A + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + Set_BusB_To <= "0111"; + when 4 => + Write <= '1'; + when others => null; + end case; + when "10" => + -- LD A,($FF00+C) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + when 2 => + Read_To_Acc <= '1'; + IORQ <= '1'; + when others => + end case; + when "11" => + -- LD A,(nn) + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + when 4 => + Read_To_Acc <= '1'; + when others => null; + end case; + end case; + else + -- JP cc,nn + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Inc_PC <= '1'; + if is_cc_true(F, to_bitvector(IR(5 downto 3))) then + Jump <= '1'; + end if; + when others => null; + end case; + end if; + when "00011000" => + if Mode /= 2 then + -- JR e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + when "00111000" => + if Mode /= 2 then + -- JR C,e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + if F(Flag_C) = '0' then + MCycles <= "010"; + end if; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + when "00110000" => + if Mode /= 2 then + -- JR NC,e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + if F(Flag_C) = '1' then + MCycles <= "010"; + end if; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + when "00101000" => + if Mode /= 2 then + -- JR Z,e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + if F(Flag_Z) = '0' then + MCycles <= "010"; + end if; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + when "00100000" => + if Mode /= 2 then + -- JR NZ,e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + if F(Flag_Z) = '1' then + MCycles <= "010"; + end if; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + when "11101001" => + -- JP (HL) + JumpXY <= '1'; + when "00010000" => + if Mode = 3 then + I_DJNZ <= '1'; + elsif Mode < 2 then + -- DJNZ,e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + I_DJNZ <= '1'; + Set_BusB_To <= "1010"; + Set_BusA_To(2 downto 0) <= "000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0010"; + when 2 => + I_DJNZ <= '1'; + Inc_PC <= '1'; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + +-- CALL AND RETURN GROUP + when "11001101" => + -- CALL nn + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + IncDec_16 <= "1111"; + Inc_PC <= '1'; + TStates <= "100"; + Set_Addr_To <= aSP; + LDW <= '1'; + Set_BusB_To <= "1101"; + when 4 => + Write <= '1'; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1100"; + when 5 => + Write <= '1'; + Call <= '1'; + when others => null; + end case; + when "11000100"|"11001100"|"11010100"|"11011100"|"11100100"|"11101100"|"11110100"|"11111100" => + if IR(5) = '0' or Mode /= 3 then + -- CALL cc,nn + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Inc_PC <= '1'; + LDW <= '1'; + if is_cc_true(F, to_bitvector(IR(5 downto 3))) then + IncDec_16 <= "1111"; + Set_Addr_TO <= aSP; + TStates <= "100"; + Set_BusB_To <= "1101"; + else + MCycles <= "011"; + end if; + when 4 => + Write <= '1'; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1100"; + when 5 => + Write <= '1'; + Call <= '1'; + when others => null; + end case; + end if; + when "11001001" => + -- RET + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_TO <= aSP; + when 2 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + LDZ <= '1'; + when 3 => + Jump <= '1'; + IncDec_16 <= "0111"; + when others => null; + end case; + when "11000000"|"11001000"|"11010000"|"11011000"|"11100000"|"11101000"|"11110000"|"11111000" => + if IR(5) = '1' and Mode = 3 then + case IRB(4 downto 3) is + when "00" => + -- LD ($FF00+nn),A + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_Addr_To <= aIOA; + Set_BusB_To <= "0111"; + when 3 => + Write <= '1'; + when others => null; + end case; + when "01" => + -- ADD SP,n + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + ALU_Op <= "0000"; + Inc_PC <= '1'; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusA_To <= "1000"; + Set_BusB_To <= "0110"; + when 3 => + NoRead <= '1'; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0001"; + Set_BusA_To <= "1001"; + Set_BusB_To <= "1110"; -- Incorrect unsigned !!!!!!!!!!!!!!!!!!!!! + when others => + end case; + when "10" => + -- LD A,($FF00+nn) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_Addr_To <= aIOA; + when 3 => + Read_To_Acc <= '1'; + when others => null; + end case; + when "11" => + -- LD HL,SP+n -- Not correct !!!!!!!!!!!!!!!!!!! + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + when 4 => + Set_BusA_To(2 downto 0) <= "101"; -- L + Read_To_Reg <= '1'; + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + when 5 => + Set_BusA_To(2 downto 0) <= "100"; -- H + Read_To_Reg <= '1'; + when others => null; + end case; + end case; + else + -- RET cc + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + if is_cc_true(F, to_bitvector(IR(5 downto 3))) then + Set_Addr_TO <= aSP; + else + MCycles <= "001"; + end if; + TStates <= "101"; + when 2 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + LDZ <= '1'; + when 3 => + Jump <= '1'; + IncDec_16 <= "0111"; + when others => null; + end case; + end if; + when "11000111"|"11001111"|"11010111"|"11011111"|"11100111"|"11101111"|"11110111"|"11111111" => + -- RST p + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1101"; + when 2 => + Write <= '1'; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1100"; + when 3 => + Write <= '1'; + RstP <= '1'; + when others => null; + end case; + +-- INPUT AND OUTPUT GROUP + when "11011011" => + if Mode /= 3 then + -- IN A,(n) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_Addr_To <= aIOA; + when 3 => + Read_To_Acc <= '1'; + IORQ <= '1'; + TStates <= "100"; -- MIKEJ should be 4 for IO cycle + when others => null; + end case; + end if; + when "11010011" => + if Mode /= 3 then + -- OUT (n),A + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_Addr_To <= aIOA; + Set_BusB_To <= "0111"; + when 3 => + Write <= '1'; + IORQ <= '1'; + TStates <= "100"; -- MIKEJ should be 4 for IO cycle + when others => null; + end case; + end if; + +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ +-- MULTIBYTE INSTRUCTIONS +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ + + when "11001011" => + if Mode /= 2 then + Prefix <= "01"; + end if; + + when "11101101" => + if Mode < 2 then + Prefix <= "10"; + end if; + + when "11011101"|"11111101" => + if Mode < 2 then + Prefix <= "11"; + end if; + + end case; + + when "01" => + +------------------------------------------------------------------------------ +-- +-- CB prefixed instructions +-- +------------------------------------------------------------------------------ + + Set_BusA_To(2 downto 0) <= IR(2 downto 0); + Set_BusB_To(2 downto 0) <= IR(2 downto 0); + + case IRB is + when "00000000"|"00000001"|"00000010"|"00000011"|"00000100"|"00000101"|"00000111" + |"00010000"|"00010001"|"00010010"|"00010011"|"00010100"|"00010101"|"00010111" + |"00001000"|"00001001"|"00001010"|"00001011"|"00001100"|"00001101"|"00001111" + |"00011000"|"00011001"|"00011010"|"00011011"|"00011100"|"00011101"|"00011111" + |"00100000"|"00100001"|"00100010"|"00100011"|"00100100"|"00100101"|"00100111" + |"00101000"|"00101001"|"00101010"|"00101011"|"00101100"|"00101101"|"00101111" + |"00110000"|"00110001"|"00110010"|"00110011"|"00110100"|"00110101"|"00110111" + |"00111000"|"00111001"|"00111010"|"00111011"|"00111100"|"00111101"|"00111111" => + -- RLC r + -- RL r + -- RRC r + -- RR r + -- SLA r + -- SRA r + -- SRL r + -- SLL r (Undocumented) / SWAP r + if XY_State="00" then + if MCycle = "001" then + ALU_Op <= "1000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + end if; + else + -- R/S (IX+d),Reg, undocumented + MCycles <= "011"; + XYbit_undoc <= '1'; + case to_integer(unsigned(MCycle)) is + when 1 | 7=> + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_Addr_To <= aXY; + TStates <= "100"; + when 3 => + Write <= '1'; + when others => null; + end case; + end if; + + + when "00000110"|"00010110"|"00001110"|"00011110"|"00101110"|"00111110"|"00100110"|"00110110" => + -- RLC (HL) + -- RL (HL) + -- RRC (HL) + -- RR (HL) + -- SRA (HL) + -- SRL (HL) + -- SLA (HL) + -- SLL (HL) (Undocumented) / SWAP (HL) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 | 7 => + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_Addr_To <= aXY; + TStates <= "100"; + when 3 => + Write <= '1'; + when others => + end case; + when "01000000"|"01000001"|"01000010"|"01000011"|"01000100"|"01000101"|"01000111" + |"01001000"|"01001001"|"01001010"|"01001011"|"01001100"|"01001101"|"01001111" + |"01010000"|"01010001"|"01010010"|"01010011"|"01010100"|"01010101"|"01010111" + |"01011000"|"01011001"|"01011010"|"01011011"|"01011100"|"01011101"|"01011111" + |"01100000"|"01100001"|"01100010"|"01100011"|"01100100"|"01100101"|"01100111" + |"01101000"|"01101001"|"01101010"|"01101011"|"01101100"|"01101101"|"01101111" + |"01110000"|"01110001"|"01110010"|"01110011"|"01110100"|"01110101"|"01110111" + |"01111000"|"01111001"|"01111010"|"01111011"|"01111100"|"01111101"|"01111111" => + -- BIT b,r + if XY_State="00" then + if MCycle = "001" then + Set_BusB_To(2 downto 0) <= IR(2 downto 0); + ALU_Op <= "1001"; + end if; + else + -- BIT b,(IX+d), undocumented + MCycles <= "010"; + XYbit_undoc <= '1'; + case to_integer(unsigned(MCycle)) is + when 1 | 7=> + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1001"; + TStates <= "100"; + when others => null; + end case; + end if; + when "01000110"|"01001110"|"01010110"|"01011110"|"01100110"|"01101110"|"01110110"|"01111110" => + -- BIT b,(HL) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 | 7=> + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1001"; + TStates <= "100"; + when others => null; + end case; + when "11000000"|"11000001"|"11000010"|"11000011"|"11000100"|"11000101"|"11000111" + |"11001000"|"11001001"|"11001010"|"11001011"|"11001100"|"11001101"|"11001111" + |"11010000"|"11010001"|"11010010"|"11010011"|"11010100"|"11010101"|"11010111" + |"11011000"|"11011001"|"11011010"|"11011011"|"11011100"|"11011101"|"11011111" + |"11100000"|"11100001"|"11100010"|"11100011"|"11100100"|"11100101"|"11100111" + |"11101000"|"11101001"|"11101010"|"11101011"|"11101100"|"11101101"|"11101111" + |"11110000"|"11110001"|"11110010"|"11110011"|"11110100"|"11110101"|"11110111" + |"11111000"|"11111001"|"11111010"|"11111011"|"11111100"|"11111101"|"11111111" => + -- SET b,r + if XY_State="00" then + if MCycle = "001" then + ALU_Op <= "1010"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + end if; + else + -- SET b,(IX+d),Reg, undocumented + MCycles <= "011"; + XYbit_undoc <= '1'; + case to_integer(unsigned(MCycle)) is + when 1 | 7=> + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1010"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_Addr_To <= aXY; + TStates <= "100"; + when 3 => + Write <= '1'; + when others => null; + end case; + end if; + when "11000110"|"11001110"|"11010110"|"11011110"|"11100110"|"11101110"|"11110110"|"11111110" => + -- SET b,(HL) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 | 7=> + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1010"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_Addr_To <= aXY; + TStates <= "100"; + when 3 => + Write <= '1'; + when others => null; + end case; + when "10000000"|"10000001"|"10000010"|"10000011"|"10000100"|"10000101"|"10000111" + |"10001000"|"10001001"|"10001010"|"10001011"|"10001100"|"10001101"|"10001111" + |"10010000"|"10010001"|"10010010"|"10010011"|"10010100"|"10010101"|"10010111" + |"10011000"|"10011001"|"10011010"|"10011011"|"10011100"|"10011101"|"10011111" + |"10100000"|"10100001"|"10100010"|"10100011"|"10100100"|"10100101"|"10100111" + |"10101000"|"10101001"|"10101010"|"10101011"|"10101100"|"10101101"|"10101111" + |"10110000"|"10110001"|"10110010"|"10110011"|"10110100"|"10110101"|"10110111" + |"10111000"|"10111001"|"10111010"|"10111011"|"10111100"|"10111101"|"10111111" => + -- RES b,r + if XY_State="00" then + if MCycle = "001" then + ALU_Op <= "1011"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + end if; + else + -- RES b,(IX+d),Reg, undocumented + MCycles <= "011"; + XYbit_undoc <= '1'; + case to_integer(unsigned(MCycle)) is + when 1 | 7=> + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1011"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_Addr_To <= aXY; + TStates <= "100"; + when 3 => + Write <= '1'; + when others => null; + end case; + end if; + + when "10000110"|"10001110"|"10010110"|"10011110"|"10100110"|"10101110"|"10110110"|"10111110" => + -- RES b,(HL) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 | 7 => + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1011"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_Addr_To <= aXY; + TStates <= "100"; + when 3 => + Write <= '1'; + when others => null; + end case; + end case; + + when others => + +------------------------------------------------------------------------------ +-- +-- ED prefixed instructions +-- +------------------------------------------------------------------------------ + + case IRB is + when "00000000"|"00000001"|"00000010"|"00000011"|"00000100"|"00000101"|"00000110"|"00000111" + |"00001000"|"00001001"|"00001010"|"00001011"|"00001100"|"00001101"|"00001110"|"00001111" + |"00010000"|"00010001"|"00010010"|"00010011"|"00010100"|"00010101"|"00010110"|"00010111" + |"00011000"|"00011001"|"00011010"|"00011011"|"00011100"|"00011101"|"00011110"|"00011111" + |"00100000"|"00100001"|"00100010"|"00100011"|"00100100"|"00100101"|"00100110"|"00100111" + |"00101000"|"00101001"|"00101010"|"00101011"|"00101100"|"00101101"|"00101110"|"00101111" + |"00110000"|"00110001"|"00110010"|"00110011"|"00110100"|"00110101"|"00110110"|"00110111" + |"00111000"|"00111001"|"00111010"|"00111011"|"00111100"|"00111101"|"00111110"|"00111111" + + + |"10000000"|"10000001"|"10000010"|"10000011"|"10000100"|"10000101"|"10000110"|"10000111" + |"10001000"|"10001001"|"10001010"|"10001011"|"10001100"|"10001101"|"10001110"|"10001111" + |"10010000"|"10010001"|"10010010"|"10010011"|"10010100"|"10010101"|"10010110"|"10010111" + |"10011000"|"10011001"|"10011010"|"10011011"|"10011100"|"10011101"|"10011110"|"10011111" + | "10100100"|"10100101"|"10100110"|"10100111" + | "10101100"|"10101101"|"10101110"|"10101111" + | "10110100"|"10110101"|"10110110"|"10110111" + | "10111100"|"10111101"|"10111110"|"10111111" + |"11000000"|"11000001"|"11000010"|"11000011"|"11000100"|"11000101"|"11000110"|"11000111" + |"11001000"|"11001001"|"11001010"|"11001011"|"11001100"|"11001101"|"11001110"|"11001111" + |"11010000"|"11010001"|"11010010"|"11010011"|"11010100"|"11010101"|"11010110"|"11010111" + |"11011000"|"11011001"|"11011010"|"11011011"|"11011100"|"11011101"|"11011110"|"11011111" + |"11100000"|"11100001"|"11100010"|"11100011"|"11100100"|"11100101"|"11100110"|"11100111" + |"11101000"|"11101001"|"11101010"|"11101011"|"11101100"|"11101101"|"11101110"|"11101111" + |"11110000"|"11110001"|"11110010"|"11110011"|"11110100"|"11110101"|"11110110"|"11110111" + |"11111000"|"11111001"|"11111010"|"11111011"|"11111100"|"11111101"|"11111110"|"11111111" => + null; -- NOP, undocumented + when "01111110"|"01111111" => + -- NOP, undocumented + null; +-- 8 BIT LOAD GROUP + when "01010111" => + -- LD A,I + Special_LD <= "100"; + TStates <= "101"; + when "01011111" => + -- LD A,R + Special_LD <= "101"; + TStates <= "101"; + when "01000111" => + -- LD I,A + Special_LD <= "110"; + TStates <= "101"; + when "01001111" => + -- LD R,A + Special_LD <= "111"; + TStates <= "101"; +-- 16 BIT LOAD GROUP + when "01001011"|"01011011"|"01101011"|"01111011" => + -- LD dd,(nn) + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + when 4 => + Read_To_Reg <= '1'; + if IR(5 downto 4) = "11" then + Set_BusA_To <= "1000"; + else + Set_BusA_To(2 downto 1) <= IR(5 downto 4); + Set_BusA_To(0) <= '1'; + end if; + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + when 5 => + Read_To_Reg <= '1'; + if IR(5 downto 4) = "11" then + Set_BusA_To <= "1001"; + else + Set_BusA_To(2 downto 1) <= IR(5 downto 4); + Set_BusA_To(0) <= '0'; + end if; + when others => null; + end case; + when "01000011"|"01010011"|"01100011"|"01110011" => + -- LD (nn),dd + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + if IR(5 downto 4) = "11" then + Set_BusB_To <= "1000"; + else + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '1'; + Set_BusB_To(3) <= '0'; + end if; + when 4 => + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + Write <= '1'; + if IR(5 downto 4) = "11" then + Set_BusB_To <= "1001"; + else + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '0'; + Set_BusB_To(3) <= '0'; + end if; + when 5 => + Write <= '1'; + when others => null; + end case; + when "10100000" | "10101000" | "10110000" | "10111000" => + -- LDI, LDD, LDIR, LDDR + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + IncDec_16 <= "1100"; -- BC + when 2 => + Set_BusB_To <= "0110"; + Set_BusA_To(2 downto 0) <= "111"; + ALU_Op <= "0000"; + Set_Addr_To <= aDE; + if IR(3) = '0' then + IncDec_16 <= "0110"; -- IX + else + IncDec_16 <= "1110"; + end if; + when 3 => + I_BT <= '1'; + TStates <= "101"; + Write <= '1'; + if IR(3) = '0' then + IncDec_16 <= "0101"; -- DE + else + IncDec_16 <= "1101"; + end if; + when 4 => + NoRead <= '1'; + TStates <= "101"; + when others => null; + end case; + when "10100001" | "10101001" | "10110001" | "10111001" => + -- CPI, CPD, CPIR, CPDR + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + IncDec_16 <= "1100"; -- BC + when 2 => + Set_BusB_To <= "0110"; + Set_BusA_To(2 downto 0) <= "111"; + ALU_Op <= "0111"; + Save_ALU <= '1'; + PreserveC <= '1'; + if IR(3) = '0' then + IncDec_16 <= "0110"; + else + IncDec_16 <= "1110"; + end if; + when 3 => + NoRead <= '1'; + I_BC <= '1'; + TStates <= "101"; + when 4 => + NoRead <= '1'; + TStates <= "101"; + when others => null; + end case; + when "01000100"|"01001100"|"01010100"|"01011100"|"01100100"|"01101100"|"01110100"|"01111100" => + -- NEG + Alu_OP <= "0010"; + Set_BusB_To <= "0111"; + Set_BusA_To <= "1010"; + Read_To_Acc <= '1'; + Save_ALU <= '1'; + when "01000110"|"01001110"|"01100110"|"01101110" => + -- IM 0 + IMode <= "00"; + when "01010110"|"01110110" => + -- IM 1 + IMode <= "01"; + when "01011110"|"01110111" => + -- IM 2 + IMode <= "10"; +-- 16 bit arithmetic + when "01001010"|"01011010"|"01101010"|"01111010" => + -- ADC HL,ss + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + NoRead <= '1'; + ALU_Op <= "0001"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusA_To(2 downto 0) <= "101"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '1'; + when others => + Set_BusB_To <= "1000"; + end case; + TStates <= "100"; + when 3 => + NoRead <= '1'; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0001"; + Set_BusA_To(2 downto 0) <= "100"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '0'; + when others => + Set_BusB_To <= "1001"; + end case; + when others => + end case; + when "01000010"|"01010010"|"01100010"|"01110010" => + -- SBC HL,ss + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + NoRead <= '1'; + ALU_Op <= "0011"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusA_To(2 downto 0) <= "101"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '1'; + when others => + Set_BusB_To <= "1000"; + end case; + TStates <= "100"; + when 3 => + NoRead <= '1'; + ALU_Op <= "0011"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusA_To(2 downto 0) <= "100"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + when others => + Set_BusB_To <= "1001"; + end case; + when others => + end case; + when "01101111" => + -- RLD + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + NoRead <= '1'; + Set_Addr_To <= aXY; + when 3 => + Read_To_Reg <= '1'; + Set_BusB_To(2 downto 0) <= "110"; + Set_BusA_To(2 downto 0) <= "111"; + ALU_Op <= "1101"; + TStates <= "100"; + Set_Addr_To <= aXY; + Save_ALU <= '1'; + when 4 => + I_RLD <= '1'; + Write <= '1'; + when others => + end case; + when "01100111" => + -- RRD + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + Set_Addr_To <= aXY; + when 3 => + Read_To_Reg <= '1'; + Set_BusB_To(2 downto 0) <= "110"; + Set_BusA_To(2 downto 0) <= "111"; + ALU_Op <= "1110"; + TStates <= "100"; + Set_Addr_To <= aXY; + Save_ALU <= '1'; + when 4 => + I_RRD <= '1'; + Write <= '1'; + when others => + end case; + when "01000101"|"01001101"|"01010101"|"01011101"|"01100101"|"01101101"|"01110101"|"01111101" => + -- RETI, RETN + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_TO <= aSP; + when 2 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + LDZ <= '1'; + when 3 => + Jump <= '1'; + IncDec_16 <= "0111"; + I_RETN <= '1'; + when others => null; + end case; + when "01000000"|"01001000"|"01010000"|"01011000"|"01100000"|"01101000"|"01110000"|"01111000" => + -- IN r,(C) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + when 2 => + TStates <= "100"; -- MIKEJ should be 4 for IO cycle + IORQ <= '1'; + if IR(5 downto 3) /= "110" then + Read_To_Reg <= '1'; + Set_BusA_To(2 downto 0) <= IR(5 downto 3); + end if; + I_INRC <= '1'; + when others => + end case; + when "01000001"|"01001001"|"01010001"|"01011001"|"01100001"|"01101001"|"01110001"|"01111001" => + -- OUT (C),r + -- OUT (C),0 + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + Set_BusB_To(2 downto 0) <= IR(5 downto 3); + if IR(5 downto 3) = "110" then + Set_BusB_To(3) <= '1'; + end if; + when 2 => + TStates <= "100"; -- MIKEJ should be 4 for IO cycle + Write <= '1'; + IORQ <= '1'; + when others => + end case; + when "10100010" | "10101010" | "10110010" | "10111010" => + -- INI, IND, INIR, INDR + -- note B is decremented AFTER being put on the bus + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + Set_BusB_To <= "1010"; + Set_BusA_To <= "0000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0010"; + when 2 => + TStates <= "100"; -- MIKEJ should be 4 for IO cycle + IORQ <= '1'; + Set_BusB_To <= "0110"; + Set_Addr_To <= aXY; + when 3 => + if IR(3) = '0' then + --IncDec_16 <= "0010"; + IncDec_16 <= "0110"; + else + --IncDec_16 <= "1010"; + IncDec_16 <= "1110"; + end if; + TStates <= "100"; + Write <= '1'; + I_BTR <= '1'; + when 4 => + NoRead <= '1'; + TStates <= "101"; + when others => null; + end case; + when "10100011" | "10101011" | "10110011" | "10111011" => + -- OUTI, OUTD, OTIR, OTDR + -- note B is decremented BEFORE being put on the bus. + -- mikej fix for hl inc + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + Set_Addr_To <= aXY; + Set_BusB_To <= "1010"; + Set_BusA_To <= "0000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0010"; + when 2 => + Set_BusB_To <= "0110"; + Set_Addr_To <= aBC; + when 3 => + if IR(3) = '0' then + IncDec_16 <= "0110"; -- mikej + else + IncDec_16 <= "1110"; -- mikej + end if; + TStates <= "100"; -- MIKEJ should be 4 for IO cycle + IORQ <= '1'; + Write <= '1'; + I_BTR <= '1'; + when 4 => + NoRead <= '1'; + TStates <= "101"; + when others => null; + end case; + end case; + + end case; + + if Mode = 1 then + if MCycle = "001" then +-- TStates <= "100"; + else + TStates <= "011"; + end if; + end if; + + if Mode = 3 then + if MCycle = "001" then +-- TStates <= "100"; + else + TStates <= "100"; + end if; + end if; + + if Mode < 2 then + if MCycle = "110" then + Inc_PC <= '1'; + if Mode = 1 then + Set_Addr_To <= aXY; + TStates <= "100"; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusB_To(3) <= '0'; + end if; + if IRB = "00110110" or IRB = "11001011" then + Set_Addr_To <= aNone; + end if; + end if; + if MCycle = "111" then + if Mode = 0 then + TStates <= "101"; + end if; + if ISet /= "01" then + Set_Addr_To <= aXY; + end if; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusB_To(3) <= '0'; + if IRB = "00110110" or ISet = "01" then + -- LD (HL),n + Inc_PC <= '1'; + else + NoRead <= '1'; + end if; + end if; + end if; + + end process; + +end; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_Pack.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_Pack.vhd new file mode 100644 index 00000000..b1de7a83 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_Pack.vhd @@ -0,0 +1,220 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- Ver 303 add undocumented DDCB and FDCB opcodes by TobiFlex 20.04.2010 +-- Ver 300 started tidyup +-- +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- $Id: T80_Pack.vhd 1330 2015-05-22 19:55:46Z wolfgang.scherr $ +-- +-- **** +-- +-- Z80 compatible microprocessor core +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- MikeJ March 2005 +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- + +library IEEE; +use IEEE.std_logic_1164.all; + +package T80_Pack is + + component T80 + generic( + Mode : integer := 0; -- 0 => Z80, 1 => Fast Z80, 2 => 8080, 3 => GB + IOWait : integer := 0; -- 1 => Single cycle I/O, 1 => Std I/O cycle + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + RESET_n : in std_logic; + CLK_n : in std_logic; + CEN : in std_logic; + WAIT_n : in std_logic; + INT_n : in std_logic; + NMI_n : in std_logic; + BUSRQ_n : in std_logic; + M1_n : out std_logic; + IORQ : out std_logic; + NoRead : out std_logic; + Write : out std_logic; + RFSH_n : out std_logic; + HALT_n : out std_logic; + BUSAK_n : out std_logic; + A : out std_logic_vector(15 downto 0); + DInst : in std_logic_vector(7 downto 0); + DI : in std_logic_vector(7 downto 0); + DO : out std_logic_vector(7 downto 0); + MC : out std_logic_vector(2 downto 0); + TS : out std_logic_vector(2 downto 0); + IntCycle_n : out std_logic; + IntE : out std_logic; + Stop : out std_logic + ); + end component; + + component T80_Reg + port( + Clk : in std_logic; + CEN : in std_logic; + WEH : in std_logic; + WEL : in std_logic; + AddrA : in std_logic_vector(2 downto 0); + AddrB : in std_logic_vector(2 downto 0); + AddrC : in std_logic_vector(2 downto 0); + DIH : in std_logic_vector(7 downto 0); + DIL : in std_logic_vector(7 downto 0); + DOAH : out std_logic_vector(7 downto 0); + DOAL : out std_logic_vector(7 downto 0); + DOBH : out std_logic_vector(7 downto 0); + DOBL : out std_logic_vector(7 downto 0); + DOCH : out std_logic_vector(7 downto 0); + DOCL : out std_logic_vector(7 downto 0) + ); + end component; + + component T80_MCode + generic( + Mode : integer := 0; + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + IR : in std_logic_vector(7 downto 0); + ISet : in std_logic_vector(1 downto 0); + MCycle : in std_logic_vector(2 downto 0); + F : in std_logic_vector(7 downto 0); + NMICycle : in std_logic; + IntCycle : in std_logic; + XY_State : in std_logic_vector(1 downto 0); + MCycles : out std_logic_vector(2 downto 0); + TStates : out std_logic_vector(2 downto 0); + Prefix : out std_logic_vector(1 downto 0); -- None,BC,ED,DD/FD + Inc_PC : out std_logic; + Inc_WZ : out std_logic; + IncDec_16 : out std_logic_vector(3 downto 0); -- BC,DE,HL,SP 0 is inc + Read_To_Reg : out std_logic; + Read_To_Acc : out std_logic; + Set_BusA_To : out std_logic_vector(3 downto 0); -- B,C,D,E,H,L,DI/DB,A,SP(L),SP(M),0,F + Set_BusB_To : out std_logic_vector(3 downto 0); -- B,C,D,E,H,L,DI,A,SP(L),SP(M),1,F,PC(L),PC(M),0 + ALU_Op : out std_logic_vector(3 downto 0); + -- ADD, ADC, SUB, SBC, AND, XOR, OR, CP, ROT, BIT, SET, RES, DAA, RLD, RRD, None + Save_ALU : out std_logic; + PreserveC : out std_logic; + Arith16 : out std_logic; + Set_Addr_To : out std_logic_vector(2 downto 0); -- aNone,aXY,aIOA,aSP,aBC,aDE,aZI + IORQ : out std_logic; + Jump : out std_logic; + JumpE : out std_logic; + JumpXY : out std_logic; + Call : out std_logic; + RstP : out std_logic; + LDZ : out std_logic; + LDW : out std_logic; + LDSPHL : out std_logic; + Special_LD : out std_logic_vector(2 downto 0); -- A,I;A,R;I,A;R,A;None + ExchangeDH : out std_logic; + ExchangeRp : out std_logic; + ExchangeAF : out std_logic; + ExchangeRS : out std_logic; + I_DJNZ : out std_logic; + I_CPL : out std_logic; + I_CCF : out std_logic; + I_SCF : out std_logic; + I_RETN : out std_logic; + I_BT : out std_logic; + I_BC : out std_logic; + I_BTR : out std_logic; + I_RLD : out std_logic; + I_RRD : out std_logic; + I_INRC : out std_logic; + SetDI : out std_logic; + SetEI : out std_logic; + IMode : out std_logic_vector(1 downto 0); + Halt : out std_logic; + NoRead : out std_logic; + Write : out std_logic; + XYbit_undoc : out std_logic + ); + end component; + + component T80_ALU + generic( + Mode : integer := 0; + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + Arith16 : in std_logic; + Z16 : in std_logic; + ALU_Op : in std_logic_vector(3 downto 0); + IR : in std_logic_vector(5 downto 0); + ISet : in std_logic_vector(1 downto 0); + BusA : in std_logic_vector(7 downto 0); + BusB : in std_logic_vector(7 downto 0); + F_In : in std_logic_vector(7 downto 0); + Q : out std_logic_vector(7 downto 0); + F_Out : out std_logic_vector(7 downto 0) + ); + end component; + +end; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_Reg.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_Reg.vhd new file mode 100644 index 00000000..61626b59 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80_Reg.vhd @@ -0,0 +1,116 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- Ver 304 init values of registers on first startup (better simulation) +-- Ver 300 started tidyup +-- +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- $Id: T80_Reg.vhd 1330 2015-05-22 19:55:46Z wolfgang.scherr $ +-- +-- **** +-- +-- T80 Registers, technology independent +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- MikeJ March 2005 +-- Wolfgang Scherr 2011-2015 (email: WoS pin4 at) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t51/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0242 : Initial release +-- +-- 0244 : Changed to single register file +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; + +entity T80_Reg is + port( + Clk : in std_logic; + CEN : in std_logic; + WEH : in std_logic; + WEL : in std_logic; + AddrA : in std_logic_vector(2 downto 0); + AddrB : in std_logic_vector(2 downto 0); + AddrC : in std_logic_vector(2 downto 0); + DIH : in std_logic_vector(7 downto 0); + DIL : in std_logic_vector(7 downto 0); + DOAH : out std_logic_vector(7 downto 0); + DOAL : out std_logic_vector(7 downto 0); + DOBH : out std_logic_vector(7 downto 0); + DOBL : out std_logic_vector(7 downto 0); + DOCH : out std_logic_vector(7 downto 0); + DOCL : out std_logic_vector(7 downto 0) + ); +end T80_Reg; + +architecture rtl of T80_Reg is + + type Register_Image is array (natural range <>) of std_logic_vector(7 downto 0); + signal RegsH : Register_Image(0 to 7) := (others => (others => '0')); + signal RegsL : Register_Image(0 to 7) := (others => (others => '0')); + +begin + + process (Clk) + begin + if Clk'event and Clk = '1' then + if CEN = '1' then + if WEH = '1' then + RegsH(to_integer(unsigned(AddrA))) <= DIH; + end if; + if WEL = '1' then + RegsL(to_integer(unsigned(AddrA))) <= DIL; + end if; + end if; + end if; + end process; + + DOAH <= RegsH(to_integer(unsigned(AddrA))); + DOAL <= RegsL(to_integer(unsigned(AddrA))); + DOBH <= RegsH(to_integer(unsigned(AddrB))); + DOBL <= RegsL(to_integer(unsigned(AddrB))); + DOCH <= RegsH(to_integer(unsigned(AddrC))); + DOCL <= RegsL(to_integer(unsigned(AddrC))); + +end; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80a.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80a.vhd new file mode 100644 index 00000000..11396dbc --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80a.vhd @@ -0,0 +1,262 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- Ver 300 started tidyup +-- +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- $Id: T80a.vhd 1330 2015-05-22 19:55:46Z wolfgang.scherr $ +-- +-- **** +-- +-- Z80 compatible microprocessor core, asynchronous top level +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- MikeJ March 2005 +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0208 : First complete release +-- +-- 0211 : Fixed interrupt cycle +-- +-- 0235 : Updated for T80 interface change +-- +-- 0238 : Updated for T80 interface change +-- +-- 0240 : Updated for T80 interface change +-- +-- 0242 : Updated for T80 interface change +-- +-- 0247 : Fixed bus req/ack cycle +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; +use work.T80_Pack.all; + +entity T80a is + generic( + Mode : integer := 0 -- 0 => Z80, 1 => Fast Z80, 2 => 8080, 3 => GB + ); + port( + RESET_n : in std_logic; + CLK_n : in std_logic; + WAIT_n : in std_logic; + INT_n : in std_logic; + NMI_n : in std_logic; + BUSRQ_n : in std_logic; + M1_n : out std_logic; + MREQ_n : out std_logic; + IORQ_n : out std_logic; + RD_n : out std_logic; + WR_n : out std_logic; + RFSH_n : out std_logic; + HALT_n : out std_logic; + BUSAK_n : out std_logic; + A : out std_logic_vector(15 downto 0); + D : inout std_logic_vector(7 downto 0) + ); +end T80a; + +architecture rtl of T80a is + + signal CEN : std_logic; + signal Reset_s : std_logic; + signal IntCycle_n : std_logic; + signal IORQ : std_logic; + signal NoRead : std_logic; + signal Write : std_logic; + signal MREQ : std_logic; + signal MReq_Inhibit : std_logic; + signal Req_Inhibit : std_logic; + signal RD : std_logic; + signal MREQ_n_i : std_logic; + signal IORQ_n_i : std_logic; + signal RD_n_i : std_logic; + signal WR_n_i : std_logic; + signal RFSH_n_i : std_logic; + signal BUSAK_n_i : std_logic; + signal A_i : std_logic_vector(15 downto 0); + signal DO : std_logic_vector(7 downto 0); + signal DI_Reg : std_logic_vector (7 downto 0); -- Input synchroniser + signal Wait_s : std_logic; + signal MCycle : std_logic_vector(2 downto 0); + signal TState : std_logic_vector(2 downto 0); + +begin + + CEN <= '1'; + + BUSAK_n <= BUSAK_n_i; + MREQ_n_i <= not MREQ or (Req_Inhibit and MReq_Inhibit); + RD_n_i <= not RD or Req_Inhibit; + + MREQ_n <= MREQ_n_i when BUSAK_n_i = '1' else 'Z'; + IORQ_n <= IORQ_n_i when BUSAK_n_i = '1' else 'Z'; + RD_n <= RD_n_i when BUSAK_n_i = '1' else 'Z'; + WR_n <= WR_n_i when BUSAK_n_i = '1' else 'Z'; + RFSH_n <= RFSH_n_i when BUSAK_n_i = '1' else 'Z'; + A <= A_i when BUSAK_n_i = '1' else (others => 'Z'); + D <= DO when Write = '1' and BUSAK_n_i = '1' else (others => 'Z'); + + process (RESET_n, CLK_n) + begin + if RESET_n = '0' then + Reset_s <= '0'; + elsif CLK_n'event and CLK_n = '1' then + Reset_s <= '1'; + end if; + end process; + + u0 : T80 + generic map( + Mode => Mode, + IOWait => 1) + port map( + CEN => CEN, + M1_n => M1_n, + IORQ => IORQ, + NoRead => NoRead, + Write => Write, + RFSH_n => RFSH_n_i, + HALT_n => HALT_n, + WAIT_n => Wait_s, + INT_n => INT_n, + NMI_n => NMI_n, + RESET_n => Reset_s, + BUSRQ_n => BUSRQ_n, + BUSAK_n => BUSAK_n_i, + CLK_n => CLK_n, + A => A_i, + DInst => D, + DI => DI_Reg, + DO => DO, + MC => MCycle, + TS => TState, + IntCycle_n => IntCycle_n); + + process (CLK_n) + begin + if CLK_n'event and CLK_n = '0' then + Wait_s <= WAIT_n; + if TState = "011" and BUSAK_n_i = '1' then + DI_Reg <= to_x01(D); + end if; + end if; + end process; + + process (Reset_s,CLK_n) + begin + if Reset_s = '0' then + WR_n_i <= '1'; + elsif CLK_n'event and CLK_n = '1' then + WR_n_i <= '1'; + if TState = "001" then -- To short for IO writes !!!!!!!!!!!!!!!!!!! + WR_n_i <= not Write; + end if; + end if; + end process; + + process (Reset_s,CLK_n) + begin + if Reset_s = '0' then + Req_Inhibit <= '0'; + elsif CLK_n'event and CLK_n = '1' then + if MCycle = "001" and TState = "010" then + Req_Inhibit <= '1'; + else + Req_Inhibit <= '0'; + end if; + end if; + end process; + + process (Reset_s,CLK_n) + begin + if Reset_s = '0' then + MReq_Inhibit <= '0'; + elsif CLK_n'event and CLK_n = '0' then + if MCycle = "001" and TState = "010" then + MReq_Inhibit <= '1'; + else + MReq_Inhibit <= '0'; + end if; + end if; + end process; + + process(Reset_s,CLK_n) + begin + if Reset_s = '0' then + RD <= '0'; + IORQ_n_i <= '1'; + MREQ <= '0'; + elsif CLK_n'event and CLK_n = '0' then + + if MCycle = "001" then + if TState = "001" then + RD <= IntCycle_n; + MREQ <= IntCycle_n; + IORQ_n_i <= IntCycle_n; + end if; + if TState = "011" then + RD <= '0'; + IORQ_n_i <= '1'; + MREQ <= '1'; + end if; + if TState = "100" then + MREQ <= '0'; + end if; + else + if TState = "001" and NoRead = '0' then + RD <= not Write; + IORQ_n_i <= not IORQ; + MREQ <= not IORQ; + end if; + if TState = "011" then + RD <= '0'; + IORQ_n_i <= '1'; + MREQ <= '0'; + end if; + end if; + end if; + end process; + +end; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80se.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80se.vhd new file mode 100644 index 00000000..5240e62b --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80se.vhd @@ -0,0 +1,193 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- +-- Ver 300 started tidyup +-- +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- $Id: T80se.vhd 1330 2015-05-22 19:55:46Z wolfgang.scherr $ +-- +-- **** +-- +-- Z80 compatible microprocessor core, synchronous top level with clock enable +-- Different timing than the original z80 +-- Inputs needs to be synchronous and outputs may glitch +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- MikeJ March 2005 +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0235 : First release +-- +-- 0236 : Added T2Write generic +-- +-- 0237 : Fixed T2Write with wait state +-- +-- 0238 : Updated for T80 interface change +-- +-- 0240 : Updated for T80 interface change +-- +-- 0242 : Updated for T80 interface change +-- +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; +use work.T80_Pack.all; + +entity T80se is + generic( + Mode : integer := 0; -- 0 => Z80, 1 => Fast Z80, 2 => 8080, 3 => GB + T2Write : integer := 0; -- 0 => WR_n active in T3, /=0 => WR_n active in T2 + IOWait : integer := 1 -- 0 => Single cycle I/O, 1 => Std I/O cycle + ); + port( + RESET_n : in std_logic; + CLK_n : in std_logic; + CLKEN : in std_logic; + WAIT_n : in std_logic; + INT_n : in std_logic; + NMI_n : in std_logic; + BUSRQ_n : in std_logic; + M1_n : out std_logic; + MREQ_n : out std_logic; + IORQ_n : out std_logic; + RD_n : out std_logic; + WR_n : out std_logic; + RFSH_n : out std_logic; + HALT_n : out std_logic; + BUSAK_n : out std_logic; + A : out std_logic_vector(15 downto 0); + DI : in std_logic_vector(7 downto 0); + DO : out std_logic_vector(7 downto 0) + ); +end T80se; + +architecture rtl of T80se is + + signal IntCycle_n : std_logic; + signal NoRead : std_logic; + signal Write : std_logic; + signal IORQ : std_logic; + signal DI_Reg : std_logic_vector(7 downto 0); + signal MCycle : std_logic_vector(2 downto 0); + signal TState : std_logic_vector(2 downto 0); + +begin + + u0 : T80 + generic map( + Mode => Mode, + IOWait => IOWait) + port map( + CEN => CLKEN, + M1_n => M1_n, + IORQ => IORQ, + NoRead => NoRead, + Write => Write, + RFSH_n => RFSH_n, + HALT_n => HALT_n, + WAIT_n => Wait_n, + INT_n => INT_n, + NMI_n => NMI_n, + RESET_n => RESET_n, + BUSRQ_n => BUSRQ_n, + BUSAK_n => BUSAK_n, + CLK_n => CLK_n, + A => A, + DInst => DI, + DI => DI_Reg, + DO => DO, + MC => MCycle, + TS => TState, + IntCycle_n => IntCycle_n); + + process (RESET_n, CLK_n) + begin + if RESET_n = '0' then + RD_n <= '1'; + WR_n <= '1'; + IORQ_n <= '1'; + MREQ_n <= '1'; + DI_Reg <= "00000000"; + elsif CLK_n'event and CLK_n = '1' then + if CLKEN = '1' then + RD_n <= '1'; + WR_n <= '1'; + IORQ_n <= '1'; + MREQ_n <= '1'; + if MCycle = "001" then + if TState = "001" or (TState = "010" and Wait_n = '0') then + RD_n <= not IntCycle_n; + MREQ_n <= not IntCycle_n; + IORQ_n <= IntCycle_n; + end if; + if TState = "011" then + MREQ_n <= '0'; + end if; + else + if (TState = "001" or (TState = "010" and Wait_n = '0')) and NoRead = '0' and Write = '0' then + RD_n <= '0'; + IORQ_n <= not IORQ; + MREQ_n <= IORQ; + end if; + if T2Write = 0 then + if TState = "010" and Write = '1' then + WR_n <= '0'; + IORQ_n <= not IORQ; + MREQ_n <= IORQ; + end if; + else + if (TState = "001" or (TState = "010" and Wait_n = '0')) and Write = '1' then + WR_n <= '0'; + IORQ_n <= not IORQ; + MREQ_n <= IORQ; + end if; + end if; + end if; + if TState = "010" and Wait_n = '1' then + DI_Reg <= DI; + end if; + end if; + end if; + end process; + +end; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80sed.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80sed.vhd new file mode 100644 index 00000000..243f550c --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/T80/T80sed.vhd @@ -0,0 +1,177 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- +-- Ver 300 started tidyup +-- +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- $Id: T80sed.vhd 1330 2015-05-22 19:55:46Z wolfgang.scherr $ +-- +-- **** +-- +-- ** CUSTOM 2 CLOCK MEMORY ACCESS FOR PACMAN, MIKEJ ** +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- MikeJ March 2005 +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0235 : First release +-- +-- 0236 : Added T2Write generic +-- +-- 0237 : Fixed T2Write with wait state +-- +-- 0238 : Updated for T80 interface change +-- +-- 0242 : Updated for T80 interface change +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; +use work.T80_Pack.all; + +entity T80sed is + port( + RESET_n : in std_logic; + CLK_n : in std_logic; + CLKEN : in std_logic; + WAIT_n : in std_logic; + INT_n : in std_logic; + NMI_n : in std_logic; + BUSRQ_n : in std_logic; + M1_n : out std_logic; + MREQ_n : out std_logic; + IORQ_n : out std_logic; + RD_n : out std_logic; + WR_n : out std_logic; + RFSH_n : out std_logic; + HALT_n : out std_logic; + BUSAK_n : out std_logic; + A : out std_logic_vector(15 downto 0); + DI : in std_logic_vector(7 downto 0); + DO : out std_logic_vector(7 downto 0) + ); +end T80sed; + +architecture rtl of T80sed is + + signal IntCycle_n : std_logic; + signal NoRead : std_logic; + signal Write : std_logic; + signal IORQ : std_logic; + signal DI_Reg : std_logic_vector(7 downto 0); + signal MCycle : std_logic_vector(2 downto 0); + signal TState : std_logic_vector(2 downto 0); + +begin + + u0 : T80 + generic map( + Mode => 0, + IOWait => 1) + port map( + CEN => CLKEN, + M1_n => M1_n, + IORQ => IORQ, + NoRead => NoRead, + Write => Write, + RFSH_n => RFSH_n, + HALT_n => HALT_n, + WAIT_n => Wait_n, + INT_n => INT_n, + NMI_n => NMI_n, + RESET_n => RESET_n, + BUSRQ_n => BUSRQ_n, + BUSAK_n => BUSAK_n, + CLK_n => CLK_n, + A => A, + DInst => DI, + DI => DI_Reg, + DO => DO, + MC => MCycle, + TS => TState, + IntCycle_n => IntCycle_n); + + process (RESET_n, CLK_n) + begin + if RESET_n = '0' then + RD_n <= '1'; + WR_n <= '1'; + IORQ_n <= '1'; + MREQ_n <= '1'; + DI_Reg <= "00000000"; + elsif CLK_n'event and CLK_n = '1' then + if CLKEN = '1' then + RD_n <= '1'; + WR_n <= '1'; + IORQ_n <= '1'; + MREQ_n <= '1'; + if MCycle = "001" then + if TState = "001" or (TState = "010" and Wait_n = '0') then + RD_n <= not IntCycle_n; + MREQ_n <= not IntCycle_n; + IORQ_n <= IntCycle_n; + end if; + if TState = "011" then + MREQ_n <= '0'; + end if; + else + if (TState = "001" or TState = "010") and NoRead = '0' and Write = '0' then + RD_n <= '0'; + IORQ_n <= not IORQ; + MREQ_n <= IORQ; + end if; + if ((TState = "001") or (TState = "010")) and Write = '1' then + WR_n <= '0'; + IORQ_n <= not IORQ; + MREQ_n <= IORQ; + end if; + end if; + if TState = "010" and Wait_n = '1' then + DI_Reg <= DI; + end if; + end if; + end if; + end process; + +end; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk.vhd new file mode 100644 index 00000000..2eddb482 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk.vhd @@ -0,0 +1,617 @@ +---------------------------------------------------------------------------------- +-- berzerk by Dar (darfpga@aol.fr) (June 2018) +-- http://darfpga.blogspot.fr +---------------------------------------------------------------------------------- +-- Educational use only +-- Do not redistribute synthetized file with roms +-- Do not redistribute roms whatever the form +-- Use at your own risk +--------------------------------------------------------------------------------- +-- T80/T80se - Version : 0304 /!\ (0247 has some interrupt vector problems) +----------------------------- +-- Z80 compatible microprocessor core +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- MikeJ March 2005 +-- Wolfgang Scherr 2011-2015 (email: WoS pin4 at) +--------------------------------------------------------------------------------- +-- gen_ram.vhd & io_ps2_keyboard +-------------------------------- +-- Copyright 2005-2008 by Peter Wendrich (pwsoft@syntiac.com) +-- http://www.syntiac.com/fpga64.html +--------------------------------------------------------------------------------- +--------------------------------------------------------------------------------- +-- Use berzerk_de10_lite.sdc to compile (Timequest constraints) +-- /!\ +-- Don't forget to set device configuration mode with memory initialization +-- (Assignments/Device/Pin options/Configuration mode) +--------------------------------------------------------------------------------- +--------------------------------------------------------------------------------- +-- +-- Berzerk has not graphics tile nor sprite. Instead berzerk use a 1 pixel video +-- buffer and a color map buffer. +-- +-- Video buffer is 256 pixels x 224 lines : 32 x 224 bytes +-- +-- Video buffer can be written by cpu @4000-5fff (normal write : cpu_do => vram_di) +-- video buffer and working ram share the same ram. +-- +-- Video buffer can be written by cpu @6000-7fff +-- in that case the written cpu data can be shifted and completed with previous written data +-- then the result can be bit reversed 0..7 => 7..0 (flopper) +-- then the result can be combined (alu) with the current video data at that address +-- shift/flop and alu function are controled by data written at I/O 0x4B +-- during such write flopper output is compared with current video data to detect +-- pixel colision (called intercept) +-- +-- color buffer is @8000-87ff :32x64 area of 1 byte +-- one byte covers 2x4 pixels and 4 lines. +-- bits 7-4 => 4 pixels of color1 +-- bits 3-0 => 4 pixels of color2 +-- color 4bits : intensity/blue/green/red +-- +-- Sound effects uses a ptm6840 timer (3 channel) + noise generator and volume control +-- + +-- +----------------------------------------------------------------------------------------------- +-- Problème rencontré : cpu_int acquitée par iorq durant le cylce de capture du vecteur +-- d'interruption => mauvais vecteur lu => plantage un peu plus tard. +-- +-- Solution : ajouter m1_n dans l'equation d'acquitement de int. +----------------------------------------------------------------------------------------------- +-- Mame command reminder +-- wpiset 40,1,w,1,{printf "a:%08x d:%02X",wpaddr,wpdata; g} +-- wpiset 40,1,w,(wpdata!=0) && (wpdata!=90) && (wpdata!=92),{printf "a:%08x d:%02X",wpaddr,wpdata; g} +----------------------------------------------------------------------------------------------- + +library ieee; +use ieee.std_logic_1164.all; +use ieee.std_logic_unsigned.all; +use ieee.numeric_std.all; + +entity berzerk is +port( + clock_10 : in std_logic; + reset : in std_logic; + + video_r : out std_logic; + video_g : out std_logic; + video_b : out std_logic; + video_hi : out std_logic; + video_clk : out std_logic; + video_csync : out std_logic; + video_hs : out std_logic; + video_vs : out std_logic; + video_hb : out std_logic; + video_vb : out std_logic; + audio_out : out std_logic_vector(15 downto 0); + + hyperflip : in std_logic; + coin1 : in std_logic; + + start1 : in std_logic; + start2 : in std_logic; + fire3 : in std_logic; + fire2 : in std_logic; + fire1 : in std_logic; + cleft : in std_logic; + cright : in std_logic; + + sw : in std_logic_vector(9 downto 0); + ledr : out std_logic_vector(9 downto 0) := "0000000000"; + dbg_cpu_di : out std_logic_vector( 7 downto 0); + dbg_cpu_addr : out std_logic_vector(15 downto 0); + dbg_cpu_addr_latch : out std_logic_vector(15 downto 0) + +); +end berzerk; + +architecture struct of berzerk is + +-- clocks +signal clock_10n : std_logic; +signal reset_n : std_logic; + +-- video syncs +signal hsync : std_logic; +signal vsync : std_logic; +signal csync : std_logic; +signal blank : std_logic; + +-- global synchronisation +signal ena_pixel : std_logic := '0'; +signal hcnt : std_logic_vector(8 downto 0); +signal vcnt : std_logic_vector(8 downto 0); +signal hcnt_r : std_logic_vector(8 downto 0); +signal vcnt_r : std_logic_vector(8 downto 0); + +-- Z80 interface +signal cpu_clock : std_logic; +signal cpu_wr_n : std_logic; +signal cpu_addr : std_logic_vector(15 downto 0); +signal cpu_do : std_logic_vector(7 downto 0); +signal cpu_di : std_logic_vector(7 downto 0); +signal cpu_di_r : std_logic_vector(7 downto 0); +signal cpu_mreq_n : std_logic; +signal cpu_m1_n : std_logic; +signal cpu_int_n : std_logic := '1'; +signal cpu_nmi_n : std_logic := '1'; +signal cpu_iorq_n : std_logic; +signal cpu_di_mem : std_logic_vector(7 downto 0); +signal cpu_di_io : std_logic_vector(7 downto 0); + +-- rom/ram addr/we/do +signal prog2_rom_addr : std_logic_vector(15 downto 0); +signal prog1_do : std_logic_vector(7 downto 0); +signal prog2_do : std_logic_vector(7 downto 0); +signal mosram_do : std_logic_vector(7 downto 0); +signal mosram_we : std_logic; +signal vram_addr : std_logic_vector(12 downto 0); +signal vram_di : std_logic_vector( 7 downto 0); +signal vram_do : std_logic_vector( 7 downto 0); +signal vram_we : std_logic; +signal cram_addr : std_logic_vector(10 downto 0); +signal cram_do : std_logic_vector(7 downto 0); +signal cram_we : std_logic; + +-- I/O chip seclect +signal io1_cs : std_logic; +signal io2_cs : std_logic; + +-- misc +signal int_enable : std_logic; +signal nmi_enable : std_logic; +signal inta : std_logic; +signal vcnt_int : std_logic; +signal vcnt_int_r : std_logic; +signal led_on : std_logic; +--signal intercept : std_logic; +signal intercept_latch : std_logic; + +-- grapihcs computation +signal shifter_flopper_alu_cmd : std_logic_vector(7 downto 0); +signal last_data_written : std_logic_vector(6 downto 0); +signal shifter_do : std_logic_vector(7 downto 0); +signal flopper_do : std_logic_vector(7 downto 0); +signal alu_do : std_logic_vector(7 downto 0); +signal vram_do_latch : std_logic_vector(7 downto 0); + +-- graphics data +signal graphx : std_logic_vector (7 downto 0); +signal colors : std_logic_vector (7 downto 0); +signal color : std_logic_vector (3 downto 0); + +-- player I/O +signal player1 : std_logic_vector(7 downto 0); +signal player2 : std_logic_vector(7 downto 0); +signal system : std_logic_vector(7 downto 0); + +-- line doubler I/O +signal video : std_logic_vector (3 downto 0); +signal video_i : std_logic_vector (3 downto 0); +signal video_o : std_logic_vector (3 downto 0); +signal video_s : std_logic_vector (3 downto 0); +signal hsync_o : std_logic; +signal vsync_o : std_logic; + +signal sound_out : std_logic_vector(11 downto 0); +signal speech_out : std_logic_vector(11 downto 0); +signal speech_busy : std_logic; + +signal dail : std_logic_vector(4 downto 0); + +begin + +process(cpu_clock) +begin +--dail <= "01111"; + if (cleft = '1') then dail <= dail-1; elsif (cright = '1') then dail <= dail+1; end if; +end process; + +audio_out <= ("00"&speech_out&"00")+('0'&sound_out&"000"); +clock_10n <= not clock_10; +reset_n <= not reset; +ledr(0) <= led_on; + +---------- +-- debug +---------- +dbg_cpu_addr <= cpu_addr; +process(cpu_clock, reset) +begin + if rising_edge(cpu_clock) then + if cpu_m1_n = '0' then + dbg_cpu_addr_latch <= cpu_addr; + end if; + end if; +end process; + +----------------------- +-- Enable pixel counter +-- and cpu clock +----------------------- +process(clock_10, reset) +begin + if reset = '1' then + ena_pixel <= '0'; + else + if rising_edge(clock_10) then + ena_pixel <= not ena_pixel; + end if; + end if; +end process; + +cpu_clock <= hcnt(0); + +------------------ +-- video output +------------------ +-- demux color nibbles +color <= colors(7 downto 4) when hcnt(2) = '0' else colors(3 downto 0); + +-- serialize video byte +video <= color when graphx(to_integer(unsigned(not hcnt(2 downto 0)))) = '1' else "0000"; + +----------------------- +-- cpu write addressing +-- cpu I/O chips select +----------------------- 111110 0000000000 +mosram_we <= '1' when cpu_mreq_n = '0' and cpu_wr_n = '0' and cpu_addr(15 downto 10) = "111110" else '0'; -- 0800-0bff 000010 0000000000 +vram_we <= '1' when cpu_mreq_n = '0' and cpu_wr_n = '0' and cpu_addr(15 downto 14) = "01" and cpu_clock = '0' else '0'; -- 4000-5fff mirror 6000-7fff +cram_we <= '1' when cpu_mreq_n = '0' and cpu_wr_n = '0' and cpu_addr(15 downto 11) = "10000" and cpu_clock = '0' else '0'; -- 8000-87ff + +io1_cs <= '1' when cpu_iorq_n ='0' and cpu_m1_n = '1' and cpu_addr(7 downto 4) = "0100" else '0'; -- x40-x4f +io2_cs <= '1' when cpu_iorq_n ='0' and cpu_m1_n = '1' and cpu_addr(7 downto 5) = "011" else '0'; -- x60-x7f + +--------------------------- +-- enable/disable interrupt +-- latch/clear interrupt +-- led +--------------------------- +vcnt_int <= (not(vcnt(6)) and vcnt(7)) or vcnt(8); + +process (cpu_clock, reset) +begin + if reset = '1' then + nmi_enable <= '0'; + int_enable <= '0'; + led_on <= '0'; + else + if rising_edge(cpu_clock) then + if io1_cs ='1' then + if cpu_addr(3 downto 0) = "1100" then nmi_enable <= '1'; end if; -- 4c + if cpu_addr(3 downto 0) = "1101" then nmi_enable <= '0'; end if; -- 4d + if cpu_addr(3 downto 0) = "1111" and cpu_wr_n = '0' then int_enable <= cpu_do(0); end if; -- 4f + end if; + + if io2_cs ='1' then + if cpu_addr(2 downto 0) = "110" then led_on <= '0'; end if; -- 66 + if cpu_addr(2 downto 0) = "111" then led_on <= '1'; end if; -- 67 + end if; + end if; + end if; +end process; + +process (clock_10, cpu_iorq_n, cpu_addr, reset) +begin + if reset = '1' then + cpu_int_n <= '1'; + cpu_nmi_n <= '1'; + else + + if rising_edge(clock_10) then + + vcnt_r <= vcnt; + vcnt_int_r <= vcnt_int; + + if nmi_enable = '1' then + if vcnt_r(4) = '0' and vcnt(4) = '1' then cpu_nmi_n <= '0';end if; + if hcnt_r(0) = '0' and hcnt(0) = '1' then cpu_nmi_n <= '1';end if; + else + cpu_nmi_n <= '1'; + end if; + + end if; + + if rising_edge(clock_10) then + if cpu_iorq_n ='0' then + -- m1_n avoid clear interrupt during vector reading + if cpu_addr(7 downto 0) = X"4e" and cpu_m1_n = '1' then cpu_int_n <= '1'; end if; + end if; + if int_enable = '1' then + if vcnt_int_r = '0' and vcnt_int = '1' then cpu_int_n <= '0';end if; + end if; + end if; + + end if; +end process; + +------------------------------------ +-- mux cpu data mem read and io read +------------------------------------ +-- memory mux +with cpu_addr(15 downto 11) select + cpu_di_mem <= + prog1_do when "00000", -- 0000-07ff 16k 00 + prog1_do when "00001", -- 0800-0fff 16k 00 + prog1_do when "00010", -- 1000-17ff 16k 01 + prog1_do when "00011", -- 1800-1fff 16k 01 + prog1_do when "00100", -- 2000-27ff 16k 01 + prog1_do when "00101", -- 2800-2fff 16k 10 + prog1_do when "00110", -- 3000-37ff 16k 11 + prog1_do when "00111", -- 3800-3fff 16k 11 + + vram_do when "01000", -- 4000-47ff + vram_do when "01001", -- 4800-4fff + vram_do when "01010", -- 5000-57ff + vram_do when "01011", -- 5800-5fff + vram_do when "01100", -- 6000-67ff + vram_do when "01101", -- 6800-6fff + vram_do when "01110", -- 7000-77ff + vram_do when "01111", -- 7800-7fff + + cram_do when "10000", -- 8000-87ff 10000 00000000000 + + prog2_do when "11000", -- c000-c7ff 4k 11000 00000000000 + prog2_do when "11001", -- c800-cfff 4k 11001 00000000000 + mosram_do when "11111", -- f800-fbff 11111 00000000000 + x"FF" when others; + +-- I/O-2 mux +with cpu_addr(2 downto 0) select + cpu_di_io <= + X"00" when "000", -- 60 (F3) + X"F8" when "001", -- 61 (F2) + X"FF" when "010", -- 62 (F6) + X"FF" when "011", -- 63 (F5) + X"FF" when "100", -- 64 (F4) + X"00" when "101", -- 65 (SW2) + X"00" when "110", -- 66 (led on ) + X"00" when "111", -- 67 (led off) + X"00" when others; + +------------------ +-- player controls +------------------ + +player1 <= not(fire1 & fire2 & fire3 & dail);--todo dail +player2 <= not(fire1 & fire2 & fire3 & dail);--todo dail +--system <= not(coin1 & "000" & hyperflip & '0' & start2 & start1); +system <= not(coin1 & "00000" & start2 & start1); + + + + + +-- I/O-1 and final mux 00011111 +-- pull up on ZPU board +cpu_di <= "111111" & cpu_int_n & '0' when cpu_iorq_n = '0' and cpu_m1_n = '0' -- interrupt vector + else '0'¬(speech_busy)&"000000" when io1_cs = '1' and cpu_addr(3 downto 0) = X"4" -- speech board + else player1 when io1_cs = '1' and cpu_addr(3 downto 0) = X"8" -- P1 + else system when io1_cs = '1' and cpu_addr(3 downto 0) = X"9" -- sys + else player2 when io1_cs = '1' and cpu_addr(3 downto 0) = X"a" -- P2 + else intercept_latch & "111111" & vcnt(8) when io1_cs = '1' and cpu_addr(3 downto 0) = X"e" + else cpu_di_io when io2_cs = '1' + else cpu_di_mem; + +-- video memory computation +process(clock_10, reset) +begin + if reset = '1' then + shifter_flopper_alu_cmd <= (others => '0'); + else + if rising_edge(clock_10) then + + if cpu_clock = '0' and ena_pixel = '1' then + vram_do_latch <= vram_do; + end if; + + if vram_we = '1' and cpu_addr(13) = '1' then + if ena_pixel = '1' then + last_data_written <= cpu_do(6 downto 0); + + if (vram_do_latch and flopper_do) /= X"00" then + intercept_latch <= '1'; + end if; + end if; + end if; + + if io1_cs = '1' then + if cpu_addr(3 downto 0) = "1011" then -- 4b + shifter_flopper_alu_cmd <= cpu_do; + last_data_written <= (others => '0'); + intercept_latch <= '0'; + end if; + end if; + end if; + end if; +end process; + +-- shifter - flopper +with shifter_flopper_alu_cmd(2 downto 0) select + shifter_do <= cpu_do(7 downto 0) when "000", + last_data_written( 0) & cpu_do(7 downto 1) when "001", + last_data_written(1 downto 0) & cpu_do(7 downto 2) when "010", + last_data_written(2 downto 0) & cpu_do(7 downto 3) when "011", + last_data_written(3 downto 0) & cpu_do(7 downto 4) when "100", + last_data_written(4 downto 0) & cpu_do(7 downto 5) when "101", + last_data_written(5 downto 0) & cpu_do(7 downto 6) when "110", + last_data_written(6 downto 0) & cpu_do(7 ) when others; + +with shifter_flopper_alu_cmd(3) select + flopper_do <= shifter_do when '0', + shifter_do(0)&shifter_do(1)&shifter_do(2)&shifter_do(3)& + shifter_do(4)&shifter_do(5)&shifter_do(6)&shifter_do(7) when others; + +-- 74181 - alu (logical computation only) +with not(shifter_flopper_alu_cmd(7 downto 4)) select + alu_do <= not flopper_do when "0000", + not(flopper_do or vram_do_latch) when "0001", + not(flopper_do) and vram_do_latch when "0010", + X"00" when "0011", + not(flopper_do and vram_do_latch) when "0100", + not(vram_do_latch) when "0101", + flopper_do xor vram_do_latch when "0110", + flopper_do and not(vram_do_latch) when "0111", + not(flopper_do) or vram_do_latch when "1000", + not(flopper_do xor vram_do_latch) when "1001", + vram_do_latch when "1010", + flopper_do and vram_do_latch when "1011", + X"FF" when "1100", + flopper_do or not(vram_do_latch) when "1101", + flopper_do or vram_do_latch when "1110", + flopper_do when others; + +------------------------------------------------------ +-- video & color ram address/data mux +------------------------------------------------------ +with cpu_addr(13) select + vram_di <= cpu_do when '0', + alu_do when others; + +vram_addr <= cpu_addr(12 downto 0) when cpu_clock = '0' + else vcnt(7 downto 0) & hcnt(7 downto 3); + +cram_addr <= cpu_addr(10 downto 0) when cpu_clock = '0' + else vcnt(7 downto 2) & hcnt(7 downto 3); + +------------------------------------------------------- +-- video & color ram read +------------------------------------------------------- +process(clock_10) +begin + if rising_edge(clock_10) then + if hcnt(2 downto 0) = "111" and ena_pixel = '1' then + graphx <= vram_do; + colors <= cram_do; + end if; + end if; +end process; + +-- Sync and video counters +video_gen : entity work.video_gen +port map ( + clock => clock_10, + reset => reset, + ena_pixel => ena_pixel, + hsync => hsync, + vsync => vsync, + csync => csync, + hblank => video_hb, + vblank => video_vb, + hcnt_o => hcnt, + vcnt_o => vcnt +); + +video_s <= video; +video_hs <= hsync; +video_vs <= vsync; +video_r <= video_s(0); +video_g <= video_s(1); +video_b <= video_s(2); +video_hi <= video_s(3); +video_clk <= clock_10; +video_csync <= csync; + +-- Z80 +Z80 : entity work.T80se +generic map(Mode => 0, T2Write => 1, IOWait => 1) +port map( + RESET_n => reset_n, + CLK_n => cpu_clock, + CLKEN => '1', + WAIT_n => '1', + INT_n => cpu_int_n, + NMI_n => cpu_nmi_n, + BUSRQ_n => '1', + M1_n => cpu_m1_n, + MREQ_n => cpu_mreq_n, + IORQ_n => cpu_iorq_n, + RD_n => open, + WR_n => cpu_wr_n, + RFSH_n => open, + HALT_n => open, + BUSAK_n => open, + A => cpu_addr, + DI => cpu_di, + DO => cpu_do +); + + +-- program roms +program1 : entity work.MoonWar_program1 +port map ( + addr => cpu_addr(13 downto 0), + clk => clock_10n, + data => prog1_do +); + +prog2_rom_addr <= cpu_addr-X"c000"; + +program2 : entity work.MoonWar_program2 +port map ( + addr => cpu_addr(11 downto 0), + clk => clock_10n, + data => prog2_do +); + +-- working ram - 0800-0bff +mosram : entity work.gen_ram +generic map( dWidth => 8, aWidth => 10) +port map( + clk => clock_10n, + we => mosram_we, + addr => cpu_addr( 9 downto 0), + d => cpu_do, + q => mosram_do +); + +-- video/working ram - 4000-5fff mirrored 6000-7fff +vram : entity work.gen_ram +generic map( dWidth => 8, aWidth => 13) +port map( + clk => clock_10n, + we => vram_we, + addr => vram_addr, + d => vram_di, + q => vram_do +); + +-- color ram - 8000-87ff +cram : entity work.gen_ram +generic map( dWidth => 8, aWidth => 11) +port map( + clk => clock_10n, + we => cram_we, + addr => cram_addr, + d => cpu_do, + q => cram_do +); + + +-- sound effects +berzerk_sound_fx : entity work.berzerk_sound_fx +port map( + clock => cpu_clock, + reset => reset, + cs => io1_cs, + addr => cpu_addr(4 downto 0), + di => cpu_do, + sample => sound_out +); + +-- speech synthesis (s14001a) +berzerk_speech : entity work.berzerk_speech +port map( + sw => sw, + clock => cpu_clock, + reset => reset, + cs => io1_cs, + wr_n => cpu_wr_n, + addr => cpu_addr(4 downto 0), + di => cpu_do, + busy => speech_busy, + sample => speech_out +); +------------------------------------------ +end architecture; \ No newline at end of file diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk_sound_fx.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk_sound_fx.vhd new file mode 100644 index 00000000..795762ec --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk_sound_fx.vhd @@ -0,0 +1,276 @@ +--------------------------------------------------------------------------------- +-- Berzerk sound effects - Dar - July 2018 +--------------------------------------------------------------------------------- +library ieee; +use ieee.std_logic_1164.all; +use ieee.std_logic_unsigned.all; +use ieee.numeric_std.all; + +entity berzerk_sound_fx is +port ( + clock : in std_logic; + reset : in std_logic; + cs : in std_logic; + addr : in std_logic_vector(4 downto 0); + di : in std_logic_vector(7 downto 0); + sample : out std_logic_vector(11 downto 0) +); +end berzerk_sound_fx; + +architecture struct of berzerk_sound_fx is + +signal hdiv : std_logic_vector(1 downto 0); +signal ena_internal_clock : std_logic; + +signal ptm6840_msb_buffer : std_logic_vector(7 downto 0); +signal ptm6840_max1 : std_logic_vector(15 downto 0); +signal ptm6840_max2 : std_logic_vector(15 downto 0); +signal ptm6840_max3 : std_logic_vector(15 downto 0); +signal ptm6840_cnt1 : std_logic_vector(15 downto 0); +signal ptm6840_cnt2 : std_logic_vector(15 downto 0); +signal ptm6840_cnt3 : std_logic_vector(15 downto 0); +signal ptm6840_ctrl1 : std_logic_vector(7 downto 0); +signal ptm6840_ctrl2 : std_logic_vector(7 downto 0); +signal ptm6840_ctrl3 : std_logic_vector(7 downto 0); + +signal ptm6840_q1 : std_logic; +signal ptm6840_q2 : std_logic; +signal ptm6840_q3 : std_logic; + +signal ctrl_noise_and_ch1 : std_logic_vector(1 downto 0); +signal ctrl_vol_ch1 : std_logic_vector(2 downto 0); +signal ctrl_vol_ch2 : std_logic_vector(2 downto 0); +signal ctrl_vol_ch3 : std_logic_vector(2 downto 0); + +type vol_type is array(0 to 7) of unsigned(7 downto 0); +constant vol : vol_type := (X"01", X"02", X"04", X"08", X"10", X"20", X"40", X"80"); + +signal snd1 : signed(8 downto 0); +signal snd2 : signed(8 downto 0); +signal snd3 : signed(8 downto 0); +--signal snd : std_logic_vector(11 downto 0); + +signal ptm6840_q1_r : std_logic; +signal ena_q1_clock : std_logic; +signal noise_xor, noise_xor_r : std_logic; +signal noise_shift_reg : std_logic_vector(127 downto 0) := (others => '1'); +signal noise_shift_reg_95_r : std_logic; +signal ena_external_clock : std_logic; + +begin + +sample <= std_logic_vector(snd1+snd2+snd3) + X"7FF"; + +-- make enable signal to replace misc clocks +process(clock) +begin + if rising_edge(clock) then + + -- ptm_6840 E input pin (internal clock) + -- board input clock divide by 4 + if hdiv = "11" then + hdiv <= "00"; + ena_internal_clock <= '1'; + else + hdiv <= std_logic_vector(unsigned(hdiv) + 1); + ena_internal_clock <= '0'; + end if; + + -- ptm6840_q1 is used for alternate noise generator clock + ptm6840_q1_r <= ptm6840_q1; + if ptm6840_q1_r = '0' and ptm6840_q1 = '1' then + ena_q1_clock <= '1'; + else + ena_q1_clock <= '0'; + end if; + + -- noise generator ouput is use for ptm6840 external clocks (C1, C2, C3) + noise_shift_reg_95_r <= noise_shift_reg(95); + if noise_shift_reg_95_r = '0' and noise_shift_reg(95) = '1' then + ena_external_clock <= '1'; + else + ena_external_clock <= '0'; + end if; + + end if; +end process; + +--control/registers interface with cpu addr/data +ctrl_regs : process(clock, reset) +begin + if reset = '1' then + + ptm6840_ctrl1 <= X"01"; + ptm6840_ctrl2 <= (others => '0'); + ptm6840_ctrl3 <= (others => '0'); + + ctrl_noise_and_ch1 <= (others => '0'); + ctrl_vol_ch1 <= (others => '0'); + ctrl_vol_ch2 <= (others => '0'); + ctrl_vol_ch3 <= (others => '0'); + + else + if rising_edge(clock) then + if cs = '1' and addr(4 downto 3) = "00" then + + case addr(2 downto 0) is + + when "000" => + if ptm6840_ctrl2(0) = '1' then + ptm6840_ctrl1 <= di; + else + ptm6840_ctrl3 <= di; + end if; + + when "001" => + ptm6840_ctrl2 <= di; + + when "011" => + ptm6840_max1 <= ptm6840_msb_buffer & di; + + when "101" => + ptm6840_max2 <= ptm6840_msb_buffer & di; + + when "111" => + ptm6840_max3 <= ptm6840_msb_buffer & di; + + when "110" => +-- ptm6840_msb_buffer <= di; + case di(7 downto 6) is + when "00" => + ctrl_noise_and_ch1 <= di(1 downto 0); + when "01" => + ctrl_vol_ch1 <= di(2 downto 0); + when "10" => + ctrl_vol_ch2 <= di(2 downto 0); + when others => + ctrl_vol_ch3 <= di(2 downto 0); + end case; + + when others => + ptm6840_msb_buffer <= di; + + end case; + + end if; + end if; + end if; +end process; + +-- simplified ptm6840 (only useful part for berzerk) +-- only synthesis mode +-- 16 bits count mode only (no dual 8 bits mode) +-- count on internal or external clock +-- no status +-- no IRQ +-- no gates input + +counters : process(clock, reset, ptm6840_max1, ptm6840_max2, ptm6840_max3) +begin + if reset = '1' then + ptm6840_cnt1 <= ptm6840_max1; + ptm6840_cnt2 <= ptm6840_max2; + ptm6840_cnt3 <= ptm6840_max3; + ptm6840_q1 <= '0'; + ptm6840_q2 <= '0'; + ptm6840_q3 <= '0'; + else + + if rising_edge(clock) then + if ptm6840_ctrl1(0) = '0' then + + -- counter #1 + if (ptm6840_ctrl1(1) = '1' and ena_internal_clock = '1') or + (ptm6840_ctrl1(1) = '0' and ena_external_clock = '1') then + if ptm6840_cnt1 = X"0000" then + ptm6840_cnt1 <= ptm6840_max1; + ptm6840_q1 <= not ptm6840_q1; + else + ptm6840_cnt1 <= ptm6840_cnt1 - '1'; + end if; + end if; + + -- counter #2 + if (ptm6840_ctrl2(1) = '1' and ena_internal_clock = '1') or + (ptm6840_ctrl2(1) = '0' and ena_external_clock = '1') then + if ptm6840_cnt2 = X"0000" then + ptm6840_cnt2 <= ptm6840_max2; + ptm6840_q2 <= not ptm6840_q2; + else + ptm6840_cnt2 <= ptm6840_cnt2 - '1'; + end if; + end if; + + -- counter #3 + if (ptm6840_ctrl3(1) = '1' and ena_internal_clock = '1') or + (ptm6840_ctrl3(1) = '0' and ena_external_clock = '1') then + if ptm6840_cnt3 = X"0000" then + ptm6840_cnt3 <= ptm6840_max3; + ptm6840_q3 <= not ptm6840_q3; + else + ptm6840_cnt3 <= ptm6840_cnt3 - '1'; + end if; + end if; + + else + ptm6840_cnt1 <= ptm6840_max1; + ptm6840_cnt2 <= ptm6840_max2; + ptm6840_cnt3 <= ptm6840_max3; + end if; + + -- fx channel #1 enable and volume + -- channel #1 output is OFF when q1 drive noise generator clock + snd1 <= (others=>'0'); + if ptm6840_ctrl1(7) = '1' then + if ptm6840_q1 = '1' and ctrl_noise_and_ch1(1) = '0' then + snd1 <= signed('0'&vol(to_integer(unsigned(ctrl_vol_ch1)))); + else + snd1 <= -signed('0'&vol(to_integer(unsigned(ctrl_vol_ch1)))); + end if; + end if; + + -- fx channel #2 enable and volume + snd2 <= (others=>'0'); + if ptm6840_ctrl2(7) = '1' then + if ptm6840_q2 = '1' then + snd2 <= signed('0'&vol(to_integer(unsigned(ctrl_vol_ch2)))); + else + snd2 <= -signed('0'&vol(to_integer(unsigned(ctrl_vol_ch2)))); + end if; + end if; + + -- fx channel #2 enable and volume + snd3 <= (others=>'0'); + if ptm6840_ctrl3(7) = '1' then + if ptm6840_q3 = '1' then + snd3 <= signed('0'&vol(to_integer(unsigned(ctrl_vol_ch3)))); + else + snd3 <= -signed('0'&vol(to_integer(unsigned(ctrl_vol_ch3)))); + end if; + end if; + + end if; + + end if; +end process; + +-- noise generator +noise_xor <= noise_shift_reg(127) xor noise_shift_reg(95); +noise: process(clock, reset) +begin + if reset = '1' then + noise_shift_reg <= (others => '1'); + else + if rising_edge(clock) then + -- noise clock is either same as internal clock or q1 output + if (ctrl_noise_and_ch1(0) = '0' and ena_internal_clock = '1') or + (ctrl_noise_and_ch1(0) = '1' and ena_q1_clock = '1') then + + noise_shift_reg <= noise_shift_reg(126 downto 0) & (noise_xor_r xor noise_xor); + noise_xor_r <= noise_xor; + end if; + end if; + end if; +end process; + +end architecture; \ No newline at end of file diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk_speech.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk_speech.vhd new file mode 100644 index 00000000..af73356e --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/berzerk_speech.vhd @@ -0,0 +1,441 @@ +--------------------------------------------------------------------------------- +-- Berzerk speech by Dar - July 2018 +--------------------------------------------------------------------------------- +-- s14001a speech synthesis based on Mame source code : TSI S14001A emulator v1.32 +-- +-- By Jonathan Gevaryahu ("Lord Nightmare") with help from Kevin Horton ("kevtris") +-- MAME conversion and integration by R. Belmont +-- Clock Frequency control updated by Zsolt Vasvari +-- Other fixes by AtariAce +-- +-- Copyright (C) 2006-2013 Jonathan Gevaryahu aka Lord Nightmare +-- +-- +-- VHDL conversion by Dar +-- +--------------------------------------------------------------------------------- +-- S14001a principle +-- +-- Command + start select a word to be played +-- One word is a list of first phoneme address called syllables +-- Each phoneme is composed of an LPC data first bloc address and a phoneme parameter +-- Phoneme parameter gives the mode (mirror/not mirror), silent, last_phoneme, +-- repeat and length of begining counters values. +-- +-- Sound is LPC data encoded by bloc of 32 samples (8 bytes and 4 delta value/byte) +-- +-- In non mirror mode blocs of LPC data are read consecutively from first to +-- first+N. with N = (8-repeat) * (16-length) +-- +-- In mirror mode blocs of LPC data are read once forward and once backward +-- repeatedly (8-repeat) times then next bloc is read. Change to next syllable +-- after (16-length)/2 blocs have been read. +-- +-- Output is set to silent (value 7) under some circumstances (third and fourth +-- quarter in mirror mode or for one sample after changing read direction). +-- +-- Silence can modify output value (in the loop) or not (silence modify +-- output_sil but not output) +-- +-- +--------------------------------------------------------------------------------- +library ieee; +use ieee.std_logic_1164.all; +use ieee.std_logic_unsigned.all; +use ieee.numeric_std.all; + +entity berzerk_speech is +port ( + +sw : in std_logic_vector(9 downto 0); + + clock : in std_logic; + reset : in std_logic; + cs : in std_logic; + wr_n : in std_logic; + addr : in std_logic_vector(4 downto 0); + di : in std_logic_vector(7 downto 0); + busy : out std_logic; + sample : out std_logic_vector(11 downto 0) +); +end berzerk_speech; + +architecture struct of berzerk_speech is + +signal hdiv1 : std_logic_vector(3 downto 0); +signal hdiv2 : std_logic_vector(3 downto 0); + +signal ena_hdiv2 : std_logic; + +signal ctrl_hdiv1 : std_logic_vector(2 downto 0); +signal ctrl_volume : std_logic_vector(2 downto 0); +signal ctrl_s14001_cmd : std_logic_vector(5 downto 0); +signal busy_in : std_logic; + +type vol_type is array(0 to 7) of integer range 0 to 255 ; +constant vol : vol_type := (0, 32, 46, 64, 89, 126, 180, 255); -- resistor ladder + + +signal rom_addr : std_logic_vector(11 downto 0); +signal rom_do : std_logic_vector( 7 downto 0); + +type state_t is (waiting_start, reading, next_syllable); +signal state : state_t; + +signal syllable_addr : std_logic_vector(11 downto 0); +signal phoneme_addr : std_logic_vector(11 downto 0); +signal phoneme_offset : std_logic_vector(11 downto 0); +signal phoneme_param : std_logic_vector( 7 downto 0); + +alias last_phoneme : std_logic is phoneme_param(7); +alias mirror : std_logic is phoneme_param(6); +alias silence : std_logic is phoneme_param(5); + +signal phoneme_length : std_logic_vector(3 downto 0); +signal phoneme_repeat : std_logic_vector(2 downto 0); +signal length_counter : std_logic_vector(4 downto 0); +signal repeat_counter : std_logic_vector(3 downto 0); +signal output_counter : std_logic_vector(2 downto 0); + +signal phoneme_start : std_logic; +signal read_direction : std_logic; +signal last_offset : std_logic; + +signal output : signed(4 downto 0); -- actually unsigned between 0 and F, silence = 7 +signal output_sil : signed(4 downto 0); -- actually unsigned between 0 and F, silence = 7 +signal start_speech : std_logic; + +signal old_delta : std_logic_vector (1 downto 0); +signal cur_delta : std_logic_vector (1 downto 0); + +type delta_table_row_t is array(0 to 3,0 to 3) of signed(2 downto 0); +constant delta_table : delta_table_row_t := ( + ("101", "101", "111", "111"), + ("111", "111", "000", "000"), + ("000", "000", "001", "001"), + ("001", "001", "011", "011")); + +begin + +-- busy output +busy <= busy_in; + +-- conversion from 0-F ouput and volume scale to 0-F*256, silence at 7*256. +sample <= std_logic_vector(to_unsigned( + ((to_integer(output_sil) -7) * vol(to_integer(unsigned(ctrl_volume)))) + 7*256, 12)); + +-- clock divider +counter : process(clock, reset) +begin + if reset = '1' then + hdiv1 <= (others => '0'); + hdiv2 <= (others => '0'); + else + + if rising_edge(clock) then + + -- divide between 9 and 16 upon ctrl + if hdiv1 = "1111" then + hdiv1 <= "0"&ctrl_hdiv1; + ena_hdiv2 <= '1'; + else + hdiv1 <= hdiv1 + '1'; + ena_hdiv2 <= '0'; + end if; + + -- divide by 16 is ok because : IC A5 divide by 8 and s14001a divide by 2 internally + if ena_hdiv2 = '1' then + if hdiv2 = "1111" then + hdiv2 <= (others => '0'); + else + hdiv2 <= hdiv2 + '1'; + end if; + end if; + + end if; + + end if; +end process; + +--control/registers interface with cpu addr/data +ctrl_regs : process(clock, reset) +begin + + if reset = '1' then + + ctrl_s14001_cmd <= (others => '0'); + ctrl_hdiv1 <= (others => '0'); + ctrl_volume <= (others => '0'); + start_speech <= '0'; + + else + if rising_edge(clock) then + if busy_in = '1' then + start_speech <= '0'; + end if; + + if (cs = '1') and (wr_n = '0') and (addr = "00100") then -- 0x44 + + if (di(7 downto 6) = "00") and (busy_in = '0') and (start_speech = '0') then + ctrl_s14001_cmd <= di(5 downto 0); + start_speech <= '1'; + end if; + + if di(7 downto 6) = "01" then + ctrl_hdiv1 <= di(2 downto 0); + ctrl_volume <= di(5 downto 3); + end if; + + + end if; + end if; + end if; +end process; + + +-- s14001a +phoneme_length <= phoneme_param(4 downto 2)&'0'; +phoneme_repeat <= phoneme_param(1 downto 0)&'0'; + +s14001a: process(clock, reset) +begin + if reset = '1' then + state <= waiting_start; + else + if rising_edge(clock) then + if ena_hdiv2 = '1' then + -- using hdiv2 as a sub-state counter + -- computation are done during sub-state 0-14 + -- new sample is ready on sub-state 15 + -- next state is set on sub-state transition from 15 to 0 + + case state is + + when waiting_start => + + output <= "00111"; + + case hdiv2 is + + -- wait for start, set busy when done + when X"0" => + busy_in <= '0'; + if start_speech = '1' then + busy_in <= '1'; + end if; + + -- compute syllable addr from word cmd + when X"1" => + rom_addr <= "00000"&ctrl_s14001_cmd&'0'; + + when X"2" => + syllable_addr(11 downto 4) <= rom_do; + rom_addr <= "00000"&ctrl_s14001_cmd&'1'; + + when X"3" => + syllable_addr(3 downto 0) <= rom_do(7 downto 4); + + -- init playing speech + when X"F" => + if busy_in = '1' then + state <= reading; + phoneme_start <= '1'; + phoneme_offset <= (others =>'0'); + end if; + + when others => null; + end case; + + when reading => + case hdiv2 is + + -- get phoneme addr and parameter + when X"0" => + rom_addr <= syllable_addr; + + when X"1" => + phoneme_addr <= rom_do&"0000"; + rom_addr <= syllable_addr + '1'; + + when X"2" => + phoneme_param <= rom_do; + rom_addr <= phoneme_addr + phoneme_offset(11 downto 2); + + when X"3" => + -- start with a new phoneme + if phoneme_start = '1' then + length_counter <= '0'&phoneme_length; + repeat_counter <= '0'&phoneme_repeat; + read_direction <= '1'; + old_delta <= "10"; + output_counter <= (others =>'0'); + phoneme_start <= '0'; + phoneme_offset <= (others =>'0'); + output <= "00111"; + end if; + + -- get LPC data + case phoneme_offset(1 downto 0) is + when "00" => cur_delta <= rom_do(7 downto 6); + when "01" => cur_delta <= rom_do(5 downto 4); + when "10" => cur_delta <= rom_do(3 downto 2); + when others => cur_delta <= rom_do(1 downto 0); + end case; + + -- compute new ouput from previous value and new LPC data + when X"4" => + if read_direction = '1' then + if ((mirror = '1') and (output_counter(1) = '1')) or (silence = '1') then + output <= "00111" + delta_table(to_integer(unsigned(cur_delta)), 2); + else + output <= output + delta_table(to_integer(unsigned(cur_delta)),to_integer(unsigned(old_delta))); + end if; + else + if phoneme_offset(4 downto 0) = "11111" then + if (output_counter(1) = '1') or (silence = '1') then + output <= "00111"; + else + -- keep last value + end if; + else + if (output_counter(1) = '1') or (silence = '1') then + output <= "00111" - delta_table(2, to_integer(unsigned(cur_delta))); + else + output <= output - delta_table(to_integer(unsigned(old_delta)),to_integer(unsigned(cur_delta))); + end if; + end if; + end if; + + old_delta <= cur_delta; + + -- increase or decrease phoneme_offset (one offset = one sample) + -- last offset when 32 samples have been read either forward or backward + last_offset <= '0'; + if read_direction = '1' then + if phoneme_offset(4 downto 0) = "11111" then + last_offset <= '1'; + if mirror = '0' then + phoneme_offset <= phoneme_offset + '1'; + end if; + else + phoneme_offset <= phoneme_offset + '1'; + end if; + else + if phoneme_offset(4 downto 0) = "00000" then + last_offset <= '1'; + else + phoneme_offset <= phoneme_offset - '1'; + end if; + end if; + + -- increase repeat counter every 32 samples + when X"5" => + if last_offset = '1' then + repeat_counter <= repeat_counter + '1'; + output_counter <= output_counter + '1'; + last_offset <= '0'; + end if; + + -- limit ouput to 0 - F + if output > "01111" then output <= "01111"; end if; + if output < "00000" then output <= "00000"; end if; + + -- manage read_direction and phoneme advance (+8bytes = next 32 samples) + -- upon mirror condition + when X"6" => + if mirror = '1' then + if repeat_counter = 8 then + repeat_counter <= '0'&phoneme_repeat; + if length_counter(0) = '1' then + phoneme_offset <= phoneme_offset + "100000"; + end if; + if length_counter = 15 then + -- will be 16 after on next state + else + if output_counter(0) = '1' then + read_direction <= '0'; + else + read_direction <= '1'; + end if; + end if; + length_counter <= length_counter + 1; + else + if output_counter(0) = '1' then + read_direction <= '0'; + else + read_direction <= '1'; + end if; + end if; + else -- not in mirror mode + if repeat_counter = 8 then + repeat_counter <= '0'&phoneme_repeat; + if length_counter = 15 then + -- will be 16 after this state + end if; + length_counter <= length_counter + 1; + end if; + end if; + + -- goto next syllable when length counter reach 16 + when X"F" => + if length_counter = 16 then + state <= next_syllable; + end if; + + when others => null; + + end case; + + when next_syllable => + + case hdiv2 is + + -- prepare for next syllable + when X"0" => + syllable_addr <= syllable_addr + 2; + phoneme_offset <= (others =>'0'); + phoneme_start <= '1'; + + -- one silent sample during syllable change + when X"4" => + output <= "00111"; + + -- terminate if last phoneme reached + when X"F" => + if last_phoneme = '1' then + state <= waiting_start; + else + state <= reading; + end if; + + when others => null; + end case; + + when others => null; + + end case; -- case state + + -- set silent final output during 2 last quarter when in mirror mode + if hdiv2 = X"6" then + if ((mirror = '1') and (output_counter(1) = '1')) or (silence = '1') then + output_sil <= "00111"; + else + output_sil <= output; + end if; + end if; + + end if; + end if; + end if; +end process; + +-- program roms +speech_rom : entity work.MoonWar_speech_rom +port map ( + addr => rom_addr(11 downto 0), + clk => clock, + data => rom_do +); + + +end architecture; \ No newline at end of file diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/build_id.tcl b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/build_id.tcl new file mode 100644 index 00000000..938515d8 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/build_id.tcl @@ -0,0 +1,35 @@ +# ================================================================================ +# +# Build ID Verilog Module Script +# Jeff Wiencrot - 8/1/2011 +# +# Generates a Verilog module that contains a timestamp, +# from the current build. These values are available from the build_date, build_time, +# physical_address, and host_name output ports of the build_id module in the build_id.v +# Verilog source file. +# +# ================================================================================ + +proc generateBuildID_Verilog {} { + + # Get the timestamp (see: http://www.altera.com/support/examples/tcl/tcl-date-time-stamp.html) + set buildDate [ clock format [ clock seconds ] -format %y%m%d ] + set buildTime [ clock format [ clock seconds ] -format %H%M%S ] + + # Create a Verilog file for output + set outputFileName "rtl/build_id.v" + set outputFile [open $outputFileName "w"] + + # Output the Verilog source + puts $outputFile "`define BUILD_DATE \"$buildDate\"" + puts $outputFile "`define BUILD_TIME \"$buildTime\"" + close $outputFile + + # Send confirmation message to the Messages window + post_message "Generated build identification Verilog module: [pwd]/$outputFileName" + post_message "Date: $buildDate" + post_message "Time: $buildTime" +} + +# Comment out this line to prevent the process from automatically executing when the file is sourced: +generateBuildID_Verilog \ No newline at end of file diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/gen_ram.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/gen_ram.vhd new file mode 100644 index 00000000..f1a95608 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/gen_ram.vhd @@ -0,0 +1,84 @@ +-- ----------------------------------------------------------------------- +-- +-- Syntiac's generic VHDL support files. +-- +-- ----------------------------------------------------------------------- +-- Copyright 2005-2008 by Peter Wendrich (pwsoft@syntiac.com) +-- http://www.syntiac.com/fpga64.html +-- +-- Modified April 2016 by Dar (darfpga@aol.fr) +-- http://darfpga.blogspot.fr +-- Remove address register when writing +-- +-- ----------------------------------------------------------------------- +-- +-- gen_rwram.vhd +-- +-- ----------------------------------------------------------------------- +-- +-- generic ram. +-- +-- ----------------------------------------------------------------------- + +library IEEE; +use IEEE.STD_LOGIC_1164.ALL; +use IEEE.numeric_std.ALL; + +-- ----------------------------------------------------------------------- + +entity gen_ram is + generic ( + dWidth : integer := 8; + aWidth : integer := 10 + ); + port ( + clk : in std_logic; + we : in std_logic; + addr : in std_logic_vector((aWidth-1) downto 0); + d : in std_logic_vector((dWidth-1) downto 0); + q : out std_logic_vector((dWidth-1) downto 0) + ); +end entity; + +-- ----------------------------------------------------------------------- + +architecture rtl of gen_ram is + subtype addressRange is integer range 0 to ((2**aWidth)-1); + type ramDef is array(addressRange) of std_logic_vector((dWidth-1) downto 0); + signal ram: ramDef; + + signal rAddrReg : std_logic_vector((aWidth-1) downto 0); + signal qReg : std_logic_vector((dWidth-1) downto 0); +begin +-- ----------------------------------------------------------------------- +-- Signals to entity interface +-- ----------------------------------------------------------------------- +-- q <= qReg; + +-- ----------------------------------------------------------------------- +-- Memory write +-- ----------------------------------------------------------------------- + process(clk) + begin + if rising_edge(clk) then + if we = '1' then + ram(to_integer(unsigned(addr))) <= d; + end if; + end if; + end process; + +-- ----------------------------------------------------------------------- +-- Memory read +-- ----------------------------------------------------------------------- +process(clk) + begin + if rising_edge(clk) then +-- qReg <= ram(to_integer(unsigned(rAddrReg))); +-- rAddrReg <= addr; +---- qReg <= ram(to_integer(unsigned(addr))); + q <= ram(to_integer(unsigned(addr))); + end if; + end process; +--q <= ram(to_integer(unsigned(addr))); +end architecture; + diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/joy2quad.sv b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/joy2quad.sv new file mode 100644 index 00000000..e11b3957 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/joy2quad.sv @@ -0,0 +1,100 @@ +//============================================================================ +// joy2quad +// +// Take in digital joystick buttons, and try to estimate a quadrature encoder +// +// +// This makes an offset wave pattern for each keyboard stroke. It might +// be a good extension to change the size of the wave based on how long the joystick +// is held down. +// +// Copyright (c) 2019 Alan Steremberg - alanswx +// +// +//============================================================================ +// digital joystick button to quadrature encoder + +module joy2quad +( + input CLK, + input [31:0] clkdiv, + + input cright, + input cleft, + + output reg [4:0] steer +); + + +reg [3:0] state = 0; + +always @(posedge CLK) begin + reg [31:0] count = 0; + if (count >0) + begin + count=count-1; + end + else + begin + count=clkdiv; + casex(state) + 4'b0000: + begin + steer=5'b00000; + if (cleft==1) + begin + state=4'b0001; + end + if (cright==1) + begin + state=4'b0101; + end + + end + 4'b0001: + begin + steer=5'b00000; + state=4'b0010; + end + 4'b0010: + begin + steer=5'b10001; + state=3'b0011; + end + 4'b0011: + begin + steer=5'b11011; + state=4'b0100; + end + 4'b0100: + begin + steer=5'b01010; + state=4'b000; + end + 4'b0101: + begin + steer=5'b00000; + state=4'b0110; + end + 4'b0110: + begin + steer=5'b01010; + state=4'b0111; + end + 4'b0111: + begin + steer=5'b11011; + state=4'b1000; + end + 4'b1000: + begin + steer=5'b00001; + state=4'b0000; + + end + + endcase + end +end + +endmodule \ No newline at end of file diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/ls161.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/ls161.vhd new file mode 100644 index 00000000..7df71cbc --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/ls161.vhd @@ -0,0 +1,59 @@ +--============================================================================ +-- +-- VHDL implementation of the 74LS161 synchonous presettable 4-bit counter +-- Copyright (C) 2018, 2019 Ace +-- +-- Permission is hereby granted, free of charge, to any person obtaining a +-- copy of this software and associated documentation files (the "Software"), +-- to deal in the Software without restriction, including without limitation +-- the rights to use, copy, modify, merge, publish, distribute, sublicense, +-- and/or sell copies of the Software, and to permit persons to whom the +-- Software is furnished to do so, subject to the following conditions: +-- +-- The above copyright notice and this permission notice shall be included in +-- all copies or substantial portions of the Software. +-- +-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +-- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +-- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +-- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +-- FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER +-- DEALINGS IN THE SOFTWARE. +-- +--============================================================================ + +library ieee; +use ieee.std_logic_1164.all; +use ieee.std_logic_unsigned.all; + +entity ls161 is +port +( + n_clr : in std_logic; + clk : in std_logic; + din : in std_logic_vector(3 downto 0); + enp, ent : in std_logic; + n_load : in std_logic; + q : out std_logic_vector(3 downto 0); + rco : out std_logic +); +end ls161; + +architecture arch of ls161 is +signal data : std_logic_vector(3 downto 0) := "0000"; +begin + process(clk, n_clr, enp, ent, data) begin + if(n_clr = '0') then + data <= "0000"; + elsif(clk'event and clk = '1') then + if(n_load = '0') then + data <= din; + elsif(enp = '1' and ent = '1') then + data <= data + '1'; + end if; + end if; + end process; + q <= data; + rco <= data(0) and data(1) and data(2) and data(3) and ent; +end arch; \ No newline at end of file diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/pll.qip b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/pll.qip new file mode 100644 index 00000000..afd958be --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/pll.qip @@ -0,0 +1,4 @@ +set_global_assignment -name IP_TOOL_NAME "ALTPLL" +set_global_assignment -name IP_TOOL_VERSION "13.1" +set_global_assignment -name VERILOG_FILE [file join $::quartus(qip_path) "pll.v"] +set_global_assignment -name MISC_FILE [file join $::quartus(qip_path) "pll.ppf"] diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/pll.v b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/pll.v new file mode 100644 index 00000000..cd4fa766 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/pll.v @@ -0,0 +1,348 @@ +// megafunction wizard: %ALTPLL% +// GENERATION: STANDARD +// VERSION: WM1.0 +// MODULE: altpll + +// ============================================================ +// File Name: pll.v +// Megafunction Name(s): +// altpll +// +// Simulation Library Files(s): +// altera_mf +// ============================================================ +// ************************************************************ +// THIS IS A WIZARD-GENERATED FILE. DO NOT EDIT THIS FILE! +// +// 13.1.4 Build 182 03/12/2014 SJ Web Edition +// ************************************************************ + + +//Copyright (C) 1991-2014 Altera Corporation +//Your use of Altera Corporation's design tools, logic functions +//and other software and tools, and its AMPP partner logic +//functions, and any output files from any of the foregoing +//(including device programming or simulation files), and any +//associated documentation or information are expressly subject +//to the terms and conditions of the Altera Program License +//Subscription Agreement, Altera MegaCore Function License +//Agreement, or other applicable license agreement, including, +//without limitation, that your use is for the sole purpose of +//programming logic devices manufactured by Altera and sold by +//Altera or its authorized distributors. Please refer to the +//applicable agreement for further details. + + +// synopsys translate_off +`timescale 1 ps / 1 ps +// synopsys translate_on +module pll ( + areset, + inclk0, + c0, + c1, + locked); + + input areset; + input inclk0; + output c0; + output c1; + output locked; +`ifndef ALTERA_RESERVED_QIS +// synopsys translate_off +`endif + tri0 areset; +`ifndef ALTERA_RESERVED_QIS +// synopsys translate_on +`endif + + wire [4:0] sub_wire0; + wire sub_wire2; + wire [0:0] sub_wire6 = 1'h0; + wire [0:0] sub_wire3 = sub_wire0[0:0]; + wire [1:1] sub_wire1 = sub_wire0[1:1]; + wire c1 = sub_wire1; + wire locked = sub_wire2; + wire c0 = sub_wire3; + wire sub_wire4 = inclk0; + wire [1:0] sub_wire5 = {sub_wire6, sub_wire4}; + + altpll altpll_component ( + .areset (areset), + .inclk (sub_wire5), + .clk (sub_wire0), + .locked (sub_wire2), + .activeclock (), + .clkbad (), + .clkena ({6{1'b1}}), + .clkloss (), + .clkswitch (1'b0), + .configupdate (1'b0), + .enable0 (), + .enable1 (), + .extclk (), + .extclkena ({4{1'b1}}), + .fbin (1'b1), + .fbmimicbidir (), + .fbout (), + .fref (), + .icdrclk (), + .pfdena (1'b1), + .phasecounterselect ({4{1'b1}}), + .phasedone (), + .phasestep (1'b1), + .phaseupdown (1'b1), + .pllena (1'b1), + .scanaclr (1'b0), + .scanclk (1'b0), + .scanclkena (1'b1), + .scandata (1'b0), + .scandataout (), + .scandone (), + .scanread (1'b0), + .scanwrite (1'b0), + .sclkout0 (), + .sclkout1 (), + .vcooverrange (), + .vcounderrange ()); + defparam + altpll_component.bandwidth_type = "AUTO", + altpll_component.clk0_divide_by = 27, + altpll_component.clk0_duty_cycle = 50, + altpll_component.clk0_multiply_by = 10, + altpll_component.clk0_phase_shift = "0", + altpll_component.clk1_divide_by = 27, + altpll_component.clk1_duty_cycle = 50, + altpll_component.clk1_multiply_by = 20, + altpll_component.clk1_phase_shift = "0", + altpll_component.compensate_clock = "CLK0", + altpll_component.inclk0_input_frequency = 37037, + altpll_component.intended_device_family = "Cyclone III", + altpll_component.lpm_hint = "CBX_MODULE_PREFIX=pll", + altpll_component.lpm_type = "altpll", + altpll_component.operation_mode = "NORMAL", + altpll_component.pll_type = "AUTO", + altpll_component.port_activeclock = "PORT_UNUSED", + altpll_component.port_areset = "PORT_USED", + altpll_component.port_clkbad0 = "PORT_UNUSED", + altpll_component.port_clkbad1 = "PORT_UNUSED", + altpll_component.port_clkloss = "PORT_UNUSED", + altpll_component.port_clkswitch = "PORT_UNUSED", + altpll_component.port_configupdate = "PORT_UNUSED", + altpll_component.port_fbin = "PORT_UNUSED", + altpll_component.port_inclk0 = "PORT_USED", + altpll_component.port_inclk1 = "PORT_UNUSED", + altpll_component.port_locked = "PORT_USED", + altpll_component.port_pfdena = "PORT_UNUSED", + altpll_component.port_phasecounterselect = "PORT_UNUSED", + altpll_component.port_phasedone = "PORT_UNUSED", + altpll_component.port_phasestep = "PORT_UNUSED", + altpll_component.port_phaseupdown = "PORT_UNUSED", + altpll_component.port_pllena = "PORT_UNUSED", + altpll_component.port_scanaclr = "PORT_UNUSED", + altpll_component.port_scanclk = "PORT_UNUSED", + altpll_component.port_scanclkena = "PORT_UNUSED", + altpll_component.port_scandata = "PORT_UNUSED", + altpll_component.port_scandataout = "PORT_UNUSED", + altpll_component.port_scandone = "PORT_UNUSED", + altpll_component.port_scanread = "PORT_UNUSED", + altpll_component.port_scanwrite = "PORT_UNUSED", + altpll_component.port_clk0 = "PORT_USED", + altpll_component.port_clk1 = "PORT_USED", + altpll_component.port_clk2 = "PORT_UNUSED", + altpll_component.port_clk3 = "PORT_UNUSED", + altpll_component.port_clk4 = "PORT_UNUSED", + altpll_component.port_clk5 = "PORT_UNUSED", + altpll_component.port_clkena0 = "PORT_UNUSED", + altpll_component.port_clkena1 = "PORT_UNUSED", + altpll_component.port_clkena2 = "PORT_UNUSED", + altpll_component.port_clkena3 = "PORT_UNUSED", + altpll_component.port_clkena4 = "PORT_UNUSED", + altpll_component.port_clkena5 = "PORT_UNUSED", + altpll_component.port_extclk0 = "PORT_UNUSED", + altpll_component.port_extclk1 = "PORT_UNUSED", + altpll_component.port_extclk2 = "PORT_UNUSED", + altpll_component.port_extclk3 = "PORT_UNUSED", + altpll_component.self_reset_on_loss_lock = "OFF", + altpll_component.width_clock = 5; + + +endmodule + +// ============================================================ +// CNX file retrieval info +// ============================================================ +// Retrieval info: PRIVATE: ACTIVECLK_CHECK STRING "0" +// Retrieval info: PRIVATE: BANDWIDTH STRING "1.000" +// Retrieval info: PRIVATE: BANDWIDTH_FEATURE_ENABLED STRING "1" +// Retrieval info: PRIVATE: BANDWIDTH_FREQ_UNIT STRING "MHz" +// Retrieval info: PRIVATE: BANDWIDTH_PRESET STRING "Low" +// Retrieval info: PRIVATE: BANDWIDTH_USE_AUTO STRING "1" +// Retrieval info: PRIVATE: BANDWIDTH_USE_PRESET STRING "0" +// Retrieval info: PRIVATE: CLKBAD_SWITCHOVER_CHECK STRING "0" +// Retrieval info: PRIVATE: CLKLOSS_CHECK STRING "0" +// Retrieval info: PRIVATE: CLKSWITCH_CHECK STRING "0" +// Retrieval info: PRIVATE: CNX_NO_COMPENSATE_RADIO STRING "0" +// Retrieval info: PRIVATE: CREATE_CLKBAD_CHECK STRING "0" +// Retrieval info: PRIVATE: CREATE_INCLK1_CHECK STRING "0" +// Retrieval info: PRIVATE: CUR_DEDICATED_CLK STRING "c0" +// Retrieval info: PRIVATE: CUR_FBIN_CLK STRING "c0" +// Retrieval info: PRIVATE: DEVICE_SPEED_GRADE STRING "8" +// Retrieval info: PRIVATE: DIV_FACTOR0 NUMERIC "27" +// Retrieval info: PRIVATE: DIV_FACTOR1 NUMERIC "27" +// Retrieval info: PRIVATE: DUTY_CYCLE0 STRING "50.00000000" +// Retrieval info: PRIVATE: DUTY_CYCLE1 STRING "50.00000000" +// Retrieval info: PRIVATE: EFF_OUTPUT_FREQ_VALUE0 STRING "10.000000" +// Retrieval info: PRIVATE: EFF_OUTPUT_FREQ_VALUE1 STRING "20.000000" +// Retrieval info: PRIVATE: EXPLICIT_SWITCHOVER_COUNTER STRING "0" +// Retrieval info: PRIVATE: EXT_FEEDBACK_RADIO STRING "0" +// Retrieval info: PRIVATE: GLOCKED_COUNTER_EDIT_CHANGED STRING "1" +// Retrieval info: PRIVATE: GLOCKED_FEATURE_ENABLED STRING "0" +// Retrieval info: PRIVATE: GLOCKED_MODE_CHECK STRING "0" +// Retrieval info: PRIVATE: GLOCK_COUNTER_EDIT NUMERIC "1048575" +// Retrieval info: PRIVATE: HAS_MANUAL_SWITCHOVER STRING "1" +// Retrieval info: PRIVATE: INCLK0_FREQ_EDIT STRING "27.000" +// Retrieval info: PRIVATE: INCLK0_FREQ_UNIT_COMBO STRING "MHz" +// Retrieval info: PRIVATE: INCLK1_FREQ_EDIT STRING "100.000" +// Retrieval info: PRIVATE: INCLK1_FREQ_EDIT_CHANGED STRING "1" +// Retrieval info: PRIVATE: INCLK1_FREQ_UNIT_CHANGED STRING "1" +// Retrieval info: PRIVATE: INCLK1_FREQ_UNIT_COMBO STRING "MHz" +// Retrieval info: PRIVATE: INTENDED_DEVICE_FAMILY STRING "Cyclone III" +// Retrieval info: PRIVATE: INT_FEEDBACK__MODE_RADIO STRING "1" +// Retrieval info: PRIVATE: LOCKED_OUTPUT_CHECK STRING "1" +// Retrieval info: PRIVATE: LONG_SCAN_RADIO STRING "1" +// Retrieval info: PRIVATE: LVDS_MODE_DATA_RATE STRING "Not Available" +// Retrieval info: PRIVATE: LVDS_MODE_DATA_RATE_DIRTY NUMERIC "0" +// Retrieval info: PRIVATE: LVDS_PHASE_SHIFT_UNIT0 STRING "deg" +// Retrieval info: PRIVATE: LVDS_PHASE_SHIFT_UNIT1 STRING "ps" +// Retrieval info: PRIVATE: MIG_DEVICE_SPEED_GRADE STRING "Any" +// Retrieval info: PRIVATE: MIRROR_CLK0 STRING "0" +// Retrieval info: PRIVATE: MIRROR_CLK1 STRING "0" +// Retrieval info: PRIVATE: MULT_FACTOR0 NUMERIC "10" +// Retrieval info: PRIVATE: MULT_FACTOR1 NUMERIC "20" +// Retrieval info: PRIVATE: NORMAL_MODE_RADIO STRING "1" +// Retrieval info: PRIVATE: OUTPUT_FREQ0 STRING "10.00000000" +// Retrieval info: PRIVATE: OUTPUT_FREQ1 STRING "20.00000000" +// Retrieval info: PRIVATE: OUTPUT_FREQ_MODE0 STRING "0" +// Retrieval info: PRIVATE: OUTPUT_FREQ_MODE1 STRING "0" +// Retrieval info: PRIVATE: OUTPUT_FREQ_UNIT0 STRING "MHz" +// Retrieval info: PRIVATE: OUTPUT_FREQ_UNIT1 STRING "MHz" +// Retrieval info: PRIVATE: PHASE_RECONFIG_FEATURE_ENABLED STRING "1" +// Retrieval info: PRIVATE: PHASE_RECONFIG_INPUTS_CHECK STRING "0" +// Retrieval info: PRIVATE: PHASE_SHIFT0 STRING "0.00000000" +// Retrieval info: PRIVATE: PHASE_SHIFT1 STRING "0.00000000" +// Retrieval info: PRIVATE: PHASE_SHIFT_STEP_ENABLED_CHECK STRING "0" +// Retrieval info: PRIVATE: PHASE_SHIFT_UNIT0 STRING "deg" +// Retrieval info: PRIVATE: PHASE_SHIFT_UNIT1 STRING "deg" +// Retrieval info: PRIVATE: PLL_ADVANCED_PARAM_CHECK STRING "0" +// Retrieval info: PRIVATE: PLL_ARESET_CHECK STRING "1" +// Retrieval info: PRIVATE: PLL_AUTOPLL_CHECK NUMERIC "1" +// Retrieval info: PRIVATE: PLL_ENHPLL_CHECK NUMERIC "0" +// Retrieval info: PRIVATE: PLL_FASTPLL_CHECK NUMERIC "0" +// Retrieval info: PRIVATE: PLL_FBMIMIC_CHECK STRING "0" +// Retrieval info: PRIVATE: PLL_LVDS_PLL_CHECK NUMERIC "0" +// Retrieval info: PRIVATE: PLL_PFDENA_CHECK STRING "0" +// Retrieval info: PRIVATE: PLL_TARGET_HARCOPY_CHECK NUMERIC "0" +// Retrieval info: PRIVATE: PRIMARY_CLK_COMBO STRING "inclk0" +// Retrieval info: PRIVATE: RECONFIG_FILE STRING "pll.mif" +// Retrieval info: PRIVATE: SACN_INPUTS_CHECK STRING "0" +// Retrieval info: PRIVATE: SCAN_FEATURE_ENABLED STRING "1" +// Retrieval info: PRIVATE: SELF_RESET_LOCK_LOSS STRING "0" +// Retrieval info: PRIVATE: SHORT_SCAN_RADIO STRING "0" +// Retrieval info: PRIVATE: SPREAD_FEATURE_ENABLED STRING "0" +// Retrieval info: PRIVATE: SPREAD_FREQ STRING "50.000" +// Retrieval info: PRIVATE: SPREAD_FREQ_UNIT STRING "KHz" +// Retrieval info: PRIVATE: SPREAD_PERCENT STRING "0.500" +// Retrieval info: PRIVATE: SPREAD_USE STRING "0" +// Retrieval info: PRIVATE: SRC_SYNCH_COMP_RADIO STRING "0" +// Retrieval info: PRIVATE: STICKY_CLK0 STRING "1" +// Retrieval info: PRIVATE: STICKY_CLK1 STRING "1" +// Retrieval info: PRIVATE: SWITCHOVER_COUNT_EDIT NUMERIC "1" +// Retrieval info: PRIVATE: SWITCHOVER_FEATURE_ENABLED STRING "1" +// Retrieval info: PRIVATE: SYNTH_WRAPPER_GEN_POSTFIX STRING "0" +// Retrieval info: PRIVATE: USE_CLK0 STRING "1" +// Retrieval info: PRIVATE: USE_CLK1 STRING "1" +// Retrieval info: PRIVATE: USE_CLKENA0 STRING "0" +// Retrieval info: PRIVATE: USE_CLKENA1 STRING "0" +// Retrieval info: PRIVATE: USE_MIL_SPEED_GRADE NUMERIC "0" +// Retrieval info: PRIVATE: ZERO_DELAY_RADIO STRING "0" +// Retrieval info: LIBRARY: altera_mf altera_mf.altera_mf_components.all +// Retrieval info: CONSTANT: BANDWIDTH_TYPE STRING "AUTO" +// Retrieval info: CONSTANT: CLK0_DIVIDE_BY NUMERIC "27" +// Retrieval info: CONSTANT: CLK0_DUTY_CYCLE NUMERIC "50" +// Retrieval info: CONSTANT: CLK0_MULTIPLY_BY NUMERIC "10" +// Retrieval info: CONSTANT: CLK0_PHASE_SHIFT STRING "0" +// Retrieval info: CONSTANT: CLK1_DIVIDE_BY NUMERIC "27" +// Retrieval info: CONSTANT: CLK1_DUTY_CYCLE NUMERIC "50" +// Retrieval info: CONSTANT: CLK1_MULTIPLY_BY NUMERIC "20" +// Retrieval info: CONSTANT: CLK1_PHASE_SHIFT STRING "0" +// Retrieval info: CONSTANT: COMPENSATE_CLOCK STRING "CLK0" +// Retrieval info: CONSTANT: INCLK0_INPUT_FREQUENCY NUMERIC "37037" +// Retrieval info: CONSTANT: INTENDED_DEVICE_FAMILY STRING "Cyclone III" +// Retrieval info: CONSTANT: LPM_TYPE STRING "altpll" +// Retrieval info: CONSTANT: OPERATION_MODE STRING "NORMAL" +// Retrieval info: CONSTANT: PLL_TYPE STRING "AUTO" +// Retrieval info: CONSTANT: PORT_ACTIVECLOCK STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_ARESET STRING "PORT_USED" +// Retrieval info: CONSTANT: PORT_CLKBAD0 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_CLKBAD1 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_CLKLOSS STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_CLKSWITCH STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_CONFIGUPDATE STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_FBIN STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_INCLK0 STRING "PORT_USED" +// Retrieval info: CONSTANT: PORT_INCLK1 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_LOCKED STRING "PORT_USED" +// Retrieval info: CONSTANT: PORT_PFDENA STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_PHASECOUNTERSELECT STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_PHASEDONE STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_PHASESTEP STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_PHASEUPDOWN STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_PLLENA STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_SCANACLR STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_SCANCLK STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_SCANCLKENA STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_SCANDATA STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_SCANDATAOUT STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_SCANDONE STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_SCANREAD STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_SCANWRITE STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_clk0 STRING "PORT_USED" +// Retrieval info: CONSTANT: PORT_clk1 STRING "PORT_USED" +// Retrieval info: CONSTANT: PORT_clk2 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_clk3 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_clk4 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_clk5 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_clkena0 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_clkena1 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_clkena2 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_clkena3 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_clkena4 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_clkena5 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_extclk0 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_extclk1 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_extclk2 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: PORT_extclk3 STRING "PORT_UNUSED" +// Retrieval info: CONSTANT: SELF_RESET_ON_LOSS_LOCK STRING "OFF" +// Retrieval info: CONSTANT: WIDTH_CLOCK NUMERIC "5" +// Retrieval info: USED_PORT: @clk 0 0 5 0 OUTPUT_CLK_EXT VCC "@clk[4..0]" +// Retrieval info: USED_PORT: areset 0 0 0 0 INPUT GND "areset" +// Retrieval info: USED_PORT: c0 0 0 0 0 OUTPUT_CLK_EXT VCC "c0" +// Retrieval info: USED_PORT: c1 0 0 0 0 OUTPUT_CLK_EXT VCC "c1" +// Retrieval info: USED_PORT: inclk0 0 0 0 0 INPUT_CLK_EXT GND "inclk0" +// Retrieval info: USED_PORT: locked 0 0 0 0 OUTPUT GND "locked" +// Retrieval info: CONNECT: @areset 0 0 0 0 areset 0 0 0 0 +// Retrieval info: CONNECT: @inclk 0 0 1 1 GND 0 0 0 0 +// Retrieval info: CONNECT: @inclk 0 0 1 0 inclk0 0 0 0 0 +// Retrieval info: CONNECT: c0 0 0 0 0 @clk 0 0 1 0 +// Retrieval info: CONNECT: c1 0 0 0 0 @clk 0 0 1 1 +// Retrieval info: CONNECT: locked 0 0 0 0 @locked 0 0 0 0 +// Retrieval info: GEN_FILE: TYPE_NORMAL pll.v TRUE +// Retrieval info: GEN_FILE: TYPE_NORMAL pll.ppf TRUE +// Retrieval info: GEN_FILE: TYPE_NORMAL pll.inc FALSE +// Retrieval info: GEN_FILE: TYPE_NORMAL pll.cmp FALSE +// Retrieval info: GEN_FILE: TYPE_NORMAL pll.bsf FALSE +// Retrieval info: GEN_FILE: TYPE_NORMAL pll_inst.v FALSE +// Retrieval info: GEN_FILE: TYPE_NORMAL pll_bb.v FALSE +// Retrieval info: LIB_FILE: altera_mf +// Retrieval info: CBX_MODULE_PREFIX: ON diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_program1.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_program1.vhd new file mode 100644 index 00000000..9a70f6c7 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_program1.vhd @@ -0,0 +1,1046 @@ +library ieee; +use ieee.std_logic_1164.all,ieee.numeric_std.all; + +entity MoonWar_program1 is +port ( + clk : in std_logic; + addr : in std_logic_vector(13 downto 0); + data : out std_logic_vector(7 downto 0) +); +end entity; + +architecture prom of MoonWar_program1 is + type rom is array(0 to 16383) of std_logic_vector(7 downto 0); + signal rom_data: rom := ( + X"00",X"F3",X"AF",X"D3",X"4D",X"ED",X"47",X"DB",X"61",X"CB",X"47",X"C2",X"00",X"02",X"DB",X"60", + X"CB",X"47",X"C2",X"65",X"06",X"DD",X"21",X"5D",X"01",X"18",X"68",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"D3",X"4D",X"F5",X"3A",X"00",X"40",X"B7",X"C2",X"1D",X"05", + X"F1",X"C3",X"0B",X"1B",X"07",X"00",X"F8",X"B9",X"00",X"01",X"00",X"00",X"0D",X"20",X"FD",X"10", + X"FB",X"DB",X"66",X"3E",X"01",X"01",X"41",X"01",X"11",X"47",X"82",X"ED",X"41",X"0D",X"ED",X"51", + X"0C",X"0C",X"ED",X"41",X"0C",X"ED",X"41",X"0C",X"0C",X"0C",X"ED",X"59",X"0E",X"51",X"3D",X"28", + X"EA",X"01",X"00",X"00",X"0D",X"20",X"FD",X"10",X"FB",X"DB",X"67",X"AF",X"D3",X"40",X"D3",X"50", + X"DD",X"E9",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"18",X"3B",X"01",X"C0",X"08",X"21",X"00",X"00",X"16",X"08",X"7E",X"09",X"AF",X"ED",X"4F",X"32", + X"00",X"10",X"15",X"20",X"F5",X"0E",X"7F",X"16",X"20",X"7B",X"E6",X"20",X"47",X"ED",X"78",X"CB", + X"0B",X"0D",X"15",X"20",X"F4",X"3E",X"80",X"01",X"57",X"80",X"ED",X"79",X"05",X"0D",X"CB",X"0F", + X"30",X"F8",X"0E",X"47",X"ED",X"79",X"0D",X"CB",X"0F",X"30",X"F9",X"18",X"C5",X"3E",X"01",X"ED", + X"47",X"AF",X"01",X"00",X"10",X"86",X"23",X"0D",X"C2",X"45",X"01",X"10",X"F8",X"FE",X"FF",X"C2", + X"55",X"01",X"1C",X"DD",X"E9",X"ED",X"57",X"A7",X"C2",X"02",X"01",X"18",X"FE",X"1E",X"00",X"21", + X"00",X"00",X"DD",X"21",X"69",X"01",X"C3",X"41",X"01",X"21",X"00",X"10",X"DD",X"21",X"73",X"01", + X"C3",X"41",X"01",X"21",X"00",X"20",X"DD",X"21",X"7D",X"01",X"C3",X"41",X"01",X"21",X"00",X"30", + X"DD",X"21",X"87",X"01",X"C3",X"41",X"01",X"21",X"00",X"C0",X"DD",X"21",X"91",X"01",X"C3",X"41", + X"01",X"DD",X"21",X"98",X"01",X"C3",X"79",X"00",X"2A",X"75",X"00",X"ED",X"4B",X"77",X"00",X"36", + X"55",X"2B",X"ED",X"A1",X"E2",X"AA",X"01",X"23",X"18",X"F5",X"16",X"AA",X"31",X"FF",X"FF",X"ED", + X"4B",X"77",X"00",X"7A",X"2F",X"AE",X"20",X"16",X"72",X"2B",X"ED",X"A1",X"EA",X"CB",X"01",X"7A", + X"FE",X"55",X"28",X"25",X"31",X"01",X"00",X"16",X"55",X"18",X"E4",X"39",X"18",X"E5",X"57",X"ED", + X"57",X"CB",X"0F",X"38",X"01",X"76",X"1E",X"12",X"7A",X"E6",X"0F",X"CA",X"02",X"01",X"1D",X"7A", + X"E6",X"F0",X"CA",X"02",X"01",X"1D",X"C3",X"02",X"01",X"ED",X"57",X"CB",X"0F",X"1E",X"20",X"D2", + X"B1",X"02",X"C3",X"02",X"01",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"01",X"48",X"10",X"ED",X"78",X"0C",X"ED",X"78",X"0C",X"ED",X"78",X"0C",X"0C",X"ED",X"78",X"0C", + X"ED",X"78",X"0C",X"ED",X"78",X"0C",X"3E",X"01",X"ED",X"79",X"01",X"48",X"00",X"ED",X"78",X"0C", + X"ED",X"78",X"0C",X"ED",X"78",X"21",X"00",X"50",X"11",X"00",X"70",X"06",X"10",X"78",X"3D",X"D3", + X"4B",X"3E",X"80",X"77",X"12",X"4E",X"CB",X"0F",X"30",X"F9",X"AF",X"DB",X"4E",X"3E",X"08",X"32", + X"00",X"50",X"32",X"00",X"70",X"AF",X"DB",X"4E",X"23",X"13",X"10",X"E1",X"06",X"0D",X"11",X"00", + X"A0",X"21",X"FE",X"5F",X"3E",X"80",X"25",X"77",X"4E",X"24",X"37",X"CB",X"15",X"CB",X"14",X"19", + X"CB",X"0F",X"10",X"F2",X"21",X"11",X"11",X"11",X"11",X"11",X"31",X"00",X"88",X"0E",X"10",X"06", + X"10",X"E5",X"E5",X"E5",X"E5",X"10",X"FA",X"19",X"F1",X"3B",X"3B",X"0D",X"20",X"F1",X"DB",X"4C", + X"AF",X"DB",X"4E",X"AF",X"DB",X"61",X"E6",X"02",X"28",X"FE",X"21",X"00",X"50",X"11",X"00",X"70", + X"3E",X"F0",X"ED",X"47",X"01",X"4B",X"00",X"ED",X"57",X"ED",X"79",X"0E",X"00",X"79",X"70",X"12", + X"48",X"2F",X"46",X"47",X"B1",X"20",X"F6",X"ED",X"57",X"D6",X"10",X"ED",X"47",X"20",X"E5",X"18", + X"FE",X"DD",X"21",X"B8",X"02",X"C3",X"79",X"00",X"21",X"FF",X"5F",X"11",X"00",X"00",X"DD",X"21", + X"C5",X"02",X"C3",X"95",X"03",X"01",X"00",X"00",X"21",X"00",X"40",X"DD",X"21",X"D2",X"02",X"C3", + X"76",X"03",X"21",X"00",X"40",X"11",X"55",X"00",X"DD",X"21",X"DF",X"02",X"C3",X"95",X"03",X"21", + X"FF",X"5F",X"11",X"AA",X"55",X"DD",X"21",X"EC",X"02",X"C3",X"95",X"03",X"21",X"00",X"40",X"11", + X"FF",X"AA",X"DD",X"21",X"F9",X"02",X"C3",X"95",X"03",X"21",X"FF",X"5F",X"11",X"00",X"FF",X"DD", + X"21",X"06",X"03",X"C3",X"95",X"03",X"79",X"B0",X"C2",X"C1",X"03",X"DD",X"21",X"12",X"03",X"C3", + X"79",X"00",X"21",X"FF",X"87",X"11",X"00",X"00",X"DD",X"21",X"1F",X"03",X"C3",X"95",X"03",X"01", + X"00",X"00",X"21",X"00",X"80",X"DD",X"21",X"2C",X"03",X"C3",X"76",X"03",X"21",X"00",X"84",X"DD", + X"21",X"36",X"03",X"C3",X"76",X"03",X"21",X"00",X"80",X"11",X"55",X"00",X"DD",X"21",X"43",X"03", + X"C3",X"8F",X"03",X"21",X"FF",X"87",X"11",X"AA",X"55",X"DD",X"21",X"50",X"03",X"C3",X"8F",X"03", + X"21",X"00",X"80",X"11",X"FF",X"AA",X"DD",X"21",X"5D",X"03",X"C3",X"8F",X"03",X"21",X"FF",X"87", + X"11",X"00",X"FF",X"DD",X"21",X"6A",X"03",X"C3",X"8F",X"03",X"79",X"B0",X"C2",X"6C",X"03",X"DD", + X"21",X"42",X"04",X"C3",X"79",X"00",X"16",X"00",X"72",X"7E",X"AA",X"B0",X"47",X"23",X"72",X"7E", + X"AA",X"B1",X"4F",X"2B",X"15",X"C2",X"78",X"03",X"36",X"00",X"23",X"36",X"00",X"DD",X"E9",X"D9", + X"01",X"00",X"08",X"18",X"04",X"D9",X"01",X"00",X"20",X"D9",X"7E",X"AA",X"B0",X"47",X"73",X"7E", + X"AB",X"B0",X"47",X"CB",X"43",X"C2",X"AA",X"03",X"2B",X"3E",X"23",X"78",X"41",X"4F",X"D9",X"0D", + X"C2",X"B7",X"03",X"05",X"CA",X"BB",X"03",X"D9",X"C3",X"9A",X"03",X"D9",X"78",X"41",X"4F",X"DD", + X"E9",X"21",X"22",X"04",X"11",X"01",X"00",X"78",X"A2",X"C2",X"E8",X"03",X"79",X"A3",X"C3",X"E8", + X"03",X"EB",X"29",X"EB",X"D2",X"C7",X"03",X"11",X"00",X"40",X"1D",X"FD",X"7E",X"00",X"C2",X"DA", + X"03",X"15",X"C2",X"DA",X"03",X"C3",X"B8",X"02",X"08",X"7E",X"23",X"D9",X"6F",X"D9",X"7E",X"23", + X"D9",X"67",X"11",X"1F",X"00",X"06",X"03",X"08",X"B7",X"28",X"07",X"36",X"FC",X"23",X"36",X"3F", + X"18",X"05",X"36",X"84",X"23",X"36",X"21",X"19",X"10",X"EE",X"06",X"24",X"B7",X"28",X"07",X"36", + X"FF",X"23",X"36",X"FF",X"18",X"05",X"36",X"80",X"23",X"36",X"01",X"19",X"10",X"EE",X"D9",X"C3", + X"D1",X"03",X"8D",X"50",X"4D",X"4A",X"0D",X"44",X"CD",X"56",X"15",X"44",X"55",X"4A",X"95",X"50", + X"D5",X"56",X"89",X"50",X"49",X"4A",X"09",X"44",X"C9",X"56",X"11",X"44",X"51",X"4A",X"91",X"50", + X"D1",X"56",X"21",X"00",X"60",X"16",X"01",X"42",X"AF",X"4F",X"5F",X"ED",X"47",X"ED",X"57",X"D3", + X"4B",X"36",X"FF",X"72",X"36",X"00",X"7E",X"BB",X"20",X"FE",X"ED",X"57",X"3C",X"ED",X"47",X"FE", + X"10",X"20",X"0B",X"CB",X"12",X"30",X"E0",X"DD",X"21",X"87",X"04",X"C3",X"79",X"00",X"79",X"CB", + X"1F",X"CB",X"18",X"CB",X"19",X"59",X"ED",X"57",X"FE",X"08",X"38",X"D1",X"3E",X"08",X"CB",X"08", + X"CB",X"13",X"3D",X"20",X"F9",X"18",X"C6",X"1E",X"00",X"DD",X"21",X"CA",X"04",X"21",X"00",X"60", + X"01",X"01",X"01",X"7B",X"D3",X"4B",X"78",X"32",X"00",X"40",X"71",X"79",X"DD",X"E9",X"AE",X"20", + X"FE",X"77",X"78",X"A1",X"28",X"02",X"3E",X"80",X"57",X"DB",X"4E",X"AA",X"17",X"38",X"FE",X"CB", + X"00",X"30",X"E0",X"CB",X"01",X"30",X"DC",X"DD",X"23",X"DD",X"23",X"DD",X"23",X"3E",X"10",X"83", + X"5F",X"30",X"D0",X"DD",X"21",X"FA",X"04",X"C3",X"79",X"00",X"00",X"18",X"D1",X"B0",X"18",X"CE", + X"2F",X"18",X"18",X"AF",X"18",X"21",X"A0",X"18",X"C5",X"78",X"18",X"C2",X"A8",X"18",X"18",X"2F", + X"18",X"EB",X"2F",X"18",X"0F",X"A8",X"18",X"B6",X"78",X"18",X"0C",X"A0",X"18",X"09",X"AF",X"18", + X"AD",X"2F",X"18",X"E2",X"B0",X"18",X"00",X"2F",X"18",X"A4",X"ED",X"5E",X"3E",X"07",X"ED",X"47", + X"DD",X"21",X"85",X"1A",X"3E",X"FF",X"D3",X"4F",X"47",X"31",X"FF",X"43",X"DB",X"4E",X"1F",X"CB", + X"10",X"78",X"EE",X"55",X"28",X"03",X"FB",X"18",X"FE",X"D3",X"4F",X"06",X"FF",X"31",X"FF",X"43", + X"DB",X"4D",X"DB",X"4E",X"1F",X"CB",X"10",X"78",X"EE",X"20",X"CA",X"79",X"00",X"DB",X"4C",X"18", + X"FE",X"AF",X"D3",X"4F",X"DB",X"4E",X"31",X"40",X"40",X"DB",X"65",X"CB",X"7F",X"20",X"FA",X"CD", + X"65",X"1E",X"CD",X"DE",X"CB",X"F3",X"21",X"F8",X"05",X"7E",X"B7",X"CA",X"85",X"1A",X"CD",X"C6", + X"05",X"06",X"00",X"11",X"00",X"CF",X"CD",X"E4",X"05",X"CD",X"C6",X"05",X"E5",X"5E",X"23",X"56", + X"23",X"46",X"23",X"E5",X"21",X"00",X"00",X"E5",X"E5",X"E5",X"39",X"CD",X"9F",X"05",X"11",X"CF", + X"00",X"CD",X"B9",X"05",X"E1",X"E1",X"E1",X"E1",X"E3",X"DB",X"65",X"CB",X"7F",X"20",X"16",X"DB", + X"48",X"CB",X"7F",X"20",X"F4",X"E5",X"5E",X"23",X"56",X"23",X"46",X"AF",X"12",X"13",X"10",X"FC", + X"E1",X"D1",X"C3",X"5C",X"05",X"E1",X"DB",X"65",X"CB",X"7F",X"20",X"FA",X"C3",X"49",X"05",X"E5", + X"D5",X"C5",X"1A",X"13",X"E6",X"F0",X"4F",X"1A",X"13",X"07",X"07",X"07",X"07",X"E6",X"0F",X"B1", + X"77",X"23",X"05",X"10",X"ED",X"C1",X"D1",X"E1",X"C9",X"C5",X"D5",X"E5",X"53",X"1E",X"00",X"CD", + X"A0",X"2F",X"E1",X"D1",X"C1",X"C9",X"C5",X"D5",X"E5",X"01",X"C0",X"19",X"11",X"00",X"44",X"21", + X"00",X"46",X"ED",X"B0",X"01",X"00",X"02",X"AF",X"12",X"13",X"0D",X"C2",X"D8",X"05",X"10",X"F8", + X"E1",X"D1",X"C1",X"C9",X"EB",X"CD",X"68",X"2F",X"EB",X"4E",X"CD",X"EE",X"2F",X"13",X"23",X"47", + X"7E",X"B7",X"78",X"C2",X"E9",X"05",X"23",X"C9",X"43",X"72",X"65",X"64",X"69",X"74",X"73",X"00", + X"BA",X"F8",X"02",X"43",X"68",X"75",X"74",X"65",X"20",X"31",X"00",X"BC",X"F8",X"08",X"43",X"68", + X"75",X"74",X"65",X"20",X"32",X"00",X"C4",X"F8",X"08",X"43",X"68",X"75",X"74",X"65",X"20",X"33", + X"00",X"CC",X"F8",X"08",X"50",X"6C",X"61",X"79",X"73",X"00",X"D4",X"F8",X"06",X"54",X"6F",X"74", + X"61",X"6C",X"20",X"53",X"63",X"6F",X"72",X"65",X"00",X"DA",X"F8",X"0C",X"54",X"6F",X"74",X"61", + X"6C",X"20",X"53",X"65",X"63",X"6F",X"6E",X"64",X"73",X"20",X"6F",X"66",X"20",X"50",X"6C",X"61", + X"79",X"00",X"E6",X"F8",X"0C",X"48",X"69",X"67",X"68",X"20",X"53",X"63",X"6F",X"72",X"65",X"73", + X"00",X"F2",X"F8",X"06",X"00",X"31",X"86",X"F8",X"CD",X"65",X"1E",X"CD",X"99",X"CB",X"21",X"ED", + X"06",X"11",X"20",X"00",X"CD",X"C5",X"06",X"11",X"20",X"80",X"CD",X"C5",X"06",X"11",X"08",X"10", + X"CD",X"C5",X"06",X"11",X"10",X"D0",X"CD",X"C5",X"06",X"21",X"A0",X"47",X"CD",X"5C",X"1E",X"21", + X"A0",X"55",X"CD",X"5C",X"1E",X"11",X"08",X"20",X"DB",X"61",X"CD",X"CB",X"06",X"DB",X"60",X"CD", + X"CB",X"06",X"DB",X"62",X"CD",X"CB",X"06",X"DB",X"63",X"CD",X"CB",X"06",X"DB",X"64",X"CD",X"CB", + X"06",X"11",X"08",X"90",X"DB",X"48",X"CD",X"CA",X"06",X"DB",X"49",X"CD",X"CA",X"06",X"DB",X"4A", + X"CD",X"CA",X"06",X"18",X"D0",X"06",X"00",X"C3",X"E4",X"05",X"2F",X"0E",X"08",X"21",X"35",X"07", + X"1F",X"38",X"03",X"21",X"37",X"07",X"F5",X"D5",X"C5",X"CD",X"C5",X"06",X"C1",X"D1",X"F1",X"21", + X"20",X"00",X"19",X"EB",X"0D",X"20",X"E6",X"21",X"00",X"0F",X"19",X"EB",X"C9",X"5A",X"50",X"55", + X"20",X"44",X"49",X"50",X"20",X"53",X"57",X"49",X"54",X"43",X"48",X"45",X"53",X"00",X"56",X"46", + X"42",X"20",X"53",X"57",X"49",X"54",X"43",X"48",X"45",X"53",X"00",X"31",X"20",X"20",X"20",X"32", + X"20",X"20",X"20",X"33",X"20",X"20",X"20",X"34",X"20",X"20",X"20",X"35",X"20",X"20",X"20",X"36", + X"20",X"20",X"20",X"37",X"20",X"20",X"20",X"38",X"00",X"30",X"3D",X"4F",X"46",X"46",X"20",X"20", + X"7F",X"3D",X"4F",X"4E",X"00",X"7F",X"00",X"30",X"00",X"78",X"21",X"00",X"44",X"54",X"5D",X"36", + X"01",X"23",X"73",X"23",X"01",X"FD",X"1B",X"EB",X"ED",X"B0",X"21",X"00",X"45",X"54",X"5D",X"06", + X"20",X"36",X"FF",X"23",X"10",X"FB",X"01",X"80",X"02",X"09",X"EB",X"01",X"7F",X"18",X"ED",X"B0", + X"CD",X"99",X"CB",X"CD",X"86",X"07",X"21",X"00",X"44",X"11",X"01",X"44",X"01",X"FF",X"1B",X"36", + X"FF",X"ED",X"B0",X"21",X"00",X"81",X"11",X"01",X"81",X"01",X"FF",X"06",X"36",X"11",X"ED",X"B0", + X"CD",X"86",X"07",X"C3",X"3A",X"07",X"DB",X"49",X"CB",X"47",X"20",X"FA",X"DB",X"49",X"CB",X"47", + X"28",X"FA",X"C9",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"09",X"05",X"17",X"05", + X"00",X"9D",X"12",X"5C",X"08",X"CD",X"13",X"01",X"48",X"08",X"5C",X"08",X"CD",X"13",X"02",X"D1", + X"15",X"5C",X"08",X"CD",X"13",X"03",X"6F",X"14",X"C8",X"19",X"66",X"1A",X"04",X"72",X"08",X"5C", + X"08",X"CD",X"13",X"05",X"79",X"15",X"5C",X"08",X"CD",X"13",X"06",X"A9",X"15",X"C8",X"19",X"66", + X"1A",X"07",X"13",X"15",X"5C",X"08",X"CD",X"13",X"08",X"86",X"10",X"BA",X"10",X"5E",X"12",X"09", + X"D0",X"13",X"5C",X"08",X"CD",X"13",X"FF",X"FF",X"2C",X"13",X"2C",X"13",X"37",X"13",X"37",X"13", + X"4C",X"13",X"4C",X"13",X"41",X"13",X"41",X"13",X"00",X"00",X"48",X"08",X"57",X"13",X"6D",X"13", + X"57",X"13",X"6D",X"13",X"81",X"13",X"97",X"13",X"B1",X"13",X"B1",X"13",X"CD",X"13",X"00",X"00", + X"6C",X"08",X"34",X"14",X"38",X"14",X"3D",X"14",X"43",X"14",X"4A",X"14",X"52",X"14",X"65",X"14", + X"65",X"14",X"00",X"00",X"7E",X"08",X"02",X"0F",X"04",X"40",X"0C",X"60",X"14",X"50",X"24",X"48", + X"44",X"44",X"84",X"42",X"84",X"42",X"FC",X"7E",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"06",X"00",X"0A",X"20",X"12",X"30",X"24",X"48", + X"44",X"44",X"84",X"42",X"84",X"42",X"7C",X"7A",X"00",X"06",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"06",X"00",X"0A",X"20",X"12",X"30",X"22",X"28", + X"42",X"24",X"84",X"42",X"FC",X"42",X"00",X"42",X"00",X"3E",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"00",X"09",X"20",X"12",X"30",X"22",X"28", + X"42",X"24",X"82",X"22",X"7C",X"42",X"00",X"42",X"00",X"7A",X"00",X"06",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"80",X"08",X"80",X"11",X"10",X"21",X"18", + X"42",X"24",X"62",X"22",X"1C",X"42",X"00",X"42",X"00",X"42",X"00",X"32",X"00",X"0C",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"40",X"10",X"80",X"21",X"08", + X"42",X"14",X"32",X"22",X"0C",X"22",X"00",X"42",X"00",X"62",X"00",X"12",X"00",X"0C",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"40",X"10",X"80",X"21",X"08", + X"22",X"14",X"1A",X"12",X"04",X"22",X"00",X"42",X"00",X"42",X"00",X"22",X"00",X"14",X"00",X"08", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"40",X"10",X"40",X"20",X"80", + X"11",X"0C",X"0A",X"12",X"04",X"22",X"00",X"42",X"00",X"42",X"00",X"42",X"00",X"24",X"00",X"18", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"10",X"40",X"10",X"80", + X"09",X"04",X"06",X"0A",X"00",X"12",X"00",X"22",X"00",X"42",X"00",X"42",X"00",X"24",X"00",X"18", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"10",X"20",X"10",X"40", + X"08",X"84",X"07",X"0A",X"00",X"12",X"00",X"22",X"00",X"42",X"00",X"82",X"00",X"44",X"00",X"28", + X"00",X"10",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"08",X"10",X"08",X"20", + X"04",X"C0",X"05",X"06",X"02",X"1A",X"00",X"22",X"00",X"42",X"00",X"82",X"00",X"44",X"00",X"28", + X"00",X"10",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"08",X"10",X"04",X"20", + X"04",X"C0",X"03",X"06",X"02",X"0A",X"00",X"32",X"00",X"42",X"00",X"82",X"00",X"84",X"00",X"48", + X"00",X"30",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"04",X"10",X"04",X"18", + X"02",X"E0",X"03",X"00",X"00",X"06",X"00",X"1A",X"00",X"72",X"00",X"82",X"00",X"84",X"00",X"48", + X"00",X"50",X"00",X"60",X"00",X"00",X"02",X"0F",X"07",X"C0",X"04",X"20",X"02",X"10",X"02",X"18", + X"02",X"60",X"03",X"80",X"00",X"00",X"00",X"0E",X"00",X"32",X"00",X"C2",X"00",X"84",X"00",X"88", + X"00",X"90",X"00",X"60",X"00",X"40",X"02",X"0F",X"03",X"C0",X"02",X"20",X"02",X"10",X"02",X"08", + X"02",X"3C",X"01",X"C0",X"00",X"00",X"00",X"00",X"00",X"3E",X"00",X"C2",X"00",X"84",X"00",X"88", + X"00",X"90",X"00",X"A0",X"00",X"C0",X"02",X"0F",X"03",X"C0",X"02",X"20",X"01",X"10",X"01",X"08", + X"01",X"3C",X"01",X"C0",X"00",X"00",X"00",X"00",X"00",X"1E",X"01",X"E2",X"01",X"04",X"01",X"08", + X"01",X"10",X"00",X"A0",X"00",X"C0",X"02",X"0F",X"01",X"C0",X"01",X"20",X"01",X"10",X"01",X"08", + X"01",X"04",X"01",X"FE",X"00",X"00",X"00",X"00",X"00",X"00",X"01",X"FE",X"01",X"04",X"01",X"08", + X"01",X"10",X"01",X"20",X"01",X"C0",X"02",X"0F",X"00",X"C0",X"00",X"A0",X"01",X"10",X"01",X"08", + X"01",X"04",X"01",X"E2",X"00",X"1E",X"00",X"00",X"00",X"00",X"01",X"E0",X"01",X"1C",X"02",X"08", + X"02",X"10",X"02",X"20",X"03",X"C0",X"02",X"0F",X"00",X"C0",X"00",X"A0",X"00",X"90",X"00",X"88", + X"00",X"84",X"00",X"C2",X"00",X"3E",X"00",X"00",X"00",X"00",X"01",X"C0",X"02",X"3C",X"02",X"08", + X"02",X"10",X"02",X"20",X"03",X"C0",X"02",X"0F",X"00",X"40",X"00",X"A0",X"00",X"90",X"00",X"88", + X"00",X"84",X"00",X"C2",X"00",X"72",X"00",X"0E",X"00",X"00",X"03",X"80",X"02",X"70",X"02",X"08", + X"02",X"10",X"04",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"30",X"00",X"48",X"00",X"44", + X"00",X"82",X"00",X"82",X"00",X"62",X"00",X"1A",X"00",X"06",X"01",X"00",X"02",X"E0",X"04",X"18", + X"04",X"10",X"08",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"20",X"00",X"50",X"00",X"48", + X"00",X"84",X"00",X"82",X"00",X"62",X"00",X"12",X"00",X"0A",X"03",X"06",X"04",X"C0",X"04",X"20", + X"08",X"10",X"08",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"10",X"00",X"28", + X"00",X"44",X"00",X"82",X"00",X"62",X"00",X"12",X"00",X"0A",X"03",X"06",X"04",X"80",X"08",X"60", + X"08",X"10",X"08",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"10",X"00",X"28", + X"00",X"44",X"00",X"82",X"00",X"42",X"00",X"22",X"00",X"12",X"07",X"0E",X"09",X"80",X"08",X"40", + X"10",X"20",X"10",X"20",X"0F",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"08", + X"00",X"34",X"00",X"42",X"00",X"42",X"00",X"22",X"00",X"12",X"06",X"0A",X"09",X"04",X"10",X"80", + X"10",X"40",X"08",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"08", + X"00",X"34",X"00",X"42",X"00",X"82",X"00",X"42",X"04",X"22",X"0A",X"12",X"11",X"0C",X"20",X"80", + X"10",X"40",X"08",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"08", + X"00",X"14",X"00",X"22",X"00",X"42",X"00",X"42",X"04",X"22",X"0A",X"12",X"31",X"14",X"20",X"88", + X"10",X"80",X"08",X"40",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"0C",X"00",X"12",X"00",X"62",X"00",X"42",X"0C",X"22",X"32",X"22",X"42",X"14",X"21",X"08", + X"10",X"80",X"08",X"40",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"04",X"00",X"1A",X"00",X"62",X"00",X"42",X"1C",X"22",X"62",X"22",X"42",X"24",X"21",X"18", + X"11",X"10",X"09",X"00",X"07",X"00",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"0E",X"00",X"32",X"00",X"42",X"3C",X"42",X"42",X"22",X"42",X"24",X"22",X"28", + X"11",X"10",X"09",X"00",X"07",X"00",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"3E",X"00",X"42",X"FC",X"42",X"84",X"42",X"42",X"24",X"22",X"28", + X"12",X"30",X"0A",X"20",X"06",X"00",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"06",X"3C",X"7A",X"C4",X"42",X"84",X"42",X"44",X"44",X"24",X"48", + X"14",X"50",X"0C",X"60",X"04",X"00",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"FC",X"7E",X"84",X"42",X"84",X"42",X"44",X"44",X"24",X"48", + X"14",X"50",X"0C",X"60",X"04",X"40",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"C0",X"00",X"BC",X"7E",X"84",X"42",X"84",X"42",X"44",X"44",X"24",X"48", + X"14",X"90",X"08",X"A0",X"00",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"F8",X"00",X"84",X"00",X"84",X"7E",X"84",X"42",X"48",X"84",X"28",X"88", + X"18",X"90",X"08",X"A0",X"00",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"40",X"00",X"B8",X"00",X"84",X"00",X"84",X"70",X"88",X"8C",X"48",X"84",X"28",X"88", + X"11",X"10",X"01",X"20",X"01",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"40",X"00",X"B0",X"00",X"8C",X"00",X"84",X"00",X"88",X"60",X"88",X"98",X"48",X"84",X"31",X"08", + X"11",X"10",X"02",X"20",X"03",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"60",X"00",X"90",X"00",X"88",X"00",X"84",X"00",X"88",X"60",X"88",X"90",X"50",X"88",X"21",X"08", + X"02",X"10",X"02",X"20",X"03",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"70",X"00",X"8C",X"00",X"84",X"00",X"84",X"00",X"88",X"40",X"90",X"B0",X"50",X"88",X"21",X"08", + X"02",X"10",X"04",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"20",X"00", + X"58",X"00",X"84",X"00",X"84",X"00",X"84",X"00",X"88",X"00",X"90",X"E0",X"61",X"10",X"02",X"08", + X"04",X"10",X"04",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"00",X"00",X"30",X"00", + X"48",X"00",X"84",X"00",X"84",X"00",X"88",X"00",X"90",X"00",X"A0",X"C0",X"41",X"20",X"02",X"10", + X"04",X"10",X"08",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"10",X"00",X"28",X"00", + X"48",X"00",X"84",X"00",X"84",X"00",X"88",X"00",X"90",X"00",X"E1",X"C0",X"02",X"20",X"04",X"10", + X"08",X"10",X"08",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"00",X"00",X"10",X"00",X"28",X"00", + X"44",X"00",X"84",X"00",X"88",X"00",X"90",X"00",X"A0",X"00",X"C1",X"80",X"02",X"40",X"0C",X"20", + X"10",X"20",X"08",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"08",X"00",X"14",X"00",X"24",X"00", + X"42",X"00",X"82",X"00",X"8C",X"00",X"90",X"00",X"A0",X"00",X"C1",X"80",X"06",X"40",X"08",X"40", + X"10",X"20",X"08",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"08",X"00",X"14",X"00",X"24",X"00", + X"42",X"00",X"82",X"00",X"8C",X"00",X"B0",X"00",X"C0",X"00",X"01",X"80",X"1E",X"40",X"20",X"40", + X"10",X"40",X"08",X"20",X"07",X"C0",X"02",X"0F",X"00",X"00",X"0C",X"00",X"12",X"00",X"22",X"00", + X"42",X"00",X"86",X"00",X"98",X"00",X"E0",X"00",X"00",X"00",X"03",X"00",X"1C",X"80",X"20",X"80", + X"10",X"40",X"08",X"40",X"07",X"C0",X"02",X"0F",X"06",X"00",X"0A",X"00",X"12",X"00",X"22",X"00", + X"42",X"00",X"86",X"00",X"F8",X"00",X"00",X"00",X"00",X"00",X"07",X"00",X"78",X"80",X"20",X"80", + X"10",X"80",X"08",X"80",X"07",X"80",X"02",X"0F",X"06",X"00",X"0A",X"00",X"11",X"00",X"21",X"00", + X"41",X"00",X"FF",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"FF",X"00",X"41",X"00",X"21",X"00", + X"11",X"00",X"08",X"80",X"07",X"80",X"02",X"0F",X"07",X"00",X"09",X"00",X"11",X"00",X"21",X"00", + X"41",X"00",X"FF",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"FF",X"00",X"41",X"00",X"21",X"00", + X"11",X"00",X"09",X"00",X"07",X"00",X"02",X"0F",X"07",X"80",X"08",X"80",X"11",X"00",X"21",X"00", + X"41",X"00",X"FF",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"FF",X"00",X"41",X"00",X"21",X"00", + X"11",X"00",X"0A",X"00",X"06",X"00",X"02",X"0F",X"07",X"80",X"08",X"80",X"10",X"80",X"20",X"80", + X"78",X"80",X"07",X"00",X"00",X"00",X"00",X"00",X"F8",X"00",X"86",X"00",X"42",X"00",X"22",X"00", + X"12",X"00",X"0A",X"00",X"06",X"00",X"02",X"0F",X"07",X"80",X"08",X"80",X"10",X"80",X"20",X"80", + X"1C",X"80",X"03",X"80",X"00",X"00",X"E0",X"00",X"98",X"00",X"84",X"00",X"42",X"00",X"22",X"00", + X"12",X"00",X"0A",X"00",X"04",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"10",X"40",X"38",X"40", + X"06",X"80",X"01",X"00",X"C0",X"00",X"B0",X"00",X"8C",X"00",X"82",X"00",X"42",X"00",X"24",X"00", + X"14",X"00",X"0C",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"10",X"20",X"08",X"40", + X"06",X"80",X"C1",X"00",X"A0",X"00",X"90",X"00",X"8C",X"00",X"82",X"00",X"42",X"00",X"24",X"00", + X"18",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"10",X"20",X"0C",X"20", + X"02",X"40",X"C1",X"C0",X"A0",X"00",X"90",X"00",X"8C",X"00",X"82",X"00",X"42",X"00",X"2C",X"00", + X"10",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"08",X"10",X"04",X"20", + X"02",X"20",X"E1",X"C0",X"90",X"00",X"88",X"00",X"84",X"00",X"82",X"00",X"44",X"00",X"28",X"00", + X"10",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"04",X"10",X"02",X"10", + X"41",X"20",X"A0",X"C0",X"90",X"00",X"88",X"00",X"84",X"00",X"84",X"00",X"48",X"00",X"30",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"08",X"20",X"04",X"10",X"02",X"08", + X"61",X"30",X"90",X"C0",X"88",X"00",X"84",X"00",X"82",X"00",X"84",X"00",X"58",X"00",X"20",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"07",X"C0",X"04",X"20",X"02",X"10",X"21",X"08", + X"51",X"10",X"90",X"A0",X"88",X"40",X"84",X"00",X"84",X"00",X"88",X"00",X"70",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"03",X"C0",X"02",X"20",X"02",X"10",X"21",X"08", + X"51",X"08",X"88",X"90",X"88",X"60",X"84",X"00",X"84",X"00",X"98",X"00",X"60",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"01",X"C0",X"01",X"20",X"01",X"10",X"31",X"08", + X"48",X"84",X"88",X"9C",X"88",X"60",X"84",X"00",X"88",X"00",X"B0",X"00",X"40",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"01",X"C0",X"01",X"20",X"11",X"10",X"28",X"88", + X"48",X"84",X"88",X"84",X"84",X"78",X"84",X"00",X"B8",X"00",X"C0",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"00",X"C0",X"08",X"A0",X"18",X"90",X"28",X"88", + X"48",X"84",X"84",X"42",X"84",X"7E",X"84",X"00",X"F8",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"02",X"0F",X"00",X"40",X"0C",X"60",X"14",X"50",X"24",X"48", + X"44",X"44",X"84",X"42",X"84",X"46",X"BC",X"78",X"C0",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"FA",X"10",X"FA",X"10",X"FA",X"10",X"18",X"11",X"18",X"11", + X"18",X"11",X"36",X"11",X"36",X"11",X"36",X"11",X"18",X"11",X"18",X"11",X"18",X"11",X"FA",X"10", + X"FA",X"10",X"FA",X"10",X"54",X"11",X"54",X"11",X"54",X"11",X"72",X"11",X"72",X"11",X"72",X"11", + X"54",X"11",X"54",X"11",X"54",X"11",X"00",X"00",X"86",X"10",X"90",X"11",X"90",X"11",X"AE",X"11", + X"AE",X"11",X"CE",X"11",X"CE",X"11",X"EC",X"11",X"EC",X"11",X"0A",X"12",X"0A",X"12",X"24",X"12", + X"24",X"12",X"3E",X"12",X"3E",X"12",X"48",X"12",X"48",X"12",X"48",X"12",X"48",X"12",X"48",X"12", + X"48",X"12",X"48",X"12",X"3E",X"12",X"3E",X"12",X"3E",X"12",X"3E",X"12",X"52",X"12",X"52",X"12", + X"52",X"12",X"52",X"12",X"5E",X"12",X"00",X"00",X"BA",X"10",X"02",X"0E",X"40",X"20",X"20",X"40", + X"10",X"80",X"3F",X"C0",X"46",X"C0",X"FF",X"40",X"C1",X"40",X"D9",X"40",X"D1",X"40",X"C1",X"40", + X"FF",X"40",X"81",X"40",X"A5",X"80",X"FF",X"00",X"02",X"0E",X"42",X"00",X"22",X"00",X"12",X"00", + X"3F",X"C0",X"46",X"C0",X"FF",X"40",X"C1",X"40",X"D9",X"40",X"D1",X"40",X"C1",X"40",X"FF",X"40", + X"81",X"40",X"A5",X"80",X"FF",X"00",X"02",X"0E",X"28",X"00",X"14",X"00",X"0A",X"00",X"3F",X"C0", + X"46",X"C0",X"FF",X"40",X"C1",X"40",X"D9",X"40",X"D1",X"40",X"C1",X"40",X"FF",X"40",X"81",X"40", + X"A5",X"80",X"FF",X"00",X"02",X"0E",X"04",X"20",X"04",X"40",X"04",X"80",X"3F",X"C0",X"46",X"C0", + X"FF",X"40",X"C1",X"40",X"D9",X"40",X"D1",X"40",X"C1",X"40",X"FF",X"40",X"81",X"40",X"A5",X"80", + X"FF",X"00",X"02",X"0E",X"00",X"A0",X"01",X"40",X"02",X"80",X"3F",X"C0",X"46",X"C0",X"FF",X"40", + X"C1",X"40",X"D9",X"40",X"D1",X"40",X"C1",X"40",X"FF",X"40",X"81",X"40",X"A5",X"80",X"FF",X"00", + X"02",X"0E",X"00",X"00",X"20",X"40",X"10",X"80",X"2D",X"C0",X"46",X"C0",X"7F",X"00",X"C1",X"40", + X"D9",X"40",X"C1",X"40",X"C1",X"00",X"EF",X"40",X"81",X"40",X"A1",X"80",X"7F",X"00",X"02",X"0E", + X"00",X"00",X"00",X"00",X"00",X"00",X"21",X"00",X"17",X"00",X"4C",X"C0",X"AB",X"00",X"C0",X"40", + X"81",X"00",X"41",X"40",X"C0",X"00",X"AD",X"00",X"00",X"40",X"A4",X"80",X"E9",X"00",X"02",X"0E", + X"00",X"00",X"00",X"00",X"00",X"00",X"12",X"00",X"0C",X"00",X"2A",X"80",X"40",X"40",X"00",X"00", + X"41",X"40",X"40",X"00",X"A4",X"00",X"00",X"40",X"A5",X"00",X"54",X"00",X"02",X"0E",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"0C",X"00",X"2A",X"00",X"44",X"40",X"10",X"00",X"41",X"00", + X"50",X"00",X"24",X"00",X"12",X"40",X"00",X"00",X"04",X"00",X"02",X"0C",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"00",X"00",X"28",X"00",X"44",X"80",X"10",X"00",X"45",X"00",X"10",X"00", + X"00",X"00",X"04",X"00",X"02",X"0C",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"28",X"00",X"44",X"80",X"10",X"00",X"45",X"00",X"10",X"00",X"00",X"00",X"04",X"00",X"01",X"08", + X"00",X"00",X"00",X"00",X"00",X"00",X"30",X"30",X"01",X"08",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"10",X"01",X"0A",X"00",X"00",X"00",X"00",X"00",X"00",X"18",X"3C",X"3C",X"18",X"01",X"01", + X"00",X"01",X"0A",X"10",X"02",X"0E",X"10",X"10",X"10",X"08",X"0E",X"02",X"10",X"01",X"0A",X"10", + X"00",X"2E",X"10",X"10",X"10",X"28",X"2E",X"00",X"10",X"01",X"0A",X"10",X"00",X"6C",X"10",X"10", + X"10",X"28",X"6C",X"00",X"10",X"01",X"0A",X"10",X"00",X"E8",X"10",X"10",X"10",X"28",X"E8",X"00", + X"10",X"01",X"0A",X"10",X"80",X"E0",X"10",X"10",X"10",X"20",X"E0",X"80",X"10",X"E9",X"12",X"E9", + X"12",X"E9",X"12",X"F0",X"12",X"F0",X"12",X"F0",X"12",X"F8",X"12",X"F8",X"12",X"F8",X"12",X"01", + X"13",X"01",X"13",X"01",X"13",X"0B",X"13",X"0B",X"13",X"0B",X"13",X"15",X"13",X"15",X"13",X"15", + X"13",X"20",X"13",X"20",X"13",X"20",X"13",X"15",X"13",X"15",X"13",X"15",X"13",X"0B",X"13",X"0B", + X"13",X"0B",X"13",X"01",X"13",X"01",X"13",X"01",X"13",X"F8",X"12",X"F8",X"12",X"F8",X"12",X"F0", + X"12",X"F0",X"12",X"F0",X"12",X"00",X"00",X"9D",X"12",X"01",X"05",X"00",X"00",X"00",X"00",X"10", + X"01",X"06",X"00",X"00",X"00",X"10",X"10",X"10",X"01",X"07",X"00",X"00",X"28",X"10",X"10",X"10", + X"28",X"01",X"08",X"00",X"00",X"6C",X"10",X"10",X"10",X"28",X"44",X"01",X"08",X"00",X"82",X"EE", + X"10",X"10",X"10",X"28",X"C6",X"01",X"09",X"00",X"82",X"EE",X"10",X"10",X"10",X"28",X"C6",X"82", + X"01",X"0A",X"10",X"82",X"EE",X"10",X"10",X"10",X"28",X"C6",X"82",X"10",X"01",X"09",X"08",X"09", + X"0A",X"14",X"6B",X"14",X"28",X"48",X"08",X"01",X"08",X"00",X"41",X"2A",X"14",X"6B",X"14",X"2A", + X"41",X"01",X"09",X"08",X"48",X"28",X"14",X"6B",X"14",X"0A",X"09",X"08",X"01",X"09",X"08",X"49", + X"2A",X"14",X"2A",X"14",X"2A",X"49",X"08",X"02",X"0A",X"01",X"00",X"10",X"10",X"0C",X"60",X"03", + X"80",X"05",X"40",X"09",X"20",X"02",X"80",X"0E",X"E0",X"10",X"10",X"01",X"00",X"02",X"09",X"00", + X"00",X"30",X"18",X"80",X"20",X"03",X"90",X"11",X"10",X"09",X"20",X"10",X"10",X"0E",X"E0",X"11", + X"10",X"02",X"0A",X"00",X"00",X"08",X"08",X"13",X"84",X"01",X"00",X"01",X"00",X"20",X"42",X"10", + X"04",X"20",X"02",X"08",X"08",X"30",X"06",X"02",X"0C",X"10",X"10",X"23",X"88",X"01",X"00",X"01", + X"00",X"00",X"02",X"00",X"00",X"40",X"08",X"00",X"00",X"20",X"00",X"00",X"08",X"08",X"00",X"00", + X"20",X"02",X"0D",X"02",X"00",X"80",X"01",X"10",X"00",X"00",X"00",X"00",X"02",X"40",X"00",X"00", + X"01",X"00",X"00",X"00",X"00",X"80",X"00",X"00",X"08",X"00",X"00",X"00",X"80",X"01",X"01",X"00", + X"04",X"14",X"04",X"14",X"0D",X"14",X"0D",X"14",X"15",X"14",X"15",X"14",X"1C",X"14",X"1C",X"14", + X"23",X"14",X"23",X"14",X"2B",X"14",X"2B",X"14",X"2B",X"14",X"2B",X"14",X"23",X"14",X"23",X"14", + X"1C",X"14",X"1C",X"14",X"15",X"14",X"15",X"14",X"0D",X"14",X"0D",X"14",X"04",X"14",X"04",X"14", + X"00",X"00",X"D0",X"13",X"01",X"07",X"10",X"00",X"00",X"99",X"00",X"00",X"10",X"01",X"06",X"00", + X"10",X"00",X"54",X"00",X"10",X"01",X"05",X"00",X"00",X"10",X"38",X"10",X"01",X"05",X"00",X"00", + X"28",X"10",X"28",X"01",X"06",X"00",X"44",X"00",X"10",X"00",X"44",X"01",X"07",X"82",X"00",X"00", + X"10",X"00",X"00",X"82",X"01",X"02",X"18",X"18",X"01",X"03",X"10",X"38",X"10",X"01",X"04",X"18", + X"3C",X"3C",X"18",X"01",X"05",X"38",X"7C",X"7C",X"7C",X"38",X"01",X"06",X"3C",X"7E",X"7E",X"7E", + X"7E",X"3C",X"01",X"07",X"38",X"7C",X"FE",X"FE",X"FE",X"7C",X"38",X"01",X"08",X"3C",X"7E",X"FF", + X"FF",X"FF",X"FF",X"7E",X"3C",X"01",X"08",X"3C",X"7E",X"DB",X"FF",X"FF",X"BD",X"42",X"3C",X"8B", + X"14",X"8B",X"14",X"8B",X"14",X"8B",X"14",X"9F",X"14",X"9F",X"14",X"9F",X"14",X"9F",X"14",X"B3", + X"14",X"B3",X"14",X"B3",X"14",X"B3",X"14",X"00",X"00",X"6F",X"14",X"02",X"09",X"01",X"00",X"00", + X"00",X"01",X"00",X"13",X"90",X"28",X"28",X"40",X"04",X"B6",X"DA",X"40",X"04",X"2B",X"68",X"02", + X"09",X"00",X"00",X"00",X"00",X"01",X"00",X"13",X"90",X"28",X"28",X"40",X"04",X"9B",X"6A",X"40", + X"04",X"26",X"C8",X"02",X"09",X"00",X"00",X"01",X"00",X"00",X"00",X"13",X"90",X"28",X"28",X"40", + X"04",X"AD",X"B2",X"40",X"04",X"2D",X"A8",X"DB",X"14",X"DB",X"14",X"DB",X"14",X"DB",X"14",X"F7", + X"14",X"F7",X"14",X"F7",X"14",X"F7",X"14",X"00",X"00",X"C7",X"14",X"02",X"0D",X"02",X"00",X"04", + X"00",X"02",X"00",X"04",X"00",X"02",X"00",X"55",X"00",X"A8",X"A8",X"05",X"50",X"02",X"00",X"01", + X"00",X"02",X"00",X"01",X"00",X"02",X"00",X"02",X"0D",X"01",X"00",X"00",X"01",X"01",X"00",X"00", + X"80",X"01",X"00",X"02",X"A8",X"55",X"54",X"2A",X"80",X"01",X"00",X"02",X"00",X"01",X"00",X"02", + X"00",X"01",X"00",X"71",X"15",X"71",X"15",X"68",X"15",X"68",X"15",X"5E",X"15",X"5E",X"15",X"53", + X"15",X"53",X"15",X"3B",X"15",X"3B",X"15",X"53",X"15",X"53",X"15",X"5E",X"15",X"5E",X"15",X"68", + X"15",X"68",X"15",X"71",X"15",X"71",X"15",X"00",X"00",X"13",X"15",X"02",X"0B",X"1C",X"00",X"22", + X"00",X"41",X"00",X"80",X"80",X"80",X"80",X"80",X"80",X"80",X"80",X"80",X"80",X"41",X"00",X"22", + X"00",X"1C",X"00",X"01",X"09",X"00",X"00",X"1C",X"22",X"41",X"41",X"41",X"22",X"1C",X"01",X"08", + X"00",X"00",X"00",X"1C",X"22",X"22",X"22",X"1C",X"01",X"07",X"00",X"00",X"00",X"00",X"1C",X"14", + X"1C",X"01",X"06",X"00",X"00",X"00",X"00",X"00",X"08",X"95",X"15",X"95",X"15",X"95",X"15",X"95", + X"15",X"95",X"15",X"95",X"15",X"9F",X"15",X"9F",X"15",X"9F",X"15",X"9F",X"15",X"9F",X"15",X"9F", + X"15",X"00",X"00",X"79",X"15",X"01",X"08",X"10",X"08",X"10",X"AA",X"55",X"08",X"10",X"08",X"01", + X"08",X"08",X"10",X"08",X"55",X"AA",X"10",X"08",X"10",X"BD",X"15",X"BD",X"15",X"C2",X"15",X"C2", + X"15",X"C7",X"15",X"C7",X"15",X"CC",X"15",X"CC",X"15",X"00",X"00",X"A9",X"15",X"01",X"03",X"22", + X"57",X"8A",X"01",X"03",X"42",X"AF",X"12",X"01",X"03",X"8A",X"57",X"22",X"01",X"03",X"12",X"AF", + X"42",X"05",X"16",X"05",X"16",X"10",X"16",X"10",X"16",X"1B",X"16",X"1B",X"16",X"26",X"16",X"26", + X"16",X"31",X"16",X"31",X"16",X"3C",X"16",X"3C",X"16",X"46",X"16",X"46",X"16",X"4F",X"16",X"4F", + X"16",X"59",X"16",X"59",X"16",X"64",X"16",X"64",X"16",X"6F",X"16",X"6F",X"16",X"7A",X"16",X"7A", + X"16",X"00",X"00",X"D1",X"15",X"01",X"09",X"FF",X"81",X"81",X"81",X"81",X"81",X"81",X"81",X"FF", + X"01",X"09",X"7F",X"C1",X"81",X"81",X"81",X"81",X"81",X"83",X"FE",X"01",X"09",X"3F",X"21",X"E1", + X"81",X"81",X"81",X"87",X"84",X"FC",X"01",X"09",X"1F",X"11",X"11",X"F1",X"81",X"8F",X"88",X"88", + X"F8",X"01",X"09",X"0F",X"09",X"09",X"09",X"FF",X"90",X"90",X"90",X"F0",X"01",X"08",X"00",X"0F", + X"09",X"F9",X"99",X"9F",X"90",X"F0",X"01",X"07",X"00",X"00",X"FF",X"99",X"99",X"99",X"FF",X"01", + X"08",X"00",X"F0",X"90",X"9F",X"99",X"F9",X"09",X"0F",X"01",X"09",X"F0",X"90",X"90",X"90",X"FF", + X"09",X"09",X"09",X"0F",X"01",X"09",X"E0",X"A0",X"A0",X"FC",X"24",X"3F",X"05",X"05",X"07",X"01", + X"09",X"C0",X"C0",X"FE",X"42",X"42",X"42",X"7F",X"03",X"03",X"01",X"09",X"80",X"FF",X"81",X"81", + X"81",X"81",X"81",X"FF",X"01",X"2D",X"FD",X"21",X"73",X"40",X"FD",X"36",X"19",X"04",X"CD",X"B0", + X"28",X"CD",X"0B",X"28",X"D9",X"3A",X"EE",X"43",X"CB",X"3F",X"CB",X"3F",X"E6",X"3F",X"CB",X"27", + X"5F",X"16",X"00",X"21",X"1E",X"18",X"19",X"19",X"19",X"46",X"23",X"4E",X"23",X"5E",X"23",X"56", + X"D5",X"23",X"5E",X"23",X"56",X"DD",X"E5",X"DD",X"21",X"77",X"40",X"DD",X"7E",X"0B",X"80",X"6F", + X"DD",X"7E",X"11",X"81",X"67",X"DD",X"E1",X"DD",X"72",X"0F",X"DD",X"73",X"0E",X"D1",X"DD",X"72", + X"09",X"DD",X"73",X"08",X"DD",X"75",X"0B",X"DD",X"74",X"11",X"D9",X"DD",X"CB",X"14",X"DE",X"DD", + X"36",X"15",X"FF",X"78",X"FE",X"00",X"20",X"05",X"21",X"DE",X"19",X"18",X"0F",X"21",X"B8",X"19", + X"DD",X"36",X"15",X"0A",X"DD",X"CB",X"14",X"9E",X"DD",X"CB",X"14",X"D6",X"DD",X"75",X"12",X"DD", + X"74",X"13",X"DD",X"CB",X"00",X"CE",X"DD",X"E5",X"E1",X"FD",X"E5",X"CD",X"D1",X"2B",X"FD",X"E1", + X"DD",X"CB",X"00",X"D6",X"DD",X"E5",X"CD",X"F1",X"C6",X"CD",X"18",X"C7",X"CD",X"4B",X"28",X"DD", + X"E1",X"DD",X"CB",X"00",X"7E",X"20",X"28",X"DD",X"CB",X"14",X"7E",X"C2",X"9D",X"17",X"DD",X"CB", + X"14",X"6E",X"20",X"12",X"DD",X"35",X"15",X"20",X"0D",X"AF",X"DD",X"77",X"09",X"DD",X"77",X"08", + X"DD",X"77",X"0F",X"DD",X"77",X"0E",X"DD",X"E5",X"3E",X"01",X"CD",X"40",X"28",X"18",X"D0",X"DD", + X"E5",X"CD",X"34",X"3B",X"E1",X"11",X"0B",X"00",X"19",X"7E",X"D6",X"02",X"77",X"11",X"06",X"00", + X"19",X"7E",X"D6",X"02",X"77",X"23",X"01",X"C8",X"19",X"71",X"23",X"70",X"DD",X"E5",X"CD",X"4B", + X"28",X"DD",X"E1",X"DD",X"7E",X"00",X"B7",X"28",X"0E",X"21",X"66",X"1A",X"DD",X"7E",X"04",X"DD", + X"46",X"05",X"BD",X"20",X"04",X"78",X"BC",X"28",X"14",X"DD",X"CB",X"14",X"5E",X"20",X"03",X"CD", + X"AA",X"20",X"DD",X"E5",X"3E",X"01",X"CD",X"40",X"28",X"DD",X"E1",X"18",X"D6",X"3A",X"C1",X"43", + X"FE",X"20",X"30",X"09",X"DD",X"E5",X"CD",X"4B",X"28",X"DD",X"E1",X"18",X"F0",X"CD",X"BD",X"28", + X"DD",X"CB",X"14",X"5E",X"28",X"0A",X"21",X"F3",X"43",X"7E",X"35",X"CD",X"9E",X"C5",X"18",X"10", + X"DD",X"CB",X"14",X"56",X"28",X"0A",X"21",X"ED",X"43",X"7E",X"CB",X"FF",X"35",X"CD",X"9E",X"C5", + X"CD",X"4B",X"28",X"18",X"FB",X"06",X"0F",X"FD",X"21",X"A7",X"40",X"C5",X"FD",X"CB",X"00",X"56", + X"C4",X"EC",X"17",X"01",X"30",X"00",X"FD",X"09",X"C1",X"10",X"F0",X"C9",X"FD",X"CB",X"14",X"46", + X"C8",X"FD",X"66",X"13",X"FD",X"6E",X"12",X"5E",X"23",X"56",X"EB",X"56",X"23",X"5E",X"1C",X"DD", + X"7E",X"11",X"FD",X"96",X"11",X"3C",X"F8",X"BB",X"D0",X"DD",X"7E",X"0B",X"FD",X"96",X"0B",X"F8", + X"CB",X"22",X"CB",X"22",X"CB",X"22",X"14",X"BA",X"D0",X"FD",X"CB",X"00",X"F6",X"C9",X"06",X"FB", + X"00",X"00",X"00",X"FC",X"07",X"FB",X"64",X"00",X"05",X"FC",X"07",X"FC",X"C7",X"00",X"14",X"FC", + X"09",X"FC",X"29",X"01",X"2D",X"FC",X"0A",X"FC",X"87",X"01",X"4E",X"FC",X"0B",X"FD",X"E2",X"01", + X"79",X"FC",X"0C",X"FD",X"38",X"02",X"AD",X"FC",X"0C",X"FD",X"89",X"02",X"E9",X"FC",X"0D",X"FE", + X"D4",X"02",X"2C",X"FD",X"0E",X"FF",X"17",X"03",X"77",X"FD",X"0F",X"00",X"53",X"03",X"C7",X"FD", + X"0F",X"01",X"87",X"03",X"1E",X"FE",X"0F",X"02",X"B2",X"03",X"78",X"FE",X"10",X"03",X"D3",X"03", + X"D7",X"FE",X"10",X"04",X"EC",X"03",X"39",X"FF",X"10",X"05",X"FB",X"03",X"9C",X"FF",X"10",X"06", + X"00",X"04",X"00",X"00",X"10",X"07",X"FB",X"03",X"64",X"00",X"10",X"08",X"EC",X"03",X"C7",X"00", + X"10",X"09",X"D3",X"03",X"29",X"01",X"0F",X"0A",X"B2",X"03",X"87",X"01",X"0F",X"0B",X"87",X"03", + X"E2",X"01",X"0F",X"0C",X"53",X"03",X"38",X"02",X"0E",X"0D",X"17",X"03",X"89",X"02",X"0D",X"0E", + X"D4",X"02",X"D4",X"02",X"0D",X"0F",X"89",X"02",X"17",X"03",X"0C",X"0F",X"38",X"02",X"53",X"03", + X"0B",X"0F",X"E2",X"01",X"87",X"03",X"0A",X"0F",X"87",X"01",X"B2",X"03",X"08",X"0F",X"29",X"01", + X"D3",X"03",X"07",X"0F",X"C2",X"00",X"EC",X"03",X"07",X"0F",X"64",X"00",X"FB",X"03",X"06",X"0F", + X"00",X"00",X"00",X"04",X"05",X"0F",X"9C",X"FF",X"FB",X"03",X"04",X"0F",X"39",X"FF",X"EC",X"03", + X"03",X"0F",X"D7",X"FE",X"D3",X"03",X"02",X"0F",X"79",X"FE",X"B2",X"03",X"01",X"0F",X"1E",X"FE", + X"87",X"03",X"00",X"0E",X"C8",X"FD",X"53",X"03",X"FF",X"0E",X"77",X"FD",X"17",X"03",X"FE",X"0E", + X"2C",X"FD",X"D4",X"02",X"FE",X"0C",X"E9",X"FC",X"89",X"02",X"FE",X"0B",X"AD",X"FC",X"38",X"02", + X"FE",X"0A",X"79",X"FC",X"E2",X"01",X"FD",X"0A",X"4E",X"FC",X"87",X"01",X"FD",X"09",X"2D",X"FC", + X"29",X"01",X"FD",X"07",X"14",X"FC",X"C7",X"00",X"FC",X"07",X"05",X"FC",X"64",X"00",X"FC",X"06", + X"00",X"FC",X"00",X"00",X"FC",X"05",X"05",X"FC",X"9C",X"FF",X"FC",X"03",X"14",X"FC",X"39",X"FF", + X"FC",X"03",X"2D",X"FC",X"D7",X"FE",X"FC",X"01",X"4E",X"FC",X"79",X"FE",X"FD",X"00",X"79",X"FC", + X"1E",X"FE",X"FD",X"00",X"AD",X"FC",X"C8",X"FD",X"FE",X"FF",X"E9",X"FC",X"77",X"FD",X"FE",X"FE", + X"2C",X"FD",X"2C",X"FD",X"FE",X"FD",X"77",X"FD",X"E9",X"FC",X"FF",X"FC",X"C7",X"FD",X"AD",X"FC", + X"00",X"FB",X"1E",X"FE",X"79",X"FC",X"02",X"FB",X"78",X"FE",X"4E",X"FC",X"04",X"FB",X"D7",X"FE", + X"2D",X"FC",X"05",X"FB",X"39",X"FF",X"14",X"FC",X"05",X"FB",X"9C",X"FF",X"05",X"FC",X"09",X"1A", + X"0F",X"1A",X"15",X"1A",X"1B",X"1A",X"21",X"1A",X"00",X"00",X"9E",X"19",X"F5",X"19",X"FA",X"19", + X"FF",X"19",X"04",X"1A",X"00",X"00",X"AC",X"19",X"F2",X"19",X"F2",X"19",X"69",X"1A",X"70",X"1A", + X"77",X"1A",X"7E",X"1A",X"00",X"00",X"BC",X"19",X"27",X"1A",X"32",X"1A",X"3B",X"1A",X"45",X"1A", + X"51",X"1A",X"45",X"1A",X"51",X"1A",X"5B",X"1A",X"66",X"1A",X"00",X"00",X"D8",X"19",X"F2",X"19", + X"F2",X"19",X"F2",X"19",X"F2",X"19",X"EC",X"19",X"00",X"00",X"E6",X"19",X"01",X"04",X"40",X"E0", + X"E0",X"40",X"01",X"01",X"40",X"01",X"03",X"40",X"80",X"40",X"01",X"03",X"A0",X"40",X"40",X"01", + X"03",X"40",X"20",X"40",X"01",X"03",X"40",X"40",X"A0",X"01",X"04",X"80",X"40",X"40",X"20",X"01", + X"04",X"00",X"C0",X"60",X"00",X"01",X"04",X"00",X"60",X"C0",X"00",X"01",X"04",X"20",X"40",X"40", + X"80",X"01",X"04",X"40",X"40",X"40",X"40",X"01",X"09",X"10",X"6C",X"54",X"AA",X"54",X"AA",X"54", + X"6C",X"10",X"01",X"07",X"00",X"00",X"08",X"28",X"1C",X"10",X"08",X"01",X"08",X"00",X"28",X"40", + X"10",X"04",X"48",X"00",X"10",X"01",X"0A",X"08",X"54",X"18",X"6A",X"96",X"60",X"16",X"58",X"20", + X"10",X"01",X"08",X"08",X"40",X"10",X"02",X"80",X"20",X"02",X"48",X"01",X"09",X"00",X"10",X"01", + X"40",X"00",X"00",X"00",X"81",X"08",X"01",X"01",X"00",X"01",X"05",X"90",X"00",X"00",X"00",X"90", + X"01",X"05",X"40",X"10",X"00",X"80",X"20",X"01",X"05",X"60",X"00",X"90",X"00",X"60",X"01",X"05", + X"20",X"80",X"00",X"10",X"40",X"F3",X"31",X"40",X"40",X"DB",X"60",X"CB",X"4F",X"C2",X"3A",X"07", + X"21",X"86",X"F8",X"06",X"34",X"36",X"00",X"23",X"10",X"FB",X"21",X"00",X"40",X"01",X"00",X"04", + X"AF",X"77",X"23",X"0D",X"20",X"FB",X"10",X"F9",X"CD",X"0B",X"1B",X"21",X"F2",X"F8",X"11",X"73", + X"43",X"06",X"1E",X"7E",X"23",X"E6",X"F0",X"4F",X"7E",X"23",X"0F",X"0F",X"0F",X"0F",X"E6",X"0F", + X"B1",X"12",X"13",X"10",X"EE",X"DB",X"49",X"2F",X"21",X"B5",X"F8",X"77",X"23",X"77",X"CD",X"E9", + X"1A",X"CD",X"BF",X"1D",X"CD",X"92",X"1C",X"CD",X"B5",X"1E",X"CD",X"92",X"1C",X"CD",X"B0",X"2D", + X"CA",X"CE",X"1A",X"CD",X"E9",X"1A",X"CD",X"BA",X"1C",X"F3",X"E1",X"22",X"D1",X"43",X"32",X"D3", + X"43",X"31",X"40",X"40",X"CD",X"6A",X"29",X"DD",X"21",X"43",X"40",X"CD",X"B0",X"28",X"CD",X"0B", + X"28",X"CD",X"7B",X"2B",X"2A",X"D1",X"43",X"3A",X"D3",X"43",X"E9",X"ED",X"73",X"5E",X"F8",X"31", + X"5E",X"F8",X"F5",X"C5",X"D5",X"E5",X"DD",X"E5",X"DB",X"65",X"CB",X"7F",X"C2",X"31",X"05",X"3A", + X"E1",X"43",X"B7",X"CC",X"AB",X"23",X"CD",X"60",X"1B",X"3A",X"E1",X"43",X"B7",X"20",X"1D",X"2A", + X"AE",X"F8",X"7C",X"B5",X"28",X"19",X"DB",X"44",X"E6",X"C0",X"FE",X"40",X"20",X"11",X"7E",X"CB", + X"7F",X"20",X"09",X"23",X"D3",X"44",X"CB",X"77",X"28",X"05",X"18",X"E6",X"21",X"00",X"00",X"22", + X"AE",X"F8",X"DD",X"E1",X"E1",X"D1",X"C1",X"F1",X"ED",X"7B",X"5E",X"F8",X"D3",X"4C",X"ED",X"45", + X"21",X"8E",X"F8",X"46",X"23",X"56",X"23",X"5E",X"23",X"0E",X"41",X"CB",X"80",X"CB",X"C2",X"ED", + X"51",X"0D",X"ED",X"41",X"0C",X"CB",X"82",X"ED",X"51",X"0D",X"ED",X"59",X"0C",X"0C",X"06",X"03", + X"79",X"0C",X"51",X"5E",X"23",X"4F",X"7E",X"23",X"ED",X"79",X"79",X"4A",X"ED",X"59",X"14",X"14", + X"10",X"F1",X"0D",X"3E",X"00",X"06",X"04",X"B6",X"23",X"ED",X"79",X"E6",X"C0",X"C6",X"40",X"10", + X"F6",X"C9",X"06",X"06",X"21",X"D4",X"F8",X"CD",X"A1",X"32",X"3A",X"E9",X"43",X"FE",X"02",X"CC", + X"A1",X"32",X"CD",X"57",X"1C",X"01",X"0D",X"00",X"11",X"B5",X"43",X"21",X"85",X"1C",X"ED",X"B0", + X"CD",X"7C",X"2E",X"2A",X"CF",X"43",X"AF",X"32",X"E1",X"43",X"3C",X"32",X"B1",X"F8",X"CD",X"51", + X"3A",X"21",X"B5",X"43",X"11",X"C2",X"43",X"01",X"0D",X"00",X"ED",X"B0",X"3E",X"02",X"77",X"3A", + X"E9",X"43",X"FE",X"02",X"28",X"04",X"AF",X"32",X"C3",X"43",X"CD",X"63",X"36",X"FB",X"AF",X"32", + X"E4",X"43",X"32",X"F0",X"43",X"32",X"F3",X"43",X"32",X"ED",X"43",X"32",X"5E",X"F9",X"32",X"FD", + X"43",X"3E",X"40",X"32",X"C0",X"43",X"32",X"C1",X"43",X"CD",X"CA",X"28",X"DD",X"CB",X"00",X"7E", + X"28",X"0A",X"CD",X"57",X"C8",X"21",X"BF",X"43",X"36",X"10",X"18",X"D1",X"3E",X"3C",X"CD",X"40", + X"28",X"CD",X"6A",X"29",X"21",X"B6",X"43",X"7E",X"C6",X"99",X"27",X"77",X"08",X"3A",X"BF",X"43", + X"B7",X"CC",X"57",X"C8",X"08",X"E5",X"21",X"BF",X"43",X"36",X"10",X"E1",X"08",X"CD",X"70",X"1C", + X"7E",X"B7",X"C2",X"EA",X"1B",X"08",X"20",X"F5",X"CD",X"70",X"1C",X"CD",X"3F",X"31",X"CD",X"70", + X"1C",X"CD",X"3F",X"31",X"C3",X"CE",X"1A",X"21",X"00",X"00",X"22",X"AF",X"43",X"22",X"B1",X"43", + X"22",X"B3",X"43",X"22",X"B7",X"F8",X"22",X"B8",X"F8",X"21",X"98",X"C0",X"22",X"AE",X"F8",X"C9", + X"E5",X"21",X"B5",X"43",X"11",X"C2",X"43",X"06",X"0D",X"1A",X"4E",X"EB",X"12",X"71",X"EB",X"23", + X"13",X"10",X"F6",X"E1",X"C9",X"01",X"03",X"00",X"FF",X"00",X"15",X"00",X"00",X"00",X"01",X"10", + X"40",X"40",X"06",X"05",X"2A",X"88",X"F8",X"23",X"36",X"28",X"2B",X"CB",X"CE",X"DB",X"65",X"CB", + X"47",X"28",X"04",X"3E",X"01",X"18",X"22",X"CD",X"83",X"1D",X"CD",X"9F",X"1D",X"C2",X"E3",X"1A", + X"2A",X"88",X"F8",X"CB",X"4E",X"20",X"E6",X"10",X"DB",X"C9",X"6F",X"CD",X"F9",X"1C",X"CB",X"4D", + X"3E",X"01",X"28",X"05",X"CD",X"F9",X"1C",X"3E",X"02",X"32",X"E9",X"43",X"2A",X"88",X"F8",X"CB", + X"C6",X"E1",X"C3",X"A2",X"1B",X"E5",X"21",X"00",X"00",X"39",X"CD",X"E8",X"1C",X"77",X"06",X"02", + X"11",X"78",X"D5",X"CD",X"A0",X"2F",X"E1",X"C9",X"3A",X"BB",X"F8",X"0F",X"0F",X"0F",X"0F",X"E6", + X"0F",X"4F",X"3A",X"BA",X"F8",X"E6",X"F0",X"B1",X"C9",X"CD",X"E8",X"1C",X"C6",X"99",X"27",X"4F", + X"E6",X"F0",X"32",X"BA",X"F8",X"79",X"07",X"07",X"07",X"07",X"E6",X"F0",X"32",X"BB",X"F8",X"C9", + X"7E",X"B7",X"C8",X"C5",X"E5",X"35",X"78",X"3D",X"87",X"87",X"87",X"5F",X"16",X"00",X"21",X"BC", + X"F8",X"19",X"06",X"08",X"CD",X"A1",X"32",X"E1",X"E5",X"11",X"05",X"00",X"19",X"7E",X"57",X"3C", + X"E6",X"03",X"77",X"ED",X"78",X"E6",X"0F",X"CB",X"1A",X"17",X"4F",X"06",X"00",X"21",X"63",X"1D", + X"09",X"7E",X"CB",X"42",X"28",X"04",X"07",X"07",X"07",X"07",X"E6",X"0F",X"C6",X"00",X"27",X"57", + X"CD",X"E8",X"1C",X"FE",X"99",X"28",X"09",X"82",X"27",X"30",X"02",X"3E",X"99",X"CD",X"FF",X"1C", + X"E1",X"C1",X"C9",X"11",X"11",X"22",X"22",X"33",X"33",X"44",X"44",X"55",X"55",X"66",X"66",X"77", + X"77",X"AA",X"AA",X"EE",X"EE",X"00",X"11",X"11",X"22",X"00",X"55",X"00",X"77",X"00",X"21",X"11", + X"21",X"11",X"32",X"C5",X"21",X"B2",X"F8",X"CD",X"E8",X"1C",X"F5",X"01",X"62",X"03",X"CD",X"10", + X"1D",X"23",X"0C",X"10",X"F9",X"CD",X"E8",X"1C",X"C1",X"B8",X"C4",X"D5",X"1C",X"C1",X"C9",X"CD", + X"E8",X"1C",X"2E",X"00",X"B7",X"28",X"08",X"FE",X"01",X"2E",X"01",X"28",X"02",X"2E",X"03",X"DB", + X"49",X"2F",X"A5",X"C9",X"2A",X"AE",X"F8",X"7C",X"B5",X"C0",X"EB",X"22",X"AE",X"F8",X"C9",X"CD", + X"65",X"1E",X"AF",X"32",X"EC",X"43",X"CD",X"47",X"CB",X"CD",X"40",X"2F",X"90",X"0C",X"BE",X"1F", + X"31",X"39",X"38",X"31",X"20",X"53",X"54",X"45",X"52",X"4E",X"20",X"45",X"6C",X"65",X"63",X"74", + X"72",X"6F",X"6E",X"69",X"63",X"73",X"2C",X"20",X"49",X"6E",X"63",X"2E",X"00",X"CD",X"D5",X"1C", + X"CD",X"95",X"2E",X"CD",X"05",X"1F",X"1C",X"1F",X"58",X"1F",X"38",X"1F",X"77",X"1F",X"21",X"73", + X"43",X"3E",X"01",X"32",X"40",X"40",X"11",X"38",X"18",X"D5",X"E5",X"7E",X"23",X"B6",X"23",X"B6", + X"E1",X"E5",X"20",X"04",X"E1",X"D1",X"18",X"35",X"21",X"40",X"40",X"06",X"02",X"CD",X"A0",X"2F", + X"13",X"E1",X"06",X"06",X"CD",X"AA",X"2F",X"13",X"AF",X"4E",X"CD",X"EE",X"2F",X"13",X"23",X"4E", + X"CD",X"EE",X"2F",X"13",X"23",X"4E",X"CD",X"EE",X"2F",X"23",X"D1",X"7A",X"C6",X"10",X"57",X"3A", + X"40",X"40",X"C6",X"01",X"27",X"32",X"40",X"40",X"FE",X"11",X"C2",X"09",X"1E",X"21",X"00",X"46", + X"CD",X"5C",X"1E",X"21",X"00",X"5B",X"CD",X"5C",X"1E",X"21",X"80",X"5D",X"3E",X"FF",X"06",X"40", + X"77",X"23",X"10",X"FC",X"C9",X"21",X"00",X"81",X"01",X"00",X"07",X"AF",X"77",X"23",X"0D",X"20", + X"FB",X"10",X"F9",X"F3",X"ED",X"73",X"40",X"40",X"31",X"00",X"60",X"06",X"E0",X"11",X"00",X"00", + X"D5",X"D5",X"D5",X"D5",X"D5",X"D5",X"D5",X"D5",X"D5",X"D5",X"D5",X"D5",X"D5",X"D5",X"D5",X"D5", + X"10",X"EE",X"ED",X"7B",X"40",X"40",X"FB",X"DB",X"49",X"CB",X"57",X"20",X"13",X"DB",X"63",X"CB", + X"7F",X"28",X"0D",X"3A",X"B5",X"43",X"FE",X"02",X"20",X"06",X"3E",X"FF",X"32",X"EC",X"43",X"C9", + X"AF",X"32",X"EC",X"43",X"C9",X"CD",X"F5",X"1E",X"CD",X"E8",X"1C",X"28",X"21",X"3D",X"28",X"0F", + X"CD",X"B4",X"CB",X"CD",X"05",X"1F",X"CF",X"1F",X"1C",X"20",X"F6",X"1F",X"39",X"20",X"C9",X"CD", + X"AB",X"CB",X"CD",X"05",X"1F",X"8F",X"1F",X"1C",X"20",X"B1",X"1F",X"39",X"20",X"C9",X"CD",X"A2", + X"CB",X"CD",X"05",X"1F",X"4D",X"20",X"7C",X"20",X"60",X"20",X"93",X"20",X"D9",X"11",X"9A",X"C0", + X"CD",X"B4",X"1D",X"D9",X"C9",X"21",X"C0",X"5B",X"01",X"C0",X"02",X"AF",X"77",X"23",X"0D",X"C2", + X"FC",X"1E",X"10",X"F8",X"C9",X"E1",X"54",X"5D",X"01",X"08",X"00",X"09",X"E5",X"EB",X"DB",X"60", + X"E6",X"C0",X"07",X"07",X"07",X"4F",X"09",X"7E",X"23",X"66",X"6F",X"E9",X"CD",X"40",X"2F",X"90", + X"28",X"00",X"4D",X"4F",X"4F",X"4E",X"20",X"57",X"41",X"52",X"20",X"48",X"69",X"67",X"68",X"20", + X"53",X"63",X"6F",X"72",X"65",X"73",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"20",X"00",X"53",X"63", + X"6F",X"72",X"65",X"20",X"65",X"6C",X"65",X"76",X"65",X"73",X"20",X"64",X"75",X"20",X"4D",X"4F", + X"4F",X"4E",X"20",X"57",X"41",X"52",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"28",X"00",X"48",X"24", + X"68",X"65",X"20",X"4D",X"4F",X"4F",X"4E",X"20",X"57",X"41",X"52",X"20",X"70",X"75",X"6E",X"6B", + X"74",X"7A",X"61",X"68",X"6C",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"38",X"00",X"4D",X"4F",X"4F", + X"4E",X"20",X"57",X"41",X"52",X"20",X"52",X"65",X"63",X"6F",X"72",X"64",X"73",X"00",X"C9",X"CD", + X"40",X"2F",X"90",X"14",X"BE",X"50",X"75",X"73",X"68",X"20",X"31",X"20",X"50",X"6C",X"61",X"79", + X"65",X"72",X"20",X"53",X"74",X"61",X"72",X"74",X"20",X"42",X"75",X"74",X"74",X"6F",X"6E",X"00", + X"C9",X"CD",X"40",X"2F",X"90",X"24",X"BE",X"50",X"6F",X"75",X"73",X"73",X"65",X"72",X"20",X"62", + X"6F",X"75",X"74",X"6F",X"6E",X"20",X"73",X"74",X"61",X"72",X"74",X"20",X"31",X"00",X"C9",X"CD", + X"40",X"2F",X"90",X"04",X"BE",X"50",X"75",X"73",X"68",X"20",X"31",X"20",X"6F",X"72",X"20",X"32", + X"20",X"50",X"6C",X"61",X"79",X"65",X"72",X"20",X"53",X"74",X"61",X"72",X"74",X"20",X"42",X"75", + X"74",X"74",X"6F",X"6E",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"04",X"BE",X"50",X"72",X"65",X"73", + X"73",X"65",X"72",X"20",X"6C",X"65",X"20",X"62",X"6F",X"75",X"74",X"6F",X"6E",X"20",X"73",X"74", + X"61",X"72",X"74",X"20",X"31",X"20",X"6F",X"75",X"20",X"32",X"00",X"C9",X"CD",X"40",X"2F",X"90", + X"38",X"BE",X"53",X"74",X"61",X"72",X"74",X"6B",X"6E",X"6F",X"65",X"70",X"66",X"65",X"20",X"64", + X"72",X"25",X"65",X"63",X"6B",X"65",X"6E",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"44",X"BE",X"50", + X"75",X"6C",X"73",X"61",X"72",X"20",X"53",X"74",X"61",X"72",X"74",X"00",X"C9",X"CD",X"40",X"2F", + X"90",X"58",X"BE",X"49",X"6E",X"73",X"65",X"72",X"74",X"20",X"43",X"6F",X"69",X"6E",X"00",X"C9", + X"CD",X"40",X"2F",X"90",X"30",X"BE",X"49",X"6E",X"74",X"72",X"6F",X"64",X"75",X"69",X"72",X"65", + X"20",X"75",X"6E",X"65",X"20",X"70",X"69",X"65",X"63",X"65",X"00",X"C9",X"CD",X"40",X"2F",X"90", + X"48",X"BE",X"4D",X"25",X"6E",X"7A",X"65",X"20",X"65",X"69",X"6E",X"77",X"65",X"72",X"66",X"65", + X"6E",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"48",X"BE",X"50",X"6F",X"6E",X"67",X"61",X"20",X"6C", + X"61",X"20",X"6D",X"6F",X"6E",X"65",X"64",X"61",X"00",X"C9",X"FD",X"21",X"77",X"40",X"FD",X"7E", + X"0B",X"C6",X"04",X"DD",X"96",X"0B",X"D2",X"BB",X"20",X"ED",X"44",X"47",X"FD",X"7E",X"11",X"C6", + X"04",X"DD",X"96",X"11",X"D2",X"C9",X"20",X"ED",X"44",X"4F",X"16",X"00",X"3E",X"0F",X"B9",X"38", + X"03",X"B8",X"30",X"07",X"CB",X"38",X"CB",X"39",X"14",X"18",X"F3",X"79",X"07",X"07",X"07",X"07", + X"B0",X"CB",X"22",X"D5",X"5F",X"16",X"00",X"21",X"99",X"21",X"19",X"19",X"7E",X"23",X"66",X"6F", + X"E5",X"7B",X"0F",X"0F",X"0F",X"0F",X"5F",X"D5",X"D1",X"21",X"99",X"21",X"19",X"19",X"5E",X"23", + X"56",X"E1",X"3A",X"B8",X"43",X"B7",X"28",X"18",X"F2",X"15",X"21",X"CB",X"2A",X"CB",X"1B",X"CB", + X"2C",X"CB",X"1D",X"18",X"0B",X"47",X"CB",X"25",X"CB",X"14",X"CB",X"23",X"CB",X"12",X"10",X"F6", + X"F1",X"F5",X"B7",X"28",X"0B",X"47",X"CB",X"2A",X"CB",X"1B",X"CB",X"2C",X"CB",X"1D",X"10",X"F6", + X"FD",X"7E",X"0B",X"C6",X"04",X"DD",X"BE",X"0B",X"DC",X"8F",X"21",X"FD",X"7E",X"11",X"C6",X"04", + X"DD",X"BE",X"11",X"EB",X"DC",X"8F",X"21",X"EB",X"F1",X"F5",X"B7",X"20",X"22",X"E5",X"F5",X"CD", + X"18",X"C7",X"CD",X"18",X"C7",X"F1",X"E1",X"DD",X"CB",X"14",X"46",X"28",X"0A",X"DD",X"CB",X"14", + X"6E",X"28",X"04",X"DD",X"CB",X"00",X"FE",X"CD",X"8F",X"21",X"EB",X"CD",X"8F",X"21",X"EB",X"DD", + X"74",X"07",X"DD",X"75",X"06",X"DD",X"72",X"0D",X"DD",X"73",X"0C",X"F1",X"E6",X"0E",X"4F",X"06", + X"00",X"21",X"99",X"23",X"09",X"5E",X"23",X"56",X"21",X"8E",X"21",X"E5",X"EB",X"E9",X"C9",X"F5", + X"7C",X"2F",X"67",X"7D",X"2F",X"6F",X"23",X"F1",X"C9",X"00",X"00",X"FF",X"3F",X"00",X"10",X"1C", + X"07",X"00",X"04",X"8F",X"02",X"C7",X"01",X"4E",X"01",X"00",X"01",X"CA",X"00",X"A4",X"00",X"87", + X"00",X"72",X"00",X"61",X"00",X"54",X"00",X"49",X"00",X"00",X"00",X"A1",X"16",X"73",X"0B",X"12", + X"06",X"A7",X"03",X"6A",X"02",X"B5",X"01",X"44",X"01",X"FA",X"00",X"C7",X"00",X"A1",X"00",X"86", + X"00",X"71",X"00",X"60",X"00",X"53",X"00",X"48",X"00",X"00",X"00",X"B9",X"05",X"A8",X"05",X"19", + X"04",X"DD",X"02",X"0D",X"02",X"85",X"01",X"29",X"01",X"EA",X"00",X"BC",X"00",X"9A",X"00",X"81", + X"00",X"6D",X"00",X"5E",X"00",X"51",X"00",X"47",X"00",X"00",X"00",X"06",X"02",X"BB",X"02",X"84", + X"02",X"0C",X"02",X"9D",X"01",X"46",X"01",X"04",X"01",X"D2",X"00",X"AD",X"00",X"90",X"00",X"7A", + X"00",X"68",X"00",X"5A",X"00",X"4E",X"00",X"45",X"00",X"00",X"00",X"EA",X"00",X"6E",X"01",X"89", + X"01",X"6A",X"01",X"D5",X"00",X"06",X"01",X"DB",X"00",X"B7",X"00",X"9A",X"00",X"83",X"00",X"70", + X"00",X"61",X"00",X"55",X"00",X"4A",X"00",X"42",X"00",X"00",X"00",X"7C",X"00",X"D2",X"00",X"F8", + X"00",X"FA",X"00",X"E8",X"00",X"CE",X"00",X"B4",X"00",X"9C",X"00",X"87",X"00",X"75",X"00",X"66", + X"00",X"59",X"00",X"4F",X"00",X"46",X"00",X"3E",X"00",X"00",X"00",X"49",X"00",X"82",X"00",X"A3", + X"00",X"AF",X"00",X"AC",X"00",X"A1",X"00",X"92",X"00",X"83",X"00",X"75",X"00",X"67",X"00",X"5C", + X"00",X"51",X"00",X"49",X"00",X"41",X"00",X"3A",X"00",X"00",X"00",X"2E",X"00",X"55",X"00",X"6F", + X"00",X"7D",X"00",X"81",X"00",X"7D",X"00",X"76",X"00",X"6D",X"00",X"63",X"00",X"5A",X"00",X"51", + X"00",X"49",X"00",X"42",X"00",X"3C",X"00",X"36",X"00",X"00",X"00",X"1F",X"00",X"3A",X"00",X"4F", + X"00",X"5C",X"00",X"62",X"00",X"62",X"00",X"5F",X"00",X"5B",X"00",X"54",X"00",X"4E",X"00",X"48", + X"00",X"42",X"00",X"3C",X"00",X"37",X"00",X"32",X"00",X"00",X"00",X"16",X"00",X"2A",X"00",X"3A", + X"00",X"45",X"00",X"4B",X"00",X"4E",X"00",X"4D",X"00",X"4B",X"00",X"48",X"00",X"43",X"00",X"3F", + X"00",X"3A",X"00",X"36",X"00",X"32",X"00",X"2E",X"00",X"00",X"00",X"10",X"00",X"1F",X"00",X"2B", + X"00",X"34",X"00",X"3B",X"00",X"3E",X"00",X"3F",X"00",X"3E",X"00",X"3D",X"00",X"3A",X"00",X"37", + X"00",X"34",X"00",X"30",X"00",X"2D",X"00",X"2A",X"00",X"00",X"00",X"0C",X"00",X"17",X"00",X"17", + X"00",X"29",X"00",X"2E",X"00",X"32",X"00",X"34",X"00",X"34",X"00",X"33",X"00",X"32",X"00",X"30", + X"00",X"2E",X"00",X"2B",X"00",X"29",X"00",X"26",X"00",X"00",X"00",X"09",X"00",X"12",X"00",X"1A", + X"00",X"20",X"00",X"25",X"00",X"29",X"00",X"2B",X"00",X"2C",X"00",X"2C",X"00",X"2B",X"00",X"2A", + X"00",X"28",X"00",X"26",X"00",X"25",X"00",X"23",X"00",X"00",X"00",X"07",X"00",X"0E",X"00",X"15", + X"00",X"1A",X"00",X"1E",X"00",X"21",X"00",X"24",X"00",X"25",X"00",X"25",X"00",X"25",X"00",X"24", + X"00",X"24",X"00",X"22",X"00",X"21",X"00",X"1F",X"00",X"00",X"00",X"06",X"00",X"0C",X"00",X"11", + X"00",X"15",X"00",X"19",X"00",X"1C",X"00",X"1E",X"00",X"1F",X"00",X"20",X"00",X"20",X"00",X"20", + X"00",X"1F",X"00",X"1F",X"00",X"1E",X"00",X"1C",X"00",X"00",X"00",X"05",X"00",X"09",X"00",X"0E", + X"00",X"12",X"00",X"15",X"00",X"17",X"00",X"19",X"00",X"1B",X"00",X"1C",X"00",X"1C",X"00",X"1C", + X"00",X"1C",X"00",X"1B",X"00",X"1B",X"00",X"1A",X"00",X"80",X"3C",X"66",X"3D",X"7C",X"3D",X"92", + X"3D",X"A8",X"3D",X"A8",X"3D",X"A8",X"3D",X"A8",X"3D",X"A8",X"3D",X"DD",X"21",X"BB",X"23",X"ED", + X"4B",X"9B",X"F8",X"CD",X"BB",X"23",X"ED",X"43",X"9B",X"F8",X"C9",X"0A",X"03",X"26",X"00",X"87", + X"6F",X"11",X"CA",X"23",X"19",X"7E",X"23",X"66",X"6F",X"E9",X"EA",X"23",X"F5",X"23",X"F6",X"23", + X"01",X"24",X"0D",X"24",X"17",X"24",X"23",X"24",X"2F",X"24",X"40",X"24",X"4A",X"24",X"56",X"24", + X"64",X"24",X"7D",X"24",X"8D",X"24",X"A2",X"24",X"B5",X"24",X"0B",X"21",X"00",X"00",X"22",X"9D", + X"F8",X"22",X"9F",X"F8",X"C9",X"C9",X"0A",X"03",X"6F",X"87",X"9F",X"67",X"09",X"44",X"4D",X"DD", + X"E9",X"0A",X"03",X"6F",X"0A",X"03",X"67",X"35",X"20",X"EC",X"03",X"DD",X"E9",X"0A",X"03",X"6F", + X"0A",X"03",X"67",X"5E",X"C3",X"26",X"24",X"0A",X"03",X"6F",X"0A",X"03",X"67",X"5E",X"23",X"56", + X"C3",X"35",X"24",X"0A",X"03",X"5F",X"0A",X"03",X"6F",X"0A",X"03",X"67",X"73",X"DD",X"E9",X"0A", + X"03",X"5F",X"0A",X"03",X"57",X"0A",X"03",X"6F",X"0A",X"03",X"67",X"73",X"23",X"72",X"DD",X"E9", + X"0A",X"03",X"6F",X"0A",X"03",X"67",X"5E",X"C3",X"59",X"24",X"0A",X"03",X"6F",X"0A",X"03",X"67", + X"5E",X"23",X"56",X"C3",X"6A",X"24",X"0A",X"03",X"5F",X"0A",X"03",X"6F",X"0A",X"03",X"67",X"7E", + X"83",X"77",X"DD",X"E9",X"0A",X"03",X"5F",X"0A",X"03",X"57",X"0A",X"03",X"6F",X"0A",X"03",X"67", + X"E5",X"7E",X"23",X"66",X"6F",X"19",X"EB",X"E1",X"73",X"23",X"72",X"DD",X"E9",X"0A",X"03",X"5F", + X"0A",X"03",X"6F",X"0A",X"03",X"67",X"CB",X"2E",X"1D",X"20",X"FB",X"DD",X"E9",X"0A",X"03",X"5F", + X"0A",X"03",X"6F",X"0A",X"03",X"67",X"23",X"CB",X"2E",X"2B",X"CB",X"1E",X"23",X"1D",X"20",X"F7", + X"DD",X"E9",X"0A",X"03",X"5F",X"0A",X"03",X"6F",X"0A",X"03",X"67",X"0A",X"77",X"23",X"03",X"1D", + X"C2",X"AB",X"24",X"DD",X"E9",X"0A",X"03",X"87",X"C3",X"A4",X"24",X"63",X"2A",X"AE",X"F8",X"7C", + X"B5",X"C0",X"EB",X"22",X"AE",X"F8",X"C9",X"DD",X"21",X"73",X"40",X"DD",X"36",X"00",X"80",X"21", + X"A3",X"40",X"F9",X"CD",X"0B",X"28",X"3A",X"B5",X"43",X"FE",X"01",X"3E",X"DD",X"28",X"02",X"3E", + X"EE",X"32",X"EB",X"43",X"21",X"56",X"F9",X"22",X"5A",X"F9",X"21",X"00",X"00",X"22",X"58",X"F9", + X"DD",X"36",X"0B",X"6C",X"DD",X"36",X"11",X"64",X"AF",X"CD",X"B8",X"26",X"DD",X"36",X"00",X"02", + X"DD",X"CB",X"14",X"C6",X"FD",X"E5",X"DD",X"E5",X"E1",X"CD",X"D1",X"2B",X"DD",X"CB",X"00",X"E6", + X"CD",X"EF",X"CB",X"FD",X"E1",X"CD",X"28",X"28",X"01",X"FF",X"FF",X"DD",X"21",X"77",X"40",X"DD", + X"CB",X"00",X"7E",X"C2",X"E1",X"26",X"FD",X"E5",X"CD",X"EF",X"CB",X"FD",X"E1",X"DD",X"7E",X"15", + X"B7",X"28",X"03",X"DD",X"35",X"15",X"3A",X"E1",X"43",X"B7",X"28",X"4E",X"2A",X"E2",X"43",X"7E", + X"23",X"22",X"E2",X"43",X"B7",X"CA",X"D4",X"C9",X"4F",X"E6",X"C0",X"79",X"28",X"38",X"E6",X"3F", + X"47",X"21",X"EE",X"43",X"DD",X"CB",X"00",X"7E",X"C2",X"E1",X"26",X"CB",X"79",X"28",X"02",X"34", + X"34",X"CB",X"71",X"28",X"02",X"35",X"35",X"C5",X"7E",X"CB",X"3F",X"CB",X"3F",X"CD",X"B8",X"26", + X"CD",X"4B",X"28",X"DD",X"21",X"77",X"40",X"DD",X"7E",X"15",X"B7",X"28",X"03",X"DD",X"35",X"15", + X"C1",X"10",X"CE",X"C3",X"1B",X"25",X"E6",X"17",X"18",X"30",X"CD",X"AD",X"26",X"DB",X"48",X"CD", + X"2A",X"C7",X"28",X"02",X"DB",X"4A",X"2F",X"57",X"A8",X"F6",X"80",X"A2",X"42",X"08",X"21",X"FE", + X"43",X"DB",X"49",X"2F",X"E6",X"08",X"BE",X"77",X"28",X"0F",X"CB",X"5F",X"28",X"0B",X"CD",X"4E", + X"3F",X"3A",X"EE",X"43",X"C6",X"7F",X"32",X"EE",X"43",X"08",X"C5",X"CB",X"77",X"C2",X"65",X"26", + X"DD",X"36",X"09",X"00",X"DD",X"36",X"08",X"00",X"DD",X"36",X"0F",X"00",X"DD",X"36",X"0E",X"00", + X"DD",X"36",X"07",X"00",X"DD",X"36",X"06",X"00",X"DD",X"36",X"0D",X"00",X"DD",X"36",X"0C",X"00", + X"06",X"00",X"CB",X"7F",X"F5",X"C4",X"FB",X"25",X"F1",X"06",X"01",X"CB",X"6F",X"F5",X"C4",X"FB", + X"25",X"F1",X"3E",X"01",X"CD",X"40",X"28",X"C1",X"C3",X"1B",X"25",X"FD",X"7E",X"19",X"B7",X"C0", + X"78",X"FE",X"01",X"20",X"29",X"3A",X"ED",X"43",X"CD",X"60",X"26",X"FE",X"04",X"38",X"09",X"D9", + X"11",X"FA",X"C0",X"CD",X"BC",X"24",X"D9",X"C9",X"CD",X"CB",X"27",X"D0",X"3A",X"ED",X"43",X"3C", + X"32",X"ED",X"43",X"CB",X"FF",X"CD",X"9A",X"C5",X"CD",X"67",X"3A",X"C3",X"58",X"26",X"3A",X"F3", + X"43",X"CD",X"60",X"26",X"FE",X"04",X"38",X"0F",X"3A",X"C1",X"43",X"FE",X"1F",X"D0",X"D9",X"11", + X"C1",X"C0",X"CD",X"BC",X"24",X"D9",X"C9",X"CD",X"CB",X"27",X"D0",X"3A",X"F3",X"43",X"3C",X"32", + X"F3",X"43",X"CD",X"9A",X"C5",X"CD",X"90",X"3B",X"FD",X"21",X"86",X"16",X"CD",X"28",X"28",X"C9", + X"FE",X"FF",X"C0",X"AF",X"C9",X"3A",X"EE",X"43",X"CB",X"3F",X"CB",X"3F",X"E6",X"3F",X"CB",X"27", + X"5F",X"16",X"00",X"21",X"1E",X"18",X"19",X"19",X"19",X"23",X"23",X"5E",X"23",X"56",X"06",X"05", + X"CB",X"2A",X"CB",X"1B",X"10",X"FA",X"DD",X"73",X"06",X"DD",X"72",X"07",X"23",X"5E",X"23",X"56", + X"06",X"05",X"CB",X"2A",X"CB",X"1B",X"10",X"FA",X"DD",X"73",X"0C",X"DD",X"72",X"0D",X"DD",X"CB", + X"00",X"D6",X"DD",X"CB",X"00",X"DE",X"DD",X"CB",X"00",X"E6",X"C3",X"F2",X"25",X"3A",X"EE",X"43", + X"CB",X"3F",X"CB",X"3F",X"B9",X"CA",X"D8",X"26",X"CD",X"DE",X"C5",X"4F",X"21",X"00",X"00",X"16", + X"00",X"5F",X"19",X"29",X"29",X"29",X"29",X"29",X"11",X"86",X"08",X"19",X"22",X"56",X"F9",X"21", + X"56",X"F9",X"DD",X"75",X"12",X"DD",X"74",X"13",X"DD",X"7E",X"00",X"F6",X"03",X"DD",X"77",X"00", + X"C9",X"CD",X"E3",X"3A",X"3E",X"09",X"32",X"E4",X"43",X"FD",X"36",X"04",X"01",X"CD",X"4B",X"28", + X"3E",X"0A",X"32",X"F0",X"43",X"DD",X"21",X"A3",X"40",X"11",X"30",X"00",X"3E",X"08",X"DD",X"36", + X"04",X"01",X"DD",X"CB",X"00",X"7E",X"28",X"04",X"DD",X"36",X"00",X"81",X"DD",X"19",X"3D",X"20", + X"ED",X"CD",X"4B",X"28",X"21",X"A3",X"40",X"01",X"00",X"80",X"71",X"23",X"10",X"FC",X"DD",X"21", + X"A3",X"40",X"3E",X"08",X"08",X"DD",X"E5",X"E1",X"01",X"00",X"30",X"71",X"23",X"10",X"FC",X"DD", + X"36",X"00",X"81",X"DD",X"E5",X"E1",X"11",X"2E",X"00",X"19",X"DD",X"75",X"02",X"DD",X"74",X"03", + X"11",X"04",X"00",X"DD",X"19",X"DD",X"CB",X"00",X"CE",X"CD",X"A5",X"27",X"FD",X"7E",X"0F",X"80", + X"DD",X"77",X"0B",X"FD",X"7E",X"15",X"81",X"DD",X"77",X"11",X"21",X"C8",X"19",X"DD",X"75",X"12", + X"DD",X"74",X"13",X"11",X"2C",X"00",X"DD",X"19",X"21",X"8E",X"27",X"DD",X"74",X"FF",X"DD",X"75", + X"FE",X"08",X"3D",X"20",X"AF",X"3E",X"2D",X"CD",X"40",X"28",X"FD",X"7E",X"01",X"B7",X"28",X"05", + X"CD",X"4B",X"28",X"18",X"F5",X"FD",X"36",X"00",X"00",X"CD",X"4B",X"28",X"18",X"F7",X"FD",X"CB", + X"04",X"D6",X"FD",X"E5",X"DD",X"E1",X"11",X"04",X"00",X"DD",X"19",X"CD",X"AA",X"20",X"3E",X"02", + X"CD",X"40",X"28",X"18",X"ED",X"08",X"57",X"08",X"01",X"02",X"02",X"CB",X"52",X"20",X"0C",X"CB", + X"4A",X"20",X"02",X"06",X"06",X"CB",X"42",X"C8",X"0E",X"06",X"C9",X"01",X"04",X"07",X"CB",X"4A", + X"20",X"02",X"06",X"01",X"CB",X"42",X"C8",X"78",X"41",X"4F",X"C9",X"21",X"EB",X"27",X"E5",X"D1", + X"7E",X"23",X"66",X"6F",X"E5",X"E1",X"B4",X"C8",X"7E",X"B7",X"28",X"06",X"13",X"13",X"D5",X"E1", + X"18",X"EE",X"E5",X"DD",X"E1",X"DD",X"36",X"00",X"80",X"37",X"C9",X"A3",X"40",X"D3",X"40",X"03", + X"41",X"33",X"41",X"63",X"41",X"93",X"41",X"C3",X"41",X"F3",X"41",X"23",X"42",X"53",X"42",X"83", + X"42",X"B3",X"42",X"E3",X"42",X"13",X"43",X"43",X"43",X"00",X"00",X"D9",X"DD",X"E5",X"E1",X"22", + X"88",X"F8",X"AF",X"CB",X"C6",X"23",X"77",X"23",X"77",X"23",X"77",X"23",X"E5",X"77",X"06",X"15", + X"23",X"77",X"10",X"FC",X"DD",X"E1",X"D9",X"C9",X"21",X"00",X"00",X"39",X"31",X"86",X"F8",X"FD", + X"E5",X"FD",X"2A",X"88",X"F8",X"FD",X"22",X"8C",X"F8",X"FD",X"75",X"02",X"FD",X"74",X"03",X"C9", + X"FD",X"2A",X"88",X"F8",X"FD",X"77",X"01",X"FD",X"36",X"00",X"82",X"21",X"00",X"00",X"39",X"31", + X"86",X"F8",X"FD",X"2A",X"88",X"F8",X"FD",X"75",X"02",X"FD",X"74",X"03",X"2A",X"8C",X"F8",X"7C", + X"B5",X"28",X"10",X"FD",X"2A",X"8C",X"F8",X"21",X"00",X"00",X"22",X"8C",X"F8",X"FD",X"22",X"88", + X"F8",X"18",X"04",X"FD",X"2A",X"88",X"F8",X"01",X"30",X"00",X"FD",X"09",X"FD",X"E5",X"E1",X"01", + X"73",X"43",X"B7",X"ED",X"42",X"38",X"04",X"FD",X"21",X"43",X"40",X"FD",X"CB",X"00",X"46",X"28", + X"E6",X"FD",X"22",X"88",X"F8",X"FD",X"E5",X"E1",X"11",X"04",X"00",X"19",X"E5",X"CD",X"4E",X"2C", + X"E1",X"CD",X"D1",X"2B",X"FD",X"2A",X"88",X"F8",X"FD",X"66",X"03",X"FD",X"6E",X"02",X"F9",X"C9", + X"D9",X"D1",X"01",X"30",X"00",X"DD",X"E5",X"E1",X"09",X"F9",X"D5",X"D9",X"C9",X"D9",X"DD",X"E5", + X"E1",X"06",X"05",X"AF",X"77",X"2B",X"10",X"FC",X"D9",X"C9",X"CD",X"65",X"1E",X"CD",X"3B",X"CB", + X"CD",X"10",X"C3",X"CD",X"89",X"29",X"CD",X"99",X"C7",X"FB",X"FD",X"21",X"E4",X"28",X"CD",X"28", + X"28",X"C3",X"EB",X"28",X"FD",X"21",X"73",X"28",X"C3",X"C7",X"24",X"DD",X"21",X"73",X"40",X"DD", + X"CB",X"00",X"7E",X"C8",X"21",X"E4",X"43",X"3A",X"BF",X"43",X"B6",X"C8",X"3A",X"E1",X"43",X"B7", + X"28",X"09",X"CD",X"83",X"1D",X"CD",X"9F",X"1D",X"C2",X"E3",X"1A",X"FD",X"2A",X"88",X"F8",X"FD", + X"7E",X"01",X"B7",X"C2",X"64",X"29",X"CD",X"72",X"C5",X"FD",X"36",X"01",X"06",X"FD",X"CB",X"00", + X"CE",X"CD",X"5F",X"C7",X"30",X"07",X"FD",X"21",X"B3",X"29",X"CD",X"28",X"28",X"21",X"F4",X"43", + X"34",X"7E",X"FE",X"09",X"20",X"2E",X"AF",X"77",X"06",X"0C",X"21",X"E6",X"F8",X"3A",X"E1",X"43", + X"B7",X"20",X"21",X"CD",X"A1",X"32",X"CD",X"37",X"C0",X"21",X"FD",X"43",X"34",X"7E",X"FE",X"28", + X"38",X"12",X"3E",X"1A",X"77",X"21",X"BF",X"43",X"7E",X"FE",X"99",X"28",X"07",X"C6",X"01",X"27", + X"77",X"CD",X"7B",X"C5",X"CD",X"4B",X"28",X"C3",X"EB",X"28",X"21",X"73",X"40",X"06",X"0F",X"11", + X"2C",X"00",X"AF",X"77",X"23",X"23",X"23",X"23",X"77",X"19",X"10",X"F7",X"21",X"43",X"40",X"22", + X"88",X"F8",X"21",X"00",X"00",X"22",X"8C",X"F8",X"C9",X"21",X"00",X"08",X"11",X"07",X"00",X"3A", + X"BE",X"43",X"E6",X"0F",X"BE",X"28",X"07",X"3E",X"FF",X"BE",X"C8",X"19",X"18",X"F1",X"23",X"01", + X"07",X"00",X"11",X"F7",X"43",X"ED",X"B0",X"C9",X"2A",X"AE",X"F8",X"7C",X"B5",X"C0",X"EB",X"22", + X"AE",X"F8",X"C9",X"CD",X"8B",X"3E",X"21",X"E4",X"43",X"34",X"CD",X"B0",X"28",X"CD",X"0B",X"28", + X"CD",X"A4",X"2A",X"CD",X"07",X"2A",X"DD",X"CB",X"14",X"C6",X"DD",X"CB",X"00",X"CE",X"DD",X"E5", + X"E1",X"FD",X"E5",X"CD",X"D1",X"2B",X"FD",X"E1",X"DD",X"CB",X"00",X"D6",X"DD",X"E5",X"3E",X"09", + X"CD",X"40",X"28",X"3E",X"01",X"CD",X"40",X"28",X"DD",X"E1",X"DD",X"CB",X"00",X"76",X"20",X"21", + X"CD",X"AA",X"20",X"DD",X"E5",X"DD",X"22",X"F1",X"43",X"CD",X"15",X"C8",X"30",X"07",X"FD",X"21", + X"FC",X"C9",X"CD",X"28",X"28",X"18",X"DC",X"2A",X"F7",X"43",X"DD",X"75",X"12",X"DD",X"74",X"13", + X"C9",X"21",X"00",X"00",X"39",X"31",X"86",X"F8",X"E5",X"DD",X"E5",X"21",X"BF",X"43",X"7E",X"3D", + X"27",X"77",X"CD",X"34",X"3B",X"E1",X"11",X"0B",X"00",X"19",X"7E",X"D6",X"04",X"77",X"11",X"06", + X"00",X"19",X"7E",X"D6",X"06",X"77",X"23",X"3A",X"F9",X"43",X"4F",X"3A",X"FA",X"43",X"47",X"71", + X"23",X"70",X"23",X"36",X"01",X"23",X"36",X"01",X"3A",X"BE",X"43",X"FA",X"51",X"2A",X"C6",X"04", + X"27",X"F5",X"E6",X"0F",X"4F",X"06",X"01",X"CD",X"C3",X"2E",X"F1",X"CB",X"3F",X"CB",X"3F",X"CB", + X"3F",X"CB",X"3F",X"28",X"06",X"4F",X"06",X"02",X"CD",X"C3",X"2E",X"CD",X"E8",X"C6",X"CD",X"E8", + X"C6",X"CD",X"E8",X"C6",X"E1",X"F9",X"2A",X"FB",X"43",X"DD",X"7E",X"04",X"BD",X"20",X"06",X"DD", + X"7E",X"05",X"BC",X"28",X"0E",X"CD",X"AA",X"20",X"DD",X"E5",X"3E",X"01",X"CD",X"40",X"28",X"DD", + X"E1",X"18",X"E3",X"CD",X"BD",X"28",X"21",X"E4",X"43",X"35",X"2A",X"88",X"F8",X"CB",X"86",X"CD", + X"4B",X"28",X"18",X"F6",X"3A",X"E1",X"43",X"B7",X"C2",X"62",X"2B",X"CD",X"7C",X"2E",X"17",X"17", + X"17",X"E6",X"03",X"CA",X"48",X"2B",X"3D",X"CA",X"55",X"2B",X"3D",X"28",X"68",X"18",X"45",X"DD", + X"70",X"0B",X"DD",X"71",X"11",X"CD",X"7C",X"2E",X"E6",X"0F",X"08",X"3A",X"BE",X"43",X"FE",X"07", + X"38",X"02",X"3E",X"07",X"47",X"08",X"CB",X"27",X"F6",X"01",X"10",X"FA",X"F6",X"10",X"6F",X"CD", + X"7C",X"2E",X"26",X"00",X"B7",X"F2",X"EB",X"2A",X"CD",X"8F",X"21",X"DD",X"75",X"08",X"DD",X"74", + X"09",X"CD",X"7C",X"2E",X"26",X"00",X"B7",X"F2",X"FD",X"2A",X"CD",X"8F",X"21",X"DD",X"75",X"0E", + X"DD",X"74",X"0F",X"C9",X"06",X"09",X"CD",X"7C",X"2E",X"FE",X"CD",X"D2",X"06",X"2B",X"4F",X"FE", + X"28",X"30",X"06",X"11",X"E0",X"C0",X"CD",X"A8",X"29",X"FE",X"B4",X"38",X"A2",X"11",X"D9",X"C0", + X"CD",X"A8",X"29",X"18",X"9A",X"06",X"C0",X"CD",X"7C",X"2E",X"FE",X"CD",X"D2",X"27",X"2B",X"4F", + X"FE",X"28",X"30",X"06",X"11",X"CB",X"C0",X"CD",X"A8",X"29",X"FE",X"B4",X"DA",X"BF",X"2A",X"11", + X"D2",X"C0",X"CD",X"A8",X"29",X"C3",X"BF",X"2A",X"0E",X"09",X"CD",X"7C",X"2E",X"FE",X"C0",X"30", + X"F9",X"47",X"C3",X"BF",X"2A",X"0E",X"CD",X"CD",X"7C",X"2E",X"FE",X"C0",X"30",X"F9",X"47",X"C3", + X"BF",X"2A",X"DD",X"36",X"0B",X"A0",X"DD",X"36",X"11",X"CD",X"DD",X"36",X"08",X"80",X"DD",X"36", + X"09",X"FF",X"DD",X"36",X"0E",X"80",X"DD",X"36",X"0E",X"FF",X"C9",X"F3",X"ED",X"73",X"8A",X"F8", + X"31",X"40",X"F8",X"F5",X"08",X"F5",X"C5",X"D5",X"E5",X"DD",X"E5",X"FD",X"E5",X"DB",X"4E",X"1F", + X"38",X"22",X"CD",X"03",X"C1",X"21",X"B5",X"F8",X"7E",X"23",X"46",X"A8",X"4F",X"DB",X"49",X"2F", + X"77",X"2B",X"70",X"A1",X"E6",X"E0",X"2B",X"87",X"D2",X"AF",X"2B",X"34",X"C3",X"A6",X"2B",X"C2", + X"A6",X"2B",X"18",X"03",X"CD",X"D2",X"2C",X"FD",X"E1",X"DD",X"E1",X"E1",X"D1",X"C1",X"F1",X"08", + X"3E",X"01",X"D3",X"4F",X"3E",X"3F",X"ED",X"47",X"ED",X"5E",X"F1",X"ED",X"7B",X"8A",X"F8",X"FB", + X"C9",X"E5",X"FD",X"E1",X"CB",X"46",X"CA",X"ED",X"2B",X"CB",X"86",X"E5",X"23",X"7E",X"D3",X"4B", + X"23",X"5E",X"23",X"56",X"23",X"7E",X"23",X"66",X"6F",X"CD",X"07",X"2D",X"E1",X"CB",X"4E",X"C8", + X"CB",X"8E",X"E5",X"11",X"0B",X"00",X"19",X"7E",X"11",X"06",X"00",X"19",X"56",X"5F",X"23",X"EB", + X"06",X"90",X"CD",X"68",X"2F",X"FD",X"77",X"01",X"EB",X"7E",X"23",X"66",X"6F",X"7E",X"23",X"66", + X"6F",X"7E",X"CB",X"7F",X"28",X"19",X"23",X"E6",X"7F",X"47",X"7E",X"23",X"4F",X"EB",X"3A",X"EC", + X"43",X"B7",X"CA",X"2A",X"2C",X"ED",X"42",X"C3",X"2E",X"2C",X"09",X"C3",X"2E",X"2C",X"EB",X"FD", + X"75",X"04",X"FD",X"74",X"05",X"FD",X"73",X"02",X"FD",X"72",X"03",X"CD",X"07",X"2D",X"E1",X"DB", + X"4E",X"CB",X"7F",X"C8",X"CB",X"FE",X"FD",X"E5",X"DD",X"E1",X"CD",X"D5",X"17",X"C9",X"CB",X"56", + X"C8",X"E5",X"FD",X"E1",X"11",X"06",X"00",X"19",X"1E",X"C2",X"16",X"06",X"FD",X"7E",X"0B",X"BA", + X"38",X"03",X"BB",X"38",X"06",X"CD",X"74",X"2D",X"C3",X"85",X"2C",X"5E",X"23",X"56",X"23",X"4E", + X"23",X"46",X"EB",X"09",X"EB",X"2B",X"73",X"23",X"72",X"23",X"4E",X"23",X"46",X"EB",X"09",X"EB", + X"2B",X"73",X"23",X"72",X"23",X"1E",X"CF",X"16",X"06",X"FD",X"7E",X"11",X"BA",X"38",X"03",X"BB", + X"38",X"06",X"CD",X"74",X"2D",X"C3",X"B2",X"2C",X"5E",X"23",X"56",X"23",X"4E",X"23",X"46",X"EB", + X"09",X"EB",X"2B",X"73",X"23",X"72",X"23",X"4E",X"23",X"46",X"EB",X"09",X"EB",X"2B",X"73",X"23", + X"72",X"23",X"5E",X"23",X"56",X"13",X"13",X"EB",X"7E",X"23",X"B6",X"2B",X"C2",X"C5",X"2C",X"23", + X"23",X"7E",X"23",X"66",X"6F",X"EB",X"72",X"2B",X"73",X"3E",X"07",X"FD",X"B6",X"00",X"FD",X"77", + X"00",X"C9",X"21",X"43",X"40",X"06",X"11",X"11",X"30",X"00",X"CB",X"4E",X"28",X"09",X"23",X"35", + X"2B",X"20",X"04",X"CB",X"8E",X"CB",X"C6",X"19",X"10",X"F0",X"C9",X"2A",X"86",X"F8",X"7C",X"B5", + X"28",X"0E",X"01",X"77",X"43",X"11",X"30",X"00",X"19",X"E5",X"B7",X"ED",X"42",X"E1",X"38",X"03", + X"21",X"77",X"40",X"22",X"86",X"F8",X"C9",X"CB",X"7A",X"C0",X"06",X"00",X"7E",X"23",X"3D",X"CA", + X"47",X"2D",X"3A",X"EC",X"43",X"B7",X"7E",X"23",X"C2",X"31",X"2D",X"01",X"1E",X"00",X"EB",X"08", + X"1A",X"13",X"77",X"23",X"1A",X"13",X"77",X"23",X"36",X"00",X"08",X"09",X"3D",X"C2",X"1F",X"2D", + X"C9",X"01",X"E2",X"FF",X"EB",X"08",X"1A",X"13",X"77",X"2B",X"1A",X"13",X"77",X"2B",X"36",X"00", + X"08",X"09",X"3D",X"C2",X"35",X"2D",X"C9",X"3A",X"EC",X"43",X"B7",X"7E",X"23",X"C2",X"62",X"2D", + X"01",X"1F",X"00",X"EB",X"08",X"1A",X"13",X"77",X"23",X"36",X"00",X"08",X"09",X"3D",X"C2",X"54", + X"2D",X"C9",X"01",X"E1",X"FF",X"EB",X"08",X"1A",X"13",X"77",X"2B",X"36",X"00",X"08",X"09",X"3D", + X"C2",X"66",X"2D",X"C9",X"FD",X"CB",X"14",X"46",X"20",X"0A",X"E1",X"FD",X"36",X"00",X"01",X"FD", + X"CB",X"14",X"FE",X"C9",X"FD",X"CB",X"14",X"6E",X"28",X"05",X"FD",X"35",X"15",X"28",X"EB",X"36", + X"00",X"23",X"36",X"00",X"23",X"7E",X"23",X"2F",X"4F",X"7E",X"2F",X"47",X"03",X"70",X"2B",X"71", + X"23",X"23",X"36",X"00",X"23",X"1D",X"CB",X"78",X"C2",X"AD",X"2D",X"1E",X"06",X"73",X"23",X"C9", + X"2A",X"AF",X"43",X"22",X"E6",X"43",X"3A",X"B1",X"43",X"32",X"E8",X"43",X"21",X"00",X"00",X"22", + X"AF",X"43",X"22",X"B0",X"43",X"2A",X"CF",X"43",X"E5",X"21",X"18",X"2E",X"22",X"E2",X"43",X"22", + X"CF",X"43",X"3E",X"FF",X"32",X"E1",X"43",X"01",X"0D",X"00",X"11",X"B5",X"43",X"21",X"0B",X"2E", + X"ED",X"B0",X"AF",X"32",X"E4",X"43",X"32",X"F0",X"43",X"32",X"F3",X"43",X"32",X"ED",X"43",X"32", + X"EE",X"43",X"CD",X"CA",X"28",X"E1",X"F5",X"22",X"CF",X"43",X"CD",X"7C",X"2E",X"2A",X"E6",X"43", + X"22",X"AF",X"43",X"2A",X"E7",X"43",X"22",X"B0",X"43",X"F1",X"C9",X"01",X"01",X"30",X"00",X"02", + X"28",X"28",X"28",X"00",X"01",X"08",X"40",X"40",X"B0",X"84",X"90",X"00",X"00",X"FF",X"4C",X"C6", + X"02",X"C6",X"02",X"C6",X"02",X"FF",X"FF",X"81",X"02",X"C4",X"02",X"C4",X"02",X"C4",X"02",X"C3", + X"FF",X"00",X"87",X"01",X"44",X"01",X"44",X"01",X"44",X"01",X"FF",X"FF",X"91",X"02",X"44",X"02", + X"44",X"02",X"44",X"02",X"5F",X"02",X"C4",X"02",X"C4",X"00",X"5F",X"FF",X"FF",X"FF",X"FF",X"FF", + X"02",X"FF",X"FF",X"02",X"FF",X"02",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"9F",X"C3",X"00", + X"A2",X"FF",X"10",X"FF",X"10",X"02",X"45",X"02",X"45",X"02",X"C4",X"02",X"FF",X"10",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"00",X"FF",X"FF",X"00",X"FF",X"FF",X"FF",X"FF",X"E5",X"2A",X"CF",X"43", + X"54",X"5D",X"29",X"19",X"29",X"19",X"29",X"29",X"29",X"29",X"19",X"11",X"53",X"31",X"19",X"22", + X"CF",X"43",X"7C",X"E1",X"C9",X"AF",X"32",X"E0",X"43",X"11",X"00",X"D5",X"21",X"AF",X"43",X"06", + X"06",X"CD",X"A0",X"2F",X"3A",X"E9",X"43",X"FE",X"02",X"C0",X"11",X"B0",X"D5",X"21",X"B2",X"43", + X"06",X"06",X"CD",X"A0",X"2F",X"C9",X"3A",X"B5",X"43",X"FE",X"02",X"21",X"B2",X"43",X"C8",X"21", + X"AF",X"43",X"C9",X"3E",X"FF",X"32",X"E0",X"43",X"1E",X"04",X"CD",X"B6",X"2E",X"23",X"23",X"23", + X"CB",X"38",X"08",X"04",X"2B",X"1D",X"10",X"FC",X"08",X"30",X"08",X"CB",X"21",X"CB",X"21",X"CB", + X"21",X"CB",X"21",X"CD",X"F2",X"2E",X"79",X"86",X"27",X"77",X"D0",X"2B",X"1D",X"C8",X"0E",X"01", + X"18",X"F1",X"08",X"7B",X"FE",X"02",X"20",X"19",X"7E",X"E6",X"0F",X"81",X"27",X"E6",X"F0",X"28", + X"10",X"D9",X"CD",X"20",X"2F",X"3A",X"BD",X"43",X"3C",X"B8",X"CC",X"13",X"2F",X"32",X"BD",X"43", + X"D9",X"08",X"C9",X"21",X"B6",X"43",X"7E",X"C6",X"01",X"27",X"77",X"CD",X"14",X"3E",X"AF",X"C9", + X"06",X"0A",X"DB",X"61",X"E6",X"F8",X"C8",X"06",X"0F",X"CB",X"5F",X"C0",X"06",X"14",X"CB",X"67", + X"C0",X"06",X"1E",X"CB",X"6F",X"C0",X"06",X"28",X"CB",X"77",X"C0",X"06",X"32",X"CB",X"7F",X"C0", + X"E1",X"46",X"23",X"5E",X"23",X"56",X"23",X"EB",X"CD",X"68",X"2F",X"EB",X"4E",X"CB",X"B9",X"CD", + X"EE",X"2F",X"47",X"3A",X"EC",X"43",X"B7",X"20",X"03",X"13",X"18",X"01",X"1B",X"23",X"7E",X"B7", + X"78",X"C2",X"4C",X"2F",X"23",X"E9",X"06",X"90",X"3A",X"EC",X"43",X"B7",X"3E",X"07",X"20",X"15", + X"A5",X"B0",X"D3",X"4B",X"CB",X"3C",X"CB",X"1D",X"CB",X"3C",X"CB",X"1D",X"CB",X"3C",X"CB",X"1D", + X"01",X"00",X"64",X"09",X"C9",X"A5",X"B0",X"CB",X"DF",X"D3",X"4B",X"CB",X"3C",X"CB",X"1D",X"CB", + X"3C",X"CB",X"1D",X"CB",X"3C",X"CB",X"1D",X"44",X"4D",X"21",X"FF",X"7F",X"B7",X"ED",X"42",X"C9", + X"C5",X"06",X"00",X"EB",X"CD",X"68",X"2F",X"EB",X"08",X"C1",X"CB",X"81",X"78",X"3D",X"20",X"02", + X"CB",X"C1",X"7E",X"CB",X"40",X"20",X"09",X"CB",X"3F",X"CB",X"3F",X"CB",X"3F",X"CB",X"3F",X"2B", + X"23",X"E6",X"0F",X"20",X"08",X"CB",X"41",X"20",X"06",X"3E",X"20",X"18",X"0A",X"CB",X"C1",X"C6", + X"30",X"FE",X"3A",X"38",X"02",X"C6",X"07",X"E5",X"C5",X"4F",X"08",X"CD",X"EE",X"2F",X"08",X"C1", + X"E1",X"3A",X"EC",X"43",X"B7",X"20",X"03",X"13",X"18",X"01",X"1B",X"10",X"BF",X"C9",X"D5",X"E5", + X"32",X"5C",X"F9",X"06",X"09",X"C5",X"CD",X"46",X"C7",X"01",X"C8",X"35",X"C5",X"CD",X"32",X"C7", + X"E1",X"7E",X"B7",X"F2",X"20",X"30",X"06",X"03",X"0E",X"20",X"C5",X"CD",X"46",X"C7",X"C1",X"D5", + X"C5",X"3A",X"EC",X"43",X"B7",X"28",X"05",X"CD",X"3B",X"C7",X"18",X"03",X"CD",X"32",X"C7",X"D1", + X"EB",X"3E",X"09",X"F5",X"F3",X"3A",X"5C",X"F9",X"D3",X"4B",X"3A",X"EC",X"43",X"B7",X"28",X"13", + X"1A",X"E6",X"7F",X"13",X"77",X"2B",X"36",X"00",X"E5",X"01",X"E1",X"FF",X"C5",X"CD",X"32",X"C7", + X"E1",X"18",X"11",X"1A",X"E6",X"7F",X"13",X"77",X"23",X"36",X"00",X"E5",X"01",X"1F",X"00",X"C5", + X"CD",X"32",X"C7",X"E1",X"FB",X"F1",X"3D",X"28",X"03",X"F5",X"18",X"C8",X"E1",X"D1",X"3A",X"5C", + X"F9",X"C9",X"E5",X"32",X"5C",X"F9",X"79",X"FE",X"20",X"20",X"02",X"0E",X"0A",X"06",X"06",X"C5", + X"CD",X"46",X"C7",X"01",X"FC",X"30",X"C5",X"CD",X"32",X"C7",X"E1",X"EB",X"06",X"06",X"C5",X"F3", + X"3A",X"5C",X"F9",X"D3",X"4B",X"3A",X"EC",X"43",X"B7",X"28",X"11",X"1A",X"13",X"77",X"2B",X"36", + X"00",X"E5",X"01",X"E1",X"FF",X"C5",X"CD",X"32",X"C7",X"E1",X"18",X"0F",X"1A",X"13",X"77",X"23", + X"36",X"00",X"E5",X"01",X"1F",X"00",X"C5",X"CD",X"32",X"C7",X"E1",X"FB",X"C1",X"05",X"28",X"03", + X"C5",X"18",X"CC",X"E1",X"C9",X"3E",X"01",X"F5",X"78",X"FE",X"00",X"20",X"02",X"F1",X"C9",X"7E", + X"CB",X"40",X"20",X"0A",X"CB",X"3F",X"CB",X"3F",X"CB",X"3F",X"CB",X"3F",X"18",X"03",X"E6",X"0F", + X"23",X"4F",X"F1",X"F5",X"B7",X"28",X"10",X"79",X"B7",X"28",X"05",X"F1",X"AF",X"F5",X"18",X"07", + X"78",X"FE",X"01",X"28",X"02",X"0E",X"20",X"C5",X"D5",X"EB",X"C5",X"CD",X"66",X"2F",X"C1",X"EB", + X"CD",X"62",X"30",X"D1",X"3E",X"05",X"83",X"5F",X"C1",X"05",X"18",X"BC",X"06",X"09",X"09",X"09", + X"09",X"06",X"02",X"06",X"02",X"02",X"02",X"07",X"06",X"09",X"01",X"02",X"04",X"0F",X"0F",X"01", + X"02",X"01",X"09",X"06",X"09",X"09",X"0F",X"01",X"01",X"01",X"0F",X"08",X"0E",X"01",X"01",X"0E", + X"07",X"08",X"0E",X"09",X"09",X"06",X"0F",X"01",X"01",X"02",X"02",X"02",X"06",X"09",X"06",X"09", + X"09",X"06",X"06",X"09",X"07",X"01",X"01",X"01",X"00",X"00",X"00",X"00",X"00",X"00",X"21",X"CD", + X"B6",X"2E",X"E5",X"23",X"23",X"EB",X"21",X"DA",X"F8",X"0E",X"03",X"06",X"0C",X"1A",X"E6",X"0F", + X"28",X"06",X"CD",X"A1",X"32",X"3D",X"20",X"FA",X"05",X"1A",X"E6",X"F0",X"28",X"07",X"CD",X"A1", + X"32",X"D6",X"10",X"20",X"F9",X"05",X"1B",X"0D",X"20",X"E3",X"0E",X"0A",X"11",X"73",X"43",X"E1", + X"E5",X"D5",X"06",X"03",X"1A",X"BE",X"38",X"11",X"20",X"04",X"13",X"23",X"10",X"F6",X"D1",X"21", + X"06",X"00",X"19",X"EB",X"E1",X"0D",X"20",X"E8",X"C9",X"D1",X"D5",X"06",X"00",X"0D",X"28",X"14", + X"21",X"00",X"00",X"09",X"29",X"09",X"29",X"E5",X"19",X"2B",X"54",X"5D",X"01",X"06",X"00",X"09", + X"EB",X"C1",X"ED",X"B8",X"D1",X"E1",X"06",X"03",X"7E",X"23",X"12",X"13",X"10",X"FA",X"EB",X"E5", + X"CD",X"65",X"1E",X"CD",X"BD",X"CB",X"CD",X"05",X"1F",X"BC",X"32",X"F9",X"32",X"DB",X"32",X"18", + X"33",X"08",X"06",X"01",X"21",X"B5",X"43",X"CD",X"AA",X"2F",X"CD",X"05",X"1F",X"37",X"33",X"FF", + X"33",X"9B",X"33",X"79",X"34",X"CD",X"40",X"2F",X"90",X"78",X"62",X"5F",X"5F",X"5F",X"00",X"CD", + X"05",X"1F",X"55",X"35",X"EC",X"34",X"9B",X"35",X"06",X"36",X"06",X"00",X"21",X"78",X"60",X"CD", + X"68",X"2F",X"EB",X"E1",X"E5",X"06",X"03",X"36",X"20",X"23",X"10",X"FB",X"E1",X"3E",X"FF",X"32", + X"B6",X"43",X"06",X"03",X"0E",X"51",X"C5",X"DB",X"48",X"CD",X"2A",X"C7",X"28",X"02",X"DB",X"4A", + X"2F",X"CB",X"7F",X"20",X"F2",X"AF",X"CD",X"2A",X"C7",X"28",X"02",X"3E",X"08",X"CD",X"EE",X"2F", + X"D5",X"E5",X"3E",X"06",X"CD",X"40",X"28",X"E1",X"D1",X"C1",X"3A",X"B6",X"43",X"3D",X"32",X"B6", + X"43",X"28",X"42",X"DB",X"48",X"CD",X"2A",X"C7",X"28",X"02",X"DB",X"4A",X"2F",X"CB",X"7F",X"28", + X"49",X"3E",X"FA",X"32",X"B6",X"43",X"71",X"C5",X"3A",X"EC",X"43",X"B7",X"01",X"40",X"00",X"28", + X"03",X"01",X"C0",X"FF",X"D5",X"EB",X"09",X"EB",X"AF",X"CD",X"2A",X"C7",X"28",X"02",X"3E",X"08", + X"F6",X"90",X"0E",X"5F",X"CD",X"EE",X"2F",X"D1",X"C1",X"23",X"3A",X"EC",X"43",X"B7",X"13",X"28", + X"02",X"1B",X"1B",X"10",X"91",X"21",X"73",X"43",X"11",X"F2",X"F8",X"06",X"1E",X"7E",X"23",X"12", + X"13",X"07",X"07",X"07",X"07",X"12",X"13",X"10",X"F4",X"C9",X"3A",X"EE",X"43",X"CB",X"3F",X"CB", + X"3F",X"CB",X"3F",X"E6",X"1F",X"C6",X"41",X"FE",X"5B",X"38",X"02",X"3E",X"20",X"4F",X"C3",X"06", + X"32",X"F5",X"C5",X"D5",X"E5",X"16",X"00",X"58",X"1D",X"19",X"0E",X"10",X"7E",X"E6",X"F0",X"81", + X"27",X"77",X"30",X"03",X"2B",X"10",X"F5",X"E1",X"D1",X"C1",X"F1",X"C9",X"CD",X"40",X"2F",X"90", + X"28",X"08",X"43",X"6F",X"6E",X"67",X"72",X"61",X"74",X"75",X"6C",X"61",X"74",X"69",X"6F",X"6E", + X"73",X"20",X"50",X"6C",X"61",X"79",X"65",X"72",X"20",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"20", + X"08",X"46",X"65",X"6C",X"69",X"63",X"69",X"74",X"61",X"74",X"69",X"6F",X"6E",X"73",X"2C",X"20", + X"6A",X"6F",X"75",X"65",X"75",X"72",X"20",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"20",X"08",X"47", + X"6C",X"25",X"65",X"63",X"6B",X"77",X"25",X"65",X"6E",X"73",X"63",X"68",X"65",X"20",X"53",X"70", + X"69",X"65",X"6C",X"65",X"72",X"20",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"20",X"08",X"46",X"65", + X"6C",X"69",X"63",X"69",X"74",X"61",X"63",X"69",X"6F",X"6E",X"65",X"73",X"20",X"6A",X"75",X"67", + X"61",X"64",X"6F",X"72",X"20",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"08",X"20",X"59",X"6F",X"75", + X"20",X"68",X"61",X"76",X"65",X"20",X"6A",X"6F",X"69",X"6E",X"65",X"64",X"20",X"74",X"68",X"65", + X"20",X"61",X"73",X"74",X"72",X"6F",X"6E",X"61",X"75",X"74",X"73",X"00",X"CD",X"40",X"2F",X"90", + X"0C",X"30",X"69",X"6E",X"20",X"74",X"68",X"65",X"20",X"4D",X"4F",X"4F",X"4E",X"20",X"57",X"41", + X"52",X"20",X"68",X"61",X"6C",X"6C",X"20",X"6F",X"66",X"20",X"66",X"61",X"6D",X"65",X"00",X"CD", + X"40",X"2F",X"90",X"18",X"50",X"45",X"6E",X"74",X"65",X"72",X"20",X"79",X"6F",X"75",X"72",X"20", + X"69",X"6E",X"69",X"74",X"69",X"61",X"6C",X"73",X"3A",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"08", + X"20",X"56",X"6F",X"75",X"73",X"20",X"65",X"74",X"65",X"73",X"20",X"61",X"75",X"20",X"74",X"61", + X"62",X"6C",X"65",X"61",X"75",X"20",X"64",X"27",X"68",X"6F",X"6E",X"6E",X"65",X"75",X"72",X"00", + X"CD",X"40",X"2F",X"90",X"0C",X"30",X"64",X"65",X"73",X"20",X"61",X"73",X"74",X"72",X"6F",X"6E", + X"61",X"75",X"74",X"65",X"73",X"20",X"64",X"75",X"20",X"4D",X"4F",X"4F",X"4E",X"20",X"57",X"41", + X"52",X"2E",X"00",X"CD",X"40",X"2F",X"90",X"18",X"50",X"54",X"61",X"70",X"65",X"72",X"20",X"76", + X"6F",X"73",X"20",X"69",X"6E",X"69",X"74",X"69",X"61",X"6C",X"65",X"73",X"3A",X"00",X"C9",X"CD", + X"40",X"2F",X"90",X"20",X"20",X"53",X"69",X"65",X"20",X"68",X"61",X"62",X"65",X"6E",X"20",X"64", + X"69",X"65",X"20",X"68",X"24",X"65",X"63",X"68",X"73",X"74",X"65",X"00",X"CD",X"40",X"2F",X"90", + X"14",X"30",X"61",X"73",X"74",X"72",X"6F",X"6E",X"61",X"75",X"74",X"69",X"73",X"63",X"68",X"65", + X"20",X"61",X"75",X"73",X"7A",X"65",X"69",X"63",X"68",X"6E",X"75",X"6E",X"67",X"00",X"CD",X"40", + X"2F",X"90",X"30",X"40",X"69",X"6D",X"20",X"4D",X"4F",X"4F",X"4E",X"20",X"57",X"41",X"52",X"20", + X"65",X"72",X"6C",X"61",X"6E",X"67",X"74",X"2E",X"00",X"CD",X"40",X"2F",X"90",X"18",X"52",X"49", + X"68",X"72",X"65",X"20",X"69",X"6E",X"69",X"74",X"69",X"61",X"6C",X"65",X"6E",X"20",X"65",X"69", + X"6E",X"67",X"65",X"62",X"65",X"6E",X"3A",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"04",X"20",X"55", + X"73",X"74",X"65",X"64",X"20",X"68",X"61",X"20",X"69",X"6E",X"67",X"72",X"65",X"73",X"61",X"64", + X"6F",X"20",X"65",X"6E",X"20",X"6C",X"61",X"20",X"73",X"61",X"6C",X"61",X"00",X"CD",X"40",X"2F", + X"90",X"10",X"30",X"64",X"65",X"20",X"6C",X"61",X"20",X"66",X"61",X"6D",X"61",X"20",X"64",X"65", + X"20",X"61",X"73",X"74",X"72",X"6F",X"6E",X"61",X"75",X"74",X"61",X"73",X"00",X"CD",X"40",X"2F", + X"90",X"40",X"40",X"64",X"65",X"20",X"4D",X"4F",X"4F",X"4E",X"20",X"57",X"41",X"52",X"2E",X"00", + X"CD",X"40",X"2F",X"90",X"18",X"52",X"45",X"6E",X"74",X"72",X"65",X"20",X"73",X"75",X"73",X"20", + X"69",X"6E",X"69",X"63",X"69",X"61",X"6C",X"65",X"73",X"3A",X"00",X"C9",X"CD",X"40",X"2F",X"90", + X"08",X"80",X"5A",X"75",X"72",X"20",X"23",X"6E",X"64",X"65",X"72",X"75",X"6E",X"67",X"20",X"64", + X"65",X"73",X"20",X"62",X"75",X"73",X"63",X"68",X"73",X"74",X"61",X"62",X"65",X"6E",X"73",X"00", + X"CD",X"40",X"2F",X"90",X"08",X"90",X"72",X"61",X"64",X"20",X"64",X"72",X"65",X"68",X"65",X"6E", + X"2C",X"20",X"64",X"61",X"6E",X"6E",X"20",X"61",X"75",X"66",X"20",X"46",X"49",X"52",X"45",X"00", + X"CD",X"40",X"2F",X"90",X"08",X"A0",X"64",X"72",X"25",X"65",X"63",X"6B",X"65",X"6E",X"2C",X"20", + X"75",X"6D",X"20",X"69",X"68",X"6E",X"20",X"7A",X"75",X"20",X"73",X"70",X"65",X"69",X"63",X"68", + X"65",X"72",X"6E",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"08",X"80",X"4D",X"6F",X"76",X"65",X"20", + X"77",X"68",X"65",X"65",X"6C",X"20",X"74",X"6F",X"20",X"63",X"68",X"61",X"6E",X"67",X"65",X"20", + X"6C",X"65",X"74",X"74",X"65",X"72",X"00",X"CD",X"40",X"2F",X"90",X"08",X"90",X"74",X"68",X"65", + X"6E",X"20",X"70",X"72",X"65",X"73",X"73",X"20",X"46",X"49",X"52",X"45",X"20",X"74",X"6F",X"20", + X"73",X"74",X"6F",X"72",X"65",X"20",X"69",X"74",X"2E",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"04", + X"80",X"54",X"6F",X"75",X"72",X"6E",X"65",X"72",X"20",X"6C",X"61",X"20",X"72",X"6F",X"75",X"65", + X"20",X"70",X"6F",X"75",X"72",X"20",X"63",X"68",X"61",X"6E",X"67",X"65",X"72",X"00",X"CD",X"40", + X"2F",X"90",X"04",X"90",X"6C",X"61",X"20",X"6C",X"65",X"74",X"74",X"72",X"65",X"2C",X"20",X"70", + X"75",X"69",X"73",X"20",X"61",X"70",X"70",X"75",X"79",X"65",X"72",X"20",X"73",X"75",X"72",X"00", + X"CD",X"40",X"2F",X"90",X"04",X"A0",X"46",X"49",X"52",X"45",X"20",X"70",X"6F",X"75",X"72",X"20", + X"6C",X"65",X"20",X"6D",X"65",X"74",X"74",X"72",X"65",X"20",X"65",X"6E",X"20",X"6D",X"65",X"6D", + X"6F",X"69",X"72",X"65",X"00",X"C9",X"CD",X"40",X"2F",X"90",X"04",X"80",X"50",X"61",X"72",X"61", + X"20",X"63",X"61",X"6D",X"62",X"69",X"61",X"72",X"20",X"6C",X"65",X"20",X"6C",X"65",X"74",X"72", + X"61",X"2C",X"20",X"67",X"69",X"72",X"65",X"00",X"CD",X"40",X"2F",X"90",X"04",X"90",X"6C",X"61", + X"20",X"72",X"75",X"65",X"64",X"61",X"2C",X"20",X"6C",X"75",X"65",X"67",X"6F",X"20",X"6F",X"70", + X"72",X"69",X"6D",X"61",X"20",X"46",X"49",X"52",X"45",X"00",X"CD",X"40",X"2F",X"90",X"04",X"A0", + X"70",X"61",X"72",X"61",X"20",X"61",X"6C",X"6D",X"61",X"63",X"65",X"6E",X"61",X"72",X"6C",X"61", + X"2E",X"00",X"C9",X"CD",X"65",X"1E",X"CD",X"BD",X"CB",X"CD",X"92",X"C8",X"3A",X"E9",X"43",X"3D", + X"06",X"08",X"28",X"02",X"06",X"0E",X"C5",X"78",X"FE",X"0E",X"CC",X"EB",X"3E",X"CD",X"05",X"1F", + X"A2",X"36",X"B1",X"36",X"C1",X"36",X"CF",X"36",X"08",X"06",X"01",X"21",X"B5",X"43",X"CD",X"AA", + X"2F",X"C1",X"CB",X"40",X"3E",X"0F",X"28",X"02",X"3E",X"05",X"C5",X"CD",X"40",X"28",X"C1",X"10", + X"D5",X"C9",X"CD",X"40",X"2F",X"90",X"60",X"50",X"50",X"6C",X"61",X"79",X"65",X"72",X"20",X"00", + X"C9",X"CD",X"40",X"2F",X"90",X"60",X"50",X"53",X"70",X"69",X"65",X"6C",X"65",X"72",X"20",X"00", + X"C9",X"CD",X"40",X"2F",X"90",X"60",X"50",X"4A",X"6F",X"75",X"65",X"72",X"20",X"00",X"C9",X"CD", + X"40",X"2F",X"90",X"60",X"50",X"4A",X"75",X"67",X"61",X"64",X"6F",X"72",X"20",X"00",X"C9",X"00", + X"3E",X"41",X"5D",X"51",X"5D",X"41",X"3E",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00", + X"00",X"10",X"10",X"10",X"10",X"10",X"10",X"10",X"00",X"10",X"14",X"14",X"14",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"14",X"00",X"3A",X"46",X"42",X"42",X"46",X"3A",X"00",X"14",X"00",X"3C", + X"42",X"42",X"42",X"42",X"3C",X"00",X"14",X"00",X"42",X"42",X"42",X"42",X"42",X"3C",X"00",X"18", + X"24",X"28",X"10",X"29",X"46",X"46",X"39",X"08",X"08",X"08",X"00",X"00",X"00",X"00",X"00",X"00", + X"04",X"08",X"10",X"10",X"10",X"10",X"10",X"08",X"04",X"10",X"08",X"04",X"04",X"04",X"04",X"04", + X"08",X"10",X"00",X"00",X"08",X"2A",X"1C",X"1C",X"2A",X"08",X"00",X"00",X"00",X"08",X"08",X"3E", + X"08",X"08",X"00",X"00",X"80",X"00",X"00",X"00",X"18",X"18",X"08",X"10",X"00",X"00",X"00",X"00", + X"00",X"3E",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"00",X"18",X"18",X"00", + X"00",X"01",X"02",X"04",X"08",X"10",X"20",X"40",X"1C",X"22",X"41",X"41",X"41",X"41",X"41",X"22", + X"1C",X"08",X"18",X"08",X"08",X"08",X"08",X"08",X"08",X"1C",X"3E",X"41",X"01",X"01",X"3E",X"40", + X"40",X"40",X"7F",X"3E",X"41",X"01",X"01",X"1E",X"01",X"01",X"41",X"3E",X"02",X"06",X"0A",X"12", + X"22",X"7F",X"02",X"02",X"02",X"7F",X"40",X"40",X"40",X"7E",X"01",X"01",X"41",X"3E",X"3E",X"41", + X"40",X"40",X"7E",X"41",X"41",X"41",X"3E",X"7F",X"01",X"02",X"02",X"04",X"04",X"08",X"08",X"08", + X"3E",X"41",X"41",X"41",X"3E",X"41",X"41",X"41",X"3E",X"3E",X"41",X"41",X"41",X"3F",X"01",X"01", + X"41",X"3E",X"00",X"00",X"00",X"18",X"18",X"00",X"00",X"18",X"18",X"98",X"18",X"00",X"00",X"18", + X"18",X"08",X"10",X"00",X"02",X"04",X"08",X"10",X"20",X"10",X"08",X"04",X"02",X"00",X"00",X"00", + X"3E",X"00",X"3E",X"00",X"00",X"00",X"20",X"10",X"08",X"04",X"02",X"04",X"08",X"10",X"20",X"1C", + X"22",X"02",X"02",X"04",X"08",X"08",X"00",X"08",X"3E",X"41",X"4F",X"49",X"49",X"4F",X"40",X"40", + X"3F",X"3E",X"41",X"41",X"41",X"7F",X"41",X"41",X"41",X"41",X"7E",X"41",X"41",X"41",X"7E",X"41", + X"41",X"41",X"7E",X"3E",X"41",X"40",X"40",X"40",X"40",X"40",X"41",X"3E",X"7E",X"41",X"41",X"41", + X"41",X"41",X"41",X"41",X"7E",X"7F",X"40",X"40",X"40",X"7C",X"40",X"40",X"40",X"7F",X"7F",X"40", + X"40",X"40",X"7C",X"40",X"40",X"40",X"40",X"3E",X"41",X"40",X"40",X"47",X"41",X"41",X"41",X"3F", + X"41",X"41",X"41",X"41",X"7F",X"41",X"41",X"41",X"41",X"1C",X"08",X"08",X"08",X"08",X"08",X"08", + X"08",X"1C",X"01",X"01",X"01",X"01",X"01",X"01",X"01",X"41",X"3E",X"41",X"42",X"44",X"48",X"50", + X"68",X"44",X"42",X"41",X"40",X"40",X"40",X"40",X"40",X"40",X"40",X"40",X"7F",X"41",X"63",X"55", + X"49",X"41",X"41",X"41",X"41",X"41",X"41",X"61",X"51",X"49",X"45",X"43",X"41",X"41",X"41",X"3E", + X"41",X"41",X"41",X"41",X"41",X"41",X"41",X"3E",X"7E",X"41",X"41",X"41",X"7E",X"40",X"40",X"40", + X"40",X"3E",X"41",X"41",X"41",X"41",X"41",X"45",X"42",X"3D",X"7E",X"41",X"41",X"41",X"7E",X"48", + X"44",X"42",X"41",X"3E",X"41",X"40",X"40",X"3E",X"01",X"01",X"41",X"3E",X"7F",X"08",X"08",X"08", + X"08",X"08",X"08",X"08",X"08",X"41",X"41",X"41",X"41",X"41",X"41",X"41",X"41",X"3E",X"41",X"41", + X"41",X"22",X"22",X"14",X"14",X"08",X"08",X"41",X"41",X"41",X"41",X"41",X"49",X"55",X"63",X"41", + X"41",X"41",X"22",X"14",X"08",X"14",X"22",X"41",X"41",X"41",X"41",X"22",X"14",X"08",X"08",X"08", + X"08",X"08",X"7F",X"01",X"02",X"04",X"08",X"10",X"20",X"40",X"7F",X"3C",X"20",X"20",X"20",X"20", + X"20",X"20",X"20",X"3C",X"00",X"00",X"40",X"20",X"10",X"08",X"04",X"02",X"01",X"3C",X"04",X"04", + X"04",X"04",X"04",X"04",X"04",X"3C",X"08",X"14",X"22",X"41",X"00",X"00",X"00",X"00",X"00",X"80", + X"00",X"00",X"00",X"00",X"00",X"FF",X"00",X"00",X"18",X"18",X"10",X"08",X"00",X"00",X"00",X"00", + X"00",X"00",X"00",X"00",X"3A",X"46",X"42",X"42",X"46",X"3A",X"40",X"40",X"40",X"5C",X"62",X"42", + X"42",X"62",X"5C",X"00",X"00",X"00",X"3C",X"42",X"40",X"40",X"42",X"3C",X"02",X"02",X"02",X"3A", + X"46",X"42",X"42",X"46",X"3A",X"00",X"00",X"00",X"3C",X"42",X"7E",X"40",X"40",X"3C",X"0C",X"12", + X"10",X"10",X"38",X"10",X"10",X"10",X"10",X"BA",X"46",X"42",X"42",X"46",X"3A",X"02",X"42",X"3C", + X"40",X"40",X"40",X"7C",X"42",X"42",X"42",X"42",X"42",X"00",X"08",X"00",X"08",X"08",X"08",X"08", + X"08",X"08",X"84",X"04",X"04",X"04",X"04",X"04",X"04",X"44",X"38",X"40",X"40",X"40",X"44",X"48", + X"50",X"70",X"48",X"44",X"10",X"10",X"10",X"10",X"10",X"10",X"10",X"10",X"10",X"00",X"00",X"00", + X"76",X"49",X"49",X"49",X"49",X"49",X"00",X"00",X"00",X"7C",X"42",X"42",X"42",X"42",X"42",X"00", + X"00",X"00",X"3C",X"42",X"42",X"42",X"42",X"3C",X"DC",X"62",X"42",X"42",X"62",X"5C",X"40",X"40", + X"40",X"BA",X"46",X"42",X"42",X"46",X"3A",X"02",X"02",X"02",X"00",X"00",X"00",X"5C",X"62",X"40", + X"40",X"40",X"40",X"00",X"00",X"00",X"3C",X"42",X"30",X"0C",X"42",X"3C",X"00",X"10",X"10",X"7C", + X"10",X"10",X"10",X"10",X"10",X"00",X"00",X"00",X"42",X"42",X"42",X"42",X"42",X"3C",X"00",X"00", + X"00",X"44",X"44",X"44",X"44",X"28",X"10",X"00",X"00",X"00",X"41",X"41",X"41",X"49",X"49",X"36", + X"00",X"00",X"00",X"42",X"24",X"18",X"18",X"24",X"42",X"C2",X"42",X"42",X"42",X"46",X"3A",X"02", + X"42",X"3C",X"00",X"00",X"00",X"7E",X"04",X"08",X"10",X"20",X"7E",X"0C",X"10",X"10",X"10",X"20", + X"10",X"10",X"10",X"0C",X"08",X"08",X"08",X"00",X"00",X"08",X"08",X"08",X"00",X"18",X"04",X"04", + X"04",X"02",X"04",X"04",X"04",X"18",X"30",X"49",X"06",X"00",X"00",X"00",X"00",X"00",X"00",X"55", + X"2A",X"55",X"2A",X"55",X"2A",X"55",X"2A",X"55",X"00",X"00",X"00",X"00",X"24",X"66",X"66",X"66", + X"00",X"21",X"9F",X"F8",X"F5",X"3E",X"FF",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21",X"D3",X"3A", + X"22",X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"21",X"9F",X"F8",X"F5",X"3E",X"0E",X"BE",X"38",X"09", + X"D3",X"4D",X"77",X"21",X"7D",X"3A",X"22",X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"0E",X"04",X"97", + X"F8",X"00",X"05",X"06",X"06",X"0E",X"03",X"8E",X"F8",X"92",X"92",X"92",X"0F",X"03",X"91",X"F8", + X"32",X"00",X"32",X"00",X"32",X"00",X"06",X"04",X"AB",X"F8",X"06",X"32",X"A9",X"F8",X"01",X"0B", + X"15",X"00",X"91",X"F8",X"0B",X"17",X"00",X"93",X"F8",X"0B",X"29",X"00",X"95",X"F8",X"03",X"A9", + X"F8",X"EC",X"07",X"32",X"00",X"91",X"F8",X"03",X"AB",X"F8",X"DF",X"06",X"FA",X"A9",X"F8",X"01", + X"0B",X"0A",X"00",X"91",X"F8",X"0B",X"0D",X"00",X"93",X"F8",X"0B",X"0F",X"00",X"95",X"F8",X"03", + X"A9",X"F8",X"EC",X"0E",X"03",X"8E",X"F8",X"00",X"00",X"00",X"0E",X"04",X"98",X"F8",X"00",X"00", + X"00",X"00",X"00",X"21",X"9F",X"F8",X"F5",X"3E",X"16",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21", + X"F9",X"3A",X"22",X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"0E",X"04",X"97",X"F8",X"00",X"06",X"07", + X"06",X"0E",X"03",X"8E",X"F8",X"90",X"90",X"90",X"06",X"10",X"A9",X"F8",X"07",X"AC",X"00",X"91", + X"F8",X"0F",X"02",X"93",X"F8",X"14",X"00",X"0A",X"00",X"06",X"19",X"AB",X"F8",X"01",X"0A",X"05", + X"93",X"F8",X"0A",X"1E",X"95",X"F8",X"03",X"AB",X"F8",X"F3",X"0A",X"FC",X"91",X"F8",X"03",X"A9", + X"F8",X"DF",X"02",X"9F",X"21",X"9F",X"F8",X"F5",X"3E",X"13",X"BE",X"38",X"09",X"D3",X"4D",X"77", + X"21",X"4A",X"3B",X"22",X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"0E",X"03",X"8E",X"F8",X"82",X"80", + X"80",X"0E",X"04",X"97",X"F8",X"03",X"05",X"06",X"07",X"0F",X"03",X"91",X"F8",X"01",X"00",X"01", + X"00",X"05",X"00",X"0E",X"03",X"8E",X"F8",X"92",X"90",X"90",X"06",X"37",X"AB",X"F8",X"06",X"06", + X"A9",X"F8",X"01",X"03",X"A9",X"F8",X"FB",X"0B",X"01",X"00",X"91",X"F8",X"03",X"AB",X"F8",X"EE", + X"0E",X"03",X"8E",X"F8",X"00",X"00",X"00",X"0E",X"04",X"97",X"F8",X"00",X"00",X"00",X"00",X"00", + X"21",X"9F",X"F8",X"F5",X"3E",X"0F",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21",X"A6",X"3B",X"22", + X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"0E",X"03",X"8E",X"F8",X"92",X"92",X"92",X"0E",X"04",X"97", + X"F8",X"00",X"06",X"07",X"06",X"0F",X"03",X"91",X"F8",X"00",X"01",X"10",X"02",X"20",X"03",X"06", + X"28",X"AB",X"F8",X"01",X"0B",X"16",X"00",X"91",X"F8",X"0B",X"1F",X"00",X"93",X"F8",X"0B",X"14", + X"00",X"95",X"F8",X"03",X"AB",X"F8",X"EC",X"0F",X"03",X"91",X"F8",X"00",X"01",X"10",X"02",X"20", + X"03",X"06",X"37",X"AB",X"F8",X"01",X"0B",X"2A",X"00",X"91",X"F8",X"0B",X"33",X"00",X"93",X"F8", + X"0B",X"28",X"00",X"95",X"F8",X"03",X"AB",X"F8",X"EC",X"06",X"23",X"AB",X"F8",X"01",X"0B",X"F5", + X"FF",X"91",X"F8",X"0B",X"F5",X"FF",X"93",X"F8",X"0B",X"F5",X"FF",X"95",X"F8",X"03",X"AB",X"F8", + X"EC",X"0E",X"03",X"8E",X"F8",X"00",X"00",X"00",X"0E",X"04",X"97",X"F8",X"00",X"00",X"00",X"00", + X"00",X"21",X"9F",X"F8",X"F5",X"3E",X"12",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21",X"37",X"3C", + X"22",X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"0F",X"03",X"91",X"F8",X"14",X"00",X"2D",X"00",X"5A", + X"00",X"0E",X"03",X"8E",X"F8",X"92",X"92",X"92",X"0E",X"04",X"97",X"F8",X"00",X"06",X"05",X"07", + X"06",X"04",X"AB",X"F8",X"06",X"50",X"A9",X"F8",X"01",X"0B",X"08",X"00",X"91",X"F8",X"0B",X"11", + X"00",X"93",X"F8",X"0B",X"2F",X"00",X"95",X"F8",X"03",X"A9",X"F8",X"EC",X"03",X"AB",X"F8",X"E4", + X"0E",X"03",X"8E",X"F8",X"00",X"00",X"00",X"0E",X"04",X"97",X"F8",X"00",X"00",X"00",X"00",X"00", + X"21",X"9F",X"F8",X"F5",X"3E",X"11",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21",X"F6",X"3C",X"22", + X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"06",X"06",X"AB",X"F8",X"0F",X"03",X"91",X"F8",X"2C",X"01", + X"C8",X"00",X"64",X"00",X"0E",X"04",X"97",X"F8",X"00",X"07",X"06",X"05",X"02",X"5E",X"06",X"08", + X"AB",X"F8",X"0F",X"03",X"91",X"F8",X"58",X"02",X"90",X"01",X"C8",X"00",X"0E",X"04",X"97",X"F8", + X"00",X"06",X"06",X"05",X"02",X"46",X"06",X"0A",X"AB",X"F8",X"0F",X"03",X"91",X"F8",X"84",X"03", + X"58",X"02",X"2C",X"01",X"0E",X"04",X"97",X"F8",X"00",X"06",X"05",X"04",X"02",X"2E",X"06",X"0C", + X"AB",X"F8",X"0F",X"03",X"91",X"F8",X"E2",X"04",X"20",X"03",X"90",X"01",X"0E",X"04",X"97",X"F8", + X"00",X"05",X"05",X"04",X"02",X"16",X"06",X"04",X"AB",X"F8",X"0F",X"03",X"91",X"F8",X"96",X"00", + X"64",X"00",X"32",X"00",X"0E",X"04",X"97",X"F8",X"00",X"07",X"07",X"07",X"04",X"AB",X"F8",X"A7", + X"F8",X"0A",X"01",X"9F",X"F8",X"0E",X"03",X"8E",X"F8",X"92",X"92",X"92",X"04",X"A7",X"F8",X"A9", + X"F8",X"01",X"0B",X"0C",X"00",X"91",X"F8",X"0B",X"08",X"00",X"93",X"F8",X"0B",X"04",X"00",X"95", + X"F8",X"03",X"A9",X"F8",X"EC",X"04",X"A7",X"F8",X"A9",X"F8",X"0A",X"FE",X"A9",X"F8",X"01",X"0B", + X"F7",X"FF",X"91",X"F8",X"0B",X"FA",X"FF",X"93",X"F8",X"0B",X"FD",X"FF",X"95",X"F8",X"03",X"A9", + X"F8",X"EC",X"03",X"AB",X"F8",X"C6",X"0E",X"03",X"8E",X"F8",X"00",X"00",X"00",X"0E",X"04",X"97", + X"F8",X"00",X"00",X"00",X"00",X"00",X"21",X"9F",X"F8",X"F5",X"3E",X"08",X"BE",X"38",X"09",X"D3", + X"4D",X"77",X"21",X"96",X"3C",X"22",X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"21",X"9F",X"F8",X"F5", + X"3E",X"06",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21",X"AE",X"3C",X"22",X"9B",X"F8",X"F1",X"D3", + X"4C",X"C9",X"21",X"9F",X"F8",X"F5",X"3E",X"04",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21",X"C6", + X"3C",X"22",X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"21",X"9F",X"F8",X"F5",X"3E",X"02",X"BE",X"38", + X"09",X"D3",X"4D",X"77",X"21",X"DE",X"3C",X"22",X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"21",X"9F", + X"F8",X"F5",X"3E",X"14",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21",X"EA",X"3D",X"22",X"9B",X"F8", + X"F1",X"D3",X"4C",X"C9",X"21",X"9F",X"F8",X"F5",X"3E",X"15",X"BE",X"38",X"09",X"D3",X"4D",X"77", + X"21",X"04",X"3E",X"22",X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"0E",X"04",X"97",X"F8",X"00",X"06", + X"06",X"06",X"0E",X"03",X"8E",X"F8",X"92",X"92",X"92",X"0F",X"03",X"91",X"F8",X"E8",X"03",X"4C", + X"04",X"B0",X"04",X"00",X"0B",X"F6",X"FF",X"91",X"F8",X"0B",X"F5",X"FF",X"93",X"F8",X"0B",X"F4", + X"FF",X"95",X"F8",X"00",X"21",X"9F",X"F8",X"F5",X"3E",X"34",X"BE",X"38",X"09",X"D3",X"4D",X"77", + X"21",X"2A",X"3E",X"22",X"9B",X"F8",X"F1",X"D3",X"4C",X"C9",X"0E",X"04",X"97",X"F8",X"00",X"07", + X"07",X"07",X"0E",X"03",X"8E",X"F8",X"92",X"92",X"92",X"0F",X"03",X"91",X"F8",X"C8",X"00",X"3C", + X"00",X"28",X"00",X"06",X"14",X"AB",X"F8",X"06",X"14",X"A9",X"F8",X"01",X"0B",X"14",X"00",X"91", + X"F8",X"0B",X"06",X"00",X"93",X"F8",X"0B",X"04",X"00",X"95",X"F8",X"03",X"A9",X"F8",X"EC",X"06", + X"14",X"A9",X"F8",X"01",X"0B",X"EC",X"FF",X"91",X"F8",X"0B",X"FA",X"FF",X"93",X"F8",X"0B",X"FC", + X"FF",X"95",X"F8",X"03",X"A9",X"F8",X"EC",X"03",X"AB",X"F8",X"CC",X"0E",X"03",X"8E",X"F8",X"00", + X"00",X"00",X"0E",X"04",X"97",X"F8",X"00",X"00",X"00",X"00",X"00",X"21",X"9F",X"F8",X"F5",X"3E", + X"10",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21",X"A1",X"3E",X"22",X"9B",X"F8",X"F1",X"D3",X"4C", + X"C9",X"0E",X"04",X"97",X"F8",X"00",X"07",X"06",X"06",X"0E",X"03",X"8E",X"F8",X"92",X"92",X"92", + X"06",X"03",X"A9",X"F8",X"06",X"1E",X"AB",X"F8",X"0F",X"03",X"91",X"F8",X"B0",X"04",X"BC",X"04", + X"C7",X"04",X"0B",X"F4",X"FF",X"91",X"F8",X"0B",X"F5",X"FF",X"93",X"F8",X"0B",X"F6",X"FF",X"95", + X"F8",X"01",X"01",X"03",X"AB",X"F8",X"EB",X"03",X"A9",X"F8",X"D9",X"0E",X"03",X"8E",X"F8",X"00", + X"00",X"00",X"0E",X"04",X"97",X"F8",X"00",X"00",X"00",X"00",X"00",X"21",X"9F",X"F8",X"F5",X"3E", + X"17",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21",X"01",X"3F",X"22",X"9B",X"F8",X"F1",X"D3",X"4C", + X"C9",X"0E",X"04",X"97",X"F8",X"00",X"07",X"07",X"07",X"0E",X"03",X"8E",X"F8",X"92",X"92",X"92", + X"06",X"03",X"A9",X"F8",X"0F",X"03",X"91",X"F8",X"2C",X"01",X"90",X"01",X"C8",X"00",X"06",X"3C", + X"AB",X"F8",X"01",X"03",X"AB",X"F8",X"FB",X"0F",X"03",X"91",X"F8",X"84",X"03",X"BC",X"02",X"20", + X"03",X"06",X"28",X"AB",X"F8",X"01",X"03",X"AB",X"F8",X"FB",X"03",X"A9",X"F8",X"D6",X"0E",X"03", + X"8E",X"F8",X"00",X"00",X"00",X"0E",X"04",X"97",X"F8",X"00",X"00",X"00",X"00",X"00",X"21",X"9F", + X"F8",X"F5",X"3E",X"13",X"BE",X"38",X"09",X"D3",X"4D",X"77",X"21",X"64",X"3F",X"22",X"9B",X"F8", + X"F1",X"D3",X"4C",X"C9",X"0E",X"03",X"8E",X"F8",X"82",X"82",X"82",X"0F",X"03",X"91",X"F8",X"80", + X"02",X"00",X"02",X"00",X"03",X"0E",X"04",X"97",X"F8",X"00",X"07",X"07",X"07",X"06",X"32",X"AB", + X"F8",X"01",X"0B",X"07",X"00",X"91",X"F8",X"0B",X"0B",X"00",X"93",X"F8",X"0B",X"04",X"00",X"95", + X"F8",X"01",X"03",X"AB",X"F8",X"EC",X"0E",X"03",X"8E",X"F8",X"00",X"00",X"00",X"0E",X"04",X"97", + X"F8",X"00",X"00",X"00",X"00",X"00",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"00",X"00",X"7B",X"2B",X"00",X"00"); +begin +process(clk) +begin + if rising_edge(clk) then + data <= rom_data(to_integer(unsigned(addr))); + end if; +end process; +end architecture; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_program2.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_program2.vhd new file mode 100644 index 00000000..ba2bee0c --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_program2.vhd @@ -0,0 +1,278 @@ +library ieee; +use ieee.std_logic_1164.all,ieee.numeric_std.all; + +entity MoonWar_program2 is +port ( + clk : in std_logic; + addr : in std_logic_vector(11 downto 0); + data : out std_logic_vector(7 downto 0) +); +end entity; + +architecture prom of MoonWar_program2 is + type rom is array(0 to 4095) of std_logic_vector(7 downto 0); + signal rom_data: rom := ( + X"2A",X"AE",X"F8",X"7C",X"B5",X"C0",X"EB",X"22",X"AE",X"F8",X"C9",X"D5",X"CD",X"7C",X"2E",X"D1", + X"07",X"07",X"EE",X"09",X"E6",X"0F",X"90",X"FA",X"1C",X"C0",X"18",X"FA",X"80",X"28",X"0C",X"47", + X"7E",X"CB",X"7F",X"20",X"03",X"23",X"18",X"F8",X"23",X"10",X"F5",X"7E",X"47",X"E6",X"7F",X"12", + X"13",X"CB",X"78",X"23",X"28",X"F5",X"C9",X"2A",X"AE",X"F8",X"7C",X"B5",X"C0",X"21",X"B1",X"F8", + X"35",X"C0",X"CD",X"7C",X"2E",X"07",X"07",X"07",X"07",X"E6",X"0F",X"C6",X"01",X"77",X"21",X"2E", + X"F9",X"CD",X"7C",X"2E",X"E6",X"07",X"F6",X"78",X"77",X"23",X"36",X"21",X"EB",X"21",X"72",X"C0", + X"06",X"0B",X"CD",X"0B",X"C0",X"EB",X"36",X"47",X"23",X"36",X"FF",X"21",X"2E",X"F9",X"22",X"AE", + X"F8",X"C9",X"01",X"02",X"0B",X"8C",X"00",X"21",X"01",X"0F",X"98",X"03",X"84",X"15",X"22",X"03", + X"84",X"05",X"A3",X"05",X"02",X"08",X"87",X"0D",X"0E",X"0F",X"90",X"01",X"02",X"86",X"05",X"02", + X"86",X"00",X"00",X"1A",X"92",X"0E",X"02",X"89",X"45",X"FF",X"7C",X"11",X"12",X"13",X"14",X"45", + X"FF",X"7C",X"01",X"02",X"06",X"45",X"FF",X"7C",X"05",X"02",X"06",X"45",X"FF",X"7C",X"03",X"02", + X"09",X"45",X"FF",X"7C",X"03",X"02",X"0A",X"45",X"FF",X"7C",X"08",X"07",X"17",X"21",X"15",X"45", + X"FF",X"7C",X"07",X"04",X"21",X"00",X"24",X"24",X"24",X"45",X"FF",X"7C",X"1A",X"1B",X"1C",X"20", + X"45",X"FF",X"7C",X"1A",X"1B",X"1D",X"20",X"45",X"FF",X"7C",X"1A",X"1B",X"1E",X"20",X"45",X"FF", + X"7C",X"1A",X"1B",X"1F",X"20",X"45",X"FF",X"7C",X"00",X"00",X"21",X"03",X"02",X"19",X"45",X"FF", + X"7C",X"15",X"22",X"0F",X"08",X"07",X"16",X"17",X"45",X"FF",X"7C",X"15",X"22",X"0F",X"06",X"16", + X"04",X"45",X"FF",X"3A",X"E1",X"43",X"B7",X"C0",X"3A",X"EC",X"43",X"B7",X"28",X"04",X"DB",X"4A", + X"18",X"02",X"DB",X"48",X"08",X"DB",X"60",X"0E",X"1F",X"CB",X"5F",X"28",X"02",X"CB",X"A1",X"CB", + X"5F",X"3E",X"0F",X"28",X"02",X"A9",X"4F",X"08",X"A9",X"47",X"E6",X"0F",X"21",X"EF",X"43",X"4E", + X"77",X"91",X"F2",X"38",X"C1",X"2F",X"C6",X"01",X"FE",X"08",X"DA",X"42",X"C1",X"F6",X"F0",X"2F", + X"C6",X"01",X"21",X"EE",X"43",X"4F",X"CB",X"29",X"81",X"CB",X"60",X"20",X"04",X"86",X"77",X"18", + X"04",X"47",X"7E",X"90",X"77",X"C9",X"7B",X"BD",X"38",X"01",X"EB",X"42",X"4B",X"E5",X"2E",X"00", + X"60",X"E3",X"FD",X"E1",X"E5",X"2E",X"00",X"61",X"E3",X"7C",X"90",X"16",X"00",X"30",X"01",X"15", + X"5F",X"7D",X"91",X"06",X"00",X"30",X"01",X"05",X"4F",X"E1",X"7B",X"B1",X"3E",X"01",X"28",X"21", + X"3E",X"FF",X"08",X"7B",X"AA",X"17",X"38",X"0F",X"79",X"A8",X"17",X"38",X"0A",X"CB",X"23",X"CB", + X"21",X"08",X"CB",X"3F",X"C3",X"82",X"C1",X"08",X"3C",X"C5",X"01",X"80",X"00",X"09",X"FD",X"09", + X"C1",X"08",X"7C",X"FD",X"E5",X"D9",X"E1",X"6F",X"06",X"10",X"CD",X"68",X"2F",X"36",X"80",X"D9", + X"08",X"09",X"FD",X"19",X"3D",X"C2",X"A1",X"C1",X"C9",X"EC",X"2A",X"AE",X"F8",X"7C",X"B5",X"C0", + X"EB",X"22",X"AE",X"F8",X"C9",X"01",X"D8",X"01",X"F8",X"DE",X"F8",X"DE",X"D8",X"01",X"D8",X"FE", + X"02",X"DB",X"44",X"DB",X"FE",X"02",X"DC",X"44",X"DC",X"FE",X"02",X"DD",X"44",X"DD",X"FE",X"02", + X"DE",X"44",X"DE",X"FE",X"02",X"DF",X"44",X"DF",X"FE",X"02",X"E0",X"44",X"E0",X"FE",X"02",X"E3", + X"44",X"E3",X"FE",X"02",X"E4",X"44",X"E4",X"FE",X"02",X"E5",X"44",X"E5",X"FE",X"02",X"E6",X"44", + X"E6",X"FE",X"02",X"E7",X"44",X"E7",X"FE",X"02",X"E8",X"44",X"E8",X"FE",X"03",X"F8",X"03",X"EE", + X"44",X"EE",X"44",X"F8",X"FF",X"01",X"23",X"1C",X"12",X"1E",X"10",X"10",X"10",X"00",X"0C",X"12", + X"12",X"12",X"12",X"0C",X"00",X"11",X"11",X"11",X"15",X"15",X"0E",X"00",X"1E",X"10",X"18",X"10", + X"10",X"1E",X"00",X"1C",X"12",X"1E",X"18",X"14",X"12",X"00",X"01",X"23",X"0E",X"09",X"0E",X"0E", + X"09",X"0E",X"00",X"06",X"09",X"09",X"09",X"09",X"06",X"00",X"09",X"0D",X"0D",X"0B",X"0B",X"09", + X"00",X"09",X"09",X"09",X"09",X"09",X"06",X"00",X"07",X"08",X"06",X"01",X"01",X"0E",X"00",X"01", + X"23",X"06",X"09",X"0F",X"09",X"09",X"09",X"00",X"09",X"0D",X"0D",X"0B",X"0B",X"09",X"00",X"07", + X"08",X"08",X"0B",X"09",X"06",X"00",X"08",X"08",X"08",X"08",X"08",X"0F",X"00",X"0F",X"08",X"0C", + X"08",X"08",X"0F",X"00",X"02",X"05",X"08",X"BA",X"0D",X"93",X"0A",X"92",X"08",X"92",X"08",X"BA", + X"02",X"05",X"5C",X"60",X"50",X"80",X"DC",X"40",X"50",X"20",X"5C",X"C0",X"02",X"04",X"0F",X"1E", + X"0F",X"1E",X"0F",X"1E",X"0F",X"1E",X"02",X"04",X"3C",X"78",X"3C",X"78",X"3C",X"78",X"3C",X"78", + X"02",X"05",X"0E",X"7A",X"09",X"4A",X"0E",X"4A",X"09",X"4A",X"0E",X"7B",X"02",X"05",X"3E",X"60", + X"08",X"80",X"08",X"40",X"08",X"20",X"C8",X"C0",X"02",X"05",X"07",X"0C",X"04",X"92",X"07",X"1E", + X"05",X"12",X"04",X"92",X"02",X"05",X"32",X"40",X"42",X"80",X"43",X"00",X"42",X"80",X"32",X"40", + X"02",X"05",X"04",X"1E",X"04",X"10",X"04",X"18",X"04",X"10",X"07",X"9E",X"02",X"05",X"79",X"C0", + X"40",X"80",X"60",X"80",X"40",X"80",X"40",X"80",X"02",X"05",X"1C",X"E6",X"21",X"09",X"19",X"09", + X"05",X"09",X"38",X"E6",X"02",X"05",X"73",X"9C",X"4A",X"20",X"73",X"18",X"52",X"04",X"4B",X"B8", + X"01",X"3B",X"00",X"16",X"F0",X"3E",X"AA",X"E6",X"0F",X"5F",X"3E",X"08",X"CD",X"B9",X"CC",X"01", + X"3B",X"01",X"16",X"F0",X"3E",X"BB",X"E6",X"0F",X"5F",X"3E",X"06",X"CD",X"B9",X"CC",X"01",X"FB", + X"01",X"16",X"F0",X"3E",X"99",X"E6",X"0F",X"5F",X"3E",X"02",X"CD",X"B9",X"CC",X"01",X"3C",X"00", + X"16",X"F0",X"3E",X"AA",X"E6",X"0F",X"5F",X"3E",X"0C",X"CD",X"B9",X"CC",X"01",X"BC",X"01",X"16", + X"F0",X"3E",X"BB",X"E6",X"0F",X"5F",X"3E",X"03",X"CD",X"B9",X"CC",X"01",X"1C",X"02",X"16",X"F0", + X"3E",X"99",X"E6",X"0F",X"5F",X"3E",X"01",X"CD",X"B9",X"CC",X"01",X"3E",X"00",X"16",X"F0",X"3E", + X"99",X"E6",X"0F",X"5F",X"3E",X"10",X"CD",X"B9",X"CC",X"01",X"3E",X"00",X"16",X"0F",X"3E",X"99", + X"E6",X"F0",X"5F",X"3E",X"10",X"CD",X"B9",X"CC",X"01",X"C5",X"C1",X"CD",X"4F",X"C6",X"21",X"D9", + X"48",X"11",X"15",X"C2",X"CD",X"E0",X"C6",X"01",X"5B",X"02",X"16",X"F0",X"3E",X"22",X"E6",X"0F", + X"5F",X"3E",X"09",X"CD",X"B9",X"CC",X"01",X"5C",X"02",X"16",X"0F",X"3E",X"22",X"E6",X"F0",X"5F", + X"3E",X"09",X"CD",X"B9",X"CC",X"21",X"E0",X"48",X"11",X"3A",X"C2",X"CD",X"E0",X"C6",X"01",X"5C", + X"02",X"16",X"F0",X"3E",X"BB",X"E6",X"0F",X"5F",X"3E",X"09",X"CD",X"B9",X"CC",X"21",X"EC",X"48", + X"11",X"5F",X"C2",X"CD",X"E0",X"C6",X"01",X"5E",X"02",X"16",X"0F",X"3E",X"EE",X"E6",X"F0",X"5F", + X"3E",X"09",X"CD",X"B9",X"CC",X"21",X"D9",X"6F",X"11",X"84",X"C2",X"CD",X"E0",X"C6",X"21",X"E9", + X"6F",X"11",X"90",X"C2",X"CD",X"E0",X"C6",X"01",X"DB",X"03",X"16",X"AA",X"1E",X"00",X"3E",X"07", + X"CD",X"EF",X"CC",X"21",X"D8",X"78",X"11",X"9C",X"C2",X"CD",X"E0",X"C6",X"21",X"E8",X"78",X"11", + X"A6",X"C2",X"CD",X"E0",X"C6",X"21",X"D9",X"80",X"11",X"B0",X"C2",X"CD",X"E0",X"C6",X"21",X"E9", + X"80",X"11",X"BC",X"C2",X"CD",X"E0",X"C6",X"01",X"5B",X"04",X"16",X"AA",X"1E",X"00",X"3E",X"07", + X"CD",X"EF",X"CC",X"21",X"D8",X"88",X"11",X"9C",X"C2",X"CD",X"E0",X"C6",X"21",X"E8",X"88",X"11", + X"A6",X"C2",X"CD",X"E0",X"C6",X"01",X"9B",X"04",X"16",X"55",X"1E",X"00",X"3E",X"06",X"CD",X"EF", + X"CC",X"01",X"BB",X"04",X"16",X"55",X"1E",X"00",X"3E",X"06",X"CD",X"EF",X"CC",X"21",X"D9",X"90", + X"11",X"C8",X"C2",X"CD",X"E0",X"C6",X"21",X"E9",X"90",X"11",X"D4",X"C2",X"CD",X"E0",X"C6",X"21", + X"BE",X"43",X"11",X"E2",X"98",X"06",X"02",X"CD",X"B5",X"30",X"01",X"DB",X"04",X"16",X"33",X"1E", + X"00",X"3E",X"06",X"CD",X"EF",X"CC",X"01",X"FB",X"04",X"16",X"33",X"1E",X"00",X"3E",X"06",X"CD", + X"EF",X"CC",X"01",X"1B",X"05",X"16",X"55",X"1E",X"00",X"3E",X"06",X"CD",X"EF",X"CC",X"01",X"3B", + X"05",X"16",X"55",X"1E",X"00",X"3E",X"06",X"CD",X"EF",X"CC",X"21",X"D9",X"A2",X"11",X"E0",X"C2", + X"CD",X"E0",X"C6",X"21",X"E9",X"A2",X"11",X"EC",X"C2",X"CD",X"E0",X"C6",X"21",X"BF",X"43",X"11", + X"E2",X"AA",X"06",X"02",X"CD",X"B5",X"30",X"01",X"5B",X"05",X"16",X"33",X"1E",X"00",X"3E",X"06", + X"CD",X"EF",X"CC",X"01",X"7B",X"05",X"16",X"33",X"1E",X"00",X"3E",X"06",X"CD",X"EF",X"CC",X"21", + X"D9",X"B5",X"11",X"F8",X"C2",X"CD",X"E0",X"C6",X"21",X"E9",X"B5",X"11",X"04",X"C3",X"CD",X"E0", + X"C6",X"01",X"FB",X"05",X"16",X"DD",X"1E",X"00",X"3E",X"07",X"CD",X"EF",X"CC",X"01",X"1B",X"06", + X"16",X"DD",X"1E",X"00",X"3E",X"07",X"CD",X"EF",X"CC",X"01",X"5B",X"06",X"16",X"EE",X"1E",X"00", + X"3E",X"07",X"CD",X"EF",X"CC",X"01",X"7B",X"06",X"16",X"EE",X"1E",X"00",X"3E",X"07",X"CD",X"EF", + X"CC",X"21",X"73",X"43",X"11",X"D6",X"D5",X"06",X"06",X"CD",X"B5",X"30",X"01",X"1F",X"00",X"16", + X"F0",X"3E",X"00",X"E6",X"0F",X"5F",X"3E",X"37",X"CD",X"B9",X"CC",X"3E",X"FF",X"32",X"E0",X"43", + X"C9",X"01",X"1B",X"05",X"16",X"55",X"1E",X"00",X"3E",X"06",X"CD",X"EF",X"CC",X"01",X"3B",X"05", + X"16",X"55",X"1E",X"00",X"3E",X"06",X"CD",X"EF",X"CC",X"01",X"5B",X"05",X"16",X"11",X"1E",X"00", + X"3E",X"06",X"CD",X"EF",X"CC",X"01",X"7B",X"05",X"16",X"11",X"1E",X"00",X"3E",X"06",X"CD",X"EF", + X"CC",X"C9",X"3A",X"E0",X"43",X"B7",X"28",X"18",X"CD",X"72",X"C6",X"21",X"E2",X"AA",X"06",X"03", + X"0E",X"08",X"CD",X"AF",X"C6",X"21",X"BF",X"43",X"11",X"E2",X"AA",X"06",X"02",X"CD",X"B5",X"30", + X"CD",X"06",X"C7",X"CD",X"0D",X"C6",X"CD",X"1D",X"C6",X"C9",X"0E",X"99",X"18",X"02",X"0E",X"22", + X"C5",X"47",X"79",X"21",X"5A",X"85",X"CD",X"2A",X"C7",X"28",X"03",X"21",X"A5",X"83",X"CB",X"78", + X"CB",X"B8",X"28",X"0B",X"21",X"DA",X"84",X"CD",X"2A",X"C7",X"28",X"03",X"21",X"25",X"84",X"48", + X"06",X"00",X"CD",X"2A",X"C7",X"28",X"0C",X"B7",X"ED",X"42",X"0D",X"20",X"0E",X"E6",X"F0",X"F6", + X"07",X"18",X"08",X"09",X"0D",X"20",X"04",X"E6",X"0F",X"F6",X"70",X"77",X"C1",X"C9",X"C5",X"F5", + X"3A",X"F6",X"43",X"6F",X"0E",X"00",X"CD",X"F5",X"C5",X"F1",X"32",X"F6",X"43",X"6F",X"0E",X"FF", + X"CD",X"F5",X"C5",X"C1",X"C9",X"26",X"00",X"29",X"29",X"29",X"29",X"29",X"11",X"9E",X"44",X"CD", + X"2A",X"C7",X"28",X"06",X"11",X"61",X"5F",X"CD",X"8F",X"21",X"19",X"71",X"C9",X"21",X"9B",X"44", + X"CD",X"2A",X"C7",X"28",X"03",X"21",X"64",X"5F",X"3A",X"C1",X"43",X"18",X"0E",X"21",X"9C",X"44", + X"CD",X"2A",X"C7",X"28",X"03",X"21",X"63",X"5F",X"3A",X"C0",X"43",X"0E",X"0F",X"06",X"40",X"11", + X"20",X"00",X"CD",X"2A",X"C7",X"28",X"05",X"11",X"E0",X"FF",X"0E",X"F0",X"B8",X"38",X"06",X"08", + X"7E",X"B1",X"77",X"18",X"05",X"08",X"7E",X"B1",X"A9",X"77",X"08",X"19",X"10",X"EE",X"C9",X"0A", + X"03",X"57",X"0A",X"03",X"5F",X"0A",X"03",X"67",X"0A",X"03",X"6F",X"E5",X"C5",X"CD",X"56",X"C1", + X"C1",X"D1",X"0A",X"FE",X"FD",X"DA",X"55",X"C6",X"03",X"3C",X"C8",X"3C",X"CA",X"4F",X"C6",X"C3", + X"55",X"C6",X"CD",X"96",X"C6",X"AF",X"32",X"E0",X"43",X"11",X"D6",X"BE",X"21",X"AF",X"43",X"06", + X"06",X"CD",X"B5",X"30",X"3A",X"E9",X"43",X"FE",X"02",X"C0",X"11",X"D6",X"C8",X"21",X"B2",X"43", + X"06",X"06",X"CD",X"B5",X"30",X"C9",X"26",X"BE",X"2E",X"D8",X"0E",X"10",X"06",X"04",X"CD",X"AF", + X"C6",X"FD",X"E5",X"11",X"D8",X"BD",X"21",X"D8",X"CF",X"CD",X"56",X"C1",X"FD",X"E1",X"C9",X"C5", + X"CD",X"2A",X"C7",X"28",X"08",X"3E",X"E0",X"80",X"5F",X"16",X"FF",X"18",X"06",X"3E",X"20",X"90", + X"5F",X"16",X"00",X"06",X"00",X"CD",X"68",X"2F",X"C1",X"78",X"08",X"08",X"47",X"08",X"36",X"00", + X"CD",X"2A",X"C7",X"20",X"03",X"23",X"18",X"01",X"2B",X"10",X"F3",X"19",X"0D",X"20",X"EC",X"C9", + X"CD",X"66",X"2F",X"EB",X"CD",X"07",X"2D",X"C9",X"21",X"C0",X"43",X"7E",X"FE",X"40",X"D0",X"34", + X"C9",X"21",X"C0",X"43",X"7E",X"FE",X"1F",X"20",X"08",X"D9",X"11",X"AD",X"C0",X"CD",X"BA",X"C1", + X"D9",X"7E",X"B7",X"C8",X"35",X"C9",X"21",X"C1",X"43",X"7E",X"FE",X"20",X"20",X"DD",X"D9",X"11", + X"B9",X"C0",X"CD",X"BA",X"C1",X"D9",X"18",X"D3",X"21",X"C1",X"43",X"7E",X"FE",X"1F",X"20",X"E1", + X"D9",X"11",X"B3",X"C0",X"CD",X"BA",X"C1",X"D9",X"18",X"D7",X"E5",X"21",X"EC",X"43",X"CB",X"46", + X"E1",X"C9",X"D9",X"C1",X"D1",X"E1",X"19",X"E5",X"C5",X"D9",X"C9",X"D9",X"C1",X"D1",X"E1",X"B7", + X"ED",X"52",X"E5",X"C5",X"D9",X"C9",X"D9",X"C1",X"D1",X"7A",X"16",X"00",X"21",X"00",X"00",X"C5", + X"06",X"08",X"29",X"CB",X"17",X"30",X"01",X"19",X"10",X"F8",X"C1",X"E5",X"C5",X"D9",X"C9",X"21", + X"5D",X"F9",X"06",X"04",X"34",X"23",X"10",X"FC",X"3A",X"E4",X"43",X"FE",X"FF",X"20",X"04",X"AF", + X"32",X"E4",X"43",X"47",X"3A",X"BF",X"43",X"90",X"38",X"1D",X"28",X"1B",X"3A",X"E4",X"43",X"B7", + X"28",X"0D",X"FE",X"05",X"30",X"11",X"3A",X"5D",X"F9",X"21",X"BA",X"43",X"BE",X"38",X"08",X"AF", + X"32",X"5D",X"F9",X"CD",X"CB",X"27",X"C9",X"B7",X"C9",X"3A",X"E1",X"43",X"B7",X"C0",X"21",X"C7", + X"C7",X"3A",X"BE",X"43",X"4F",X"DB",X"62",X"06",X"06",X"CB",X"3F",X"10",X"FC",X"3D",X"81",X"BE", + X"28",X"0B",X"3E",X"FF",X"BE",X"C8",X"11",X"07",X"00",X"19",X"C3",X"A1",X"C7",X"23",X"01",X"06", + X"00",X"11",X"B7",X"43",X"ED",X"B0",X"C9",X"02",X"00",X"00",X"00",X"11",X"00",X"00",X"03",X"10", + X"00",X"01",X"10",X"20",X"24",X"04",X"20",X"00",X"02",X"0F",X"18",X"20",X"05",X"30",X"01",X"02", + X"13",X"10",X"1C",X"06",X"40",X"01",X"02",X"12",X"10",X"18",X"07",X"50",X"01",X"02",X"10",X"10", + X"14",X"08",X"60",X"01",X"02",X"10",X"0F",X"10",X"09",X"80",X"01",X"02",X"10",X"0E",X"10",X"10", + X"FF",X"01",X"02",X"0F",X"0D",X"10",X"11",X"FF",X"01",X"02",X"0F",X"0C",X"10",X"15",X"FF",X"02", + X"02",X"0F",X"0A",X"10",X"FF",X"3A",X"B9",X"43",X"47",X"3A",X"F0",X"43",X"B8",X"D0",X"3A",X"BB", + X"43",X"21",X"5E",X"F9",X"BE",X"D0",X"AF",X"32",X"5E",X"F9",X"21",X"BC",X"43",X"FD",X"21",X"77", + X"40",X"FD",X"7E",X"0B",X"DD",X"96",X"0B",X"C6",X"07",X"F2",X"3E",X"C8",X"ED",X"44",X"BE",X"DA", + X"97",X"C7",X"FD",X"7E",X"11",X"DD",X"96",X"11",X"C6",X"07",X"F2",X"4F",X"C8",X"ED",X"44",X"BE", + X"DA",X"97",X"C7",X"CD",X"CB",X"27",X"C9",X"CD",X"6A",X"29",X"DD",X"CB",X"00",X"DE",X"CD",X"EF", + X"CB",X"21",X"20",X"0A",X"06",X"15",X"0E",X"3C",X"CD",X"AF",X"C6",X"CD",X"05",X"1F",X"2D",X"C9", + X"54",X"C9",X"7F",X"C9",X"A7",X"C9",X"CD",X"92",X"C8",X"CD",X"B9",X"C8",X"CD",X"72",X"C6",X"21", + X"BE",X"43",X"7E",X"C6",X"01",X"27",X"77",X"3E",X"8C",X"CD",X"40",X"28",X"21",X"B6",X"43",X"7E", + X"B7",X"C9",X"21",X"20",X"AA",X"06",X"16",X"0E",X"18",X"CD",X"AF",X"C6",X"21",X"60",X"B0",X"11", + X"86",X"08",X"CD",X"E0",X"C6",X"CD",X"40",X"2F",X"00",X"70",X"B4",X"20",X"2D",X"20",X"00",X"08", + X"06",X"02",X"21",X"B6",X"43",X"CD",X"AA",X"2F",X"C9",X"CD",X"40",X"2F",X"00",X"20",X"28",X"42", + X"6F",X"6E",X"75",X"73",X"20",X"2D",X"20",X"20",X"20",X"20",X"20",X"30",X"00",X"21",X"40",X"40", + X"36",X"00",X"23",X"36",X"00",X"23",X"36",X"00",X"2B",X"2B",X"DD",X"21",X"C0",X"43",X"DD",X"7E", + X"00",X"B7",X"C8",X"CD",X"BE",X"3D",X"DD",X"E5",X"3A",X"BE",X"43",X"F5",X"21",X"42",X"40",X"06", + X"04",X"0E",X"05",X"CD",X"21",X"C9",X"01",X"05",X"00",X"CD",X"C3",X"2E",X"F1",X"3D",X"20",X"EB", + X"21",X"40",X"40",X"06",X"06",X"11",X"58",X"28",X"CD",X"A0",X"2F",X"CD",X"D4",X"3D",X"DD",X"E1", + X"DD",X"35",X"00",X"F5",X"CD",X"1D",X"C6",X"F1",X"28",X"04",X"DD",X"E5",X"18",X"CA",X"C3",X"51", + X"3A",X"79",X"86",X"27",X"77",X"D0",X"2B",X"05",X"C8",X"0E",X"01",X"18",X"F4",X"CD",X"40",X"2F", + X"00",X"20",X"14",X"52",X"61",X"63",X"6B",X"20",X"00",X"06",X"02",X"21",X"BE",X"43",X"CD",X"AA", + X"2F",X"CD",X"40",X"2F",X"00",X"60",X"14",X"20",X"63",X"6F",X"6D",X"70",X"6C",X"65",X"74",X"65", + X"64",X"2E",X"00",X"C9",X"CD",X"40",X"2F",X"00",X"00",X"14",X"20",X"00",X"06",X"02",X"21",X"BE", + X"43",X"CD",X"AA",X"2F",X"CD",X"40",X"2F",X"00",X"28",X"14",X"52",X"75",X"6E",X"64",X"65",X"20", + X"61",X"62",X"67",X"65",X"73",X"63",X"68",X"6C",X"6F",X"73",X"73",X"65",X"6E",X"00",X"C9",X"CD", + X"40",X"2F",X"00",X"20",X"14",X"4D",X"61",X"6E",X"63",X"68",X"65",X"20",X"00",X"06",X"02",X"21", + X"BE",X"43",X"CD",X"AA",X"2F",X"CD",X"40",X"2F",X"00",X"70",X"14",X"20",X"74",X"65",X"72",X"6D", + X"69",X"6E",X"65",X"65",X"2E",X"00",X"C9",X"CD",X"40",X"2F",X"00",X"08",X"14",X"50",X"61",X"72", + X"74",X"69",X"64",X"61",X"20",X"6E",X"6F",X"2E",X"20",X"00",X"06",X"02",X"21",X"BE",X"43",X"CD", + X"AA",X"2F",X"CD",X"40",X"2F",X"00",X"80",X"14",X"20",X"74",X"65",X"72",X"6D",X"69",X"6E",X"61", + X"64",X"61",X"00",X"C9",X"21",X"00",X"00",X"39",X"31",X"86",X"F8",X"E5",X"3A",X"BD",X"43",X"3C", + X"32",X"BD",X"43",X"E1",X"F9",X"C3",X"1B",X"25",X"C5",X"D5",X"CD",X"E4",X"05",X"7E",X"B7",X"28", + X"08",X"D1",X"7A",X"C6",X"0E",X"57",X"C1",X"18",X"EF",X"D1",X"C1",X"C9",X"CD",X"B0",X"28",X"CD", + X"0B",X"28",X"CD",X"8D",X"CA",X"E5",X"CD",X"21",X"3C",X"E1",X"CD",X"0A",X"CB",X"21",X"F0",X"43", + X"34",X"21",X"B7",X"43",X"CD",X"7C",X"2E",X"BE",X"30",X"17",X"DD",X"CB",X"14",X"C6",X"21",X"AC", + X"19",X"DD",X"75",X"12",X"DD",X"74",X"13",X"DD",X"CB",X"14",X"EE",X"DD",X"36",X"15",X"05",X"18", + X"0D",X"21",X"9E",X"19",X"DD",X"75",X"12",X"DD",X"74",X"13",X"DD",X"36",X"15",X"4B",X"DD",X"CB", + X"00",X"CE",X"DD",X"E5",X"E1",X"FD",X"E5",X"CD",X"D1",X"2B",X"FD",X"E1",X"DD",X"CB",X"00",X"D6", + X"DD",X"E5",X"CD",X"4B",X"28",X"DD",X"E1",X"DD",X"CB",X"00",X"7E",X"20",X"1D",X"DD",X"CB",X"14", + X"7E",X"20",X"1E",X"CD",X"AA",X"20",X"DD",X"CB",X"14",X"46",X"20",X"05",X"DD",X"35",X"15",X"28", + X"09",X"DD",X"E5",X"3E",X"01",X"CD",X"40",X"28",X"18",X"DB",X"21",X"F0",X"43",X"35",X"C3",X"4F", + X"17",X"21",X"F0",X"43",X"35",X"CD",X"BD",X"28",X"CD",X"4B",X"28",X"18",X"FB",X"FD",X"21",X"77", + X"40",X"DD",X"E5",X"DD",X"2A",X"F1",X"43",X"26",X"00",X"FD",X"6E",X"0B",X"16",X"00",X"1E",X"08", + X"19",X"DD",X"5E",X"0B",X"ED",X"52",X"EB",X"26",X"00",X"FD",X"6E",X"11",X"06",X"00",X"0E",X"05", + X"09",X"DD",X"4E",X"11",X"ED",X"42",X"7D",X"F6",X"01",X"6F",X"7B",X"AA",X"E6",X"80",X"20",X"0D", + X"7D",X"AC",X"E6",X"80",X"20",X"07",X"CB",X"23",X"CB",X"25",X"C3",X"BA",X"CA",X"FD",X"E1",X"FD", + X"72",X"09",X"FD",X"73",X"08",X"DD",X"36",X"07",X"00",X"DD",X"36",X"06",X"00",X"CD",X"02",X"CB", + X"DD",X"72",X"09",X"DD",X"73",X"08",X"FD",X"74",X"0F",X"FD",X"75",X"0E",X"DD",X"36",X"0D",X"00", + X"DD",X"36",X"0C",X"00",X"CD",X"02",X"CB",X"DD",X"72",X"0F",X"DD",X"73",X"0E",X"FD",X"E5",X"DD", + X"E1",X"C9",X"7A",X"2F",X"57",X"7B",X"2F",X"5F",X"13",X"C9",X"16",X"08",X"1E",X"08",X"DD",X"7E", + X"09",X"B7",X"F2",X"19",X"CB",X"7A",X"ED",X"44",X"57",X"DD",X"7E",X"0F",X"B7",X"F2",X"24",X"CB", + X"7B",X"ED",X"44",X"5F",X"FD",X"2A",X"F1",X"43",X"FD",X"7E",X"0B",X"82",X"C6",X"04",X"DD",X"77", + X"0B",X"FD",X"7E",X"11",X"83",X"C6",X"04",X"DD",X"77",X"11",X"C9",X"CD",X"39",X"CD",X"CD",X"71", + X"CC",X"1B",X"00",X"38",X"05",X"77",X"C9",X"CD",X"71",X"CC",X"00",X"00",X"04",X"20",X"AA",X"CD", + X"71",X"CC",X"80",X"00",X"01",X"20",X"FF",X"CD",X"71",X"CC",X"A0",X"00",X"29",X"20",X"11",X"CD", + X"71",X"CC",X"A0",X"00",X"29",X"09",X"99",X"CD",X"71",X"CC",X"A9",X"00",X"29",X"08",X"BB",X"CD", + X"71",X"CC",X"B0",X"00",X"29",X"10",X"55",X"CD",X"71",X"CC",X"C0",X"05",X"0A",X"20",X"77",X"CD", + X"71",X"CC",X"80",X"06",X"04",X"0A",X"DD",X"CD",X"71",X"CC",X"96",X"06",X"04",X"0A",X"EE",X"C9", + X"CD",X"71",X"CC",X"00",X"00",X"38",X"20",X"AA",X"C9",X"CD",X"71",X"CC",X"00",X"00",X"38",X"20", + X"FF",X"C9",X"CD",X"71",X"CC",X"E0",X"05",X"04",X"20",X"33",X"C9",X"CD",X"71",X"CC",X"E0",X"05", + X"04",X"20",X"99",X"C9",X"CD",X"71",X"CC",X"E0",X"05",X"04",X"20",X"66",X"C9",X"CD",X"71",X"CC", + X"00",X"00",X"08",X"20",X"BB",X"CD",X"71",X"CC",X"00",X"01",X"10",X"20",X"66",X"CD",X"71",X"CC", + X"00",X"03",X"04",X"20",X"FF",X"CD",X"71",X"CC",X"80",X"03",X"1C",X"20",X"AA",X"C9",X"CD",X"71", + X"CC",X"00",X"00",X"2F",X"20",X"CC",X"CD",X"71",X"CC",X"E0",X"05",X"09",X"20",X"AA",X"C9",X"DD", + X"E5",X"E1",X"CB",X"5E",X"CA",X"15",X"CC",X"CB",X"9E",X"E5",X"2A",X"61",X"F9",X"11",X"63",X"F9", + X"3E",X"05",X"08",X"06",X"03",X"1A",X"13",X"77",X"23",X"10",X"FA",X"01",X"1D",X"00",X"09",X"08", + X"3D",X"C2",X"02",X"CC",X"E1",X"CB",X"66",X"C8",X"CB",X"A6",X"E5",X"11",X"0B",X"00",X"19",X"5E", + X"23",X"23",X"23",X"23",X"23",X"23",X"3A",X"EC",X"43",X"B7",X"7E",X"28",X"0A",X"ED",X"44",X"C6", + X"D0",X"08",X"3E",X"F1",X"93",X"5F",X"08",X"CB",X"3F",X"CB",X"3F",X"67",X"6B",X"CB",X"3C",X"CB", + X"1D",X"CB",X"3C",X"CB",X"1D",X"CB",X"3C",X"CB",X"1D",X"01",X"00",X"81",X"09",X"22",X"61",X"F9", + X"3A",X"EB",X"43",X"11",X"1D",X"00",X"FD",X"21",X"63",X"F9",X"0E",X"05",X"06",X"03",X"08",X"7E", + X"FD",X"77",X"00",X"FD",X"23",X"08",X"77",X"23",X"10",X"F4",X"19",X"0D",X"C2",X"5C",X"CC",X"E1", + X"C9",X"E1",X"5E",X"23",X"56",X"23",X"E5",X"3A",X"EC",X"43",X"B7",X"20",X"06",X"21",X"00",X"81", + X"19",X"18",X"05",X"21",X"FF",X"87",X"ED",X"52",X"EB",X"E1",X"4E",X"23",X"08",X"7E",X"23",X"08", + X"B7",X"7E",X"23",X"E5",X"EB",X"20",X"11",X"11",X"20",X"00",X"08",X"47",X"08",X"E5",X"77",X"23", + X"10",X"FC",X"E1",X"19",X"0D",X"20",X"F3",X"C9",X"11",X"E0",X"FF",X"08",X"47",X"08",X"E5",X"77", + X"2B",X"10",X"FC",X"E1",X"19",X"0D",X"20",X"F3",X"C9",X"08",X"3A",X"EC",X"43",X"B7",X"28",X"1C", + X"08",X"B7",X"21",X"FF",X"87",X"ED",X"42",X"01",X"E0",X"FF",X"CB",X"0A",X"CB",X"0A",X"CB",X"0A", + X"CB",X"0A",X"CB",X"0B",X"CB",X"0B",X"CB",X"0B",X"CB",X"0B",X"18",X"08",X"08",X"21",X"00",X"81", + X"09",X"01",X"20",X"00",X"08",X"7E",X"A2",X"B3",X"77",X"09",X"08",X"3D",X"20",X"F6",X"C9",X"CD", + X"2A",X"C7",X"28",X"0D",X"B7",X"21",X"FF",X"87",X"ED",X"42",X"08",X"7B",X"2F",X"5F",X"08",X"18", + X"04",X"21",X"00",X"81",X"09",X"47",X"4B",X"CB",X"41",X"C5",X"28",X"14",X"7E",X"1E",X"0F",X"A3", + X"08",X"3E",X"F0",X"A2",X"5F",X"08",X"B3",X"77",X"CD",X"2A",X"C7",X"28",X"15",X"2B",X"18",X"12", + X"7E",X"1E",X"F0",X"A3",X"08",X"3E",X"0F",X"A2",X"5F",X"08",X"B3",X"77",X"CD",X"2A",X"C7",X"20", + X"01",X"23",X"C1",X"79",X"2F",X"4F",X"10",X"CF",X"C9",X"21",X"6E",X"CD",X"16",X"00",X"3A",X"BE", + X"43",X"47",X"CB",X"3F",X"CB",X"3F",X"CB",X"3F",X"CB",X"3F",X"80",X"27",X"E6",X"07",X"5F",X"19", + X"56",X"7A",X"32",X"EA",X"43",X"06",X"38",X"21",X"00",X"00",X"C5",X"E5",X"C1",X"C5",X"3E",X"40", + X"1E",X"FF",X"CD",X"EF",X"CC",X"E1",X"01",X"20",X"00",X"09",X"C1",X"10",X"ED",X"C9",X"FF",X"AA", + X"BB",X"DD",X"CC",X"77",X"EE",X"33",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF"); +begin +process(clk) +begin + if rising_edge(clk) then + data <= rom_data(to_integer(unsigned(addr))); + end if; +end process; +end architecture; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_speech_rom.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_speech_rom.vhd new file mode 100644 index 00000000..eea990f4 --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/rom/MoonWar_speech_rom.vhd @@ -0,0 +1,278 @@ +library ieee; +use ieee.std_logic_1164.all,ieee.numeric_std.all; + +entity MoonWar_speech_rom is +port ( + clk : in std_logic; + addr : in std_logic_vector(11 downto 0); + data : out std_logic_vector(7 downto 0) +); +end entity; + +architecture prom of MoonWar_speech_rom is + type rom is array(0 to 4095) of std_logic_vector(7 downto 0); + signal rom_data: rom := ( + X"04",X"A0",X"05",X"40",X"05",X"C0",X"06",X"00",X"06",X"C0",X"07",X"20",X"07",X"A0",X"08",X"40", + X"08",X"E0",X"09",X"C0",X"0A",X"40",X"0A",X"C0",X"0C",X"00",X"0C",X"E0",X"0D",X"80",X"0E",X"20", + X"0E",X"60",X"0F",X"00",X"0F",X"E0",X"11",X"20",X"11",X"60",X"12",X"80",X"13",X"80",X"13",X"C0", + X"14",X"40",X"15",X"A0",X"16",X"20",X"16",X"60",X"16",X"E0",X"17",X"60",X"17",X"C0",X"18",X"20", + X"18",X"C0",X"19",X"E0",X"1A",X"00",X"1A",X"20",X"1A",X"40",X"1B",X"1F",X"1D",X"41",X"21",X"59", + X"22",X"1C",X"22",X"9C",X"2A",X"41",X"2E",X"51",X"22",X"1D",X"22",X"9D",X"30",X"41",X"34",X"D1", + X"36",X"41",X"3A",X"59",X"3A",X"78",X"3B",X"1F",X"3D",X"1D",X"3D",X"9D",X"45",X"49",X"45",X"6E", + X"3B",X"9F",X"48",X"1C",X"48",X"1C",X"50",X"41",X"54",X"D9",X"55",X"41",X"59",X"51",X"5B",X"52", + X"22",X"1D",X"22",X"9D",X"1B",X"1F",X"5D",X"41",X"5D",X"78",X"22",X"1C",X"22",X"9C",X"1B",X"1F", + X"1B",X"1F",X"1B",X"7F",X"61",X"41",X"22",X"1D",X"22",X"1D",X"65",X"D0",X"1B",X"1F",X"67",X"40", + X"22",X"1C",X"22",X"9C",X"1B",X"1F",X"1B",X"7F",X"6B",X"41",X"6F",X"D1",X"3B",X"1F",X"71",X"52", + X"48",X"1C",X"48",X"1C",X"73",X"49",X"73",X"7C",X"79",X"1F",X"79",X"67",X"3B",X"1F",X"76",X"C9", + X"3D",X"1C",X"3D",X"1C",X"7B",X"41",X"7F",X"51",X"7F",X"6F",X"22",X"1C",X"22",X"9C",X"1B",X"1F", + X"1B",X"7E",X"81",X"40",X"22",X"1D",X"22",X"9D",X"22",X"1C",X"22",X"1C",X"85",X"41",X"89",X"51", + X"48",X"9D",X"8F",X"1C",X"97",X"C1",X"8B",X"51",X"8D",X"50",X"8F",X"1C",X"8F",X"1D",X"8F",X"9C", + X"79",X"1F",X"79",X"1F",X"79",X"7E",X"9B",X"41",X"9F",X"58",X"22",X"1D",X"22",X"9D",X"3B",X"1F", + X"A0",X"52",X"A0",X"79",X"3B",X"1F",X"A2",X"51",X"A2",X"78",X"3B",X"1F",X"A4",X"51",X"A4",X"78", + X"3B",X"9F",X"A6",X"49",X"5B",X"D2",X"1B",X"1F",X"A9",X"1E",X"AF",X"51",X"AF",X"78",X"79",X"1F", + X"79",X"7F",X"B1",X"58",X"B1",X"78",X"3B",X"9F",X"79",X"1F",X"79",X"1F",X"79",X"7F",X"B2",X"4D", + X"B2",X"66",X"3B",X"1F",X"B5",X"49",X"5B",X"D6",X"B8",X"41",X"BC",X"D1",X"BE",X"49",X"BE",X"7D", + X"3B",X"1F",X"C1",X"D1",X"A9",X"1D",X"A9",X"1D",X"C3",X"4D",X"C3",X"78",X"1B",X"1F",X"C6",X"51", + X"48",X"1C",X"48",X"1C",X"C8",X"41",X"C8",X"78",X"CC",X"9F",X"CE",X"41",X"D2",X"59",X"22",X"1D", + X"22",X"9D",X"D3",X"41",X"D7",X"C9",X"DA",X"52",X"DC",X"59",X"DC",X"6E",X"3B",X"9F",X"3B",X"1F", + X"3B",X"1F",X"3B",X"7E",X"DD",X"C1",X"48",X"1C",X"48",X"1C",X"E1",X"C1",X"E5",X"49",X"E5",X"67", + X"3B",X"9F",X"3B",X"1F",X"3B",X"1F",X"3B",X"7E",X"E8",X"50",X"5B",X"D1",X"EA",X"51",X"EA",X"67", + X"79",X"1F",X"79",X"1F",X"79",X"7F",X"EC",X"41",X"EC",X"75",X"79",X"1F",X"A9",X"9F",X"A9",X"FC", + X"A9",X"F8",X"A9",X"F0",X"A9",X"E0",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"99",X"72",X"63",X"69",X"99",X"99",X"99",X"97",X"72",X"5A",X"66",X"59",X"99",X"98",X"A6",X"65", + X"E2",X"97",X"66",X"5D",X"99",X"69",X"99",X"99",X"8A",X"66",X"59",X"99",X"9D",X"75",X"99",X"98", + X"76",X"68",X"96",X"66",X"65",X"99",X"9E",X"AA",X"69",X"9A",X"27",X"59",X"C5",X"95",X"AA",X"AD", + X"29",X"9E",X"1A",X"67",X"61",X"64",X"7F",X"6F",X"2A",X"2A",X"1A",X"57",X"C5",X"94",X"7F",X"3F", + X"29",X"A9",X"5E",X"1E",X"95",X"64",X"3F",X"6F",X"26",X"7A",X"1E",X"1A",X"D5",X"54",X"6F",X"6F", + X"65",X"AA",X"1E",X"1A",X"D5",X"60",X"2F",X"AF",X"58",X"AD",X"5E",X"1A",X"D4",X"A0",X"3F",X"6F", + X"95",X"7A",X"2A",X"57",X"95",X"E0",X"6A",X"AF",X"98",X"69",X"9E",X"62",X"59",X"D5",X"69",X"EE", + X"97",X"5A",X"5D",X"75",X"D8",X"D7",X"5C",X"A3",X"35",X"CA",X"33",X"28",X"CA",X"35",X"CA",X"33", + X"5A",X"28",X"9C",X"A5",X"D6",X"97",X"32",X"8D",X"72",X"8A",X"35",X"D6",X"96",X"8A",X"28",X"A5", + X"72",X"97",X"5C",X"A3",X"32",X"8C",X"A5",X"A2",X"8C",X"A3",X"28",X"A2",X"8D",X"73",X"35",X"CA", + X"5A",X"29",X"75",X"A2",X"97",X"28",X"CD",X"73",X"28",X"A3",X"33",X"5D",X"75",X"A5",X"D7",X"5C", + X"69",X"68",X"CC",X"A3",X"35",X"D6",X"96",X"8A",X"35",X"CA",X"27",X"28",X"D6",X"97",X"5C",X"CA", + X"29",X"75",X"D7",X"33",X"5C",X"CA",X"28",X"CA",X"33",X"28",X"D7",X"5C",X"A5",X"D7",X"5D",X"73", + X"8D",X"75",X"CA",X"32",X"8A",X"5D",X"75",X"D6",X"97",X"5A",X"29",X"73",X"28",X"A2",X"8A",X"5A", + X"28",X"D7",X"33",X"5A",X"5D",X"75",X"D6",X"8A",X"5D",X"68",X"A2",X"8A",X"5D",X"73",X"35",X"D7", + X"29",X"8A",X"95",X"A9",X"67",X"98",X"7D",X"1F",X"69",X"5A",X"86",X"79",X"5E",X"65",X"AD",X"1F", + X"78",X"2E",X"47",X"9A",X"1A",X"D1",X"B8",X"2F",X"B0",X"7D",X"0B",X"D0",X"BD",X"1A",X"A5",X"6A", + X"8B",X"42",X"F0",X"2F",X"47",X"C2",X"F4",X"3F",X"8E",X"47",X"D4",X"3F",X"43",X"F4",X"B5",X"3F", + X"9A",X"81",X"E0",X"BD",X"0A",X"F1",X"B5",X"2F",X"99",X"86",X"76",X"1A",X"1F",X"96",X"39",X"6F", + X"8A",X"59",X"98",X"5E",X"67",X"99",X"6A",X"6B",X"89",X"A5",X"89",X"5A",X"A6",X"A1",X"A9",X"9E", + X"98",X"69",X"5D",X"99",X"9A",X"79",X"6A",X"2A",X"89",X"D5",X"D5",X"E2",X"71",X"F8",X"69",X"7A", + X"66",X"29",X"8A",X"65",X"9E",X"66",X"6D",X"1F",X"75",X"6A",X"1A",X"87",X"86",X"D4",X"F8",X"2E", + X"67",X"61",X"A6",X"65",X"9E",X"82",X"F4",X"3F",X"A6",X"19",X"59",X"E9",X"0F",X"D6",X"75",X"6F", + X"67",X"67",X"55",X"67",X"67",X"95",X"E9",X"6E",X"A2",X"62",X"65",X"9D",X"96",X"95",X"EA",X"7A", + X"99",X"98",X"99",X"6A",X"26",X"56",X"AA",X"7A",X"A9",X"96",X"21",X"6A",X"27",X"61",X"AA",X"AA", + X"A1",X"AA",X"95",X"45",X"AE",X"81",X"E6",X"BE",X"7A",X"15",X"AF",X"40",X"7A",X"A6",X"15",X"FF", + X"A8",X"59",X"D9",X"D9",X"42",X"FD",X"41",X"FF",X"99",X"99",X"99",X"A6",X"05",X"FE",X"41",X"BE", + X"66",X"66",X"62",X"66",X"66",X"76",X"9E",X"69",X"99",X"66",X"66",X"26",X"67",X"59",X"E9",X"AA", + X"A5",X"99",X"66",X"66",X"59",X"99",X"AA",X"9D",X"6A",X"61",X"A6",X"3A",X"16",X"55",X"EA",X"7A", + X"23",X"A6",X"71",X"7A",X"98",X"90",X"7E",X"7F",X"91",X"F5",X"7D",X"1F",X"56",X"90",X"7E",X"7F", + X"C1",X"E5",X"BC",X"0B",X"97",X"90",X"7A",X"7F",X"D1",X"A1",X"BD",X"0F",X"87",X"90",X"6D",X"AF", + X"99",X"85",X"AE",X"1A",X"47",X"E0",X"68",X"BF",X"86",X"A5",X"A8",X"7A",X"09",X"E2",X"65",X"7F", + X"8A",X"63",X"66",X"87",X"63",X"5A",X"59",X"CA",X"5A",X"5A",X"29",X"69",X"8A",X"29",X"5E",X"29", + X"68",X"A5",X"A5",X"A6",X"66",X"66",X"66",X"66",X"62",X"66",X"63",X"67",X"26",X"69",X"96",X"89", + X"96",X"99",X"73",X"5A",X"63",X"5C",X"CC",X"CA",X"62",X"96",X"73",X"32",X"8C",X"D6",X"98",X"A6", + X"29",X"8A",X"32",X"8C",X"A5",X"A5",X"CA",X"5C",X"A3",X"35",X"A2",X"8C",X"D6",X"76",X"27",X"5C", + X"89",X"D6",X"75",X"A5",X"CC",X"A3",X"27",X"32",X"98",X"A6",X"28",X"CA",X"5A",X"35",X"9C",X"CD", + X"73",X"35",X"A6",X"29",X"8A",X"65",X"CD",X"73",X"26",X"96",X"98",X"9D",X"89",X"D8",X"A3",X"27", + X"8A",X"35",X"A5",X"A5",X"9C",X"D7",X"35",X"CD",X"69",X"67",X"62",X"97",X"32",X"97",X"5C",X"CA", + X"33",X"5D",X"72",X"8C",X"9D",X"73",X"5A",X"35",X"A5",X"CC",X"D7",X"33",X"35",X"D6",X"8D",X"69", + X"96",X"69",X"73",X"5C",X"D8",X"A5",X"CC",X"CC",X"A3",X"5A",X"33",X"32",X"8C",X"D8",X"9C",X"CD", + X"73",X"59",X"D7",X"32",X"8C",X"CC",X"A5",X"9C",X"CA",X"33",X"33",X"28",X"CA",X"5C",X"D7",X"35", + X"99",X"95",X"A9",X"AC",X"0B",X"C0",X"A5",X"FF",X"99",X"85",X"B9",X"6D",X"0B",X"C0",X"79",X"BF", + X"96",X"59",X"F1",X"7D",X"0B",X"C0",X"79",X"BF",X"19",X"EA",X"95",X"99",X"8A",X"90",X"AD",X"AF", + X"3A",X"89",X"95",X"79",X"66",X"15",X"BA",X"7F",X"9E",X"65",X"85",X"6A",X"66",X"55",X"AE",X"7B", + X"98",X"A6",X"26",X"97",X"35",X"CD",X"89",X"D8",X"A2",X"8D",X"73",X"28",X"D7",X"35",X"A6",X"28", + X"9C",X"D7",X"29",X"73",X"29",X"73",X"28",X"CD",X"8C",X"9D",X"68",X"A3",X"32",X"98",X"A3",X"5C", + X"73",X"59",X"9D",X"8A",X"86",X"69",X"66",X"98",X"9D",X"8A",X"35",X"D7",X"63",X"28",X"CA",X"65", + X"A3",X"62",X"75",X"A3",X"29",X"68",X"A5",X"D7",X"35",X"CA",X"32",X"8A",X"29",X"8A",X"65",X"CA", + X"69",X"8C",X"9A",X"5C",X"A3",X"63",X"5A",X"5D",X"73",X"5C",X"D7",X"32",X"8A",X"35",X"9A",X"29", + X"8A",X"35",X"C9",X"A3",X"32",X"8A",X"36",X"28",X"D7",X"32",X"8C",X"A3",X"5C",X"D7",X"35",X"D7", + X"96",X"75",X"D6",X"8A",X"29",X"66",X"97",X"5C",X"D6",X"69",X"97",X"28",X"CC",X"A5",X"9D",X"67", + X"5A",X"36",X"62",X"76",X"5A",X"27",X"5A",X"28",X"A5",X"D6",X"76",X"27",X"29",X"72",X"8C",X"D7", + X"59",X"E6",X"76",X"19",X"D8",X"84",X"AE",X"EE",X"95",X"9A",X"A9",X"57",X"86",X"D0",X"3D",X"FF", + X"A1",X"61",X"FD",X"4E",X"56",X"D0",X"79",X"FF",X"1F",X"81",X"E5",X"FD",X"02",X"E4",X"7C",X"7F", + X"86",X"3B",X"80",X"FE",X"02",X"A4",X"BC",X"2F",X"79",X"4F",X"92",X"71",X"E8",X"1B",X"E0",X"3F", + X"A5",X"6A",X"85",X"D5",X"F4",X"1F",X"D4",X"7F",X"67",X"A1",X"79",X"5A",X"84",X"7F",X"80",X"BF", + X"39",X"D5",X"9D",X"6A",X"11",X"EF",X"50",X"BF",X"A6",X"26",X"65",X"D8",X"56",X"BA",X"05",X"FF", + X"66",X"26",X"9A",X"26",X"5A",X"A1",X"B8",X"2B",X"75",X"67",X"66",X"66",X"57",X"E0",X"F8",X"2B", + X"26",X"7A",X"55",X"9A",X"A6",X"51",X"7A",X"BE",X"95",X"5F",X"98",X"86",X"AA",X"54",X"69",X"FF", + X"A0",X"6B",X"99",X"56",X"AA",X"54",X"69",X"FF",X"D4",X"6A",X"77",X"55",X"7B",X"60",X"5A",X"BF", + X"A5",X"68",X"6B",X"95",X"1B",X"D0",X"66",X"BF",X"C4",X"B9",X"19",X"FD",X"03",X"E5",X"E4",X"7F", + X"3D",X"46",X"BC",X"0B",X"C1",X"E1",X"B5",X"2F",X"D1",X"F4",X"2F",X"43",X"E1",X"A1",X"B5",X"2F", + X"D0",X"F8",X"2F",X"43",X"D5",X"D5",X"F4",X"2F",X"76",X"26",X"98",X"6A",X"59",X"97",X"B4",X"3F", + X"66",X"65",X"A6",X"68",X"99",X"A8",X"79",X"5F",X"66",X"65",X"A6",X"68",X"76",X"76",X"39",X"5F", + X"66",X"65",X"A6",X"66",X"66",X"78",X"79",X"6A",X"66",X"65",X"A6",X"66",X"66",X"76",X"39",X"6A", + X"A6",X"66",X"19",X"97",X"65",X"96",X"7A",X"AA",X"A9",X"66",X"1A",X"66",X"55",X"65",X"AF",X"6E", + X"A9",X"69",X"5A",X"86",X"60",X"68",X"AF",X"6B",X"A9",X"69",X"5A",X"86",X"60",X"69",X"7F",X"6B", + X"A9",X"69",X"8A",X"56",X"60",X"69",X"7F",X"6B",X"A9",X"67",X"59",X"C6",X"55",X"5D",X"7F",X"6B", + X"9D",X"89",X"8A",X"62",X"55",X"99",X"EE",X"AA",X"A6",X"19",X"99",X"D8",X"98",X"67",X"7A",X"9A", + X"99",X"99",X"89",X"89",X"A6",X"65",X"AA",X"7A",X"26",X"AA",X"61",X"86",X"A5",X"98",X"6A",X"AA", + X"95",X"9D",X"A9",X"86",X"66",X"71",X"6A",X"6F",X"C5",X"94",X"BF",X"1D",X"42",X"F4",X"2A",X"7F", + X"8A",X"90",X"BF",X"17",X"42",X"F4",X"2D",X"6F",X"83",X"E0",X"7F",X"5A",X"02",X"F4",X"3D",X"3F", + X"61",X"B8",X"2F",X"57",X"42",X"F4",X"3D",X"3F",X"66",X"A9",X"1F",X"56",X"53",X"B4",X"79",X"7F", + X"66",X"62",X"98",X"9D",X"6A",X"95",X"E9",X"2F",X"35",X"9D",X"66",X"67",X"67",X"95",X"A8",X"6F", + X"95",X"9A",X"A6",X"19",X"6A",X"85",X"9A",X"AA",X"A1",X"5E",X"9E",X"55",X"99",X"A5",X"5E",X"2F", + X"96",X"76",X"62",X"19",X"E7",X"65",X"67",X"AE",X"19",X"FD",X"59",X"0B",X"96",X"94",X"6E",X"7F", + X"39",X"E9",X"58",X"5A",X"95",X"A0",X"7F",X"3F",X"7A",X"65",X"59",X"9A",X"95",X"61",X"7E",X"7B", + X"66",X"36",X"66",X"59",X"D9",X"E5",X"78",X"7F",X"67",X"1A",X"89",X"D5",X"9A",X"A5",X"68",X"7F", + X"39",X"6A",X"59",X"D5",X"95",X"F8",X"1E",X"3B",X"67",X"66",X"57",X"A1",X"95",X"B8",X"68",X"7F", + X"89",X"99",X"9D",X"99",X"99",X"95",X"67",X"AF",X"95",X"99",X"F5",X"66",X"2A",X"90",X"6A",X"BF", + X"95",X"D5",X"F9",X"59",X"5F",X"80",X"79",X"FF",X"86",X"63",X"E5",X"68",X"5B",X"90",X"79",X"FF", + X"26",X"6A",X"98",X"D8",X"9A",X"50",X"B9",X"BF",X"76",X"75",X"99",X"76",X"26",X"16",X"AA",X"AE", + X"99",X"89",X"99",X"D9",X"62",X"66",X"7A",X"77",X"99",X"98",X"99",X"D6",X"65",X"99",X"A9",X"E9", + X"77",X"66",X"62",X"26",X"66",X"26",X"67",X"AA",X"98",X"9E",X"98",X"58",X"8D",X"A9",X"57",X"AE", + X"99",X"99",X"D9",X"65",X"62",X"A9",X"86",X"AA",X"99",X"D8",X"89",X"D8",X"57",X"B6",X"15",X"BE", + X"98",X"79",X"5A",X"96",X"66",X"A0",X"F8",X"2F",X"76",X"27",X"57",X"96",X"66",X"A0",X"F8",X"2F", + X"A5",X"6A",X"1A",X"66",X"57",X"D0",X"F8",X"3B",X"95",X"E5",X"69",X"99",X"8E",X"85",X"F5",X"2F", + X"99",X"A6",X"18",X"67",X"99",X"D6",X"39",X"E9",X"66",X"A6",X"25",X"5A",X"A5",X"D5",X"7A",X"7B", + X"A0",X"6E",X"3E",X"03",X"83",X"F4",X"2E",X"3F",X"78",X"75",X"3F",X"57",X"42",X"F4",X"2D",X"7F", + X"86",X"B4",X"3F",X"0F",X"02",X"F0",X"78",X"7F",X"5A",X"9A",X"A0",X"3F",X"03",X"D2",X"F0",X"3F", + X"66",X"76",X"56",X"7A",X"16",X"A2",X"A5",X"3F",X"8A",X"75",X"59",X"E5",X"96",X"7A",X"64",X"7F", + X"2B",X"55",X"9A",X"61",X"A5",X"7F",X"01",X"BF",X"3E",X"45",X"E7",X"61",X"85",X"EE",X"11",X"BF", + X"79",X"86",X"9C",X"99",X"59",X"AA",X"51",X"FE",X"A6",X"26",X"66",X"66",X"16",X"AA",X"15",X"EE", + X"8D",X"72",X"66",X"76",X"27",X"5D",X"97",X"5C",X"9D",X"75",X"99",X"E2",X"62",X"73",X"65",X"A2", + X"8A",X"27",X"29",X"89",X"9A",X"5D",X"66",X"6A",X"25",X"9D",X"99",X"62",X"79",X"99",X"66",X"99", + X"98",X"9D",X"87",X"86",X"A2",X"95",X"B8",X"2F",X"D1",X"F4",X"A8",X"79",X"1F",X"52",X"F0",X"3F", + X"78",X"6A",X"17",X"99",X"87",X"D0",X"F5",X"2F",X"A1",X"E1",X"B4",X"7D",X"1B",X"82",X"B4",X"2F", + X"78",X"2E",X"0E",X"8A",X"57",X"D0",X"FC",X"1F",X"C2",X"B4",X"2F",X"42",X"F0",X"B4",X"B8",X"2F", + X"2A",X"A9",X"46",X"A9",X"46",X"E1",X"B5",X"3F",X"98",X"A8",X"A9",X"55",X"D6",X"A4",X"7D",X"6F", + X"98",X"E6",X"26",X"1A",X"95",X"E4",X"7E",X"2B",X"A6",X"65",X"69",X"5E",X"56",X"62",X"AA",X"6A", + X"A2",X"66",X"27",X"59",X"95",X"A6",X"7A",X"79",X"99",X"96",X"66",X"66",X"26",X"66",X"9E",X"9D", + X"99",X"D6",X"61",X"69",X"9E",X"56",X"9A",X"A9",X"99",X"A2",X"29",X"89",X"86",X"B1",X"79",X"6F", + X"96",X"A0",X"BC",X"0B",X"C1",X"F4",X"AC",X"2F",X"D4",X"AD",X"0B",X"C1",X"F4",X"A8",X"7D",X"1F", + X"78",X"2F",X"07",X"D1",X"E5",X"A5",X"7C",X"1F",X"A5",X"3E",X"0B",X"57",X"57",X"D0",X"F8",X"2F", + X"78",X"5E",X"1E",X"4A",X"C5",X"E5",X"B5",X"2F",X"89",X"99",X"89",X"9D",X"89",X"AA",X"65",X"AB", + X"99",X"9D",X"56",X"99",X"85",X"F9",X"66",X"2F",X"95",X"ED",X"43",X"E5",X"90",X"FD",X"5D",X"6F", + X"91",X"FA",X"94",X"3F",X"03",X"97",X"E0",X"7F",X"D0",X"FC",X"3D",X"0B",X"C0",X"E9",X"E1",X"3F", + X"63",X"B0",X"3F",X"03",X"E0",X"7C",X"7D",X"2B",X"87",X"B4",X"2F",X"02",X"F0",X"A8",X"7D",X"2B", + X"C4",X"BC",X"0F",X"52",X"E1",X"E1",X"B8",X"2F",X"A2",X"29",X"57",X"A1",X"9D",X"D5",X"B8",X"2F", + X"A1",X"A6",X"1A",X"59",X"9A",X"95",X"F5",X"2F",X"96",X"72",X"36",X"1E",X"57",X"A2",X"A8",X"6E", + X"66",X"62",X"76",X"66",X"23",X"A6",X"76",X"2E",X"66",X"66",X"27",X"63",X"5A",X"99",X"9C",X"7F", + X"76",X"95",X"6B",X"52",X"66",X"79",X"C4",X"FF",X"6B",X"80",X"AF",X"50",X"6A",X"6A",X"81",X"FF", + X"6B",X"80",X"EE",X"80",X"76",X"7A",X"55",X"BF",X"2B",X"C0",X"AE",X"50",X"9E",X"6A",X"55",X"BF", + X"2F",X"80",X"7F",X"41",X"9A",X"A9",X"55",X"BF",X"3F",X"01",X"FA",X"12",X"1A",X"AE",X"41",X"BF", + X"7E",X"05",X"E7",X"62",X"15",X"BE",X"01",X"FF",X"6A",X"95",X"5A",X"66",X"61",X"7F",X"50",X"BF", + X"75",X"D7",X"5D",X"68",X"CC",X"CC",X"A2",X"8D",X"72",X"8C",X"CC",X"A3",X"29",X"72",X"8D",X"72", + X"97",X"27",X"29",X"75",X"A2",X"8A",X"28",X"CD",X"75",X"A2",X"8D",X"72",X"8D",X"72",X"8C",X"A3", + X"8A",X"33",X"28",X"D7",X"33",X"35",X"CC",X"D7",X"28",X"CC",X"CC",X"CC",X"CC",X"CA",X"35",X"9C", + X"CA",X"5D",X"73",X"5C",X"CD",X"72",X"8D",X"73",X"5D",X"73",X"33",X"5D",X"73",X"28",X"A2",X"8A", + X"8A",X"5C",X"CC",X"CC",X"CC",X"CD",X"73",X"32",X"8A",X"33",X"28",X"CC",X"CC",X"CC",X"CD",X"8C", + X"CC",X"A3",X"35",X"CC",X"CA",X"27",X"5C",X"CA",X"5D",X"73",X"33",X"5C",X"A3",X"32",X"8C",X"A5", + X"97",X"33",X"33",X"36",X"33",X"28",X"CC",X"CC",X"CC",X"CC",X"CC",X"CC",X"CC",X"D8",X"CC",X"C9", + X"D7",X"5C",X"CC",X"CC",X"D6",X"8C",X"CA",X"33",X"5C",X"A3",X"33",X"33",X"33",X"33",X"33",X"27", + X"99",X"A2",X"76",X"16",X"57",X"A5",X"A9",X"AF",X"88",X"99",X"FD",X"46",X"07",X"E0",X"7E",X"6F", + X"66",X"17",X"FC",X"18",X"47",X"E4",X"7D",X"7F",X"91",X"A7",X"BD",X"18",X"4E",X"D0",X"BC",X"6F", + X"89",X"86",X"F9",X"1E",X"07",X"D0",X"A9",X"FF",X"85",X"D7",X"BC",X"28",X"0F",X"C0",X"B9",X"7F", + X"86",X"57",X"F9",X"28",X"0F",X"D0",X"AC",X"7F",X"66",X"5A",X"AA",X"55",X"5A",X"94",X"5E",X"FE", + X"66",X"A9",X"55",X"99",X"A9",X"55",X"AA",X"EE",X"2A",X"9D",X"56",X"95",X"A9",X"46",X"B6",X"BE", + X"27",X"7A",X"55",X"96",X"7D",X"41",X"F7",X"BE",X"61",X"7F",X"1A",X"81",X"AD",X"45",X"A6",X"BF", + X"66",X"39",X"6B",X"A0",X"1D",X"5B",X"C0",X"FF",X"A5",X"6A",X"86",X"65",X"9D",X"1B",X"D0",X"BF", + X"66",X"A1",X"79",X"59",X"9D",X"4F",X"E0",X"7F",X"66",X"95",X"9D",X"86",X"A6",X"5A",X"B4",X"6F", + X"66",X"62",X"68",X"6A",X"5A",X"A1",X"B8",X"2F",X"62",X"6A",X"55",X"DD",X"8A",X"67",X"A5",X"3F", + X"A1",X"79",X"5A",X"5A",X"86",X"D4",X"F9",X"2B",X"69",X"5E",X"57",X"66",X"86",X"D4",X"BC",X"2B", + X"69",X"5A",X"96",X"67",X"56",X"D4",X"BC",X"2B",X"69",X"5A",X"95",X"DA",X"56",X"D4",X"BC",X"2B", + X"69",X"99",X"76",X"56",X"98",X"9A",X"A1",X"AF",X"D0",X"F8",X"7D",X"0B",X"C0",X"7A",X"E0",X"7F", + X"C1",X"B5",X"B5",X"2F",X"40",X"B8",X"7D",X"2F",X"2B",X"12",X"F0",X"3F",X"05",X"DA",X"C4",X"BE", + X"A5",X"96",X"66",X"1E",X"85",X"E9",X"A8",X"2F",X"E4",X"78",X"6C",X"0B",X"D0",X"BC",X"79",X"2F", + X"D4",X"B8",X"3D",X"0B",X"C0",X"F8",X"A8",X"3F",X"B4",X"7D",X"0F",X"0A",X"C0",X"FC",X"79",X"2F", + X"A1",X"6D",X"4A",X"D0",X"F8",X"78",X"AD",X"1F",X"75",X"7D",X"0B",X"C0",X"F8",X"79",X"7D",X"1F", + X"66",X"A4",X"7E",X"03",X"F0",X"3D",X"B8",X"2F",X"38",X"5B",X"A8",X"0B",X"D0",X"7E",X"78",X"3F", + X"35",X"7E",X"07",X"97",X"C0",X"BA",X"A0",X"BF",X"38",X"69",X"69",X"8A",X"57",X"E0",X"BC",X"2B", + X"75",X"A3",X"28",X"C9",X"D7",X"59",X"D9",X"67",X"5D",X"69",X"75",X"D8",X"C7",X"97",X"5A",X"29", + X"89",X"A5",X"A5",X"A6",X"26",X"97",X"5A",X"89",X"67",X"65",X"9D",X"96",X"69",X"89",X"A5",X"A2", + X"67",X"5D",X"76",X"28",X"9E",X"22",X"98",X"CA",X"63",X"27",X"28",X"9A",X"65",X"A5",X"9A",X"66", + X"63",X"28",X"9D",X"99",X"66",X"96",X"76",X"5A",X"27",X"59",X"D9",X"66",X"78",X"89",X"D6",X"75", + X"96",X"98",X"9A",X"5D",X"8A",X"71",X"78",X"D8",X"CA",X"59",X"D9",X"69",X"98",X"99",X"D6",X"76", + X"27",X"5D",X"8A",X"65",X"99",X"9D",X"6A",X"19",X"D8",X"D5",X"E6",X"5A",X"5D",X"69",X"75",X"99", + X"96",X"66",X"76",X"59",X"D9",X"95",X"67",X"AE",X"C1",X"E1",X"BD",X"49",X"D7",X"94",X"3E",X"7F", + X"D4",X"78",X"7F",X"07",X"92",X"B0",X"2E",X"6F",X"D4",X"75",X"AF",X"07",X"85",X"F0",X"2E",X"6F", + X"6A",X"62",X"75",X"66",X"66",X"62",X"B4",X"3F",X"D0",X"FC",X"65",X"2F",X"02",X"E0",X"F8",X"3F", + X"69",X"D5",X"9D",X"86",X"76",X"63",X"B4",X"3F",X"1F",X"47",X"F0",X"3F",X"03",X"97",X"D0",X"BF", + X"82",X"F0",X"AC",X"3F",X"01",X"A7",X"A0",X"AF",X"57",X"D4",X"E5",X"BD",X"03",X"F0",X"68",X"BF", + X"2B",X"42",X"F5",X"A8",X"0B",X"D4",X"5D",X"BF",X"2B",X"42",X"F5",X"A8",X"0B",X"D4",X"5D",X"BF", + X"A5",X"6A",X"55",X"9A",X"85",X"B8",X"78",X"6F",X"96",X"79",X"59",X"9A",X"81",X"F5",X"E5",X"3F", + X"89",X"E6",X"26",X"5A",X"81",X"F8",X"66",X"2F",X"67",X"A5",X"66",X"5E",X"12",X"B5",X"98",X"AE", + X"5A",X"A5",X"5A",X"67",X"81",X"F8",X"78",X"6E",X"2A",X"1D",X"8A",X"96",X"63",X"A4",X"B8",X"2F", + X"85",X"E6",X"A8",X"59",X"D9",X"D4",X"6D",X"7F",X"91",X"F4",X"BD",X"0F",X"56",X"D0",X"7D",X"AF", + X"85",X"E5",X"F8",X"27",X"95",X"E0",X"3E",X"7F",X"56",X"A6",X"B5",X"27",X"95",X"E0",X"3E",X"7F", + X"56",X"A6",X"B5",X"1E",X"89",X"A0",X"2F",X"3F",X"86",X"72",X"F0",X"79",X"2B",X"50",X"7D",X"EF", + X"61",X"AA",X"D4",X"A8",X"3F",X"01",X"79",X"FF",X"D0",X"AE",X"75",X"65",X"3F",X"41",X"9D",X"FF", + X"85",X"A9",X"AF",X"00",X"AF",X"06",X"85",X"FF",X"76",X"47",X"BE",X"40",X"AD",X"5E",X"55",X"BF", + X"76",X"56",X"AA",X"55",X"96",X"79",X"55",X"FF",X"9C",X"89",X"A9",X"98",X"56",X"AA",X"15",X"EE", + X"95",X"9A",X"61",X"67",X"A6",X"76",X"63",X"BA",X"79",X"85",X"9D",X"98",X"95",X"AE",X"91",X"BF", + X"29",X"AA",X"80",X"F9",X"1A",X"1F",X"D0",X"BF",X"61",X"F8",X"A5",X"2F",X"00",X"F8",X"9C",X"AF", + X"95",X"B8",X"78",X"2F",X"00",X"F9",X"78",X"7F",X"69",X"99",X"E9",X"0B",X"80",X"BD",X"69",X"3F", + X"75",X"9C",X"5F",X"43",X"F0",X"A8",X"B5",X"2F",X"A1",X"6A",X"4A",X"D0",X"F8",X"69",X"B8",X"2F", + X"69",X"5B",X"43",X"E0",X"E7",X"95",X"F8",X"2F",X"5E",X"53",X"D1",X"F4",X"7D",X"95",X"F8",X"2F", + X"C5",X"62",X"BC",X"1D",X"5B",X"C0",X"5A",X"BF",X"D5",X"81",X"FD",X"78",X"0F",X"D0",X"A8",X"7F", + X"2B",X"43",X"E0",X"FC",X"07",X"E5",X"58",X"EF",X"66",X"62",X"E4",X"7E",X"41",X"F8",X"78",X"2F", + X"97",X"85",X"F8",X"0B",X"D0",X"F5",X"A8",X"2F",X"97",X"85",X"F8",X"0B",X"D0",X"F5",X"A8",X"2F", + X"98",X"9A",X"A1",X"23",X"A9",X"99",X"66",X"AA",X"A6",X"19",X"D9",X"88",X"99",X"E9",X"55",X"EF", + X"A6",X"56",X"69",X"98",X"88",X"EA",X"55",X"AF",X"79",X"85",X"A9",X"96",X"26",X"7A",X"55",X"AF", + X"99",X"88",X"99",X"9A",X"66",X"66",X"3A",X"9E",X"99",X"89",X"66",X"66",X"99",X"99",X"9E",X"9E", + X"A5",X"7A",X"1E",X"07",X"8A",X"A1",X"69",X"AA",X"3C",X"79",X"2B",X"47",X"42",X"F8",X"69",X"3F", + X"35",X"BD",X"07",X"D6",X"90",X"BD",X"59",X"6F",X"92",X"BC",X"1D",X"8E",X"80",X"FC",X"2D",X"2F", + X"91",X"FD",X"1A",X"8A",X"80",X"FC",X"2D",X"2F",X"69",X"A5",X"6A",X"57",X"52",X"F4",X"69",X"7F", + X"97",X"5C",X"D9",X"67",X"83",X"9D",X"8D",X"78",X"67",X"59",X"9D",X"73",X"29",X"76",X"63",X"28", + X"D8",X"99",X"A6",X"62",X"66",X"99",X"89",X"99",X"D6",X"66",X"99",X"72",X"8A",X"66",X"5A",X"66", + X"66",X"63",X"A8",X"5E",X"81",X"E8",X"A5",X"6F",X"66",X"61",X"FC",X"0F",X"80",X"BC",X"78",X"3F", + X"D0",X"F4",X"FD",X"0B",X"D0",X"3A",X"A5",X"6F",X"D0",X"BC",X"2E",X"0B",X"C0",X"6A",X"B0",X"7F", + X"D0",X"BC",X"2E",X"0F",X"80",X"AA",X"A4",X"7F",X"C0",X"FC",X"65",X"7F",X"02",X"A0",X"F8",X"2F", + X"82",X"F0",X"AC",X"3F",X"00",X"F9",X"A1",X"3F",X"82",X"F4",X"6E",X"1E",X"42",X"F0",X"78",X"AF", + X"67",X"76",X"1A",X"66",X"16",X"A9",X"65",X"AF",X"87",X"98",X"65",X"E9",X"57",X"9E",X"85",X"EA", + X"57",X"E0",X"7E",X"07",X"D4",X"F0",X"BC",X"1F",X"A1",X"A5",X"AD",X"0F",X"53",X"C2",X"F4",X"2F", + X"D0",X"BC",X"68",X"2F",X"03",X"D4",X"F8",X"2F",X"D0",X"FC",X"2D",X"4B",X"50",X"FD",X"84",X"BF", + X"66",X"98",X"67",X"69",X"57",X"E0",X"B8",X"2F",X"85",X"BE",X"03",X"E2",X"80",X"FD",X"19",X"7F", + X"94",X"FD",X"4A",X"C5",X"D0",X"FD",X"0D",X"AF",X"89",X"98",X"E5",X"6A",X"1A",X"D1",X"B8",X"2F", + X"67",X"56",X"A5",X"79",X"5A",X"D1",X"B8",X"2F",X"67",X"56",X"A1",X"A9",X"5A",X"D1",X"F5",X"2F", + X"D1",X"F4",X"2F",X"42",X"F0",X"A8",X"B5",X"2F",X"A4",X"AD",X"0F",X"82",X"D6",X"A0",X"F5",X"2F", + X"78",X"2F",X"43",X"E0",X"E5",X"E0",X"B8",X"2F",X"69",X"5E",X"56",X"99",X"97",X"A0",X"BC",X"2B", + X"29",X"2F",X"0B",X"87",X"80",X"BE",X"03",X"F4",X"30",X"FD",X"1F",X"5B",X"00",X"BE",X"07",X"F0", + X"84",X"FC",X"5E",X"2B",X"00",X"BF",X"03",X"F0",X"81",X"FC",X"5E",X"2E",X"00",X"BF",X"03",X"F0", + X"91",X"F8",X"57",X"F4",X"74",X"3F",X"42",X"F6",X"91",X"EB",X"43",X"F4",X"E4",X"2F",X"03",X"F8", + X"95",X"9E",X"45",X"AE",X"0B",X"8E",X"98",X"6F",X"8E",X"0E",X"47",X"2E",X"1A",X"A9",X"E5",X"3F", + X"D2",X"83",X"D3",X"82",X"DA",X"1F",X"1F",X"C2",X"D5",X"83",X"87",X"83",X"DA",X"5B",X"8E",X"97", + X"D2",X"91",X"CA",X"87",X"5E",X"A7",X"6A",X"39",X"C5",X"86",X"5A",X"62",X"9A",X"A7",X"6A",X"67", + X"C5",X"95",X"66",X"9A",X"5A",X"7A",X"9D",X"99",X"C6",X"55",X"8A",X"67",X"5A",X"79",X"E9",X"69", + X"DA",X"61",X"59",X"8D",X"D8",X"4E",X"1F",X"E9",X"DD",X"88",X"57",X"5A",X"59",X"4F",X"1F",X"E7", + X"DD",X"86",X"17",X"66",X"59",X"4B",X"5F",X"DE",X"A6",X"A5",X"56",X"5A",X"57",X"4A",X"8F",X"DF", + X"6A",X"9D",X"56",X"1A",X"8A",X"0A",X"1F",X"EA",X"96",X"8A",X"DD",X"07",X"6A",X"19",X"1F",X"F7", + X"76",X"95",X"DF",X"50",X"7A",X"56",X"92",X"FF",X"3A",X"55",X"EA",X"16",X"56",X"AA",X"09",X"FF", + X"A7",X"5A",X"52",X"C1",X"E5",X"9E",X"3D",X"2F",X"B4",X"7C",X"0F",X"81",X"B5",X"66",X"F4",X"3F", + X"D2",X"9D",X"0F",X"C0",X"F4",X"F4",X"BC",X"3F",X"C3",X"D1",X"CB",X"03",X"E0",X"FC",X"2F",X"4A", + X"C2",X"D2",X"5F",X"43",X"E0",X"BC",X"2F",X"0F",X"67",X"56",X"98",X"79",X"75",X"E5",X"DB",X"0F", + X"1A",X"6E",X"07",X"E0",X"75",X"F4",X"3F",X"D0",X"0F",X"D0",X"EF",X"42",X"F0",X"35",X"B8",X"3F", + X"5F",X"02",X"F6",X"0B",X"C0",X"A9",X"B8",X"3F",X"87",X"C1",X"6F",X"19",X"4B",X"C0",X"BE",X"D0", + X"67",X"A5",X"66",X"1E",X"62",X"61",X"7E",X"2B",X"67",X"A1",X"75",X"6A",X"62",X"61",X"7E",X"3B", + X"A5",X"E5",X"68",X"5E",X"56",X"62",X"7A",X"9E",X"A5",X"68",X"99",X"99",X"96",X"66",X"7A",X"9E", + X"9D",X"99",X"59",X"99",X"98",X"98",X"AA",X"AA",X"27",X"7A",X"56",X"62",X"A1",X"74",X"7E",X"7B", + X"62",X"6A",X"8A",X"86",X"A0",X"E4",X"2F",X"6F",X"95",X"6B",X"5A",X"82",X"E4",X"A4",X"2F",X"3F", + X"95",X"7A",X"6A",X"46",X"E1",X"A0",X"2F",X"2F",X"C4",X"AA",X"6A",X"46",X"E1",X"A0",X"3E",X"3F", + X"C4",X"7D",X"6E",X"06",X"D6",X"94",X"3E",X"3F",X"99",X"72",X"79",X"89",X"5A",X"A1",X"65",X"EF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF", + X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF",X"FF"); +begin +process(clk) +begin + if rising_edge(clk) then + data <= rom_data(to_integer(unsigned(addr))); + end if; +end process; +end architecture; diff --git a/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/video_gen.vhd b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/video_gen.vhd new file mode 100644 index 00000000..114170ed --- /dev/null +++ b/Arcade_MiST/Berzerk Hardware/MoonWar_MiST/rtl/video_gen.vhd @@ -0,0 +1,134 @@ +--------------------------------------------------------------------------------- +-- Berzerk Video generator - Dar - Juin 2018 +--------------------------------------------------------------------------------- +library ieee; +use ieee.std_logic_1164.all; +use ieee.std_logic_unsigned.all; +use ieee.numeric_std.all; + +entity video_gen is +port( + clock : in std_logic; + reset : in std_logic; + ena_pixel : in std_logic; + hsync : out std_logic; + vsync : out std_logic; + csync : out std_logic; + hblank : out std_logic; + vblank : out std_logic; + hcnt_o : out std_logic_vector(8 downto 0); + vcnt_o : out std_logic_vector(8 downto 0) +); +end video_gen; + +architecture struct of video_gen is + +signal hcnt : std_logic_vector(8 downto 0); +signal vcnt : std_logic_vector(8 downto 0); + +signal hsync0 : std_logic; +signal hsync1 : std_logic; +signal hsync2 : std_logic; + +begin + +hcnt_o <= hcnt; +vcnt_o <= vcnt; + +hsync <= hsync0; + + +-- Compteur horizontal +-- 1C0..1FF-000..0FF : 64+256 = 320 pixels +-- 448..511-000..255 + +-- Compteur vertical +-- 1DA..1FF-020..0FF : 38+224 = 262 lignes +-- 474..511-032..255 + +-- Synchro horizontale : hcnt=[] (xx pixels) +-- Synchro verticale : vcnt=[] ( x lignes) + +process(clock,reset) +begin + + if reset = '1' then + hcnt <= (others=>'0'); + vcnt <= (others=>'0'); + else + + if rising_edge(clock) then + + if ena_pixel = '1' then + + if hcnt = std_logic_vector(to_unsigned(511,9)) then -- 511 + hcnt <= (others=>'0'); + else + if hcnt = std_logic_vector(to_unsigned(255,9)) then -- 255 + hcnt <= std_logic_vector(to_unsigned(448,9)); -- 448 + else + hcnt <= hcnt + '1'; + end if; + end if; + + if hcnt = std_logic_vector(to_unsigned(255,9)) then + if vcnt = std_logic_vector(to_unsigned(511,9)) then + vcnt <= std_logic_vector(to_unsigned(32,9)); + else + if vcnt = 255 then + vcnt <= std_logic_vector(to_unsigned(474,9)); + else + vcnt <= vcnt + '1'; + end if; + end if; + end if; + + if hcnt = std_logic_vector(to_unsigned(448+16,9)) then + -- vblank_r <= vblank; + end if; + + + if hcnt = (466+ 0) then hsync0 <= '0'; + elsif hcnt = (466+24) then hsync0 <= '1'; + end if; + + if hcnt = (466+ 0) then hsync1 <= '0'; + elsif hcnt = (466+11) then hsync1 <= '1'; + elsif hcnt = (466 +160-512) then hsync1 <= '0'; + elsif hcnt = (466+11+160-512) then hsync1 <= '1'; + end if; + + if hcnt = (466) then hsync2 <= '0'; + elsif hcnt = (466-10) then hsync2 <= '1'; + end if; + + if vcnt = (490-7) then csync <= hsync1; + elsif vcnt = (491-7) then csync <= hsync1; + elsif vcnt = (492-7) then csync <= hsync1; + elsif vcnt = (493-7) then csync <= hsync2; + elsif vcnt = (494-7) then csync <= hsync2; + elsif vcnt = (495-7) then csync <= hsync2; + elsif vcnt = (496-7) then csync <= hsync1; + elsif vcnt = (497-7) then csync <= hsync1; + elsif vcnt = (498-7) then csync <= hsync1; + else csync <= hsync0; + end if; + + if vcnt = (490) then vsync <= '0'; + elsif vcnt = (498) then vsync <= '1'; + end if; + + if hcnt = (448+8) then hblank <= '1'; + elsif hcnt = (8) then hblank <= '0'; + end if; + + if vcnt = (474) then vblank <= '1'; + elsif vcnt = (032) then vblank <= '0'; + end if; + + end if; + end if; + end if; +end process; + +end architecture; \ No newline at end of file diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.qpf b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.qpf new file mode 100644 index 00000000..f68bb246 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.qpf @@ -0,0 +1,30 @@ +# -------------------------------------------------------------------------- # +# +# Copyright (C) 1991-2013 Altera Corporation +# Your use of Altera Corporation's design tools, logic functions +# and other software and tools, and its AMPP partner logic +# functions, and any output files from any of the foregoing +# (including device programming or simulation files), and any +# associated documentation or information are expressly subject +# to the terms and conditions of the Altera Program License +# Subscription Agreement, Altera MegaCore Function License +# Agreement, or other applicable license agreement, including, +# without limitation, that your use is for the sole purpose of +# programming logic devices manufactured by Altera and sold by +# Altera or its authorized distributors. Please refer to the +# applicable agreement for further details. +# +# -------------------------------------------------------------------------- # +# +# Quartus II 64-Bit +# Version 13.1.0 Build 162 10/23/2013 SJ Web Edition +# Date created = 21:27:39 November 20, 2017 +# +# -------------------------------------------------------------------------- # + +QUARTUS_VERSION = "13.1" +DATE = "21:27:39 November 20, 2017" + +# Revisions + +PROJECT_REVISION = "GunFight" diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.qsf b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.qsf new file mode 100644 index 00000000..8cbed1e3 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.qsf @@ -0,0 +1,178 @@ +# -------------------------------------------------------------------------- # +# +# Copyright (C) 1991-2014 Altera Corporation +# Your use of Altera Corporation's design tools, logic functions +# and other software and tools, and its AMPP partner logic +# functions, and any output files from any of the foregoing +# (including device programming or simulation files), and any +# associated documentation or information are expressly subject +# to the terms and conditions of the Altera Program License +# Subscription Agreement, Altera MegaCore Function License +# Agreement, or other applicable license agreement, including, +# without limitation, that your use is for the sole purpose of +# programming logic devices manufactured by Altera and sold by +# Altera or its authorized distributors. Please refer to the +# applicable agreement for further details. +# +# -------------------------------------------------------------------------- # +# +# Quartus II 64-Bit +# Version 13.1.4 Build 182 03/12/2014 SJ Web Edition +# Date created = 22:12:52 July 17, 2019 +# +# -------------------------------------------------------------------------- # +# +# Notes: +# +# 1) The default values for assignments are stored in the file: +# GunFight_assignment_defaults.qdf +# If this file doesn't exist, see file: +# assignment_defaults.qdf +# +# 2) Altera recommends that you do not modify this file. This +# file is updated automatically by the Quartus II software +# and any changes you make may be lost or overwritten. +# +# -------------------------------------------------------------------------- # + + + +# Project-Wide Assignments +# ======================== +set_global_assignment -name ORIGINAL_QUARTUS_VERSION 13.1 +set_global_assignment -name PROJECT_CREATION_TIME_DATE "21:27:39 NOVEMBER 20, 2017" +set_global_assignment -name LAST_QUARTUS_VERSION 13.1 +set_global_assignment -name PROJECT_OUTPUT_DIRECTORY output_files +set_global_assignment -name PRE_FLOW_SCRIPT_FILE "quartus_sh:rtl/build_id.tcl" +set_global_assignment -name SYSTEMVERILOG_FILE rtl/GunFight_mist.sv +set_global_assignment -name VHDL_FILE rtl/invaders.vhd +set_global_assignment -name VHDL_FILE rtl/mw8080.vhd +set_global_assignment -name VHDL_FILE rtl/invaders_audio.vhd +set_global_assignment -name SYSTEMVERILOG_FILE rtl/GunFight_memory.sv +set_global_assignment -name VHDL_FILE rtl/GunFight_overlay.vhd +set_global_assignment -name VHDL_FILE rtl/sprom.vhd +set_global_assignment -name VHDL_FILE rtl/spram.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T8080se.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80_Reg.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80_Pack.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80_MCode.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80_ALU.vhd +set_global_assignment -name VHDL_FILE rtl/T80/T80.vhd +set_global_assignment -name VHDL_FILE rtl/pll.vhd +set_global_assignment -name QIP_FILE ../../../../common/mist/mist.qip + +# Pin & Location Assignments +# ========================== +set_location_assignment PIN_7 -to LED +set_location_assignment PIN_54 -to CLOCK_27 +set_location_assignment PIN_144 -to VGA_R[5] +set_location_assignment PIN_143 -to VGA_R[4] +set_location_assignment PIN_142 -to VGA_R[3] +set_location_assignment PIN_141 -to VGA_R[2] +set_location_assignment PIN_137 -to VGA_R[1] +set_location_assignment PIN_135 -to VGA_R[0] +set_location_assignment PIN_133 -to VGA_B[5] +set_location_assignment PIN_132 -to VGA_B[4] +set_location_assignment PIN_125 -to VGA_B[3] +set_location_assignment PIN_121 -to VGA_B[2] +set_location_assignment PIN_120 -to VGA_B[1] +set_location_assignment PIN_115 -to VGA_B[0] +set_location_assignment PIN_114 -to VGA_G[5] +set_location_assignment PIN_113 -to VGA_G[4] +set_location_assignment PIN_112 -to VGA_G[3] +set_location_assignment PIN_111 -to VGA_G[2] +set_location_assignment PIN_110 -to VGA_G[1] +set_location_assignment PIN_106 -to VGA_G[0] +set_location_assignment PIN_136 -to VGA_VS +set_location_assignment PIN_119 -to VGA_HS +set_location_assignment PIN_65 -to AUDIO_L +set_location_assignment PIN_80 -to AUDIO_R +set_location_assignment PIN_105 -to SPI_DO +set_location_assignment PIN_88 -to SPI_DI +set_location_assignment PIN_126 -to SPI_SCK +set_location_assignment PIN_127 -to SPI_SS2 +set_location_assignment PIN_91 -to SPI_SS3 +set_location_assignment PIN_13 -to CONF_DATA0 +set_location_assignment PLL_1 -to "pll:pll|altpll:altpll_component" + +# Classic Timing Assignments +# ========================== +set_global_assignment -name MIN_CORE_JUNCTION_TEMP 0 +set_global_assignment -name MAX_CORE_JUNCTION_TEMP 85 + +# Analysis & Synthesis Assignments +# ================================ +set_global_assignment -name FAMILY "Cyclone III" +set_global_assignment -name DEVICE_FILTER_PIN_COUNT 144 +set_global_assignment -name DEVICE_FILTER_SPEED_GRADE 8 +set_global_assignment -name TOP_LEVEL_ENTITY GunFight_mist + +# Fitter Assignments +# ================== +set_global_assignment -name DEVICE EP3C25E144C8 +set_global_assignment -name ERROR_CHECK_FREQUENCY_DIVISOR 1 +set_global_assignment -name STRATIX_DEVICE_IO_STANDARD "3.3-V LVTTL" +set_global_assignment -name CYCLONEIII_CONFIGURATION_SCHEME "PASSIVE SERIAL" +set_global_assignment -name CRC_ERROR_OPEN_DRAIN OFF +set_global_assignment -name FORCE_CONFIGURATION_VCCIO ON +set_global_assignment -name CYCLONEII_RESERVE_NCEO_AFTER_CONFIGURATION "USE AS REGULAR IO" +set_global_assignment -name RESERVE_DATA0_AFTER_CONFIGURATION "USE AS REGULAR IO" +set_global_assignment -name RESERVE_DATA1_AFTER_CONFIGURATION "USE AS REGULAR IO" +set_global_assignment -name RESERVE_FLASH_NCE_AFTER_CONFIGURATION "USE AS REGULAR IO" +set_global_assignment -name RESERVE_DCLK_AFTER_CONFIGURATION "USE AS REGULAR IO" + +# EDA Netlist Writer Assignments +# ============================== +set_global_assignment -name EDA_SIMULATION_TOOL "ModelSim-Altera (VHDL)" + +# Assembler Assignments +# ===================== +set_global_assignment -name USE_CONFIGURATION_DEVICE OFF +set_global_assignment -name GENERATE_RBF_FILE ON + +# Power Estimation Assignments +# ============================ +set_global_assignment -name POWER_PRESET_COOLING_SOLUTION "23 MM HEAT SINK WITH 200 LFPM AIRFLOW" +set_global_assignment -name POWER_BOARD_THERMAL_MODEL "NONE (CONSERVATIVE)" + +# Advanced I/O Timing Assignments +# =============================== +set_global_assignment -name OUTPUT_IO_TIMING_NEAR_END_VMEAS "HALF VCCIO" -rise +set_global_assignment -name OUTPUT_IO_TIMING_NEAR_END_VMEAS "HALF VCCIO" -fall +set_global_assignment -name OUTPUT_IO_TIMING_FAR_END_VMEAS "HALF SIGNAL SWING" -rise +set_global_assignment -name OUTPUT_IO_TIMING_FAR_END_VMEAS "HALF SIGNAL SWING" -fall + +# start EDA_TOOL_SETTINGS(eda_simulation) +# --------------------------------------- + + # EDA Netlist Writer Assignments + # ============================== + set_global_assignment -name EDA_OUTPUT_DATA_FORMAT VHDL -section_id eda_simulation + +# end EDA_TOOL_SETTINGS(eda_simulation) +# ------------------------------------- + +# --------------------------- +# start ENTITY(GunFight_mist) + + # start DESIGN_PARTITION(Top) + # --------------------------- + + # Incremental Compilation Assignments + # =================================== + set_global_assignment -name PARTITION_NETLIST_TYPE SOURCE -section_id Top + set_global_assignment -name PARTITION_FITTER_PRESERVATION_LEVEL PLACEMENT_AND_ROUTING -section_id Top + set_global_assignment -name PARTITION_COLOR 16764057 -section_id Top + + # end DESIGN_PARTITION(Top) + # ------------------------- + +# end ENTITY(GunFight_mist) +# ------------------------- + +# -------------------------------- +# start ENTITY(spaceinvaders_mist) + +# end ENTITY(spaceinvaders_mist) +# ------------------------------ +set_instance_assignment -name PARTITION_HIERARCHY root_partition -to | -section_id Top \ No newline at end of file diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.sdc b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.sdc new file mode 100644 index 00000000..f91c127c --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/GunFight.sdc @@ -0,0 +1,126 @@ +## Generated SDC file "vectrex_MiST.out.sdc" + +## Copyright (C) 1991-2013 Altera Corporation +## Your use of Altera Corporation's design tools, logic functions +## and other software and tools, and its AMPP partner logic +## functions, and any output files from any of the foregoing +## (including device programming or simulation files), and any +## associated documentation or information are expressly subject +## to the terms and conditions of the Altera Program License +## Subscription Agreement, Altera MegaCore Function License +## Agreement, or other applicable license agreement, including, +## without limitation, that your use is for the sole purpose of +## programming logic devices manufactured by Altera and sold by +## Altera or its authorized distributors. Please refer to the +## applicable agreement for further details. + + +## VENDOR "Altera" +## PROGRAM "Quartus II" +## VERSION "Version 13.1.0 Build 162 10/23/2013 SJ Web Edition" + +## DATE "Sun Jun 24 12:53:00 2018" + +## +## DEVICE "EP3C25E144C8" +## + +# Clock constraints + +# Automatically constrain PLL and other generated clocks +derive_pll_clocks -create_base_clocks + +# Automatically calculate clock uncertainty to jitter and other effects. +derive_clock_uncertainty + +# tsu/th constraints + +# tco constraints + +# tpd constraints + +#************************************************************** +# Time Information +#************************************************************** + +set_time_format -unit ns -decimal_places 3 + + + +#************************************************************** +# Create Clock +#************************************************************** + +create_clock -name {SPI_SCK} -period 41.666 -waveform { 20.8 41.666 } [get_ports {SPI_SCK}] + +#************************************************************** +# Create Generated Clock +#************************************************************** + + +#************************************************************** +# Set Clock Latency +#************************************************************** + + + +#************************************************************** +# Set Clock Uncertainty +#************************************************************** + +#************************************************************** +# Set Input Delay +#************************************************************** + +set_input_delay -add_delay -clock_fall -clock [get_clocks {CLOCK_27}] 1.000 [get_ports {CLOCK_27}] +set_input_delay -add_delay -clock_fall -clock [get_clocks {SPI_SCK}] 1.000 [get_ports {CONF_DATA0}] +set_input_delay -add_delay -clock_fall -clock [get_clocks {SPI_SCK}] 1.000 [get_ports {SPI_DI}] +set_input_delay -add_delay -clock_fall -clock [get_clocks {SPI_SCK}] 1.000 [get_ports {SPI_SCK}] +set_input_delay -add_delay -clock_fall -clock [get_clocks {SPI_SCK}] 1.000 [get_ports {SPI_SS2}] +set_input_delay -add_delay -clock_fall -clock [get_clocks {SPI_SCK}] 1.000 [get_ports {SPI_SS3}] + +#************************************************************** +# Set Output Delay +#************************************************************** + +set_output_delay -add_delay -clock_fall -clock [get_clocks {SPI_SCK}] 1.000 [get_ports {SPI_DO}] +set_output_delay -add_delay -clock_fall -clock [get_clocks {pll|altpll_component|auto_generated|pll1|clk[0]}] 1.000 [get_ports {AUDIO_L}] +set_output_delay -add_delay -clock_fall -clock [get_clocks {pll|altpll_component|auto_generated|pll1|clk[0]}] 1.000 [get_ports {AUDIO_R}] +set_output_delay -add_delay -clock_fall -clock [get_clocks {pll|altpll_component|auto_generated|pll1|clk[0]}] 1.000 [get_ports {LED}] +set_output_delay -add_delay -clock_fall -clock [get_clocks {pll|altpll_component|auto_generated|pll1|clk[0]}] 1.000 [get_ports {VGA_*}] + +#************************************************************** +# Set Clock Groups +#************************************************************** + +set_clock_groups -asynchronous -group [get_clocks {SPI_SCK}] -group [get_clocks {pll|altpll_component|auto_generated|pll1|clk[*]}] + +#************************************************************** +# Set False Path +#************************************************************** + + + +#************************************************************** +# Set Multicycle Path +#************************************************************** + +set_multicycle_path -to {VGA_*[*]} -setup 2 +set_multicycle_path -to {VGA_*[*]} -hold 1 + +#************************************************************** +# Set Maximum Delay +#************************************************************** + + + +#************************************************************** +# Set Minimum Delay +#************************************************************** + + + +#************************************************************** +# Set Input Transition +#************************************************************** + diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/README.txt b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/README.txt new file mode 100644 index 00000000..c91bf9dd --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/README.txt @@ -0,0 +1,29 @@ +--------------------------------------------------------------------------------- +-- +-- Arcade: Gun Fight port to MiST by Gehstock +-- 17 July 2019 +-- +--------------------------------------------------------------------------------- +-- +-- Midway 8080 Hardware +-- Audio based on work by Paul Walsh. +-- Audio and scan converter by MikeJ. +--------------------------------------------------------------------------------- +-- +-- +-- Keyboard inputs : +-- +-- ESC : Start +-- Joystick 1 / 2 : Movement +-- Q : Player 1 Gun Up +-- Y : Player 1 Gun Down +-- Arrow Up : Player 2 Gun Up +-- ArrowDown : Player 2 Gun Down +-- Joystick only +-- +-- +--------------------------------------------------------------------------------- + +ToDo: Sound + Controls + diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/Release/GunFight.rbf b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/Release/GunFight.rbf new file mode 100644 index 0000000000000000000000000000000000000000..a039a1360a5846c323d48faf1ecb7c9b642321eb GIT binary patch literal 236134 zcmeFa3!EHRb?0AIY7JxAKvzxm&=$g0wW{T@v9U*%fUy50Ri)~2TM=>hs3itrj7Q86 zU_)#VR`qwjb82|!R}K8rH;#Sd>))9D z+Sk7Mt*?FU>)-y`v)}&C*T3=2uYK#A&p!LjZ+`RZ!0xx68qxptPc2{yn0wasIanSC z3O$%xI!`;Bv+(r;bI)_@n17wum8VBQ3gqcJ>;6nZc;-Tmf3b63U;bQWRcD^A^O@41 z{Bvp0b&h|rb6#KmTxEnOPhaji$G6mTUQeE1bO`b>n5UoayjXsv=P)0K(v>#!h$fu{N}CValM~1J&vk#|X?C?xp85QkpXXxWK|mN1U@17yHjj8A$nl65g1NNm zej6Z~bUhc8CQw>-m0j0?x%q@ob*uq2wgtM+LA-ehp!@d&D!U!%02csyu6xPxsbB=q z^I8w)(hviydSK537f@2S2l-=_`6J-HfF6mSLp}IUz})M(_j!7L&gs|+2QFQ1kKda5U)>-KST`MgIrR8+w_2uIuZ*N{#epVUDhv@Qwyu6;P z4^>`i{~5^p|1m&mb3ti2Eegz*O<%4*9@S0@kD2VuE%mUPJ_-l9l9<9Hv>W`It~Cj z3%AnpI+k))-M0XuNBu6@R~?IicqGW5s}0u!7XeBaow}ENNVf^*US}!WxBp`g@@J}l z&m7p)g9@NaJ<@d!AM1hcF9US`2p~Spg}J;@`WJ!xx%jgW$nSO57!-&e^|@f~*cC16 zAJwPx2LO?xJd#tDl^lqc98M({i}jJ}p9`u_kWrK!vy|-k|Moz4IlshW(UwEb^SNj7 ze=g|R-21sS=vw{05Dj_SU4ZJ#X_IVy8^~$US@)-d`T8UuEBQIEZ?SV;U;bRQt8IC@ z*d-d2mc!|2((}Cj{H!@P9}Dw&qq?O#1-h30cq{NXfMiYcug;Rm9KO;6-Rm+>&(9iT zw*$hLr)k{I1wES!YWv*#jG_}XiEh!6!>{&0_o7iUs&S#h^en&D`R{u$KTUK9ezXT0=0INm+_UHxKdK{7jcT+AJ( z3tcPt@eH8;&q4IeA!EVIhkGD8ltJVRkCH{7ct5wkrP7qskgIv|HMc?L>R9PjfowE^ zp6On5)h=ML2fqyH{;vR?TYzZMS+En(Ij2uF%YMx15Px-@kByuex|jaaS@w{0nm}Xy zLO{0ep98sFt@GhizLaXVvr39_ael0G(x5%eL29cH+MQ zbe*T^J_pHM4wAtfRJS0fL+VcVIZx-)q4ufn9CEs(GadqT{+S;97vL9rkf%wP?dXAc z@F76w9P~)nqCuc}LLhpxlq@apJMl`_`B`?Eu5SXa1oZ6nfYS0g^HqT6bAiUN>G^0VFE| z(V?@(vd+>IO4C{Q0$nRD2c@ZB1foZ6l>MCh<2vX4lc&8DP)sCGSHHalP?|vVm+qyr zWJe2heFKo)WyiVtSAD1Y=R#heXv!f^(^>ThbS;|HhCc%&S2^f@J{*|`PXKe1=F*^R z$zEQ+&Zl6F9D_Hp!?H-cr+I@W;Hf*P<;yl>j>Y}*qi%IwuE4z zG^Ib)16`j9%*A)^`Wy$&ao`*WmdXL?Kk3tx@=u)C83GNxa-}6jLnN!*Fy!+ib8J_u9Ym~lCIIc)W?hUBV zDnV=-TbE4-b|bw%wa8KHgarzwaaA>h0f$<_no^a@@N_suwm6t_p8nJG^=L)lc`j)y(niZ#`5|zQu%&b01t??b(z&x> z&bzBd*OG$pA%)IOSm%@#u zGI1yA3uAC%FH`gF6!L$+UITYiX+-9+n>E7 z*;aX+79I$*n@{XD%sn&tUM%-hza{s7WdKdFa=P-!!~eIt7K*aG>Cab&^}@1ZDok;y zpSX|1+yIqoSSHN=-2b!8k_!}Du~vdRo7(0Fl^3XVDM_=3o>)q@rRAZOD>hI1vtRh* zrPaEWTr1E2rPR8FJm&~o0+UY4vQiu~1L$1`S4LnBvQIyAj|@?x`DA{EKYfg47bQ)=NdD>d~A`$`8$7N&R^spkkgQ>KYyD;4dwZvO4_ z&b0nT^PlU=MOm}R130!~Hjg#?ijOW*%`%eFJu4<-Cnl0*5Hi0AESp*xv;BWz4W8nIZ=AV14Q?0G4gv&6DsasPD}oC|iZ zT(CPj`ni9(eBCg=B)a1HXLXCnbGE|#t~%ZQIgXu^1kU6tWfE&H+g)J;kqBE1yGHbQZgQ zW}x#`br??2eB9>({N(&-<_IPL8N#>s`Uoe}#pRdI$N1*+rZQZ?_mw)wy<~+-*=;+Vh z`#jZ_*_$wD*}lB^3QsUO+Ot2OBkW9h_=4fsxta2eMC18vDX*N0J@-!K83~2SeD0k} zbmq#5;0wryUvSICStg#_+tTe0BOxxL+sFnRIhmG;tC zYT4r4-tNWwY|$sZck@@qz^0Z(P55)~R4&>Fi#=HBfwovZXPn+6?4O)dM%bNXosm(SO(wEUYce11k7wO4Toj9p@ul~iQzO(lJ_{snGzFOl)5&2}!_eU_H^ zKgV$QxsBa?ynBT=cAs{nEjhz?L0K-j?o(!be$1kw6@(|q>|M^j{xc`i&hV<}WJn@& z=8kam?BD(E8Di;WkNDj=uZPeIlo&(_;q4Fq<;h=OToAj-zrYj4#|`8e-g4jh3uHSv z2}&}^3+Zm|wUx7R_RD9nuA3w2Rc6h8b{TfVd?d$_U36`JdFJQiT%)MDzU_(^ojDej zC^|*Y<7Wm#!?K)*k^SiVmx*uzGR|gj^;)VPH^jlt4_{2YW_gg0hZCh|fAhK%H)nE% z=&NgUj`fOu?CLYYF+Xn@Idkzn{hk&1!Gxmu6-oc@i_FhR&#&|J_hyijjXpp@Wl^%X*^O~XR;~m)EZcKyp z?&;-<0jR2IYy`mLcR2aeXm>*Wl;_3Amd)%yQVM5;rcnucNMY*5KlajPF2IR4a2Xn- z1QM%`qz>Y(+3vHa@2`b(1juXFb_7jyBE1IXwafjSjD~seiGADR3bo zVWs|$R=}%4AP&G&61cnWM;wIexvxJWPz%JX7t0zsxB=njOGT}I(kHy)4(4soIY13J zZ-41x#m=CHA~k^WUJaUi5}14>>1QZL+vwB}-*EmNXGHG8^@dY+px+KMZQ$_3;1nBX zKk}^`<1h1rJFhCgH+~oAjXz%g?5iJ%-+KF9=7)O5Z@M~|mHs&G z%mQ_g6fc~drPBKr6J;n3F9^*MVYYthE9UZS4o2A<#Mk}iBEKIPF@_cgAqXH(B%YM( z!yj3;LB(|0YcJSMb2-l*U2KQQN!2cVbAq-2RGQ^xzy6+uvz|UxMuBOuOas(56jn8( zf8P(BzN~Vn>vA|wnD_|jS!C=N>!uGf-j@KGJeCTiEux(kCv46W_|+2+s8wsfwtLRgGr5%N$osX2lAmJu-qXAA3s$0jG~EfRqL*OS zhp3Vw){%AF)fY@JSmtzzvLkb7R6>klxEE+D z%W(r14*BCbUpl{9kc($7FPysYVox()qlZ&22gow4M{YlVndS&M7nuSk-6WExM&didHt z#O-Vy1k86>8GWcC_xaKS)bi7ufz=ToK6lfZIU5UF?+{)Ft2|uGR1iH5^1wO(?RWp> zOIOH0KowPQpX(rmR)_j#|Kwks^AP4ZJpboCgmeL!URu)Zr|+Cv-mszLf$S&+oelDf ze|O&RNT1r4pF^Y>&%JxiQX0~;U;gx*9A|c^@;#ir)9iov2ZO@=DBbCi^_oUT$jMNc zqvE)_zzJVFudx}@CE>@M?~!E+N#V{udca)IFYjh(PjMu|kr9=nl$U@moBiT%o}$#E zkEA&=V^moTAF|NN?A!m-qJ`!^P#^Z7$4T|bT=@9EfAQSgrCtm1@xD=mGrY5}`>Um5 zSSa6dj0$KWd6kica-BX6>WZ*FV_?R*sZ~EPzT^92)^rnOJ zo+V=GSU3OSGQ(>Ip(bFp7|)a@tJSk_{=P+9a=Hie<;0r(-~aJ+Wfps$QKc@`(wuC2 zL+MR-Ei>TDIF&(e9QvMFBTX>-j?OY|E^y`T#gCEcEcCNqe$8SnT0%MJ5ceFR2tRO|k5^j>&aMJg=UV@f;p~$MVN&DBX_n zh(d=wGM(v(+0Xv3C5XX7Ss*fZ6+kDyfeK`mBX+aD{L1BPC{1itH=`{&!OP)#pC7f=qpbj?j>?VJJRKJ|7Do8H!v}xh74j1}6>-qj@a~Ugti}lD0 zs5=&8!5OBX8OM6MGF+sR*+(}l@?;swXGB@9-Jd)C^k}{5lFX}`Kdpx@MPykBO!MU2 z0KIZbGM7qLyuvcxGDa}F04(d}f0NxS{W#=xgnnfA{B?u5$35j!SvjvH_3G}OdGOI! zo=7~7lM6DsICeIN9)+UxI8tsf_^qCYoYT)4l*;&>-!5d>bdy1b$F&T>IU=%?jw5MY zZIz{f$|$!ok-_+tz2L_0J)EP<&&nv68;YcmN}3H|JT_FBw7l9#PD_tlZ~3R5CwPKX z6~{+3rxS->O*xKU@p+}J;NqV?)mF=1>ElT93qxLBSDr}6v%vLMJ5Qf`t`hCp?8}}s zx#6I~KP;HaE|mLh2s0ri;pWcdGY8?3A$sKvYfcjzI-cF2=(ROxc~3N0k~0ASH1=%x zQ^NgR@GU>^4NHZ?AP`l!U#6&t;oj_2my6!3K|6L8WU!9x!1H?!WIQ{b*EG_gFgd}U zVdc(j{WVpYGLb5n{cqoX4n`$Jjw@OursT@_Mo|sPjDrzjrz{j}xJzKj@P*6_3E`jp z#$2}Ll|UI}grN)Tb74gn7=p|h1cE&2M7iG8>@}P6w7F+Ufz+Nf>VctVZVs*?2=o#X z!)QGv>6w@JPtVJk-}Z><-Bx=&lItai7MYv^THI@GDG{t_iGvTS%F6c}WEh^dCMBBJpU5&Cbfhl!5iO26vpiP=gtKdA$qGD>OdRlz_ zzRl{u`9Q!c8r?vDb5e&v934nFQD_ib4$4vC5nbQga;q$$WT!$V?Br8O&*-1ojlXP7 z&##4hP?E(2*(6VQNYvPChp9{CQKS9T+Jyp=Cin0bJEIqr zMynZ2!l{O+m2ko^PLxwWG8ySIBTP7Y&G_hlA>(sEB_K?@3`U1Vws=h&)HdBps<_N= zvorGyX@De}qw0EU+e^&NyhC6$pj5QdSZ(3R5SrcDrdF{;HJC0n88w7Vg*{Xh)#eK8 zsVmlWNLt7dFk798=9yq2*pBQeOL7=!Q!&J|JHX2}DC152&5K9qD++iy5BTvKUfMV~l~>;Q{HK z>{(WK(T;4)OPcI*$%LO51R=9AC^+a$cII%y0hR1EBr=4Xn}>glt(9D9u2EC7JgyrI z4-flr$Zc$;8o65F-CRs;Wf9qEH|5VPEK!0wK*I!ZnVOWWx}hPpo*7)F^vrpMy>;|RM^mHxWJt%k)GrqNxj~MZ)S>smPh|oJ273D zVW@&aFsNx&&nC?dL$Jq*GmQCS7hRrZB+-~2+t7xZ6S0kY#*`QcC8@ET$OX1zpZ!yV z)<_x&8I3L+3UEp3OI1WZ!>L|Qk*u<^h$w&zJyHRW(AIHbBnsPaPlh4hKkAZPx57OE`a&IsV_U)Y^jQr$4gd zt~M(sv_qyjsoAsM@kIIKh_Z{!UKbYqFCHEKaU8)0JITx79oDO+miCcbJ!h}9)vb^I zcF7L6kOL-GoFRM)d3)HxBDjt_y;xW-z4^rQkRjQE@{`G4u3AFO}WLeZmGHGGt4HzNGgdDUW zRRv@*RC1=#LS>qpUGPXsjdV_?67=%yuG?s+TGe|-E{cli(W^^#MC&Bm(ZDLSpg`rb zyczGPTve$=4-xmK6=I~Q7mIl|dojctDnSpU1sdB87dM378CVr+mJqF2U#^YMExsk{ zFBl>0S;rZ4Sw>-qOgDgxq`a!nT`TOy-R#X1#xXU02Db@FH#Su5&}!flH?YegK`j%( zYAv|bRpvm;jEpED>xkZ2o%F|#;25&^T|;J5=3*(ge8vdhkj9kSwuYlWR74rL-y2({ z0XzI*DY>MdRa2|-MkKds_>=+3KU6e4IRfYr}q3CdTXMgNhvfVN8l{K_5 z^AhDg>aE#ECHE`M1Nsv$5ib>26Ht{6J5ke><}G#6aBqU1K7a<);1yXfdw|JS)4 z_Gh}o9+8S|CNuquxU_WWU2}rzO9KCw{&q?EmXs;;F-=xv(*W89w~C1tVT|mc7;7ZS zX3%JtIsq8wmb9I~*c?1Emon=#?sRmYdJ9U}l*n|VMlJTAd1%J3um~}BeGWpJA(31g ztmct196%-<@BM{5cYel(!Z=2lH_6#l4Y0GgN;;-Tu_44kI4sj*grQNxa_ogF@Yn{bC{gP+v6U zjwe^ttqX%>PiOmi{^gazb>)LY)}@;}{`)>SYHcs~zcSvw#^2|;uj-sS-<9s616F6{ z@~Pfv$X2zpKmM91zSJGxcBk*Wyu4xh?VX>W*nIh(^yzXtDeoKk!+QIJyRA>nC6$a9 z4p(kGkXq3S!D8)3J@4L%p-V zyocC=>v|aPalwkKb{rDoaEiVd!Wd;>mYA|J&kKH7!(D?_&<$F7eZ>M7*$C%^*_yy; z2$J#$8VN)+Fs2)t{~Rl3IK{IwPfBfWme(FK76n?y6Gv%0=(x%Ltc+pY1*SW=FzoH6 z>-QRjR%ff27QX+Y7e#ioN@$8H8ifiXT4D0g*O6$pVpUEih~y%#M^|EzvZ#OHA6F@J zb*_wN-|$ctXb{D;hio}W?jql_dt|HQg&|GJpfrQp^r$o(Rzg8Xnl2`ximcg7x2QgX z)m1O1PY^0A>Pua#l=#W&Qrb*vwx8mcwnA%soVc85V0n_p({^wKHMy=z)IpN~sQ`!6 zBsf8A5@x^nv(~glC_;UlrnVo~+&&mqj8`d40RspJfpc$ENQ-_N_eDJO3t=4jl2JO^ zpb=_w!J*fOu+vn|IGO#P4;dOr|-O$5#bw2L^uLdxhY|!*2shej*tK%B8bHnKsm9@ z%s?jzW0X6SZ2U#@H1VC{u^;>*HBcVGO|8^T>14kUM|KRjam}ka!MK~kK&$4&C>}c| ztAq%aW#T1zR2eTja8@m(m`tQ{X=sR&uiS-Pzy>Lg7*249!A7u8EAgg>MPAKj;*!*$ z8473^zW{61C8|Tvo7=OSVw&{TO!ZWH?Ab3U6`Pz~o>hwrM4_m}Lp=d7H}Tv;>e3EI zOmV<*!)BbqXoLWBw=ki?AX5wUXO8BkklmW6-+pj?Ka+V0TQ;S2B}68U9F?_N+{Yj* zM6sc_5g=e10zyX)j-lw26myMxp7jM|v7qt-^?Mv0{r|#Dd#ht$4-$@bqH`weCVv1k zj{}7FVuuDd2MGjRGo%|uK&^pw&+v^yj5xRHxmC2`mLwf%`PI?QrLKctX3Q}Zi%x55^vq%My-uO@6YEP zC4Rx=@Jx|i8!eS=ZIp-_DMh>&{I4m5C+nM)qL$P`_nGf^!VZh7TlRXqUq4*6-HmB` zv{_vpzQIrH;g)7{Rj2gCXn(EcmWYmgh^&)U`}Kac(3srd45hKP)!&zdle-dL#rLl7 zucf}%U+Zs7Om6ayOf>h*3zEpQ+}huJ?Pl}=dHcNA?>ddiwKp0Kre{sMc5T>>x!a>XLrh(xUNpMN zZ%j}iwHcMQmw~{8jF+v7cc%8l787Hrc?H^zA_#+>HuDn5!%59)6E&pIs2Y+O!Za=$ zwT*Prb84d-;hq&v%2`3pFyXt$W?m5`Y$8BNh&MD~Wvw+R%#+R3@~d{OwQ~!tzlKM( z)y3AUhoeG()c{3>sI>#yN@SU!bH-`1cr&O`AteF#8MLs0P>XoNpH)jeC#EN?&=A_t zGp(GgH&O!ZdgrQh40!))+ zUD5T9XHM5v}g0J4Xk~6MOw=)E{c>B`VasB8ITo zdPRp}g92fpKjl>=6Tj%~C%%JbcA#d;)^KSJAy4$!yJ*ncY6Z3j&|_BZ`jlt2!dL%A zR7O_ZX&Z~SOIX?|bqdic>x!jR?z2O@wLv1haFz=UN=ge=mL7U%p4!xtC0rL zygb<9aDYEb#P1#|rhUajbXQ6M>BezJZ@s`|c3V)mqaVfSwK3f6lyFSC*ScrKs``+I z7VzvtHP=qZr((Y^YQ1_$_FMXnLgcSLatm>zLR3cb!l}50=3tWmop*fu0HcP`7J(@G z9K7)4_#@(1KA<}G3#`r<&$!@?n zMjjxtQQ;6^Ul@Y5wJwE{bRuGc$K;{0i=>oETH85BIZRWn6|fs^%Fjk}qi5YZRYsWf}E2B5+3SiVD%OyS$?9bFVft z1+d$P>A;7DTNB%7DOWp0&AKASV;F69QXiFG-4Sed!<3Ov-D;)g8)}NvDul*dMM+wS zMv~MYO~xn4IanZIgz?I7t$3pC(dtV~$gRV=c{%oF(G|DS3VI?cV9M7VKin)6JuaqA zb_EcfgJk2FiTa{fs8Ul9;aTxOBv5N3nNSN^yYMyT!A@4i9`~ZOkBL9L>4DTPdRv`p z-E}&pq%X!OL_x={UnmZ+x|Q14r}U`na_8+zus;2fRdg_Gp-!|TU@R`k-r zLWmcOGOa*#0ZLNn3)3`(hVgik88(coYHzWX1l44)6Sp=FrgWS4mP=os(BQ;l)0WS~ z)CzD_((3BXrDWA+?ElSS(Z|8qxkvcveAXN3o&gpDEm|AI7^9wS>kxVF&e!&z8O?Rpf znXctk!D-UzU~SWAB~<7akb1lTs8LUlF{bfB$_!ADoP#os3R~?fhx;VwP|xs*9J!ms zezB*>O_xQ@gw%#7A)`JUGD4hxycBNrC!CQpu3-WJ#-j;HhtqMmUiNJqt0AvgYo7I! z$7*3LNia03s3uJchL9FH z>uoOm*~@=eI8k^hcWsq>;LA5_cERr-Spsi4GWLBGr z=%;2N#HQydn6btnptPZyBui~jU@g`4lzoq14(Y(qo3bB$3$J{eIKCBhVhvA`O{Zh% z_Qgm}igHXFdoXq32kJ)S4NP39w^Q!vGbg5dP@J9=G%*Nk5`IxMo=A&@OYJaDuWb*D z7guZ~j!4~Bqn>tBt6M->6k0KMH+n2>#yH1tojN>1At3e(oS6J3(SRu?8Ty^VG366_ zg{GnFkQ^f(F|?}>k#3q1RqWTRv;4b1cYd_W>e|(9#$|?VwNE*mXv9v{5ivSd4cFcp zNw?_(PU^l5$1(34%1tcmY-Hf{8btl{>Y#| zx+hLkLL;N$L>h<8FflV;D~Tr}KY=31*oclwNBY7d(G#XPKN$@*L!?gXT^_XedeiRo zu#bBdmZ#!lfBsL_fnHppyK7@K_V!69OyeMYaIlXp83Y}Mqg}7g;}2OFB1(MUslJSU z((^gbkTjD(d}9ysjik^ETO2>(pk(NIUiPXoH+1~FfX`57{}2qX)CQaHcl3{_RkQ>D1h#ZxVf+Pj)aP6Olp%q zZt7Jj5t8bzk+nzndDRb2dzbUDecgC-+FBcL@}4@xW~t^(cQh#0y;bct{?%XdS7U72 z)|Sx$5c@d9dl?isg;1GRaf(r>c)du{=!UA@kl%$4NlnB8znxK(;t=oRKrtL;_>8)k zR9LG)Tp?ZDpNYX59(ApzpR=8z#$d02%N}dr#M{0vu5+icrabyd`eb6k~vk6PN&^9&2 zs&<7|Oe2!o0e5X|+E!^opsug`gT82o7j4_&cDi*AZL9InmQ{@wrXHR$9gD9yxGJs{ zEVavtjQ<;;L^k4U?;yI0gDTOtCOA&wD`S)})L}%7#*X176fr-*$w^{2P?1jAP&*n1 zczaI=%}v28{{dZ3^tTgMS9Lm}b@=)U2?`VN)(O>ncFo^8U`@VE!4feRjZL&k6010b zaf%7ynCJ!`Iw2OC&L0GG3r`ijsO@^2+-5okI@Oa|-^2u;$gK({`+ zq1azyR}c^HdrL~6ge5w{6#_WA>z0zuh20>iqHcGYZ*lDhiBkqpw5eR)yFJC!!;k9)|JygPp0s zb;=z^od24Q3W5A$c;y3p`{my~a;^FH%MbkG=1YEs&&ogaNW6E`+~~y@HfG<-MqlZXuhy# z&ZZPfUpEiU#p%4y(OjJF%|2@LBYy9D`Fs62U$yx}D0=emM?P4+(tOos=)v&HjW4p= zRR@LEX|w$Z2FeD>>_VfTbc>#n;K6QlNQ#Imvo5{o#N6DP>z6 z$iF0zqO|V*>S_WX!$p_axYdd3>1y`#$1Th^Rz#X{BXBpPuKWR~>N7A6sjP=<56NaZ zo%osKGz`lI^Ls)VQ!G@e9U6n}8KsyjG18UFD2%Nzj3`sX&cIZU-Dh5N9zH5s5vALS zi0~Ed*acs#wHOy+MH`1MFaL!hw8~@SUR802;U&{im$~IfCYHh{!~iX)VUEi4V|j(e zaPJ*FEIBT!G*GA|mV@r%d<@HWjIcnMc3{2mv36z^Ulc;EHPJ|jNMm2())mw++Q*8G zaAP7C`{*PsKM^IslBO`x4=YIV!e$@+o~VhZjRb`I?sL*kI|T14Yrk7u7bne1)W3hy zE^dtpK3X_?hqR&}ix8v%HpA8ifg(mH`kWz(G++RT3z+X1!!j))KnW3^ke@mss?Tcw z^bh*1Zu=$tv(z1koe9{9{h+y!%}RB<6WJ630|Gd9E#caRN8G4^gCzkIwh?&7^njfh zS3NDSRtueCxe#x*CYV&k6Uw*4HXR8qTr0@%{r~lRAC)`yT5Rdk54z3vfylRqeX3nk z^zF@2`P!s>O$^F=&^FE6S3MY>EFVuN{I*5l5PhyYKM1D&q zjy%_inP{<1nekaq>))>+P-Bl3bT+uocpMz~@Sj}}Zq}P9uFEEh9a!UA{jSgEOOGYJ z=B8*Xb=$;H*w8;N$|HA--VS}1VFLjTLp%}TG#F3m*op3lWBN35QXa?E!R=|1tSbcL zu%dzY{5Emzk|2#)10F##{@}lBmpxliw3j3z3WvB_NSn<@?HE*20*H7AR`aHex{?&r zg?;cGhj^4nCK1Pl*wh8qVRBF|4wZhDS1llcQQtG&^Wl^&`zAK!iHRWCp*$gW&$#$L zj1u0&k&n(0A)jd&t&IxffuT8E|w)q>>7y2>Mq>Y!=Qq)DumOI%i}D%x#g zxk#M|M$(A_v7r_mG!Ip##u~ZOQ$;8nzG{O8wz|1hlX=Ae99JWVT}+plz%`>vbj@ob*}Ir=^T=Qze!z4P#VmFe{~~ zAcD33FzJEE0Dkzt+w1!ogP8Xkq9U3|S!81efzK+H9lhsh-eCw-k^^kg@)iRx?K-e7 zGK{1%tWLL&$ed%1hvZsAXPc-1Mf}JqzCLnFj0lXt0_0&+r+ z5QK`UTJ0gf5hdNWqdEh<(;-q5*p`R0`N)UZ{MpgIv34h}m0O*_-5a~b()QTvA7;(5 z9>G20zBZj-Tq7L3Ps@yD>r%2$yNtM*ws1g=^)n}k2nR7`qw^3WwV#{WfBb9MY7tuP zI@V73VxtCl;C%u7Q4^gdO7KLJ8?VMU+OF3Ri#dw!9(p-1ucFu zwx1qk)EQ89fRQ6wT+n@B1kelxlmu;Ns-HeE2 z-SV5t)%r#04SsiEY*U=N-JR{>N5V&#bGIM`rDWv7vODTm{au%p%DbnT$y|+QW;|C@ zwfb#zBRv|YjL%G6&_39N*56-U>-QmF&=eL2y=~?C*wBH4SCnrb58n60M~2IH+T(%u zm_JxP_QwC{`_ayJ=RnDSV|`1q^H>*x%@MiUaA` zbf@O+tWPF`_JPK92d!B{L-@n~FuX_@B8fAp;Ri{d595hA#+`MT^4AjC@Wv{Qp-wGn zO;6DGK@5xfyUE&mdF+APgS|Yx{b2bQV&|=Uz49h+{HwdC#)eCAxjqn=$6iy4$F7}B z;<2$?SB3ZOECrq48OU~jpx4)Q+LKPF+u9hF$12g-%oe(7HQ@rYJ4CX<{}Ta~#zQG_ zly}A?Ha*WMi#-Z%O^TLzprq&vH z@!yy1s6@BK&7F8kF2R(6S9Bv*MfmYI{gT_Y%@J$oyTg%o(t4XUqFBmr#8-8yk9P<- z73;e`5;TTPXl8QIaX0SLM_C7*q}EACAE*}o=u$qKFtfLOL-O%*j0au*hvvwJqm`LP z=;D#ao83k9$ejGp35Mt-Zl`7?I9Le7pz#m*tPQ6534$6SK?A3ODPAk!%J!{w z@k|fK>v5QGDgTFc&C2Yi_cp@P4zF8o4ZH2byWA@EPWq!WrQO2>dUmevj$J*uy7N14 zWOGRO#cWa;jK>b`^j00d;fIDB5AhDr*!$?uW=pS*j4}ZRSU{O~j3>-G32X6#qcdEG zU%ChrReLg`UHt9d!!-o9pjWY*W<510a$7ZTdyE`__8k>#! z9vy}z>D7=@+JlqQ^wvmYCax922iFmAl&Q-9cF{R}5pe<51IC#VJg@H}#R0o(`#c37 zF7krlrk`CC6Jn{2sq41ekw55-ZQuDKy3Ov6ZDOK-liQf+o=5y`RbzW~U{$U4ZmZiL zjs1LefOTV$5nx~wiy;uGJ7zyH6K0u7t?SrbyK3-;jTRO{yM=yu8}W{7X=SbUqVDeZxY6!k3mTs~d_g0< zb=N?HW=gy-T#{uJSeQN&nb2A8j0>NrzLf-P~?<>$|*5o$i|_tn^(;H1@Vy zp?%i}7$p3)s!-D!-qMa+SNp{=0v|3+x+kHd^xX$~p~=3R%dPb3%1aM~ZpRufcas6TmfQz#V#|L8 zQq9zHeH{-H$qU$fQKy;PMhcJJ8F(q7tg>Heh7%wE;EV34+r_$lr;UiD?EEjU zYSiCR=sY;Mn%9a<$c5$cx_hwP7$mewtO;)jRaWX9@X^uqf20Mm`XGd9f`EBLaGtg?2;YA7KCOchL}Iz~wO z(+7;7kw2MxW*Fu$=Q2;y8JqlMxahaSnYg;DlG)!pdsP+uU_qot;U!P;>c4 zc^WtUkasOEOx&$*bDvwguvsbAn{6K>OBNvwFl~THywt&wKAcBZ?ASt}?=N7}5v`D4 z5QIc_s4@9yKJFgLz1esf@T{1Q`zH6B1c-D9exT8#ej*!Y@i zS3z`+2Ptkk&T*Iq z@4BshrT(~49>y`WJEcChC3IKqgH-6=Sx=b$4xPz$+(Z zZ*2kZvt~Dv4y=xx>JLby7y`WEny@E)w1?m)@pjkq`;of8+=>~4yR4n;VcOUl5w7?9t7EJ=x5I8+AWC6V z78fkBk)Y$_Gg7r`G;-g;B&#w^CL*?i9Z2`Li}fVwKY*0MbnRI5uzSeI$K<}bCh$AO zb*#tAc49b76c|t)z5{}Gr&+16!9|3ada?0~ecHrH^rnCi1Tg`KHci0=G-?J3Cnp$0 z2t$33Zlcij(*DS~&A*mGYFmwVqYZ-ymKoU^W>^yQ=!ic4GxbxE9hqT_t!egDK$akk z`m_!~Tg3#;QwifAl1bCWc=0QLwO53)g{6)5EY(p7ZlOx(2p<_wxr3({)$9F{-Bvc$ zDA9paToc#hJsZ%a+(~#yQ|mE^Xau`HwjacIn6fXmnVT!a-t3ME|Ed`(cI)!0-KbFW zVxq)y+;Y6b|YIyYu5-jF;i(U^R`^xv8 z=eB7;tM2YskK>GE3Bcdzyqdi)s?}F@?advZ$-F*Lw+#{ohG|}ee~8p)!5i_5KcWT@ zb|@e!NT=883Qq(v4mV3~pLvy&MsCutV0YSXw}+z(#RYOuKf@Oik!=Mw=vU|-&ig>k zGAh7aFz_Suu1K45)uca;+i1rFaF8}?4mNG(FVtAmspfvF88+$$Iuz- zP*P9l*mH4nMyvXzcdKJjeGx^cf}u|4l9 zUsXN*KMO?B`uu?CAWF4O^iCydeh0BCXbvU(BZf!^bKsI$j3WX{!)XK8jQg~Rt;?__ zR?|-y2(Ii;y^z2uu^V<$wEZte1h?Q{e@RP2ybeIGz%xb!IMCR|HNF*<8M-~@y3KN_jIx&9 z@_P5hJCi2zxB1@vrSjO77^q{H-pj2lANq)`dJG)}KX{RaGsZOa75kXDHJOLe1+XIk z$Qz|2zH>MkOFEyg?ixB|-56ZkeCPJypdSzVEMT<#4}YwG$Jh|>RyI1d`nB8Z7er(2 z(i$eqL+x6b2`}oe)$7THg|O7$ZoD?!*V#AR`K|p`cdcUF1h27LnCp8 zfGAn#zJlMm&$T;UEnm!7-7>D-3?W_oWFjy1NvCsfH6dQJLEkK5^Evx2>2?0g%hO-x z`k}BPie!&2H91&^4WoK%W3>B|ae!NJ$1q<{>3lwR`|xJM``y7-Wnk~$zogc>*Kgc; z^ML#0p=NVSbLQragC87HJShCHot^h4oiDBJ`=goeUnKptvESd~_G?$fL)9O3c~@rF zKx1g5_xOqjud(EL;;`&53Y!nPNMIJWZg^6ACD)B&#oJ+ddEKT z31Thm=b7+3hj(4=vK+4%!XvjjjaM`q4;?NSx@)mJ{}(^iiQD?nu=X_kC>KF->=ziU zC7a1cVt4d%gl_rzjg6U_N2o#@J)rMSID5ZKjG_Gc zi>m!)b_XQS`s=FBr~hSNW3p;bRJG&hh7F43{`rnQjhRxqI%N5hudqyPAz)#*iA1); zEv`5Akk$At{6y?8I+3}MzC_@&9t|f5uOz%mNlYP$ytPiZ#Uee?rS7ghv}TZ4j0p?j zHM1@?TA2*@yAQ6dJaH)QU;FtOH@@9`(0cgWh1vv>6n1#v6c>is*yGh(*d%P5d+>&& zF%t&S_BRZ$&t#x6v$+)4y-|8LK%t2$)YWj0MaHlu0>oPCpp&K$f(nnWe_R)b*o$`& zkp>!pA0N{XYn}4t&G%33Wio|PA207Mw>HiG)3>bJ8+h|$#BbN?u}fgA&?YR_F0oSe zp9yAIhxV~IYryGlU)2C>cMb0OCgfOsGs}rFA3g!4Y944IdM1@k5(8*6IJ$-Ox)VnNPjAgJb1)M zV;kX@RyPi8VVlpbQ*LXg)gALLbm+G%VDP;isL_-=1(#}V#km^1_d+19F>}|Q*5THj zR&5=F^HcGWndYY`JX8BnrClo!8+{k@Ts+_&`DB0jz43$nv;I1ye-KV;Z;Yo zzP=<=8{N$I7sURvdkV#MecjL0%g!GKll{@ULi3GynVC6x-aHQT}KJ|`H;%uMU;(Q{#RelAImB_8Snsd5bBcv3?~3Zk-_X!zZT9ES-o(#+M7%3 z((UDBr(ccBgcIuLRaqF?fxk3fbG^Z>=^HoRhr)YVTE_HYO&Vpqg$>f$rjlX`1(#GF zs~|;eKVeO=fZd0|6tbAxs5B~gYn7T;W~)Y_dO?KuPY4>5gh5q(9B#$sxaP!LzEb^~ zL=_eV;S)5P-NtRdsiDj}g&jg{3frygP07aLqie!#ae+A164>6$q zETiEYUV)uAj#UnedvqT3eBT>QZu(g46w7QoiDH`tu#^oTSkR@h za>H|Lytvwq_t#v!w5{%lZH=cLMo|#aiH!}GY}~L|QP%~iwW6J(6B8%J9uA1Fj3#Z& zMZ6rmTQbiHufFO1mYR?zkP#+h5{;u|aFyua$OwKRZtTsWO*m0Y#z zXskU2k)#Z4X+ZQLDWoYv6bEQ~9P-#0@ff0UJ0Q|As25j4Yd=pMHdj08wS22P^~xLU z12-Q%U!Pe-6&Fz5*ypHnjCuBy*pc0F;WC!8XNNmS)q`#f!A!#mC*A~+3{eO>zd(O? z!VWYf)k3lC1Oz>ph9uBoET*6|%Pi!!qjao7aFI~@t6p59{lWMI8?jR-2;0?U4C!~( zbHhHQjBTI;ws>~ei&r&=;l`$hr>zrFyc%{7V}yXWk-%tJn--9QPTUp+X%M&L#vasf zF=;)3)4?XBunn1Ek=m{I##8aOzDtL_@MiDW|NN68Umfx6%@&L2G=|Tow0U9DFJ4Q$ zq`E3*!7@|#l(FF59tvcg({|9F{O3(|uHI@xz zx(k^kEQ1jppNH1yL!{+z;nE-o>Nv-m(A&!a@@)m}qTPl!O10V@mU$uv`dHr9RC_tS zrPaEQ)wtuAz7gqFyUo0qWiw}o?q(m>7M)>6E_>^3Ueyj6IRy%KG-Kkgaz|r2bUGX<7Q)5@Z3Sr=&oq(f9(!3Nj$3g?oY`Oh z_xQrhs9{HSw}bsmn%Zchk;H3au7AmYFtibk)T#By6TCtw zLe`kt16jjn`)4$SdbcdJUg36ocH^%iyQAo3eiI;QOk>BW1q|Sr{LBmFWI;c!rg$GE z`VRc`nC6rM#&$sDCyXQF3I#H<`M-l}(jjGgJy|!JkOr4&ZlEjRnPbHN=@D!pkafAorXNfGs@2uhJpb*iSWY9LOe z2pUQZ3fceGtB@PmG7b-^J1TTixJTzQgYhp)K-wM;6_QqK>3vjPTbbL|hrj2=)X`!2 zz=ekWjY>OsP{=%1caTEAv1v2IbGXXtI4`3zFQL-|CQhTdFvws7%PA~9jBZSM#{q@8 zF&gaO-$~=o$8ohVfz`!s+<1Hw|Xu&bD_+;I)J98J8eSDzRQY1V^h)QQ%YOot$x~?Zcc6;D2?)s zjg9OeRbLMfu=V>UvAGjsK|ZaXNQ3l2ztyRY)q~DKqLKc(!SYDjdS`s7x_#{J#g`mL zFIJr{s{!Ty#slfE1_!Hq+P@N)XNK2aHF)HX__gcW-DBVU-)6nK+j?8XMvFe8SC0M= z15_3&!|qfEh?TtDZu2db#-@^eUu&b^>AqQCR55#}WL>aR{`l)gPVcU}yB_0(zB6vz z$txaT{F2j7C)aex{&o`g;D(KCQ>)-aRf6u?escY~UJ1AiUwdqbjWweW1b4TG%dz|E zTVC3@HyRt-a`iy>$pg);C|+6uJmJzS2`T3!XgMzkJ$lSk}H@rtUuiZRz+ zJ7DXjAfjMwbs60t#gFDE)IpqJL|@L(rWBq!6Z~0hh`=qS*zSjTUtx5HhoduxcMCsz z5*nA2_wWVy;=ycrEfJni<9>d@ePW_n367-Aw*|Mo>BUitjVj}QckIBsx7h6vWLsP( zvKv2Nwb?g9+@NVb%F^8(@Xd<>A_t9```)yHEk9C14Sgg;!NUSxInk2Fh&DYCTZ#%{ zI9Uh-2>T?D@ae;e#tffD!6V0z2x0u#r+7&v;Ekb&teBUFc=hE0_nNrs-STtiHA+at z4!2up{eP%9I&sNsqgrTD{95lGMJ^fj0u26-YTrv26_r!&|xuNMQs<6 zst8&}OjHP^!TUs`Gcio+?oMDJhPbq8cbjuR3yQn|;j@2}c*}TD8$9+C|55EEvcY>? zXbr*-s8pMJ(02jW9&sJ$7+@~oOaDj@Y|vU?h22}nra54_!>Dmy=$qCs>(n_Wr@^B@?H-@#N7jZGjn`hDpMA{d4z_pov0*ZJ&AS?^jO5?>1CTES}Y z)t3~>P1%!|D)vFttbEPE(0ct~7(D#%Uvh}B_n}hSwtc_TAv{CK(O*|6ZvFpRdmA`O z%KF~7y0&&`);%B;Mra zFf~+@FuS=FmO57$;%D*`+KT; zW>$u6&%L*HXS%0ep6CDm_PkW#F%}2}jOA1#jOKh46L8)`YGjA^#JIirBF>Z=nib4P z#N&JG2yB*}KW-hhj-RLf__2AV=9Ev~fjJ#H*N(87(fQ-0sSBb?_wgH8Yjm7i^9|O- zWb8fpH_Yirw&%-)(Co>QSt{U|$uT&6rGHdsAv|EHbHhI<<&Ke&@W+vu5(z&Koz?c0T#R?(OwYjhwUj z{nanK@+e>H!>g>{)^Bur5^DKePVwbP7%eu~6=%1>+5M-~{P z!A&3MkBn<@+&Zs7Wu(GHoAjCwysF>4K9kLVx%dDUDB6 z2H5Rx!B1Jd#Ita36o&ftIR?%UbnLKr%HK7mrRWh+Iz6*8cf|;=qO-MCV1zyTYN>>wixS>`qdVs1+Io z@3`S5fu+lQ683ItQxNd>p}|ZOkKEV9krP&&Nj5N#q}2Q4A!2@Oc9w)(h5sm+jac*J zhm7roc61+JOLd7F6!VUwhOIrs@3_}WX@-!#a`a8VOg4b=X6nh&Y0o1{YmCLvIUI9I zim|@sNw4fBUO4Fm%md&RYRpE8oKl<|%z$_{ns3LUgJ4-$-EmZ$#3!;MssQ$i-LOd= z+@UU#CC^YS?M%ZnnB?rFguWhzs#v=9sfn>u_EKaiRVxum5ACpZOWD?5K#^6BNMu+T z1aY@h)hQgbXyCH!OS*#ymXX~QkcY&>&^Vl3N+=#hQL@y!6ClG~ z)k<8fCEdtvE<}~J7e?ILw$^kIOs>S0%iYu2(4WY-ysb2rRCq;1Vz~`gyOC%Cgb7@S zf?=2K!;&DHi`;n9i<0D8KT+AmskxnpVMUFd1eU!l0stz9H71DdiGq;wNR1pG;vqA0 zRd=EjH;QSu;x>0p9Seu1r-SH7RJEt?pWaW%K6&=N(Z0BF59zVj*v8a~$i8=PYk@hE z-ah7gh15I!Nb|AA%{z|=J4-yGH93d!mIr; zuW6_hyX+g#j!Cxmx0^?C(cg~l>&!s4=_t)u0I<5yF zvRr_Un<+e}Yy6jKTdZiq<(3MfZlTOVM8yD_?V)ip5~L0lFDGiCrw-fnIHcuyhL;2Z z%x)dCf)wMEIMz}c1X+W^W22a)ku}HU-1mLuRoeaa)DmMV1Vd!OES;$qQraymt3(4> zHAp=H5SdSdkSldX3rHnxE8^E2X)tqhm;i-pc}#FR?4v26+ibJ-nW}z6h)jh4W*%y> zTC47@Oec7$r6(U(dY#0tiJ6{dMJ?X^LZ|u{CMbr-HWUCKbjwt7LU0F{-oyr)<<{v) zC{=YH)%TE2z7V`2zX&7&gGgh0)|0ijN81ro%VSK3j1{7}RJph$CRaQrJaF0rBQFRG zZV)jjr-%8^AyZ-Od+AV|+xZ$3K@4TFdlXc5dxbD4+q(ze3hPq6CIbTEFWbxjhC{N%e6=L z7jC+)SaXx%I2s><L3t9e03fcVj$fe(FHK$gaLBt(wL0+qJ=UO4Z1%gronc9_DL8xg#h9s zPlaXif*;P{3T&))dD1Ee(5N&?qg0HTyv22OVyK8!;yXHrF~w!jh9t+U7zS!Xny@+Y zr7xdaj#_DOyp`R9wYWS!Rb{q|5WNcb(=%Z?ZL$nFYDI8_O;AxY=7GfA5_<_47X`C_(DFMzUgz1I*)h_Vx!HuA#6SFMEVu-L2zw*B2Y9Q})aFqHSpxis*BV9e zoudpb#EN|IJj60=Y+J+N6Uw#ft!CqihrfR3&6SUwaqi8Pe^;GJ)3d#MDj#%z%WLeJ z%E@9;Pq0S8^p#ta&E#3&03=2=4tvb)Z7 zcO8zG&WWn;PS3A4Zb;{T)}7j08JqTwe`Rvd$gY38`a2J0bEij4@!6JjJM1OXo9DxT z8@2V`S}Z(`z9|VGri2uBs31+UC+{TlHYPV!kY*`fa8GMgLW~+xJW5tKKm zI9C3J`h6c+c&tA8i(cAjf7eUDc4lL5<(n^thkklrA!B=#ZfD;`X}9QQ-S!(y!9^v8 z_QkbAK*ZFh0w>jCsSYKDguPNb9mMmXcE2$O5lF0tY9JDNi>#aPE}Ml)4QEN~X6M*E zWlj?r8cxRQrl-8g&-`Zj(WS{}Eb0-@SF2w;b8hItvvxK*V_I3%hDE=7TZj2k9>pcL z@f#-NZc`KrhN%#>eITM<8c-k#C}@avxImU)9qhEZjTo6*@`W+Fb%r1Q21KiY^~Psw znH3X2nC3C78VRLQV!wpjJ7`u;*0^e03{xBabgm!h*-IDKuuMtd!1X4{D`Y zlZqmN41}Q$q4tf_!{W*cHHK8EWFsS)s@}dShBU!6Mx>3$F!bS?_Sb3Y>F(5W!#Q5l zte@RS%PT{>Cll{|)v1nm|NB|8bc?kz&Lq7;#l0TZc$lJ4WP~MVOCTzxP=QXZ z2D|1SL?YA~Q6x-&E{CpHsYoD*DMTTWH9Jiq3fLV$nq@5C`pz!@>x+|%9-A>OsB#yq zR;y=@)a<)1+twO$(=KY9HO@%NOwVn`NJxa0L@f3daLQVP$C5C88}+OXP@JN-7G6YU z4VPeK29~RD0mKnZs~!zB1m6J3mP|3XDZ5*2jh_*nQ6x_)2^8RmysfCC5LiL046C2dn*4}e5e7e$66{j^rj05R4hov{O1#fYF#$;8- zgbDmuPL!zjVNpscHH)PuVu~Nu2(hVk)^|@?Ry0zD$l*O+3ingTvhuk))L8=A5Uchp z2=`F9!i*@q6~#I$yehVmWWF%VQUrjh*pK;)e%W^~c(`|M0vs^E0Lj(+kxIq$<1pS) zIg(cG%a&?87|5YEv--|YgjLo%Hm4t|cHI$XQeIrwu<6}nT56xaC8|c(+WauZ-6HX}D*XF!El(Diom7w}OPElLoAOj!Kw4lfK7puhBBfEw$r;YgY&18mM zYknlSaDiQGDD~XpGo6RejeTx6?-KLv(R@Bnf7cpznaOwEec8!4y>`w@PF$X(-D23a z=G#8)jlJ`{{vNRll6K@jq^cB-_|;(?D(?8)s#lXF644-ZP_x+46XA1T{Exden}4f=wtlz+ zRqq{t@!q@BFiv9D7`%h|M?n<08=h z;_J8j0V$rHAkV}(u8S9ELL)(mjY}`qh9ZU$+sA`hMhEJxg__G`!`azv$qKrO>x|e0 z|1F=OdVz{iD?RJeL+;H%5ME~2CS8|yiF+pZX}(FMvcJm|2z%IJFEI~WqX?cNz(wrC z;(8H5f6TBhTAmP1u++p+Y#2Jz07mXV6adGRpWxbJn{1Y8|Kn8Q@Jfw`D;DLN*v1l% zCXe0qc3NOZF0vh0t6548W6N1kCN-+*m6}O`=!^CV0Bhu{g^>EgcF*!*7BjsG1Oo!= z*s;ju9fp?)pP4Vmh%3=5dj~MhCBs{#T_+7v(tft*#e&RcS(3FDe)4L>qO=V&qJY)| z@C4_AppaoARtOC-F8-$MB$nkKCqq)ok}#);eKe>mv%bSoexQfageG{=h-H(Cv|@D^k(D^=mXCz6z3eC*N0_@#lto1Kp%dq|~9^|vM^VwhAk!M-Dfm{a`5U}eB z3RUpIBt2F*%+e^P2I#0EW+wkofrYzpFgp<}g!|@FXGScH?PaEevO64|2#0vQm^}Kw z@Qgg5uiCK7l{t|Rm^BymrNJ^r}~iI|EOM-{X-l%iF!Bs zJ$d=T=PrHE#@mV4ul2!RKOy{okZuMcLAd$2>qXTw@Jb~Qk_Rz=j2V>Zev7l1m)!-{ z)bwwj|3YTNGm(NBkJ(Eb;f1Up(Zu-O1;*gY{_s)X3jO35v>hwHZ4pT;^diIuAkedM$$dqpOK*kEj)vGnOh6q?CR=ikb4XEj>D*znM2w<=|AUV;a z_1&MZnrG9ku9}9kmwVPa>vv9(l)(W=31&VWzn*S;^goe@%$MOx1v%i}c|Shs%|?1} zzi+!5(@b!nBlhJF;z}b&^979KOV1()p{Q`eGw+Cj@iMl^lU$BjOZ%O>m-TD$0-$Es6O!OUeto|Pt{@^VELW@`Y!P5y| zig{MzGl%c{)^2EOWcdedrnP$IkC>ZY`YU?LDV<4ogKz)nb0D{-PLOPOJx=soaxnHU4F}gSN^+_n=HeghVNYX*CkVCY~M{v-(@$YUuWJ@ewAWTje3#CFU#}1 z{N&61PBDAxtbwDJ=GVDqvHk1laPOBuLRZ*l5 zU#|xMS51VmC}P2k#o;%7;|gfc8s(KbS!IBnP<4e+BJ*C=BJrl_&xec##}_q`T9~KKGY|=H?(N zgu%={g75vOw*2f#3(dgR6YXKbe$lXBoQ6GF+O4|9aBbH_p5+i)2ci-j2r0%6<^z1z z%x5ZO#LW32^Q%6QR)$Df?U|-&_Uz5C=!u(WxJw@cB?&BOTx2IkV|VX<2VzDfO@UG9 zM6%pH{0NS1H94-XIfO(&P2M)78X!$#2YC>~x%9UYV{-~2&TDK@LIoIpr|E;=*+IwZ z12sVFsNbR511Tk0Wg|&Q66q75)r1a)xCpXx$>p@>`|s*3cB@m1_y6Aog zMa|H+L=57JqS?yfWjuWL=*o5!O9z!<5>NV|!$AgEf96zq5sCst<}vbfM8>P#J&-O#m+%4{0{(i_DhNStHF>Cg7hu^opp5C-56l#;pbe zRR-fK>nJgEpo;+10ezT=o!~t*heC6qC)k>;*j*cIQeDv<3~tel^u}nWPMzdHh^3oi zKIA$<$RyA*ZKxH!?b7xS+5K0Xg2I~im;$cqg8bD$Qw$FB7nnm#uH<&Z0>BR$dW3=V z43c+_q=?uPhhEt?6Vgpm@0cR-V5&iSFp_0AQz`q1oA!|dx)-jvtZ?o5%!mVWNV~Le zhEd@ENe_UB^)gq&V3SHpt~8#A^iutqT7*_-eZ|x_;hD;NXb0@a#)vb6`hXUwv@DtF zZG&9A8iX^jUoz3a0J)tbEAn4gWB{OMg$+ud$0-c%3~=%wg#06F;tD;|s*xfCA+nvI zG6;a|3@XV>#9!FUBjzem3U&;=R5YQU2AF3fWDpN=k`Qd}2btnbt~Wv~IlPD)$o}dx zeceo?Oa zrrVK_f@3;qGD+otysbRlWF0Hb>5k&cfXM^d8;v1NKS{ z6+9Wb_4|=apnR+-%}}nDv2tGq?w;T3+YO|Qi~<9y;C2w{=te37xVohr9@CVzo)3W~IT|Fs7 zer3rdU;`Rg1PetX)9gmuKn+G>kHHM#vPx^e|Ir>yh?EqaE^uc9?3htTh>j1YwO$aZ zcIZ~-hV$ac;l*@`E^hyPFA_x!6pYqKLWIltueY>kt0J2Qi>z*d{cf^QKaZ^ zBx!&wiOCK?3dBvK1aAl~Owt1XaaV+@S@zz;J%!d(PBWcT^12SvR$pWr)V2w{rFNS+ zEnBW=U)Pfc^2%DR#cuOU_YL)ovdQF4+}#^|*{X})Iq8>S1&y6ZDVY;gPbrKvM8!LL zTKmh#d)P3XtHc3Z;KyKkDNd1Q;9Yy-0tCnw1jDl`I+egav#;+qVk{rJr?JC2xXOOy_uTxb4D=4%IbM`G35vhbhFD?H(AqsU_JZ(~7WxD*XdF>IGF& zx-4W#Z}Gyn^xpKF6G)y;ZWW0->5;or6AfbPa#rdAnJl3oRe|l4Ri+lhwX54bS@UF@ z3=)uPps*^+#8hJel}v5GqhL_UyJVE22c`TpyS=$h6y-4GIayk9+uL|*t8em{;;b5! zMc>>B7sMqR&6e3`xR@O{zxR3uj4EX``mvd?ssh2u4snClkx%uoN$2EQ+{H$S-}|vwfxGSyJ4{ZCba4dzr?&irNI;v2)-YN^ z+`o-0GE&Mpk*?*HU8rDozq_MHQWf3YgHKZj=EGirVC+srNcC05vr6a}S_gL(z5cDRsWuWov`%eeWrl zcvrW`@Dlv%pql~sD7G<(m|sR}HwXvQ9Ha`Ykd3dd?BXqOYd`lB5{e!u7ql{B(nKIOn zwH6;e?-i0dWSL})U>y^zqVNE{gyeGW7%PHZlkfGxL55Y|f|N3pB(v6!KC_;41n?eq z3uH4ACd*A$S?d?J{I$diQZ~U{D+|qnm@o3qJAixxDAAYvwx_!9_S3k zFwm2&{@QQk7v;jeJgD;ex4+CMq9~36Bu3tlw%3I4;j5g8Mv?BH?D@a`Y$B}GKpR36 zKyIKnQ@+-rhYRu~=1La2z@DA;bEo#G2Td@9^o_N88K`@w^Ylyh92?cocDY7qW$c$~ zz%7+|i4o3v_o;dJ5JyIXDurUVK^@4&8B2~5^+J2|2<8D}A_0~AQxvlL^!s~tqcE=- zkg#H-h|CA5no+(X-)$1PV*V=llR@w06Ou<=zMNd2l|2G_lF|HDWkj*w^mwx?k`m{nHn9Uc< z9pPgK(F&zifC=z$U3}@|fK(y0LcwC7Wx`6+)z5sa=fovfY8ZckcO7KG5gpkiwXHlG zOWW_mgp8(7JYc8U$}H>A(_h)UK_N5-$yjfG4I))u>QFb>YlY|Q+<-7TXGEI7ZDNTa z@vcw5qIZXA)z=Xdlk~XLhw&w!Dj^sfwV7I~6^oGkfKMdZVs^uWm+wFjObd!eDB!6M zZmQHTX?F7oX`%c!lp`cmO?4d^Bf(@hq9`W5yQ|8G@$bD=sVE288Do=%_j0X+v{6}s z(i+$dyqm;J3J>J`Gu5jVZIs(wTl_O6DW)HJJ864}X&>a0fXxU1c&IfLa~)UtQZ!P! z$^|ViVMOFzzayvKJ4}iu4{~x%$qP6ruuS|WYC$D~nux{VK@-`_F8%ya&$-Cxk|8K1 z9~f2VE){xFSU7=L*h&c;9e@To!c?=XTJeLE1@1Lii1&)&DTocQ!fFN(m03dibs}J} zjQFY#go{?YYmFZjVmbo;2Lb#hnL=UAxtIHeM4^DjqVV`;!9u3sga%l|jn49NhMqLn zp8b=4MoQBm|MD@mmutUw9@r67WJ~b&G=NL6+gNyGbYS^}lQJ*x6LV}X-=mbgp;`Hl z=!$43IRw3eX~i9i8#c%V#9~En+?$|xSpjuwr5FCwtCGAU5lo4JJjxG|qD$+H>&VlA zK4XE7JdSdbaqlwLOPZH^&A-^aJCuiD#Te3qErTjQv}1}g>dNH&edJ9nhx|%}-Kj-L zmahKq|E*{5jl#4P(ui9B!IyqQD@ku|5#_%&m_y73)rfSJ?edLPZN=5MKG8Gz z054y{awQluSj;3tVl}qh1a%uKNjG$A+#}+=+}Mft%B~6e%90mF6*1D$z<2`S)Q>3* z$m?&i`gjzjjmU+>8OlveEiX~reX+hn5fle}*B}J;*d`kpKsZzArXwS2Xz6CksRFB@ z+VsP~%Hgk;h%35l>6?)o!vn-kBf6+6{h&i9JB$-CqpZ>vX;Ch+f*3qZrHD`dB`XOl z7`rC1%AKn4&<|aRQ-gda)H5Yt6Q7!Ft_K(<8Qsby1p+(C3h`KXZR)w6?^Z%W`&5Up z&jakgq*>x%Bu~1E1?%HaKb+PnIU4b+dswxVw7d4*pX&8xDaIthlBOaPLI2q;Kl73A zUMWg#ZV(TlH>S_Pfwf4|m0g&H>|6iKjvO8g9NZzTGq&gC{h%e{4Qw(#tq&?v&Pmbe_~W5(xN_m+PDW`C2t9zk(GVxUwV_pwA=~a%gPJ@ zT~!X!2upKWi%t1^NNG?;tT&^BjOG)3u30 zX2b=|=o$mC%(7Bq@CyURrVJkxQowDb3h_1LU>mr<^c&K}I6}?@(hD9r}dL@(Jl+0&%6+}%ZiFum#Mw!9Bk%8=k;JINNWtsKhdv@dy$d4Ic2Gc?0f8P^b=?2FDlgJ&S zkXa{2(6!OD2&S^Ov1Cq2g&0Yg0yYXBz_NDUWcG4iCS&r0ct=D112Nh=>wERj9>SEu&O02pYPO^eP3hs3#3 zt0(bVAyS`c@ERPr&W}hsl~D!;oweIP*aHM#D1&HZ$}{}$Kl_qTsxLeLMQtAEl!Q7p?M5}{{5x-Eyn z7!L6RJ2fz=!?q)<*gHh@1PL=%Qi;CAj1o_CCw*M_r@f(WOOc&XZc~_D$9;=0$f>9< zq8nA)WJXNWbT0wZKc;9cQ<}w}xBtFBOH0E^)XND`25KW>C5mG)jQw4QMd6VQF<|hH ziLQgDgipMMwFl-PqC;@ae3_GnT38afLW2$*H}O@!57`!k+K83}qm^N*INfG3+e>*ML6Hp-*HUc)dQbt-kbQV8Jhq=-;D3GP+ksl3}F} z%>93Y)wFpp%7GQi%MW6U2hqx*@Fg+Ljp0TDDbkrTf=t44gD{ajuJ31}kq$y%%&!9A zfyUnG2+(3Yq>AfkzzvKEv?qX+WHABgfw;EjSCr~hPjq%-bEA*8E37C+| z46~y@E7j@*zT~m5o}x}UJn1;UjLHwJ-zk>O39eaWn`IXwVGNK`&|A)M>P73CiPLhK zP_+wrrH>!R%1bHGMnn`|_N=!cMa(2r*cxCUw`#J&sJnK?1<=iOqreSzz-bJlDr?)p5^_Xe?i%MO8v&1CA}5UO%a9MpzhlH#-wW8JtGML^SnSq>}SO zkN2n`u~3NlMc0FY*{CtWaKTV)y>EjVQVbiEg+#1d3BU9&2!aj`RmnVp4iuxejmNh7 zCXQp2j9o;H^EPxN=j4$Q3VP}uMhUYEpM6zNI!rkYC9zS(0bz>xDFkSUuNw)Ek!HF> zxUnLdcG+C}r89c$77xg8mFwUcA=k+ctOaHY#zJtK)BoO~o+W5`PQ|CG4``agquKTz zDw13dHhnPzH757zKfl$dsBU;myOJb+uS>DAFFe1FmIjEpCdByHYMM!5OptxUdWa_pGrBM5GJrv*YKtYtxPXw%aUX3k z1=R$XC5>rJ9a*VP5K3P786%69NZ_Ft6l+bSu%^o1Zh}UK*aAQB!Go|cGL52RFJ)ymp`nmW zHEOyL%hD3wCCeVXuYV6lOcn;Yh983}>(B&x@FSDB(TPz`Gmc}}f$HMwtr@JDu*h>o zRqiz_dZ2)b90Ce{3l>M?b^|S%f*=NCW!J>)O(spE>+rXT#vDgpl~^ji z^))?cp_l9oB4B*L%i^F5!UJt|V6>62{>?%Fxl`n4qL-8n_tW=9r}b?EcA4-S@x`8b z{fD;vG-Nk=qT~)`+-$~-c*7K2r30lJlsg`LQ*SA`;ycAJV*elu2F-;C!bLlL(qbPN zPI3zS-1C#mEg8xe&$n|;(bP1pTTzgNEDumfmAM+klUPL}y$vyz@zNy|XF95bDX6$0 z?a3Anh68k9yO=XbxQqicnj*;im?+j@Y(;|5vtAQBmn`e{g>Aiiga=8tSy(2lPAUo%DsD5hgzUi`V8Jf_y*yNcYXy+&^aYCkMT-w9GBZ0p#7i1ZXO7R{2*GEkt9 zzxc~Ngi(74MnKkI;UQ@|$$>cch>xMc)+1f(cgyaJkTTdIOE9av)B58--m`Y0t(3y# zt0q=ne`?DwJTD;-#bnAh`rrikO%Wlxbm}x=#evONJSNMcykbC{jFQWKD9DCB zw7K4m;e9{tP{iKJNYNH=dh;uK_bB(4{Wr!R4dru7Jl0Qwglv`sKxKto`E-?TQBZww z7JHMCCw*_)>5DW$6B5!8wH_Qece>e%b4KOnQ^kYb8kh9le z-0BN)gh;0*VYlqe`oT$M|0b|(aJA-_jvS!t3NkO%^F>7Rp856bM_1!+6p-ne(m>RVkq%msW1TAvG2vWZbbCT{k zi^A|CY_^VQuD$KQiDw+>2hLd?;GFxnFqq02gNjDUfntd0WZEJ;&q^;e(l^+HmKdqGd+H3ujojHeAnm;9Ef z^)WYE>VS^|jihL{-59^F&phM{_0US1p20skXFvg1#S*#_)ixq!E(t|>811i=q`V05 z(veppdj=AyC5_SaURX0AER*3d^9)RsX+*A%jwxWFM@Tvm+5{zrV)pC{I{?M>(?dtm zlFTKtz5d`F;VRqr7W84GH(Kgmt71*uX-h8fv zatl5~vh@qFNr*r<*-3_U5V7z5V_*5T?%L$w@CX?j5M$w zE!jdRVLrXCQ(>zwvM_|kQcd|U1F7y)2%{v!6fm)oX+-7c!CyGFXS4~+!GnG_T}3*S0tfw_tFwo!TYx>D54AgrieyX$q00M`&Ukp0O}U4bCP7y&%lgN z0f`VvFut4X7MMr+&1Z?yEZe9Z`1zgUoDS?F9cUnTfJxzAxGED5RcMS}`iJn5RTeLt z%nTJR595*z2J*gnoPx>kKk+i3IVU8xj^?qg-(?aBp+_JrfeP22ok5a&9l&ce4^AVy zd|Q8N>n}WpM>0{723ydN_4_c!iX&wHRSv;1vU$kruFLvTmAjB1Mm0=`BE^&RtmA>6 zFvx_EF^%o$-Bf)AKJfR110m3M5MHq;<7$m&w ztwr5$4jIMXkk{5Nub+hm5`CbTRIQ&@7Oreek!zAHA+8L6G^hGBqL!nv^ufGVR3!_g z)LJcV^nfPF4jMe@8Qo6P)!+J!p4K6$;9aJtDB9WFxqkokLvYGiVAtHd!bUU9p|;Fm)W9`RW~`{p?Ljp%`wkQYdi~4hW6n_>Hbnci9p; zpi#0Z?BAc?nqO9x6Y|Sh@U!vAR^Lo{PIQtyZ8Cn+6V8eaS~RzuTGpk{ys}3{d2KYo zLUo zGHeP!xh&k|0z*t+O8&9>hcBL>l0<8;VNmp;xQ~X+;LIixsoqTU{Gb(3i$-k`L2gOVGh&g< zS`rqYe3xYP*p*M0#Ps%nROur-3kHiTw!t~;@!lzICqqN6B0}dg9 zld=vBdH<;`KPe>ZV7w z`U*FpI2vepv2h1E0lp6n$2@5rTV~x~-J!oY6oKxuB#upTKvbPrno-}>(i^YByFc>Z)M}xem z3a&^y;!3!&(Se~pPE-LpR*^u!N^iR4RekxvB2lwoVm5vPF&z-@OFXdL;-)N7zZVG= zf{XPtCEkoz%r%Rj`^GjnrduSLW(}UH9}XT0lMOPmsKVDq89_q}v?wg$Gyl75KkxTt zG*Hb&1rcMTWUfwn;6Z6zo{l#8w{f$|7qUkfa>C?p@i*Vw3u(YXZOhT+IqSwVTYNKS z!;x`9gEzSfh54u-J)m@soW)YgeA9pX?1n-BJSNsGF~AIN(e}nE2xW3aY{ZFdha;kv z5nKEzJM5<{4S)K&9;Wg`N+?hb0-OQn3H(JOV3vRDQA04u;UyxKu1__W*cJNpAL|1L z{E9u0tHDW&lnWJ;@IaHEm8K!!rxOVsva6C9n{pJNysE#cyb1qM4<&blJJGO&%$zKU z8IS5gib#nc^5BpYK!`L6$R9m#XD;8N5D*^Nb0+f)k}O3ZO6ak5n*|GT#YhnnNVc+N zOjYs1-|o$!%xCbxY8Y>d(tR3k`Kc0!m;p!BP2Wy%uW=FRrNNR}4~evW^{w~zk~9r@ z!D{+2x!7Q~W04g1OStlg2he+m>B4wLBg) z!+$8%?8F618KjqT*YHHXG;?_^5oRL=ZZO z58s*`>QPC>TPcXRFxbsPaNsx9NI5CAqIV$35;9I8OH+?5q39R>yFMorsX-iY2#G|3 z{xe&CD#FbDP_7;uH(^QWMBE04%*t2^@ri#~Up|7lB2-Y?s^1$=ZS_r=q`ZV85%?i@ zxPF_m8ks6tEcbA;r7byrbr=@uAWWA(Hzfq+OeZ~LR-qSyL+k4*L41g)s&lxZkWhm) zUzzS(O%X`~n~&L3t~hBIfMw#?o`&Z@>IwM|Ax6T7AS6o}S<~$wJGCD{n>lAVLIev} zGAOSEyHXNJS??VDh z@3Mf%_OcR^*ko44 zbF2rH@-(-t|KQ7fnjXvs1e<83z&b+AgeJPERds*xb3Lh(iPFFcQiaDIBvyH30K^in z6TOF_o=!5%*yv1HY$tNyKlSr`MOGx4s3G+n0+d1K5P=n6q5h_DTF`@t>T8G?74p%4S0%4-O{M98y?bBJjk2?e8bu^L)~Bg+BCl zvcp&sM9Rdp(0W}3iAg{W383l{p&D8Xv-T8wyqh~hOqAg>L{chyvMywC;eqUh#B`$z z<8@6Lk^qu1nW-jW`;-6pD!8Wh6dXb+h1P?V59&*cQ4Ym}ePA?0mMVjZ6-YRU+`j+r zzE(&l#A+3#26;V2>WVvPNkO>*PJM8ilV}O?xsJn+M9jrufA^8~F)Sb#24cp*pbDW? zxGpbFkL$hQ_T)A28^$j-9J5Wmb=M#F_gf8BFA5~ISVE89PI8DibYb$PjoW(Nf}SM7 z$(DIzQMi^pncsoFp?3VT28K8Y4Lk-^f{l#`mu9dV{H+lhA{^Xan!R|S(6eBO5R4}O z%RTr8SX+HFGNS~|2xcxQx(~38(}PynmIPj8tQ`0cKhk#@5Qwsi%+nxmA;2lB;2Xq- zO-iSd5(*)WNnmO5TQ{tS2f58tuouL*gzTu5{sHf$;ij4xrvD)gdg~AjNc$54teyPxCyDiqUUbZkh!GT0VcVm;xHpi54_`)euynYD}}&| zWBvwdwxPR75Al@(t{!iDJ+y|0kxD zl3j#TDPz@_e$Bk{-SXxTR|Ahyj=*%xH+dV0UH+mQ??w-)2+j3jM-0@09{VyC|54GTwXzs@ng;4k<# ziOS@4ynE7$JS!@59uY0m3&P1y*jAt22ni@9#bwK@ zThqMJPKuLRW48Z#B}WLk?xpqKQ+#D-FQagowYqPTrl3X(EeuI>5zElkhy*ZT6?yfi zr>7_NONvpq!o?5yb-Jost%X1dO+AP*&%C0tQf)6V8IcOK-~*o|rBM+FReJWXPqP}^ zDCiez1+FGHH> zY&bM*Lpt77?2r1kp8#WN+(|CC>vYA4Y}msB zP+owE@h*=llNVbF1jchDWsF$p4qfX-ysp08tVWHv5R`V5&gdKqhy3|Ch+TJY5Z)VL z;;Ut+w0s^few7jAb+t(pL_v@Q38&&@zwHq~Hm!!8Of%lFpLca8k(afa)@ScWob<-Z zpwkd-k*mwfyu7rO6cSHoP!=-bDxX%c%WlOOZ#a&vH;w?-afHkU(n*4Yi2Pp8kF$X_ zE$gF3VBOl4PfIjBaAG)umxLleFtu#$E`&J!5b~E|BnKmj7V!*{?0M3_=x$6h32nP6 zOAdf)CxIV0`XT;ezECk*mVD^@P{u1ZpMT581Vd;niX@KqJp*Exm`yEsqwFlNT7(st zWOqjdmLi;9?S>GJ7HbZ@-DOG#6~;8Mfp9lcoJ?AQL2 z-sFnWEIGVy7}7Yx$#bn)MH%W@#bU=ZWK7_t!zp?)lmIp7TA!*<$_s_L&2BA}sv}13 zJX#5z%(J?-$67@g8$I^-1-ND-nAwNhI zq`=iglJ$^ZPwJWXP`y!{N6&ZCCzJeI3)%5y=ux#9-K8K^jjOzOnEt~T{{Cmc1_+Zz zR0e9CiRHSbLWKQMddDwSJ_Uz`yY~~rKWt{$(Obd^d3Z%MU}~F`G@&;P%5=yJ zjp-*n@cq+BJ9#i{BSZyE0j&gKAxvTj8YJq416t~Q31f*O&!c1dhY}DaP~(7B=vJI` z7DV(442IlkLK(Iu~O zRlPAadOVqJeLI*t&Q9FMyrq@?kk@ytvzU2}a- zEVO4P;+go}K2LwhpFaCyKl-5mj2&H9DK_@Bv!$dvRCAMRGPNgrsxfuJ@owi%@EUiP zSZmPix`)qeOg(%&tzB_-hIzYcluZpjx3`$gonC1DbUEz&Ot}@!#f8pob~wDf)t-bK z!%ot$!;X*Xv|6K9GRGf$L{@FY!GrNfT_+lypm%LP?u`0b_uk-jes$VrWXFAz^`t%#DgWEoTeAnRIX!Iu z)SJqW%}&01U!ifm@70IfZ}NgGli^>DgWEctYwNYgPcJ5okxKK>cd3|Oe|F)#a>YJ) zOOT}Pgh1f3q;YQ?%(cgN7Z+PW&HX~X9n?PN@39+StQ_;-Ua1Z3X*bT9aa)1sb#H0D zKgf6)+g0(NnR@Lv7Fy5TcV>kR%S%(go19(#NVVa#-uv#jM$5C@%vR>jbmdU|zQy)u z&MmIA|1+P4=`uUHb!UMwefWtM}+}0HFYtS>5Jg--F)`w=%U1J#VZz-K#$1l@31*(P~cX ztJYmVy0g*Vdy#e9Sb>hVH7GL#H)G%mr7I_~qF9~wIO(u>Y&FIm!X0cFRKcesjE&B0 zeUBZSd(5AmgRj6IjvVt#EPniwZLC%9VV3R0XS-mAahs6ynnQ{NN!!K+N~RT zWT-XKS^cN)w`N@zx#MTwMXg|NsO24ewLMu5E0=9&1`tI6JK#r4DaI{*!xd5sl2_%= z2cUp=t{nyE+JGlAhCr0UkYKikA837VZYQ>I>Ihd?rp8-~D_1~4X6&y_v6Tt-pbopb zSAEY&Q>pmApWl{TM0!$Iq-|NllZO<@Z@0W*af;xJ(HAoSqbLS5PIb&`92bAA#vA?C zY_!J~2%qvpMiKq6GE^$ImQ$Qdb!ygYeVWa;9+7z9{&9d;IKh2IYvl~P(H`}9DczHW z*`QWvU1v28l?gU&Le3U%S-&U=EA0vZK?5V2kRO582}YJ|jCyGAIp$jktc@Ai6GMPK z7192t_?RCyk>1*W^zGK-o`v>u!=aSExP&L2b1d{~>X{m}*h!@f35F8;fi8CK73Y07 zz9I{V<*HGs!26b6E4*h6l-XIF3InQ{SSTnCo0!+SJ2qFW-;~PivBNL;3sD6cB){T^ z2yN*j z=G%+AV-p2<-jT?$T9tZ;CHTmAX^P}%ak@0IBjj7?ob$Ty@WobZ?|jtRTekMr!$~#d zgyq6RcS7iJLKbRm&6D3U3kyMq_| zhD{(wkv^L#qauZ9hR=QWr>>3uVeChO3#z{my_e6?_gBC1#s{M7?)YGKQ~ia=z3h$; zc5knLcYHeiVE3B(v5}D{e)h{N$0{RFyybzFF9c65t^G0&?RhHV^Q`3C3(r-vn=W}E zx+PfCmlvYFJWoRpMAIj<^X>7Q-K`pWTjk8`Ssn`xM0?%okn$$6Wn3<|y)vT= zxc0AeNv9LfB6@l(@a<`cvJ?;iCxowjl-?MGi?QvYeXWJCV3mmW(iFy#f0T&WPv(&#WLkFtvd#fGCM zC!ov5#Q{mJHTofpL*iE8Jw$;~*dn6eAWBGs@n~K^l9hDhVp<~)@vX?CNa4($^)IJ! zv+%JZqFsW&D6&f(k8^-6H1U8?)(%Pup)!?-@n!#RKYFh}MwVkm^R_iV6Z2?FZ(|f( zWSp=Zcu1_eQo_h0%#xu59(#4|zk+pK5QI>xY;(IVsVja;P7*+QZl$K~KrqL%Li!6R zez?%on_s}AmliR~rU5cBa?IFi#fWT_W{7QAY1&Z+)H~DL-+U^RB4-tHN@SNI?yZwhF(A zM_-<`Y#mjJ&w{jfjV9Zu2!)-Bi?Br8P$QyMdd&EU8-QU5R{E*MP6NkHmOT->@k#|^ zx8hMJczqBg34~WR;8594Mx5GW92b3ZLJ$c%K{(+=vmk4_=bodameZwO)p3d+rR0U{ z?+L)fNGe37cwV4s!K@J))m|bbL|%l5DmN9^#zqDpif`ze?dD>B&`SsuWa@ljLN$M6 zFJ8lbR8dlk3N+)!Xpa>}N`A{~24SG(3d1~z)x1rLPB7#lZ?njUW%O6l7mgImK<7F& z?n6?Ml&Bj!0D3e`cA3R1Vbey5t>~ucZJ>ZcK`cHcQ#ydk)_;B&6caZpKpW`P^tA6; z^-_BwbmrrG-5f3IFNvLaNA)zIDUU>Mrwzb~bP9D7#s1q~E}$9$^vRgCKNZ z0DsWHe8t{vBU*qP-b*|h%+d$dj`@X${RU~CWDZgjwIWqk3b&?_w@&;NwK~7s30lq7 zE8l7@xIrVT6j~&`kj%C^Wc#(a5kpKmqT=PzVN#-ii*~^Sdm1=G$MWmDDQSkb4-5_^ z0MND~tdNHXO?j~9gbwp3os_ve$4e|^oTdgAm!F^e9}p)&6ht))3#vFC4NKfY$%$BO7!m2ugYIE?RimzhsP$7$r&#pu&PC4G9t=Is~`BV)Q$=U7aC(c z!gqwjG$aJnAV*-n)Y1KV0yEB|Ub(aA5O0D8-1E4`HzY*4ZdF!i=y9JWPt| zAKYkX=eM3I04rChB!mUvp_zm`1tJw|ff?j~V)!b{exxEgqzulJrAfT=Fa+@IT0cVZ zM?ghrNm>{&D7i#$JP>LY>2a%cc=W(03f43wR!en!S8g1{%-@)~jRQ(p=h-c|u-oQ4 z8gwpwA()Ook9FZI5jvG0egOpQOph~L6AAHZQwyHwWwoO9;J-ih4b?_@xZI|!UYV3$ zC2km%qjDiEkD1CLf|7t+&5l%JrTQW>{ZL>ba;myP2bEZ8-a#4@Ntb2aCw@a$B}!G! z8<<;{T>318m5JbHEIYTArKqCu{AomjNI0UH#d24W74ONjkm}1%$8zz z$cv^i(FCKjA=Aq6a`trMo%=BP`iBBPAyNvG(S-%S9aHmzolbqM;zYGOD+`rd{68Lz zyc%_znMO=4jB>*aIMtkK%qpdsX7h|@`-bBIly6MkkR>$G*nh^8qarWf$ZyQc)};Aj(2xC-KoEeEK{fXJucf>_wZ=>(H|db zbe^W3kj$x0bN#-;!P(fYAH4FXslK=eGw0xVVZnWEN}^b)6p@w6V*zPoG}^AzgN74O zp~;+NT9ur**l_%`ap+-xPdo80o-g?IgCv^FH;L*&?7wa%yx8C47ca=_B;6?ww`P;G z3tu~9&S_2Obs0dt!#Ou;f2QV)H5ZHIZRGE}sD8|zeY1ZWX{t+6sSG7=y$C5Eo^12e zu?}8&5GBysp9U5iY-LLFKbg>D=Cvd~$^LKp4eT`e^#~P~?$nHDkzLO!N5rN9s{(rP)_YH50k}{pW8k0zEVSA~(T_4tPA*hi& z07r=`gJY4x%}E3}?_CoD~tI2;fT_^KWp$1LnYa48Lk3DjtPkJvb(gfS=DG!DhskEc~&2|I7} zF8#lDwgRe+x9uyme0~yAe~@=dV+BZ{87U%xejtD+a?`6OVKBKi;m?GsPs9iH1d4XW zxA`;?V8 zAXq)zja11xK1cass4A*cicqd!b;}!?eAaM0M+RG2Y;@xNc*KGVZE& z!7Wa0*xg>_Ip{D^butFZkfGVf7Pe+WCl z!XaK{X_t06e|7P-i!~f+B`vt+koKv;cHT_4Y04hoX%&m)Zm%g4}v+rbu9t z)zGqf)vEg~RaHj)@ZK3~_HvM3Bzm=$p=6YoPZ|I{ZFMQ1l$?h$D_gNCpODM%SHL=QxHI~!#f z3OfEj=arr7KAG2ZdI0s>IW}_H=Hkig)K2|)UKfh5ptvM(;{DJ6@LP&xF1WE_~ z6|K`;{Bb4QIy|G8$Yum%>hqOl>Lz0gN&<@h5rXmh{7hW;cf&dbnFMyVVnA%7=^%{t z5gbPuk$K{zt?ILZiJ9{dSTc;Ee(4dIQ~6DJu9x0`3>D1TOaFG~`B`XBmXhHH5i!AE zkf4a$l`sHFz$wxMAw)=)G@T`@=8*akNSx;{JRUzhO3(tP?!^Q=wfGVuj*62^R37K) zI?*>WS|dv!JhGEkP}2B$v$z}r67=iENSiXra_3gAXvfWjENyU zlw{X@b2~~?jv57*3NS`k{b`t;)DErphzn6q{=$Nb6^V29!@<~s|9C*=MnXe4ezZQ# zU3KE5(t?P^NEiq^VmE_+i3OUa9XPX+JlKi#f&AgEYOt1W8vK*YJ)5UHiQk33w8 z)yfk3kHT%_71)gk+Qn`Kfk-_P17v1qfd_>owKay^__UT013F^klqBWP)jzu_EGX(P zF}$VJjKo7(r33=c=_f5LhG2!taF*Ux!od8{L8)H37|c6+UwR|Jwx4Sk1C{N5{)QWO`k+_VMq*Zs^o~ByjHL!mWn0p|p17Z-vJ2!UQF&U$u zls+7^f`lQRhWCfpg?PwQe>)!kNfR86MnLgt0Z z3xEC$BQJlm}z=cQ=$j;C!_<>t?dm$yY-$P2!5#uPBbol z20W5>6I-9a1zleJJ9;M|z=4HMF0Nb&0_dam0|-FPOJpQVn~}y?(?IP*MK15QgZau- zP^uK?+Y7p1avD%v1SaiyZfY}hWVO;q|9YD@>#9+jN9Os2EVjTfw3-&d5}}2HN?z4I zbrI)sdsxQW$5aSbR#ly)fJsO`Vm!;|3`7Z?Wh5uIlQc+Xvt?_zGopl;9CZw` zV`RvUFS6Wln_(7M2~yD`(n1P*7F42no1!5o1XR-eSwAz@b^@yay-L*zrnscqR;wOz zqE#2b)7d9pyQ56)xo{DB;E{i0V9FNS7?ww3u@6$JI0;MW58FiiN!iY#YDiA*V_%^w zQ(MF0EIo%#&8bZ|NwVBcD4Zocf-%$xNh@PA6KzEgzF9lGw`L#`gxXswyMqM%@ZHp+%gCLVE@6UA^M- zl&~%9pv_ac!i1;ux0RTuBtKXggdc+X0jgiv99%r>FjVpH6rGV z9AX^HSc7I9V-PKw;U2O)lmb=&F}2mh6Qy!FiZLdl4Sh2csSqhGr)n$0B{B1XXkh*D za`EseBFx9og15r3bZCmIWHXg$Sdp+{;~8QEs%TxC-zg1S)>+@j&ITw{n4Gc~@tmZ? zLX9&Vl;9oo2q2Q_TE_?=SYe!W6)Jt(3QwTP~*9 z9SBRH;@Pr3c+AUJ+tc)MGsq;ooxS)!;j zqGh3F67=%T<-O%b+Y5%Nu1|Z`w3Z|zSa`!)atIoEq?ogylZ@NAgwO`zv&om@hyCQn z$AdVi+}VEk^)TpT_50e*qv0(9RZQfvn~Yc6&DQ<~Gd!4ywi3G&yP8$D1gp8tGuTP3 z$&9W}a~7PQxbxIT=i;)Z;s}+J)~MClXNP49xy)?gJR(GLYRV!uIkEZLO02m|p9x0VZUAK5oqF5Mg)s?-lAh2YAhktXfVZH3F~`yOu>XKOAK zSRVHNANJk_PL8X-^Q~@`hp~`Nce^zVj=`#SwHOf#*($ibV1SR~G_H!mA-a`S+= z6NIS>OBF`}xe7o_d_e|8@T7od5rvQ&rKy>DsCE0RCpH(d;I( zN1_I^89Xz|RM&XAjqzZSY0N7gtTjK;C~uuRLY{-u!OD-!{AF^_f}HW>p2nx|y?a-( z`H^Y-+{Ml9dxKi{&97SY+uiL4Ywt}itj*s0>67V>xnqxv-+0?N&&ht*k1=&IQ9E>R z^L5p$e*64%>vvS6*@>;C&Xv^?Qv+=_;MKSK;g#QUAmZWBQl~i<9b8~e2=Ba!)I!|a z2^5f4RQ8tcpR`zz!oM_*lMF$gNfwOy}@;#tIRQ<+?u9b(#sA1K#c{&k32Rz>&8Z zh7MgllLGkNwk5;UJOwQgGTNylr``Cu2919^wj=-_GucE)z(PP?yo>sYlWa z%N-g@3yHx#;Zn8A0&n1ML)b@)pP1=~m8679g^6^_mi015X&$ zm^NW_ql0S09*zLT@yQWRBk(S3RM@Q%(zAg}S2rZg<2=e1oynhXtjsRIro1wd=f@>PXYR0r(SrCHet|EqH9x7PGTvhgS{!&k9*+F0(LAx z$0oKYMcqdE=TO*ps52>__*e#d`ZrAU;K51eJK5NhX(%MU6L>q1(tgIGL(|xC&(6PD zdrTsK65qpn=TwBYJ-)}UwEPD%P18mfv41OGs@BIUb5NIhrxI*FpE;BW-MDr;7=lUo zgSw8_eJ$N~>V1aIzvIz`_cHc8zhcLhqiksX${DZ{+xpJ&+VCa_;^m)$1*SLVkTtl>b~VI=S)2QZOlll+NZ+) zlGVFH`qL4^+f-K1YCI74cd6vFEZ_73n^eA#3~dQvPK9kRYqq=e0TtA|`or2a)1UWQ zwX?(~NBWa2qsS?sxScMJr~XEl*NB+Iw|!!2c!SCVGmfcyA9&NVzx+?v%}}{AeOHBm zI~s@`nQze*F8agFt_=RXW@A}9k-e^0d01!7s$?>uGOwE{KC=_kEYJNLT%@r* ztHK&8R;3MYp8C$xn^>8wB1R&#d)y^H#%2`DQo&snE2h>%31U_{3)-IA^2!^W*&*i9b)$hG}62S z_T~UKY@PnY9pt;5aVsUoY9&==vEx2~R%9$8L#USKN)QC2G~#V#JY)5XhzkoAPlrnu z^Hao-J(RUGQxO>TT6^m=8b9^p zm%(fbIn4>Srf1!`wDtYIu|io=-c6_zhOW(F|ledzPMQ*ky$V`Kk2u_wIdp#-0A?!;xxyC?p>s-Lx9 zKS|B*^*a*YO1U-TU-hrhDhrcQQcp^*d84gqE!G3|dYh>v=h<47cURxKpX7YQQYwOp|}fO?Eer^mB}rr#CZ3r?f9}= zeSGA497{>@(36<;c=_t7BUkenp^!mXfO6yHbL7gG*3B?aLWLfhiq-Kj0i31j$;$W% z%?i;6bi3UcI45Zh@yGApLK9*V*m`zj*|C9<2n;|f%=1s}suk&9k;o>-6UK(5UDN(> zaVwK!aL=sY3@tf~wlI~rmzO>8%wtyt_$}Qbn`%XTHqLk#|5H z37vjbPa#!#9I48}RyQ=84Ak*JPkMSkUml1Oh4R*Ns*RSA7OB0K z>3x|_NSO^xxrpf4$2!O~Zb}sb9_1uAlc`BN!O&y|gnpF9Yb}J=Cr_q+2m}Zg=RC{i zQv=-5%zOL(Tb-F9z|u|7fj5~$EP2gy0*-Re0p< zP3baw!x~6R9nd4zPy{Y3vq@zFBWQxRAxSfv$ux^0)Jtu4`_tixcJg$#I9W@t&ARO* zj`m)ZPW!FBhnUUryK$(oXJ+zMGZ#&6Zl*X;i>H6;!}a#-I$P&=FE z&smLUAA(JqXyOES_7ZIovq=*k{E-*CT`O|Y+!1pmbjN0sgG`wx{p37XQ<>$UWgn^W zUykgNpR%S(@@bO%0%wyQao^AXfAsPPe(K8A`_f;x(|5gv%^3?k#S`PjHm_zQ$<_-> z>?7eRp7z3(=j=Ij!7IDbLA>?W+&xehmM$%M*Ss^F=9!$$?0GFs@K|DZg0J^6gGKQWo|mC9QZ-@v|w9k zXcd9&PRp00jpsJBpCN2c`(cQSDresJT1-hyqu60{th+Map85#x?Ko2l>{x+(o?%^? zDOYAD%2|ttB_3fO0ymuroA4v}ukB-a;LrXpFVA2fg`N*;9lW|(YR$?MKFDqgz`TTK z1X2j#r>z`eOWP{OypG&uT;YhF8*GW71&74aMw#tt;dXo7uqi6rkG8gmcAneOVky57G#*Jm zx;#>~?;}W^2bP|uhoK6_wd;oMKa;*qTTL~`+b1Z6*m%-uJlOw)Ml!Z4uuuU7S9|q2 zkNt`X{TsdncTX%LplhlXm-P z;APO17)>(h4&w<4?5t7kuQ1t@;A&ILv)2dR6HE>5gTI)^bf^HR#N%tt{y6zzp?UxR zd`VW(BzX-l>*Lctj}rR0@i440fcXz*OmO03wpoDMyPjvR5CFawW+jSQ zpOQhdgRI%kENGt~?a=i><^_`vg~7^9`W{4gJOTN?XX>FrB8pW0*7vuwSYy&sH64qR zm2%wi;+?7Yu7t@Ktj)3LZJ`&p%1m#xJIsvCh2HV$h@o!BhwPSYtf+^kL6S++ckEW z+*)SqpdL)Bluq3|iG>nf+n~>6s|eZ$_tXN9?o60q=rNV32^JEsnDQ3O8Pur@Wqt#l zJxPwVd>dtXTI+RFykEd3Kv1AldnMOvw|kZ3^g`wy)7ig#6B|sJ2U+!;&KVm`R!unA zqb&WWbo8i?Z4TjCAA7W>c-ZGGK=M5%FFc7dYSv=S14G{^koUPqb6%tKkMNMs$hnUb zIYWDIuRr^r@5gvDqf;6@9B3~t^e^&zIp)|*TDa?GU35RwEQeid>circlTAqekV8ezcB@k=m|CnZKQv^EP_ z251nlV+W!MwL^mZO98eoX9o(7-*WyYCBTFHkYay&(3 zz7SK{qM-MNsU>v>1e%|Or69Bf7_>7HhRJCyK)ayG3AGF^KNRwVHLv%BC$7_=Kvw>B zq*6FQFp`Qx)v@xyzoLEk)>Ku3Jm(`k7Zfm_$ERg1E>j=W3p*mnkhc(#iHZQG_gBB@ zkbnb7gow1jP#ZHiGm=#k{YR3BhLJ}V=Q5%|6kyX4a|yAe1r#0QfJ3TV@9Nh859taG zXGMivrU6}wIuZDQX;U*LNi5{0;+u7KV>M<8Y+YYk(+^Tp{j;H=dC_Idlm?dK$Pt8q zkQb*rxs%L0jM3Zao*5KsiA>@ZD)Lj_Iys@1ZZ`)o!kAW1_Q=2Q7xpz&$wFyC9=%g5 zu4rAJctKE>tYQLf+DBuS5>rK_flfWCI&kY>I3j_#_lf@srHOceDx{5!9UAPRJYb0> zRyTlVdM+7bHC_BmUKS8)G$xLn2I(w8^W4S#z@-!+v@XEV=oSDe{fBD7Xp;s>&9FUk zMH9h5LfurDhLbWaV|i8H_5RQN7JGrYQ5_2;BIm|ey90fiX!3xadszLkW;c~Jlm@WN zpo}O|$%a2V^N^(@R=n9%W<12P<^(j80Tqac4zhRfb3#Of^+TLdResvvz>P_nE{ID~ z@X(<`ch;^0DmGDsg&G39 zABaPh9?ga^N*BjXwwbgS^stw`SBhCErqmdYI$;{(yLT9hwnHN$8;-r&XoogPn@ZV} zPI5?PJpG=xK!JTtL>&q=xNa*{tbqvIf49+6ulIrf3E^#l{pYiioMe6+n%chrs%Um$Ud}6T z39)r-`Z6BbV4Vcor~$R;u!&0-+wwm8255C|ngUo<^O0LE;#vn6%;Ci~Vx3H5bo&TR zN3#MDe*_Q5f919E#i1GiJUP+fMiMaRF~*?-98sxtTJ0mW%TTRUPL-Y_(VH@Gr~!;% zTKJxnwdXeUHWGl*ptd7iW(N*-NRMX8fG|7A58mqjuFsDzGb(b8kWn0UI3^D$fDj^) z)HD)JZJj*@`#hN7jENU?y){cUfxojzTU4zfJ3L2Zj<7|T5^d^)nrxw`2nBXxRmLI+ zQva@3j31?+Ad)89gme8Oz+$p=)CsC%GEPr8pg(m5N00EP^)q~V`Ny? z>nqx|9c6|SU?2uwZGlp$Sc!3nxd>V%l%YPPgx*O=4ki&%++;Sv@UlH8gd+wpc2HFO z8(y;|qebJAQ>F>=4b3@(-h)Tg{U2&@)H^=rirE77hC4}PlLy@(^9%^2J>j-EOzXL7 zo+eQr$oz0R57Pj>wM=)(L<2kTJxw&Q?Bz%PQ_121Q@;1 zBD!P7=>U_0PCCF!z{zEl1|8}}r%acDn@rafc2b`Dz--6eF9(bsHJ`y>ZWo#_N0A{e z#i+pwU{PSMLF|1WJm)BQXnWX9B2JM z8&-+ny8wur_3D%(D1P>>(2QF<584i3Q!Pj_9l(Y^YF%W9*o9Gfo*5!IY$hd{BRn!B zg1Tf_z<%@vYO-$A4j_R;t3EHr&JqPI){!IbeTkQ%ql12A@`lBfJ`tTv#8*tmS#FZ1 z9G-1VL1HQn6{vZPN*P!x+XdPE2ns3)?HTgyf97SNM@}w-7nQiMdQqVW7^x^ApqwE} zZyA-gtsHhqu)O54pcii%{axiq@2a|bm*Ocvut2IzAR0MxHe*eq)>IYag=Mt^aec{H z1pENkd+fF6Q4xR%xk)S22q#d2V6&~;mkJ{j+NxdT3>btM>x-OB;vfpa5IjP}TOsVC zGXB{E)Sf^wa#|GSL;1MSD{?{V;4;C(eI5jr00A^x35{_QccXxx@p*QdyVok+_q}7s zkS1y5EyPYqRjR~ko+yHG?v^AZ7*HaoPytN*0B@IyV4=#0@4ffE+w|H7$ch6xA#0*C z*<3A!+8X3K1jPxcK~z(sXK*))Cy0Nc;o#&FKmT@GnX!|G%3;@`SRk*Mh8|;A8bPcJ zX+J(iC@}{qrQiZTeB{#Ze1v@GOzy3Pn=_MY9_fL(LbWN2^}%!@hg*} z35HGsKyl-)v>xw5@1{S#ahc8>(a`yIB4z~u1z2W%xK^(Pm2(N;S&SQ_PeK2Lg@M!Q z8@;}&PX`_8VD&&KqYW>urULM4jfHNU@vb5DmbA3=^cTMt#`cHj9M7w-$J0({r8fc} zhExFiQc(I3$3V_A^s%H)Eme{+24w=ZD};1s;!uD=rE4jkb){^^p@UxWyCNaopUPUK zta-x?a~jovsSG(fB-u}?vq#u)&Pc?VfqgIWri*mSfB|9uCkj^mz#_Wr#J-oe{4jpR zg{(E!9;|uo#Y>WI!Y25nmH8DMURK_4k9lI?1fI_8Y7f>i^{b8gRC^(~E?v?y1$z!P z*nk^qm7H~4Et0d4jz5f}(U@bE%DXIk5NEjMcd^;E)UNkmwzMSQ^37wePj0y}n>;rD zNSzh*IcE9~rM1^SVj78wPnU?h!$0;utp#_6nsNT1TrTPfQz?aic`^}|V!o*)E#K62 zn8Gfnj7F?gQU!cjHZ=HImvu_yRXMcJyXBhAO4F+i$c!UAZ%!J{0_&r53p^u2@fzCz z@iAr-#?Am4>O);Z+tNlo@*8kF2&n)tq*ydu9|Pe@1i|)`laR*w@S#oDn+t?H4^41u zgsSD?uE8}97<7nJPFmkY(rQ;ic@UF_LaJb)aJa~eCaOVm7Dc=iGi!~rUei9=(g&rZ zLnrIK@4rc^s72!rj$Tp7UNJBUvHHeHCXG?U5e#I<>@zf0 zdBSbC9H_=|@!18i-}O!%+kBK%o`We%n6`hSX-=)F;}pAik>jw(IZS{0nr2-8`U^1#cV-hftX$^db|NcrxLc~ zc_*L&ier1KKn*sQo2$Ab9_B5+^+e)#PqJ!#8?S=c!fJUmxuy5XKe+CgGRYI&J;fD; zy$4k;3q6dXoNCyicM?oqGHJNrKJr;YS1+Y`H*;R=J`4E5=Hb>F5#-54z%B1S?uusRoiW>m6w` zGBQRo3|d>F;WA-ej?;OvxM4S4HIysbf(;zS4d>{qU-|W++x*h3BO~}W=gp0-#7yY znM&9U9+V9wc_gbkFr2zGx*=%|ILCwv3M5tzJh8I2`&s-nj9v^vS8G6*i35G10Z+Z4 zTKy?Qg&AOysfmUTHi1;1JF0+UO&=1pr?cCa zju23JxXT!0)OMC)hT(djhW}?1Ml8doS4)k2bw0YPaQ40X}8?CZ;uKJh7NE53&y7;mP@V51;F#LRwXT3 z7G7H9xcE8n5_nA)@3%xbg`0c0QM4o5Vsxw8<%q=kC=^XVJgEkIwFZPW?wySM-p9Tm zQVdiM4;i`oH3lSbN1}0}vS@@n3lm9D=hkJ^28cXl-UojdLNKQ#a*SQHkb7Y&f(R5T zs$+wNl3`5eH##9%-KIL_ET!D<`Uij8xT&Es0oDGc=L)VeIHNL-E+aF?Wm#hS4&bE{ zumCbH3c*V0_V@caE3}-PFd~FOAwNq~A`C~1vx9)dc?4(27IC^ryCa8o6 zr^D$5AZ?vrz-X*uQ*x0QQkPXJL&1pVJ|$cHsSlMH@zKNrqbL-;{hAN@Me{7VOaTCV z0qGYl5cR(J1M-M1plJgLAyG6%x)+cX?B+c!bPomH@h{MvEUnwy|6f!v4|(G#pi3R~ zZ$*Shn2LkWYGL&H;vS++Bb;x}XO3R+dG;=V&7kL;OO`GeG&{H$gUiCBz!yO`1)&xf z{ox%_<@sC?5~+bO6##Zj%Xg{@J~GMf&W9X|8EpE@K2Vc@Lza3s{NN@gOygi)4Fi7= zm&5H43IZUj?U9o$1U%b;E~m)ax+W-A*9KFOrA;&f_pgB5vZN2h`7Xi*gd&=uIXt}Ua__(T;zKWrn)!{I&Z#aOHDB4=M+X4mT$=S1c&vcUUk>E zzO;Rkb+rX{Xdh?9QsuOa1lV zOQwkLGysO*aKIlyoqStU#Xp+XEsJ!lpOz7(si#9Fh=vJOvY`tc=8%bmV_h9G?^6d~ zc4LP3$&~Ui5?#~PQn${t!@ZiF)*y%dl`aB+Ah(K>9n=`i?LY_9U-^;M2i#YwzvU)UPlt7P;pWQCAN=AVOQ89e)|VE z<6Cg3Wwo$g-IT zgt-N|t{l28J@wJ^TW^DI+#rhM?!nCQ1d!41vlUz(d?j zS}-BN_Xgz2MJrNOJWp_%CwEe;^YFLxuJmj;_YY=Xy5ch_0QP+?|GszYtv%)?meGb= z)vN7HV8Z-1mOXj6Tm0|Vv!Hl%c><3}8p zC*QUCDEhNhGVgNOZv+4wXfZftVAQkU-l+!L+H&Usw`y&#i zet~df#)i%pDfHfYAUuW^hQQMr0r+$Gh`|^Ni6{muU6WV@Yv-s;-!@aL>?+lnLY33^ z{2+5v5vCn+Xu6UF&H7Jq=_cRvSdh7(Mr~IqN3P6na7otUyyUe0=@OnQz1Fn$Yu>7Ifd0~3qEC(2pub{Q4Dt8a91g?2AyKKK_nMaFV0GoP@O%47$eQs>qSk993wv+op$8C`ca8%5kTH5&@?sA7-FWWxh4-{oc z?r$$+Opgo(cvXsnVM0NS)hCt6X*~l819QD!{js9(nUIPUcUBvbX34wu zv5v6P(-ftm73Sm?5a8}pU*$Drs-YYPy`&suhUp?k34xP|<)N#TSlj{-w2c`b0Z{}x z9}}Uf@JCrNq9DMn58|SL>9ARv(g`$tT7tSRXa=BKswNduK*nCj?#TvfQd0j@-!;Y% zx;hlV2fSE%pEKQwEVW{FNODff@);0szD4@Ui#H7uWlRSK&s0fl7aCFIO9$E|u?swC z057F;-E;c31KTF8O{jdKcDm%oW?n?2{%v*)J_I~wgMkJ#8{&$^A z-aLJ%k_5XSs~Zc(z9=+804=Ss4nI$U=%Wot>WQyTLBJe>DDMj4~ zwx3qaH?=BAM8zJ6W{r}~wkdmF?KSq;ZD}WNu`HKP6H$L=N6Dlqu)<0}W6b#!M|2); zgp?!@fh0-gqc2+T1Oe-j>?cCGwf&bDt7${8If3zbM80mrOAD$B+nmCPi(V4ecgDds4B&VsZGH&_l=Pu^mB2mJI z-UAIia9f|k+7FW@KNz@%tTXa`zA9cLg9k4+^FvFkl(kzYyreW4cn7q^7{}%lrnPBa z_b&Yh)g8kU zI^qMQR*{bT2v!r0cb6E4E8V*3E>Nrs`5;IH;^O8H#V-+0WGze*_#X>3qhgkchE+8Q}Di2l8>b)R!=4Bxhywc8*tj&QAGeP;=sNG z=Ev|P_2_VPq4eXH=k=zVvhAG3yAv{R;8@AcyaSC{70cJ@oI_W6d|{B84rnsedb&2! z#;b^iz8j9dn@tn)Ftjs3CgkInvQ8)oDn^n3Y0&4n7Xagu66-)Ta5bJnoTutRSt7ley5LjCs7 zzNmiS@nujH6jLFsa~j+ht05U6^%ZF(v0K$c?U7~+6GCKFW(oAjq0x*{qedsN(b&8LZY1MT z!By`Er@0fTe#nIwmHIJ57Z^r{$POt9f)&yA$YRnprF*~mMUuG*i~@rndcrLii!W$N z6h@W9OJ>*+k{}EPM`a~ysz_V29MMV#o+|lXv|!8$Zfgq#Z+Yq(s3g z1!ZYjeuGbjSY9T5R$tn5j8{F$prgWuz%U5P$Y8|M6%~nz7uw*rI^>Z0k+8wf%7DwR5k}JiUe3dbUg@8L3Gbcku>gO>|2)5giCxn z$n5p*|0$a#>a#I~BhOYaXqu?509|T2U7+(^Yij8xz-?3a~{26rx6 zVjv%NN-;oE@nSh{;w(+iB_)Wp#pOgBXv} z`w^1`5%xP15o+gG9o*C4U0L{BLsF&JQrAv@HQNxLyp;ar@~3H#HqqxerSj;~ z7>{^_Ho+^DPNU&r$`kwvE@4_vCQ=fK* zi8urVvplq_IRyNA?6Pz|Mn#zf>F_m??L_*mGJE83NJ)cJ9@dLPCSBx0!g~EHfAF14 zX1AGxB#a=VCKzyx{k|AUv1p8Ai3PRC*~Ig-2B6JpdPdG-U0QzBQ*Z9FddpSkg(m`U zn_kjn{-B4;H#4+Q7&S_IzsgMwUJS!l1^I)Od|zt7EB!Wu8kaB(+KX4qn+&|G({zSy ztt=!ynDJ67-iNdJDhz&mI5Yv!_BjJ|b6UTXw|I@Y$2q-jn$e$xr{{i07QMzNv+Tut z5#$umGLf^`MKxK}qzi9H>_`x;ms3C*B-|o|Hqe}fTyJr715={@q|)^r{`(KQ148VN*+&4F?VK? zbw(~csZQ$y4b_yE={ojKXbsYQI(@OW9P=<|$Z8|+NXMOuW*6-FN>P3iW$Cpp&;yU= zWHJ>~Af8myz{d=hO6CtDN@i#(>-^y8oVoyB~HBr&Yo}7BbUq>K(5C! zqk0lv!4yD{=**;?_kHlZqgt(4Dv@YAMa?O-rz#yjsp_Bw61pvY<}8Azf&#oJ~7W5ZJ%dMovaCn?u@ib&g9D)oojBKJICf2dm;?oNiU zi)<`wz2%<4&DpPL&c%a0XV2t$&vZ5&E7JS;`WHotH89;U5@YZMu{LosKI+NFG{J_T zpTz_rn|WV!4KbN}U;P&afWdjdvBjaV_7Jg2Lgt?=9s(Eq0HnYvQolvG;k#|0nJx?A zt$}Ds`5`A4scI9FT-i9(pWqp_>Li`n*89CH!IL8#z@YQe4eVqVN&dX11eB;S;!P@W zZ_@z?05T0`QIpU7guXYvDhLT87Pg>3Nl8TOdv_Zk-6;r|u0<<>lMyI$`pMt%iFByo zM#&10BeAi#8G0vN6y2SQsf|;RtVXicF;UoC<#l_J21G;vlub?b$(J_ z!)^@eE==FkrA&?@YD7U1!=bo$nffWF8NiN*;-5Te1FD08{OOaO z(A?2TbL0U=<#dB;sa^`e=!v_`PoTfy5Mar}*hVuP%BhTiDJZmZPE*Mx_=Auavy-ya zd;g)|7p%!Da1;iU`?&?Z0jO112Cz@SuJ5#_u`0(f9lFjbk*1Q*aoGppO6IK7tNdTD z9fIX@<>iOsfh2VlJe4Gy6TK6KGUiljJBKcxyrn#C^F76h3K;z}5dH4-o!z2DhIT0bQ(p3^`|&Yv>>H0`(G)cugbXQuFyZqS(8^Wv)^-XPIW37;Xwaj#`?BAGyu!4 zX(?(5!SWIva##m#J)9~e#Na``jFJT{N^(fV2AAld7oGmwKjDseNV41%Ga6m3DklK2 zkHnvjWYV9uM*u^k7)+RR2~q*gg)53F!kzJR`=u<2S_IRD7;~;x^XEyR(!^KD(4vX7 zpBgey`#)e7f&4DIa{3cr)&OHq7Y4XrkvV8-*|WFlU`fu*E?Y9V+3G1fwN_4+Fx}mg zh0XkP&wQxQ_9a7ijA5g9a>joP^L?yQc z+W^YTO2{r=!26S3l^UAfX_AEy=6n6BlCM;Mj<-<_Adc@16|JzLLlD0X!a@nqe30gv6z^F6fRY z6f5>yHhG*+>ciV@Bp+>s42ndr_d~m6P4Ow@e#t;?4K~#bD3(fY9gb3-MfXWqi>BRJ zDoMX?1&N%)vbkGa1IxSNlP}{G4nae_&KpDiL(u~yXTI`Afb>5^YR)9nM_&E0-ydJS zL-QW@Y#-mZ$!?g^XNmvl&~xuuIQ!FZU)OhTim&Co+I^FFyL)@>u7-1Pb~W^+8(w|G zg}%GP#hT9~f7AcB&l--{r+HOEouXjP{BL;BCLvEjo7^B!9I3F?o|p2T5u(%Y{=gZL z|GWsQ`P2mrD6wmz1(1-7xVYi0cFNJ`Up5r#WWhDxkbWp15b0c9!sq{*<%~SiyzGd8(VVX#$KyDXXUa|^kpUfO|ACapB4TBc7?Q@@kp^)h` z;owk(Pdad23bYOLjt66u^%bTZ#8ozoHOFG7AOoOXUHoP3T;k3|2Q($$w zoIZ=B@amA8JAiOmfBYXwmz!shc0(?U9lWzq^g@!d^B>{I+7ekBbYrHQV1(~%*fV6S z!8^f#)sgblKb~u{Bie{oX1j>|*z-DesRJ51n;=8qak?7j;I6C6i2U2%a~>1bd1bm( zhgX7t=v*BAa)YPZ`cZa~3k&;rw{yJnT3nq=cOnbP812EC$zC5Ns2qtODjWkxOzL#V z6_rBdG|HnqTg~TqocH~4y%FAm%Z~U6-~zHj3_$J(l4qYYMT`y?Uv&)23Q^l`1v=!L{J@dmfaD>a*Qj?sj^u*t;apj3R5F#Awci0 z|ND$t1_vu=*lr4f^OUomdLOPMtRecy8Jv;Z5q(DVnGsFR>1-?UR8zy#qJ+oGF38n| z%ka!tEh5$6?2OF%B77yFBEp2ydthB6-FEtGKkTg_q}tEXj|8(-zHk^O;Wwws^6kf% zfEZud0`?0_QSHoB7CvY%Vd;HUFRM1T-raz{^b?7mj_PF)+2wf`ZxrPHJlUhNUhQ!0 zrB2(zKIf85+`kL@SK^r>>xaXiJ%`Uz0Qka^SGg&;zd>tmJOD}Fp65hT< zBgj=F{Ee*K(e-t4{XCfH+c{xjdxg^Fr4lpFU8L8K?wFQ4tBC3@a-YRk0z~f<@8x?A zfD)7SSL&OW-VPJrzQ44`-&dFdKU-px4~wlz+?hy`9(3Z#B%VpCCHh>IFG+f*T(#`8 zYOzmI-SFm3rjw=AX=;$rNu0+ViALzJL)XU}cP86Ev5+~ccDsLYZn99{G5z?$?vp$GJx@$;`MPuNd-S&7el)8*@#xur zj_pkL{7iCLw)5nJnQ}gQTlD(LY}-SV$E#ONR=0OIUD`OBH11qD)d2Tbep0hJFH+#W zlP?k^+TL4juKC4*w?Wu9D#s0pZAff{1U6db2%)SSwIQ)}#WNytLt-O@vToFd#MTwh zh{O$vjS$MZQ5zClS3DyUHzYPfDCqD^p{yIVA+dGE zGa_+AVk3mIZq$av))mi)#0`m!5X!ny8xmVrJR=e}BsM}Q>qc!zY+dn;NZgRv2%)SS zwIQ)}#WNytLt-O@vToFd#MTwhh{O$vjS$MZQ5zClS3DyUHzYPfDCqD^p{yIVA+dGEGa_+AVk3mIZq$av))mi)#Q(h|#>;_IzFU?0L8`ZB z1|dg2Imfqzc-?ElD@2oWP`rAR&!|n8yWNOaf7&|<&tTTx@u%2sWjyQs&9C!bJlGgS72z(US&AWH1N@C!4o&|}r}O+*gxLyC||t$@o0bS4##Xv3ECz zl#O|XqyD5^da0wmjz66zia13}14ctu8B;0%U;O>5U*&F7$f$RPc_AWi@zs|h01iHZ z3iO)DZmQg8hRP7O-YtK3W(JD^#841uYaB*_VN!$-389)efdbrl-v9BCo$Wg3Ptj+D zh^7YAuoHV7yCMf7LFW2kk_lgL+a$I^^S|*AOb{cW8fn7rf?mk2kLa}%KB{J~DHjOJ z#WY^kN2r%$559E!@eiG=R9>&oo1$Y9=s!f4AoA5mt_-wZVP6^NOXM&ci%8y3N_C`s z5l-nT|3I-9ZN(|f*gQ? zD|aVmT}V}HuB8`AR7PyqddD@;pFd$A@^HxoeO7IT-NozJhZ?%_PH9LGk^O>P-*PYC zl*@_dc6B0m%5Ncus7{yHpj)p*ytI_kPA0K*N8bX4*6)5rUT*l*2PQfkK%<3GlOn*i z5Zjp!iQ(GS5D|(y{H$8C3#e})xWI9hC%9;9LVOE1L8LU)evZ^35jsQ~@R`q~oO<5v z572P(H|+P}TB*SusP+8;Yz6hm3KXGJ$iK$Ob;_Rz=0mZ*-IAmC*k5y5gj|UE?dm&3 zB7iOw?TpR=n8Ts>ZB@%>Z{8g$5e{eK+5wMbaxfzHTL51-6ifNHtY{-OzcOZ8_UhLH z5-4w|lwK^yam?o$fr?FnSkZ!VN|WwHV;zK%fxutHAII_8g7VU?WZm`nnDh0kysu)I{jKuYF=}fiJf5+1B=U?5$}O zFP#gapfUl9WG<=9VkM<9e+-ssjPRhK*Zq6G)~ddZZ_WUEwgJYxUPJY$#*sB)-MF89 zZ!_Y9rBQt>HS}R|cJ(!tQ=J7GtYPlV3x6k>6s}rM|eb2Ss+Rn#-S_h}SWXT8pW!cg=pS|q1 zPr^i_^yZ1?Si5xzS>pL1+~e<{16^*uf4LpD%H2+Dv$yT0kDdpMu*VP0=3p0MmG7|F zhhJ)Ct`uK<`Gs5i@wH9p)hAIIfH?9UQ!e?;DBp!?`FvSb-vSM2LqUrMNmpRK!830; zKXmxcL}^I%zG;V0R9FyXeI<1f#c6k19AOenR1b)v+0g5B(6IKxB8bpTzHiDW$$On| z_g+0E)*`-1W3a`PgXoUbH7tu8eKW|u8>Ecr9Kg@y4BcoQY0&N#oK-p9|`iVos$HD9U{U@E6lr2|#D*>(g#*nN3{6@;6Fp>q! zPLb9uU$mV)qVLKUr4>6j%_!dci=B}gTmMz?#}mNi-}Uj9VzH!81i=>H9IffIsDn@B ztRS<>d+?heZcJBnT_P_ksvL*SFkNXzddSrDncr9 ziW|B;=ygBE!66Dms9yCqeAYnh=d%KCASGR+tB%U-25P(EBMiP>aG)S=w851vG!!oW z1y^)H4tW8jAe8d^zp=vxKNCeLnbwXkUR}A$KE^7B#M56lrsZ48NY|) z9l+t3PbGtI?-HM@4p+iCxEo4Jt@sfA487kU4hu7^3-=?gy|B|9J65A(wBRW51Auk%!{a2_P!{?N6^3aglG- zd7$;h)vzvFi5q@$b06y{5Q8`okn4wC%qz)N&LETb{KraPFMV+4)NZJFaVcZmu5Vb$ zKYd%Itb4{hXT0^Bbsxg`=s6yNx1m4nz;I!?V|IB42652RQJ};yxxU67T?MxaTC}EP~5m`s%q1@QL~-a*k$SQ1pEEEDZYH#nhPs42k&uU+rg_Tj+LwO zLBOX`G0ylxROWfLPu;eOuV20}PvS%$EKSOIDPs}VbuydE_Qrt6(sx$A+3GeiYjd+e zz2%o)iqZM?1X=I+NA2kV;9heWxV#mia^Qi-Pr|E|dcXAp-chbzI6wqiff-#d$6ou0 z>IfNm9hvRayd1*Z$LNFSv(bO@W&7Id3xgK`phK0M4-v;4W-OOcm`noFS~Nkhj<0;3 zV3E2?Q%atO2^o1K3I{iLi-gsY_~h@5I}9&OF@WKnuZl|Ci*xt@xbyXLE3eDKYlH#> zW1qwo%)|fooD6Q3O6CFZ1uDPqshrK>DM@i|m3;N3o)C{2*QVX^vJ@_sN>uF!8e-FZ z;&kUxSdo8l<6AdnAUyNCq2@cRhknTaF#!0;cQE1MFnHnh5|KdP{+XA2V;I6!Y%iI| zL>(`c2A<5o(R=Ez%B#O@y5Yp=>#E7#FWARbaccJ8`{uslQXOXx>VYwm+S@f_pi51f z>6_T-zh8_1gW~`FKW#%tUYyW-J4e9F{1e04g5TxeCf!g7pvNW~Out)}Q5L@N2NM)`PC*n`p_$OGM>P>& zNw^IhXo?fkRB$LHAyy`Vp+P1>vN5r-OZ4I=|AIM13Mxnr!c#Xwy=qj80nSiT0yJNF zx1Qb=3@R)!&<(nRppG^D%#5)qh~!NK%SE658W@KIB9K?ZDbyJNAUA)Z$VGu+z@pXZ z3Z;NW_QSt?-T z23J%4LdJ;^XOx*5UG=t7U(M_yic5Kc9ICsEh9#t`){KW(aSH}1YaNlg1>0o+_th=i zCd)ZwtF0j_xP-bKA|r%aLH=WmHK@dn=s)x4T&q>~B|as-8^27(EgrzNYAhfXDWkNux6vo!}JwQ5Hz z51+uIF+mQ{jBQn$fIuL6t@!P)MLsGIF6a5<(^JjZ1a4Tuv%qss{i?CSg0+ zjT#0`C9_n-P9A2rG`xbtT86q?R1JOCTn($N(X`)Y_Y7W&mNLp6Cfn)kqV#m_&$f+M z(19vgprHgl*A~%?zzgbNDhuD%q_n%TX?OdIXcGgRXzeQ`@YPO;f)_?=7O9d}lCnOP zhV7&|#y*v~r0IK2YCG+H;Kx{<5`$GWB{~#oPd*lC6{^bOSE+qT(5_YzEK!TFl@xly z{!itFj&(5?m$u|}MG5Ov3vp$x(e%@K%`tm%^|8}0ZQmVu_1e;bs#k3+C8g-*xMaT7 z*3TUn_qJBYvwAdJn&=bYaxz;ZQ{44;H%nJfHUA(P54FJv)A$l{H3B(V z&2CbwC3snBQob=u9?t0Zy5ZtQ_y(7hCRyf*wWcMXBZ+sUECgIPr6nu2FU+JD;zQML zc;)6uByBBu{5+bGPTp4HIL4*0ssHb&nRSk(PR&COG1eg~7E9U^ZEZ1;zox#oHAbYo zoU}voc6=Y-$*GmnBy@Z6J6~2{236e?XhYeqa?Rj&K`Fcv5r9Je2ZYr&g;!cHNxmYW zUHsh8r>t7rl6$D()t0JSbRXdJZg}H)mvuF+8Edo>$7i+F7VoRk&DK!#c5rz#d&!lO z#!y&`Pp}1^L4fg;xkOgSqSBKG$DsWJuMTM85e9&WMcv|yNyjA~^qgTmY|iHWmsquC zD$TZ*M28CKFp${^CS2gzX>m$(#XXDsPaWM7HXVEri66tXRTs$7bzVZ{1iX8Q8MUBL zZJsvc&OzRHg)L@9xdubUKm58)swoLh!1bS372E(ds(nYUHfm60LvCVoI5^Kwb*12h z21<1~wKAQ6*uMBXH)T`?71AwHzCI;P=I^a=5goF$`edbA(wB{c=#D*6EiRq9Nqbr{ zWVHlNCM{Hk1{t!z1D=fgNm$&y0}RI#?)Hs?_5_6V9{of#c>t?nl70t}Ftsx#!?ok| z(b0@*rdyH(1#@QtkOu|LAVSZr*w#btXbcq~iqftI)_1^}eh6)u(Nr9@VAXTp%UG#=H<(M5DL^;Q43vmvG(mSnV7`{7i``ghUdAk>Yz3}+IJwTR^M54oSSV7c)e>6h)%OY zOs>}Pk&75JAsrkL0>_BO{xGLRaMcN|A-L%WI09x~_x`CHZ5lRy;o2Ec2Hqeel{hX{ z^G;2*lsb$$V)JqYfp7)w#4Lsu&Bm*IxT6PuZB#aOs*n|V^mS4$G%&nP_LglKGPDHR%;79?1CyPf^PiuT-ej0=D zv0r^z9kWS&OYFvgY6LL)ELl-lYjO?=l9bMQh!R{utqO<)Hzf`(;A>QY5YwHeE^m1H z&3k}@4mvdi0I*cW;K{3b7&2*A*bv!%BauxV(=noX8dF@3;P75uTFnU}VC@93It|e! z^s86*1W{K6k#4x`0+LAUeQbY`tVCG1@oy+@)n%%psTf`ph<8wXU;FPymyu?fR=Hka zHSw;IK%9f)j2%KI-@s`yMigK5j9*=*&O9^EWm=ovyM~4VN^0IHq!HAn`G-*erG2uI zitYm@2!8*8^HiPvvZiVVctB#FXdp?_RDeQg*SK0qJ;4P68VS}knMZwRlV&miYoZnG zJ|ep;u;B?nqc|^uJOfu-oWLZ_Zu-x>JKqamWGl`^t1j+ETOOqL=B}YvKJoE@dekHJ zzVB-yg<5jNtRYfBkc6wX93m$bbOBvWV^h*WYVXrYzx7a4@Vu)0kPIk8Wtk|sqEe)> zXjz)FA)0&1e4xX(-&MX~Jdlf42(Cbr-`gpdg@9Rzt$n#$9D67u-Uvx~nQ9*wIBI}Yh{=(j9ET@FP! zcs$y( z2Og>fApj?R9f1zs5E^5SHl{7y%mw;i;n@W7l4__6nswAU4dNhXEKe5`wxdkXhGE=f zPaO%u*5N-5I$?Zx&pF4M7sw=cla5>SOPhK#M1ywZuBh$Ywng}5`LiI7%HE=_z-fmO zyh^?<9tW}dTX%a~&-J$6R4q;7UHZ2Bk)$;7v9wC%!9-sKEf(0DF^WaI}i|d@C5M$nlwEgCh%BA^n%{oAMuXjyoy_b zJPaMsCi;1}E?JaZB^rx>**;$^e+ z)+;1c`A_D23L}itK8dm3inA!;U!!Wj85yVeFz7L8XA`_6X%mZP;;%Kq5+EwK$kHe4 z$YYF}h{Sdz?tl0BA=Z|0CpK*yR5eP?>@?HD3WQbH?a?jJ;K58*TbE@@8>1`Jda?g`)K;G)`8Y2*m7%y0g zeUYhYq&uhSHmw$*)% z3`lt~Vb}b;+x@5`sxBAbvNJQ5Hc^s6n7iujn+JEJu537A@?hP7<|v=nyZYysCWmO# zV5wo%5l*f%0*V4hDyv~l2h2_;T`htG9S_~#>HGhkjTuF(lv5EBM-hgv%~ht4=?CnW z+({rxtzRj-UVdIb14O8w$_0xY^AL0H7B~HKs4F{gmfMjN>fOcmxW=}r07YKTRo`S#*(+TZ4Ht7jbJB;8i`lXzRb9{4lWxL)z6AOD+k>UY+v+fU8} z$E(}R)5qSF{Py-~fB)n|Q{Ilh( z%c@h}&Y7!^6&ZI`PoD5H%jh4!;F4q^`>E)m5dhDguUkH~{LXCVj;S5zJeYMqUNd-4 zC6CVZ?*CIk{`r$L-nUL(^6>KXqjyFRH4;d;t$aM$QoWg(0EsZRLkP-E_;{7Tl2LP7hNc!yW=PmUGSv11zd;4#SkgiA&ND`-tzfUP5{vZ zsKY?>Yh^PcxsPn+DhQOMrfXSvJVyXRw7GZZ57CUZ=SeO~&M|b^96`MuFp;3~Ak6tU zim@+b!86^Ej%nn_7bFK|MRmYG=*w{je1SZW%2)pWR`qH!;MM$0Ho$Z_3sy*g(_EYa zAz=A^(L2OMSSO_P%2)pELpl!!<&R3Cx*KEE(uf4R`X;V$1boiAD}uyA$dNquE9yWk z)d*FR^)%LJr9*I)f?Ry;`#gjuR>z>C45LyHUs=ktv2?L7ESHNv%4sYM5T}HU zJh-!|K@C6Lw!6odi57@K>jdNhM_)zjn4Ls14}P!XX6rCB{o>6b>0C2!(^VbA;-?I7|^ zA5qoQ=|_q(tIvYzf>8~b2E#Qd5$iG-`6d#KO`@#Z=>5j~wmB_RvSp-uq3)S$pvnSz zC1@s1Q|`)QyROIxxe1yIl__=-twmW`%EeEqgBrxnN55Q>L2bnQgWT#P-_*OAwg=VOUyW0k=%N`kULIW0k;X~`f<>0c64CTs9GFkRm6t0xF zE+qZUxgM*=zt75Y%H~`=`P!-Qz=C(pJGamABqUE_hPG_niOID*-kL6VB0_>>S{x~D0k0NMxua zhNtyNt>ms|Mm4c26b+Z6bQ~JEVXKXEYO?}t1DKu%Q5&5_J6mb#zdoW2?uW!6PI$f! zG@HXHp*ROI&zQFk)un|9*FJ5H z*)yUs)4+gn`ER)Ur9w@2M^)RncXr?G-dT82Uy3N>d z@grY~z6*#6PPi(9$6HG?o+Rq+o`C2hH6*-h@N}~6!+XZE*gg-L{1GW;KNl9?c zM#N5{^opLFQXc_Ezjy`{d~|FrQOV5bakS49EtN8~c)fajow|==PGHG*QwZfqTlm}( z@U6()qZ|xFqb)&`g8x`^gi%2|GkOzynsF({$)DRj75OR>dZ!xWAj~MX|DjDAZv6|n z^^HS}KCA!eZ|LdmO$12s1%lJ|JQI$-{b66&bC7oY%6tCw1z>yw$vo+JjCQV}42zVX zwKUotm+qbm4fkje!b)(43udx>b1AGw?`~AGSQ#%9A}x= zI;7J+g{pV`<6yrpyb?vH>6rm%WYZ(`12nOq#FC1f16fwkr9dkM6(_oUyZ6zB`ut*_W#fFuwPxzjetrVEW2e6zLIKpeuUx?GihNn5k*N{Ka@XV_yGCB;C zZ?uuEh@(ZX4$S{5qW42LTRh|zMONoqeFqms_Iwg!O{x3dpbe3R7t15hZ828410;p6 zF>&W|Aw}!@`ZUvbJF0J=eJK`!%<94(EU2YZS&c-sCX1;u7No)u3$-DD&VaiZzrj#r zpirrCyz6&YJPPZaxP>z$(TA%Gw=9_U z`6dRl9_oyEmo>iS6=Ue#s&d5*hz7yYF;sGplwW}e;I|jMB?<-x`M#bQidMy_hbzLaca@6E{7k_$;jA$O3fxu2?_GTNs={m8 zgvzy1A~k1sfGCm)>(;{W)9wu8F3;uqYtWb!#5DhBMk?NlaiMM-fE{t}y7UxhC-q+W zGi;Ez-d_S#cHvNjD+*g&0NyaTYa6hX0V8WD8Y}>mc-0X}p}>{izH9R_Jk2!$urCz) zq8Q}W1k>}MJ3o5Eve)DVGY1+$<)#MiRb<<4=?3>4YG8XcYc-y3Y&USQFjK4Anadtr zd$1A*tci<-)!dEPbNfPBw80lI4ma(c;X(H9VwXbQ};2>xCK!xREh#7aR~5_j$f`^0U%LTWH~A%)ulM%NRX4Ml$PvSl|b|+h2d) z+0fy|d?VN(mDjL2TrxngzBQMn6=Rki(dTP^(>r>GpFzDNS~(w(kza8##s$tIxm)9& ztSZL9=GJUGtR3QGhQT5$#K;YcnFYPMx!zrmpd@`Am%`W$D9?;MOGasP>e()2k&4Pf zRSK!8_xxX-A;Y3ZigR9*#cgpuBN~bG$fpb|32>UZ6I@v>gvZ`}ck|%zz^yE<0kI|$ z*C}_~bVh%e78#0Idp$CPJX~9{MSy4vZq=e&rA@Um?&6;O<^QL>qYaUx$o33#xxJvr z?y!lQc(^meMAtPK?$6!HA(>f6Smb`J;WXSGxQai7NF0B8!u`lhGHd2Mr^pMPP>$c)nkZJxa7i%EI3>W zod$3~1>OcPHRK@n_iG3>r+a~~C_x}S_gp9PFK$>TM#=K zbqP7}IS^E}u-CeQr^icU(Efuo!kmGuoq~HHkPok6Ye8w5K_a7c@aV-BPYo%k}HhvJaDnaT%eIT51wgj=At5qr`V$#xK3c6vaBOK64g!OH z>|ijBEm4LNRT6f;_=6#^q#ey#d~B0T8k43jV$ddrUZIq*eAI0M-tgjVq$!mT0A2XY zCRdL0-4%^RNrL@k9jCT3=vouFHWKcfncs7&Y9+XiCZfoRzq-=xttP6~AE-dPwL>i%?rm^#_E3}{Z+H&ZJ3mOVA= zW9Lo`f|P_APko^f0(!Q)`6)Rb3ffopTyGW$F^dGa#gZyqc-?o=Wcsm-7duHr;D(d{ zb@lBZIpP+FurrJ~Q6qpVJY1Z01)Yb37lV@W(b*>sd(zJ%tp$StI&xWpDmKa9`3(=_ zsQP@0PTW5Hj1G7-Ea(b60C<+A2nYTJ3?d5D8W9m$pvZ$mC0PitKNVgijB2Pi3cHSH zw{lEXO=^~IG9+%LYSshWRwp!LL8GT5NVBtowa*^?{hPCWQ3YSw#}V@e-|%F+)fkV!6GOmQJW+Q z_Klv&n*iNN^$P-i<$F0qQb9yQJ*%6gtzOfN#IT%fZ-YY_M1iu$HrAd$O4eg7$))?r z>ujuLjCU|T$QsC4%R)AkH8j|)t!0^+;u>q`K6tQs>8=~=w@$sx(w3IOOmE`L|tAl9;`Ud06H zi#vp!VlMR@IeslW6O7xbO}Isd86O?MiN}|G9#fsC2Y%3j*-o%*3XA7)RDhb zCDk;g3YT~o;24#6f@N`zNc=kz#i7H}^)XPZ6A>XT1S}()NUST{&4xC!lh8Hxs0ftI z^js@z4L!U4YF)$`Yp%2mlLk|jlJ6?HwN$JzIa z24w^td629WTRBE#6KjC0@b2@z7cqNzDtFjNwkcIW2`HNVN+^6FYBktLoHjyD7}*#f z9gA1mCiKfww9!HKhj)!t^T z=$b78{NK1bdZv_{(_wKgrHS%(CX&EKd(uk0n#(J2W- ziN12*;4EF*W+3Aj5|Xc`8%ox!l_#??uZ%j$yKvFK3lx$?Sw`mK; zK-~t9)U_lt$fGZhv7yr&Bgh))@i#_e%@2Do>0QpH-s$$1a;C_IkLe`5=Q*V6SC@Wl zbo4kKoouL4`!&*;&{tmr-I^#+Penvz5t`$XqHA77!AhE@L@wwA!!aFhA*|upHN`P7 zRytQAkMyl-x=k7iKQg0Z;~Kd$rQB%eaoTz4(9z8pnW3i3m{9m(j-_xyx7V|@2B&dC zpFUpqaS~j#%v?mPRQ8S1TfKkhSZ9C>#Sgm6(D= ziKJL~NBOnAB4u)47@^v)_&p+4_W$OZj!8}#@0UOd|f^@B0!+fnCh?L zYN=i*1TxozQEic#50iwnenj%fbg~E@C}(*t=p-GMA+vw=OS*knbJHSgN$AoQDlhcW zId|Rz-bo!)U|nayc8mpID3^S|Tfw6w>w8=>qukuI7`Ql6dXI~;^o#=>x@j@w*1b49 zZvNHhybrc27Ki{N`z{F+`f!L{co&h9F5uLCUN5FK`OA5BExcc zq6uu4#*l74NUGV5KniSNV|O2Fo5}j3v37jMn9}1+>0~Qni~5VP9WtHs+P}&LB?h4? zX6)6PBA9Mj!(N=%rZiW%X!nb}HYFNWv?~)@fU=gk{g%@B+WlwDT`p{*A=4U+9X;d> zrG`qJwH-aX`_Rqzz5n^{Df4}Au)|)1-}jbS?-xH7PsOKjY=srQ=(?@8((wmr?V8KKU5JciWXJ)aE_4kT%ma|`l#-s`xfo1WBSHcF7$0hq8`@LxT zUyfysZrs>xOoGorRIp$CDk@tq4@s+Hky}g9&79pdCc2pnsT3X8QD5G70l3lxu}}jg zuHq5eDOqK!UnxOiWo&K+1PA2odIxqK7iMm2&D5T$-rKi!%pI*_Pu^01Ps=r}*`l@3 zItiImW$W%xN{Q=QQ3Hp;~g6k2FmGqvr7rLj)^<(k#&vh0&B3(7p*ulH)FCKmer zgY$E<#Rt2Gn!vd21?%q8Z@+l-dVsBg`0g(BJMca?uyHb8nnR=PJZwjJ>HaSWyh@Ri z`j7!hoob>3))) +user_io( + .clk_sys (clk_sys ), + .conf_str (CONF_STR ), + .SPI_CLK (SPI_SCK ), + .SPI_SS_IO (CONF_DATA0 ), + .SPI_MISO (SPI_DO ), + .SPI_MOSI (SPI_DI ), + .buttons (buttons ), + .switches (switches ), + .scandoubler_disable (scandoublerD ), + .ypbpr (ypbpr ), + .key_strobe (key_strobe ), + .key_pressed (key_pressed ), + .key_code (key_code ), + .joystick_0 (joystick_0 ), + .joystick_1 (joystick_1 ), + .status (status ) + ); + +dac #( + .c_bits(7)) +dac ( + .clk_i(clk_sys), + .res_n_i(1), + .dac_i(audio), + .dac_o(AUDIO_L) + ); + + +reg btn_one_player = 0; +reg btn_two_players = 0; +reg btn_coin = 0; + +reg gun1_up = 0; +reg gun1_dw = 0; +reg gun2_up = 0; +reg gun2_dw = 0; + +always @(posedge clk_sys) begin + if(key_strobe) begin + case(key_code) + 'h76: btn_coin <= key_pressed; // ESC + 'h05: btn_one_player <= key_pressed; // F1 + 'h06: btn_two_players <= key_pressed; // F2 + 'h15: gun1_up <= key_pressed; // Q + 'h35: gun1_dw <= key_pressed; // Y + 'h75: gun2_up <= key_pressed; // Arrow up + 'h72: gun2_dw <= key_pressed; // Arrow down + endcase + end +end + +endmodule diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/GunFight_overlay.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/GunFight_overlay.vhd new file mode 100644 index 00000000..0bbba7ca --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/GunFight_overlay.vhd @@ -0,0 +1,127 @@ +library ieee; + use ieee.std_logic_1164.all; + use ieee.std_logic_unsigned.all; + use ieee.numeric_std.all; + + +entity GunFight_overlay is + port( + Video : in std_logic; + Overlay : in std_logic; + CLK : in std_logic; + Rst_n_s : in std_logic; + HSync : in std_logic; + VSync : in std_logic; + O_VIDEO_R : out std_logic; + O_VIDEO_G : out std_logic; + O_VIDEO_B : out std_logic; + O_HSYNC : out std_logic; + O_VSYNC : out std_logic + ); +end GunFight_overlay; + +architecture rtl of GunFight_overlay is + + signal HCnt : std_logic_vector(11 downto 0); + signal VCnt : std_logic_vector(11 downto 0); + signal HSync_t1 : std_logic; + signal Overlay_G1 : boolean; + signal Overlay_G2 : boolean; + signal Overlay_R1 : boolean; + signal Overlay_G1_VCnt : boolean; + signal VideoRGB : std_logic_vector(2 downto 0); +begin + process (Rst_n_s, Clk) + variable cnt : unsigned(3 downto 0); + begin + if Rst_n_s = '0' then + cnt := "0000"; + elsif Clk'event and Clk = '1' then + if cnt = 9 then + cnt := "0000"; + else + cnt := cnt + 1; + end if; + end if; + end process; + + p_overlay : process(Rst_n_s, Clk) + variable HStart : boolean; + begin + if Rst_n_s = '0' then + HCnt <= (others => '0'); + VCnt <= (others => '0'); + HSync_t1 <= '0'; + Overlay_G1_VCnt <= false; + Overlay_G1 <= false; + Overlay_G2 <= false; + Overlay_R1 <= false; + elsif Clk'event and Clk = '1' then + HSync_t1 <= HSync; + HStart := (HSync_t1 = '0') and (HSync = '1'); + + if HStart then + HCnt <= (others => '0'); + else + HCnt <= HCnt + "1"; + end if; + + if (VSync = '0') then + VCnt <= (others => '0'); + elsif HStart then + VCnt <= VCnt + "1"; + end if; + + if HStart then + if (Vcnt = x"1F") then + Overlay_G1_VCnt <= true; + elsif (Vcnt = x"95") then + Overlay_G1_VCnt <= false; + end if; + end if; + + if (HCnt = x"027") and Overlay_G1_VCnt then + Overlay_G1 <= true; + elsif (HCnt = x"046") then + Overlay_G1 <= false; + end if; + + if (HCnt = x"046") then + Overlay_G2 <= true; + elsif (HCnt = x"0B6") then + Overlay_G2 <= false; + end if; + + if (HCnt = x"1A6") then + Overlay_R1 <= true; + elsif (HCnt = x"1E6") then + Overlay_R1 <= false; + end if; + + end if; + end process; + + p_video_out_comb : process(Video, Overlay_G1, Overlay_G2, Overlay_R1) + begin + if (Video = '0') then + VideoRGB <= "000"; + else + if Overlay_G1 or Overlay_G2 then + VideoRGB <= "010"; + elsif Overlay_R1 then + VideoRGB <= "100"; + else + VideoRGB <= "111"; + end if; + end if; + end process; + + + O_VIDEO_R <= VideoRGB(2) when (Overlay = '1') else VideoRGB(0) or VideoRGB(1) or VideoRGB(2); + O_VIDEO_G <= VideoRGB(1) when (Overlay = '1') else VideoRGB(0) or VideoRGB(1) or VideoRGB(2); + O_VIDEO_B <= VideoRGB(0) when (Overlay = '1') else VideoRGB(0) or VideoRGB(1) or VideoRGB(2); + O_HSYNC <= HSync; + O_VSYNC <= VSync; + + +end; \ No newline at end of file diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80.vhd new file mode 100644 index 00000000..da01f6b4 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80.vhd @@ -0,0 +1,1080 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- +-- Ver 300 started tidyup. Rmoved some auto_wait bits from 0247 which caused problems +-- +-- MikeJ March 2005 +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- **** +-- +-- Z80 compatible microprocessor core +-- +-- Version : 0247 +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0208 : First complete release +-- +-- 0210 : Fixed wait and halt +-- +-- 0211 : Fixed Refresh addition and IM 1 +-- +-- 0214 : Fixed mostly flags, only the block instructions now fail the zex regression test +-- +-- 0232 : Removed refresh address output for Mode > 1 and added DJNZ M1_n fix by Mike Johnson +-- +-- 0235 : Added clock enable and IM 2 fix by Mike Johnson +-- +-- 0237 : Changed 8080 I/O address output, added IntE output +-- +-- 0238 : Fixed (IX/IY+d) timing and 16 bit ADC and SBC zero flag +-- +-- 0240 : Added interrupt ack fix by Mike Johnson, changed (IX/IY+d) timing and changed flags in GB mode +-- +-- 0242 : Added I/O wait, fixed refresh address, moved some registers to RAM +-- +-- 0247 : Fixed bus req/ack cycle +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; +use work.T80_Pack.all; + +entity T80 is + generic( + Mode : integer := 0; -- 0 => Z80, 1 => Fast Z80, 2 => 8080, 3 => GB + IOWait : integer := 0; -- 1 => Single cycle I/O, 1 => Std I/O cycle + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + RESET_n : in std_logic; + CLK_n : in std_logic; + CEN : in std_logic; + WAIT_n : in std_logic; + INT_n : in std_logic; + NMI_n : in std_logic; + BUSRQ_n : in std_logic; + M1_n : out std_logic; + IORQ : out std_logic; + NoRead : out std_logic; + Write : out std_logic; + RFSH_n : out std_logic; + HALT_n : out std_logic; + BUSAK_n : out std_logic; + A : out std_logic_vector(15 downto 0); + DInst : in std_logic_vector(7 downto 0); + DI : in std_logic_vector(7 downto 0); + DO : out std_logic_vector(7 downto 0); + MC : out std_logic_vector(2 downto 0); + TS : out std_logic_vector(2 downto 0); + IntCycle_n : out std_logic; + IntE : out std_logic; + Stop : out std_logic + ); +end T80; + +architecture rtl of T80 is + + constant aNone : std_logic_vector(2 downto 0) := "111"; + constant aBC : std_logic_vector(2 downto 0) := "000"; + constant aDE : std_logic_vector(2 downto 0) := "001"; + constant aXY : std_logic_vector(2 downto 0) := "010"; + constant aIOA : std_logic_vector(2 downto 0) := "100"; + constant aSP : std_logic_vector(2 downto 0) := "101"; + constant aZI : std_logic_vector(2 downto 0) := "110"; + + -- Registers + signal ACC, F : std_logic_vector(7 downto 0); + signal Ap, Fp : std_logic_vector(7 downto 0); + signal I : std_logic_vector(7 downto 0); + signal R : unsigned(7 downto 0); + signal SP, PC : unsigned(15 downto 0); + + signal RegDIH : std_logic_vector(7 downto 0); + signal RegDIL : std_logic_vector(7 downto 0); + signal RegBusA : std_logic_vector(15 downto 0); + signal RegBusB : std_logic_vector(15 downto 0); + signal RegBusC : std_logic_vector(15 downto 0); + signal RegAddrA_r : std_logic_vector(2 downto 0); + signal RegAddrA : std_logic_vector(2 downto 0); + signal RegAddrB_r : std_logic_vector(2 downto 0); + signal RegAddrB : std_logic_vector(2 downto 0); + signal RegAddrC : std_logic_vector(2 downto 0); + signal RegWEH : std_logic; + signal RegWEL : std_logic; + signal Alternate : std_logic; + + -- Help Registers + signal TmpAddr : std_logic_vector(15 downto 0); -- Temporary address register + signal IR : std_logic_vector(7 downto 0); -- Instruction register + signal ISet : std_logic_vector(1 downto 0); -- Instruction set selector + signal RegBusA_r : std_logic_vector(15 downto 0); + + signal ID16 : signed(15 downto 0); + signal Save_Mux : std_logic_vector(7 downto 0); + + signal TState : unsigned(2 downto 0); + signal MCycle : std_logic_vector(2 downto 0); + signal IntE_FF1 : std_logic; + signal IntE_FF2 : std_logic; + signal Halt_FF : std_logic; + signal BusReq_s : std_logic; + signal BusAck : std_logic; + signal ClkEn : std_logic; + signal NMI_s : std_logic; + signal INT_s : std_logic; + signal IStatus : std_logic_vector(1 downto 0); + + signal DI_Reg : std_logic_vector(7 downto 0); + signal T_Res : std_logic; + signal XY_State : std_logic_vector(1 downto 0); + signal Pre_XY_F_M : std_logic_vector(2 downto 0); + signal NextIs_XY_Fetch : std_logic; + signal XY_Ind : std_logic; + signal No_BTR : std_logic; + signal BTR_r : std_logic; + signal Auto_Wait : std_logic; + signal Auto_Wait_t1 : std_logic; + signal Auto_Wait_t2 : std_logic; + signal IncDecZ : std_logic; + + -- ALU signals + signal BusB : std_logic_vector(7 downto 0); + signal BusA : std_logic_vector(7 downto 0); + signal ALU_Q : std_logic_vector(7 downto 0); + signal F_Out : std_logic_vector(7 downto 0); + + -- Registered micro code outputs + signal Read_To_Reg_r : std_logic_vector(4 downto 0); + signal Arith16_r : std_logic; + signal Z16_r : std_logic; + signal ALU_Op_r : std_logic_vector(3 downto 0); + signal Save_ALU_r : std_logic; + signal PreserveC_r : std_logic; + signal MCycles : std_logic_vector(2 downto 0); + + -- Micro code outputs + signal MCycles_d : std_logic_vector(2 downto 0); + signal TStates : std_logic_vector(2 downto 0); + signal IntCycle : std_logic; + signal NMICycle : std_logic; + signal Inc_PC : std_logic; + signal Inc_WZ : std_logic; + signal IncDec_16 : std_logic_vector(3 downto 0); + signal Prefix : std_logic_vector(1 downto 0); + signal Read_To_Acc : std_logic; + signal Read_To_Reg : std_logic; + signal Set_BusB_To : std_logic_vector(3 downto 0); + signal Set_BusA_To : std_logic_vector(3 downto 0); + signal ALU_Op : std_logic_vector(3 downto 0); + signal Save_ALU : std_logic; + signal PreserveC : std_logic; + signal Arith16 : std_logic; + signal Set_Addr_To : std_logic_vector(2 downto 0); + signal Jump : std_logic; + signal JumpE : std_logic; + signal JumpXY : std_logic; + signal Call : std_logic; + signal RstP : std_logic; + signal LDZ : std_logic; + signal LDW : std_logic; + signal LDSPHL : std_logic; + signal IORQ_i : std_logic; + signal Special_LD : std_logic_vector(2 downto 0); + signal ExchangeDH : std_logic; + signal ExchangeRp : std_logic; + signal ExchangeAF : std_logic; + signal ExchangeRS : std_logic; + signal I_DJNZ : std_logic; + signal I_CPL : std_logic; + signal I_CCF : std_logic; + signal I_SCF : std_logic; + signal I_RETN : std_logic; + signal I_BT : std_logic; + signal I_BC : std_logic; + signal I_BTR : std_logic; + signal I_RLD : std_logic; + signal I_RRD : std_logic; + signal I_INRC : std_logic; + signal SetDI : std_logic; + signal SetEI : std_logic; + signal IMode : std_logic_vector(1 downto 0); + signal Halt : std_logic; + +begin + + mcode : T80_MCode + generic map( + Mode => Mode, + Flag_C => Flag_C, + Flag_N => Flag_N, + Flag_P => Flag_P, + Flag_X => Flag_X, + Flag_H => Flag_H, + Flag_Y => Flag_Y, + Flag_Z => Flag_Z, + Flag_S => Flag_S) + port map( + IR => IR, + ISet => ISet, + MCycle => MCycle, + F => F, + NMICycle => NMICycle, + IntCycle => IntCycle, + MCycles => MCycles_d, + TStates => TStates, + Prefix => Prefix, + Inc_PC => Inc_PC, + Inc_WZ => Inc_WZ, + IncDec_16 => IncDec_16, + Read_To_Acc => Read_To_Acc, + Read_To_Reg => Read_To_Reg, + Set_BusB_To => Set_BusB_To, + Set_BusA_To => Set_BusA_To, + ALU_Op => ALU_Op, + Save_ALU => Save_ALU, + PreserveC => PreserveC, + Arith16 => Arith16, + Set_Addr_To => Set_Addr_To, + IORQ => IORQ_i, + Jump => Jump, + JumpE => JumpE, + JumpXY => JumpXY, + Call => Call, + RstP => RstP, + LDZ => LDZ, + LDW => LDW, + LDSPHL => LDSPHL, + Special_LD => Special_LD, + ExchangeDH => ExchangeDH, + ExchangeRp => ExchangeRp, + ExchangeAF => ExchangeAF, + ExchangeRS => ExchangeRS, + I_DJNZ => I_DJNZ, + I_CPL => I_CPL, + I_CCF => I_CCF, + I_SCF => I_SCF, + I_RETN => I_RETN, + I_BT => I_BT, + I_BC => I_BC, + I_BTR => I_BTR, + I_RLD => I_RLD, + I_RRD => I_RRD, + I_INRC => I_INRC, + SetDI => SetDI, + SetEI => SetEI, + IMode => IMode, + Halt => Halt, + NoRead => NoRead, + Write => Write); + + alu : T80_ALU + generic map( + Mode => Mode, + Flag_C => Flag_C, + Flag_N => Flag_N, + Flag_P => Flag_P, + Flag_X => Flag_X, + Flag_H => Flag_H, + Flag_Y => Flag_Y, + Flag_Z => Flag_Z, + Flag_S => Flag_S) + port map( + Arith16 => Arith16_r, + Z16 => Z16_r, + ALU_Op => ALU_Op_r, + IR => IR(5 downto 0), + ISet => ISet, + BusA => BusA, + BusB => BusB, + F_In => F, + Q => ALU_Q, + F_Out => F_Out); + + ClkEn <= CEN and not BusAck; + + T_Res <= '1' when TState = unsigned(TStates) else '0'; + + NextIs_XY_Fetch <= '1' when XY_State /= "00" and XY_Ind = '0' and + ((Set_Addr_To = aXY) or + (MCycle = "001" and IR = "11001011") or + (MCycle = "001" and IR = "00110110")) else '0'; + + Save_Mux <= BusB when ExchangeRp = '1' else + DI_Reg when Save_ALU_r = '0' else + ALU_Q; + + process (RESET_n, CLK_n) + begin + if RESET_n = '0' then + PC <= (others => '0'); -- Program Counter + A <= (others => '0'); + TmpAddr <= (others => '0'); + IR <= "00000000"; + ISet <= "00"; + XY_State <= "00"; + IStatus <= "00"; + MCycles <= "000"; + DO <= "00000000"; + + ACC <= (others => '1'); + F <= (others => '1'); + Ap <= (others => '1'); + Fp <= (others => '1'); + I <= (others => '0'); + R <= (others => '0'); + SP <= (others => '1'); + Alternate <= '0'; + + Read_To_Reg_r <= "00000"; + F <= (others => '1'); + Arith16_r <= '0'; + BTR_r <= '0'; + Z16_r <= '0'; + ALU_Op_r <= "0000"; + Save_ALU_r <= '0'; + PreserveC_r <= '0'; + XY_Ind <= '0'; + + elsif CLK_n'event and CLK_n = '1' then + + if ClkEn = '1' then + + ALU_Op_r <= "0000"; + Save_ALU_r <= '0'; + Read_To_Reg_r <= "00000"; + + MCycles <= MCycles_d; + + if IMode /= "11" then + IStatus <= IMode; + end if; + + Arith16_r <= Arith16; + PreserveC_r <= PreserveC; + if ISet = "10" and ALU_OP(2) = '0' and ALU_OP(0) = '1' and MCycle = "011" then + Z16_r <= '1'; + else + Z16_r <= '0'; + end if; + + if MCycle = "001" and TState(2) = '0' then + -- MCycle = 1 and TState = 1, 2, or 3 + + if TState = 2 and Wait_n = '1' then + if Mode < 2 then + A(7 downto 0) <= std_logic_vector(R); + A(15 downto 8) <= I; + R(6 downto 0) <= R(6 downto 0) + 1; + end if; + + if Jump = '0' and Call = '0' and NMICycle = '0' and IntCycle = '0' and not (Halt_FF = '1' or Halt = '1') then + PC <= PC + 1; + end if; + + if IntCycle = '1' and IStatus = "01" then + IR <= "11111111"; + elsif Halt_FF = '1' or (IntCycle = '1' and IStatus = "10") or NMICycle = '1' then + IR <= "00000000"; + else + IR <= DInst; + end if; + + ISet <= "00"; + if Prefix /= "00" then + if Prefix = "11" then + if IR(5) = '1' then + XY_State <= "10"; + else + XY_State <= "01"; + end if; + else + if Prefix = "10" then + XY_State <= "00"; + XY_Ind <= '0'; + end if; + ISet <= Prefix; + end if; + else + XY_State <= "00"; + XY_Ind <= '0'; + end if; + end if; + + else + -- either (MCycle > 1) OR (MCycle = 1 AND TState > 3) + + if MCycle = "110" then + XY_Ind <= '1'; + if Prefix = "01" then + ISet <= "01"; + end if; + end if; + + if T_Res = '1' then + BTR_r <= (I_BT or I_BC or I_BTR) and not No_BTR; + if Jump = '1' then + A(15 downto 8) <= DI_Reg; + A(7 downto 0) <= TmpAddr(7 downto 0); + PC(15 downto 8) <= unsigned(DI_Reg); + PC(7 downto 0) <= unsigned(TmpAddr(7 downto 0)); + elsif JumpXY = '1' then + A <= RegBusC; + PC <= unsigned(RegBusC); + elsif Call = '1' or RstP = '1' then + A <= TmpAddr; + PC <= unsigned(TmpAddr); + elsif MCycle = MCycles and NMICycle = '1' then + A <= "0000000001100110"; + PC <= "0000000001100110"; + elsif MCycle = "011" and IntCycle = '1' and IStatus = "10" then + A(15 downto 8) <= I; + A(7 downto 0) <= TmpAddr(7 downto 0); + PC(15 downto 8) <= unsigned(I); + PC(7 downto 0) <= unsigned(TmpAddr(7 downto 0)); + else + case Set_Addr_To is + when aXY => + if XY_State = "00" then + A <= RegBusC; + else + if NextIs_XY_Fetch = '1' then + A <= std_logic_vector(PC); + else + A <= TmpAddr; + end if; + end if; + when aIOA => + if Mode = 3 then + -- Memory map I/O on GBZ80 + A(15 downto 8) <= (others => '1'); + elsif Mode = 2 then + -- Duplicate I/O address on 8080 + A(15 downto 8) <= DI_Reg; + else + A(15 downto 8) <= ACC; + end if; + A(7 downto 0) <= DI_Reg; + when aSP => + A <= std_logic_vector(SP); + when aBC => + if Mode = 3 and IORQ_i = '1' then + -- Memory map I/O on GBZ80 + A(15 downto 8) <= (others => '1'); + A(7 downto 0) <= RegBusC(7 downto 0); + else + A <= RegBusC; + end if; + when aDE => + A <= RegBusC; + when aZI => + if Inc_WZ = '1' then + A <= std_logic_vector(unsigned(TmpAddr) + 1); + else + A(15 downto 8) <= DI_Reg; + A(7 downto 0) <= TmpAddr(7 downto 0); + end if; + when others => + A <= std_logic_vector(PC); + end case; + end if; + + Save_ALU_r <= Save_ALU; + ALU_Op_r <= ALU_Op; + + if I_CPL = '1' then + -- CPL + ACC <= not ACC; + F(Flag_Y) <= not ACC(5); + F(Flag_H) <= '1'; + F(Flag_X) <= not ACC(3); + F(Flag_N) <= '1'; + end if; + if I_CCF = '1' then + -- CCF + F(Flag_C) <= not F(Flag_C); + F(Flag_Y) <= ACC(5); + F(Flag_H) <= F(Flag_C); + F(Flag_X) <= ACC(3); + F(Flag_N) <= '0'; + end if; + if I_SCF = '1' then + -- SCF + F(Flag_C) <= '1'; + F(Flag_Y) <= ACC(5); + F(Flag_H) <= '0'; + F(Flag_X) <= ACC(3); + F(Flag_N) <= '0'; + end if; + end if; + + if TState = 2 and Wait_n = '1' then + if ISet = "01" and MCycle = "111" then + IR <= DInst; + end if; + if JumpE = '1' then + PC <= unsigned(signed(PC) + signed(DI_Reg)); + elsif Inc_PC = '1' then + PC <= PC + 1; + end if; + if BTR_r = '1' then + PC <= PC - 2; + end if; + if RstP = '1' then + TmpAddr <= (others =>'0'); + TmpAddr(5 downto 3) <= IR(5 downto 3); + end if; + end if; + if TState = 3 and MCycle = "110" then + TmpAddr <= std_logic_vector(signed(RegBusC) + signed(DI_Reg)); + end if; + + if (TState = 2 and Wait_n = '1') or (TState = 4 and MCycle = "001") then + if IncDec_16(2 downto 0) = "111" then + if IncDec_16(3) = '1' then + SP <= SP - 1; + else + SP <= SP + 1; + end if; + end if; + end if; + + if LDSPHL = '1' then + SP <= unsigned(RegBusC); + end if; + if ExchangeAF = '1' then + Ap <= ACC; + ACC <= Ap; + Fp <= F; + F <= Fp; + end if; + if ExchangeRS = '1' then + Alternate <= not Alternate; + end if; + end if; + + if TState = 3 then + if LDZ = '1' then + TmpAddr(7 downto 0) <= DI_Reg; + end if; + if LDW = '1' then + TmpAddr(15 downto 8) <= DI_Reg; + end if; + + if Special_LD(2) = '1' then + case Special_LD(1 downto 0) is + when "00" => + ACC <= I; + F(Flag_P) <= IntE_FF2; + when "01" => + ACC <= std_logic_vector(R); + F(Flag_P) <= IntE_FF2; + when "10" => + I <= ACC; + when others => + R <= unsigned(ACC); + end case; + end if; + end if; + + if (I_DJNZ = '0' and Save_ALU_r = '1') or ALU_Op_r = "1001" then + if Mode = 3 then + F(6) <= F_Out(6); + F(5) <= F_Out(5); + F(7) <= F_Out(7); + if PreserveC_r = '0' then + F(4) <= F_Out(4); + end if; + else + F(7 downto 1) <= F_Out(7 downto 1); + if PreserveC_r = '0' then + F(Flag_C) <= F_Out(0); + end if; + end if; + end if; + if T_Res = '1' and I_INRC = '1' then + F(Flag_H) <= '0'; + F(Flag_N) <= '0'; + if DI_Reg(7 downto 0) = "00000000" then + F(Flag_Z) <= '1'; + else + F(Flag_Z) <= '0'; + end if; + F(Flag_S) <= DI_Reg(7); + F(Flag_P) <= not (DI_Reg(0) xor DI_Reg(1) xor DI_Reg(2) xor DI_Reg(3) xor + DI_Reg(4) xor DI_Reg(5) xor DI_Reg(6) xor DI_Reg(7)); + end if; + + if TState = 1 then + DO <= BusB; + if I_RLD = '1' then + DO(3 downto 0) <= BusA(3 downto 0); + DO(7 downto 4) <= BusB(3 downto 0); + end if; + if I_RRD = '1' then + DO(3 downto 0) <= BusB(7 downto 4); + DO(7 downto 4) <= BusA(3 downto 0); + end if; + end if; + + if T_Res = '1' then + Read_To_Reg_r(3 downto 0) <= Set_BusA_To; + Read_To_Reg_r(4) <= Read_To_Reg; + if Read_To_Acc = '1' then + Read_To_Reg_r(3 downto 0) <= "0111"; + Read_To_Reg_r(4) <= '1'; + end if; + end if; + + if TState = 1 and I_BT = '1' then + F(Flag_X) <= ALU_Q(3); + F(Flag_Y) <= ALU_Q(1); + F(Flag_H) <= '0'; + F(Flag_N) <= '0'; + end if; + if I_BC = '1' or I_BT = '1' then + F(Flag_P) <= IncDecZ; + end if; + + if (TState = 1 and Save_ALU_r = '0') or + (Save_ALU_r = '1' and ALU_OP_r /= "0111") then + case Read_To_Reg_r is + when "10111" => + ACC <= Save_Mux; + when "10110" => + DO <= Save_Mux; + when "11000" => + SP(7 downto 0) <= unsigned(Save_Mux); + when "11001" => + SP(15 downto 8) <= unsigned(Save_Mux); + when "11011" => + F <= Save_Mux; + when others => + end case; + end if; + + end if; + + end if; + + end process; + +--------------------------------------------------------------------------- +-- +-- BC('), DE('), HL('), IX and IY +-- +--------------------------------------------------------------------------- + process (CLK_n) + begin + if CLK_n'event and CLK_n = '1' then + if ClkEn = '1' then + -- Bus A / Write + RegAddrA_r <= Alternate & Set_BusA_To(2 downto 1); + if XY_Ind = '0' and XY_State /= "00" and Set_BusA_To(2 downto 1) = "10" then + RegAddrA_r <= XY_State(1) & "11"; + end if; + + -- Bus B + RegAddrB_r <= Alternate & Set_BusB_To(2 downto 1); + if XY_Ind = '0' and XY_State /= "00" and Set_BusB_To(2 downto 1) = "10" then + RegAddrB_r <= XY_State(1) & "11"; + end if; + + -- Address from register + RegAddrC <= Alternate & Set_Addr_To(1 downto 0); + -- Jump (HL), LD SP,HL + if (JumpXY = '1' or LDSPHL = '1') then + RegAddrC <= Alternate & "10"; + end if; + if ((JumpXY = '1' or LDSPHL = '1') and XY_State /= "00") or (MCycle = "110") then + RegAddrC <= XY_State(1) & "11"; + end if; + + if I_DJNZ = '1' and Save_ALU_r = '1' and Mode < 2 then + IncDecZ <= F_Out(Flag_Z); + end if; + if (TState = 2 or (TState = 3 and MCycle = "001")) and IncDec_16(2 downto 0) = "100" then + if ID16 = 0 then + IncDecZ <= '0'; + else + IncDecZ <= '1'; + end if; + end if; + + RegBusA_r <= RegBusA; + end if; + end if; + end process; + + RegAddrA <= + -- 16 bit increment/decrement + Alternate & IncDec_16(1 downto 0) when (TState = 2 or + (TState = 3 and MCycle = "001" and IncDec_16(2) = '1')) and XY_State = "00" else + XY_State(1) & "11" when (TState = 2 or + (TState = 3 and MCycle = "001" and IncDec_16(2) = '1')) and IncDec_16(1 downto 0) = "10" else + -- EX HL,DL + Alternate & "10" when ExchangeDH = '1' and TState = 3 else + Alternate & "01" when ExchangeDH = '1' and TState = 4 else + -- Bus A / Write + RegAddrA_r; + + RegAddrB <= + -- EX HL,DL + Alternate & "01" when ExchangeDH = '1' and TState = 3 else + -- Bus B + RegAddrB_r; + + ID16 <= signed(RegBusA) - 1 when IncDec_16(3) = '1' else + signed(RegBusA) + 1; + + process (Save_ALU_r, Auto_Wait_t1, ALU_OP_r, Read_To_Reg_r, + ExchangeDH, IncDec_16, MCycle, TState, Wait_n) + begin + RegWEH <= '0'; + RegWEL <= '0'; + if (TState = 1 and Save_ALU_r = '0') or + (Save_ALU_r = '1' and ALU_OP_r /= "0111") then + case Read_To_Reg_r is + when "10000" | "10001" | "10010" | "10011" | "10100" | "10101" => + RegWEH <= not Read_To_Reg_r(0); + RegWEL <= Read_To_Reg_r(0); + when others => + end case; + end if; + + if ExchangeDH = '1' and (TState = 3 or TState = 4) then + RegWEH <= '1'; + RegWEL <= '1'; + end if; + + if IncDec_16(2) = '1' and ((TState = 2 and Wait_n = '1' and MCycle /= "001") or (TState = 3 and MCycle = "001")) then + case IncDec_16(1 downto 0) is + when "00" | "01" | "10" => + RegWEH <= '1'; + RegWEL <= '1'; + when others => + end case; + end if; + end process; + + process (Save_Mux, RegBusB, RegBusA_r, ID16, + ExchangeDH, IncDec_16, MCycle, TState, Wait_n) + begin + RegDIH <= Save_Mux; + RegDIL <= Save_Mux; + + if ExchangeDH = '1' and TState = 3 then + RegDIH <= RegBusB(15 downto 8); + RegDIL <= RegBusB(7 downto 0); + end if; + if ExchangeDH = '1' and TState = 4 then + RegDIH <= RegBusA_r(15 downto 8); + RegDIL <= RegBusA_r(7 downto 0); + end if; + + if IncDec_16(2) = '1' and ((TState = 2 and MCycle /= "001") or (TState = 3 and MCycle = "001")) then + RegDIH <= std_logic_vector(ID16(15 downto 8)); + RegDIL <= std_logic_vector(ID16(7 downto 0)); + end if; + end process; + + Regs : T80_Reg + port map( + Clk => CLK_n, + CEN => ClkEn, + WEH => RegWEH, + WEL => RegWEL, + AddrA => RegAddrA, + AddrB => RegAddrB, + AddrC => RegAddrC, + DIH => RegDIH, + DIL => RegDIL, + DOAH => RegBusA(15 downto 8), + DOAL => RegBusA(7 downto 0), + DOBH => RegBusB(15 downto 8), + DOBL => RegBusB(7 downto 0), + DOCH => RegBusC(15 downto 8), + DOCL => RegBusC(7 downto 0)); + +--------------------------------------------------------------------------- +-- +-- Buses +-- +--------------------------------------------------------------------------- + process (CLK_n) + begin + if CLK_n'event and CLK_n = '1' then + if ClkEn = '1' then + case Set_BusB_To is + when "0111" => + BusB <= ACC; + when "0000" | "0001" | "0010" | "0011" | "0100" | "0101" => + if Set_BusB_To(0) = '1' then + BusB <= RegBusB(7 downto 0); + else + BusB <= RegBusB(15 downto 8); + end if; + when "0110" => + BusB <= DI_Reg; + when "1000" => + BusB <= std_logic_vector(SP(7 downto 0)); + when "1001" => + BusB <= std_logic_vector(SP(15 downto 8)); + when "1010" => + BusB <= "00000001"; + when "1011" => + BusB <= F; + when "1100" => + BusB <= std_logic_vector(PC(7 downto 0)); + when "1101" => + BusB <= std_logic_vector(PC(15 downto 8)); + when "1110" => + BusB <= "00000000"; + when others => + BusB <= "--------"; + end case; + + case Set_BusA_To is + when "0111" => + BusA <= ACC; + when "0000" | "0001" | "0010" | "0011" | "0100" | "0101" => + if Set_BusA_To(0) = '1' then + BusA <= RegBusA(7 downto 0); + else + BusA <= RegBusA(15 downto 8); + end if; + when "0110" => + BusA <= DI_Reg; + when "1000" => + BusA <= std_logic_vector(SP(7 downto 0)); + when "1001" => + BusA <= std_logic_vector(SP(15 downto 8)); + when "1010" => + BusA <= "00000000"; + when others => + BusB <= "--------"; + end case; + end if; + end if; + end process; + +--------------------------------------------------------------------------- +-- +-- Generate external control signals +-- +--------------------------------------------------------------------------- + process (RESET_n,CLK_n) + begin + if RESET_n = '0' then + RFSH_n <= '1'; + elsif CLK_n'event and CLK_n = '1' then + if CEN = '1' then + if MCycle = "001" and ((TState = 2 and Wait_n = '1') or TState = 3) then + RFSH_n <= '0'; + else + RFSH_n <= '1'; + end if; + end if; + end if; + end process; + + MC <= std_logic_vector(MCycle); + TS <= std_logic_vector(TState); + DI_Reg <= DI; + HALT_n <= not Halt_FF; + BUSAK_n <= not BusAck; + IntCycle_n <= not IntCycle; + IntE <= IntE_FF1; + IORQ <= IORQ_i; + Stop <= I_DJNZ; + +------------------------------------------------------------------------- +-- +-- Syncronise inputs +-- +------------------------------------------------------------------------- + process (RESET_n, CLK_n) + variable OldNMI_n : std_logic; + begin + if RESET_n = '0' then + BusReq_s <= '0'; + INT_s <= '0'; + NMI_s <= '0'; + OldNMI_n := '0'; + elsif CLK_n'event and CLK_n = '1' then + if CEN = '1' then + BusReq_s <= not BUSRQ_n; + INT_s <= not INT_n; + if NMICycle = '1' then + NMI_s <= '0'; + elsif NMI_n = '0' and OldNMI_n = '1' then + NMI_s <= '1'; + end if; + OldNMI_n := NMI_n; + end if; + end if; + end process; + +------------------------------------------------------------------------- +-- +-- Main state machine +-- +------------------------------------------------------------------------- + process (RESET_n, CLK_n) + begin + if RESET_n = '0' then + MCycle <= "001"; + TState <= "000"; + Pre_XY_F_M <= "000"; + Halt_FF <= '0'; + BusAck <= '0'; + NMICycle <= '0'; + IntCycle <= '0'; + IntE_FF1 <= '0'; + IntE_FF2 <= '0'; + No_BTR <= '0'; + Auto_Wait_t1 <= '0'; + Auto_Wait_t2 <= '0'; + M1_n <= '1'; + elsif CLK_n'event and CLK_n = '1' then + if CEN = '1' then + Auto_Wait_t1 <= Auto_Wait; + Auto_Wait_t2 <= Auto_Wait_t1; + No_BTR <= (I_BT and (not IR(4) or not F(Flag_P))) or + (I_BC and (not IR(4) or F(Flag_Z) or not F(Flag_P))) or + (I_BTR and (not IR(4) or F(Flag_Z))); + if TState = 2 then + if SetEI = '1' then + IntE_FF1 <= '1'; + IntE_FF2 <= '1'; + end if; + if I_RETN = '1' then + IntE_FF1 <= IntE_FF2; + end if; + end if; + if TState = 3 then + if SetDI = '1' then + IntE_FF1 <= '0'; + IntE_FF2 <= '0'; + end if; + end if; + if IntCycle = '1' or NMICycle = '1' then + Halt_FF <= '0'; + end if; + if MCycle = "001" and TState = 2 and Wait_n = '1' then + M1_n <= '1'; + end if; + if BusReq_s = '1' and BusAck = '1' then + else + BusAck <= '0'; + if TState = 2 and Wait_n = '0' then + elsif T_Res = '1' then + if Halt = '1' then + Halt_FF <= '1'; + end if; + if BusReq_s = '1' then + BusAck <= '1'; + else + TState <= "001"; + if NextIs_XY_Fetch = '1' then + MCycle <= "110"; + Pre_XY_F_M <= MCycle; + if IR = "00110110" and Mode = 0 then + Pre_XY_F_M <= "010"; + end if; + elsif (MCycle = "111") or + (MCycle = "110" and Mode = 1 and ISet /= "01") then + MCycle <= std_logic_vector(unsigned(Pre_XY_F_M) + 1); + elsif (MCycle = MCycles) or + No_BTR = '1' or + (MCycle = "010" and I_DJNZ = '1' and IncDecZ = '1') then + M1_n <= '0'; + MCycle <= "001"; + IntCycle <= '0'; + NMICycle <= '0'; + if NMI_s = '1' and Prefix = "00" then + NMICycle <= '1'; + IntE_FF1 <= '0'; + elsif (IntE_FF1 = '1' and INT_s = '1') and Prefix = "00" and SetEI = '0' then + IntCycle <= '1'; + IntE_FF1 <= '0'; + IntE_FF2 <= '0'; + end if; + else + MCycle <= std_logic_vector(unsigned(MCycle) + 1); + end if; + end if; + else + if Auto_Wait = '1' nand Auto_Wait_t2 = '0' then + + TState <= TState + 1; + end if; + end if; + end if; + if TState = 0 then + M1_n <= '0'; + end if; + end if; + end if; + end process; + + process (IntCycle, NMICycle, MCycle) + begin + Auto_Wait <= '0'; + if IntCycle = '1' or NMICycle = '1' then + if MCycle = "001" then + Auto_Wait <= '1'; + end if; + end if; + end process; + +end; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T8080se.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T8080se.vhd new file mode 100644 index 00000000..65b92d54 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T8080se.vhd @@ -0,0 +1,194 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- +-- Ver 300 started tidyup +-- MikeJ March 2005 +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- **** +-- +-- 8080 compatible microprocessor core, synchronous top level with clock enable +-- Different timing than the original 8080 +-- Inputs needs to be synchronous and outputs may glitch +-- +-- Version : 0242 +-- +-- Copyright (c) 2002 Daniel Wallner (jesus@opencores.org) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- STACK status output not supported +-- +-- File history : +-- +-- 0237 : First version +-- +-- 0238 : Updated for T80 interface change +-- +-- 0240 : Updated for T80 interface change +-- +-- 0242 : Updated for T80 interface change +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; +use work.T80_Pack.all; + +entity T8080se is + generic( + Mode : integer := 2; -- 0 => Z80, 1 => Fast Z80, 2 => 8080, 3 => GB + T2Write : integer := 0 -- 0 => WR_n active in T3, /=0 => WR_n active in T2 + ); + port( + RESET_n : in std_logic; + CLK : in std_logic; + CLKEN : in std_logic; + READY : in std_logic; + HOLD : in std_logic; + INT : in std_logic; + INTE : out std_logic; + DBIN : out std_logic; + SYNC : out std_logic; + VAIT : out std_logic; + HLDA : out std_logic; + WR_n : out std_logic; + A : out std_logic_vector(15 downto 0); + DI : in std_logic_vector(7 downto 0); + DO : out std_logic_vector(7 downto 0) + ); +end T8080se; + +architecture rtl of T8080se is + + signal IntCycle_n : std_logic; + signal NoRead : std_logic; + signal Write : std_logic; + signal IORQ : std_logic; + signal INT_n : std_logic; + signal HALT_n : std_logic; + signal BUSRQ_n : std_logic; + signal BUSAK_n : std_logic; + signal DO_i : std_logic_vector(7 downto 0); + signal DI_Reg : std_logic_vector(7 downto 0); + signal MCycle : std_logic_vector(2 downto 0); + signal TState : std_logic_vector(2 downto 0); + signal One : std_logic; + +begin + + INT_n <= not INT; + BUSRQ_n <= HOLD; + HLDA <= not BUSAK_n; + SYNC <= '1' when TState = "001" else '0'; + VAIT <= '1' when TState = "010" else '0'; + One <= '1'; + + DO(0) <= not IntCycle_n when TState = "001" else DO_i(0); -- INTA + DO(1) <= Write when TState = "001" else DO_i(1); -- WO_n + DO(2) <= DO_i(2); -- STACK not supported !!!!!!!!!! + DO(3) <= not HALT_n when TState = "001" else DO_i(3); -- HLTA + DO(4) <= IORQ and Write when TState = "001" else DO_i(4); -- OUT + DO(5) <= DO_i(5) when TState /= "001" else '1' when MCycle = "001" else '0'; -- M1 + DO(6) <= IORQ and not Write when TState = "001" else DO_i(6); -- INP + DO(7) <= not IORQ and not Write and IntCycle_n when TState = "001" else DO_i(7); -- MEMR + + u0 : T80 + generic map( + Mode => Mode, + IOWait => 0) + port map( + CEN => CLKEN, + M1_n => open, + IORQ => IORQ, + NoRead => NoRead, + Write => Write, + RFSH_n => open, + HALT_n => HALT_n, + WAIT_n => READY, + INT_n => INT_n, + NMI_n => One, + RESET_n => RESET_n, + BUSRQ_n => One, + BUSAK_n => BUSAK_n, + CLK_n => CLK, + A => A, + DInst => DI, + DI => DI_Reg, + DO => DO_i, + MC => MCycle, + TS => TState, + IntCycle_n => IntCycle_n, + IntE => INTE); + + process (RESET_n, CLK) + begin + if RESET_n = '0' then + DBIN <= '0'; + WR_n <= '1'; + DI_Reg <= "00000000"; + elsif CLK'event and CLK = '1' then + if CLKEN = '1' then + DBIN <= '0'; + WR_n <= '1'; + if MCycle = "001" then + if TState = "001" or (TState = "010" and READY = '0') then + DBIN <= IntCycle_n; + end if; + else + if (TState = "001" or (TState = "010" and READY = '0')) and NoRead = '0' and Write = '0' then + DBIN <= '1'; + end if; + if T2Write = 0 then + if TState = "010" and Write = '1' then + WR_n <= '0'; + end if; + else + if (TState = "001" or (TState = "010" and READY = '0')) and Write = '1' then + WR_n <= '0'; + end if; + end if; + end if; + if TState = "010" and READY = '1' then + DI_Reg <= DI; + end if; + end if; + end if; + end process; + +end; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_ALU.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_ALU.vhd new file mode 100644 index 00000000..e09def1e --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_ALU.vhd @@ -0,0 +1,361 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- +-- Ver 300 started tidyup +-- MikeJ March 2005 +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- **** +-- +-- Z80 compatible microprocessor core +-- +-- Version : 0247 +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0214 : Fixed mostly flags, only the block instructions now fail the zex regression test +-- +-- 0238 : Fixed zero flag for 16 bit SBC and ADC +-- +-- 0240 : Added GB operations +-- +-- 0242 : Cleanup +-- +-- 0247 : Cleanup +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; + +entity T80_ALU is + generic( + Mode : integer := 0; + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + Arith16 : in std_logic; + Z16 : in std_logic; + ALU_Op : in std_logic_vector(3 downto 0); + IR : in std_logic_vector(5 downto 0); + ISet : in std_logic_vector(1 downto 0); + BusA : in std_logic_vector(7 downto 0); + BusB : in std_logic_vector(7 downto 0); + F_In : in std_logic_vector(7 downto 0); + Q : out std_logic_vector(7 downto 0); + F_Out : out std_logic_vector(7 downto 0) + ); +end T80_ALU; + +architecture rtl of T80_ALU is + + procedure AddSub(A : std_logic_vector; + B : std_logic_vector; + Sub : std_logic; + Carry_In : std_logic; + signal Res : out std_logic_vector; + signal Carry : out std_logic) is + + variable B_i : unsigned(A'length - 1 downto 0); + variable Res_i : unsigned(A'length + 1 downto 0); + begin + if Sub = '1' then + B_i := not unsigned(B); + else + B_i := unsigned(B); + end if; + + Res_i := unsigned("0" & A & Carry_In) + unsigned("0" & B_i & "1"); + Carry <= Res_i(A'length + 1); + Res <= std_logic_vector(Res_i(A'length downto 1)); + end; + + -- AddSub variables (temporary signals) + signal UseCarry : std_logic; + signal Carry7_v : std_logic; + signal Overflow_v : std_logic; + signal HalfCarry_v : std_logic; + signal Carry_v : std_logic; + signal Q_v : std_logic_vector(7 downto 0); + + signal BitMask : std_logic_vector(7 downto 0); + +begin + + with IR(5 downto 3) select BitMask <= "00000001" when "000", + "00000010" when "001", + "00000100" when "010", + "00001000" when "011", + "00010000" when "100", + "00100000" when "101", + "01000000" when "110", + "10000000" when others; + + UseCarry <= not ALU_Op(2) and ALU_Op(0); + AddSub(BusA(3 downto 0), BusB(3 downto 0), ALU_Op(1), ALU_Op(1) xor (UseCarry and F_In(Flag_C)), Q_v(3 downto 0), HalfCarry_v); + AddSub(BusA(6 downto 4), BusB(6 downto 4), ALU_Op(1), HalfCarry_v, Q_v(6 downto 4), Carry7_v); + AddSub(BusA(7 downto 7), BusB(7 downto 7), ALU_Op(1), Carry7_v, Q_v(7 downto 7), Carry_v); + OverFlow_v <= Carry_v xor Carry7_v; + + process (Arith16, ALU_OP, F_In, BusA, BusB, IR, Q_v, Carry_v, HalfCarry_v, OverFlow_v, BitMask, ISet, Z16) + variable Q_t : std_logic_vector(7 downto 0); + variable DAA_Q : unsigned(8 downto 0); + begin + Q_t := "--------"; + F_Out <= F_In; + DAA_Q := "---------"; + case ALU_Op is + when "0000" | "0001" | "0010" | "0011" | "0100" | "0101" | "0110" | "0111" => + F_Out(Flag_N) <= '0'; + F_Out(Flag_C) <= '0'; + case ALU_OP(2 downto 0) is + when "000" | "001" => -- ADD, ADC + Q_t := Q_v; + F_Out(Flag_C) <= Carry_v; + F_Out(Flag_H) <= HalfCarry_v; + F_Out(Flag_P) <= OverFlow_v; + when "010" | "011" | "111" => -- SUB, SBC, CP + Q_t := Q_v; + F_Out(Flag_N) <= '1'; + F_Out(Flag_C) <= not Carry_v; + F_Out(Flag_H) <= not HalfCarry_v; + F_Out(Flag_P) <= OverFlow_v; + when "100" => -- AND + Q_t(7 downto 0) := BusA and BusB; + F_Out(Flag_H) <= '1'; + when "101" => -- XOR + Q_t(7 downto 0) := BusA xor BusB; + F_Out(Flag_H) <= '0'; + when others => -- OR "110" + Q_t(7 downto 0) := BusA or BusB; + F_Out(Flag_H) <= '0'; + end case; + if ALU_Op(2 downto 0) = "111" then -- CP + F_Out(Flag_X) <= BusB(3); + F_Out(Flag_Y) <= BusB(5); + else + F_Out(Flag_X) <= Q_t(3); + F_Out(Flag_Y) <= Q_t(5); + end if; + if Q_t(7 downto 0) = "00000000" then + F_Out(Flag_Z) <= '1'; + if Z16 = '1' then + F_Out(Flag_Z) <= F_In(Flag_Z); -- 16 bit ADC,SBC + end if; + else + F_Out(Flag_Z) <= '0'; + end if; + F_Out(Flag_S) <= Q_t(7); + case ALU_Op(2 downto 0) is + when "000" | "001" | "010" | "011" | "111" => -- ADD, ADC, SUB, SBC, CP + when others => + F_Out(Flag_P) <= not (Q_t(0) xor Q_t(1) xor Q_t(2) xor Q_t(3) xor + Q_t(4) xor Q_t(5) xor Q_t(6) xor Q_t(7)); + end case; + if Arith16 = '1' then + F_Out(Flag_S) <= F_In(Flag_S); + F_Out(Flag_Z) <= F_In(Flag_Z); + F_Out(Flag_P) <= F_In(Flag_P); + end if; + when "1100" => + -- DAA + F_Out(Flag_H) <= F_In(Flag_H); + F_Out(Flag_C) <= F_In(Flag_C); + DAA_Q(7 downto 0) := unsigned(BusA); + DAA_Q(8) := '0'; + if F_In(Flag_N) = '0' then + -- After addition + -- Alow > 9 or H = 1 + if DAA_Q(3 downto 0) > 9 or F_In(Flag_H) = '1' then + if (DAA_Q(3 downto 0) > 9) then + F_Out(Flag_H) <= '1'; + else + F_Out(Flag_H) <= '0'; + end if; + DAA_Q := DAA_Q + 6; + end if; + -- new Ahigh > 9 or C = 1 + if DAA_Q(8 downto 4) > 9 or F_In(Flag_C) = '1' then + DAA_Q := DAA_Q + 96; -- 0x60 + end if; + else + -- After subtraction + if DAA_Q(3 downto 0) > 9 or F_In(Flag_H) = '1' then + if DAA_Q(3 downto 0) > 5 then + F_Out(Flag_H) <= '0'; + end if; + DAA_Q(7 downto 0) := DAA_Q(7 downto 0) - 6; + end if; + if unsigned(BusA) > 153 or F_In(Flag_C) = '1' then + DAA_Q := DAA_Q - 352; -- 0x160 + end if; + end if; + F_Out(Flag_X) <= DAA_Q(3); + F_Out(Flag_Y) <= DAA_Q(5); + F_Out(Flag_C) <= F_In(Flag_C) or DAA_Q(8); + Q_t := std_logic_vector(DAA_Q(7 downto 0)); + if DAA_Q(7 downto 0) = "00000000" then + F_Out(Flag_Z) <= '1'; + else + F_Out(Flag_Z) <= '0'; + end if; + F_Out(Flag_S) <= DAA_Q(7); + F_Out(Flag_P) <= not (DAA_Q(0) xor DAA_Q(1) xor DAA_Q(2) xor DAA_Q(3) xor + DAA_Q(4) xor DAA_Q(5) xor DAA_Q(6) xor DAA_Q(7)); + when "1101" | "1110" => + -- RLD, RRD + Q_t(7 downto 4) := BusA(7 downto 4); + if ALU_Op(0) = '1' then + Q_t(3 downto 0) := BusB(7 downto 4); + else + Q_t(3 downto 0) := BusB(3 downto 0); + end if; + F_Out(Flag_H) <= '0'; + F_Out(Flag_N) <= '0'; + F_Out(Flag_X) <= Q_t(3); + F_Out(Flag_Y) <= Q_t(5); + if Q_t(7 downto 0) = "00000000" then + F_Out(Flag_Z) <= '1'; + else + F_Out(Flag_Z) <= '0'; + end if; + F_Out(Flag_S) <= Q_t(7); + F_Out(Flag_P) <= not (Q_t(0) xor Q_t(1) xor Q_t(2) xor Q_t(3) xor + Q_t(4) xor Q_t(5) xor Q_t(6) xor Q_t(7)); + when "1001" => + -- BIT + Q_t(7 downto 0) := BusB and BitMask; + F_Out(Flag_S) <= Q_t(7); + if Q_t(7 downto 0) = "00000000" then + F_Out(Flag_Z) <= '1'; + F_Out(Flag_P) <= '1'; + else + F_Out(Flag_Z) <= '0'; + F_Out(Flag_P) <= '0'; + end if; + F_Out(Flag_H) <= '1'; + F_Out(Flag_N) <= '0'; + F_Out(Flag_X) <= '0'; + F_Out(Flag_Y) <= '0'; + if IR(2 downto 0) /= "110" then + F_Out(Flag_X) <= BusB(3); + F_Out(Flag_Y) <= BusB(5); + end if; + when "1010" => + -- SET + Q_t(7 downto 0) := BusB or BitMask; + when "1011" => + -- RES + Q_t(7 downto 0) := BusB and not BitMask; + when "1000" => + -- ROT + case IR(5 downto 3) is + when "000" => -- RLC + Q_t(7 downto 1) := BusA(6 downto 0); + Q_t(0) := BusA(7); + F_Out(Flag_C) <= BusA(7); + when "010" => -- RL + Q_t(7 downto 1) := BusA(6 downto 0); + Q_t(0) := F_In(Flag_C); + F_Out(Flag_C) <= BusA(7); + when "001" => -- RRC + Q_t(6 downto 0) := BusA(7 downto 1); + Q_t(7) := BusA(0); + F_Out(Flag_C) <= BusA(0); + when "011" => -- RR + Q_t(6 downto 0) := BusA(7 downto 1); + Q_t(7) := F_In(Flag_C); + F_Out(Flag_C) <= BusA(0); + when "100" => -- SLA + Q_t(7 downto 1) := BusA(6 downto 0); + Q_t(0) := '0'; + F_Out(Flag_C) <= BusA(7); + when "110" => -- SLL (Undocumented) / SWAP + if Mode = 3 then + Q_t(7 downto 4) := BusA(3 downto 0); + Q_t(3 downto 0) := BusA(7 downto 4); + F_Out(Flag_C) <= '0'; + else + Q_t(7 downto 1) := BusA(6 downto 0); + Q_t(0) := '1'; + F_Out(Flag_C) <= BusA(7); + end if; + when "101" => -- SRA + Q_t(6 downto 0) := BusA(7 downto 1); + Q_t(7) := BusA(7); + F_Out(Flag_C) <= BusA(0); + when others => -- SRL + Q_t(6 downto 0) := BusA(7 downto 1); + Q_t(7) := '0'; + F_Out(Flag_C) <= BusA(0); + end case; + F_Out(Flag_H) <= '0'; + F_Out(Flag_N) <= '0'; + F_Out(Flag_X) <= Q_t(3); + F_Out(Flag_Y) <= Q_t(5); + F_Out(Flag_S) <= Q_t(7); + if Q_t(7 downto 0) = "00000000" then + F_Out(Flag_Z) <= '1'; + else + F_Out(Flag_Z) <= '0'; + end if; + F_Out(Flag_P) <= not (Q_t(0) xor Q_t(1) xor Q_t(2) xor Q_t(3) xor + Q_t(4) xor Q_t(5) xor Q_t(6) xor Q_t(7)); + if ISet = "00" then + F_Out(Flag_P) <= F_In(Flag_P); + F_Out(Flag_S) <= F_In(Flag_S); + F_Out(Flag_Z) <= F_In(Flag_Z); + end if; + when others => + null; + end case; + Q <= Q_t; + end process; +end; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_MCode.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_MCode.vhd new file mode 100644 index 00000000..43cea1b5 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_MCode.vhd @@ -0,0 +1,1944 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- +-- Ver 300 started tidyup +-- MikeJ March 2005 +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- **** +-- +-- Z80 compatible microprocessor core +-- +-- Version : 0242 +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0208 : First complete release +-- +-- 0211 : Fixed IM 1 +-- +-- 0214 : Fixed mostly flags, only the block instructions now fail the zex regression test +-- +-- 0235 : Added IM 2 fix by Mike Johnson +-- +-- 0238 : Added NoRead signal +-- +-- 0238b: Fixed instruction timing for POP and DJNZ +-- +-- 0240 : Added (IX/IY+d) states, removed op-codes from mode 2 and added all remaining mode 3 op-codes + +-- 0240mj1 fix for HL inc/dec for INI, IND, INIR, INDR, OUTI, OUTD, OTIR, OTDR +-- +-- 0242 : Fixed I/O instruction timing, cleanup +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; +use work.T80_Pack.all; + +entity T80_MCode is + generic( + Mode : integer := 0; + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + IR : in std_logic_vector(7 downto 0); + ISet : in std_logic_vector(1 downto 0); + MCycle : in std_logic_vector(2 downto 0); + F : in std_logic_vector(7 downto 0); + NMICycle : in std_logic; + IntCycle : in std_logic; + MCycles : out std_logic_vector(2 downto 0); + TStates : out std_logic_vector(2 downto 0); + Prefix : out std_logic_vector(1 downto 0); -- None,BC,ED,DD/FD + Inc_PC : out std_logic; + Inc_WZ : out std_logic; + IncDec_16 : out std_logic_vector(3 downto 0); -- BC,DE,HL,SP 0 is inc + Read_To_Reg : out std_logic; + Read_To_Acc : out std_logic; + Set_BusA_To : out std_logic_vector(3 downto 0); -- B,C,D,E,H,L,DI/DB,A,SP(L),SP(M),0,F + Set_BusB_To : out std_logic_vector(3 downto 0); -- B,C,D,E,H,L,DI,A,SP(L),SP(M),1,F,PC(L),PC(M),0 + ALU_Op : out std_logic_vector(3 downto 0); + -- ADD, ADC, SUB, SBC, AND, XOR, OR, CP, ROT, BIT, SET, RES, DAA, RLD, RRD, None + Save_ALU : out std_logic; + PreserveC : out std_logic; + Arith16 : out std_logic; + Set_Addr_To : out std_logic_vector(2 downto 0); -- aNone,aXY,aIOA,aSP,aBC,aDE,aZI + IORQ : out std_logic; + Jump : out std_logic; + JumpE : out std_logic; + JumpXY : out std_logic; + Call : out std_logic; + RstP : out std_logic; + LDZ : out std_logic; + LDW : out std_logic; + LDSPHL : out std_logic; + Special_LD : out std_logic_vector(2 downto 0); -- A,I;A,R;I,A;R,A;None + ExchangeDH : out std_logic; + ExchangeRp : out std_logic; + ExchangeAF : out std_logic; + ExchangeRS : out std_logic; + I_DJNZ : out std_logic; + I_CPL : out std_logic; + I_CCF : out std_logic; + I_SCF : out std_logic; + I_RETN : out std_logic; + I_BT : out std_logic; + I_BC : out std_logic; + I_BTR : out std_logic; + I_RLD : out std_logic; + I_RRD : out std_logic; + I_INRC : out std_logic; + SetDI : out std_logic; + SetEI : out std_logic; + IMode : out std_logic_vector(1 downto 0); + Halt : out std_logic; + NoRead : out std_logic; + Write : out std_logic + ); +end T80_MCode; + +architecture rtl of T80_MCode is + + constant aNone : std_logic_vector(2 downto 0) := "111"; + constant aBC : std_logic_vector(2 downto 0) := "000"; + constant aDE : std_logic_vector(2 downto 0) := "001"; + constant aXY : std_logic_vector(2 downto 0) := "010"; + constant aIOA : std_logic_vector(2 downto 0) := "100"; + constant aSP : std_logic_vector(2 downto 0) := "101"; + constant aZI : std_logic_vector(2 downto 0) := "110"; + + function is_cc_true( + F : std_logic_vector(7 downto 0); + cc : bit_vector(2 downto 0) + ) return boolean is + begin + if Mode = 3 then + case cc is + when "000" => return F(7) = '0'; -- NZ + when "001" => return F(7) = '1'; -- Z + when "010" => return F(4) = '0'; -- NC + when "011" => return F(4) = '1'; -- C + when "100" => return false; + when "101" => return false; + when "110" => return false; + when "111" => return false; + end case; + else + case cc is + when "000" => return F(6) = '0'; -- NZ + when "001" => return F(6) = '1'; -- Z + when "010" => return F(0) = '0'; -- NC + when "011" => return F(0) = '1'; -- C + when "100" => return F(2) = '0'; -- PO + when "101" => return F(2) = '1'; -- PE + when "110" => return F(7) = '0'; -- P + when "111" => return F(7) = '1'; -- M + end case; + end if; + end; + +begin + + process (IR, ISet, MCycle, F, NMICycle, IntCycle) + variable DDD : std_logic_vector(2 downto 0); + variable SSS : std_logic_vector(2 downto 0); + variable DPair : std_logic_vector(1 downto 0); + variable IRB : bit_vector(7 downto 0); + begin + DDD := IR(5 downto 3); + SSS := IR(2 downto 0); + DPair := IR(5 downto 4); + IRB := to_bitvector(IR); + + MCycles <= "001"; + if MCycle = "001" then + TStates <= "100"; + else + TStates <= "011"; + end if; + Prefix <= "00"; + Inc_PC <= '0'; + Inc_WZ <= '0'; + IncDec_16 <= "0000"; + Read_To_Acc <= '0'; + Read_To_Reg <= '0'; + Set_BusB_To <= "0000"; + Set_BusA_To <= "0000"; + ALU_Op <= "0" & IR(5 downto 3); + Save_ALU <= '0'; + PreserveC <= '0'; + Arith16 <= '0'; + IORQ <= '0'; + Set_Addr_To <= aNone; + Jump <= '0'; + JumpE <= '0'; + JumpXY <= '0'; + Call <= '0'; + RstP <= '0'; + LDZ <= '0'; + LDW <= '0'; + LDSPHL <= '0'; + Special_LD <= "000"; + ExchangeDH <= '0'; + ExchangeRp <= '0'; + ExchangeAF <= '0'; + ExchangeRS <= '0'; + I_DJNZ <= '0'; + I_CPL <= '0'; + I_CCF <= '0'; + I_SCF <= '0'; + I_RETN <= '0'; + I_BT <= '0'; + I_BC <= '0'; + I_BTR <= '0'; + I_RLD <= '0'; + I_RRD <= '0'; + I_INRC <= '0'; + SetDI <= '0'; + SetEI <= '0'; + IMode <= "11"; + Halt <= '0'; + NoRead <= '0'; + Write <= '0'; + + case ISet is + when "00" => + +------------------------------------------------------------------------------ +-- +-- Unprefixed instructions +-- +------------------------------------------------------------------------------ + + case IRB is +-- 8 BIT LOAD GROUP + when "01000000"|"01000001"|"01000010"|"01000011"|"01000100"|"01000101"|"01000111" + |"01001000"|"01001001"|"01001010"|"01001011"|"01001100"|"01001101"|"01001111" + |"01010000"|"01010001"|"01010010"|"01010011"|"01010100"|"01010101"|"01010111" + |"01011000"|"01011001"|"01011010"|"01011011"|"01011100"|"01011101"|"01011111" + |"01100000"|"01100001"|"01100010"|"01100011"|"01100100"|"01100101"|"01100111" + |"01101000"|"01101001"|"01101010"|"01101011"|"01101100"|"01101101"|"01101111" + |"01111000"|"01111001"|"01111010"|"01111011"|"01111100"|"01111101"|"01111111" => + -- LD r,r' + Set_BusB_To(2 downto 0) <= SSS; + ExchangeRp <= '1'; + Set_BusA_To(2 downto 0) <= DDD; + Read_To_Reg <= '1'; + when "00000110"|"00001110"|"00010110"|"00011110"|"00100110"|"00101110"|"00111110" => + -- LD r,n + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_BusA_To(2 downto 0) <= DDD; + Read_To_Reg <= '1'; + when others => null; + end case; + when "01000110"|"01001110"|"01010110"|"01011110"|"01100110"|"01101110"|"01111110" => + -- LD r,(HL) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + Set_BusA_To(2 downto 0) <= DDD; + Read_To_Reg <= '1'; + when others => null; + end case; + when "01110000"|"01110001"|"01110010"|"01110011"|"01110100"|"01110101"|"01110111" => + -- LD (HL),r + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusB_To(3) <= '0'; + when 2 => + Write <= '1'; + when others => null; + end case; + when "00110110" => + -- LD (HL),n + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_Addr_To <= aXY; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusB_To(3) <= '0'; + when 3 => + Write <= '1'; + when others => null; + end case; + when "00001010" => + -- LD A,(BC) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + when 2 => + Read_To_Acc <= '1'; + when others => null; + end case; + when "00011010" => + -- LD A,(DE) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aDE; + when 2 => + Read_To_Acc <= '1'; + when others => null; + end case; + when "00111010" => + if Mode = 3 then + -- LDD A,(HL) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + Read_To_Acc <= '1'; + IncDec_16 <= "1110"; + when others => null; + end case; + else + -- LD A,(nn) + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + when 4 => + Read_To_Acc <= '1'; + when others => null; + end case; + end if; + when "00000010" => + -- LD (BC),A + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + Set_BusB_To <= "0111"; + when 2 => + Write <= '1'; + when others => null; + end case; + when "00010010" => + -- LD (DE),A + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aDE; + Set_BusB_To <= "0111"; + when 2 => + Write <= '1'; + when others => null; + end case; + when "00110010" => + if Mode = 3 then + -- LDD (HL),A + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + Set_BusB_To <= "0111"; + when 2 => + Write <= '1'; + IncDec_16 <= "1110"; + when others => null; + end case; + else + -- LD (nn),A + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + Set_BusB_To <= "0111"; + when 4 => + Write <= '1'; + when others => null; + end case; + end if; + +-- 16 BIT LOAD GROUP + when "00000001"|"00010001"|"00100001"|"00110001" => + -- LD dd,nn + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Read_To_Reg <= '1'; + if DPAIR = "11" then + Set_BusA_To(3 downto 0) <= "1000"; + else + Set_BusA_To(2 downto 1) <= DPAIR; + Set_BusA_To(0) <= '1'; + end if; + when 3 => + Inc_PC <= '1'; + Read_To_Reg <= '1'; + if DPAIR = "11" then + Set_BusA_To(3 downto 0) <= "1001"; + else + Set_BusA_To(2 downto 1) <= DPAIR; + Set_BusA_To(0) <= '0'; + end if; + when others => null; + end case; + when "00101010" => + if Mode = 3 then + -- LDI A,(HL) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + Read_To_Acc <= '1'; + IncDec_16 <= "0110"; + when others => null; + end case; + else + -- LD HL,(nn) + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + when 4 => + Set_BusA_To(2 downto 0) <= "101"; -- L + Read_To_Reg <= '1'; + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + when 5 => + Set_BusA_To(2 downto 0) <= "100"; -- H + Read_To_Reg <= '1'; + when others => null; + end case; + end if; + when "00100010" => + if Mode = 3 then + -- LDI (HL),A + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + Set_BusB_To <= "0111"; + when 2 => + Write <= '1'; + IncDec_16 <= "0110"; + when others => null; + end case; + else + -- LD (nn),HL + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + Set_BusB_To <= "0101"; -- L + when 4 => + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + Write <= '1'; + Set_BusB_To <= "0100"; -- H + when 5 => + Write <= '1'; + when others => null; + end case; + end if; + when "11111001" => + -- LD SP,HL + TStates <= "110"; + LDSPHL <= '1'; + when "11000101"|"11010101"|"11100101"|"11110101" => + -- PUSH qq + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + IncDec_16 <= "1111"; + Set_Addr_TO <= aSP; + if DPAIR = "11" then + Set_BusB_To <= "0111"; + else + Set_BusB_To(2 downto 1) <= DPAIR; + Set_BusB_To(0) <= '0'; + Set_BusB_To(3) <= '0'; + end if; + when 2 => + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + if DPAIR = "11" then + Set_BusB_To <= "1011"; + else + Set_BusB_To(2 downto 1) <= DPAIR; + Set_BusB_To(0) <= '1'; + Set_BusB_To(3) <= '0'; + end if; + Write <= '1'; + when 3 => + Write <= '1'; + when others => null; + end case; + when "11000001"|"11010001"|"11100001"|"11110001" => + -- POP qq + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aSP; + when 2 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + Read_To_Reg <= '1'; + if DPAIR = "11" then + Set_BusA_To(3 downto 0) <= "1011"; + else + Set_BusA_To(2 downto 1) <= DPAIR; + Set_BusA_To(0) <= '1'; + end if; + when 3 => + IncDec_16 <= "0111"; + Read_To_Reg <= '1'; + if DPAIR = "11" then + Set_BusA_To(3 downto 0) <= "0111"; + else + Set_BusA_To(2 downto 1) <= DPAIR; + Set_BusA_To(0) <= '0'; + end if; + when others => null; + end case; + +-- EXCHANGE, BLOCK TRANSFER AND SEARCH GROUP + when "11101011" => + if Mode /= 3 then + -- EX DE,HL + ExchangeDH <= '1'; + end if; + when "00001000" => + if Mode = 3 then + -- LD (nn),SP + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + Set_BusB_To <= "1000"; + when 4 => + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + Write <= '1'; + Set_BusB_To <= "1001"; + when 5 => + Write <= '1'; + when others => null; + end case; + elsif Mode < 2 then + -- EX AF,AF' + ExchangeAF <= '1'; + end if; + when "11011001" => + if Mode = 3 then + -- RETI + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_TO <= aSP; + when 2 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + LDZ <= '1'; + when 3 => + Jump <= '1'; + IncDec_16 <= "0111"; + I_RETN <= '1'; + SetEI <= '1'; + when others => null; + end case; + elsif Mode < 2 then + -- EXX + ExchangeRS <= '1'; + end if; + when "11100011" => + if Mode /= 3 then + -- EX (SP),HL + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aSP; + when 2 => + Read_To_Reg <= '1'; + Set_BusA_To <= "0101"; + Set_BusB_To <= "0101"; + Set_Addr_To <= aSP; + when 3 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + TStates <= "100"; + Write <= '1'; + when 4 => + Read_To_Reg <= '1'; + Set_BusA_To <= "0100"; + Set_BusB_To <= "0100"; + Set_Addr_To <= aSP; + when 5 => + IncDec_16 <= "1111"; + TStates <= "101"; + Write <= '1'; + when others => null; + end case; + end if; + +-- 8 BIT ARITHMETIC AND LOGICAL GROUP + when "10000000"|"10000001"|"10000010"|"10000011"|"10000100"|"10000101"|"10000111" + |"10001000"|"10001001"|"10001010"|"10001011"|"10001100"|"10001101"|"10001111" + |"10010000"|"10010001"|"10010010"|"10010011"|"10010100"|"10010101"|"10010111" + |"10011000"|"10011001"|"10011010"|"10011011"|"10011100"|"10011101"|"10011111" + |"10100000"|"10100001"|"10100010"|"10100011"|"10100100"|"10100101"|"10100111" + |"10101000"|"10101001"|"10101010"|"10101011"|"10101100"|"10101101"|"10101111" + |"10110000"|"10110001"|"10110010"|"10110011"|"10110100"|"10110101"|"10110111" + |"10111000"|"10111001"|"10111010"|"10111011"|"10111100"|"10111101"|"10111111" => + -- ADD A,r + -- ADC A,r + -- SUB A,r + -- SBC A,r + -- AND A,r + -- OR A,r + -- XOR A,r + -- CP A,r + Set_BusB_To(2 downto 0) <= SSS; + Set_BusA_To(2 downto 0) <= "111"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + when "10000110"|"10001110"|"10010110"|"10011110"|"10100110"|"10101110"|"10110110"|"10111110" => + -- ADD A,(HL) + -- ADC A,(HL) + -- SUB A,(HL) + -- SBC A,(HL) + -- AND A,(HL) + -- OR A,(HL) + -- XOR A,(HL) + -- CP A,(HL) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusA_To(2 downto 0) <= "111"; + when others => null; + end case; + when "11000110"|"11001110"|"11010110"|"11011110"|"11100110"|"11101110"|"11110110"|"11111110" => + -- ADD A,n + -- ADC A,n + -- SUB A,n + -- SBC A,n + -- AND A,n + -- OR A,n + -- XOR A,n + -- CP A,n + MCycles <= "010"; + if MCycle = "010" then + Inc_PC <= '1'; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusA_To(2 downto 0) <= "111"; + end if; + when "00000100"|"00001100"|"00010100"|"00011100"|"00100100"|"00101100"|"00111100" => + -- INC r + Set_BusB_To <= "1010"; + Set_BusA_To(2 downto 0) <= DDD; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + PreserveC <= '1'; + ALU_Op <= "0000"; + when "00110100" => + -- INC (HL) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + TStates <= "100"; + Set_Addr_To <= aXY; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + PreserveC <= '1'; + ALU_Op <= "0000"; + Set_BusB_To <= "1010"; + Set_BusA_To(2 downto 0) <= DDD; + when 3 => + Write <= '1'; + when others => null; + end case; + when "00000101"|"00001101"|"00010101"|"00011101"|"00100101"|"00101101"|"00111101" => + -- DEC r + Set_BusB_To <= "1010"; + Set_BusA_To(2 downto 0) <= DDD; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + PreserveC <= '1'; + ALU_Op <= "0010"; + when "00110101" => + -- DEC (HL) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + when 2 => + TStates <= "100"; + Set_Addr_To <= aXY; + ALU_Op <= "0010"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + PreserveC <= '1'; + Set_BusB_To <= "1010"; + Set_BusA_To(2 downto 0) <= DDD; + when 3 => + Write <= '1'; + when others => null; + end case; + +-- GENERAL PURPOSE ARITHMETIC AND CPU CONTROL GROUPS + when "00100111" => + -- DAA + Set_BusA_To(2 downto 0) <= "111"; + Read_To_Reg <= '1'; + ALU_Op <= "1100"; + Save_ALU <= '1'; + when "00101111" => + -- CPL + I_CPL <= '1'; + when "00111111" => + -- CCF + I_CCF <= '1'; + when "00110111" => + -- SCF + I_SCF <= '1'; + when "00000000" => + if NMICycle = '1' then + -- NMI + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1101"; + when 2 => + TStates <= "100"; + Write <= '1'; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1100"; + when 3 => + TStates <= "100"; + Write <= '1'; + when others => null; + end case; + elsif IntCycle = '1' then + -- INT (IM 2) + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 1 => + LDZ <= '1'; + TStates <= "101"; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1101"; + when 2 => + TStates <= "100"; + Write <= '1'; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1100"; + when 3 => + TStates <= "100"; + Write <= '1'; + when 4 => + Inc_PC <= '1'; + LDZ <= '1'; + when 5 => + Jump <= '1'; + when others => null; + end case; + else + -- NOP + end if; + when "01110110" => + -- HALT + Halt <= '1'; + when "11110011" => + -- DI + SetDI <= '1'; + when "11111011" => + -- EI + SetEI <= '1'; + +-- 16 BIT ARITHMETIC GROUP + when "00001001"|"00011001"|"00101001"|"00111001" => + -- ADD HL,ss + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + NoRead <= '1'; + ALU_Op <= "0000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusA_To(2 downto 0) <= "101"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '1'; + when others => + Set_BusB_To <= "1000"; + end case; + TStates <= "100"; + Arith16 <= '1'; + when 3 => + NoRead <= '1'; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0001"; + Set_BusA_To(2 downto 0) <= "100"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + when others => + Set_BusB_To <= "1001"; + end case; + Arith16 <= '1'; + when others => + end case; + when "00000011"|"00010011"|"00100011"|"00110011" => + -- INC ss + TStates <= "110"; + IncDec_16(3 downto 2) <= "01"; + IncDec_16(1 downto 0) <= DPair; + when "00001011"|"00011011"|"00101011"|"00111011" => + -- DEC ss + TStates <= "110"; + IncDec_16(3 downto 2) <= "11"; + IncDec_16(1 downto 0) <= DPair; + +-- ROTATE AND SHIFT GROUP + when "00000111" + -- RLCA + |"00010111" + -- RLA + |"00001111" + -- RRCA + |"00011111" => + -- RRA + Set_BusA_To(2 downto 0) <= "111"; + ALU_Op <= "1000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + +-- JUMP GROUP + when "11000011" => + -- JP nn + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Inc_PC <= '1'; + Jump <= '1'; + when others => null; + end case; + when "11000010"|"11001010"|"11010010"|"11011010"|"11100010"|"11101010"|"11110010"|"11111010" => + if IR(5) = '1' and Mode = 3 then + case IRB(4 downto 3) is + when "00" => + -- LD ($FF00+C),A + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + Set_BusB_To <= "0111"; + when 2 => + Write <= '1'; + IORQ <= '1'; + when others => + end case; + when "01" => + -- LD (nn),A + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + Set_BusB_To <= "0111"; + when 4 => + Write <= '1'; + when others => null; + end case; + when "10" => + -- LD A,($FF00+C) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + when 2 => + Read_To_Acc <= '1'; + IORQ <= '1'; + when others => + end case; + when "11" => + -- LD A,(nn) + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + when 4 => + Read_To_Acc <= '1'; + when others => null; + end case; + end case; + else + -- JP cc,nn + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Inc_PC <= '1'; + if is_cc_true(F, to_bitvector(IR(5 downto 3))) then + Jump <= '1'; + end if; + when others => null; + end case; + end if; + when "00011000" => + if Mode /= 2 then + -- JR e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + when "00111000" => + if Mode /= 2 then + -- JR C,e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + if F(Flag_C) = '0' then + MCycles <= "010"; + end if; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + when "00110000" => + if Mode /= 2 then + -- JR NC,e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + if F(Flag_C) = '1' then + MCycles <= "010"; + end if; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + when "00101000" => + if Mode /= 2 then + -- JR Z,e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + if F(Flag_Z) = '0' then + MCycles <= "010"; + end if; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + when "00100000" => + if Mode /= 2 then + -- JR NZ,e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + if F(Flag_Z) = '1' then + MCycles <= "010"; + end if; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + when "11101001" => + -- JP (HL) + JumpXY <= '1'; + when "00010000" => + if Mode = 3 then + I_DJNZ <= '1'; + elsif Mode < 2 then + -- DJNZ,e + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + I_DJNZ <= '1'; + Set_BusB_To <= "1010"; + Set_BusA_To(2 downto 0) <= "000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0010"; + when 2 => + I_DJNZ <= '1'; + Inc_PC <= '1'; + when 3 => + NoRead <= '1'; + JumpE <= '1'; + TStates <= "101"; + when others => null; + end case; + end if; + +-- CALL AND RETURN GROUP + when "11001101" => + -- CALL nn + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + IncDec_16 <= "1111"; + Inc_PC <= '1'; + TStates <= "100"; + Set_Addr_To <= aSP; + LDW <= '1'; + Set_BusB_To <= "1101"; + when 4 => + Write <= '1'; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1100"; + when 5 => + Write <= '1'; + Call <= '1'; + when others => null; + end case; + when "11000100"|"11001100"|"11010100"|"11011100"|"11100100"|"11101100"|"11110100"|"11111100" => + if IR(5) = '0' or Mode /= 3 then + -- CALL cc,nn + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Inc_PC <= '1'; + LDW <= '1'; + if is_cc_true(F, to_bitvector(IR(5 downto 3))) then + IncDec_16 <= "1111"; + Set_Addr_TO <= aSP; + TStates <= "100"; + Set_BusB_To <= "1101"; + else + MCycles <= "011"; + end if; + when 4 => + Write <= '1'; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1100"; + when 5 => + Write <= '1'; + Call <= '1'; + when others => null; + end case; + end if; + when "11001001" => + -- RET + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + Set_Addr_TO <= aSP; + when 2 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + LDZ <= '1'; + when 3 => + Jump <= '1'; + IncDec_16 <= "0111"; + when others => null; + end case; + when "11000000"|"11001000"|"11010000"|"11011000"|"11100000"|"11101000"|"11110000"|"11111000" => + if IR(5) = '1' and Mode = 3 then + case IRB(4 downto 3) is + when "00" => + -- LD ($FF00+nn),A + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_Addr_To <= aIOA; + Set_BusB_To <= "0111"; + when 3 => + Write <= '1'; + when others => null; + end case; + when "01" => + -- ADD SP,n + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + ALU_Op <= "0000"; + Inc_PC <= '1'; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusA_To <= "1000"; + Set_BusB_To <= "0110"; + when 3 => + NoRead <= '1'; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0001"; + Set_BusA_To <= "1001"; + Set_BusB_To <= "1110"; -- Incorrect unsigned !!!!!!!!!!!!!!!!!!!!! + when others => + end case; + when "10" => + -- LD A,($FF00+nn) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_Addr_To <= aIOA; + when 3 => + Read_To_Acc <= '1'; + when others => null; + end case; + when "11" => + -- LD HL,SP+n -- Not correct !!!!!!!!!!!!!!!!!!! + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + when 4 => + Set_BusA_To(2 downto 0) <= "101"; -- L + Read_To_Reg <= '1'; + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + when 5 => + Set_BusA_To(2 downto 0) <= "100"; -- H + Read_To_Reg <= '1'; + when others => null; + end case; + end case; + else + -- RET cc + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + if is_cc_true(F, to_bitvector(IR(5 downto 3))) then + Set_Addr_TO <= aSP; + else + MCycles <= "001"; + end if; + TStates <= "101"; + when 2 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + LDZ <= '1'; + when 3 => + Jump <= '1'; + IncDec_16 <= "0111"; + when others => null; + end case; + end if; + when "11000111"|"11001111"|"11010111"|"11011111"|"11100111"|"11101111"|"11110111"|"11111111" => + -- RST p + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1101"; + when 2 => + Write <= '1'; + IncDec_16 <= "1111"; + Set_Addr_To <= aSP; + Set_BusB_To <= "1100"; + when 3 => + Write <= '1'; + RstP <= '1'; + when others => null; + end case; + +-- INPUT AND OUTPUT GROUP + when "11011011" => + if Mode /= 3 then + -- IN A,(n) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_Addr_To <= aIOA; + when 3 => + Read_To_Acc <= '1'; + IORQ <= '1'; + when others => null; + end case; + end if; + when "11010011" => + if Mode /= 3 then + -- OUT (n),A + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + Set_Addr_To <= aIOA; + Set_BusB_To <= "0111"; + when 3 => + Write <= '1'; + IORQ <= '1'; + when others => null; + end case; + end if; + +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ +-- MULTIBYTE INSTRUCTIONS +------------------------------------------------------------------------------ +------------------------------------------------------------------------------ + + when "11001011" => + if Mode /= 2 then + Prefix <= "01"; + end if; + + when "11101101" => + if Mode < 2 then + Prefix <= "10"; + end if; + + when "11011101"|"11111101" => + if Mode < 2 then + Prefix <= "11"; + end if; + + end case; + + when "01" => + +------------------------------------------------------------------------------ +-- +-- CB prefixed instructions +-- +------------------------------------------------------------------------------ + + Set_BusA_To(2 downto 0) <= IR(2 downto 0); + Set_BusB_To(2 downto 0) <= IR(2 downto 0); + + case IRB is + when "00000000"|"00000001"|"00000010"|"00000011"|"00000100"|"00000101"|"00000111" + |"00010000"|"00010001"|"00010010"|"00010011"|"00010100"|"00010101"|"00010111" + |"00001000"|"00001001"|"00001010"|"00001011"|"00001100"|"00001101"|"00001111" + |"00011000"|"00011001"|"00011010"|"00011011"|"00011100"|"00011101"|"00011111" + |"00100000"|"00100001"|"00100010"|"00100011"|"00100100"|"00100101"|"00100111" + |"00101000"|"00101001"|"00101010"|"00101011"|"00101100"|"00101101"|"00101111" + |"00110000"|"00110001"|"00110010"|"00110011"|"00110100"|"00110101"|"00110111" + |"00111000"|"00111001"|"00111010"|"00111011"|"00111100"|"00111101"|"00111111" => + -- RLC r + -- RL r + -- RRC r + -- RR r + -- SLA r + -- SRA r + -- SRL r + -- SLL r (Undocumented) / SWAP r + if MCycle = "001" then + ALU_Op <= "1000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + end if; + when "00000110"|"00010110"|"00001110"|"00011110"|"00101110"|"00111110"|"00100110"|"00110110" => + -- RLC (HL) + -- RL (HL) + -- RRC (HL) + -- RR (HL) + -- SRA (HL) + -- SRL (HL) + -- SLA (HL) + -- SLL (HL) (Undocumented) / SWAP (HL) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 | 7 => + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_Addr_To <= aXY; + TStates <= "100"; + when 3 => + Write <= '1'; + when others => + end case; + when "01000000"|"01000001"|"01000010"|"01000011"|"01000100"|"01000101"|"01000111" + |"01001000"|"01001001"|"01001010"|"01001011"|"01001100"|"01001101"|"01001111" + |"01010000"|"01010001"|"01010010"|"01010011"|"01010100"|"01010101"|"01010111" + |"01011000"|"01011001"|"01011010"|"01011011"|"01011100"|"01011101"|"01011111" + |"01100000"|"01100001"|"01100010"|"01100011"|"01100100"|"01100101"|"01100111" + |"01101000"|"01101001"|"01101010"|"01101011"|"01101100"|"01101101"|"01101111" + |"01110000"|"01110001"|"01110010"|"01110011"|"01110100"|"01110101"|"01110111" + |"01111000"|"01111001"|"01111010"|"01111011"|"01111100"|"01111101"|"01111111" => + -- BIT b,r + if MCycle = "001" then + Set_BusB_To(2 downto 0) <= IR(2 downto 0); + ALU_Op <= "1001"; + end if; + when "01000110"|"01001110"|"01010110"|"01011110"|"01100110"|"01101110"|"01110110"|"01111110" => + -- BIT b,(HL) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 | 7=> + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1001"; + TStates <= "100"; + when others => null; + end case; + when "11000000"|"11000001"|"11000010"|"11000011"|"11000100"|"11000101"|"11000111" + |"11001000"|"11001001"|"11001010"|"11001011"|"11001100"|"11001101"|"11001111" + |"11010000"|"11010001"|"11010010"|"11010011"|"11010100"|"11010101"|"11010111" + |"11011000"|"11011001"|"11011010"|"11011011"|"11011100"|"11011101"|"11011111" + |"11100000"|"11100001"|"11100010"|"11100011"|"11100100"|"11100101"|"11100111" + |"11101000"|"11101001"|"11101010"|"11101011"|"11101100"|"11101101"|"11101111" + |"11110000"|"11110001"|"11110010"|"11110011"|"11110100"|"11110101"|"11110111" + |"11111000"|"11111001"|"11111010"|"11111011"|"11111100"|"11111101"|"11111111" => + -- SET b,r + if MCycle = "001" then + ALU_Op <= "1010"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + end if; + when "11000110"|"11001110"|"11010110"|"11011110"|"11100110"|"11101110"|"11110110"|"11111110" => + -- SET b,(HL) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 | 7=> + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1010"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_Addr_To <= aXY; + TStates <= "100"; + when 3 => + Write <= '1'; + when others => null; + end case; + when "10000000"|"10000001"|"10000010"|"10000011"|"10000100"|"10000101"|"10000111" + |"10001000"|"10001001"|"10001010"|"10001011"|"10001100"|"10001101"|"10001111" + |"10010000"|"10010001"|"10010010"|"10010011"|"10010100"|"10010101"|"10010111" + |"10011000"|"10011001"|"10011010"|"10011011"|"10011100"|"10011101"|"10011111" + |"10100000"|"10100001"|"10100010"|"10100011"|"10100100"|"10100101"|"10100111" + |"10101000"|"10101001"|"10101010"|"10101011"|"10101100"|"10101101"|"10101111" + |"10110000"|"10110001"|"10110010"|"10110011"|"10110100"|"10110101"|"10110111" + |"10111000"|"10111001"|"10111010"|"10111011"|"10111100"|"10111101"|"10111111" => + -- RES b,r + if MCycle = "001" then + ALU_Op <= "1011"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + end if; + when "10000110"|"10001110"|"10010110"|"10011110"|"10100110"|"10101110"|"10110110"|"10111110" => + -- RES b,(HL) + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 | 7 => + Set_Addr_To <= aXY; + when 2 => + ALU_Op <= "1011"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_Addr_To <= aXY; + TStates <= "100"; + when 3 => + Write <= '1'; + when others => null; + end case; + end case; + + when others => + +------------------------------------------------------------------------------ +-- +-- ED prefixed instructions +-- +------------------------------------------------------------------------------ + + case IRB is + when "00000000"|"00000001"|"00000010"|"00000011"|"00000100"|"00000101"|"00000110"|"00000111" + |"00001000"|"00001001"|"00001010"|"00001011"|"00001100"|"00001101"|"00001110"|"00001111" + |"00010000"|"00010001"|"00010010"|"00010011"|"00010100"|"00010101"|"00010110"|"00010111" + |"00011000"|"00011001"|"00011010"|"00011011"|"00011100"|"00011101"|"00011110"|"00011111" + |"00100000"|"00100001"|"00100010"|"00100011"|"00100100"|"00100101"|"00100110"|"00100111" + |"00101000"|"00101001"|"00101010"|"00101011"|"00101100"|"00101101"|"00101110"|"00101111" + |"00110000"|"00110001"|"00110010"|"00110011"|"00110100"|"00110101"|"00110110"|"00110111" + |"00111000"|"00111001"|"00111010"|"00111011"|"00111100"|"00111101"|"00111110"|"00111111" + + + |"10000000"|"10000001"|"10000010"|"10000011"|"10000100"|"10000101"|"10000110"|"10000111" + |"10001000"|"10001001"|"10001010"|"10001011"|"10001100"|"10001101"|"10001110"|"10001111" + |"10010000"|"10010001"|"10010010"|"10010011"|"10010100"|"10010101"|"10010110"|"10010111" + |"10011000"|"10011001"|"10011010"|"10011011"|"10011100"|"10011101"|"10011110"|"10011111" + | "10100100"|"10100101"|"10100110"|"10100111" + | "10101100"|"10101101"|"10101110"|"10101111" + | "10110100"|"10110101"|"10110110"|"10110111" + | "10111100"|"10111101"|"10111110"|"10111111" + |"11000000"|"11000001"|"11000010"|"11000011"|"11000100"|"11000101"|"11000110"|"11000111" + |"11001000"|"11001001"|"11001010"|"11001011"|"11001100"|"11001101"|"11001110"|"11001111" + |"11010000"|"11010001"|"11010010"|"11010011"|"11010100"|"11010101"|"11010110"|"11010111" + |"11011000"|"11011001"|"11011010"|"11011011"|"11011100"|"11011101"|"11011110"|"11011111" + |"11100000"|"11100001"|"11100010"|"11100011"|"11100100"|"11100101"|"11100110"|"11100111" + |"11101000"|"11101001"|"11101010"|"11101011"|"11101100"|"11101101"|"11101110"|"11101111" + |"11110000"|"11110001"|"11110010"|"11110011"|"11110100"|"11110101"|"11110110"|"11110111" + |"11111000"|"11111001"|"11111010"|"11111011"|"11111100"|"11111101"|"11111110"|"11111111" => + null; -- NOP, undocumented + when "01111110"|"01111111" => + -- NOP, undocumented + null; +-- 8 BIT LOAD GROUP + when "01010111" => + -- LD A,I + Special_LD <= "100"; + TStates <= "101"; + when "01011111" => + -- LD A,R + Special_LD <= "101"; + TStates <= "101"; + when "01000111" => + -- LD I,A + Special_LD <= "110"; + TStates <= "101"; + when "01001111" => + -- LD R,A + Special_LD <= "111"; + TStates <= "101"; +-- 16 BIT LOAD GROUP + when "01001011"|"01011011"|"01101011"|"01111011" => + -- LD dd,(nn) + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + when 4 => + Read_To_Reg <= '1'; + if IR(5 downto 4) = "11" then + Set_BusA_To <= "1000"; + else + Set_BusA_To(2 downto 1) <= IR(5 downto 4); + Set_BusA_To(0) <= '1'; + end if; + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + when 5 => + Read_To_Reg <= '1'; + if IR(5 downto 4) = "11" then + Set_BusA_To <= "1001"; + else + Set_BusA_To(2 downto 1) <= IR(5 downto 4); + Set_BusA_To(0) <= '0'; + end if; + when others => null; + end case; + when "01000011"|"01010011"|"01100011"|"01110011" => + -- LD (nn),dd + MCycles <= "101"; + case to_integer(unsigned(MCycle)) is + when 2 => + Inc_PC <= '1'; + LDZ <= '1'; + when 3 => + Set_Addr_To <= aZI; + Inc_PC <= '1'; + LDW <= '1'; + if IR(5 downto 4) = "11" then + Set_BusB_To <= "1000"; + else + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '1'; + Set_BusB_To(3) <= '0'; + end if; + when 4 => + Inc_WZ <= '1'; + Set_Addr_To <= aZI; + Write <= '1'; + if IR(5 downto 4) = "11" then + Set_BusB_To <= "1001"; + else + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '0'; + Set_BusB_To(3) <= '0'; + end if; + when 5 => + Write <= '1'; + when others => null; + end case; + when "10100000" | "10101000" | "10110000" | "10111000" => + -- LDI, LDD, LDIR, LDDR + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + IncDec_16 <= "1100"; -- BC + when 2 => + Set_BusB_To <= "0110"; + Set_BusA_To(2 downto 0) <= "111"; + ALU_Op <= "0000"; + Set_Addr_To <= aDE; + if IR(3) = '0' then + IncDec_16 <= "0110"; -- IX + else + IncDec_16 <= "1110"; + end if; + when 3 => + I_BT <= '1'; + TStates <= "101"; + Write <= '1'; + if IR(3) = '0' then + IncDec_16 <= "0101"; -- DE + else + IncDec_16 <= "1101"; + end if; + when 4 => + NoRead <= '1'; + TStates <= "101"; + when others => null; + end case; + when "10100001" | "10101001" | "10110001" | "10111001" => + -- CPI, CPD, CPIR, CPDR + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aXY; + IncDec_16 <= "1100"; -- BC + when 2 => + Set_BusB_To <= "0110"; + Set_BusA_To(2 downto 0) <= "111"; + ALU_Op <= "0111"; + Save_ALU <= '1'; + PreserveC <= '1'; + if IR(3) = '0' then + IncDec_16 <= "0110"; + else + IncDec_16 <= "1110"; + end if; + when 3 => + NoRead <= '1'; + I_BC <= '1'; + TStates <= "101"; + when 4 => + NoRead <= '1'; + TStates <= "101"; + when others => null; + end case; + when "01000100"|"01001100"|"01010100"|"01011100"|"01100100"|"01101100"|"01110100"|"01111100" => + -- NEG + Alu_OP <= "0010"; + Set_BusB_To <= "0111"; + Set_BusA_To <= "1010"; + Read_To_Acc <= '1'; + Save_ALU <= '1'; + when "01000110"|"01001110"|"01100110"|"01101110" => + -- IM 0 + IMode <= "00"; + when "01010110"|"01110110" => + -- IM 1 + IMode <= "01"; + when "01011110"|"01110111" => + -- IM 2 + IMode <= "10"; +-- 16 bit arithmetic + when "01001010"|"01011010"|"01101010"|"01111010" => + -- ADC HL,ss + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + NoRead <= '1'; + ALU_Op <= "0001"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusA_To(2 downto 0) <= "101"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '1'; + when others => + Set_BusB_To <= "1000"; + end case; + TStates <= "100"; + when 3 => + NoRead <= '1'; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0001"; + Set_BusA_To(2 downto 0) <= "100"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '0'; + when others => + Set_BusB_To <= "1001"; + end case; + when others => + end case; + when "01000010"|"01010010"|"01100010"|"01110010" => + -- SBC HL,ss + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 2 => + NoRead <= '1'; + ALU_Op <= "0011"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusA_To(2 downto 0) <= "101"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + Set_BusB_To(0) <= '1'; + when others => + Set_BusB_To <= "1000"; + end case; + TStates <= "100"; + when 3 => + NoRead <= '1'; + ALU_Op <= "0011"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + Set_BusA_To(2 downto 0) <= "100"; + case to_integer(unsigned(IR(5 downto 4))) is + when 0|1|2 => + Set_BusB_To(2 downto 1) <= IR(5 downto 4); + when others => + Set_BusB_To <= "1001"; + end case; + when others => + end case; + when "01101111" => + -- RLD + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + NoRead <= '1'; + Set_Addr_To <= aXY; + when 3 => + Read_To_Reg <= '1'; + Set_BusB_To(2 downto 0) <= "110"; + Set_BusA_To(2 downto 0) <= "111"; + ALU_Op <= "1101"; + TStates <= "100"; + Set_Addr_To <= aXY; + Save_ALU <= '1'; + when 4 => + I_RLD <= '1'; + Write <= '1'; + when others => + end case; + when "01100111" => + -- RRD + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 2 => + Set_Addr_To <= aXY; + when 3 => + Read_To_Reg <= '1'; + Set_BusB_To(2 downto 0) <= "110"; + Set_BusA_To(2 downto 0) <= "111"; + ALU_Op <= "1110"; + TStates <= "100"; + Set_Addr_To <= aXY; + Save_ALU <= '1'; + when 4 => + I_RRD <= '1'; + Write <= '1'; + when others => + end case; + when "01000101"|"01001101"|"01010101"|"01011101"|"01100101"|"01101101"|"01110101"|"01111101" => + -- RETI, RETN + MCycles <= "011"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_TO <= aSP; + when 2 => + IncDec_16 <= "0111"; + Set_Addr_To <= aSP; + LDZ <= '1'; + when 3 => + Jump <= '1'; + IncDec_16 <= "0111"; + I_RETN <= '1'; + when others => null; + end case; + when "01000000"|"01001000"|"01010000"|"01011000"|"01100000"|"01101000"|"01110000"|"01111000" => + -- IN r,(C) + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + when 2 => + IORQ <= '1'; + if IR(5 downto 3) /= "110" then + Read_To_Reg <= '1'; + Set_BusA_To(2 downto 0) <= IR(5 downto 3); + end if; + I_INRC <= '1'; + when others => + end case; + when "01000001"|"01001001"|"01010001"|"01011001"|"01100001"|"01101001"|"01110001"|"01111001" => + -- OUT (C),r + -- OUT (C),0 + MCycles <= "010"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + Set_BusB_To(2 downto 0) <= IR(5 downto 3); + if IR(5 downto 3) = "110" then + Set_BusB_To(3) <= '1'; + end if; + when 2 => + Write <= '1'; + IORQ <= '1'; + when others => + end case; + when "10100010" | "10101010" | "10110010" | "10111010" => + -- INI, IND, INIR, INDR + -- note B is decremented AFTER being put on the bus + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 1 => + Set_Addr_To <= aBC; + Set_BusB_To <= "1010"; + Set_BusA_To <= "0000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0010"; + when 2 => + IORQ <= '1'; + Set_BusB_To <= "0110"; + Set_Addr_To <= aXY; + when 3 => + if IR(3) = '0' then + --IncDec_16 <= "0010"; + IncDec_16 <= "0110"; + else + --IncDec_16 <= "1010"; + IncDec_16 <= "1110"; + end if; + TStates <= "100"; + Write <= '1'; + I_BTR <= '1'; + when 4 => + NoRead <= '1'; + TStates <= "101"; + when others => null; + end case; + when "10100011" | "10101011" | "10110011" | "10111011" => + -- OUTI, OUTD, OTIR, OTDR + -- note B is decremented BEFORE being put on the bus. + -- mikej fix for hl inc + MCycles <= "100"; + case to_integer(unsigned(MCycle)) is + when 1 => + TStates <= "101"; + Set_Addr_To <= aXY; + Set_BusB_To <= "1010"; + Set_BusA_To <= "0000"; + Read_To_Reg <= '1'; + Save_ALU <= '1'; + ALU_Op <= "0010"; + when 2 => + Set_BusB_To <= "0110"; + Set_Addr_To <= aBC; + when 3 => + if IR(3) = '0' then + IncDec_16 <= "0110"; -- mikej + else + IncDec_16 <= "1110"; -- mikej + end if; + IORQ <= '1'; + Write <= '1'; + I_BTR <= '1'; + when 4 => + NoRead <= '1'; + TStates <= "101"; + when others => null; + end case; + end case; + + end case; + + if Mode = 1 then + if MCycle = "001" then +-- TStates <= "100"; + else + TStates <= "011"; + end if; + end if; + + if Mode = 3 then + if MCycle = "001" then +-- TStates <= "100"; + else + TStates <= "100"; + end if; + end if; + + if Mode < 2 then + if MCycle = "110" then + Inc_PC <= '1'; + if Mode = 1 then + Set_Addr_To <= aXY; + TStates <= "100"; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusB_To(3) <= '0'; + end if; + if IRB = "00110110" or IRB = "11001011" then + Set_Addr_To <= aNone; + end if; + end if; + if MCycle = "111" then + if Mode = 0 then + TStates <= "101"; + end if; + if ISet /= "01" then + Set_Addr_To <= aXY; + end if; + Set_BusB_To(2 downto 0) <= SSS; + Set_BusB_To(3) <= '0'; + if IRB = "00110110" or ISet = "01" then + -- LD (HL),n + Inc_PC <= '1'; + else + NoRead <= '1'; + end if; + end if; + end if; + + end process; + +end; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_Pack.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_Pack.vhd new file mode 100644 index 00000000..42cf6105 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_Pack.vhd @@ -0,0 +1,217 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- +-- Ver 300 started tidyup +-- MikeJ March 2005 +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- **** +-- +-- Z80 compatible microprocessor core +-- +-- Version : 0242 +-- +-- Copyright (c) 2001-2002 Daniel Wallner (jesus@opencores.org) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t80/ +-- +-- Limitations : +-- +-- File history : +-- + +library IEEE; +use IEEE.std_logic_1164.all; + +package T80_Pack is + + component T80 + generic( + Mode : integer := 0; -- 0 => Z80, 1 => Fast Z80, 2 => 8080, 3 => GB + IOWait : integer := 0; -- 1 => Single cycle I/O, 1 => Std I/O cycle + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + RESET_n : in std_logic; + CLK_n : in std_logic; + CEN : in std_logic; + WAIT_n : in std_logic; + INT_n : in std_logic; + NMI_n : in std_logic; + BUSRQ_n : in std_logic; + M1_n : out std_logic; + IORQ : out std_logic; + NoRead : out std_logic; + Write : out std_logic; + RFSH_n : out std_logic; + HALT_n : out std_logic; + BUSAK_n : out std_logic; + A : out std_logic_vector(15 downto 0); + DInst : in std_logic_vector(7 downto 0); + DI : in std_logic_vector(7 downto 0); + DO : out std_logic_vector(7 downto 0); + MC : out std_logic_vector(2 downto 0); + TS : out std_logic_vector(2 downto 0); + IntCycle_n : out std_logic; + IntE : out std_logic; + Stop : out std_logic + ); + end component; + + component T80_Reg + port( + Clk : in std_logic; + CEN : in std_logic; + WEH : in std_logic; + WEL : in std_logic; + AddrA : in std_logic_vector(2 downto 0); + AddrB : in std_logic_vector(2 downto 0); + AddrC : in std_logic_vector(2 downto 0); + DIH : in std_logic_vector(7 downto 0); + DIL : in std_logic_vector(7 downto 0); + DOAH : out std_logic_vector(7 downto 0); + DOAL : out std_logic_vector(7 downto 0); + DOBH : out std_logic_vector(7 downto 0); + DOBL : out std_logic_vector(7 downto 0); + DOCH : out std_logic_vector(7 downto 0); + DOCL : out std_logic_vector(7 downto 0) + ); + end component; + + component T80_MCode + generic( + Mode : integer := 0; + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + IR : in std_logic_vector(7 downto 0); + ISet : in std_logic_vector(1 downto 0); + MCycle : in std_logic_vector(2 downto 0); + F : in std_logic_vector(7 downto 0); + NMICycle : in std_logic; + IntCycle : in std_logic; + MCycles : out std_logic_vector(2 downto 0); + TStates : out std_logic_vector(2 downto 0); + Prefix : out std_logic_vector(1 downto 0); -- None,BC,ED,DD/FD + Inc_PC : out std_logic; + Inc_WZ : out std_logic; + IncDec_16 : out std_logic_vector(3 downto 0); -- BC,DE,HL,SP 0 is inc + Read_To_Reg : out std_logic; + Read_To_Acc : out std_logic; + Set_BusA_To : out std_logic_vector(3 downto 0); -- B,C,D,E,H,L,DI/DB,A,SP(L),SP(M),0,F + Set_BusB_To : out std_logic_vector(3 downto 0); -- B,C,D,E,H,L,DI,A,SP(L),SP(M),1,F,PC(L),PC(M),0 + ALU_Op : out std_logic_vector(3 downto 0); + -- ADD, ADC, SUB, SBC, AND, XOR, OR, CP, ROT, BIT, SET, RES, DAA, RLD, RRD, None + Save_ALU : out std_logic; + PreserveC : out std_logic; + Arith16 : out std_logic; + Set_Addr_To : out std_logic_vector(2 downto 0); -- aNone,aXY,aIOA,aSP,aBC,aDE,aZI + IORQ : out std_logic; + Jump : out std_logic; + JumpE : out std_logic; + JumpXY : out std_logic; + Call : out std_logic; + RstP : out std_logic; + LDZ : out std_logic; + LDW : out std_logic; + LDSPHL : out std_logic; + Special_LD : out std_logic_vector(2 downto 0); -- A,I;A,R;I,A;R,A;None + ExchangeDH : out std_logic; + ExchangeRp : out std_logic; + ExchangeAF : out std_logic; + ExchangeRS : out std_logic; + I_DJNZ : out std_logic; + I_CPL : out std_logic; + I_CCF : out std_logic; + I_SCF : out std_logic; + I_RETN : out std_logic; + I_BT : out std_logic; + I_BC : out std_logic; + I_BTR : out std_logic; + I_RLD : out std_logic; + I_RRD : out std_logic; + I_INRC : out std_logic; + SetDI : out std_logic; + SetEI : out std_logic; + IMode : out std_logic_vector(1 downto 0); + Halt : out std_logic; + NoRead : out std_logic; + Write : out std_logic + ); + end component; + + component T80_ALU + generic( + Mode : integer := 0; + Flag_C : integer := 0; + Flag_N : integer := 1; + Flag_P : integer := 2; + Flag_X : integer := 3; + Flag_H : integer := 4; + Flag_Y : integer := 5; + Flag_Z : integer := 6; + Flag_S : integer := 7 + ); + port( + Arith16 : in std_logic; + Z16 : in std_logic; + ALU_Op : in std_logic_vector(3 downto 0); + IR : in std_logic_vector(5 downto 0); + ISet : in std_logic_vector(1 downto 0); + BusA : in std_logic_vector(7 downto 0); + BusB : in std_logic_vector(7 downto 0); + F_In : in std_logic_vector(7 downto 0); + Q : out std_logic_vector(7 downto 0); + F_Out : out std_logic_vector(7 downto 0) + ); + end component; + +end; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_Reg.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_Reg.vhd new file mode 100644 index 00000000..1c0f2638 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/T80/T80_Reg.vhd @@ -0,0 +1,114 @@ +-- **** +-- T80(b) core. In an effort to merge and maintain bug fixes .... +-- +-- +-- Ver 300 started tidyup +-- MikeJ March 2005 +-- Latest version from www.fpgaarcade.com (original www.opencores.org) +-- +-- **** +-- +-- T80 Registers, technology independent +-- +-- Version : 0244 +-- +-- Copyright (c) 2002 Daniel Wallner (jesus@opencores.org) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.opencores.org/cvsweb.shtml/t51/ +-- +-- Limitations : +-- +-- File history : +-- +-- 0242 : Initial release +-- +-- 0244 : Changed to single register file +-- + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; + +entity T80_Reg is + port( + Clk : in std_logic; + CEN : in std_logic; + WEH : in std_logic; + WEL : in std_logic; + AddrA : in std_logic_vector(2 downto 0); + AddrB : in std_logic_vector(2 downto 0); + AddrC : in std_logic_vector(2 downto 0); + DIH : in std_logic_vector(7 downto 0); + DIL : in std_logic_vector(7 downto 0); + DOAH : out std_logic_vector(7 downto 0); + DOAL : out std_logic_vector(7 downto 0); + DOBH : out std_logic_vector(7 downto 0); + DOBL : out std_logic_vector(7 downto 0); + DOCH : out std_logic_vector(7 downto 0); + DOCL : out std_logic_vector(7 downto 0) + ); +end T80_Reg; + +architecture rtl of T80_Reg is + + type Register_Image is array (natural range <>) of std_logic_vector(7 downto 0); + signal RegsH : Register_Image(0 to 7); + signal RegsL : Register_Image(0 to 7); + +begin + + process (Clk) + begin + if Clk'event and Clk = '1' then + if CEN = '1' then + if WEH = '1' then + RegsH(to_integer(unsigned(AddrA))) <= DIH; + end if; + if WEL = '1' then + RegsL(to_integer(unsigned(AddrA))) <= DIL; + end if; + end if; + end if; + end process; + + DOAH <= RegsH(to_integer(unsigned(AddrA))); + DOAL <= RegsL(to_integer(unsigned(AddrA))); + DOBH <= RegsH(to_integer(unsigned(AddrB))); + DOBL <= RegsL(to_integer(unsigned(AddrB))); + DOCH <= RegsH(to_integer(unsigned(AddrC))); + DOCL <= RegsL(to_integer(unsigned(AddrC))); + +end; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/build_id.tcl b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/build_id.tcl new file mode 100644 index 00000000..938515d8 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/build_id.tcl @@ -0,0 +1,35 @@ +# ================================================================================ +# +# Build ID Verilog Module Script +# Jeff Wiencrot - 8/1/2011 +# +# Generates a Verilog module that contains a timestamp, +# from the current build. These values are available from the build_date, build_time, +# physical_address, and host_name output ports of the build_id module in the build_id.v +# Verilog source file. +# +# ================================================================================ + +proc generateBuildID_Verilog {} { + + # Get the timestamp (see: http://www.altera.com/support/examples/tcl/tcl-date-time-stamp.html) + set buildDate [ clock format [ clock seconds ] -format %y%m%d ] + set buildTime [ clock format [ clock seconds ] -format %H%M%S ] + + # Create a Verilog file for output + set outputFileName "rtl/build_id.v" + set outputFile [open $outputFileName "w"] + + # Output the Verilog source + puts $outputFile "`define BUILD_DATE \"$buildDate\"" + puts $outputFile "`define BUILD_TIME \"$buildTime\"" + close $outputFile + + # Send confirmation message to the Messages window + post_message "Generated build identification Verilog module: [pwd]/$outputFileName" + post_message "Date: $buildDate" + post_message "Time: $buildTime" +} + +# Comment out this line to prevent the process from automatically executing when the file is sourced: +generateBuildID_Verilog \ No newline at end of file diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/dac.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/dac.vhd new file mode 100644 index 00000000..db58d70b --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/dac.vhd @@ -0,0 +1,48 @@ +------------------------------------------------------------------------------- +-- +-- Delta-Sigma DAC +-- +-- Refer to Xilinx Application Note XAPP154. +-- +-- This DAC requires an external RC low-pass filter: +-- +-- dac_o 0---XXXXX---+---0 analog audio +-- 3k3 | +-- === 4n7 +-- | +-- GND +-- +------------------------------------------------------------------------------- + +library ieee; + use ieee.std_logic_1164.all; + use ieee.numeric_std.all; + +entity dac is + generic ( + C_bits : integer := 8 + ); + port ( + clk_i : in std_logic; + res_n_i : in std_logic; + dac_i : in std_logic_vector(C_bits-1 downto 0); + dac_o : out std_logic + ); +end dac; + +architecture rtl of dac is + signal sig_in: unsigned(C_bits downto 0); +begin + seq: process(clk_i, res_n_i) + begin + if res_n_i = '0' then + sig_in <= to_unsigned(2**C_bits, sig_in'length); + dac_o <= '0'; + elsif rising_edge(clk_i) then + -- not dac_i(C_bits-1) effectively adds 0x8..0 to dac_i + --sig_in <= sig_in + unsigned(sig_in(C_bits) & (not dac_i(C_bits-1)) & dac_i(C_bits-2 downto 0)); + sig_in <= sig_in + unsigned(sig_in(C_bits) & dac_i); + dac_o <= sig_in(C_bits); + end if; + end process seq; +end rtl; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/invaders.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/invaders.vhd new file mode 100644 index 00000000..a67ecb4a --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/invaders.vhd @@ -0,0 +1,287 @@ +-- Space Invaders core logic +-- 9.984MHz clock +-- +-- Version : 0242 +-- +-- Copyright (c) 2002 Daniel Wallner (jesus@opencores.org) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.fpgaarcade.com +-- +-- Limitations : +-- +-- File history : +-- +-- 0241 : First release +-- +-- 0242 : Cleaned up reset logic +-- +-- 0300 : MikeJ tidyup for audio release + +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; + +entity invaderst is + port( + Rst_n : in std_logic; + Clk : in std_logic; + ENA : out std_logic; + Coin : in std_logic; + Sel1Player : in std_logic; + Sel2Player : in std_logic; + Fire1 : in std_logic; + Fire2 : in std_logic; + GunUp1 : in std_logic; + GunDown1 : in std_logic; + MoveLeft1 : in std_logic; + MoveRight1 : in std_logic; + MoveUp1 : in std_logic; + MoveDown1 : in std_logic; + GunUp2 : in std_logic; + GunDown2 : in std_logic; + MoveLeft2 : in std_logic; + MoveRight2 : in std_logic; + MoveUp2 : in std_logic; + MoveDown2 : in std_logic; + DIP : in std_logic_vector(8 downto 1); + RDB : in std_logic_vector(7 downto 0); + IB : in std_logic_vector(7 downto 0); + RWD : out std_logic_vector(7 downto 0); + RAB : out std_logic_vector(12 downto 0); + AD : out std_logic_vector(15 downto 0); + SoundCtrl3 : out std_logic_vector(5 downto 0); + SoundCtrl5 : out std_logic_vector(5 downto 0); + Rst_n_s : out std_logic; + RWE_n : out std_logic; + Video : out std_logic; + HSync : out std_logic; + VSync : out std_logic + ); +end invaderst; + +architecture rtl of invaderst is + + component mw8080 + port( + Rst_n : in std_logic; + Clk : in std_logic; + ENA : out std_logic; + RWE_n : out std_logic; + RDB : in std_logic_vector(7 downto 0); + RAB : out std_logic_vector(12 downto 0); + Sounds : out std_logic_vector(7 downto 0); + Ready : out std_logic; + GDB : in std_logic_vector(7 downto 0); + IB : in std_logic_vector(7 downto 0); + DB : out std_logic_vector(7 downto 0); + AD : out std_logic_vector(15 downto 0); + Status : out std_logic_vector(7 downto 0); + Systb : out std_logic; + Int : out std_logic; + Hold_n : in std_logic; + IntE : out std_logic; + DBin_n : out std_logic; + Vait : out std_logic; + HldA : out std_logic; + Sample : out std_logic; + Wr : out std_logic; + Video : out std_logic; + HSync : out std_logic; + VSync : out std_logic); + end component; + + signal GDB0 : std_logic_vector(7 downto 0); + signal GDB1 : std_logic_vector(7 downto 0); + signal GDB2 : std_logic_vector(7 downto 0); + signal S : std_logic_vector(7 downto 0); + signal GDB : std_logic_vector(7 downto 0); + signal DB : std_logic_vector(7 downto 0); + signal Sounds : std_logic_vector(7 downto 0); + signal AD_i : std_logic_vector(15 downto 0); + signal PortWr : std_logic_vector(6 downto 2); + signal EA : std_logic_vector(2 downto 0); + signal D5 : std_logic_vector(15 downto 0); + signal WD_Cnt : unsigned(7 downto 0); + signal Sample : std_logic; + signal Rst_n_s_i : std_logic; + signal gun1 : std_logic_vector(2 downto 0); + signal gun2 : std_logic_vector(2 downto 0); + +begin + + Rst_n_s <= Rst_n_s_i; + RWD <= DB; + AD <= AD_i; +-- no Watchdog + process (Rst_n, Clk) + variable Rst_n_r : std_logic; + begin + if Rst_n = '0' then + Rst_n_r := '0'; + Rst_n_s_i <= '0'; + elsif Clk'event and Clk = '1' then + Rst_n_s_i <= Rst_n_r; +-- if WD_Cnt = 255 then +-- Rst_n_s_i <= '0'; +-- end if; + Rst_n_r := '1'; + end if; + end process; + + process (Rst_n_s_i, Clk) + variable Old_S0 : std_logic; + begin + if Rst_n_s_i = '0' then +-- WD_Cnt <= (others => '0'); + Old_S0 := '1'; + elsif Clk'event and Clk = '1' then +-- if Sounds(0) = '1' and Old_S0 = '0' then +-- WD_Cnt <= WD_Cnt + 1; +-- end if; +-- if PortWr(6) = '1' then +-- WD_Cnt <= (others => '0'); +-- end if; + Old_S0 := Sounds(0); + end if; + end process; + + u_mw8080: mw8080 + port map( + Rst_n => Rst_n_s_i, + Clk => Clk, + ENA => ENA, + RWE_n => RWE_n, + RDB => RDB, + IB => IB, + RAB => RAB, + Sounds => Sounds, + Ready => open, + GDB => GDB, + DB => DB, + AD => AD_i, + Status => open, + Systb => open, + Int => open, + Hold_n => '1', + IntE => open, + DBin_n => open, + Vait => open, + HldA => open, + Sample => Sample, + Wr => open, + Video => Video, + HSync => HSync, + VSync => VSync); + +with AD_i(9 downto 8) select + GDB <= GDB0 when "00", + GDB1 when "01", + GDB2 when "10", + S when others; + +--GDB <= GDB0 and GDB1 and GDB2 and S;--todo + + GDB0(0) <= not MoveUp1; + GDB0(1) <= not MoveDown1; + GDB0(2) <= not MoveLeft1; + GDB0(3) <= not MoveRight1; + GDB0(4) <= not GunUp1;--Gun1(0);--todo + GDB0(5) <= '0';--not Gun1(1);--todo + GDB0(6) <= not GunDown1;--Gun1(2);--todo + GDB0(7) <= not Fire1; + + GDB1(0) <= not MoveUp2; + GDB1(1) <= not MoveDown2; + GDB1(2) <= not MoveLeft2; + GDB1(3) <= not MoveRight2; + GDB1(4) <= not GunUp2;--Gun2(0);--todo + GDB1(5) <= '0';--not Gun2(1);--todo + GDB1(6) <= not GunDown2;--Gun2(2);--todo + GDB1(7) <= not Fire2; + + GDB2(0) <= '0';--Coinage + GDB2(1) <= '0';--Coinage + GDB2(2) <= '0';--Coinage + GDB2(3) <= '0';--Coinage + GDB2(4) <= '0';--Game_Time + GDB2(5) <= '0';--Game_Time + GDB2(6) <= Coin; + GDB2(7) <= Sel1Player; + + PortWr(2) <= '1' when AD_i(10 downto 8) = "010" and Sample = '1' else '0'; + PortWr(3) <= '1' when AD_i(10 downto 8) = "011" and Sample = '1' else '0'; + PortWr(4) <= '1' when AD_i(10 downto 8) = "100" and Sample = '1' else '0'; + PortWr(5) <= '1' when AD_i(10 downto 8) = "101" and Sample = '1' else '0'; + PortWr(6) <= '1' when AD_i(10 downto 8) = "110" and Sample = '1' else '0'; + + process (Rst_n_s_i, Clk) + variable OldSample : std_logic; + begin + if Rst_n_s_i = '0' then + D5 <= (others => '0'); + EA <= (others => '0'); + SoundCtrl3 <= (others => '0'); + SoundCtrl5 <= (others => '0'); + OldSample := '0'; + elsif Clk'event and Clk = '1' then + if PortWr(2) = '1' then + EA <= DB(2 downto 0); + end if; + if PortWr(3) = '1' then + SoundCtrl3 <= DB(5 downto 0); + end if; + if PortWr(4) = '1' and OldSample = '0' then + D5(15 downto 8) <= DB; + D5(7 downto 0) <= D5(15 downto 8); + end if; + if PortWr(5) = '1' then + SoundCtrl5 <= DB(5 downto 0); + end if; + OldSample := Sample; + end if; + end process; + + with EA select + S <= D5(15 downto 8) when "000", + D5(14 downto 7) when "001", + D5(13 downto 6) when "010", + D5(12 downto 5) when "011", + D5(11 downto 4) when "100", + D5(10 downto 3) when "101", + D5( 9 downto 2) when "110", + D5( 8 downto 1) when others; + +end; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/invaders_audio.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/invaders_audio.vhd new file mode 100644 index 00000000..f16cf379 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/invaders_audio.vhd @@ -0,0 +1,496 @@ + +-- Version : 0300 +-- The latest version of this file can be found at: +-- http://www.fpgaarcade.com +-- minor tidy up by MikeJ +------------------------------------------------------------------------------- +-- Company: +-- Engineer: PaulWalsh +-- +-- Create Date: 08:45:29 11/04/05 +-- Design Name: +-- Module Name: Invaders Audio +-- Project Name: Space Invaders +-- Target Device: +-- Tool versions: +-- Description: +-- +-- Dependencies: +-- +-- Revision: +-- Revision 0.01 - File Created +-- Additional Comments: +-- +-------------------------------------------------------------------------------- +library IEEE; +use IEEE.STD_LOGIC_1164.ALL; +use IEEE.STD_LOGIC_ARITH.ALL; +use IEEE.STD_LOGIC_UNSIGNED.ALL; + + +entity invaders_audio is + Port ( + Clk : in std_logic; + S1 : in std_logic_vector(5 downto 0); + S2 : in std_logic_vector(5 downto 0); + Aud : out std_logic_vector(7 downto 0) + ); +end; + --* Port 3: (S1) + --* bit 0=UFO (repeats) + --* bit 1=Shot + --* bit 2=Base hit + --* bit 3=Invader hit + --* bit 4=Bonus base + --* + --* Port 5: (S2) + --* bit 0=Fleet movement 1 + --* bit 1=Fleet movement 2 + --* bit 2=Fleet movement 3 + --* bit 3=Fleet movement 4 + --* bit 4=UFO 2 + +architecture Behavioral of invaders_audio is + + signal ClkDiv : unsigned(10 downto 0) := (others => '0'); + signal ClkDiv2 : std_logic_vector(7 downto 0) := (others => '0'); + signal Clk7680_ena : std_logic; + signal Clk480_ena : std_logic; + signal Clk240_ena : std_logic; + signal Clk60_ena : std_logic; + + signal s1_t1 : std_logic_vector(5 downto 0); + signal s2_t1 : std_logic_vector(5 downto 0); + signal tempsum : std_logic_vector(7 downto 0); + + signal vco_cnt : std_logic_vector(3 downto 0); + + signal TriDir1 : std_logic; + signal Fnum : std_logic_vector(3 downto 0); + signal comp : std_logic; + + signal SS : std_logic; + + signal TrigSH : std_logic; + signal SHCnt : std_logic_vector(8 downto 0); + signal SH : std_logic_vector(7 downto 0); + signal SauHit : std_logic_vector(8 downto 0); + signal SHitTri : std_logic_vector(5 downto 0); + + signal TrigIH : std_logic; + signal IHDir : std_logic; + signal IHDir1 : std_logic; + signal IHCnt : std_logic_vector(8 downto 0); + signal IH : std_logic_vector(7 downto 0); + signal InHit : std_logic_vector(8 downto 0); + signal IHitTri : std_logic_vector(5 downto 0); + + signal TrigEx : std_logic; + signal Excnt : std_logic_vector(9 downto 0); + signal ExShift : std_logic_vector(15 downto 0); + signal Ex : std_logic_vector(2 downto 0); + signal Explo : std_logic; + + signal TrigMis : std_logic; + signal MisShift : std_logic_vector(15 downto 0); + signal MisCnt : std_logic_vector(8 downto 0); + signal miscnt1 : unsigned(7 downto 0); + signal Mis : std_logic_vector(2 downto 0); + signal Missile : std_logic; + + signal EnBG : std_logic; + signal BGFnum : std_logic_vector(7 downto 0); + signal BGCnum : std_logic_vector(7 downto 0); + signal bg_cnt : unsigned(7 downto 0); + signal BG : std_logic; + +begin + + -- do a crude addition of all sound samples + p_audio_mix : process + variable IHVol : std_logic_vector(6 downto 0); + variable SHVol : std_logic_vector(6 downto 0); + begin + wait until rising_edge(Clk); + + IHVol(6 downto 0) := InHit(6 downto 0) and IH(6 downto 0); + SHVol(6 downto 0) := SauHit(6 downto 0) and SH(6 downto 0); + + tempsum(7 downto 0) <= ('0' & IHVol) + ('0' & SHVol); + + Aud(7) <= tempsum (7); + Aud(6) <= tempsum (6) xor (Mis(2) and Missile) xor (Ex(2) and Explo) xor BG; + Aud(5) <= tempsum (5) xor (Mis(1) and Missile) xor (Ex(1) and Explo) xor SS; + Aud(4) <= tempsum (4) xor (Mis(0) and Missile) xor (Ex(0) and Explo); + Aud(3 downto 0) <= tempsum (3 downto 0); + + end process; + + p_clkdiv : process + begin + wait until rising_edge(Clk); + Clk7680_ena <= '0'; + if ClkDiv = 1277 then + Clk7680_ena <= '1'; + ClkDiv <= (others => '0'); + else + ClkDiv <= ClkDiv + 1; + end if; + end process; + + p_clkdiv2 : process + begin + wait until rising_edge(Clk); + Clk480_ena <= '0'; + Clk240_ena <= '0'; + Clk60_ena <= '0'; + + if (Clk7680_ena = '1') then + ClkDiv2 <= ClkDiv2 + 1; + + if (ClkDiv2(3 downto 0) = "0000") then + Clk480_ena <= '1'; + end if; + + if (ClkDiv2(4 downto 0) = "00000") then + Clk240_ena <= '1'; + end if; + + if (ClkDiv2(7 downto 0) = "00000000") then + Clk60_ena <= '1'; + end if; + + end if; + end process; + + p_delay : process + begin + wait until rising_edge(Clk); + s1_t1 <= S1; + s2_t1 <= S2; + end process; +--*************************Saucer Sound*************************************** + +-- Implement a VCOscilator: frequency is set using counter end point(Fnum) + p_saucer_vco : process + variable term : std_logic_vector(3 downto 0); + begin + wait until rising_edge(Clk); + term := 8 + Fnum; + if (S1(0) = '1') and (Clk7680_ena = '1') then + if vco_cnt = term then + + vco_cnt <= (others => '0'); + SS <= not SS; + else + vco_cnt <= vco_cnt + 1; + end if; + end if; + end process; + +-- Implement a 5.3Hz trianglular wave LFO control the Variable oscilator + -- this is 6Hz ?? 0123454321 + p_saucer_lfo : process + begin + wait until rising_edge(Clk); + if (Clk60_ena = '1') then + if Fnum = 4 then -- 5 -1 + Comp <= '1'; + elsif Fnum = 1 then -- 0 +1 + Comp <= '0'; + end if; + + if comp = '1' then + Fnum <= Fnum - 1 ; + else + Fnum <= Fnum + 1 ; + end if; + end if; + end process; + +--**********************SAUCER HIT Sound************************** + +-- Implement a 10Hz saw tooth LFO to control the Saucer Hit VCO + p_saucer_hit_vco : process + begin + wait until rising_edge(Clk); + if (Clk480_ena = '1') then + if SHitTri = 48 then + SHitTri <= "000000"; + else + SHitTri <= SHitTri+1; + end if; + end if; + end process; + +-- Implement a trianglular wave VCO for Saucer Hit 200Hz to 1kHz approx + p_saucer_hit_lfo : process + begin + wait until rising_edge(Clk); + if (Clk7680_ena = '1') then + if TriDir1 = '1' then + if (SauHit +58 - SHitTri) < 190 + 256 then + SauHit <= SauHit +58 - SHitTri; + else + SauHit <= "110111110"; + TriDir1 <= '0'; + end if; + else + if (SauHit -58 + SHitTri) > 256 then + SauHit <= SauHit -58 + SHitTri; + else + SauHit <= "100000000"; + TriDir1 <= '1'; + end if; + end if; + end if; + end process; + +-- Implement the ADSR for Saucer Hit Sound + p_saucer_adsr : process + begin + wait until rising_edge(Clk); + if (Clk480_ena = '1') then + if (TrigSH = '1') then + SHCnt <= "100000000"; + SH <= "11111111"; + elsif (SHCnt(8) = '1') then + SHCnt <= SHCnt + "1"; + if SHCnt(7 downto 0) = x"60" then -- 96 + SH <= "01111111"; + elsif SHCnt(7 downto 0) = x"90" then -- 144 + SH <= "00111111"; + elsif SHCnt(7 downto 0) = x"C0" then -- 192 + SH <= "00000000"; + end if; + end if; + end if; + end process; + + -- Implement the trigger for The Saucer Hit Sound + p_saucer_hit : process + begin + wait until rising_edge(Clk); + if (S2(4) = '1') and (s2_t1(4) = '0') then -- rising_edge + TrigSH <= '1'; + elsif (Clk480_ena = '1') then + TrigSH <= '0'; + end if; + end process; + +--***********************Invader Hit Sound***************************** +-- Implement a 5Hz Triangular Wave LFO to control the Invaders Hit VCO + p_invader_hit_lfo : process + begin + wait until rising_edge(Clk); + if (Clk480_ena = '1') then + if IHitTri = 48-2 then + IHDir <= '0'; + elsif IHitTri =0+2 then + IHDir <= '1'; + end if; + + if IHDir ='1' then + IHitTri <= IHitTri + 2; + else + IHitTri <= IHitTri - 2; + end if; + end if; + end process; + +-- Implement a trianglular wave VCO for Invader Hit 700Hz to 3kHz approx + p_invader_hit_vco : process + begin + wait until rising_edge(Clk); + if (Clk7680_ena = '1') then + if IHDir1 = '1' then + if (InHit +10 + IHitTri) < 110 + 256 then + InHit <= InHit +10 + IHitTri; + else + InHit <= "101101110"; + IHDir1 <= '0'; + end if; + else + if (InHit -10 - IHitTri) > 256 then + InHit <= InHit -10 - IHitTri; + else + InHit <= "100000000"; + IHDir1 <= '1'; + end if; + end if; + end if; + end process; + +-- Implement the ADSR for Invader Hit Sound + p_invader_adsr : process + begin + wait until rising_edge(Clk); + if (Clk480_ena = '1') then + if (TrigIH = '1') then + IHCnt <= "100000000"; + IH <= "11111111"; + elsif (IHCnt(8) = '1') then + IHCnt <= IHCnt + "1"; + if IHCnt(7 downto 0) = x"14" then -- 20 + IH <= "01111111"; + elsif IHCnt(7 downto 0) = x"1C" then -- 28 + IH <= "11111111"; + elsif IHCnt(7 downto 0) = x"30" then -- 48 + IH <= "00000000"; + end if; + end if; + end if; + end process; + + -- Implement the trigger for The Invader Hit Sound + p_invader_hit : process + begin + wait until rising_edge(Clk); + if (S1(3) = '1') and (s1_t1(3) = '0') then -- rising_edge + TrigIH <= '1'; + elsif (Clk480_ena = '1') then + TrigIH <= '0'; + end if; + end process; + +--***********************Explosion***************************** +-- Implement a Pseudo Random Noise Generator + p_explosion_pseudo : process + begin + wait until rising_edge(Clk); + if (Clk480_ena = '1') then + if (ExShift = x"0000") then + ExShift <= "0000000010101001"; + else + ExShift(0) <= Exshift(14) xor ExShift(15); + ExShift(15 downto 1) <= ExShift (14 downto 0); + end if; + end if; + end process; + Explo <= ExShift(0); + + p_explosion_adsr : process + begin + wait until rising_edge(Clk); + if (Clk480_ena = '1') then + if (TrigEx = '1') then + ExCnt <= "1000000000"; + Ex <= "100"; + elsif (ExCnt(9) = '1') then + ExCnt <= ExCnt + "1"; + if ExCnt(8 downto 0) = '0' & x"64" then -- 100 + Ex <= "010"; + elsif ExCnt(8 downto 0) = '0' & x"c8" then -- 200 + Ex <= "001"; + elsif ExCnt(8 downto 0) = '1' & x"2c" then -- 300 + Ex <= "000"; + end if; + end if; + end if; + end process; + +-- Implement the trigger for The Explosion Sound + p_explosion_trig : process + begin + wait until rising_edge(Clk); + if (S1(2) = '1') and (s1_t1(2) = '0') then -- rising_edge + TrigEx <= '1'; + elsif (Clk480_ena = '1') then + TrigEx <= '0'; + end if; + end process; + +--***********************Missile***************************** +-- Implement a Pseudo Random Noise Generator + p_missile_pseudo : process + begin + wait until rising_edge(Clk); + if (Clk7680_ena = '1') then + if (MisShift = x"0000") then + MisShift <= "0000000010101001"; + else + MisShift(0) <= MisShift(14) xor MisShift(15); + MisShift(15 downto 1) <= MisShift (14 downto 0); + end if; + + miscnt1 <= miscnt1 + 20 + unsigned(MisShift(2 downto 0)); + if miscnt1 > 60 then + miscnt1 <= "00000000"; + Missile <= not Missile; + end if; + + end if; + end process; + +-- Implement the ADSR for The Missile Sound + p_missile_adsr : process + begin + wait until rising_edge(Clk); + if (Clk480_ena = '1') then + if (TrigMis = '1') then + MisCnt <= "100000000"; + Mis <= "100"; + elsif (MisCnt(8) = '1') then + MisCnt <= MisCnt + "1"; + if MisCnt(7 downto 0) = x"4b" then -- 75 + Mis <= "010"; + elsif MisCnt(7 downto 0) = x"70" then -- 112 + Mis <= "001"; + elsif MisCnt(7 downto 0) = x"96" then -- 150 + Mis <= "000"; + end if; + end if; + end if; + end process; + +-- Implement the trigger for The Missile Sound + p_missile_trig : process + begin + wait until rising_edge(Clk); + if (S1(1) = '1') and (s1_t1(1) = '0') then -- rising_edge + TrigMis <= '1'; + elsif (Clk480_ena = '1') then + TrigMis <= '0'; + end if; + end process; + +-- ******************************** Background invader moving tones ************************** + EnBG <= S2(0) or S2(1) or S2(2) or S2(3); + + with S2(3 downto 0) select + BGFnum <= x"66" when "0001", + x"74" when "0010", + x"7C" when "0100", + x"87" when "1000", + x"87" when others; + + with S2(3 downto 0) select + BGCnum <= x"33" when "0001", + x"3A" when "0010", + x"3E" when "0100", + x"43" when "1000", + x"43" when others; + +-- Implement a Variable Oscilator: set frequency using counter mid(Cnum) and end points(Fnum) + + p_background : process + begin + wait until rising_edge(Clk); + if (Clk7680_ena = '1') then + if EnBG = '0' then + bg_cnt <= x"00"; + BG <= '0'; + else + bg_cnt <= bg_cnt + 1; + + if bg_cnt = unsigned(BGfnum) then + bg_cnt <= x"00"; + BG <= '0'; + elsif bg_cnt=unsigned(BGCnum) then + BG <='1'; + end if; + end if; + end if; + end process; + +end Behavioral; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/mw8080.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/mw8080.vhd new file mode 100644 index 00000000..b9a88f96 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/mw8080.vhd @@ -0,0 +1,336 @@ +-- Midway 8080 main board +-- 9.984MHz Clock +-- +-- Version : 0242 +-- +-- Copyright (c) 2002 Daniel Wallner (jesus@opencores.org) +-- +-- All rights reserved +-- +-- Redistribution and use in source and synthezised forms, with or without +-- modification, are permitted provided that the following conditions are met: +-- +-- Redistributions of source code must retain the above copyright notice, +-- this list of conditions and the following disclaimer. +-- +-- Redistributions in synthesized form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- +-- Neither the name of the author nor the names of other contributors may +-- be used to endorse or promote products derived from this software without +-- specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, +-- THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +-- PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE +-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +-- POSSIBILITY OF SUCH DAMAGE. +-- +-- Please report bugs to the author, but before you do so, please +-- make sure that this is not a derivative work and that +-- you have the latest version of this file. +-- +-- The latest version of this file can be found at: +-- http://www.fpgaarcade.com +-- +-- Limitations : +-- +-- File history : +-- +-- 0241 : First release +-- +-- 0242 : Removed the ROM +-- +-- 0300 : MikeJ tidyup for audio release +-- +library IEEE; +use IEEE.std_logic_1164.all; +use IEEE.numeric_std.all; + +entity mw8080 is + port( + Rst_n : in std_logic; + Clk : in std_logic; + ENA : out std_logic; + RWE_n : out std_logic; + RDB : in std_logic_vector(7 downto 0); + RAB : out std_logic_vector(12 downto 0); + Sounds : out std_logic_vector(7 downto 0); + Ready : out std_logic; + GDB : in std_logic_vector(7 downto 0); + IB : in std_logic_vector(7 downto 0); + DB : out std_logic_vector(7 downto 0); + AD : out std_logic_vector(15 downto 0); + Status : out std_logic_vector(7 downto 0); + Systb : out std_logic; + Int : out std_logic; + Hold_n : in std_logic; + IntE : out std_logic; + DBin_n : out std_logic; + Vait : out std_logic; + HldA : out std_logic; + Sample : out std_logic; + Wr : out std_logic; + Video : out std_logic; + HSync : out std_logic; + VSync : out std_logic); +end mw8080; + +architecture struct of mw8080 is + + component T8080se + generic( + Mode : integer := 2; + T2Write : integer := 0); + port( + RESET_n : in std_logic; + CLK : in std_logic; + CLKEN : in std_logic; + READY : in std_logic; + HOLD : in std_logic; + INT : in std_logic; + INTE : out std_logic; + DBIN : out std_logic; + SYNC : out std_logic; + VAIT : out std_logic; + HLDA : out std_logic; + WR_n : out std_logic; + A : out std_logic_vector(15 downto 0); + DI : in std_logic_vector(7 downto 0); + DO : out std_logic_vector(7 downto 0)); + end component; + + signal Ready_i : std_logic; + signal Hold : std_logic; + signal IntTrig : std_logic; + signal IntTrigOld : std_logic; + signal Int_i : std_logic; + signal IntE_i : std_logic; + signal DBin : std_logic; + signal Sync : std_logic; + signal Wr_n, Rd_n : std_logic; + signal ClkEnCnt : unsigned(2 downto 0); + signal Status_i : std_logic_vector(7 downto 0); + signal A : std_logic_vector(15 downto 0); + signal ISel : std_logic_vector(1 downto 0); + signal DI : std_logic_vector(7 downto 0); + signal DO : std_logic_vector(7 downto 0); + signal RR : std_logic_vector(9 downto 0); + + signal VidEn : std_logic; + signal CntD5 : unsigned(3 downto 0); -- Horizontal counter / 320 + signal CntE5 : unsigned(4 downto 0); -- Horizontal counter 2 + signal CntE6 : unsigned(3 downto 0); -- Vertical counter / 262 + signal CntE7 : unsigned(4 downto 0); -- Vertical counter 2 + signal Shift : std_logic_vector(7 downto 0); + +begin + ENA <= ClkEnCnt(2); + Status <= Status_i; + Ready <= Ready_i; + DB <= DO; + Systb <= Sync; + Int <= Int_i; + Hold <= not Hold_n; + IntE <= IntE_i; + DBin_n <= not DBin; + Sample <= not Wr_n and Status_i(4); + Wr <= not Wr_n; + AD <= A; + Sounds(0) <= CntE7(3); + Sounds(1) <= CntE7(2); + Sounds(2) <= CntE7(1); + Sounds(3) <= CntE7(0); + Sounds(4) <= CntE6(3); + Sounds(5) <= CntE6(2); + Sounds(6) <= CntE6(1); + Sounds(7) <= CntE6(0); + + IntTrig <= (not CntE7(2) nand CntE7(3)) nand not CntE7(4); + + ISel(0) <= Status_i(0) nor (Status_i(6) nor A(13)); + ISel(1) <= Status_i(0) nor Status_i(6); + + with ISel select + DI <= "110" & CntE7(2) & not CntE7(2) & "111" when "00", + GDB when "01", + IB when "10", + RR(7 downto 0) when others; + + RWE_n <= Wr_n or not (RR(8) xor RR(9)) or not CntD5(2); + RAB <= A(12 downto 0) when CntD5(2) = '1' else + std_logic_vector(CntE7(3 downto 0) & CntE6(3 downto 0) & CntE5(3 downto 0) & CntD5(3)); + + u_8080: T8080se + generic map ( + Mode => 2, + T2Write => 1) + port map ( + RESET_n => Rst_n, + CLK => Clk, + CLKEN => ClkEnCnt(2), + READY => Ready_i, + HOLD => Hold, + INT => Int_i, + INTE => IntE_i, + DBIN => DBin, + SYNC => Sync, + VAIT => Vait, + HLDA => HLDA, + WR_n => Wr_n, + A => A, + DI => DI, + DO => DO); + + -- Clock enables + process (Rst_n, Clk) + begin + if Rst_n = '0' then + ClkEnCnt <= "000"; + VidEn <= '0'; + elsif Clk'event and Clk = '1' then + VidEn <= not VidEn; + if ClkEnCnt = 4 then + ClkEnCnt <= "000"; + else + ClkEnCnt <= ClkEnCnt + 1; + end if; + end if; + end process; + + -- Glue + process (Rst_n, Clk) + variable OldASEL : std_logic; + begin + if Rst_n = '0' then + Status_i <= (others => '0'); + IntTrigOld <= '0'; + Int_i <= '0'; + OldASEL := '0'; + Ready_i <= '0'; + RR <= (others => '0'); + elsif Clk'event and Clk = '1' then + -- E3 + -- Interrupt + IntTrigOld <= IntTrig; + if Status_i(0) = '1' then + Int_i <= '0'; + elsif IntTrigOld = '0' and IntTrig = '1' then + Int_i <= IntE_i; + end if; + + -- D7 + -- Status register + if Sync = '1' then + Status_i <= DO; + end if; + + -- A3, C3, E3 + -- RAM register/ready logic + if Sync = '1' and A(13) = '1' then + Ready_i <= '0'; + elsif Ready_i = '1' then + Ready_i <= '1'; + else + Ready_i <= RR(9); + end if; + if Sync = '1' and A(13) = '1' then + RR <= (others => '0'); + elsif (CntD5(2) = '1' and OldASEL = '0') or -- ASEL pos edge + (CntD5(2) = '0' and OldASEL = '1' and RR(8) = '1') then -- ASEL neg edge + RR(7 downto 0) <= RDB; + RR(8) <= '1'; + RR(9) <= RR(8); + end if; + OldASEL := CntD5(2); + end if; + end process; + + -- Video counters + process (Rst_n, Clk) + begin + if Rst_n = '0' then + CntD5 <= (others => '0'); + CntE5 <= (others => '0'); + CntE6 <= (others => '0'); + CntE7 <= (others => '0'); + elsif Clk'event and Clk = '1' then + if VidEn = '1' then + CntD5 <= CntD5 + 1; + if CntD5 = 15 then + + CntE5 <= CntE5 + 1; + if CntE5(3 downto 0) = 15 then + if CntE5(4) = '0' then + CntE5 <= "11100"; + + CntE6 <= CntE6 + 1; + if CntE6 = 15 then + + CntE7 <= CntE7 + 1; + if CntE7(3 downto 0) = 15 then + if CntE7(4) = '0' then + CntE6 <= "1010"; + CntE7 <= "11101"; + else + CntE7 <= "00010"; + end if; + end if; + end if; + end if; + else + end if; + end if; + end if; + end if; + end process; + + -- Video shift register + process (Rst_n, Clk) + begin + if Rst_n = '0' then + Shift <= (others => '0'); + Video <= '0'; + elsif Clk'event and Clk = '1' then + if VidEn = '1' then + if CntE7(4) = '0' and CntE5(4) = '0' and CntD5(2 downto 0) = "011" then + Shift(7 downto 0) <= RDB(7 downto 0); + else + Shift(6 downto 0) <= Shift(7 downto 1); + Shift(7) <= '0'; + end if; + Video <= Shift(0); + end if; + end if; + end process; + + -- Sync + process (Rst_n, Clk) + begin + if Rst_n = '0' then + HSync <= '1'; + VSync <= '1'; + elsif Clk'event and Clk = '1' then + if VidEn = '1' then + if CntE5(4) = '1' and CntE5(1 downto 0) = "10" then + HSync <= '0'; + else + HSync <= '1'; + end if; + if CntE7(4) = '1' and CntE7(0) = '0' and CntE6(3 downto 2) = "11" then + VSync <= '0'; + else + VSync <= '1'; + end if; + end if; + end if; + end process; + +end; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.ppf b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.ppf new file mode 100644 index 00000000..273b270e --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.ppf @@ -0,0 +1,9 @@ + + + + + + + + + diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.qip b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.qip new file mode 100644 index 00000000..48665362 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.qip @@ -0,0 +1,4 @@ +set_global_assignment -name IP_TOOL_NAME "ALTPLL" +set_global_assignment -name IP_TOOL_VERSION "13.1" +set_global_assignment -name VHDL_FILE [file join $::quartus(qip_path) "pll.vhd"] +set_global_assignment -name MISC_FILE [file join $::quartus(qip_path) "pll.ppf"] diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.vhd new file mode 100644 index 00000000..d65b9f9b --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/pll.vhd @@ -0,0 +1,350 @@ +-- megafunction wizard: %ALTPLL% +-- GENERATION: STANDARD +-- VERSION: WM1.0 +-- MODULE: altpll + +-- ============================================================ +-- File Name: pll.vhd +-- Megafunction Name(s): +-- altpll +-- +-- Simulation Library Files(s): +-- altera_mf +-- ============================================================ +-- ************************************************************ +-- THIS IS A WIZARD-GENERATED FILE. DO NOT EDIT THIS FILE! +-- +-- 13.1.4 Build 182 03/12/2014 SJ Web Edition +-- ************************************************************ + + +--Copyright (C) 1991-2014 Altera Corporation +--Your use of Altera Corporation's design tools, logic functions +--and other software and tools, and its AMPP partner logic +--functions, and any output files from any of the foregoing +--(including device programming or simulation files), and any +--associated documentation or information are expressly subject +--to the terms and conditions of the Altera Program License +--Subscription Agreement, Altera MegaCore Function License +--Agreement, or other applicable license agreement, including, +--without limitation, that your use is for the sole purpose of +--programming logic devices manufactured by Altera and sold by +--Altera or its authorized distributors. Please refer to the +--applicable agreement for further details. + + +LIBRARY ieee; +USE ieee.std_logic_1164.all; + +LIBRARY altera_mf; +USE altera_mf.all; + +ENTITY pll IS + PORT + ( + inclk0 : IN STD_LOGIC := '0'; + c0 : OUT STD_LOGIC + ); +END pll; + + +ARCHITECTURE SYN OF pll IS + + SIGNAL sub_wire0 : STD_LOGIC_VECTOR (4 DOWNTO 0); + SIGNAL sub_wire1 : STD_LOGIC ; + SIGNAL sub_wire2 : STD_LOGIC ; + SIGNAL sub_wire3 : STD_LOGIC_VECTOR (1 DOWNTO 0); + SIGNAL sub_wire4_bv : BIT_VECTOR (0 DOWNTO 0); + SIGNAL sub_wire4 : STD_LOGIC_VECTOR (0 DOWNTO 0); + + + + COMPONENT altpll + GENERIC ( + bandwidth_type : STRING; + clk0_divide_by : NATURAL; + clk0_duty_cycle : NATURAL; + clk0_multiply_by : NATURAL; + clk0_phase_shift : STRING; + compensate_clock : STRING; + inclk0_input_frequency : NATURAL; + intended_device_family : STRING; + lpm_hint : STRING; + lpm_type : STRING; + operation_mode : STRING; + pll_type : STRING; + port_activeclock : STRING; + port_areset : STRING; + port_clkbad0 : STRING; + port_clkbad1 : STRING; + port_clkloss : STRING; + port_clkswitch : STRING; + port_configupdate : STRING; + port_fbin : STRING; + port_inclk0 : STRING; + port_inclk1 : STRING; + port_locked : STRING; + port_pfdena : STRING; + port_phasecounterselect : STRING; + port_phasedone : STRING; + port_phasestep : STRING; + port_phaseupdown : STRING; + port_pllena : STRING; + port_scanaclr : STRING; + port_scanclk : STRING; + port_scanclkena : STRING; + port_scandata : STRING; + port_scandataout : STRING; + port_scandone : STRING; + port_scanread : STRING; + port_scanwrite : STRING; + port_clk0 : STRING; + port_clk1 : STRING; + port_clk2 : STRING; + port_clk3 : STRING; + port_clk4 : STRING; + port_clk5 : STRING; + port_clkena0 : STRING; + port_clkena1 : STRING; + port_clkena2 : STRING; + port_clkena3 : STRING; + port_clkena4 : STRING; + port_clkena5 : STRING; + port_extclk0 : STRING; + port_extclk1 : STRING; + port_extclk2 : STRING; + port_extclk3 : STRING; + width_clock : NATURAL + ); + PORT ( + clk : OUT STD_LOGIC_VECTOR (4 DOWNTO 0); + inclk : IN STD_LOGIC_VECTOR (1 DOWNTO 0) + ); + END COMPONENT; + +BEGIN + sub_wire4_bv(0 DOWNTO 0) <= "0"; + sub_wire4 <= To_stdlogicvector(sub_wire4_bv); + sub_wire1 <= sub_wire0(0); + c0 <= sub_wire1; + sub_wire2 <= inclk0; + sub_wire3 <= sub_wire4(0 DOWNTO 0) & sub_wire2; + + altpll_component : altpll + GENERIC MAP ( + bandwidth_type => "AUTO", + clk0_divide_by => 27, + clk0_duty_cycle => 50, + clk0_multiply_by => 10, + clk0_phase_shift => "0", + compensate_clock => "CLK0", + inclk0_input_frequency => 37037, + intended_device_family => "Cyclone III", + lpm_hint => "CBX_MODULE_PREFIX=pll", + lpm_type => "altpll", + operation_mode => "NORMAL", + pll_type => "AUTO", + port_activeclock => "PORT_UNUSED", + port_areset => "PORT_UNUSED", + port_clkbad0 => "PORT_UNUSED", + port_clkbad1 => "PORT_UNUSED", + port_clkloss => "PORT_UNUSED", + port_clkswitch => "PORT_UNUSED", + port_configupdate => "PORT_UNUSED", + port_fbin => "PORT_UNUSED", + port_inclk0 => "PORT_USED", + port_inclk1 => "PORT_UNUSED", + port_locked => "PORT_UNUSED", + port_pfdena => "PORT_UNUSED", + port_phasecounterselect => "PORT_UNUSED", + port_phasedone => "PORT_UNUSED", + port_phasestep => "PORT_UNUSED", + port_phaseupdown => "PORT_UNUSED", + port_pllena => "PORT_UNUSED", + port_scanaclr => "PORT_UNUSED", + port_scanclk => "PORT_UNUSED", + port_scanclkena => "PORT_UNUSED", + port_scandata => "PORT_UNUSED", + port_scandataout => "PORT_UNUSED", + port_scandone => "PORT_UNUSED", + port_scanread => "PORT_UNUSED", + port_scanwrite => "PORT_UNUSED", + port_clk0 => "PORT_USED", + port_clk1 => "PORT_UNUSED", + port_clk2 => "PORT_UNUSED", + port_clk3 => "PORT_UNUSED", + port_clk4 => "PORT_UNUSED", + port_clk5 => "PORT_UNUSED", + port_clkena0 => "PORT_UNUSED", + port_clkena1 => "PORT_UNUSED", + port_clkena2 => "PORT_UNUSED", + port_clkena3 => "PORT_UNUSED", + port_clkena4 => "PORT_UNUSED", + port_clkena5 => "PORT_UNUSED", + port_extclk0 => "PORT_UNUSED", + port_extclk1 => "PORT_UNUSED", + port_extclk2 => "PORT_UNUSED", + port_extclk3 => "PORT_UNUSED", + width_clock => 5 + ) + PORT MAP ( + inclk => sub_wire3, + clk => sub_wire0 + ); + + + +END SYN; + +-- ============================================================ +-- CNX file retrieval info +-- ============================================================ +-- Retrieval info: PRIVATE: ACTIVECLK_CHECK STRING "0" +-- Retrieval info: PRIVATE: BANDWIDTH STRING "1.000" +-- Retrieval info: PRIVATE: BANDWIDTH_FEATURE_ENABLED STRING "1" +-- Retrieval info: PRIVATE: BANDWIDTH_FREQ_UNIT STRING "MHz" +-- Retrieval info: PRIVATE: BANDWIDTH_PRESET STRING "Low" +-- Retrieval info: PRIVATE: BANDWIDTH_USE_AUTO STRING "1" +-- Retrieval info: PRIVATE: BANDWIDTH_USE_PRESET STRING "0" +-- Retrieval info: PRIVATE: CLKBAD_SWITCHOVER_CHECK STRING "0" +-- Retrieval info: PRIVATE: CLKLOSS_CHECK STRING "0" +-- Retrieval info: PRIVATE: CLKSWITCH_CHECK STRING "0" +-- Retrieval info: PRIVATE: CNX_NO_COMPENSATE_RADIO STRING "0" +-- Retrieval info: PRIVATE: CREATE_CLKBAD_CHECK STRING "0" +-- Retrieval info: PRIVATE: CREATE_INCLK1_CHECK STRING "0" +-- Retrieval info: PRIVATE: CUR_DEDICATED_CLK STRING "c0" +-- Retrieval info: PRIVATE: CUR_FBIN_CLK STRING "c0" +-- Retrieval info: PRIVATE: DEVICE_SPEED_GRADE STRING "8" +-- Retrieval info: PRIVATE: DIV_FACTOR0 NUMERIC "27" +-- Retrieval info: PRIVATE: DUTY_CYCLE0 STRING "50.00000000" +-- Retrieval info: PRIVATE: EFF_OUTPUT_FREQ_VALUE0 STRING "10.000000" +-- Retrieval info: PRIVATE: EXPLICIT_SWITCHOVER_COUNTER STRING "0" +-- Retrieval info: PRIVATE: EXT_FEEDBACK_RADIO STRING "0" +-- Retrieval info: PRIVATE: GLOCKED_COUNTER_EDIT_CHANGED STRING "1" +-- Retrieval info: PRIVATE: GLOCKED_FEATURE_ENABLED STRING "0" +-- Retrieval info: PRIVATE: GLOCKED_MODE_CHECK STRING "0" +-- Retrieval info: PRIVATE: GLOCK_COUNTER_EDIT NUMERIC "1048575" +-- Retrieval info: PRIVATE: HAS_MANUAL_SWITCHOVER STRING "1" +-- Retrieval info: PRIVATE: INCLK0_FREQ_EDIT STRING "27.000" +-- Retrieval info: PRIVATE: INCLK0_FREQ_UNIT_COMBO STRING "MHz" +-- Retrieval info: PRIVATE: INCLK1_FREQ_EDIT STRING "100.000" +-- Retrieval info: PRIVATE: INCLK1_FREQ_EDIT_CHANGED STRING "1" +-- Retrieval info: PRIVATE: INCLK1_FREQ_UNIT_CHANGED STRING "1" +-- Retrieval info: PRIVATE: INCLK1_FREQ_UNIT_COMBO STRING "MHz" +-- Retrieval info: PRIVATE: INTENDED_DEVICE_FAMILY STRING "Cyclone III" +-- Retrieval info: PRIVATE: INT_FEEDBACK__MODE_RADIO STRING "1" +-- Retrieval info: PRIVATE: LOCKED_OUTPUT_CHECK STRING "0" +-- Retrieval info: PRIVATE: LONG_SCAN_RADIO STRING "1" +-- Retrieval info: PRIVATE: LVDS_MODE_DATA_RATE STRING "Not Available" +-- Retrieval info: PRIVATE: LVDS_MODE_DATA_RATE_DIRTY NUMERIC "0" +-- Retrieval info: PRIVATE: LVDS_PHASE_SHIFT_UNIT0 STRING "deg" +-- Retrieval info: PRIVATE: MIG_DEVICE_SPEED_GRADE STRING "Any" +-- Retrieval info: PRIVATE: MIRROR_CLK0 STRING "0" +-- Retrieval info: PRIVATE: MULT_FACTOR0 NUMERIC "10" +-- Retrieval info: PRIVATE: NORMAL_MODE_RADIO STRING "1" +-- Retrieval info: PRIVATE: OUTPUT_FREQ0 STRING "10.00000000" +-- Retrieval info: PRIVATE: OUTPUT_FREQ_MODE0 STRING "1" +-- Retrieval info: PRIVATE: OUTPUT_FREQ_UNIT0 STRING "MHz" +-- Retrieval info: PRIVATE: PHASE_RECONFIG_FEATURE_ENABLED STRING "1" +-- Retrieval info: PRIVATE: PHASE_RECONFIG_INPUTS_CHECK STRING "0" +-- Retrieval info: PRIVATE: PHASE_SHIFT0 STRING "0.00000000" +-- Retrieval info: PRIVATE: PHASE_SHIFT_STEP_ENABLED_CHECK STRING "0" +-- Retrieval info: PRIVATE: PHASE_SHIFT_UNIT0 STRING "deg" +-- Retrieval info: PRIVATE: PLL_ADVANCED_PARAM_CHECK STRING "0" +-- Retrieval info: PRIVATE: PLL_ARESET_CHECK STRING "0" +-- Retrieval info: PRIVATE: PLL_AUTOPLL_CHECK NUMERIC "1" +-- Retrieval info: PRIVATE: PLL_ENHPLL_CHECK NUMERIC "0" +-- Retrieval info: PRIVATE: PLL_FASTPLL_CHECK NUMERIC "0" +-- Retrieval info: PRIVATE: PLL_FBMIMIC_CHECK STRING "0" +-- Retrieval info: PRIVATE: PLL_LVDS_PLL_CHECK NUMERIC "0" +-- Retrieval info: PRIVATE: PLL_PFDENA_CHECK STRING "0" +-- Retrieval info: PRIVATE: PLL_TARGET_HARCOPY_CHECK NUMERIC "0" +-- Retrieval info: PRIVATE: PRIMARY_CLK_COMBO STRING "inclk0" +-- Retrieval info: PRIVATE: RECONFIG_FILE STRING "pll.mif" +-- Retrieval info: PRIVATE: SACN_INPUTS_CHECK STRING "0" +-- Retrieval info: PRIVATE: SCAN_FEATURE_ENABLED STRING "1" +-- Retrieval info: PRIVATE: SELF_RESET_LOCK_LOSS STRING "0" +-- Retrieval info: PRIVATE: SHORT_SCAN_RADIO STRING "0" +-- Retrieval info: PRIVATE: SPREAD_FEATURE_ENABLED STRING "0" +-- Retrieval info: PRIVATE: SPREAD_FREQ STRING "50.000" +-- Retrieval info: PRIVATE: SPREAD_FREQ_UNIT STRING "KHz" +-- Retrieval info: PRIVATE: SPREAD_PERCENT STRING "0.500" +-- Retrieval info: PRIVATE: SPREAD_USE STRING "0" +-- Retrieval info: PRIVATE: SRC_SYNCH_COMP_RADIO STRING "0" +-- Retrieval info: PRIVATE: STICKY_CLK0 STRING "1" +-- Retrieval info: PRIVATE: SWITCHOVER_COUNT_EDIT NUMERIC "1" +-- Retrieval info: PRIVATE: SWITCHOVER_FEATURE_ENABLED STRING "1" +-- Retrieval info: PRIVATE: SYNTH_WRAPPER_GEN_POSTFIX STRING "0" +-- Retrieval info: PRIVATE: USE_CLK0 STRING "1" +-- Retrieval info: PRIVATE: USE_CLKENA0 STRING "0" +-- Retrieval info: PRIVATE: USE_MIL_SPEED_GRADE NUMERIC "0" +-- Retrieval info: PRIVATE: ZERO_DELAY_RADIO STRING "0" +-- Retrieval info: LIBRARY: altera_mf altera_mf.altera_mf_components.all +-- Retrieval info: CONSTANT: BANDWIDTH_TYPE STRING "AUTO" +-- Retrieval info: CONSTANT: CLK0_DIVIDE_BY NUMERIC "27" +-- Retrieval info: CONSTANT: CLK0_DUTY_CYCLE NUMERIC "50" +-- Retrieval info: CONSTANT: CLK0_MULTIPLY_BY NUMERIC "10" +-- Retrieval info: CONSTANT: CLK0_PHASE_SHIFT STRING "0" +-- Retrieval info: CONSTANT: COMPENSATE_CLOCK STRING "CLK0" +-- Retrieval info: CONSTANT: INCLK0_INPUT_FREQUENCY NUMERIC "37037" +-- Retrieval info: CONSTANT: INTENDED_DEVICE_FAMILY STRING "Cyclone III" +-- Retrieval info: CONSTANT: LPM_TYPE STRING "altpll" +-- Retrieval info: CONSTANT: OPERATION_MODE STRING "NORMAL" +-- Retrieval info: CONSTANT: PLL_TYPE STRING "AUTO" +-- Retrieval info: CONSTANT: PORT_ACTIVECLOCK STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_ARESET STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_CLKBAD0 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_CLKBAD1 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_CLKLOSS STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_CLKSWITCH STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_CONFIGUPDATE STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_FBIN STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_INCLK0 STRING "PORT_USED" +-- Retrieval info: CONSTANT: PORT_INCLK1 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_LOCKED STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_PFDENA STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_PHASECOUNTERSELECT STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_PHASEDONE STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_PHASESTEP STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_PHASEUPDOWN STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_PLLENA STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_SCANACLR STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_SCANCLK STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_SCANCLKENA STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_SCANDATA STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_SCANDATAOUT STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_SCANDONE STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_SCANREAD STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_SCANWRITE STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clk0 STRING "PORT_USED" +-- Retrieval info: CONSTANT: PORT_clk1 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clk2 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clk3 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clk4 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clk5 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clkena0 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clkena1 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clkena2 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clkena3 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clkena4 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_clkena5 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_extclk0 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_extclk1 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_extclk2 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: PORT_extclk3 STRING "PORT_UNUSED" +-- Retrieval info: CONSTANT: WIDTH_CLOCK NUMERIC "5" +-- Retrieval info: USED_PORT: @clk 0 0 5 0 OUTPUT_CLK_EXT VCC "@clk[4..0]" +-- Retrieval info: USED_PORT: @inclk 0 0 2 0 INPUT_CLK_EXT VCC "@inclk[1..0]" +-- Retrieval info: USED_PORT: c0 0 0 0 0 OUTPUT_CLK_EXT VCC "c0" +-- Retrieval info: USED_PORT: inclk0 0 0 0 0 INPUT_CLK_EXT GND "inclk0" +-- Retrieval info: CONNECT: @inclk 0 0 1 1 GND 0 0 0 0 +-- Retrieval info: CONNECT: @inclk 0 0 1 0 inclk0 0 0 0 0 +-- Retrieval info: CONNECT: c0 0 0 0 0 @clk 0 0 1 0 +-- Retrieval info: GEN_FILE: TYPE_NORMAL pll.vhd TRUE +-- Retrieval info: GEN_FILE: TYPE_NORMAL pll.ppf TRUE +-- Retrieval info: GEN_FILE: TYPE_NORMAL pll.inc FALSE +-- Retrieval info: GEN_FILE: TYPE_NORMAL pll.cmp FALSE +-- Retrieval info: GEN_FILE: TYPE_NORMAL pll.bsf FALSE +-- Retrieval info: GEN_FILE: TYPE_NORMAL pll_inst.vhd FALSE +-- Retrieval info: LIB_FILE: altera_mf +-- Retrieval info: CBX_MODULE_PREFIX: ON diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-a.hex b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-a.hex new file mode 100644 index 00000000..c83404c4 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-a.hex @@ -0,0 +1,18 @@ +:020000040000FA +:2000000000001902007A0100FC00007E0500FE0380FC0340FE0738F9033EF0FF0FA0FF03F4 +:2000200080FF0080FF00C0FF00E0FF00E0FF0170FF0330FE0730FC0F30FE0F30FE0F30F8C0 +:200040000F20F00700F00700F00700C00700800700000700000300400300800300000F045B +:200060000BA0000000B0010000B0013C00B0017E00F913FF00FF9FFF81F8C7FF9FFCFFFF88 +:20008000FFFEFFFFFF0000FF400000002000031C007E0080FF01E0FF07F0FF0FF0FF0FF810 +:2000A000FF1FF8FF1FF8FF1FF8E71FF0C30FF0810FE08107C0810380C301F0FF0FE0FF07E2 +:2000C000E0FF07F4FF2F843C21048120048120068160F7FFEF0681600400200400200400EE +:2000E000200400204A0D460C870CC40B090D050CC80C86228221C321002145224121042277 +:20010000061AFF08000CFAFE0316FD0201141328740B3336740B1230740B32368C0B1228EB +:200120008C0B0C38740B0C2A740B0D30740B0C2A8C0B0C388C0B0F30740B1111115265990B +:20014000999911111153759999991111115485999999C400747020FFA00AB400008E0E000F +:200160000047414B45404040404D53454F4040404040404040404040404040404040404073 +:200180004040404040404040404040404000002547524C404649474851494C50454F51405C +:2001A000434D494C4040404040404040404040474551404F454144553A3A3A3A3A3A203A19 +:2001C0003A3A3A3A3A4040444F41543B4040474D51404B453B484555404E414F444C454F86 +:2001E0003B2E554D52404841534540434F454449513C00001A4E52504840425251514D4CAF +:00000001FF diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-b.hex b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-b.hex new file mode 100644 index 00000000..e9efe4ee --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-b.hex @@ -0,0 +1,18 @@ +:020000040000FA +:200000001F00FA3F000315000500800D00800D00800F00C89F00F8FF00C01700C03F00C0CE +:200020007F00C01FC0801F7000073C800F0FF8FF03FCFF01CEFF00C61F00C61F00C61F0040 +:20004000C61F00FA3F000315000500800D00800D00800F00C89F00F8FF00C01700C03F0088 +:20006000C07F00C01F00801FC0000738800F0CF8FF0FFCFF03CE7F00C61F00C61F00C61F29 +:2000800000C61F00FA3F000315000500800D00800D00800F00C89F00F8FF00C01700C03F48 +:2000A00000C07F00C01F00801F00000708800FF0F8FF1FFCFF0FCEFF00C61F00C61F00C678 +:2000C0001F00C61F00FA3F000315000500800D00800D00800F00C89F00F8FF00C01700C028 +:2000E0003F00C07F00C01F00801F00000700800F00F83F00FCFF01CEFF0FC61F7FC61F0016 +:20010000C61F00C61F00FA3F000315000500800D00800D00800F00C89F00F8FF00C01700E1 +:20012000C03F00C07F00C01F00801F00000700800F00F83F00FCFF00CEFF01C6FF07C61FBC +:200140001EC61F70C61F00FA3F000315000500800D00800D00800F00C89F00F8FF00C01713 +:2001600000C03F00C07F00C01F00801F00000700800F00F83F00FC7F00CEFF01C6FF03C61F +:200180001F17C61F0EC61F14FA3F20030CF03F00F03F00E03D00C07900C07100C0E100C08F +:2001A000E100E06000707000343400383800F0F000030CF03F00E03F00C01F00C01F00C0AB +:2001C0001F00C01F00001E00001C00000C00000D00000E00003C00030CF03F00F03F00E037 +:2001E0001F00C00F00801F00003E00C07C00E07800703000343400383800F0F00003200421 +:00000001FF diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-c.hex b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-c.hex new file mode 100644 index 00000000..73d416cb --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-c.hex @@ -0,0 +1,18 @@ +:020000040000FA +:200000007E3C181C1818181818183C3C3C7E66607C3E06067E7E3C7E6660387860667E3CF8 +:20002000666666667E7E606060603E3E06063E7E60667E3C3C3E06063E7E66667E3C7E7E24 +:2000400060703038181C0C0C3C7E66663C7E66667E3C3C7E66667E7C60607C3C10383838A6 +:2000600038383838387CC0C0C0C0C0C00000C0C00000000000000000C0C00000002040FF0D +:2000800040200000F0C0A09008040201000078FCCCE07030300030300000000000000000C1 +:2000A0000000183C7E6666667E7E66663E7E66663E7E66667E3E3C7E6606060606667E3C50 +:2000C0003E7E6666666666667E3E7E7E06063E3E06067E7E7E7E06063E3E060606063C7E62 +:2000E0006606067676667E3C666666667E7E666666663C3C1818181818183C3C06060606BE +:20010000060606067E7EC3C3E7E7FFFFDBC3C3C366666E6E7E7E767666663C7E66666666A7 +:2001200066667E3C3E7E66667E3E060606063E7E66667E3E766666663C7E66063E7C60664B +:200140007E3C7E7E181818181818181866666666666666667E3C66666666667E3C3C18181B +:20016000C3C3C3DBFFFFE7E7C3C366667E3C1818181818180116101818181858781B1A1E49 +:200180001E9898783818181818181818021B000100038003C007C007601D00318007E01F53 +:2001A000F03D383904418003C007E00FF81F3E2907E90001000900050005081F381B3829C6 +:2001C000CC37FE5D0315000500800D00800D00800F00C89F00F8FF00C01780C03F50C07FB8 +:2001E00060C01F30801F3800071C800F0EF8FF07FCFF03CEFF01C61F00C61F00C61F00C6BA +:00000001FF diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-d.hex b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-d.hex new file mode 100644 index 00000000..f5711b67 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-d.hex @@ -0,0 +1,18 @@ +:020000040000FA +:20000000CE0F3E07C3FB053A0820A7C8218208220020C921C52034C8352A00202B22002086 +:20002000C90413010C610F0A24100F035A0001296D0F0026035A00010B990F143D052A203C +:20004000C30100004000660BAA8B0D4A0D8B0D035A00066320C6035400FE027800C8034B69 +:2000600000010BA40F143D033C00053D20C2FF400060006627A0C7220021C7220340000902 +:2000800021080127D50F012A052A20C30200004000A00BAA8B0D4A0D8B0D0004130F0A019F +:2000A00009AF0F0C2E010CB80FA23E052A20C0010000480066139A8B0D870C8B0D053D20FB +:2000C000C0FFE7A0480066139AC722C321C72206632006000004F800000AC80675200600CB +:2000E0000004F800000AC806872006000004F800000AC806992006000004F800000AC8031B +:200100001E000109C50F0C2E030A072A20073D20000105A40F0E2E14099B080C05202A20B7 +:2001200020FD0D0DC202030F000B2A20105F0E12032D00099B080E6010095D090E6050093E +:200140005D090E6090095D090E7810095D090E9010095D090E9050095D090E90900DB2025E +:200160000917090C02203D20D039230DB202030A000B3D20D09B2311032D00099B08610489 +:200180007304780487042A042A042A04B0048C0499049E04AB043E043E043E0417058407B8 +:2001A0008407840784078407840749056C051308E9053D06490655068D069D067006AD0674 +:2001C0008206BC064907380775078507AB070708E907EF07A305C9031B0936093C09420930 +:2001E00048094E0954095A09630900020000000000000000440000003C7E666666666666C7 +:00000001FF diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-e.hex b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-e.hex new file mode 100644 index 00000000..4372dd3e --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-e.hex @@ -0,0 +1,18 @@ +:020000040000FA +:20000000F21406471C7BE61FC20D06141404C20406C3FC05E5D521F809CA2406010A00097C +:200020003DC21F06EB0120003E0AF51A137709F13DC22A06D1E113F13DC2FB05C92A0020BE +:200040007E23220020320320C92A00207E23220020321520C9F3E10100001100003E1031DD +:200060000F40C513BAC26206AFD301310024FBE92A00205E2356232200201AE6BF1213AFA0 +:2000800012C92A00205E2356EB220020C92A00205E2356230E0FCD7203220020C92A002076 +:2000A0005E2356230E09CD7203220020C92A00205E2356232200201AEE6012C9210E0FAF2C +:2000C000D3023A02203DFAEB06FE02F41907FE05FAD5063E045E235623D55E2356230600CA +:2000E000E3F5CD2D02F1E13DF2D5063A162047E680C2030778F68032162021220F3A052060 +:20010000C3C5063A1620E640C0F6403216203E04D302AF21360FC3D506E5F52150207EE6C4 +:2001200080C22D07EB0E0F21520FCD72033A1620F640321620F1E1C92A00205E235623226E +:2001400000201A3C2712CDA3052A00205E235623F33E801213137E2312131313131AC60867 +:20016000124E234623220020131313EB71237023AF772377C92A00207ED301237E232200FB +:2001800020321420C92A00203A1D205E235623220020922E0267CD5903EBE54B70230DC244 +:2001A0009C07E10E200915C29A07C921002111C40B1AA7C87723134F1A13477723C578064B +:2001C0000009472B1A13D5571E0006087A1F577B175F05C2CC0773D10DC2C307C178060088 +:2001E000094705C2BD07C3B107213F20C3F207212C205E0104000956CD59031B151515219A +:00000001FF diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-f.hex b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-f.hex new file mode 100644 index 00000000..e3ba8b5d --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-f.hex @@ -0,0 +1,18 @@ +:020000040000FA +:20000000220020C93A0920FE22F4A705C9AEC84F0601790FDA20044F7807471313C3120483 +:2000200078AE77A0EB4E236669E91AE6700F0F0FA7C8321A2021E20E112A20C34F041AE675 +:20004000700F0F0FA7C8321B2021F00E113D204F0600094E2346EB36C0110B00197123706B +:20006000C906FEC268040600212A2036C01105001970C90602C3630406FFC27F0406002113 +:200080002A2036C02370C90601C37A0406FEC293040600213D20C36B040602C38E0406FF07 +:2000A000C2A5040600213D20C382040601C3A004C82163207EE680CAC1042175207EE68021 +:2000C000C01112201AA7C0E5EB11A23E011020CDFA043EE2D301112C2001081A3A1A2021D6 +:2000E000FE0ECD7C03E1F336C623712373232323702372FB3E02321420C90A3C02FE06FA90 +:20010000110577472103207E3611A7CA100536027821A40FC3FB05C82187207EE680CA28CF +:20012000052199207EE680C01113201AA7C0E5EB11B83E011120CDFA043ED2D301113F204F +:2001400001F8F63A1B20C3DF04C83E04321420D301210720343A06204FE603BED036007900 +:200160001F1FE6033C21082086E60777C83A0420A7C03A0820A7C83D32082006603A06202E +:20018000E630CA90054F78C6104779D610C285057832042021C62035210220AF772377232B +:2001A0002377C9AF3203200E04211E201102201A1F1F1F1FE60FC2BB053E10C63077231A2F +:2001C000E60FF63077062B79FE03C2D605062C1AA7C2D6053640132370230DC2AF053E08AD +:2001E000211E20110524C3FB052A00207E235E235623D55E235623220020E1F57E23D63030 +:00000001FF diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-g.hex b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-g.hex new file mode 100644 index 00000000..f925841c --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-g.hex @@ -0,0 +1,18 @@ +:020000040000FA +:200000002777C21802C314022115207EA7CA180235C2180221C52035DB0247DB02B8210602 +:2000200020119E09CC0D04F1C1D1E1FBC97AB3C81A134F1A8032BC201A1347C5E51A13D3AC +:2000400004DB0377230DC23D02AFD304DB0377E101200009C105C23B023ABC2047C9E57EE2 +:2000600023CD80025AE3AE771F1FE3232323CD80022B46E1AE77237EB02BC03EBFA677C93D +:20008000E603477E23864F239623DA970296D297022B2B7156AFC92B2B05C2A7022BAF969F +:2000A00077233E10C3BA022B36002305C2B4023E60C3BA0205C294023E4056A7C9AF5E7796 +:2000C00023567723477AB3EBC9E5010F0009444D2F32BD203E60BA21AB20D2E00221B2202D +:2000E00071237023CD5903732372237123E37EEB210B0019EBE3732372EB1717DA14031769 +:20010000DA3E032B562B5E0104003E8009732372E1AE77C9E13E50BDC8E53E2ABD214903AC +:20012000CA26032151033A0920E60C0F856FD23203245E2356E1E5010D00AFC30C03AF7782 +:20014000237723772377E177C98B0DB10DD70DB10DC722ED221323ED227BE6074F0603AF0C +:200160007A1F577B1F5F05C25F03E521002419EBE1C9F37E2312130DC27303C9D55F160084 +:200180001978462356E1865F232323237E8257C93E08210220060070233DC29703CD5506BA +:2001A000212108220020FB2A00203AC620A7CAB403219B085E23220020160021AE0919197F +:2001C0005E2356EB11A603D5E9CD1308DB0047DB00B8211720117E09CC0D04DB0147DB017C +:2001E000B8211820118E09CC0D04211C207EA7CA04043600075F160021D609195E2356EB88 +:00000001FF diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-h.hex b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-h.hex new file mode 100644 index 00000000..45ba5324 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/roms/gf-h.hex @@ -0,0 +1,18 @@ +:020000040000FA +:200000000000310024C39003E5D5C5F5C3870077E5D5C5F521B9207E2F77A7FAEA00216F53 +:2000200020E5CDBD02CA38001A1377231A1377780E1F0905A7CA2800E1111200197DFEB727 +:20004000C2210021A220E5CDBD02CA76001A13EB73237223EBD3027E12133E03D304DB038D +:20006000B677237E1213AFD304DB03B677780E1F0905A7CA5700E111EEFF197DFE5AC246AC +:200080000021B220C391003AB920A7FA180221AB20CDBD02D5CAB400CDBD02EBD5CDBD02A8 +:2000A000D1CAB400E54B70230DC2A600E10E200915C2A400E1CDBD02CA18021A13D302D5FE +:2000C000E3CDBD025E235623E322BA200600CD2D02E35E235623E3CD2D022ABA20E30C71B6 +:2000E000237023D1732372C318022163207EA7E5F25101237EA7237EFA0301FE70D2080172 +:20010000C35101FE90D25101110C00197EA7CA510111F8FF197ED610FEC0D25101E1E5363E +:20012000A023237E1F1F1F1FE60F4F232323237E321D20D6101F1FE630B11F5F1600213A48 +:200140000F19791F7ED24C011F1F1F1FE60F321C20E1111200193EABBDC2ED002163207ECF +:20016000A7F283013EFF32C420CD5E027E17F67FA677F28301E501090009CD59037323721C +:200180002371E1011200093EABBDC25F012ABE207DB4C29801212A2022C020AF32BD207EC9 +:2001A000A7F2B101CD5E023ABD20A7CCC90222BE20111300193E63BDC2BE01212A203AC0F1 +:2001C00020BDC29F012114207EA7CAD40135C2D401AFD30121092035F20802362221042060 +:2001E0007EA7CAF601C6992777C2F601EB21C42034C29D03EB342103207EA7CA0802C69922 +:00000001FF diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/spram.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/spram.vhd new file mode 100644 index 00000000..d8043481 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/spram.vhd @@ -0,0 +1,55 @@ +LIBRARY ieee; +USE ieee.std_logic_1164.all; + +LIBRARY altera_mf; +USE altera_mf.altera_mf_components.all; + +ENTITY spram IS + generic ( + addr_width_g : integer := 8; + data_width_g : integer := 8 + ); + PORT + ( + address : IN STD_LOGIC_VECTOR (addr_width_g-1 DOWNTO 0); + clken : IN STD_LOGIC := '1'; + clock : IN STD_LOGIC := '1'; + data : IN STD_LOGIC_VECTOR (data_width_g-1 DOWNTO 0); + wren : IN STD_LOGIC ; + q : OUT STD_LOGIC_VECTOR (data_width_g-1 DOWNTO 0) + ); +END spram; + + +ARCHITECTURE SYN OF spram IS + +BEGIN + altsyncram_component : altsyncram + GENERIC MAP ( + clock_enable_input_a => "NORMAL", + clock_enable_output_a => "BYPASS", + intended_device_family => "Cyclone III", + lpm_hint => "ENABLE_RUNTIME_MOD=NO", + lpm_type => "altsyncram", + numwords_a => 2**addr_width_g, + operation_mode => "SINGLE_PORT", + outdata_aclr_a => "NONE", + outdata_reg_a => "UNREGISTERED", + power_up_uninitialized => "FALSE", + read_during_write_mode_port_a => "NEW_DATA_NO_NBE_READ", + widthad_a => addr_width_g, + width_a => data_width_g, + width_byteena_a => 1 + ) + PORT MAP ( + address_a => address, + clock0 => clock, + clocken0 => clken, + data_a => data, + wren_a => wren, + q_a => q + ); + + + +END SYN; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/sprom.vhd b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/sprom.vhd new file mode 100644 index 00000000..a81ac959 --- /dev/null +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/GunFight_MiST/rtl/sprom.vhd @@ -0,0 +1,82 @@ +LIBRARY ieee; +USE ieee.std_logic_1164.all; + +LIBRARY altera_mf; +USE altera_mf.all; + +ENTITY sprom IS + GENERIC + ( + init_file : string := ""; + widthad_a : natural; + width_a : natural := 8; + outdata_reg_a : string := "UNREGISTERED" + ); + PORT + ( + address : IN STD_LOGIC_VECTOR (widthad_a-1 DOWNTO 0); + clock : IN STD_LOGIC ; + q : OUT STD_LOGIC_VECTOR (width_a-1 DOWNTO 0) + ); +END sprom; + + +ARCHITECTURE SYN OF sprom IS + + SIGNAL sub_wire0 : STD_LOGIC_VECTOR (width_a-1 DOWNTO 0); + + + + COMPONENT altsyncram + GENERIC ( + address_aclr_a : STRING; + clock_enable_input_a : STRING; + clock_enable_output_a : STRING; + init_file : STRING; + intended_device_family : STRING; + lpm_hint : STRING; + lpm_type : STRING; + numwords_a : NATURAL; + operation_mode : STRING; + outdata_aclr_a : STRING; + outdata_reg_a : STRING; + widthad_a : NATURAL; + width_a : NATURAL; + width_byteena_a : NATURAL + ); + PORT ( + clock0 : IN STD_LOGIC ; + address_a : IN STD_LOGIC_VECTOR (widthad_a-1 DOWNTO 0); + q_a : OUT STD_LOGIC_VECTOR (width_a-1 DOWNTO 0) + ); + END COMPONENT; + +BEGIN + q <= sub_wire0(width_a-1 DOWNTO 0); + + altsyncram_component : altsyncram + GENERIC MAP ( + address_aclr_a => "NONE", + clock_enable_input_a => "BYPASS", + clock_enable_output_a => "BYPASS", + init_file => init_file, + intended_device_family => "Cyclone III", + lpm_hint => "ENABLE_RUNTIME_MOD=NO", + lpm_type => "altsyncram", + numwords_a => 2**widthad_a, + operation_mode => "ROM", + outdata_aclr_a => "NONE", + outdata_reg_a => outdata_reg_a, + widthad_a => widthad_a, + width_a => width_a, + width_byteena_a => 1 + ) + PORT MAP ( + clock0 => clock, + address_a => address, + q_a => sub_wire0 + ); + + + +END SYN; diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/SpaceWalk_MiST/SpaceWalk.qsf b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/SpaceWalk_MiST/SpaceWalk.qsf index 7a6210e5..bbee1c05 100644 --- a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/SpaceWalk_MiST/SpaceWalk.qsf +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/SpaceWalk_MiST/SpaceWalk.qsf @@ -49,7 +49,6 @@ set_global_assignment -name VHDL_FILE rtl/invaders.vhd set_global_assignment -name VHDL_FILE rtl/mw8080.vhd set_global_assignment -name VHDL_FILE rtl/invaders_audio.vhd set_global_assignment -name SYSTEMVERILOG_FILE rtl/invaders_memory.sv -set_global_assignment -name VHDL_FILE rtl/dac.vhd set_global_assignment -name VHDL_FILE rtl/sprom.vhd set_global_assignment -name VHDL_FILE rtl/spram.vhd set_global_assignment -name VHDL_FILE rtl/T80/T8080se.vhd diff --git a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/SpaceWalk_MiST/rtl/invaders_memory.sv b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/SpaceWalk_MiST/rtl/invaders_memory.sv index b26e6d03..c5538595 100644 --- a/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/SpaceWalk_MiST/rtl/invaders_memory.sv +++ b/Arcade_MiST/Midway-Taito 8080 Hardware/Midway8080_MiST/SpaceWalk_MiST/rtl/invaders_memory.sv @@ -106,8 +106,8 @@ always @(Addr, rom_data_0, rom_data_1, rom_data_2, rom_data_3, rom_data_4, rom_d Rom_out = 8'b00000000; case (Addr[13:10]) 4'b0000 : Rom_out = rom_data_0; - 4'b0001 : Rom_out = rom_data_1; - 4'b0010 : Rom_out = rom_data_2; + 4'b0001 : Rom_out = rom_data_1;// 0100 0000 0000 + 4'b0010 : Rom_out = rom_data_2;// 1000 0000 0000 4'b0011 : Rom_out = rom_data_3; 4'b0100 : Rom_out = rom_data_4;