mirror of
https://github.com/DoctorWkt/pdp7-unix.git
synced 2026-04-25 11:51:25 +00:00
fixes
This commit is contained in:
@@ -133,7 +133,7 @@ swp:
|
|||||||
.save; .getuid; .open; .read; .write; .creat; .seek; .tell
|
.save; .getuid; .open; .read; .write; .creat; .seek; .tell
|
||||||
.close; .link; .unlink; .setuid; .rename; .exit; .time; .intrp
|
.close; .link; .unlink; .setuid; .rename; .exit; .time; .intrp
|
||||||
.chdir; .chmod; .chown; badcal; .sysloc; badcal; .capt; .rele
|
.chdir; .chmod; .chown; badcal; .sysloc; badcal; .capt; .rele
|
||||||
.status; badcal; .sems; .rmes; .fork
|
.status; badcal; .smes; .rmes; .fork
|
||||||
swn:
|
swn:
|
||||||
.-swp-1 i
|
.-swp-1 i
|
||||||
|
|
||||||
@@ -144,7 +144,7 @@ swn:
|
|||||||
|
|
||||||
.sysloc:
|
.sysloc:
|
||||||
lac u.ac
|
lac u.ac
|
||||||
and o1777
|
and o17777
|
||||||
jms betwen; d1; locn
|
jms betwen; d1; locn
|
||||||
jms error
|
jms error
|
||||||
tad locsw
|
tad locsw
|
||||||
|
|||||||
@@ -30,7 +30,7 @@
|
|||||||
.rele:
|
.rele:
|
||||||
dzm u.dspbuf
|
dzm u.dspbuf
|
||||||
law dspbuf
|
law dspbuf
|
||||||
jsp movdsp
|
jms movdsp
|
||||||
jmp sysexit
|
jmp sysexit
|
||||||
|
|
||||||
.chmod:
|
.chmod:
|
||||||
@@ -123,7 +123,7 @@
|
|||||||
tad i.nlks
|
tad i.nlks
|
||||||
dac i.nlks
|
dac i.nlks
|
||||||
"** 01-s1.pdf page 9
|
"** 01-s1.pdf page 9
|
||||||
jms imput
|
jms iput
|
||||||
jms dput
|
jms dput
|
||||||
jms okexit
|
jms okexit
|
||||||
|
|
||||||
@@ -289,7 +289,7 @@ open1:
|
|||||||
lac f.badd
|
lac f.badd
|
||||||
1:
|
1:
|
||||||
jms iread; ..; ..
|
jms iread; ..; ..
|
||||||
jmp exitrq
|
jmp exitrw
|
||||||
|
|
||||||
.write:
|
.write:
|
||||||
jms arg
|
jms arg
|
||||||
|
|||||||
14
scans/s3.s
14
scans/s3.s
@@ -72,7 +72,7 @@ lookfor: 0
|
|||||||
t= t+1
|
t= t+1
|
||||||
|
|
||||||
badcal:
|
badcal:
|
||||||
calon
|
clon
|
||||||
-1
|
-1
|
||||||
dac 7
|
dac 7
|
||||||
.save:
|
.save:
|
||||||
@@ -195,7 +195,7 @@ swr:
|
|||||||
sww:
|
sww:
|
||||||
jmp .-4 i
|
jmp .-4 i
|
||||||
.halt; rttyi; rkbdi; rppti; .halt
|
.halt; rttyi; rkbdi; rppti; .halt
|
||||||
.halt; wttyo; wskpo; wppto
|
.halt; wttyo; wdspo; wppto
|
||||||
|
|
||||||
.halt: jms halt
|
.halt: jms halt
|
||||||
|
|
||||||
@@ -203,7 +203,7 @@ rttyi:
|
|||||||
jms chkint1
|
jms chkint1
|
||||||
lac d1
|
lac d1
|
||||||
jms getchar
|
jms getchar
|
||||||
jmp1f
|
jmp 1f
|
||||||
and o177
|
and o177
|
||||||
jms betwen o101; o132
|
jms betwen o101; o132
|
||||||
skp
|
skp
|
||||||
@@ -225,7 +225,7 @@ wttyo:
|
|||||||
spa
|
spa
|
||||||
jmp 1f
|
jmp 1f
|
||||||
xor 0400000
|
xor 0400000
|
||||||
dac dfiles+1
|
dac sfiles+1
|
||||||
lacq
|
lacq
|
||||||
tls
|
tls
|
||||||
sad o12
|
sad o12
|
||||||
@@ -242,7 +242,7 @@ wttyo:
|
|||||||
jms swap
|
jms swap
|
||||||
jmp wttyo
|
jmp wttyo
|
||||||
|
|
||||||
rkdbi:
|
rkbdi:
|
||||||
jms chkint1
|
jms chkint1
|
||||||
lac d2
|
lac d2
|
||||||
jms getchar
|
jms getchar
|
||||||
@@ -298,7 +298,7 @@ rppti:
|
|||||||
jms getchar
|
jms getchar
|
||||||
jmp .+3
|
jmp .+3
|
||||||
alss 9
|
alss 9
|
||||||
jmp apssone
|
jmp passone
|
||||||
lac sfiles+3
|
lac sfiles+3
|
||||||
sma
|
sma
|
||||||
rsa
|
rsa
|
||||||
@@ -342,7 +342,7 @@ passone:
|
|||||||
|
|
||||||
error: 0
|
error: 0
|
||||||
-1
|
-1
|
||||||
sac u.ac
|
dac u.ac
|
||||||
jmp sysexit
|
jmp sysexit
|
||||||
|
|
||||||
chkint1: 0
|
chkint1: 0
|
||||||
|
|||||||
22
scans/s4.s
22
scans/s4.s
@@ -31,7 +31,7 @@ alloc: 0
|
|||||||
|
|
||||||
free: 0
|
free: 0
|
||||||
lmq
|
lmq
|
||||||
lac x.nfblks
|
lac s.nfblks
|
||||||
sad d10
|
sad d10
|
||||||
jmp 1f
|
jmp 1f
|
||||||
tad fblksp
|
tad fblksp
|
||||||
@@ -42,7 +42,7 @@ free: 0
|
|||||||
isz s.nfblks
|
isz s.nfblks
|
||||||
jmp free i
|
jmp free i
|
||||||
1:
|
1:
|
||||||
lac x.nxfblk
|
lac s.nxfblk
|
||||||
dac dskbuf
|
dac dskbuf
|
||||||
jms copy; s.fblks+1; dskbuf+1; 9
|
jms copy; s.fblks+1; dskbuf+1; 9
|
||||||
lacq
|
lacq
|
||||||
@@ -57,7 +57,7 @@ t = t+1
|
|||||||
laci: 0
|
laci: 0
|
||||||
and o1777
|
and o1777
|
||||||
tad o200000
|
tad o200000
|
||||||
dac ._1
|
dac .+1
|
||||||
lac ..
|
lac ..
|
||||||
jmp laci i
|
jmp laci i
|
||||||
|
|
||||||
@@ -90,7 +90,7 @@ copy: 0
|
|||||||
dac 8
|
dac 8
|
||||||
isz copy
|
isz copy
|
||||||
-1
|
-1
|
||||||
tad copu i
|
tad copy i
|
||||||
dac 9
|
dac 9
|
||||||
isz copy
|
isz copy
|
||||||
-1
|
-1
|
||||||
@@ -128,10 +128,10 @@ putchar: 0
|
|||||||
cla
|
cla
|
||||||
jms takeq
|
jms takeq
|
||||||
jmp putchar i
|
jmp putchar i
|
||||||
tad of0001
|
tad o40001
|
||||||
dac .+4
|
dac .+4
|
||||||
lac 9f+t
|
lac 9f+t
|
||||||
jms putc
|
jms putq
|
||||||
lac char
|
lac char
|
||||||
lac q2+1 ..
|
lac q2+1 ..
|
||||||
isz putchar
|
isz putchar
|
||||||
@@ -211,7 +211,7 @@ srcdbs: 0
|
|||||||
law 65 "** crossed out
|
law 65 "** crossed out
|
||||||
tad 9f+t+1 "** crossed out isz 8 written
|
tad 9f+t+1 "** crossed out isz 8 written
|
||||||
isz 9f+t+1
|
isz 9f+t+1
|
||||||
isx 9f+t
|
isz 9f+t
|
||||||
jmp 1b
|
jmp 1b
|
||||||
isz srcdbs
|
isz srcdbs
|
||||||
jmp srcdbs i
|
jmp srcdbs i
|
||||||
@@ -228,8 +228,8 @@ collapse: 0
|
|||||||
tad d2 "** crossed out: original obscured
|
tad d2 "** crossed out: original obscured
|
||||||
dac 0f
|
dac 0f
|
||||||
cma
|
cma
|
||||||
rad d1
|
tad d1
|
||||||
tad esdkbsp
|
tad edskbsp
|
||||||
and o17777
|
and o17777
|
||||||
sna
|
sna
|
||||||
jmp 0f+3
|
jmp 0f+3
|
||||||
@@ -243,7 +243,7 @@ collapse: 0
|
|||||||
lac dskaddr
|
lac dskaddr
|
||||||
dac 9f+t i
|
dac 9f+t i
|
||||||
jms copy; dskbuf; 0; ..; 64
|
jms copy; dskbuf; 0; ..; 64
|
||||||
jmp collaps i
|
jmp collapse i
|
||||||
|
|
||||||
dskrd: 0
|
dskrd: 0
|
||||||
jms betwen; d2; d7999
|
jms betwen; d2; d7999
|
||||||
@@ -293,7 +293,7 @@ dskio: 0
|
|||||||
lac 9f+t
|
lac 9f+t
|
||||||
idiv; 10
|
idiv; 10
|
||||||
dac 9f+t
|
dac 9f+t
|
||||||
ils 22
|
lls 22
|
||||||
xor 9f+t
|
xor 9f+t
|
||||||
jms dsktrans; -64; dskbuf; 9f+t; dskio
|
jms dsktrans; -64; dskbuf; 9f+t; dskio
|
||||||
isz dskio
|
isz dskio
|
||||||
|
|||||||
Reference in New Issue
Block a user