glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

a7out: handle ecla llss seen in adm,apr,bc,ds,sh

Browse Source
This commit is contained in:
Phil Budne
2019-10-19 00:21:49 -04:00
parent 308f6349b9
commit 5c3eb06254
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/a7out
+3 -1
View File
@@ -654,9 +654,11 @@ sub eae {
$PC++; $PC++;
return; 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 # Set the link to be the AC sign bit
$LINK= ($AC & SIGN) ? LINKMASK : 0; $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 ); dprintf( "llss step %d\n", $step );
foreach my $i ( 1 .. $step ) { foreach my $i ( 1 .. $step ) {
my $MQmsb = ( $MQ & SIGN ) ? 1 : 0; my $MQmsb = ( $MQ & SIGN ) ? 1 : 0;