serial in parallel out using PIC

[skimask]

INCLUDE "modedefs.bas"

@ DEVICE MCLR_OFF, INTRC_OSC, WDT_OFF, LVP_OFF, PWRT_ON, PROTECT_OFF

CMCON = 7 : VRCON = 0 : TRISB.0 = 1 : TRISB.1=1 : TRISA = 0 : DIPIN var byte : wvar var byte : CLPIN VAR bit

here:






PORTA=0








SHIFTIN DIPIN,CLPIN,MSBPRE,[wvar\6] : PORTA=wvar : pauseus 500 : PORTA=0 : goto here
end

You keep shutting off everything on PortA every time thru the loop...