Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!cs.utexas.edu!swrinde!ucsd!ogccse!orstcs!jacobs.CS.ORST.EDU!throoph
From: throoph@jacobs.CS.ORST.EDU (Henry Throop)
Newsgroups: comp.sys.apple
Subject: Re: cassette click
Message-ID: <13326@orstcs.CS.ORST.EDU>
Date: 24 Oct 89 07:02:36 GMT
References: <2390@eagle.wesleyan.edu>
Sender: usenet@orstcs.CS.ORST.EDU
Reply-To: throoph@jacobs.CS.ORST.EDU.UUCP (Henry Throop)
Organization: Oregon State University - CS - Corvallis Oregon
Lines: 39

In article <2390@eagle.wesleyan.edu> dkonerding@eagle.wesleyan.edu writes:
>
>	Hello, folks.  I sense the UPS man approaching with my IBM clone; it's
>a matter of days.  I'm trying to cram all the work I always wanted to do into
>about 72 hours.  One thing I'm doing to trying to get a check the cassette in
>byte and see if there's sound coming in,and if so, click the speaker-- in
>effect, making the Apple speaker sound like whatever my tape is playing.  I
>know that people have taped their voices and played them back with the Apple,
>the following program won't do the first job I mentioned:
>LDA C060 (or whatever the cassette-in byte is)
>CMP #A0 (160 seems to equal "no sound")
>BNE TOP
>BIT C030... all this does is click the speaker when sound is coming in, no
>pitch, nothing.  How can I get this to work?

I don't have a cassette port to try it on, but this program, lifted from Feb.
89 A2-Central, which stole it in turn from November 82 Apple Assembly Line,
might work:

6000: A0 1E	ldy #$1e	;150 uSec delay by counting down
6002: 88	dey
6003: D0 FD	bne $6002
6005: AD 60 C0  lda $c060	;get cassette input
6008: 45 2F	eor $2f		;compare it to LAST
600A: 10 F4	bpl $6000	;if no change, restart
600C: 45 2F	eor $2f      	;input changed, so fix A
600e: 85 2F	sta $2f		;save LAST
6010: AD 30 C0  lda $c030 	;wham speaker
6013: 4C 00 60  jmp $6000  	;restart

Henry

>DKONERDING@EAGLE.WESLEYAN.EDU
>DKONERDING%EAGLE@WESLEYAN.BITNET


---
Henry Throop
Internet: throoph@jacobs.cs.orst.edu