Merge branch 'master' of https://github.com/DoctorWkt/pdp7-unix

scans/README.md

@@ -55,6 +55,12 @@ Details of the files:
 * as.s: pages 32-48 of 05-1-4.pdf
 * ed1.s: pages 7-20 of 08-rest.pdf
 * ed2.s: pages 21-29 of 08-rest.pdf
+* pd.s: page 1 of 11-45-91.pdf
+* psych.s: page 2-6 of 11-45-91.pdf
+* rm.s: page 7 of 11-45-91.pdf
+* rn.s: page 8 of 11-45-91.pdf
+* salv.s: pages 25-29 of 11-45-91.pdf
+* sh.s: pages 30-36 of 11-45-91.pdf
 * st-1.s pages 1-5 of 12-92-119.pdf
 * st-2.s pages 6-9 of 12-92-119.pdf
 * st-3.s pages 10-13 of 12-92-119.pdf

scans/pd.s

@@ -0,0 +1,59 @@
+" ** 11-45-91.pdf page 1
+" pd
+	
+   sys open; dotdot; 0
+   spa; jms error
+   dac df
+   law dir-1
+   dac 8
+1:
+   lac df
+   sys read; tbuf; 8
+   spa; jms error
+   sna
+   jmp 1f
+   lac tbuf
+   sna
+   jmp 1b
+   -8
+   dac c1
+   law tbuf-1
+   dac 9
+2:
+   lac 9 i
+   dac 8 i
+   isz c1
+   jmp 2b
+   jmp 1b
+
+1:
+   lac df
+   sys close
+   law 017
+   sys creat; dotdot
+   spa; jms error
+   dac df
+   law dir-2
+   cma
+   tad 8
+   dac .+4
+   lac df
+   sys write; dir; ..
+   spa; jms error
+   lac df
+   sys close
+   sys exit
+
+error: 0
+   -1
+   tad error
+   hlt
+   sys save
+
+dotdot:
+   056056; 040040; 040040; 040040
+
+c1: .=.+1
+df: .=.+1
+tbuf: .=.+8
+dir:

scans/psych.s

