From 5c3eb06254615b91b7a5eca4617118d830215e23 Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Sat, 19 Oct 2019 00:21:49 -0400
Subject: [PATCH] a7out: handle ecla llss seen in adm,apr,bc,ds,sh

---
 tools/a7out | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tools/a7out b/tools/a7out
index ee92b2f..4835c1b 100755
--- a/tools/a7out
+++ b/tools/a7out
@@ -654,9 +654,11 @@ sub eae {
         $PC++;
         return;
     }
-    if ( $maskedinstr == 0660600 ) {    # llss: long left shift, signed
+    if ( ($maskedinstr == 0660600) ||
+	 ($maskedinstr == 0661600) ) {    # llss: long left shift, signed
 	# Set the link to be the AC sign bit
 	$LINK= ($AC & SIGN) ? LINKMASK : 0;
+	$AC = 0 if ($maskedinstr & 01000); # PLB: ecla llss seen in adm,apr,bc,ds,sh
         dprintf( "llss step %d\n", $step );
         foreach my $i ( 1 .. $step ) {
             my $MQmsb = ( $MQ & SIGN ) ? 1 : 0;