Merge branch 'master' of https://github.com/DoctorWkt/pdp7-unix
This commit is contained in:
Warren Toomey
+2
-2
@@ -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
|
||||||
|
|||||||
+32
-52
@@ -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;
|
||||||
|
|||||||
+113
-99
@@ -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:
|
||||||
|
|||||||
+63
-61
@@ -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:
|
||||||
|
|||||||
+14
-12
@@ -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
|
||||||
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user