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


[Prev][Next][Index][Thread]

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




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
>
>
>





Follow-Ups: References: