From 9a9242fd245af7ca8a5a0c5db03642e86d4a112a Mon Sep 17 00:00:00 2001 From: Paul Gardner-Stephen Date: Sat, 23 Sep 2023 16:08:29 +0930 Subject: [PATCH] allow control of IEC reset line #736 --- src/vhdl/iec_serial.vhdl | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/src/vhdl/iec_serial.vhdl b/src/vhdl/iec_serial.vhdl index ad86d5a9e..0521eb5d7 100644 --- a/src/vhdl/iec_serial.vhdl +++ b/src/vhdl/iec_serial.vhdl @@ -7,6 +7,12 @@ use Std.TextIO.all; use work.debugtools.all; use work.cputypes.all; +-- on Pi1541 test unit: +-- ATN - purple +-- SRQ - white +-- DATA - green +-- CLK - blue + entity iec_serial is generic ( cpu_frequency : integer @@ -28,7 +34,7 @@ entity iec_serial is -------------------------------------------------- -- CBM floppy serial port -------------------------------------------------- - iec_reset : out std_logic; + iec_reset : out std_logic := '1'; iec_atn : out std_logic; iec_clk_en : out std_logic; iec_data_en : out std_logic; @@ -222,6 +228,11 @@ begin iec_srq_o <= '1'; iec_srq_en <= '1'; when x"73" => -- Pull SRQ line low to 0V (bitbashing) iec_srq_o <= '0'; iec_srq_en <= '0'; + when x"52" => -- Drive IEC reset pin 5V + iec_reset <= '1'; + when x"72" => -- Drive IEC reset pin 0V + iec_reset <= '0'; + -- Protocol level commands when x"30" => -- Request device attention (send data byte under attention)