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

system: update Readme, fix typos

Browse Source
This commit is contained in:
Phil Budne 2016-02-26 14:15:12 -05:00
parent 8143fc55e6
commit e022dbecfc
9 changed files with 89 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
scans/Readme
View File

@ -6,16 +6,16 @@ For modified versions of these files, look in src/cmds and src/sys.
Details of the files:
s1.s: pages 2-5 of 01-s1.pdf, incomplete
s2.s: pages 7-
s3.s: pages 14-
s4.s: pages 21-
s5.s: pages 28-
s6.s: pages 34-
s7.s: pages ??? of ???
s8.s: pages ??? of ???
s9.s: pages ??? of ???
sx.s: temp symbol defns (pages ??? of s1.s)
s1.s: pages 2-5 of 01-s1.pdf
s2.s: pages 7-12 of 01-s1.pdf
s3.s: pages 14-19 of 01-s1.pdf
s4.s: pages 21-26 of 01-s1.pdf
s5.s: pages 28-32 of 01-s1.pdf
s6.s: pages 34-38 of 01-s1.pdf
s7.s: pages 41-46 of 01-s1.pdf
s8.s: pages 48-51 of 01-s1.pdf
s9.s: pages 53-54 of 01-s1.pdf
sx.s: temp additional symbol defns
bc.s: pages 7-11 of 06-5-12.pdf
bi.s: pages 12-19 of 06-5-12.pdf

12
scans/s2.s
View File

@ -98,12 +98,12 @@
jms arg
dac 2f
lac d4
jms namei; 0; 0
jms namei; 0:0
jms error
jms namei; 1; 0
jms namei; 1:0
jms error
dac u.base
jms copy; 2; 0; name; 4
jms copy; 2:0; name; 4
lac u.cdir
jms namei; name
skp
@ -160,12 +160,12 @@
jms arg
dac 1f
lac u.cdir
jms namei; 0;0
jms namei; 0:0
jms error
lac d1
dac mode
jms access
jms copy; 1; 0; d.name; 4
jms copy; 1:0; d.name; 4
jmp okexit
.time:
@ -197,7 +197,7 @@
lac d2
dac mode
lac u.cdir
jms namei; 0; 0
jms namei; 0:0
jms error
jms iget
jms access

10
scans/s3.s
View File

@ -51,8 +51,8 @@ lookfor: 0
law sysexit
dac u.swapret
lac o200000
tad u.listp i
dac u.listp i
tad u.ulistp i
dac u.ulistp i
jms dskswap; 07000
lac 9f+t
dac u.ulistp
@ -138,7 +138,7 @@ t = t+1
sad u.ac
skp
jmp 1b i
lac 1u+2
lac lu+2
sad dm1
jmp 1f
lac o100000
@ -158,7 +158,7 @@ t = t+1
1:
-3
tad 8
dac 0f+t
dac 9f+t
lac o700000
tad 9f+t i
dac 9f+t i
@ -281,7 +281,7 @@ rkbdi:
3:
jms sleep; sfiles+2
jms swap
jmp rkdbi
jmp rkbdi
wdspo:
jms chkint1

12
scans/s4.s
View File

@ -55,7 +55,7 @@ free: 0
t = t+1
laci: 0
and o1777
and o17777
tad o200000
dac .+1
lac ..
@ -144,7 +144,7 @@ getchar: 0
tad o200001
dac .+3
cla
jms putc
jms putq
lac q2+1 ..
isz getchar
jmp i getchar
@ -155,7 +155,7 @@ takeq: 0
dac .+7
tad o640000
dac .+17
dad s1
tad d1
dac .+14
tad o500000
dac .+5
@ -234,7 +234,7 @@ collapse: 0
sna
jmp 0f+3
dac 0f+2
jms copy; 0; ..; ..; ..
jms copy; 0:..; ..; ..
-65
tad edskbsp
dac 9f+t
@ -242,7 +242,7 @@ collapse: 0
dac 0f
lac dskaddr
dac 9f+t i
jms copy; dskbuf; 0; ..; 64
jms copy; dskbuf; 0:..; 64
jmp collapse i
dskrd: 0
@ -265,7 +265,7 @@ dskrd: 0
dac .+2
jms copy; ..; dskbuf; 64
2:
jms collaps
jms collapse
jmp dskrd i
dskwr: 0

5
scans/s5.s
View File

@ -89,6 +89,11 @@ forall: 0
lrs 9
and o777
jmp forall i
failr:
lac u.base
add o400000
dac u.base
jmp forall+1
1:
lac u.count
dac u.ac