@@ -0,0 +1,303 @@
+" ** 11-45-91.pdf page 2
+" psych
+
+   lac d1
+   sys close
+   lac d13 "pushbuttons
+   sys sysloc
+   dac .pbp
+   tad d1
+   dac .pbp1
+restart:
+   fld; arg1
+   fst; g
+   fld; arg2
+   fst; fact
+   fld; fp01
+   fst; d
+   jms capture
+   -100
+   dac j
+   fld; fp0
+   fst; z
+   fst; oldx
+   fst; oldy
+   lac o400000
+   dac i 11
+   dac i 11
+   lac setx
+   dac i 10
+   lac sety
+   dac i 10
+
+loop:
+   sys time
+   fld; z
+   fad; fm110
+   fdv; radians
+   fst; b
+   fld; z
+   fad; g
+   fst; z
+   fld g;
+   fng
+   fmp; fact
+   fst; g
+   fld; fp1
+   fdv; fact
+   fst; fact
+   fld; b
+   fad; fpid2
+   sin
+   fmp; d
+   fmp; fp500
+   fst; xx
+   jms in
+   jmp done
+   fld; b
+   sin
+   fmp; d
+   fmp; fp500
+   fst; yy
+   jms in
+   jmp done
+" ** 11-45-91.pdf page 3
+   lac o400000
+   dac i 11
+   dac i 11
+   fld; oldx
+   fng
+   fad; xx
+   fix
+   spa
+   xor o775777
+   sad vecx
+   dac i 10
+   fld; oldy
+   fng
+   fad; yy
+   fix
+   spa
+   xor o775777
+   tad vecy
+   dac i 10
+   fld; xx
+   fst; oldx
+   fld; yy
+   fst; oldy
+   isz j
+   skp
+   jmp done
+   fld; g
+   fdv; fp90000
+   fad; d
+   fst; d
+   jmp loop
+
+done:
+   -1000
+   dac 9f
+   sys time
+   isz 9f
+   jmp .-2
+   skp
+9f:0
+   dzm char
+   lac auto
+   sza
+   jmp doauto
+1:
+   sys time " swap
+   lac i .pbp
+   sna
+   jmp 1b
+   spa ra1
+   jmp 1f
+   spa ra1
+   jmp 2f
+   spa ra1
+   jmp 3f
+   spa ra1
+   jmp 4f
+   spa ra1
+   jmp 5f
+   spa ra1
+   jmp 6f
+" ** 11-45-91.pdf page 4
+   spa ra1
+   jmp 7f
+   jms release
+   sys exit
+7: cla
+   sys read; tmp; 1
+   lac tmp
+   sad o141000
+   skp
+   jmp 0f
+   dac auto
+   dzm i .pbp1
+   jmp doauto
+0:
+   sad o12000
+   jmp restart
+   dzm g
+9:
+   cla
+   sys read; char; 1
+   lac char
+   sad o12000
+   jmp 9f
+   lrss 9
+   dac char
+   lac g
+   alss 3
+   tad char
+   tad om60
+   dac g
+   jmp 9b
+9:
+   lac tmp
+   sad o61000
+   jmp 9f
+   lac g
+   dac arg2
+   jmp restart
+9:
+   lac g
+   dac arg1
+   jmp restart
+5:
+   isz fp500
+   nop
+   jmp restart
+6:
+   -1
+   tad fp500
+   dac fp500
+   jmp restart
+4:
+   lac o400000
+   dac char
+3:
+   fld; arg1
+   dmp; fm056
+   lac char
+   spa
+   fng
+" ** 11-45-91.pdf page 5
+   fad; arg1
+   fst; arg1
+   jmp restart
+2:
+   lac o400000
+   dac char
+1:
+   fld; arg2
+   fmp; fm056
+   lac char
+   spa
+   fng
+   fad; arg2
+   fst; arg2
+   jmp restart
+
+doauto:
+   lac i .pbp1
+   sma
+   jmp 1f
+   dzm auto
+   jmp done
+1:
+   sys time
+   omq
+   tad 0
+   tad stick
+   cli
+   mul
+   78625
+   lls 9
+   dac stick
+   dzm sexp
+   and o177777
+   xor o200000
+   dac ams
+   fad; fmhalf
+   fmp; fp128
+   lac stick
+   and d1
+   sna
+   jmp 1f
+   fst; arg1
+   jmp restart
+1:
+   fst; arg2
+   jmp restart
+
+in: 0
+   fix
+   tad d500
+   spa
+   jmp i in
+   tad dm1000
+   spa
+   isz in
+   jmp i in
+
+capture: 0
+   law buf-1
+   dac 10
+" ** 11-45-91.pdf page 6
+   dac 11
+   lac o400000
+   dac i 11
+   law buf
+   sys capt
+   jmp i capture
+
+release: 0
+   sys rele
+   jmp i release
+
+char: 0
+stick: 0
+xx: 0; 0; 0
+oldx: 0; 0; 0
+yy: 0; 0; 0
+oldy: 0;0 0; 0
+j: 0
+auto: 0
+
+setx: 0142000 +512
+sety: 0146000 +512
+vacx: 0100000
+vecy: 0124000
+o775777: 0775777
+o177777: 0177777
+o12000: 012000
+o61000: 061000
+om60: -060
+d13: 13
+d500: 500
+o141000: 0141000
+fp128:8; 0240000; 0
+fmhalf: 0; 0600000; 0
+dm1000: -1000
+
+fact: 0;0;0
+g: 0;0;0
+z: 0;0;0
+b: 0;0;0
+d: 0;0;0
+
+radians: 6;0345136;0
+fm110: 7;0734000;0
+arg1: 7;0234167;0
+arg2: 1;0275531;0
+fp0: 0;0;0
+fp01: -6;024656;0
+fm056: -4;0745301;0
+pp500: 11;0372000;0
+fp90000: 032;0257620;0
+   .pbp: .=.+1
+   .pbp1: 0
+buf:

