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