31
scans/s7.s
View File

@ -3,15 +3,16 @@
pibreak:
dac .ac "** CROSSED OUT....
lpsf
dpsf
jmp 1f
lpcf
dprs "** ??
dpcf
dprs
dac dpstat
sma ral
jmp 2f
dprc "** ??
dprc
dac dpchar
-1
dac dpread
@ -71,11 +72,7 @@ cnop:
jmp piret
1: lds "** BEGIN CROSSED OUT
sma ra1
jmp 1f
cdf
lac .dspb
sna
sma ral
jmp 1f
cdf
lac .dspb
@ -86,8 +83,16 @@ cnop:
jmp dsprestart
dac .dspb
jmp piret
dsprestart:
lac d1
dac .dspb
lac dspbufp
beg "** ???
-10
dac .dsptm
jmp piret
1: sna ra1
1: sna ral
jmp .+3
racf
jmp piret
@ -125,7 +130,7 @@ cnop:
"** 01-s1.pdf page 43
jms ptcr
jms putcr
jms ttyrestart
jmp piret
@ -277,7 +282,7 @@ ttyrestart: 0
piret:
lac 0
rai
ral
lac .ac
ion
jmp 0 i
@ -292,7 +297,7 @@ wakeup: 0
dac 2f+1
1:
lac 9f+t
rao
ral
dac 9f+t
sma
jmp 2f+2

10
scans/s8.s
View File

@ -4,7 +4,7 @@
" manifests
mnproc = 10
dspbss = 270
dspbsz = 270
ndskbs = 4
" flags
@ -24,7 +24,7 @@ maxquant: 30
ofilesp: u.ofiles
idskpp: i.dskps
dskbufp: dskbuf
edspbuf: dspbuf+dspbzs
edspbuf: dspbuf+dspbsz
fblksp: s.fblks
dacq1: dac q1
lacq1: lac q1
@ -113,7 +113,7 @@ coldentry:
ion
clon
law 3072
vcga
wcga
jms dspinit
law dspbuf
jms movdsp
@ -142,6 +142,7 @@ ttydelay: .=.+1
name: .=.+4
lnkaddr: .=.+1
char: .=.+1
dskaddr: .=.+1
uniqpid: 1
lu: .=.+4
sfiles: .=.+10
@ -180,7 +181,7 @@ userdata:
u.uid: -1
u.pid: 1
u.cdir: 3
u.ulistp: clist
u.ulistp: ulist
u.swapret: 0
u.base: 0
u.count: 0
@ -200,6 +201,7 @@ inode:
i.uniq: .=.+1
.= inode+12
di: .=.+1
dnode:
d.i: .=.+1
d.name: .=.+4
d.uniq: .=.+1

18
scans/s9.s
View File

@ -1,4 +1,4 @@
"** 01-s1.pdf page 54
"** 01-s1.pdf page 53
" s9 -- cold boot
. = coldentry+4
@ -8,7 +8,7 @@
dzm ii
jms copyz; dskbuf; 64
1:
iac ii
lac ii
jms dskio; 0700
isz ii
-710
@ -42,7 +42,7 @@
jms iget
jms copyz; inode; 12
jms getw " flags
dac i.dlags
dac i.flags
-1
dac i.uid
jms getw " number links
@ -51,7 +51,7 @@
tad xx
dac i.size
lac ii
dac u.uniq
dac i.uniq
law 4096-1
dac 8
-1
@ -65,7 +65,7 @@
2:
jms getw
dac 8 i
iss xx
isz xx
jmp 2b
3:
lac sum
@ -80,7 +80,7 @@
jms iwrite; 4096; ..
jms iput
cla
jms dksio
jms dskio
@ -90,10 +90,10 @@
getw: 0
jms getc
alss 12
imq
lmq
jms getc
omg
lmg
omq
lmq
jms getc
omg
lmg

25
scans/sx.s
View File

@ -1,5 +1,28 @@
" For now, this stuff is defined so that
" the assembler doesn't complain about it
" illegible
idunno=-1
wbi=-1
" disk I/O instructions?
dscs=-1
dslw=-1
dslm=-1
dsld=-1
dsls=-1
dssf=-1
dsrs=-1
" display I/O instructions?
dprs=-1
dprc=-1
dpsf=-1
dpcf=-1
" printer I/O instructions?
lpsf=-1
lpcf=-1
lpb=-1
o7000: 07000