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

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

Browse Source
This commit is contained in:
Tom Everett
2019-10-18 21:01:10 -06:00
parent b087cc0a61 d9b11c33ca
commit f03c2eaac5
6 changed files with 753 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
scans/README.md
View File

@@ -55,6 +55,12 @@ Details of the files:
* as.s: pages 32-48 of 05-1-4.pdf
* ed1.s: pages 7-20 of 08-rest.pdf
* ed2.s: pages 21-29 of 08-rest.pdf
* pd.s: page 1 of 11-45-91.pdf
* psych.s: page 2-6 of 11-45-91.pdf
* rm.s: page 7 of 11-45-91.pdf
* rn.s: page 8 of 11-45-91.pdf
* salv.s: pages 25-29 of 11-45-91.pdf
* sh.s: pages 30-36 of 11-45-91.pdf
* st-1.s pages 1-5 of 12-92-119.pdf
* st-2.s pages 6-9 of 12-92-119.pdf
* st-3.s pages 10-13 of 12-92-119.pdf

59
scans/pd.s Normal file
View File

@@ -0,0 +1,59 @@
" ** 11-45-91.pdf page 1
" pd
sys open; dotdot; 0
spa; jms error
dac df
law dir-1
dac 8
1:
lac df
sys read; tbuf; 8
spa; jms error
sna
jmp 1f
lac tbuf
sna
jmp 1b
-8
dac c1
law tbuf-1
dac 9
2:
lac 9 i
dac 8 i
isz c1
jmp 2b
jmp 1b
1:
lac df
sys close
law 017
sys creat; dotdot
spa; jms error
dac df
law dir-2
cma
tad 8
dac .+4
lac df
sys write; dir; ..
spa; jms error
lac df
sys close
sys exit
error: 0
-1
tad error
hlt
sys save
dotdot:
056056; 040040; 040040; 040040
c1: .=.+1
df: .=.+1
tbuf: .=.+8
dir:

303
scans/psych.s Normal file
View File

@@ -0,0 +1,303 @@
" ** 11-45-91.pdf page 2
" psych
lac d1
sys close
lac d13 "pushbuttons
sys sysloc
dac .pbp
tad d1
dac .pbp1
restart:
fld; arg1
fst; g
fld; arg2
fst; fact
fld; fp01
fst; d
jms capture
-100
dac j
fld; fp0
fst; z
fst; oldx
fst; oldy
lac o400000
dac i 11
dac i 11
lac setx
dac i 10
lac sety
dac i 10
loop:
sys time
fld; z
fad; fm110
fdv; radians
fst; b
fld; z
fad; g
fst; z
fld g;
fng
fmp; fact
fst; g
fld; fp1
fdv; fact
fst; fact
fld; b
fad; fpid2
sin
fmp; d
fmp; fp500
fst; xx
jms in
jmp done
fld; b
sin
fmp; d
fmp; fp500
fst; yy
jms in
jmp done
" ** 11-45-91.pdf page 3
lac o400000
dac i 11
dac i 11
fld; oldx
fng
fad; xx
fix
spa
xor o775777
sad vecx
dac i 10
fld; oldy
fng
fad; yy
fix
spa
xor o775777
tad vecy
dac i 10
fld; xx
fst; oldx
fld; yy
fst; oldy
isz j
skp
jmp done
fld; g
fdv; fp90000
fad; d
fst; d
jmp loop
done:
-1000
dac 9f
sys time
isz 9f
jmp .-2
skp
9f:0
dzm char
lac auto
sza
jmp doauto
1:
sys time " swap
lac i .pbp
sna
jmp 1b
spa ra1
jmp 1f
spa ra1
jmp 2f
spa ra1
jmp 3f
spa ra1
jmp 4f
spa ra1
jmp 5f
spa ra1
jmp 6f
" ** 11-45-91.pdf page 4
spa ra1
jmp 7f
jms release
sys exit
7: cla
sys read; tmp; 1
lac tmp
sad o141000
skp
jmp 0f
dac auto
dzm i .pbp1
jmp doauto
0:
sad o12000
jmp restart
dzm g
9:
cla
sys read; char; 1
lac char
sad o12000
jmp 9f
lrss 9
dac char
lac g
alss 3
tad char
tad om60
dac g
jmp 9b
9:
lac tmp
sad o61000
jmp 9f
lac g
dac arg2
jmp restart
9:
lac g
dac arg1
jmp restart
5:
isz fp500
nop
jmp restart
6:
-1
tad fp500
dac fp500
jmp restart
4:
lac o400000
dac char
3:
fld; arg1
dmp; fm056
lac char
spa
fng
" ** 11-45-91.pdf page 5
fad; arg1
fst; arg1
jmp restart
2:
lac o400000
dac char
1:
fld; arg2
fmp; fm056
lac char
spa
fng
fad; arg2
fst; arg2
jmp restart
doauto:
lac i .pbp1
sma
jmp 1f
dzm auto
jmp done
1:
sys time
omq
tad 0
tad stick
cli
mul
78625
lls 9
dac stick
dzm sexp
and o177777
xor o200000
dac ams
fad; fmhalf
fmp; fp128
lac stick
and d1
sna
jmp 1f
fst; arg1
jmp restart
1:
fst; arg2
jmp restart
in: 0
fix
tad d500
spa
jmp i in
tad dm1000
spa
isz in
jmp i in
capture: 0
law buf-1
dac 10
" ** 11-45-91.pdf page 6
dac 11
lac o400000
dac i 11
law buf
sys capt
jmp i capture
release: 0
sys rele
jmp i release
char: 0
stick: 0
xx: 0; 0; 0
oldx: 0; 0; 0
yy: 0; 0; 0
oldy: 0;0 0; 0
j: 0
auto: 0
setx: 0142000 +512
sety: 0146000 +512
vacx: 0100000
vecy: 0124000
o775777: 0775777
o177777: 0177777
o12000: 012000
o61000: 061000
om60: -060
d13: 13
d500: 500
o141000: 0141000
fp128:8; 0240000; 0
fmhalf: 0; 0600000; 0
dm1000: -1000
fact: 0;0;0
g: 0;0;0
z: 0;0;0
b: 0;0;0
d: 0;0;0
radians: 6;0345136;0
fm110: 7;0734000;0
arg1: 7;0234167;0
arg2: 1;0275531;0
fp0: 0;0;0
fp01: -6;024656;0
fm056: -4;0745301;0
pp500: 11;0372000;0
fp90000: 032;0257620;0
.pbp: .=.+1
.pbp1: 0
buf:

