Also wenn es auf mehreren Ports nicht funktioniert ist das etwas eigenartig. Du schaltest sicher auf PortA 1 beginnend an und nicht auf PortA 0?
Nach den lcd_init eine LED anmachen, nach dem clrscr die nächste und in deiner while Schleife lässt du eine blinken.