hi i want to make a subroutine for checking the status of each bit of portb and set a high on corresponding to porta.

here is the assembly code

checking portb

btfsc portb, 0
bsf porta, 0
btfsc portb, 1
bsf porta, 1
btfsc portb, 2
bsf porta, 2
btfsc portb, 3
bsf porta, 3

return


please help me to translate this code into picbasic pro
appreciate for any help