From fb6d9e7bd94a3fffa2aa163d3a17ee506a7046b3 Mon Sep 17 00:00:00 2001
From: sizemore <unknown>
Date: Mon, 5 May 2008 13:01:20 +0200
Subject: [PATCH] nagra: fix TAS/TXS/TYS

---
 systems/nagra/cpu.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/systems/nagra/cpu.c b/systems/nagra/cpu.c
index c3783c7..7c7554e 100644
--- a/systems/nagra/cpu.c
+++ b/systems/nagra/cpu.c
@@ -921,13 +921,13 @@ int c6805::Run(int max_count)
       case 0x9C: // RSP
         sp=spHi; break;
       case 0x96: // TSX
-        *ex=sp; break;
+        *ex=sp&0xFF; break;
       case 0x94: // TXS (ST7)
-        sp=*ex; break;
+        sp=(sp&0xFF00)|*ex; break;
       case 0x9E: // TSA
-        a=sp; break;
+        a=sp&0xFF; break;
       case 0x95: // TAS (ST7)
-        sp=a; break;
+        sp=(sp&0xFF00)|a; break;
       case 0x84: // POPA (ST7)
         a=pop(); break;
       case 0x85: // POPX (ST7)
-- 
2.39.5