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 comments

Browse Source
This commit is contained in:
Phil Budne 2016-03-15 20:48:42 -04:00
parent bb0a7084b3
commit fe48c8cdc8
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/sys/s2.s
View File

@ -268,7 +268,7 @@ open1: " common exit for open/creat
"** 01-s1.pdf page 11
.close:
jms finac " get fnode (open file)
jms finac " get fnode (open file) for fd in user AC
dzm f.flags " clear flags
jms fput " write fnode back to u.ofiles
jmp sysexit
@ -328,16 +328,16 @@ open1: " common exit for open/creat
jms finac " get fnode with fd from user AC
lac f.flags " get open file table flags
and d1 " open for write?
sna " yes, skip
sna " if yes, skip
jms error " no: error
lac i.flags " get inode flags
and o40 " get special bit?
and o40 " get device bit
"** 01-s1.pdf page 12
sna " special?
jmp 1f " no
iof " special file (device node)
iof " yes, special: turn interrupts off
lac ii " get i number
tad sww " get write routine
tad sww " get write routine entry addr
dac .+1
jmp .. i " dispatch to write routine
1: " here with regular file

4
src/sys/s3.s
View File

@ -122,8 +122,8 @@ badcal: " bad (unimplemented) system call
" MQ/ message
.rmes:
jms awake
lac o100000 " mark this process to "not ready"
tad u.ulistp i
lac o100000 " mark this process "not ready"
tad u.ulistp i " by incrementing status
dac u.ulistp i
law 2
tad u.ulistp