ORG 0 SETF TRISC CLRF TRISD LFSR 2,0x20 B1 MOVF PORTC,W ANDLW B'00000111' MOVFF PLUSW2,PORTD BRA B1 END