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

Required changes to make it compile again.

Browse Source
This commit is contained in:
Sebastian Rasmussen
2020-01-08 15:59:48 +08:00
parent 940d8e21e2
commit 42c521fdbe
3 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/sys/s1.s
+9 -9
View File
@@ -30,12 +30,12 @@ orig:
lacq lacq
dac u.mq " save user MQ in user area dac u.mq " save user MQ in user area
lac 8 lac 8
dac u.rq " save user auto-index location 8 in uarea dac u.rg " save user auto-index location 8 in uarea
lac 9 lac 9
dac u.rq+1 " save auto-index location 9 in user area dac u.rg+1 " save auto-index location 9 in user area
jms copy; 10; u.rq+2; 6 " save auto-index locations 10-15 (using 8/9!) jms copy; 10; u.rg+2; 6 " save auto-index locations 10-15 (using 8/9!)
lac 1b " load user PC lac 1b " load user PC
dac u.rq+8 " save in user area dac u.rg+8 " save in user area
-1 " load -1 -1 " load -1
dac .savblk " set "save" flag (cleared by disk I/O?) dac .savblk " set "save" flag (cleared by disk I/O?)
dac .insys " set "in system" flag dac .insys " set "in system" flag
@@ -44,7 +44,7 @@ orig:
jms swap " no: quantum expired: swap process out jms swap " no: quantum expired: swap process out
ion " interrupts on ion " interrupts on
-1 -1
tad u.rq+8 " get address of system call tad u.rg+8 " get address of system call
jms laci " load system call instruction jms laci " load system call instruction
jms betwen; o20001; swn " range check (expects CAL I!) jms betwen; o20001; swn " range check (expects CAL I!)
jmp badcal " bad system call jmp badcal " bad system call
@@ -71,15 +71,15 @@ sysexit: " common system call exit code
jms chkint " pending user interrupt? jms chkint " pending user interrupt?
skp " no, return to user skp " no, return to user
jmp .save " yes: dump core jmp .save " yes: dump core
jms copy; u.rq+2; 10; 6 " restore auto-index locations 10-15 (use 8/9) jms copy; u.rg+2; 10; 6 " restore auto-index locations 10-15 (use 8/9)
lac u.rq+1 " restore auto-index location 9 lac u.rg+1 " restore auto-index location 9
dac 9 dac 9
lac u.rq " restore auto-index location 8 lac u.rg " restore auto-index location 8
dac 8 dac 8
lac u.mq " restore MQ register lac u.mq " restore MQ register
lmq lmq
lac u.ac " restore AC register lac u.ac " restore AC register
jmp u.rq+8 i " return to user jmp u.rg+8 i " return to user
" scheduler / swapper / idle loop " scheduler / swapper / idle loop
swap: 0 swap: 0
src/sys/s3.s
+1 -1
View File
@@ -81,7 +81,7 @@ lookfor: 0
dac u.pid " set child pid dac u.pid " set child pid
isz 9f+t " advance to second word in process table isz 9f+t " advance to second word in process table
dac 9f+t i " set pid in process table dac 9f+t i " set pid in process table
isz u.rq+8 " give skip return isz u.rg+8 " give skip return
dzm u.intflg " clear int flag dzm u.intflg " clear int flag
jmp sysexit " return in child process jmp sysexit " return in child process
t= t+1 t= t+1
src/sys/s5.s
+2 -2
View File
@@ -264,8 +264,8 @@ movdsp: 0
" fetch user argument from word after "sys" call, return in AC " fetch user argument from word after "sys" call, return in AC
arg: 0 arg: 0
lac u.rq+8 i " fetch word after return PC lac u.rg+8 i " fetch word after return PC
isz u.rq+8 " bump PC isz u.rg+8 " bump PC
jmp arg i jmp arg i
" fetch user pathname argument from pointer word after "sys" call " fetch user pathname argument from pointer word after "sys" call