Working version with loader from schmidt trigger

ula/ula.sv

@@ -55,6 +55,7 @@ module ula
     input wire AUD_ADCDAT,
     output reg beeper,
 	 output reg beep,
+	 input wire raw_loader_in,
 
     //-------- VGA connector --------------------
     output wire [3:0] VGA_R,
@@ -102,7 +103,8 @@ begin
         pcm_outl[12] <= pcm_inl[14] | pcm_inr[14];
         pcm_outr[12] <= pcm_inl[14] | pcm_inr[14];
         // Let us see the tape loading!
-        beep <= (pcm_inl[14] | pcm_inr[14]) ^ D[4] ^ D[3];
+//        beep <= (pcm_inl[14] | pcm_inr[14] | raw_loader_in) ^ D[4] ^ D[3];
+        beep <= raw_loader_in ^ D[4] ^ D[3];
     end
 end
 
@@ -172,7 +174,8 @@ begin
     ula_data = 8'hFF;
     // Regular IO at every odd address: line-in and keyboard
     if (A[0]==0) begin
-        ula_data = { 1'b1, pcm_inl[14] | pcm_inr[14], 1'b1, key_row[4:0] };
+//        ula_data = { 1'b1, pcm_inl[14] | pcm_inr[14] | raw_loader_in, 1'b1, key_row[4:0] };
+        ula_data = { 1'b1, raw_loader_in, 1'b1, key_row[4:0] };
     end
 end