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

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

Browse Source
This commit is contained in:
Warren Toomey
2016-04-28 14:49:05 +10:00
parent c1dc742f03 1a4c0c3c71
commit bcc9bc09d8
5 changed files with 226 additions and 228 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/other/brt.s
+2 -2
View File
@@ -112,7 +112,7 @@ jmp start
isz sp isz sp
jmp fetch jmp fetch
.getchr: .+1 .getchar: .+1
s 2 s 2
n 8 n 8
n 7 n 7
@@ -125,7 +125,7 @@ jmp start
isz sp isz sp
jmp fetch jmp fetch
.putchr: .+1 .putchar: .+1
s 2 s 2
n 8 n 8
n 7 n 7
src/other/brtb.b
+32 -52
View File
@@ -11,72 +11,52 @@ lchar(s, n, c) {
return(c); return(c);
} }
getstr(s) { putnum(n, b) {
auto c, i; auto a, d;
i = 0; d = 0;
while ((c = getchr()) != '*n') { if (n < 0) {
lchar(s,i,c); n = -n;
i = i+1; if (n < 0) {
n = n-1;
d = 1;
} else
putchar('-');
} }
lchar(s,i,'*e'); if (a = n/b)
return(s); putnum(a, b);
} putchar(n%b + '0' + d);
putstr(s) {
auto c, i;
i = 0;
while ((c = char(s,i)) != '*e') {
putchr(c);
i = i+1;
}
}
putnum(n) {
if (n > 9) {
putnum(n / 10);
n = n % 10;
}
putchr(n + '0');
}
octal(n) {
if (n > 7) {
octal(n / 8);
n = n & 7;
}
putchr(n + '0');
} }
printf(fmt,x1,x2,x3,x4,x5,x6,x7,x8,x9) { printf(fmt,x1,x2,x3,x4,x5,x6,x7,x8,x9) {
auto adx, c, i; auto adx, a, c, i, n;
i = 0; i = 0;
adx = &x1; adx = &x1;
loop: loop:
while ((c = char(fmt,i)) != '%') { while ((c = char(fmt, i)) != '%') {
if (c=='*e') if (c == '*e')
return; return;
putchr(c); putchar(c);
i = i+1; i = i+1;
} }
i = i+1; i = i+1;
c = char(fmt,i); a = *adx;
if (c=='d') { c = char(fmt, i);
if (*adx < 0) { if (c=='d')
putchr('-'); putnum(a, 10);
*adx = -*adx; else if (c=='o')
} putnum(a, 8);
putnum(*adx);
} else if (c=='o')
octal(*adx);
else if (c=='c') else if (c=='c')
putchr(*adx); putchar(a);
else if (c=='s') else if (c=='s') {
putstr(*adx); n = 0;
else { while ((c = char(a, n)) != '*e') {
putchr('%'); putchar(c);
n = n+1;
}
} else {
putchar('%');
goto loop; goto loop;
} }
i = i+1; i = i+1;
src/sys/s4.s
+114 -100
View File
@@ -3,60 +3,61 @@
" allocate a free disk block for a file (data or indirect) " allocate a free disk block for a file (data or indirect)
alloc: 0 alloc: 0
-1 " Decrement the # free block numbers in the cache -1 " decrement the count
tad s.nfblks " kept at s.fblks. Jump to 1f if no free blocks left. tad s.nfblks " of free blocks at s.fblks
spa spa " any left?
jmp 1f jmp 1f " no
dac s.nfblks " Update the count of free block numbers dac s.nfblks " Update the count of free block numbers
tad fblksp tad fblksp " get pointer to last valid entry in s.fblks
jms laci jms laci " fetch the word
dac 9f+t dac 9f+t " save in t0
jms copyz; dskbuf; 64 jms copyz; dskbuf; 64 " zero dskbuf
lac 9f+t lac 9f+t " get block number back
jms dskwr jms dskwr " write out the zeros
dzm .savblk dzm .savblk " cancel system block write
lac 9f+t lac 9f+t " get the block number back
jmp alloc i " Return from routine jmp alloc i " Return from routine
1: 1:
lac s.nxfblk lac s.nxfblk " next block with list of free blocks
sna sna " any?
jms halt " OUT OF DISK jms halt " OUT OF DISK
dac s.fblks dac s.fblks " save as first free block #
jms dskrd jms dskrd " read the block
lac dskbuf lac dskbuf " get first word (pointer to next in chain)
dac s.nxfblk dac s.nxfblk " save as new "next"
jms copy; dskbuf+1; s.fblks+1; 9 jms copy; dskbuf+1; s.fblks+1; 9 " copy remaining 9 as free
lac d10 lac d10 " reset free count
dac s.nfblks dac s.nfblks
jmp alloc+1 jmp alloc+1
" free the disk block whose number is in AC " free the disk block whose number is in AC
free: 0 free: 0
lmq lmq " save block in MQ
lac s.nfblks lac s.nfblks " get number of free blocks
sad d10 sad d10 " 10?
jmp 1f jmp 1f " yes
tad fblksp tad fblksp " no: get addr in s.fblks to store new block in
dac 9f+t dac 9f+t " save pointer
lacq lacq " get block number
dac 9f+t i dac 9f+t i " save it in s.fblks
dzm .savblk dzm .savblk " cancel system block write
isz s.nfblks isz s.nfblks " increment free count
jmp free i jmp free i " return
1: 1:
lac s.nxfblk lac s.nxfblk " get head of free chain
dac dskbuf dac dskbuf " save (as chain ptr) in first word of disk buf
jms copy; s.fblks+1; dskbuf+1; 9 jms copy; s.fblks+1; dskbuf+1; 9 " with 9 of the 10 free blocks
lacq lacq " get the newly freed block back
dac s.nxfblk dac s.nxfblk " save as new head of free chain
jms dskwr jms dskwr " write dskbuf to the newly freed block
dzm .savblk dzm .savblk " cancel system block write
lac d1 lac d1 " reset free count to one
dac s.nfblks dac s.nfblks " (the first word in s.fblks)
jmp free i " Return from the routine jmp free i " Return from the routine
t = t+1 t = t+1
" load AC indirect (without using indirect!) " load AC indirect (without using indirect!)
" need to avoid use of indirect in interrupt service routines
" AC/ address " AC/ address
" jms laci " jms laci
" AC/ contents of address " AC/ contents of address
@@ -141,92 +142,105 @@ copyz: 0
jmp copyz i " return jmp copyz i " return
t = t+1 t = t+1
" put queued character " Character queue management routines
" CALLED FROM PI: AVOIDS INDIRECT!! " (CALLED FROM PI: USE OF INDIRECT AVOIDED!)
" queue number in AC
putchar: 0
"** 01-s1.pdf page 23
dac 9f+t
cla
jms takeq
jmp putchar i
tad o40001
dac .+4
lac 9f+t
jms putq
lac char
dac q2+1 ..
isz putchar
jmp putchar i
t = t+1
" get queued character " Queue numbers:
" CALLED FROM PI: AVOIDS INDIRECT!! " 0: free list
" queue number in AC:
" 1: tty input " 1: tty input
" 2: tty output " 2: tty output
" 3: display keyboard " 3: display keyboard
" 4: paper tape reader " 4: paper tape reader
" 5: paper tape punch " 5: paper tape punch
getchar: 0
" queue headers are two words: "first" and "last"(??)
" queue entries are two words: "next" and "char"
" put queued character
" character to store in "char"
" queue number in AC
putchar: 0
"** 01-s1.pdf page 23
dac 9f+t " save queue number in t0
cla " get entry from free list
jms takeq jms takeq
jmp i getchar jmp putchar i " none free: return w/o skip
tad o200001 tad o40001 " turn into "dac addr+1"
dac .+4
lac 9f+t " get queue number back
jms putq " add entry
lac char " get char
dac q2+1 .. " save in second word of queue entry
isz putchar " give skip return
jmp putchar i
t = t+1
" get queued character
" queue number in AC
" returns with skip if something found
getchar: 0
jms takeq " get entry from head of queue
jmp i getchar " nothing there: return w/o skip
tad o200001 " turn into "lac qentry+1" (fetch stored char)
dac .+3 dac .+3
cla cla
jms putq jms putq " put qentry on free list
lac q2+1 .. lac q2+1 .. " fetch queued character(!!!)
isz getchar isz getchar " give skip return
jmp i getchar jmp i getchar
" CALLED FROM PI: AVOIDS INDIRECT!! " fetch first entry from a queue
" queue number in AC
" returns with skip if something dequeued
takeq: 0 takeq: 0
rcl rcl " multiply queue number by two
tad lacq1 tad lacq1 " add "lac q1"
dac .+7 dac .+7
tad o640000 tad o640000 " turn "lac" into "dac"
dac .+17 dac .+17
tad d1 tad d1 " increment addr
dac .+14 dac .+14
tad o500000 tad o500000 " turn "dac" into "sad"
dac .+5 dac .+5
lac q1 .. lac q1 .. " load queue head
sna sna " non-zero?
jmp takeq i jmp takeq i " no: return zero w/o skip
dac lnkaddr dac lnkaddr
sad q1+1 .. sad q1+1 .. " different from tail(??)
jmp .+5 jmp .+5 " no -- (last entry?)
tad o200000 tad o200000 " yes: turn into lac
dac .+1 dac .+1 " save lac
lac q2 .. lac q2 .. " get next pointer from queue entry
jmp .+3 jmp .+3
cla cla " here with head == tail(??)
dac q1+1 .. dac q1+1 .. " clear tail
dac q1 .. dac q1 .. " save (clear) head
isz takeq isz takeq " give skip return
lac lnkaddr lac lnkaddr " return queue entry pointer
jmp i takeq jmp i takeq
" save queue entry (at lnkaddr) to a queue (queue number in AC)
putq: 0 putq: 0
rcl rcl " multiply by two
tad dacq1 tad dacq1 " turn into "dac qhead"
dac .+14 dac .+14
tad d1 tad d1 " turn into "dac qtail"
dac .+13 dac .+13
tad o140000 tad o140000 " turn into "lac qtail"
dac .+1 dac .+1
lac q1-1 .. lac q1-1 .. " fetch tail
"** 01-s1.pdf page 24 "** 01-s1.pdf page 24
sna sna " non-zero?
jmp .+6 jmp .+6 " no: is zero
tad o40000 tad o40000 " turn into "dac qentry" (append to queue)
dac .+2 dac .+2
lac lnkaddr lac lnkaddr " get new entry
dac q2 .. dac q2 .. " append to tail entry
jmp .+3 jmp .+3
lac lnkaddr lac lnkaddr " here with tail == 0
dac q1 .. dac q1 .. " save new entry as head
dac q1+1 .. dac q1+1 .. " save new tail
jmp putq i jmp putq i
" NOTE!! srcdbs, collaps, dskrd, dskwr share the same "temp" vars: " NOTE!! srcdbs, collaps, dskrd, dskwr share the same "temp" vars:
src/sys/s6.s
+63 -61
View File
@@ -99,6 +99,8 @@ namei: 0
jmp 1b " yes: keep going jmp 1b " yes: keep going
jmp namei i " Didn't find it, return zero in AC (without skip) jmp namei i " Didn't find it, return zero in AC (without skip)
t = t+2 t = t+2
" NOTE: iget/iput share "temp" vars!!!
" Given an i-number in AC, fetch that i-node " Given an i-number in AC, fetch that i-node
" from disk and store it in the inode buffer " from disk and store it in the inode buffer
iget: 0 iget: 0
@@ -113,49 +115,50 @@ iget: 0
cll; mul; 12 " Multiply the i-num within the block by 12 cll; mul; 12 " Multiply the i-num within the block by 12
lacq " to get the offset into the block lacq " to get the offset into the block
tad dskbufp " Add on the base of the disk buffer tad dskbufp " Add on the base of the disk buffer
dac 9f+t dac 9f+t " save pointer into dskbuf in "t0"
dac .+2 dac .+2
jms copy; ..; inode; 12 " Copy 12 words from buffer to inode jms copy; ..; inode; 12 " Copy 12 words from buffer to inode
jmp iget i " and return jmp iget i " and return
iput: 0 iput: 0
lac 9f+t+1 lac 9f+t+1 " get block number saved by iget
jms dskrd jms dskrd " read the block
law inode-1 law inode-1 " pointer to "in core" inode
dac 8 dac 8 " in index 8
-1 -1
tad 9f+t tad 9f+t " get saved pointer into buffer
dac 9 dac 9 " in index 9
-12 -12 " 12 word loop count
dac 9f+t+2 dac 9f+t+2 " in t2
1: 1:
lac 8 i lac 8 i " fetch source word
"** 01-s1.pdf page 36 "** 01-s1.pdf page 36
sad 9 i sad 9 i " differs from disk?
skp skp " no:
jmp 2f jmp 2f " yes:
isz 9f+t+2 isz 9f+t+2 " no difference: done?
jmp 1b jmp 1b " no: keep going
jmp iput i jmp iput i " yes: return w/o writing to disk
2: 2: " here with in-core inode changed
-1 -1 " back up both pointers
tad 8 tad 8
dac 8 dac 8
-1 -1
tad 9 tad 9
dac 9 dac 9
1: 1:
lac 8 i lac 8 i " fetch word
dac 9 i dac 9 i " copy to dskbuf
isz 9f+t+2 isz 9f+t+2 " done?
jmp 1b jmp 1b " no: keep going
lac 9f+t+1 lac 9f+t+1 " get block number
jms dskwr jms dskwr " write back to disk
jmp iput i jmp iput i " return
t = t+3 t = t+3
" NOTE! dget/dput share "temp" vars
" allocate directory entry " allocate directory entry
" AC/ entry number " AC/ entry number
dget: 0 dget: 0
@@ -164,30 +167,31 @@ dget: 0
dac 9f+t " save in t0 dac 9f+t " save in t0
jms pget " get free disk block jms pget " get free disk block
dac 9f+t+1 " save in t1 dac 9f+t+1 " save in t1
jms dskrd jms dskrd " read block
lac 9f+t lac 9f+t " get word number
and o77 and o77 " get word within block
tad dskbufp tad dskbufp " make pointer into dskbuf
dac 9f+t+2 dac 9f+t+2 " save in t2
dac .+2 dac .+2 " save as copy source
jms copy; ..; dnode; 8 jms copy; ..; dnode; 8 " copy entry into dnode
lac 9f+t lac 9f+t " get word number
tad d8 tad d8 " of end of new node
jms betwen; d0; i.size jms betwen; d0; i.size " already allocated?
skp skp " no
jmp dget i jmp dget i " yes: return
jms dacisize jms dacisize " store new file size
dzm d.i dzm d.i " mark new entry as free
jmp dget i jmp dget i " return
" write directory entry (back) to disk
dput: 0 dput: 0
lac 9f+t+1 lac 9f+t+1 " get disk block number back
jms dskrd jms dskrd " read into dskbuf
lac 9f+t+2 lac 9f+t+2 " get pointer into dskbuf
dac .+3 dac .+3 " save as copy dest
jms copy; dnode; ..; 8 jms copy; dnode; ..; 8 " copy into dskbuf
lac 9f+t+1 lac 9f+t+1 " get disk block number
jms dskwr jms dskwr " write back to disk
jmp dput i jmp dput i
t = t+3 t = t+3
@@ -262,6 +266,10 @@ pget: 0
jmp pget i " return it jmp pget i " return it
t = t+3 t = t+3
" write to file referenced by loaded inode
" AC/ file offset
" jms iwrite; addr; count
iwrite: 0 iwrite: 0
dac 9f+t " save arg in t0 dac 9f+t " save arg in t0
lac iwrite " load return address lac iwrite " load return address
@@ -273,14 +281,14 @@ iwrite: 0
dac iwrite " save as iwrite instruction dac iwrite " save as iwrite instruction
jmp 1f jmp 1f
" iread from file referenced by loaded inode " read from file referenced by loaded inode
" AC/ file offset " AC/ file offset
" jms iread; addr; count " jms iread; addr; count
iread: 0 iread: 0
dac 9f+t " save offset in t0 dac 9f+t " save offset in t0
lac cnop " get nop lac cnop " get nop
dac iwrite " save as iwrite instruction dac iwrite " save as iwrite instruction
1: 1: " common code for iread/iwrite
-1 -1
tad iread i " get word before return addr tad iread i " get word before return addr
dac 10 " store in index 10 & 11 dac 10 " store in index 10 & 11
@@ -289,20 +297,14 @@ iread: 0
lac iread i " load addr lac iread i " load addr
dac 9f+t+1 " save in t1 dac 9f+t+1 " save in t1
isz iread " increment return addr isz iread " increment return addr
lac o70000 lac o70000 " get max file size
xct iwrite " skip if write xct iwrite " skip if write
lac i.size " read: get file size lac i.size " read: get file size
cma cma
tad 9f+t " add offset tad 9f+t " subtract offset
cma sna " offset == size?
jms betwen; d0; 9f+t+1 jmp iread i " yes, return
lac 9f+t+1 dac 9f+t+1 " save size-offset in t1
dac 9f+t+2
cma
tad d1
sna
jmp iread i
dac 9f+t+1
1: 1:
lac 9f+t lac 9f+t
jms pget jms pget
@@ -312,7 +314,7 @@ iread: 0
and o77 and o77
tad dskbufp tad dskbufp
tad dm1 tad dm1
xct iwrite xct iwrite " skip if write
jmp .+3 jmp .+3
dac 10 dac 10
cskp: cskp:
src/sys/s8.s
+15 -13
View File
@@ -95,22 +95,23 @@ dm1: -1
9: .=.+t " per-routine temp variables 9: .=.+t " per-routine temp variables
c1: .=.+1 " not used? c1: .=.+1 " not used?
q1: q2;q2+98 " ** 90? 96?? " queue element free list? " character queues (two words each, head and tail pointers?)
.=.+14 " 0: free list
" queues (two words each, head and tail pointers?)
" 1: tty input " 1: tty input
" 2: tty output " 2: tty output
" 3: display keyboard " 3: display keyboard
" 4: paper tape reader " 4: paper tape reader
" 5: paper tape punch " 5: paper tape punch
q2: q1: q2;q2+98 " queue element free list
.=.+14 " room for 7 queues (5 used)
q2: " queue elements (and two words padding??)
.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0 .+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0
.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0 .+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0
.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0 .+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0
.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0 .+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0
.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;0;0 .+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;0;0
dsploc: .=.+1 dsploc: .=.+1 " pointer into dspbuf
dsplno: .=.+1 dsplno: .=.+1 " display current line number
dspbuf: dspbuf:
0065057;0147740;0160000 " display commands: see 03-scope.pdf pg 20 0065057;0147740;0160000 " display commands: see 03-scope.pdf pg 20
" PARAM: clear blink, clear light pen, scale=1, intensity=3 " PARAM: clear blink, clear light pen, scale=1, intensity=3
@@ -157,18 +158,19 @@ dskaddr: .=.+1 " number of block in dskbuf
uniqpid: 1 " pid generator uniqpid: 1 " pid generator
lu: .=.+4 " user (process) table entry copy lu: .=.+4 " user (process) table entry copy
sfiles: .=.+10 " wait addresses for special files sfiles: .=.+10 " wait addresses for special files
" (bit vector of waiting processes?) " (bit vectors of waiting processes?)
" bit zero (MSB) is special, bit 1 first ulist entry, ....
" offsets: 0: ttyin, 1: ttyout, 2: keyboard, " offsets: 0: ttyin, 1: ttyout, 2: keyboard,
" 3: ptr, 4: ptp, 6: display " 3: ptr, 4: ptp, 6: display
dpdata: dpdata: " dataphone data
dpstat: .=.+1 dpstat: .=.+1
dpread: .=.+1 dpread: .=.+1
dpwrite: .=.+1 dpwrite: .=.+1
dpchar: .=.+1 dpchar: .=.+1
dspdata: dspdata: " display data
.dspb: .=.+1 .dspb: .=.+1
.lpba: .=.+1 "** 4 written on listing .lpba: .=.+1 "** 4 written on listing
crdata: crdata: " card reader data
crread: .=.+1 crread: .=.+1
crchar: .=.+1 crchar: .=.+1
sysdata: " system data 64 words saved to disk sysdata: " system data 64 words saved to disk
@@ -177,7 +179,7 @@ sysdata: " system data 64 words saved to disk
s.fblks: .=.+10 " cached free block numbers s.fblks: .=.+10 " cached free block numbers
s.uniq: .=.+1 " next unique value s.uniq: .=.+1 " next unique value
s.tim: .=.+2 " (up?)time in 60Hz ticks (low, high) s.tim: .=.+2 " (up?)time in 60Hz ticks (low, high)
" process table " user (process) table
" first word " first word
" bits 0:2 -- status " bits 0:2 -- status
" 0: free slot " 0: free slot
@@ -188,7 +190,7 @@ sysdata: " system data 64 words saved to disk
" bits 3:17 -- disk swap address/8 " bits 3:17 -- disk swap address/8
" second word: process pid " second word: process pid
" third word: smes/rmes status: " third word: smes/rmes status:
" 0: not waiting " 0: not waiting
" -1: this process waiting (rmes) " -1: this process waiting (rmes)
" other: complement of sender pid " other: complement of sender pid
" fourth word: smes message " fourth word: smes message
@@ -243,7 +245,7 @@ dnode: " directory entry:
d.name: .=.+4 " name (space padded) d.name: .=.+4 " name (space padded)
d.uniq: .=.+1 " unique number from directory inode d.uniq: .=.+1 " unique number from directory inode
. = dnode+8 . = dnode+8
fnode: " open file entry fnode: " open file entry (copied from u.ofiles)
f.flags: .=.+1 " see below f.flags: .=.+1 " see below
f.badd: .=.+1 " offset f.badd: .=.+1 " offset
f.i: 0 " file i-number f.i: 0 " file i-number