github.com/livingcomputermuseum.pdp7-unix
1
0
Fork 0
mirror of https://github.com/livingcomputermuseum/pdp7-unix.git synced 2026-04-19 01:18:14 +00:00
Code Issues 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

4
tools/a7out
View File

@@ -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;