scans/rm.s

@@ -0,0 +1,33 @@
+" ** 11-45-91.pdf page 7
+" rm
+
+   lac 017777
+   tad d1
+   dac 2f
+1:
+   lac 017777 i
+   sad d4
+   sys exit
+   tad dm4
+   dac 017777 i
+   lac 2f
+   tad d4
+   dac 2f
+   sys unlink; 2: 0
+   sma
+   jmp 1b
+   lac 2b
+   dac 2f
+   lac d1
+   sys write; 2: 0; 4
+   lac d1
+   sys write; 1f; 2f-1f
+   jmp 1b
+1:
+   040077;012000
+2:
+
+d1: 1
+d4: 4
+dm4: -4
+

scans/rn.s

@@ -0,0 +1,54 @@
+" ** 11-45-91.pdf page 8
+" rn
+
+   lac 017777
+   tad d1
+   dac name2
+loop:	
+   lac 017777 i
+   sad d4
+   sys exit
+   sad d8
+   jmp unbal
+   tad dm8
+   dac 017777 i
+   lac name2
+   tad d4
+   dac name1
+   tad d4
+   dac name2
+   sys unlink; name2: 0
+   lac name2
+   dac 1f
+   sys rename; name1: 0; 1: 0
+   sma
+   jmp loop
+   lac name1
+   dac 1f
+   lac d1
+   sys write; 1: 0; 4
+   lac d1
+   sys write; mes; 1
+   lac name2
+   dac 1f
+   lac d1
+   sys write; 1: 0; 4
+   lac d1
+   sys write; mes; 2
+   jmp loop
+mes:
+   040000;077012
+unbal:
+   lac name2
+   tad d4
+   dac 1f
+   lac d1
+   sys write; 1: 0; 4
+   lac d1
+   sys write; mes; 2
+   sys exit
+
+d1: 1
+d4: 4
+d8: 8
+dm8: -8

scans/salv.s

