Merge branch 'master' of https://github.com/DoctorWkt/pdp7-unix

2016-03-08 06:48:27 +10:00
parent 77ba9809e7 28a98360a4
commit 2d9157f4e6
6 changed files with 69 additions and 10 deletions
@@ -543,6 +543,16 @@ sub eae {
        $PC++;
        return;
    }
+    if ( $maskedinstr == 0640600 ) {    # lls: long left shift
+        dprintf( "lls AC %06o step %d\n", $AC, $step );
+        foreach my $i ( 1 .. $step ) {
+            my $MQmsb = ( $MQ & SIGN ) ? 1 : 0;
+            $AC = ( ( $AC << 1 ) | $MQmsb ) & MAXINT;
+            $MQ = ( ( $MQ << 1 ) | ( ($LINK) ? 1 : 0 ) ) & MAXINT;   # XXX how to handle unsigned?
+        }
+        $PC++;
+        return;
+    }
    if ( $maskedinstr == 0640700 ) {    # als: AC left shift
        dprintf( "als AC %06o step %d\n", $AC, $step );
        $AC = ( $AC << $step ) & MAXINT;