[A83] new program

To: <assembly-83@lists.ticalc.org>, <ti-hardware@lists.ticalc.org>
Subject: [A83] new program
From: "Ronald Teune" <rtwolf@gmx.net>
Date: Fri, 3 May 2002 10:59:30 +0200
Reply-To: assembly-83@lists.ticalc.org


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:

[A83] Re: new program

From: "Tijl Coosemans" <tijl@ulyssis.org>

[A83] Re: new program [OT]

From: "David Phillips" <david@acz.org>