it works for me

Name: roger.jpg Views: 14051 Size: 73.2 KB

Code:
 ;pic18f26k22 tx  demo
#CONFIG
  CONFIG  FOSC = INTIO67
  CONFIG  PLLCFG = OFF
  CONFIG  PRICLKEN = OFF
  CONFIG  FCMEN = OFF
  CONFIG  IESO = OFF
  CONFIG  PWRTEN = OFF
  CONFIG  BOREN = SBORDIS
  CONFIG  BORV = 190
  CONFIG  WDTEN = ON
  CONFIG  WDTPS = 32768
  CONFIG  CCP2MX = PORTC1
  CONFIG  PBADEN = OFF
  CONFIG  CCP3MX = PORTB5
  CONFIG  HFOFST = ON
  CONFIG  T3CMX = PORTC0
  CONFIG  P2BMX = PORTB5
  CONFIG  MCLRE = EXTMCLR
  CONFIG  STVREN = ON
  CONFIG  LVP = OFF
  CONFIG  XINST = OFF
  CONFIG  DEBUG = OFF
  CONFIG  CP0 = OFF
  CONFIG  CP1 = OFF
  CONFIG  CP2 = OFF
  CONFIG  CP3 = OFF
  CONFIG  CPB = OFF
  CONFIG  CPD = OFF
  CONFIG  WRT0 = OFF
  CONFIG  WRT1 = OFF
  CONFIG  WRT2 = OFF
  CONFIG  WRT3 = OFF
  CONFIG  WRTC = OFF
  CONFIG  WRTB = OFF
  CONFIG  WRTD = OFF
  CONFIG  EBTR0 = OFF
  CONFIG  EBTR1 = OFF
  CONFIG  EBTR2 = OFF
  CONFIG  EBTR3 = OFF
  CONFIG  EBTRB = OFF
#ENDCONFIG
  
  






define OSC 8


DEFINE DEBUG_REG PORTB  
DEFINE DEBUG_BIT 7
DEFINE DEBUG_BAUD 9600 
DEFINE DEBUG_MODE 0
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 9600
trisb=$7f 
OSCCON = $60   ;  OSC 8
anselc = 0
BalBuffer VAR BYTE[60]
BalCount VAR BYTE
latb.7=1
for   BalCount= 0 to 59
BalBuffer[BalCount]=BalCount+"0"
next
BalBuffer[59]=0
pause 2000
debug "ready",13,10






















BalCount = 40
HSEROUT [STR BalBuffer\BalCount,13,10]
debug   STR BalBuffer\BalCount,13,10
debug "full load",13,10
debug   STR BalBuffer,13,10
end