[TI-H] Re: [A83] new program

To: ti-hardware@lists.ticalc.org
Subject: [TI-H] Re: [A83] new program
From: rabidcow@juno.com
Date: Mon, 6 May 2002 10:20:30 -0700
Reply-To: ti-hardware@lists.ticalc.org

Actually, I'm not sure the transistor idea makes much sense...

The idea is that the calc doesn't expect the line to be driven at 5v, it
expects it to float to ~4.5v or so.  I forget what these kind of outputs
are.  open collector?

re: the comparator thing:
http://litec.rpi.edu/LITEC_Tutorials_3_7/Hardware/Chips/Op_Amp__Comparato
r.html

Note that a comparator is usually just an op amp wired the right way. 
(Set the inverting input equal to the dc level of the input signal.)

-josh


On Sun, 5 May 2002 19:09:52 +0200 "Ronald Teune" <rtwolf@gmx.net> writes:
> 
> On/at/with physics class, I learnt a bit electronics, and such an 
> opamp
> should amplify the difference with a factor 10000 or so. I thought 
> this was
> the way to make a 5V/0V block signal out of a mic input. But it 
> didn't work
> out. Rabidcow proposed a transistor, I guess I'll try that.
> 
> > Try using a small standalone ADC....i don't think amplification 
> will be
> > neessary.
> >
> > -----Original Message-----
> > From: ti-hardware-bounce@lists.ticalc.org
> > [mailto:ti-hardware-bounce@lists.ticalc.org] On Behalf Of Tijl 
> Coosemans
> > Sent: Saturday, May 04, 2002 2:01 PM
> > To: assembly-83@lists.ticalc.org; ti-hardware@lists.ticalc.org
> > Subject: [TI-H] Re: [A83] new program
> >
> >
> >
> > First guess. A microphone produces an analog signal and the calc's 
> link
> > port is a digital I/O.
> >
> > --
> > NO ePATENTS! Freedom for Business, Freedom for Education, Freedom 
> for
> > Health! eSign NOW! (http://petition.eurolinux.org/)
> >
> > > From: "Ronald Teune" <rtwolf@gmx.net>
> > >
> > > Hi there!
> > > Some time ago, someone wanted a microphone recorder thingy for 
> on the
> > calc.
> > > I thought something like this would do it:
> > >
> > >    /-|\
> > >   |  |+\____ calc
> > > mic\ |-/
> > >     -|/
> > >
> > > (a mic on the +/- of an opamp, and the OUT connected to a calc) 
> But it
> >
> > > didn't work, maybe someone has suggestions. Anyway, while
> > > experimenting a little more, this program came out (it's called 
> a
> > > graphic analyzer, isn't it?) (see below) It's not very speed
> > > optimized, but it does show both the calc lines quite fast. 
> Maybe
> > > someone finds a use for it :)
> > >
> > > Greetings,
> > >        Ronald Teune
> > >        Illitterate?
> > >        Write to us now for free help!
> > >        http://zeekoe.cjb.net
> > >        http://nietszeggend.cjb.net
> > >
> > > .nolist
> > > #include "ion.inc"
> > > .list
> > > #ifdef TI83P
> > >         .org    progstart-2
> > >         .db     $BB,$6D
> > > #else
> > >         .org    progstart
> > > #endif
> > >         ret
> > >         jr      nc,begin
> > >
> > >         .db     "Analyze!",0
> > >
> > > begin:
> > >  ld b,0
> > > loop:
> > >  in a,(0)
> > >  and 3
> > >  cp 0
> > >  call z,s0
> > >  cp 1
> > >  call z,s1
> > >  cp 2
> > >  call z,s2
> > >  cp 3
> > >  call z,s3
> > >  push bc
> > >  bcall(_GetCSC)
> > >  pop bc
> > >  cp $0F
> > >  ret z
> > >  inc b
> > >  ld a,b
> > >  cp 95
> > >  call z,clrb
> > >  jp loop
> > >
> > > s0:
> > >  ld d,0
> > >  ld c,10
> > >  bcall(_IPoint)
> > >  ld c,40
> > >  bcall(_IPoint)
> > >  ld d,1
> > >  ld c,20
> > >  bcall(_IPoint)
> > >  ld c,50
> > >  bcall(_IPoint)
> > >  ret
> > > s1:
> > >  ld d,0
> > >  ld c,20
> > >  bcall(_IPoint)
> > >  ld c,40
> > >  bcall(_IPoint)
> > >  ld d,1
> > >  ld c,10
> > >  bcall(_IPoint)
> > >  ld c,50
> > >  bcall(_IPoint)
> > >  ret
> > > s2:
> > >  ld d,0
> > >  ld c,10
> > >  bcall(_IPoint)
> > >  ld c,50
> > >  bcall(_IPoint)
> > >  ld d,1
> > >  ld c,20
> > >  bcall(_IPoint)
> > >  ld c,40
> > >  bcall(_IPoint)
> > >  ret
> > > s3:
> > >  ld d,1
> > >  ld c,10
> > >  bcall(_IPoint)
> > >  ld c,40
> > >  bcall(_IPoint)
> > >  ld d,0
> > >  ld c,20
> > >  bcall(_IPoint)
> > >  ld c,50
> > >  bcall(_IPoint)
> > >  ret
> > > clrb:
> > >  ld b,0
> > >  ret
> > > .end
> > > END
> > >
> > >
> > >
> >
> >
> >
> 
> 
> 
> 

________________________________________________________________
GET INTERNET ACCESS FROM JUNO!
Juno offers FREE or PREMIUM Internet access for less!
Join Juno today!  For your FREE software, visit:
http://dl.www.juno.com/get/web/.