I think you can save a little space by not including "modedefs.bas"

You will need to change this line.

SHiftOUT Lcd_SDA , Lcd_CLK , MSBFIRST, [ Lcd_Data ]

To:

SHiftOUT Lcd_SDA , Lcd_CLK , 1, [ Lcd_Data ]