I got things to work with one 7segment display.

I tryed to follow the article here with 2 7segments:
http://www.melabs.com/resources/articles/ledart.htm

but i cant get it to work...

Had to do some minor changes as some original lines were giving me errors...

something is missing here

here's the code:

B1 var word
W1 var word
B0 var word
B3 var word

TRISB = $80

loop: For B1 = 0 To 99 ' Count from 0 to 99
B0 = B1 ' Pass the count to the conversion subroutine

gosub display4

Pause 1000 ' Display it for 1 second
Next B1 ' Do next
Goto loop ' Do it forever

' Convert binary number in B0 to segments for LED

bin2seg: Lookup B0,[$40,$79,$24,$30,$19,$12,$02,$78,$00,$18],B3
Return


display4:

B0 = W1 / 10 ' Find number of tens
W1 = W1 // 10 ' Remove tens from W1
Gosub bin2seg ' Convert number to segments
Poke PortB, B3 ' Send segments to LED
Poke PortA, $1D ' Turn on second digit
Pause 1 ' Leave it on 1 ms
Poke PortA, $1F ' Turn off digit to prevent ghosting
B0 = W1 ' Get number of ones
Gosub bin2seg ' Convert number to segments
Poke PortB, B3 ' Send segments to LED
Poke PortA, $1E ' Turn on first digit
Pause 1 ' Leave it on 1 ms
Poke PortA, $1F ' Turn off digit to prevent ghosting
Return