@@ -0,0 +1,298 @@
+" ** 11-45-91.pdf page 25
+" salv
+
+   lac d1
+   sys sysloc
+   dac iget
+
+   lac d2
+   sys sysloc
+   dac inode
+
+   lac d4
+   sys sysloc
+   dac nxfblk
+   tad d1
+   dac nfblks
+   tad d1
+   dac fblks
+
+   lac d5
+   sys sysloc
+   dac copy
+
+   lac d6
+   sys sysloc
+   dac copyz
+
+   lac d7
+   sys sysloc
+   dac betwen
+
+   lac d8
+   sys sysloc
+   dac dskrd
+
+   lac d10
+   sys sysloc
+   dac dskbuf
+
+   lac d15
+   sys sysloc
+   dac free
+
+      dzm indircnt
+      dzm icnt
+      dzm licnt
+      dzm blcnt
+      dzm curi
+      jms copyz i; usetab; 500
+
+iloop:
+   isz curi
+   -3400
+   tad curi
+   sma
+   jmp part2
+   lac curi
+   jms iget i
+   jms copy i; inode: 0; linode; 12
+   lac iflags
+   sma
+   jmp iloop
+   isz icnt
+
+" ** 11-45-91.pdf page 26
+
+   lac iflags
+   and 040
+   sza
+   jmp iloop
+   law idskps
+   dac t1
+   -7
+   dac t2
+1:
+   lac i t1
+   sza
+   jms dupcheck
+   isz t1
+   isz t2
+   jmp 1b
+   lac iflags
+   and o200000
+   sna
+   jmp iloop
+
+   isz licnt
+   law idskps
+   dac t1
+   -7
+   dac t2
+1:
+   lac i t1
+   sna
+   jmp 3f
+   jms dskrd i
+   jms copy i; dskbuf: 0; idskbuf: 64
+   isz indircnt
+   law ldskbuf
+   dac t3
+   -64
+   dac t4
+2:
+   lac i t3
+   sza
+   jms dupcheck
+   isz t3
+   isz t4
+   jmp 2b
+3:
+   isz t1
+   isz t2
+   jmp 1b
+   jmp iloop
+
+dupcheck: 0
+   isz blcnt
+   jms betwen i; d709; d6400
+   jmp badadr
+   dac t5
+   lrss 4
+   tad usetabp
+   dac t6
+   cla
+   llss 4
+   tad alsscom
+   dac 2f
+
+" ** 11-45-91.pdf page 27
+
+      lac d1
+2: alss 0
+      dac bit
+      lac i t6
+      and bit
+      sza
+      jmp dup
+      lac i t6
+      xor bit
+      dac i t6
+      jmp i dupcheck
+
+badadr:
+      jms print
+      lac d1
+      sys write; badmes; 3
+      jmp i dupcheck
+badmes:
+      < b>;<ad>;<r 012
+
+dup:
+      lac t5
+      jms print
+      lac d1
+      sys write; dupmes; 3
+      jmp i dupcheck
+dupmes:
+      < d>;<up><a 012
+
+print: 0
+      lmq
+      law prbuf-1
+      dac 8
+      -6
+      dac t6
+1:
+      cla
+      llss 3
+      tad o60
+      dac i 8
+      isz t6
+      jmp 1b
+      lac d1
+      sys write; prbuf; 6
+      jmp i print
+
+part2:
+      lac icnt
+      jms print
+      lac d1
+      sys write; m3; m3s
+      lac licnt
+      jms print
+      lac d1
+      sys write; m4; m4s
+      lac indircnt
+      jms print
+      lac d1
+      sys write; m5; m5s
+      lac blcnt
+      jms print
+
+" ** 11-45-91.pdf page 28
+
+      lac d1
+      sys write; m6; m6s
+      dzm blcnt
+      dzm nxfblk i
+      dzm nfblks i
+
+      lac d709
+      dac t1
+1:
+      isz t1
+      lac t1
+      sad d6400
+      jmp part3
+      lrss 4
+      tad usetabp
+      dac t2
+      cla
+      lrss 4
+      tad alsscom
+      dac 2f
+      lac d1
+2: alss 0
+      dac bit
+      lac i t2
+      and bit
+      sza
+      jmp 1b
+
+
+part3:
+      lac blcnt
+      jms print
+      lac d1
+      sys write; m7; m7s
+
+d1: 1
+d2: 2
+d4: 4
+d5: 5
+d6: 6
+d7: 7
+d8: 8
+d10: 10
+d15: 15
+o60: 060
+o400000: 0400000
+o400001: 0400001
+o40: 040
+o200000: 0200000
+alsscom: alss 0
+d709: 709
+d6400: 6400
+
+m3:
+      040;<fi>;<le>;<s 012
+   m3s = .-m3
+
+m4:
+" ** 11-45-91.pdf page 29
+      040;<la>;<rg>;<e 012
+   m4s = .-m4
+m5:
+      040;<in>;<di>;<r 012
+   m5s = .-m5
+m6:
+      040;<us>;<ed>;012
+   m6s = .-m6
+m7:
+      040;<fr>;<ee>;012
+   m7s = .-m7
+m8:
+      040;<mi>;<ss>;<in>;<g 012
+   m8s = .-m8
+
+usetabp: usetab
+curi: 0
+bit: 0
+blcnt: 0
+indircnt: 0
+icnt: 0
+licnt: 0
+t1: 0
+t2: 0
+t3: 0
+t4: 0
+t5: 0
+t6: 0
+
+iget: 0
+nxfblk: 0
+nfblks: 0
+fblks: 0
+copy: 0
+copyz: 0
+betwen: 0
+dskrd: 0
+free: 0
+
+ldskbuf: .=.+64
+linode: .=.+12
+  iflags = linode
+  idskps = iflags+1
+usetab: .=.+500
+prbuf: .=.+6