[A83] Re: new program [OT]


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

[A83] Re: new program [OT]




if you do BCC cross post is OK
----- Original Message -----
From: David Phillips <david@acz.org>
To: <assembly-83@lists.ticalc.org>
Sent: Saturday, May 04, 2002 11:23 PM
Subject: [A83] Re: new program [OT]


>
> Please don't cross post.  If you want to send an email to two different
> lists, send the emails separately.
>
> >
> > 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: