add psych.s

scans/README.md

@@ -56,6 +56,7 @@ Details of the files:
 * 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
 * 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

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: