github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-26 12:12:37 +00:00
Code Issues Releases Wiki Activity

Fixed up the llss instruction in a7out.

Browse Source
This commit is contained in:
Warren Toomey
2016-03-10 07:44:31 +10:00
parent 3be45d4383
commit b03cc44290
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/sys/NOTES.md
View File

@@ -52,6 +52,7 @@ directory node (dnode) format
d.i i-number of file
d.name four words, space padded
d.uniq i.uniq value of file
two unused words, so 8 words/entry, 8 entries/block
```
i numbers

6
tools/a7out
View File

@@ -437,7 +437,7 @@ sub opr {
$skip = 1
if ( ( $i == 017 )
&& ( $LINK == 0 )
&& ( $AC != 0 )
&& ( $AC < SIGN )
&& ( $AC != 0 ) ); # szl & sna & spa
# Clear operations
@@ -558,6 +558,8 @@ sub eae {
return;
}
if ( $maskedinstr == 0660600 ) { # llss: long left shift, signed
# Set the link to be the AC sign bit
$LINK= ($AC & SIGN) ? LINKMASK : 0;
dprintf( "llss AC %06o step %d\n", $AC, $step );
foreach my $i ( 1 .. $step ) {
my $MQmsb = ( $MQ & SIGN ) ? 1 : 0;
@@ -572,7 +574,7 @@ sub eae {
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?
$MQ = ( ( $MQ << 1 ) | ( ($LINK) ? 1 : 0 ) ) & MAXINT;
}
$PC++;
return;