Andrew -

Here's some pbasic code I djinned up for a demo a few years ago.
Rxs a byte from a TI-83 and displays it on the debug screen of a
connected STAMP (BS1). Its ugly but it works, and if you look at
it for a bit you'll see what's going on with the TI-83 port.

Regards, Jack

Andrew Seddon wrote:
>
> Hi, just wondering if anybody has any experience interfacing their TI calc
> to a pic. Seems like quite an interesting thing to do for data collection
> etc.. Unfortunately I can`t find any really good info, sample code etc.
>
> Any ideas???

'  Connector: Red = Gnd, Purple = Pin0, White-Green = Pin1

dirs = %00000000
pins = %00000000

symbol BitCount = B1

Init:    if pin0 = 0 and pin1 = 0 then Init
         pause 2000                     ' pause to connect Link

Start:   BitCount = 0
         B0 = 0

Loop:    if pin0 = 1 and pin1 = 1 then Loop
         if pin0 = 0 then TLow

RLow:    low 0
         branch BitCount,(R0,R1,R2,R3,R4,R5,R6,R7)
R0:      bit0 = 1 : goto Rloop
R1:      bit1 = 1 : goto Rloop
R2:      bit2 = 1 : goto Rloop
R3:      bit3 = 1 : goto Rloop
R4:      bit4 = 1 : goto Rloop
R5:      bit5 = 1 : goto Rloop
R6:      bit6 = 1 : goto Rloop
R7:      bit7 = 1
Rloop:   if pin1 = 0 then Rloop
         BitCount = BitCount + 1
         input 0
         if BitCount = 8 then Display
         goto Loop

TLow:    low 1
Tloop:   if pin0 = 0 then Tloop
         BitCount = BitCount + 1
         input 1
         if BitCount = 8 then Display
         goto Loop

Display: debug B0
         goto Start