(FILECREATED " 2-Jul-84 17:25:27" ("compiled on " {ERIS}ANALYZE.FPKG;2) "19-Jun-84 14:30:14" tcompl%'d in {ERIS}SPECTRUM>SPEECHDEMO.SYSOUT dated " 1-Jul-84 02:47:23") (FILECREATED " 2-Jul-84 17:25:00" {ERIS}ANALYZE.FPKG;2 8942 changes to: (FNS FOOBAR.INIT FOOBAR.TEST FOOBAR.STEP SPEECH.UPDATE.RES ANALYZE ANALYZE.S ANALYZE.C ANALYZE.A ANALYZE.PHI SPEECH.BIN SPEECH.BOUT SYNTH SUBTRACT ANALYZE.RUN)) FOOBAR.INIT D1 (F 0 F0 F 1 REG3 F 2 RES1 F 3 RES2 F 4 RES3 F 5 REG1 F 6 REG2 F 7 PERIOD) el}cn'PÛchddhchddhchddhcRnqlP SnûlF Tn ÄlF hdhc hdhc hdhcU V Q h(141Q SPEECH.INIT.REG 135Q SPEECH.INIT.REG 131Q SPEECH.INIT.REG 100Q SPEECH.SET.RES 67Q SPEECH.SET.RES 56Q SPEECH.SET.RES) NIL () FOOBAR.TEST D1 (P 5 I P 3 LINPUT P 2 HINPUT P 1 STREAM P 0 FILE F 6 PERIOD F 7 REG1 F 10Q REG2 F 11Q REG3 F 12Q AV F 13Q INPUT) €@hdhchdhchdhcW W W gXd ™H ¿H ¿Hg YjWVÛÙ[WVkÙÚVÛZVlÚjMdLñ•I V jð‘J€Kc¿IW ¿MkØ]°Þ(167Q FOOBAR.STEP 150Q IMOD 143Q CLOSEF 100Q OPENSTREAM 70Q DELFILE 63Q CLOSEF? 56Q FULLNAME 46Q SPEECH.INIT.REG 41Q SPEECH.INIT.REG 34Q SPEECH.INIT.REG) (75Q OUTPUT 51Q {CORE}FOOBAR) () FOOBAR.STEP D1 (P 3 OUTPUT P 2 OUTPUT3 P 1 OUTPUT2 P 0 OUTPUT1 I 1 INPUT I 0 STREAM F 4 RES1 F 5 REG1 F 6 AMP F 7 RES2 F 10Q REG2 F 11Q RES3 F 12Q REG3 F 13Q FOOBAR.TRACE) ^@ATU XdWW YdWW ZWdgð“¿A°dgð“¿H°dgð’¿I‰gð‘J‚[VKê l€Øjlÿ [@K h(132Q \BOUT 124Q SPEECH.RANGE.CHECK 113Q FIXR 104Q SHOULDNT 32Q SPEECH.UPDATE.RES 21Q SPEECH.UPDATE.RES 10Q SPEECH.UPDATE.RES) (75Q OUTPUT3 65Q OUTPUT2 53Q OUTPUT1 41Q INPUT) () SPEECH.UPDATE.RES D1 (L (2 REG 1 RES 0 INPUT)) ,`BXBYAZA[A\J@êKHêLIêèè]BHBMMNIL NIL () ANALYZE D1 (P 2 FREQ P 1 PHI P 0 A I 2 N I 1 PERIOD I 0 FILE F 3 ANALYZE.S F 4 ANALYZE.C F 5 ANALYZE.FREQ F 6 ANALYZE.A F 7 ANALYZE.PHI) 50@AB c@AB cST c ST cBoêAëc VUWh(36Q ANALYZE.PHI 27Q ANALYZE.A 20Q ANALYZE.C 10Q ANALYZE.S) NIL ( 45Q 6.283184) ANALYZE.S D1 (P 6 I P 4 ANSWER P 3 FREQ P 2 L P 1 SUM P 0 STREAM I 2 N I 1 PERIOD I 0 FILE) OP@g XoYAlÚ ZBoêAë[JkNMñ³IH oëKNêi êè¹NkØ^°äH IJë(111Q CLOSEF 73Q SIN 57Q SPEECH.BIN 26Q FIXR 11Q OPENSTREAM) (6 INPUT) ( 63Q 128.0 34Q 6.283184 16Q 0.0) ANALYZE.C D1 (P 6 I P 4 ANSWER P 3 FREQ P 2 L P 1 SUM P 0 STREAM I 2 N I 1 PERIOD I 0 FILE) OP@g XoYAlÚ ZBoêAë[JkNMñ³IH oëKNêi êè¹NkØ^°äH IJë(111Q CLOSEF 73Q COS 57Q SPEECH.BIN 26Q FIXR 11Q OPENSTREAM) (6 INPUT) ( 63Q 128.0 34Q 6.283184 16Q 0.0) ANALYZE.A D1 (I 1 C I 0 S) @dêAdê oê(10Q SQRT) NIL ( 14Q 2.0) ANALYZE.PHI D1 (I 1 C I 0 S) A@i (5 ARCTAN2) NIL () SPEECH.BIN D1 (P 0 CODE I 0 STREAM) @ Xl€Hñ”dl€ØnHÙNIL NIL () SPEECH.BOUT D1 (I 1 CODE I 0 STREAM) l€Añ”nA‚Al€Ùb¿@A h(25Q \BOUT) NIL () SYNTH D1 (P 7 BUCKET P 6 I P 4 SUM P 3 A P 2 FREQ P 1 PHI P 0 STREAM I 1 FILE I 0 COEFFS) dPAg XnèkNMñ³Ho¼@°&dO»OºO¹LKJNêIèi êè\µÛHLoê l€Ø ¿NkØ^°¸H (141Q CLOSEF 125Q SPEECH.BOUT 117Q FIXR 75Q SIN 11Q OPENSTREAM) (6 OUTPUT) ( 113Q 128.0 32Q 0.0) SUBTRACT D1 (P 4 I P 2 STREAM3 P 1 STREAM2 P 0 STREAM1 I 2 FILE3 I 1 FILE2 I 0 FILE1) M0@g XAg YBg ZnèkLKñ³JH I Ùl€Ø ¿LkØ\°çH I J (112Q CLOSEF 106Q CLOSEF 102Q CLOSEF 66Q SPEECH.BOUT 57Q SPEECH.BIN 53Q SPEECH.BIN 31Q OPENSTREAM 21Q OPENSTREAM 11Q OPENSTREAM) (26Q OUTPUT 16Q INPUT 6 INPUT) () ANALYZE.RUN D1 (P 1 N P 0 COEFFS I 1 PERIOD I 0 FILE) > k¹H@AI h Xg ¿g ¿@gg ¿g ¿gb¿IkØ°É(60Q SDF 51Q SUBTRACT 36Q SDF 27Q SYNTH 20Q \APPEND2 13Q ANALYZE) (64Q {CORE}SUBTRACT.WAVE 55Q {CORE}SUBTRACT.WAVE 46Q {CORE}SUBTRACT.WAVE 43Q {CORE}SYNTH.WAVE 33Q {CORE}SYNTH.WAVE 24Q {CORE}SYNTH.WAVE) () (PRETTYCOMPRINT ANALYZECOMS) (RPAQQ ANALYZECOMS ((CONSTANTS (PI 3.141592)) (INITVARS (F0 NIL) (PERIOD NIL) (RES1 NIL) (RES2 NIL) ( RES3 NIL) (REG1 NIL) (REG2 NIL) (REG3 NIL) (AMP 1.0) (AV 128) (FOOBAR.TRACE (QUOTE OUTPUT3)) ( ANALYZE.S NIL) (ANALYZE.C NIL) (ANALYZE.A NIL) (ANALYZE.PHI NIL) (ANZLYZE.FREQ NIL)) (RECORDS REG RES) (FNS FOOBAR.INIT FOOBAR.TEST FOOBAR.STEP SPEECH.UPDATE.RES ANALYZE ANALYZE.S ANALYZE.C ANALYZE.A ANALYZE.PHI SPEECH.BIN SPEECH.BOUT SYNTH SUBTRACT ANALYZE.RUN))) (RPAQQ PI 3.141592) (CONSTANTS (PI 3.141592)) (RPAQ? F0 NIL) (RPAQ? PERIOD NIL) (RPAQ? RES1 NIL) (RPAQ? RES2 NIL) (RPAQ? RES3 NIL) (RPAQ? REG1 NIL) (RPAQ? REG2 NIL) (RPAQ? REG3 NIL) (RPAQ? AMP 1.0) (RPAQ? AV 128) (RPAQ? FOOBAR.TRACE (QUOTE OUTPUT3)) (RPAQ? ANALYZE.S NIL) (RPAQ? ANALYZE.C NIL) (RPAQ? ANALYZE.A NIL) (RPAQ? ANALYZE.PHI NIL) (RPAQ? ANZLYZE.FREQ NIL) (RECORD REG (T1 T2)) (RECORD RES (A B C) (ACCESSFNS ((BANDWIDTH (FMINUS (FQUOTIENT (LOG (FDIFFERENCE (fetch (RES C) of DATUM))) TWOPIT))) (FREQUENCY (FQUOTIENT (ARCCOS (FQUOTIENT (fetch (RES B) of DATUM) (FTIMES 2.0 (SQRT (FMINUS (fetch (RES C) of DATUM))))) T) TWOPIT))))) NIL