Problem with ports help plz

[Mus.me]

Hello Mus.me,
Please tell us which PIC you are using, as each is a little different, so WE may look into it's data sheet. Your code looks like it will work BUT the unknown is if your PIC has analog stuff on portB, which you have not disabled.

THANKS JOE ,IM USING F84 NOW I CHANGED SOME WIRES IT WORKS, BUT IM STILL FIGHTING WITH VARIABLES ,

THIS CODE IT WORKS
DEFINE OSC 4
TRISB = 0
PORTB = 0
J VAR PORTB.5
Main:
PORTB.6 = 1
PORTB = %00100001 '
PAUSE 1
J =0
PORTB = %00111010 '
PAUSE 1
J = 0
PORTB = %00100001 ' LETTER A
PAUSE 1
J = 0
PORTB = %00111111 'SPACE
PAUSE 1
J = 0
PORTB = %00100001 '
PAUSE 1
J =0
PORTB = %00111010 '
PAUSE 1
J = 0
PORTB = %00100001 'LETTER A
PAUSE 1
J = 0
PORTB = %00111111 ' SPACE
PAUSE 1
J = 0
PORTB = %00110101 ' DOTS :
PAUSE 1

GOTO Main

END

I WANT TO USE VARIABLES
EXAMPLE


DEFINE OSC 4
TRISB = 0
PORTB = 0
J VAR PORTB.5
A VAR BYTE
B VAR BYTE
C VAR BYTE
D VAR BYTE
E VAR BYTE
F VAR BYTE
G VAR BYTE
H VAR BYTE
I VAR BYTE
Main:
PORTB.6 = 1
PORTB = A
PAUSE 1
J =0
PORTB = B
PAUSE 1
J = 0
PORTB = C
PAUSE 1
J = 0
PORTB = D
PAUSE 1
J = 0
PORTB = E
PAUSE 1
J =0
PORTB = F
PAUSE 1
J = 0
PORTB = G
PAUSE 1
J = 0
PORTB = H
PAUSE 1
J = 0
PORTB = I
PAUSE 1

GOTO Main

END
or like this

DEFINE OSC 4
TRISB = 0
PORTB = 0
TXT VAR BYTE
K VAR BYTE
J VAR PORTB
PORTA = 1
TRISA = 1

LOOP:
'IF PORTA.4 = 0 THEN GOTO MAIN
'LOOKUP K,[],TXT
FOR TXT = 1 TO 10
READ TXT,K
J = K
PAUSE 1
NEXT TXT
GOTO LOOP
END
DATA @ 1,%01101011,%01010101,%01101011_
,%01010101,%01101011,%01010101,%01101011_
,%01010101,%01101011,1


i've done PORTB.1 to 05 outputs to LEDs anoides , and ic 4017 to 9 cathodes and PORTB.0 pulse to 4017 clock and PORTB.7 to 4017 reset, i hope u understand and tell me ur ideas about the variables thanks.