mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-01-25 19:57:20 +00:00
sys fixes
This commit is contained in:
@@ -61,7 +61,7 @@ sysexit:
|
||||
jmp 1f
|
||||
jms copy; sysdata; dskbuf; 64
|
||||
cla
|
||||
jms dskio; o7000
|
||||
jms dskio; 07000
|
||||
1:
|
||||
dzm .insys
|
||||
jms chkint
|
||||
|
||||
@@ -115,7 +115,7 @@
|
||||
lac u.base
|
||||
jms iget
|
||||
lac ii
|
||||
dac d.i "** ??
|
||||
dac d.i
|
||||
jms copy; name; d.name; 4
|
||||
lac i.uniq
|
||||
dac d.uniq
|
||||
|
||||
@@ -16,7 +16,7 @@ t = t+1
|
||||
|
||||
access: 0
|
||||
lac i.flags
|
||||
idunno "** ???
|
||||
lmq
|
||||
lac u.uid
|
||||
spa
|
||||
jmp access i
|
||||
@@ -74,7 +74,7 @@ fget: 0
|
||||
fput: 0
|
||||
lac 9f+t
|
||||
dac .+3
|
||||
jms copy; ; fnode; ..; 3
|
||||
jms copy; fnode; ..; 3
|
||||
jmp fput i
|
||||
t = t+1
|
||||
|
||||
@@ -103,7 +103,7 @@ sleep: 0
|
||||
law ulist-1
|
||||
dac 8
|
||||
lac o200000
|
||||
lmq "** ???
|
||||
lmq
|
||||
1:
|
||||
lac u.ulistp i
|
||||
sad 8 i
|
||||
|
||||
@@ -87,14 +87,14 @@ dsprestart:
|
||||
lac d1
|
||||
dac .dspb
|
||||
lac dspbufp
|
||||
beg "** ???
|
||||
beg
|
||||
-10
|
||||
dac .dsptm
|
||||
jmp piret
|
||||
|
||||
1: sna ral
|
||||
jmp .+3
|
||||
racf
|
||||
dpcf
|
||||
jmp piret
|
||||
sma
|
||||
jmp 1f
|
||||
|
||||
@@ -1,4 +0,0 @@
|
||||
" For now, this stuff is defined so that
|
||||
" the assembler doesn't complain about it
|
||||
|
||||
o7000: 07000
|
||||
Reference in New Issue
Block a user