[A83] Re: new program [OT]
[Prev][Next][Index][Thread]
[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: