1
0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-04-25 11:51:25 +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 .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

View File

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

View File

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

View File

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