ME Labs, Inc. | 1-719-520-5323 | Example Program - HSERX2.pbp

' Name        : HSERX2.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : 28/40-pin PIC types compatible with LAB-X2 board
' Hardware    : LAB-X2 Experimenter Board
' Oscillator  : 4MHz external crystal
' Keywords    : HSERIN, HSEROUT
' Description : PICBASIC PRO program to send and receive from the hardware
' serial port. LEDs count characters and flash error if none received for
' 10 seconds.
'

' Define LOADER_USED to allow use of the boot loader.
' This will not affect normal program operation.
Define LOADER_USED 1

char Var Byte        ' Storage for serial character

   TRISB = %11111000 ' Set PORTB.0-2 to outputs
   PORTB = 0         ' Turn off LEDs

mainloop:
   Hserin 10000, allon, [char]  ' Get a char from serial port

   PORTB = PORTB + 1 ' Increment LED count

   Hserout [char]    ' Send char out serial port
   Goto mainloop     ' Do it all over again

allon:
   PORTB = 7         ' Error - no character received
   Pause 500         ' Blink all LEDs
   PORTB = 0
   Pause 500
   Goto allon

   End

           

Download the program file.