(FILECREATED " 2-Dec-84 11:28:13" ("compiled on " {ERIS}PROSE>COMMUNICARD.;8) "30-Nov-84 13:35:34" bcompl'd in "INTERLISP-D 30-Nov-84 ..." dated "30-Nov-84 14:17:38") (FILECREATED " 2-Dec-84 11:27:44" {ERIS}PROSE>COMMUNICARD.;8 10122 changes to: (FNS ANSWERING.MACHINE PLAYIT TEST.PLAY COMMUNICARD.SETUP OFF.HAND OFF.HOOK OFF.LINE OFF.PHONE ON.HAND ON.HOOK ON.LINE ON.PHONE RINGING? STATUS TEST TONE? INIT.ANSWERING.MACHINE CORRECT TEST.PLAY.FILE TEST.RECORD INP OUT HEX POLL) (VARS COMMUNICARDCOMS BACKWARDS.LIMIT SPEECH3.LIMIT SPEECH2.LIMIT SPEECH1.LIMIT RESPONSE.LIMIT SPEECH.THRESHOLD RDY TONE MONITOR HAND ENB LINE PHONE OH DATA DTMF RST CTRL AROUNDEXITFNS BANK) previous date: "30-Nov-84 17:10:18" {ERIS}PROSE>COMMUNICARD.;1) ANSWERING.MACHINE D1 (F 0 RESPONSE.ARRAY F 1 RESPONSE.LIMIT F 2 SPEECH1.ARRAY F 3 SPEECH1.LIMIT F 4 BACKWARDS.LIMIT F 5 SPEECH2.ARRAY F 6 SPEECH3.ARRAY F 7 SPEECH2.LIMIT F 10Q BACKWARDS.ARRAY F 11Q SPEECH3.LIMIT) m RS PQ UW PQ WT PQg PQg PQg PQg VW n n (150Q BLOCK 141Q ON.HOOK 135Q BLOCK 126Q PLAYIT 117Q PLAYIT 106Q PLAYIT 75Q PLAYIT 64Q PLAYIT 53Q PLAYIT 44Q PLAYIT 36Q PLAYIT 27Q RECORDIT 21Q PLAYIT 13Q OFF.HOOK 6 RINGING? 2 BLOCK) (114Q SMEAR 103Q FAST 72Q SLOW 61Q BACKWARDS) () COMMUNICARD.SETUP D1 (F 0 RST F 1 CTRL) Pj Q (13Q BUS.OUTPUT 7 BUS.OUTPUT 2 BUS.RESET) NIL () CORRECT D1 (L (0 DATUM)) @dllNIL NIL () HEX D1 (P 3 X P 1 STRING P 0 LENGTH I 0 STR) 5 @k Yd XdkjKJLlHK I ԼKk[L(50Q HEXCHAR 45Q GNC 41Q EXPT 14Q NCHARS 7 SUBSTRING) NIL () HEXCHAR D1 (L (0 CHAR)) r@djldkgdladl[dlUdlOdlIdlCdl=dl 7dgl dgl gl @dgl gl@glNIL (152Q F 141Q E 131Q D 117Q C 107Q B 76Q A) () INIT.ANSWERING.MACHINE D1 (F 0 SPEECH1.LIMIT F 1 SPEECH1.ARRAY F 2 SPEECH2.LIMIT F 3 RESPONSE.ARRAY F 4 SPEECH2.ARRAY F 5 SPEECH3.LIMIT F 6 BACKWARDS.LIMIT F 7 SPEECH3.ARRAY F 10Q RESPONSE.LIMIT F 11Q BACKWARDS.ARRAY) H Pgjd cRgjd cUgjd cWgjd cVgjd coi i h(104Q TERPRI 77Q PRIN1 65Q ARRAY 52Q ARRAY 36Q ARRAY 23Q ARRAY 10Q ARRAY) (60Q BYTE 45Q BYTE 31Q BYTE 16Q BYTE 3 BYTE) ( 73Q "now run TEST.RECORD on SPEECH1.ARRAY, SPEECH2.ARRAY, SPEECH3.ARRAY, RESPONSE.ARRAY, and BACKWARDS.ARRAY.") INP D1 (I 0 A) @ (3 BUS.INPUT) NIL () OFF.HAND D1 (F 0 CTRL F 1 HAND) PQmP (14Q BUS.OUTPUT 10Q BUS.INPUT) NIL () OFF.HOOK D1 (F 0 CTRL F 1 OH) Pd Q (11Q BUS.OUTPUT 4 BUS.INPUT) NIL () OFF.LINE D1 (F 0 CTRL F 1 LINE) PQmP (14Q BUS.OUTPUT 10Q BUS.INPUT) NIL () OFF.PHONE D1 (F 0 CTRL F 1 PHONE) PQP (11Q BUS.OUTPUT 5 BUS.INPUT) NIL () ON.HAND D1 (F 0 CTRL F 1 HAND) PQP (11Q BUS.OUTPUT 5 BUS.INPUT) NIL () ON.HOOK D1 (F 0 CTRL F 1 OH) Pd Qm (14Q BUS.OUTPUT 4 BUS.INPUT) NIL () ON.LINE D1 (F 0 CTRL F 1 LINE) PQP (11Q BUS.OUTPUT 5 BUS.INPUT) NIL () ON.PHONE D1 (F 0 CTRL F 1 PHONE) PQmP (14Q BUS.OUTPUT 10Q BUS.INPUT) NIL () OUT D1 (I 1 D I 0 A) @A (4 BUS.OUTPUT) NIL () PLAYIT D1 (P 1 DATUM I 2 OPTION I 1 LIMIT I 0 ARRAY F 2 DATA) Bdg&AkjIHhR@I( R@I( IkYg$AkjIHR@I(@Ik( IlYBdgjAkHIR@I( ImԹgAkjIHR@I( IkYAkjIHpR@I( IkY(255Q BUS.OUTPUT 221Q BUS.OUTPUT 157Q BUS.OUTPUT 113Q BUS.OUTPUT 44Q BUS.OUTPUT 34Q BUS.OUTPUT) (172Q SMEAR 130Q BACKWARDS 56Q FAST 4 SLOW) () POLL D1 (I 1 DATA I 0 ADDR) @A (4 BUS.OUTPUT) NIL () RECORDIT D1 (P 1 DATUM I 1 LIMIT I 0 ARRAY F 2 DATA F 3 SPEECH.THRESHOLD) !RS AkjIHh@IR *IkY(27Q BUS.INPUT 4 BUS.OUTPUT) NIL () RINGING? D1 (F 1 MONITOR F 2 CTRL) QR Hj HH (26Q \FZEROP 4 BUS.INPUT) NIL () STATUS D1 (P 0 STATUS F 7 CTRL F 10Q OH F 11Q PHONE F 12Q TONE F 13Q LINE F 14Q HAND F 15Q MONITOR) 5pW Xoi WHYjIoi oi WHZjJoi oi WH[jKoi oi WH\jzLpoi oi WH]jOMEoi oi WH^j$Noi oi i h o o o co` /o, o(450Q \FZEROP 432Q \FZEROP 414Q \FZEROP 401Q \FZEROP 366Q \FZEROP 353Q \FZEROP 346Q TERPRI 341Q PRIN1 330Q PRIN1 301Q PRIN1 270Q PRIN1 241Q PRIN1 230Q PRIN1 201Q PRIN1 170Q PRIN1 133Q PRIN1 122Q PRIN1 65Q PRIN1 54Q PRIN1 20Q PRIN1 7 BUS.INPUT) NIL ( 460Q "on" 442Q "" 424Q "on" 407Q "off" 374Q "" 361Q "no " 335Q "tone " 324Q "" 275Q "ringing/" 264Q "not " 235Q "hand/" 224Q "on" 175Q "line/" 164Q "off" 127Q "phone/" 116Q "no " 61Q "hook/" 50Q "off" 14Q "Status: ") TEST D1 (P 1 DATUM F 2 DATA F 3 SPEECH.THRESHOLD F 4 SPEECH.LIMIT F 5 SPEECHARRAY) 0RS TkjIHUIR *IkY(53Q ON.HOOK 37Q BUS.INPUT 15Q BUS.OUTPUT 7 OFF.HOOK 2 RINGING?) NIL () TEST.PLAY D1 (I 2 OPTION I 1 LIMIT I 0 ARRAY) @AB (22Q ON.HOOK 16Q PLAYIT 7 OFF.HOOK 2 RINGING?) NIL () TEST.PLAY.FILE D1 (P 1 DATUM I 0 FILE F 2 SPEECH.LIMIT F 3 DATA) )RkjIHS@ IkY(44Q ON.HOOK 31Q BUS.OUTPUT 7 OFF.HOOK 2 RINGING?) NIL () TEST.RECORD D1 (P 1 DATUM I 1 LIMIT I 0 ARRAY F 2 DATA F 3 SPEECH.THRESHOLD) QRS AkjIH@IR *IkYAkjIHR@I( IkYn (114Q BLOCK 105Q ON.HOOK 72Q BUS.OUTPUT 37Q BUS.INPUT 15Q BUS.OUTPUT 7 OFF.HOOK 2 RINGING?) NIL () TONE? D1 (F 1 DTMF F 2 CTRL F 3 TONE) *R SHj HH hQ lQj (46Q BUS.OUTPUT 36Q BUS.INPUT 26Q \FZEROP 3 BUS.INPUT) NIL () (PRETTYCOMPRINT COMMUNICARDCOMS) (RPAQQ COMMUNICARDCOMS ((VARS BACKWARDS.LIMIT BANK CTRL DATA DTMF ENB HAND LINE MONITOR OH PHONE RDY RESPONSE.LIMIT RST SPEECH.THRESHOLD SPEECH1.LIMIT SPEECH2.LIMIT SPEECH3.LIMIT TONE) (FNS ANSWERING.MACHINE COMMUNICARD.SETUP CORRECT HEX HEXCHAR INIT.ANSWERING.MACHINE INP OFF.HAND OFF.HOOK OFF.LINE OFF.PHONE ON.HAND ON.HOOK ON.LINE ON.PHONE OUT PLAYIT POLL RECORDIT RINGING? STATUS TEST TEST.PLAY TEST.PLAY.FILE TEST.RECORD TONE?))) (RPAQQ BACKWARDS.LIMIT 5000) (RPAQQ BANK 4) (RPAQQ CTRL 630) (RPAQQ DATA 631) (RPAQQ DTMF 628) (RPAQQ ENB 8) (RPAQQ HAND 16) (RPAQQ LINE 4) (RPAQQ MONITOR 32) (RPAQQ OH 1) (RPAQQ PHONE 2) (RPAQQ RDY 128) (RPAQQ RESPONSE.LIMIT 30000) (RPAQQ RST 629) (RPAQQ SPEECH.THRESHOLD 128) (RPAQQ SPEECH1.LIMIT 30000) (RPAQQ SPEECH2.LIMIT 5000) (RPAQQ SPEECH3.LIMIT 5000) (RPAQQ TONE 64) (PUTPROPS COMMUNICARD COPYRIGHT ("Xerox Corporation" 1984)) NIL