microEngineering Labs, Inc.
    719-520-5323
 
Home:
  Developer Resources:

Programming Clues
    Sample Programs
   
    PICBASIC PRO™
Compiler Manual
    PICBASIC™ Compiler
Manual
    Serin2/Serout2 Modes
    ASCII Character Set
    Number Conversion
    Floating Point
Routines
    PBP Debug Monitor
    Articles and Tutorials

Hardware Clues
    Parts / Vendor List
    PICPROTO™ Boards
    LAB-X1 Docs
    LAB-X2 Docs
    LAB-X20 Docs
    LAB-X3 Docs
    LAB-X4 Docs
    LAB-XUSB Docs
    LAB-XT Docs
     
 

microEngineering Labs, Inc. | 1-719-520-5323 | Example Program - LOOKUP.pbp

PICBASIC PRO program to demonstrate LOOKUP & RANDOM commands. Converts numeric value to ASCII hexadecimal equivalents.
' Name        : LOOKUP.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : 12F, 16F or 18F
' Hardware    : PC serial connection & terminal for result display
' Oscillator  : 4MHz internal or external
' Keywords    : LOOKUP, RANDOM, SEROUT
' Description : PICBASIC PRO program to demonstrate  LOOKUP & RANDOM commands.
' Converts numeric value to ASCII hexadecimal equivalents.
'

Include "bs1defs.bas"  ' Include BS1 variable and serial definitions

SO Con 0               ' Define serial out

mainloop:
   W6 = W0 : Gosub HexW    ' Print W0
   Serout SO,N2400,[13,10] ' Print end of line
   Random W0		   ' Randomize W0
   Goto mainloop           ' Do this forever!!!

   ' Send W6 as XXXX (Uses W5)

HexW:
   Gosub HexB13            ' Print MSB
   B13 = B12               ' Print LSB

HexB13:
   B11 = B13 / 16          ' Print MSB
   Gosub HexB11
   B11 = B13 & 15

HexB11:
   Lookup B11,["0123456789ABCDEF"],B10 ' B10 = HEX$(B11)
   Serout SO,N2400,[B10]
   Return

   End

           

Download the program file.