Aaaalso... Du musst diese Zeilen ändern:

"out EQU 2 ; RS-232 out ist RA2" zu "out EQU 3 ; RS-232 out ist RA2"

movlw B'00111011' ; RA2 output
movwf TRISA ;
bcf STATUS, RP0 ; zurückschalten zur Bank 0
clrf PORTA ;

diese Zeilen einfügen unten einfügen:
clrf PORTB
clrf TRISB

ALLE
"bcf PORTA, out" zu "bcf PORTB, out"
und
"bsf PORTA, out" zu "bsf PORTB, out"

Viel Glück und Freude
MfG
Mobius