From: sizemore <unknown>
Date: Mon, 5 May 2008 11:01:20 +0000 (+0200)
Subject: nagra: fix TAS/TXS/TYS
X-Git-Tag: 0.9.1~94
X-Git-Url: http://www.vanbest.org/gitweb/?a=commitdiff_plain;h=fb6d9e7bd94a3fffa2aa163d3a17ee506a7046b3;p=sasc-ng.git

nagra: fix TAS/TXS/TYS
---

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)