Picbasic (segnapunti)

[fonta16]

Salve a tutti, sono nuovo del forum e scrivo per chiedere aiuto.

Sto iniziando a programmare in picbasic, ho iniziato con un conteggio su display a 7 segmenti e fino a qui tutto bene.

Adesso sono alle prese con un segnapunti modello pallacanestro, dove il display a 7 seg. e' collegato alle portb del pic16f84, i due pulsanti di incremento e decremento punteggio alle porte ra2 ra3. Per semplificare le cose ho messo un solo display e il conto parte da 5, con p1(ra2) aumento e con p2(ra3) calo di uno il numero.

Dopo mille prove non mi riesce di fare nulla, se vi posto il listato mi potreste dire dove sbaglio??

Grazie a tutti!!

Gabriele

Cifra var byte '

numero var byte '

i var byte '

p1 var porta.2

p2 var porta.3

TRISA=%11111111 ' input

TRISB=%00000000 'output

i =5

goto display

main:

if p1=0 then

i=i+1

p1=1

endif

if p2=0 then

i=i-1

p2=1

endif

goto display

display:

Cifra=i

Lookup Cifra,[$c0,$f9,$64,$70,$59,$52,$43,$f8,$40,$58],numero 'conversione 7 segmenti

PORTB=numero

goto main

end