hserin

[Archangel]

using microstudio for boot loader but have tried no loader with the same results using a serial lcd from redbinary lcd is 2 * 16 it does display its strartup message so assume electrical is ok they onmly deal with c programing not much i know about that (nothing)

Here's your code with a couple of tweaks, have not tested it though:

'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : JACK CLEAVER                                      *
'*  Notice  : Copyright (c) 2007 [select VIEW...EDITOR OPTIONS] *

'*          : All Rights Reserved                               *
'*  Date    : 2/17/2007                                         *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
@MyConfig = _HS_OSC & _WDT_OFF & _PWRTE_ON & _LVP_ON 
@MyConfig = MyConfig & _BODEN_OFF 
@ __config  MyConfig    ; sets your programmer's "fuses"
TRISB = %11111110 ' ALL B AS INPUTS EXCEPT B.0
TRISA = %11111111 ' ALL a as inputs
INCLUDE "Modedefs.bas"  ' This is a must have for serial communications using serout
CMCON  = 7  ' turn off comparators
ADCON1 = 7  ' turn off a/d converter
DEFINE PIC16F877A
DEFINE OSC 20
DEFINE      LOADER_USED 1   ' Boot-Loader is being used
DEFINE      OSC 20          ' We're using a 20MHz oscillator
DEFINE CHAR_PACING 1000
x var byte 
  w1 var byte
w1 =0


Setup:
w1 = 1
pause 1400
Main:
for x = 1 to 6
  SEROUT portb.0,6, ["ABCD", #w1] 'mode 6 = N9600 mode 2 = T9600
  w1 = w1 + 1
  PAUSE 250
  next x
  GOTO Main
  END