[A83] Re: new program


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

[A83] Re: 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
>
>
>




References: