From 5022d16b774dbedf22338d1f412864ae7a5732bc Mon Sep 17 00:00:00 2001
From: Eugene Lozovoy <uzix.ls@gmail.com>
Date: Sat, 5 Oct 2024 10:30:57 +0300
Subject: [PATCH] fix random glitches while reading rtc in basic (fix by TSL)

Code to check:
10 out 61431, 128
20 out 57335, 0
30 print in 49143;
40 print " ";
50 goto 30
---
 rtl/z80/zports.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/z80/zports.v b/rtl/z80/zports.v
index 8316554..f8886f4 100644
--- a/rtl/z80/zports.v
+++ b/rtl/z80/zports.v
@@ -638,7 +638,7 @@ module zports
     if (comport_wr || comport_rd)
       wait_addr <= a[15:8];
 
-    if ((loa==PORTXT) && (hoa == DMAWPA))
+    if (portxt_wr && (hoa == DMAWPA))
       wait_addr <= din;
   end