1
0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-01-20 17:59:15 +00:00
This commit is contained in:
Phil Budne 2016-02-26 00:51:01 -05:00
parent 92cbc9ed91
commit cdb09de1c1
4 changed files with 23 additions and 23 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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