chsel var byte
'
'
'
'
chsel = (PORTA>>1) & $0F

this read PORTA, shift the whole value one place to the right (to remove PORTA.0), then isolate the 4 lower bits.