github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-13 15:27:39 +00:00
Code Issues Releases Wiki Activity

Ragge sent in another patch to a7out for the lrs instruction.

Browse Source
This commit is contained in:
Warren Toomey 2017-02-03 11:35:28 +10:00
parent 59dff5c9f2
commit 96069aeb66
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tools/a7out
View File

@ -680,10 +680,12 @@ sub eae {
return;
}
# lrs: long right shift
if ( ($maskedinstr == 0640500) || ($maskedinstr == 0641500) ) {
if (($maskedinstr & 0766777) == 0640500) {
dprintf( "lrs step %d\n", $step );
# Clear AC if the 01000 bit is set
$AC=0 if ($maskedinstr == 0641500);
$AC=0 if ($maskedinstr & 01000);
# Clear MQ if the 010000 bit is set
$MQ=0 if ($maskedinstr & 010000);
foreach my $i ( 1 .. $step ) {
my $MQmsb = ( $AC & 1 ) ? 0400000 : 0;
$AC = ( ( $AC >> 1 ) | ( ($LINK) ? 0400000 : 0 ) ) & MAXINT;