33
scans/rm.s Normal file
View File

@@ -0,0 +1,33 @@
" ** 11-45-91.pdf page 7
" rm
lac 017777
tad d1
dac 2f
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; 2f-1f
jmp 1b
1:
040077;012000
2:
d1: 1
d4: 4
dm4: -4

54
scans/rn.s Normal file
View File

@@ -0,0 +1,54 @@
" ** 11-45-91.pdf page 8
" rn
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 unlink; name2: 0
lac name2
dac 1f
sys rename; name1: 0; 1: 0
sma
jmp loop
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
dm8: -8

298
scans/salv.s Normal file
View File

@@ -0,0 +1,298 @@
" ** 11-45-91.pdf page 25
" salv
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
lac d15
sys sysloc
dac free
dzm indircnt
dzm icnt
dzm licnt
dzm blcnt
dzm curi
jms copyz 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
" ** 11-45-91.pdf page 26
lac iflags
and 040
sza
jmp iloop
law idskps
dac t1
-7
dac t2
1:
lac i t1
sza
jms dupcheck
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; idskbuf: 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
" ** 11-45-91.pdf page 27
lac d1
2: alss 0
dac bit
lac i t6
and bit
sza
jmp dup
lac 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
jmp i dupcheck
dupmes:
< d>;<up><a 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
jms print
lac d1
sys write; m3; m3s
lac licnt
jms print
lac d1
sys write; m4; m4s
lac indircnt
jms print
lac d1
sys write; m5; m5s
lac blcnt
jms print
" ** 11-45-91.pdf page 28
lac d1
sys write; m6; m6s
dzm blcnt
dzm nxfblk i
dzm nfblks i
lac d709
dac t1
1:
isz t1
lac t1
sad d6400
jmp part3
lrss 4
tad usetabp
dac t2
cla
lrss 4
tad alsscom
dac 2f
lac d1
2: alss 0
dac bit
lac i t2
and bit
sza
jmp 1b
part3:
lac blcnt
jms print
lac d1
sys write; m7; m7s
d1: 1
d2: 2
d4: 4
d5: 5
d6: 6
d7: 7
d8: 8
d10: 10
d15: 15
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:
" ** 11-45-91.pdf page 29
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
free: 0
ldskbuf: .=.+64
linode: .=.+12
iflags = linode
idskps = iflags+1
usetab: .=.+500
prbuf: .=.+6