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

Transcribed the remainder of 06-5-12.pdf

Browse Source 
First draft
This commit is contained in:
rswier
2016-02-27 16:38:58 -05:00
parent 7c46e5beef
commit ab77e0c69c
6 changed files with 628 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scans/Readme
+6 -1
View File
@@ -24,10 +24,15 @@ sx.s: temp additional symbol defns
maksys.s: page 64 of 01-s1.pdf maksys.s: page 64 of 01-s1.pdf
trysys.s: page 65 of 01-s1.pdf trysys.s: page 65 of 01-s1.pdf
bl.s: pages 3-6 of 06-5-12.pdf
bc.s: pages 7-11 of 06-5-12.pdf bc.s: pages 7-11 of 06-5-12.pdf
bi.s: pages 12-19 of 06-5-12.pdf bi.s: pages 12-19 of 06-5-12.pdf
bl.s: pages 3-6 of 06-5-12.pdf
cat.s: pages 21-23 of 06-5-12.pdf cat.s: pages 21-23 of 06-5-12.pdf
check.s: pages 25-30 of 06-5-12.pdf
chown.s: pages 32-33 of 06-5-12.pdf
chmod.s: pages 35-36 of 06-5-12.pdf
cp.s: pages 38-39 of 06-5-12.pdf
chrm.s: page 41 of 06-5-12.pdf
db.s: pages 2-21 of 07-13-19.pdf db.s: pages 2-21 of 07-13-19.pdf
dmabs.s: pages 23-27 of 07-13-19.pdf dmabs.s: pages 23-27 of 07-13-19.pdf
scans/check.s
+326
View File
@@ -0,0 +1,326 @@
" check
lac d1
sys sysloc
dac iget
lac d2
sys sysloc
dac inode
lac d4
sys sysloc
dac nxfblk
tad d1
dac nfblks
tad d1
dac fblks
lac d5
sys sysloc
dac copy
lac d6
sys sysloc
dac copyz
lac d7
sys sysloc
dac betwen
lac d8
sys sysloc
dac dskrd
lac d10
sys sysloc
dac dskbuf
dac dskbuf1
dzm indircnt
dzm icnt
dzm licnt
dzm blcnt
dzm curi
jms coopyz i; usetab; 500
iloop:
isz curi
-3400
tad curi
sma
jmp part2
lac curi
jms iget i
jms copy i; inode: 0; linode; 12
lac iflags
sma
jmp iloop
isz icnt
lac iflags
and o40
sza
jmp iloop
law idskps
dac t1
-7
dac t2
1:
lac i t1
sza
jms dupchech
isz t1
isz t2
jmp 1b
lac iflags
and o200000
sna
jmp iloop
isz licnt
law idskps
dac t1
-7
dac t2
1:
lac i t1
sna
jmp 3f
jms dskrd i
jms copy i; dskbuf: 0; ldskbuf; 64
isz indircnt
law ldskbuf
dac t3
-64
dac t4
2:
lac i t3
sza
jms dupcheck
isz t3
isz t4
jmp 2b
3:
isz t1
isz t2
jmp 1b
jmp iloop
dupcheck: 0
isz blcnt
jms betwen i d709; d6400
jmp badadr
dac t5
lrss 4
tad usetabp
dac t6
cla
llss 4
tad alsscom
dac 2f
lac d1
2: alss 0
dac bit
lac i t6
and bit
sza
jmp dup
lac i t6
xor bit
dac i t6
xor bit
dac i t6
jmp i dupcheck
badadr:
jms print
lac d1
sys write; badmes; 3
jmp i dupcheck
badmes:
< b>;<ad>;<r 012
dup:
lac t5
jms print
lac d1
sys write; dupmes; 3
lac curi
jms print
lac d1
sys write; dupmes+3; 1
jmp i dupcheck
dupmes:
< d>;<up>; 040; 012
print: 0
lmq
law prbuf-1
dac 8
-6
dac t6
1:
cla
llss 3
tad o60
dac i 8
isz t6
jmp 1b
lac d1
sys write; prbuf; 6
jmp i print
part2:
lac icnt
jmp print
lac d1
sys write; m3; m3s
lac licnt
jms print
lac d1
sys write; m4; m4s
lac indircnt
jms print
dac d1
sys write; m5; m5s
lac blcnt
jms print
lac d1
sys write; m6; m6s
dzm blcnt
-1
tad nfblks i
cma
sma
jmp 2f
dac t1
lac fblks
dac t2
1:
lac i t2
jms dupcheck
isz t2
isz t1
jmp 1b
2:
lac nxfblk i
1:
sna
jmp part3
dac t1
jms dupcheck
lac t1
jms dskrd i
jms copy i; dskbuf1: 0; ldskbuf; 64
law ldskbuf
dac t1
-9
dac t2
2:
isz t1
lac i t1
jms dupcheck
isz t2
jmp 2b
lac ldskbuf
jmp 1b
part3:
lac blcnt
jms print
lac d1
sys write; m7; m7s
lac d709
dac t1
1:
isz t1
lac t1
sad d6400
sys exit
lrss 4
tad usetabp
dac t2
cla
llss 4
tad alsscom
dac 2f
lac d1
2: alss 0
dac bit
lac i t2
and bit
sza
jmp 1b
lac t1
jms print
lac d1
sys write; m8; m8s
jmp 1b
d1: 1
d2: 2
d4: 4
d5: 5
d6: 6
d7: 7
d8: 8
d10: 10
o60: 060
o400000: 0400000
o400001: 0400001
o40: 040
o200000: 0200000
alsscom: alss 0
d709: 709
d6400: 6400
m3:
040;<fi>;<le>;<s 012
m3s = .-m3
m4:
040;<la>;<rg>;<e 012
m4s = .-m4
m5:
040;<in>;<di>;<r 012
m5s = .-m5
m6:
040;<us>;<ed>;012
m6s = .-m6
m7:
040;<fr>;<ee>;012
m7s = .-m7
m8:
040;<mi>;<ss>;<in>;<g 012
m8s = .-m8
usetabp: usetab
curi: 0
bit: 0
blcnt: 0
indircnt: 0
icnt: 0
licnt: 0
t1: 0
t2: 0
t3: 0
t4: 0
t5: 0
t6: 0
iget: 0
nxfblk: 0
nfblks: 0
fblks: 0
copy: 0
copyz: 0
betwen: 0
dskrd: 0
ldskbuf: .=.+64
linode: .=.+12
iflags = linode
idskps = iflags+1
usetab: .=.+500
prbuf: .=.+6
scans/chmod.s
+77
View File
@@ -0,0 +1,77 @@
" chmode
lac 017777 i
sad d4
jmp error
lac 017777
tad d4
dac 8
tad d1
dac name
dzm octal
dzm nchar
-8
dac c1
1:
lac nchar
dzm nchar
sza
jmp 2f
lac 8 i
lmq
and o177
dac nchar
lacq
lrss 9
2:
sad o40
jmp 3f
tad om60
lmq
lac octal
cll; als 3
omq
dac octal
3:
isz c1
jmp 1b
loop:
lac 017777 i
sad d8
sys exit
tad dm4
dac 017777 i
lac name
tad d4
dac name
lac octal
sys chmode; name:0
sma
jmp loop
lac name
dac 1f
lac d1
sys write; 1:0; 4
lac d1
sys write; 1f; 2
jmp loop
1:
040;077012
error:
lac d1
sys write; 1b+1; 1
sys exit
om60: -060
o40: 040
d1: 1
d8: 8
dm4: -4
d4: 4
o177: 0177
nchar: .=.+1
c1: .=.+1
octal: .=.+1
scans/chown.s
+78
View File
@@ -0,0 +1,78 @@
" chowner
lac 017777 i
sad d4
jmp error
lac 017777
tad d4
dac 8
tad d1
dac name
dzm octal
dzm nchar
-8
dac c1
1:
lac nchar
dzm nchar
sza
jmp 2f
lac 8 i
lmq
and o177
dac nchar
lacq
lrss 9
2:
sad o40
jmp 3f
tad om60
lmq
lac octal
cll; als 3
omq
dac octal
3:
isz c1
jmp 1b
loop:
lac 017777 i
sad d8
sys exit
tad dm4
dac 017777 i
lac name
tad d4
dac name
lac octal
sys chowner; name: 0
sma
jmp loop
lac name
dac 1f
lac d1
sys write; 1:0; 4
lac d1
sys write; 1f; 2
jmp loop
1:
040;077012
error:
lac d1
sys write; 1b+1; 1
sys exit
om60: -060
o40: 040
d1: 1
d8: 8
dm4: -4
d4: 4
o177: 0177
nchar: .=.+1
c1: .=.+1
octal: .=.+1
scans/chrm.s
+41
View File
@@ -0,0 +1,41 @@
" chrm
lac 017777
tad d5
dac 1f
dac 2f
lac 017777 i
sad d4
sys exit
tad dm4
dac 017777 i
sys chdir; dd
sys chdir; 1;0
1:
lac 017777 i
sad d4
sys exit
tad dm4
dac 017777 i
lac 2f
tad d4
dac 2f
sys unlink; 2:0
sma
jmp 1b
lac 2b
dac 2f
lac d1
sys write; 2:0; 4
lac d1
sys write; 1f; 2
jmp 1b
1:
040077;012000
dd:
<dd>;040040;040040;040040
d1: 1
d4: 4
d5: 5
dm4: -4
scans/cp.s
+97
View File
@@ -0,0 +1,97 @@
" cp
lac 017777
tad d1
dac name2
loop:
lac 017777 i
sad d4
sys exit
sad d8
jmp unbal
tad dm8
dac 017777 i
lac name2
tad d4
dac name1
tad d4
dac name2
sys open; name1: 0; 0
spa
jmp error
lac o17
sys creat; name2: 0
spa
jmp error
dzm nin
1:
lac bufp
tad nin
dac 0f
-1
tad nin
cma
tad d1024
dac 0f+1
lac d2
sys read; 0:..;..
sna
jmp 2f
tad nin
dac nin
sad d1024
jmp 2f
jmp 1b
2:
lac nin
dac 2f
lac d3
sys write; buf; 2: 0
dzm nin
lac 2b
sad d1024
jmp 1b
lac d2
sys close
lac d3
sys close
jmp loop
error:
lac name1
dac 1f
lac d1
sys write; 1: 0; 4
lac d1
sys write; mes; 1
lac name2
dac 1f
lac d1
sys write; 1: 0; 4
lac d1
sys write; mes; 2
jmp loop
mes:
040000;077012
unbal:
lac name2
tad d4
dac 1f
lac d1
sys write; 1: 0; 4
lac d1
sys write; mes; 2
sys exit
d1: 1
d4: 4
d8: 8
o17: 017
dm8: -8
d3: 3
d1024: 1024
nin: 0
bufp: buf
d2: 2
buf: