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

I fixed a few typos in ds.s and I made a pretend llss instruction in a7out.

Browse Source
This commit is contained in:
Warren Toomey
2016-03-03 19:46:34 +10:00
parent d33ce4c69f
commit d3f6924a9c
2 changed files with 44 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/cmd/ds.s
+24 -13
View File
@@ -12,13 +12,16 @@
dac fo dac fo
law 017 law 017
sys creat; scrname sys creat; scrname
spa; jms error spa
jms error
dac fso dac fso
sys open; scrname; 0 sys open; scrname; 0
spa; jms error spa
jms error
dac fsi dac fsi
sys chdir; dd sys chdir; dd
spa; jms error spa
jms error
lac d1 lac d1
sys write; pass1; 1 sys write; pass1; 1
law fsobuf law fsobuf
@@ -31,12 +34,14 @@
dac dirp dac dirp
dzm fsloc dzm fsloc
sys open; dotdot; 0 sys open; dotdot; 0
spa; jms error spa
jms error
dac fd dac fd
jms readdir; dotdot jms readdir; dotdot
law statbuf law statbuf
sys status; dotdot; dotdot sys status; dotdot; dotdot
spa; jms error spa
jms error
lac statbuf+12 " i index lac statbuf+12 " i index
dac dirp i dac dirp i
isz dirp isz dirp
@@ -75,13 +80,15 @@ loop:
sys read; scrname; 4 sys read; scrname; 4
law statbuf law statbuf
sys status; dotdot; scrname sys status; dotdot; scrname
spa; jms error spa
jms error
lac statbuf+0 " flags lac statbuf+0 " flags
and o20 and o20
sna sna
jmp 2f jmp 2f
sys open; scrname; 0 sys open; scrname; 0
spa; jms error spa
jms error
dac fd dac fd
jms readdir; scrname jms readdir; scrname
lac ddfilp i lac ddfilp i
@@ -109,7 +116,7 @@ loop:
dzm fflg dzm fflg
law fbuf law fbuf
dac i2 dac i2
r1 -1
tad nfiles tad nfiles
cma cma
dac c2 dac c2
@@ -123,7 +130,7 @@ loop:
-1 -1
tad i1 tad i1
dac i3 dac i3
iac i3 i lac i3 i
dac c3 dac c3
law fbuf law fbuf
dac i3 dac i3
@@ -166,7 +173,8 @@ loop:
jms putc jms putc
law statbuf law statbuf
sys status; scrname; dd sys status; scrname; dd
spa; jms error spa
jms error
-1 -1
tad statbuf+9 tad statbuf+9
cma cma
@@ -267,7 +275,8 @@ readdir: 0
jms copyz; buf; 64 jms copyz; buf; 64
lac fd lac fd
sys read; buf; 64 sys read; buf; 64
spa; jms error spa
jms error
sna sna
jmp 4f jmp 4f
-8 -8
@@ -292,7 +301,8 @@ readdir: 0
dac .+4 dac .+4
law statbuf law statbuf
sys status; 5:..; .. sys status; 5:..; ..
spa; jms error spa
jms error
jms longout jms longout
lac i1 lac i1
tad d1 tad d1
@@ -365,7 +375,8 @@ octal: 0
lac octal i lac octal i
dac c dac c
1: 1:
ecla llss 3 " ecla llss 3
llss 3
tad o60 tad o60
jms putc jms putc
isz c isz c
tools/a7out
+8 -1
View File
@@ -492,8 +492,15 @@ sub eae {
$PC++; $PC++;
return; return;
} }
if ( $maskedinstr == 0660600 ) { # llss: long left shift, signed
# We don't use MQ yet!
dprintf( "llss AC %06o step %d\n", $AC, $step );
$AC = ( $AC << $step ) & MAXINT;
$PC++;
return;
}
if ( $maskedinstr == 0640700 ) { # als: long left shift if ( $maskedinstr == 0640700 ) { # als: long left shift
dprintf( "alss AC %06o step %d\n", $AC, $step ); dprintf( "als AC %06o step %d\n", $AC, $step );
$AC = ( $AC << $step ) & MAXINT; $AC = ( $AC << $step ) & MAXINT;
$PC++; $PC++;
return; return;