PORTB = %00100001 ' LETTER A
no good when you later have
PORTB = A

Try....
Code:
A VAR BYTE
A =   %00100001
PORTB = A