ME Labs, Inc. 719-520-5323 |
ME Labs, Inc. | 1-719-520-5323 | Example Program - DIV32.pbpPICBASIC 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.' 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 Download the program file. |
Copyright 2019 ME Labs, Inc. PO Box 8250 Asheville NC 28814 (719) 520-5323 (719) 520-1867 fax email: support@melabs.com |
|