' Name        : DIV32.pbp
' Compiler    : PICBASIC PRO Compiler 2.6
' Assembler   : PM or MPASM
' Target PIC  : 16F or 18F types
' Hardware    : Non specific
' Oscillator  : internal or external
' Keywords    : DEBUG, DIV32
' Description : PICBASIC PRO program to demonstate the Div32 command.
' Div32 must be used immediately after a multiply statement in order to
' retain the state of the internal registers of the device.
'

' Define Debug pin
Define DEBUG_REG  PORTC
Define DEBUG_BIT  6
Define DEBUG_BAUD 9600
Define DEBUG_MODE 1

' Define variables for testing the command
WRESULT  VAR WORD    ' Used to store results to a word
EXPECTED VAR WORD    ' Used to display the expected result
BRESULT  VAR BYTE    ' Used to store results to a byte
BOGUS    VAR BYTE    ' Used to store intermediate results of the multiply

BB0 VAR BYTE         ' Data in byte form
BB1 VAR BYTE         ' Data in byte form
WW0 VAR WORD         ' Data in word form
WW1 VAR WORD         ' Data in word form

' Set values for testing
   BB0=25
   BB1=250
   WW0=255
   WW1=10052

   Debug 10,13           ' Send new line

   BOGUS = WW0 * WW1     ' Multiply to load internal registers with 32-bit value
   WRESULT = Div32 BB1   ' Divide 32-bit value by byte and store in word
   EXPECTED = 10253      ' Expected result for this calculation
   GoSub resultword      ' Send the result with Debug

   BOGUS = WW0 * WW1     ' Multiply to load internal registers with 32-bit value
   WRESULT = Div32 WW0   ' Divide 32-bit value by word and store in word
   EXPECTED = 10052      ' Expected result for this calculation
   GoSub resultword      ' Send the result with Debug

   BOGUS = WW0 * WW1     ' Multiply to load internal registers with 32-bit value
   WRESULT = Div32 1000  ' Divide 32-bit value by contant and store in word
   EXPECTED = 2563       ' Expected result for this calculation
   GoSub resultword      ' Send the result with Debug

   BOGUS = BB0 * BB1     ' Multiply to load internal registers with 32-bit value
   BRESULT = Div32 BB0   ' Divide 32-bit value by byte and store in byte
   EXPECTED = 250        ' Expected result for this calculation
   GoSub resultbyte      ' Send the result with Debug

   BOGUS = BB0 * BB1     ' Multiply to load internal registers with 32-bit value
   BRESULT = Div32 WW0   ' Divide 32-bit value by word and store in byte
   EXPECTED = 24         ' Expected result for this calculation
   GoSub resultbyte      ' Send the result with Debug

   BOGUS = BB0 * BB1     ' Multiply to load internal registers with 32-bit value
   BRESULT = Div32 100   ' Divide 32-bit value by contant and store in byte
   EXPECTED = 62         ' Expected result for this calculation
   GoSub resultbyte      ' Send the result with Debug

   Debug 10,13           ' Send new line

   End                   ' Stop after 1 pass through

resultbyte:              ' Send byte value     
   Debug "Byte Result = ",#BRESULT,"   ",#EXPECTED," Expected",10,13
   Pause 500
   Return

resultword:              ' Send word value
   Debug "Word Result = ",#WRESULT,"   ",#EXPECTED," Expected",10,13
   Pause 500
   Return