Built-in Routines
mikroPascal PRO for dsPIC30/33 and PIC24 compiler provides a set of useful built-in utility functions. Built-in functions do not have any special requirements. You can use them in any part of your project.
The Delay_us
and Delay_ms
routines are implemented as “inline”; i.e. code is generated in the place of a call, so the call doesn’t count against the nested call limit.
The Vdelay_ms
, Vdelay_advanced_ms
, Delay_Cyc
, Delay_Cyc_Long
, Get_Fosc_kHz
and Get_Fosc_Per_Cyc
are actual Pascal routines. Their sources can be found in the delays.mpas
file located in the uses
folder of the compiler.
Besides these, there are also Digital Signal Processing (DSP) routines. Please follow DSP Built-in Routines link for more information.
Lo
Prototype |
function Lo(number: longint): byte; |
---|---|
Description |
Function returns the lowest byte of This is an “inline” routine; code is generated in the place of the call, so the call doesn’t count against the nested call limit. |
Parameters |
|
Returns |
Lowest 8 bits (byte) of |
Requires |
Arguments must be variable of scalar type (i.e. Arithmetic Types and Pointers). |
Example |
d := 0x12345678; tmp := Lo(d); // Equals 0x78 Lo(d) := 0xAA; // d equals 0x123456AA |
Notes |
None. |
Hi
Prototype |
function Hi(number: longint): byte; |
---|---|
Description |
Function returns next to the lowest byte of This is an “inline” routine; code is generated in the place of the call, so the call doesn’t count against the nested call limit. |
Parameters |
|
Returns |
Returns next to the lowest byte of |
Requires |
Arguments must be variable of scalar type (i.e. Arithmetic Types and Pointers). |
Example |
d := 0x12345678; tmp := Hi(d); // Equals 0x56 Hi(d) := 0xAA; // d equals 0x1234AA78 |
Notes |
None. |
Higher
Prototype |
function Higher(number: longint): byte; |
---|---|
Description |
Function returns next to the highest byte of This is an “inline” routine; code is generated in the place of the call, so the call doesn’t count against the nested call limit. |
Parameters |
|
Returns |
Returns next to the highest byte of |
Requires |
Arguments must be variable of scalar type (i.e. Arithmetic Types and Pointers). |
Example |
d := 0x12345678; tmp := Higher(d); // Equals 0x34 Higher(d) := 0xAA; // d equals 0x12AA5678 |
Notes |
None. |
Highest
Prototype |
function Highest(number: longint): byte; |
---|---|
Description |
Function returns the highest byte of This is an “inline” routine; code is generated in the place of the call, so the call doesn’t count against the nested call limit. |
Parameters |
|
Returns |
Returns the highest byte of |
Requires |
Arguments must be variable of scalar type (i.e. Arithmetic Types and Pointers). |
Example |
d := 0x12345678; tmp := Highest(d); // Equals 0x12 Highest(d) := 0xAA; // d equals 0xAA345678 |
Notes |
None. |
LoWord
Prototype |
function LoWord(val : longint) : word; |
---|---|
Description |
The function returns low word of Parameters :
|
Parameters |
number
|
Returns |
Low word of |
Requires |
Nothing. |
Example |
d := 0x12345678; tmp := LoWord(d); // Equals 0x5678 LoWord(d) := 0xAAAA; // d equals 0x1234AAAA |
Notes |
None. |
HiWord
Prototype |
function HiWord(val : longint) : word; |
---|---|
Description |
The function returns high word of Parameters :
|
Parameters |
number
|
Returns |
High word of |
Requires |
Nothing. |
Example |
d := 0x12345678; tmp := HiWord(d); // Equals 0x1234 HiWord(d) := 0xAAAA; // d equals 0xAAAA5678 |
Notes |
None. |
Inc
Prototype |
procedure Inc(var par : longint); |
---|---|
Description |
Increases parameter |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
p := 4; Inc(p); // p is now 5 |
Notes |
None. |
Dec
Prototype |
procedure Dec(var par : longint); |
---|---|
Description |
Decreases parameter |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
p := 4; Dec(p); // p is now 3 |
Notes |
None. |
Chr
Prototype |
function Chr(code_ : byte) : char; |
---|---|
Description |
Function returns a character associated with the specified character This is an “inline” routine; the code is generated in the place of the call. |
Parameters |
|
Returns |
Returns a character associated with the specified character |
Requires |
Nothing. |
Example |
c := Chr(10); // returns the linefeed character |
Notes |
None. |
Ord
Prototype |
function Ord(const character : char) : byte; |
---|---|
Description |
Function returns ASCII code of the This is an “inline” routine; the code is generated in the place of the call. |
Parameters |
|
Returns |
ASCII code of the |
Requires |
Nothing. |
Example |
c := Ord('A'); // returns 65 |
Notes |
None. |
SetBit
Prototype |
procedure SetBit(var register_ : word; rbit : byte); |
---|---|
Description |
Function sets the bit This is an “inline” routine; the code is generated in the place of the call. |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
SetBit(PORTB, 2); // Set RB2 |
Notes |
None. |
ClearBit
Prototype |
procedure ClearBit(var register_ : byte; rbit : byte); |
---|---|
Description |
Function clears the bit This is an “inline” routine; code is generated in the place of the call, so the call doesn’t count against the nested call limit. |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
ClearBit(PORTC, 7); // Clear RC7 |
Notes |
None. |
TestBit
Prototype |
function TestBit(register_, rbit : byte) : byte; |
---|---|
Description |
Function tests if the bit This is an “inline” routine; code is generated in the place of the call, so the call doesn’t count against the nested call limit. |
Parameters |
|
Returns |
If the bit is set, returns 1, otherwise returns 0. |
Requires |
Nothing. |
Example |
flag := TestBit(PORTE, 2); // 1 if RE2 is set, otherwise 0 |
Notes |
None. |
Delay_us
Prototype |
procedure Delay_us(Time_In_us: dword); |
---|---|
Description |
Creates a software delay in duration of This is an “inline” routine; the code is generated in the place of the call, so the call doesn’t count against the nested call limit. |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
Delay_us(10); // Ten microseconds pause |
Notes |
None. |
Delay_ms
Prototype |
procedure Delay_ms(Time_In_ms: dword); |
---|---|
Description |
Creates a software delay in duration of This is an “inline” routine; the code is generated in the place of the call, so the call doesn’t count against the nested call limit. |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
Delay_ms(1000); // One second pause |
Notes |
For generating delays with variable as input parameter use the Vdelay_ms routine. |
VDelay_ms
Prototype |
procedure VDelay_ms(Time_ms : word); |
---|---|
Description |
Creates a software delay in duration of |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
var pause : word; ... VDelay_ms(pause); // ~ one second pause |
Notes |
None. |
VDelay_advanced_ms
Prototype |
procedure VDelay_advanced_ms(time_ms, Current_Fosc_kHz: word); |
---|---|
Description |
Creates a software delay in duration of Note that |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
pause := 1000; fosc := 10000; VDelay_advanced_ms(pause, fosc); // Generates approximately one second pause, for a oscillator frequency of 10 MHz |
Notes |
None. |
Delay_Cyc
Prototype |
procedure Delay_Cyc(x: word; y: word); |
---|---|
Description |
Creates a delay based on MCU clock. Delay lasts for |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
Delay_Cyc(1, 10); // 1x16384 + 10 = 16394 cycles pause |
Notes |
|
Delay_Cyc_Long
Prototype |
procedure Delay_Cyc_Long(CycNo : word); |
---|---|
Description |
Creates a delay based on MCU clock. Delay lasts for |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
Delay_Cyc_Long(16384); // 16384 cycles pause |
Notes |
|
Clock_kHz
Prototype |
function Clock_kHz() : longint; |
---|---|
Description |
Returns device clock in kHz, rounded to the nearest integer. This is an “inline” routine; the code is generated in the place of the call. |
Parameters |
None. |
Returns |
Device clock in kHz, rounded to the nearest integer. |
Requires |
Nothing. |
Example |
clk := Clock_kHz(); |
Notes |
None. |
Clock_MHz
Prototype |
function Clock_MHz() : word; |
---|---|
Description |
Returns device clock in MHz, rounded to the nearest integer. This is an “inline” routine; the code is generated in the place of the call. |
Parameters |
None. |
Returns |
Device clock in MHz, rounded to the nearest integer. |
Requires |
Nothing. |
Example |
clk := Clock_MHz(); |
Notes |
None. |
Get_Fosc_kHz
Prototype |
function Get_Fosc_kHz() : longint; |
---|---|
Description |
Function returns device clock in kHz, rounded to the nearest integer. |
Parameters |
None. |
Returns |
Device clock in kHz. |
Requires |
Nothing. |
Example |
clk := Get_Fosc_kHz(); |
Notes |
|
Get_Fosc_Per_Cyc
Prototype |
function Get_Fosc_Per_Cyc() : word; |
---|---|
Description |
Function returns device's clock per cycle, rounded to the nearest integer. Note that |
Parameters |
None. |
Returns |
Device's clock per cycle, rounded to the nearest integer. |
Requires |
Nothing. |
Example |
var clk_per_cyc : word; ... clk_per_cyc := Get_Fosc_Per_Cyc(); |
Notes |
None. |
Reset
Prototype |
procedure Reset(); |
---|---|
Description |
This procedure is equal to assembler instruction reset. |
Parameters |
None. |
Returns |
Nothing. |
Requires |
Nothing. |
Example |
Reset(); // Resets the MCU |
Notes |
None. |
ClrWdt
Prototype |
procedure ClrWdt(); |
---|---|
Description |
This procedure is equal to assembler instruction |
Parameters |
None. |
Returns |
Nothing. |
Requires |
Nothing. |
Example |
ClrWdt(); // Clears WDT |
Notes |
None. |
DisableContextSaving
Prototype |
procedure DisableContextSaving(); |
---|---|
Description |
Use the |
Parameters |
None. |
Returns |
Nothing. |
Requires |
This routine must be called from main. |
Example |
DisableContextSaving(); // instruct the compiler not to automatically perform context-switching |
Notes |
None. |
SetFuncCall
Prototype |
procedure SetFuncCall(FuncName: string); |
---|---|
Description |
If the linker encounters an indirect function call (by a pointer to function), it assumes that any routine whose address was taken anywhere in the program can be called at that point if it's prototype matches the pointer declaration. Use the SetFuncCall directive within routine body to instruct the linker which routines can be called indirectly from that routine :
Routines specified in the Thus, placing |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example: |
procedure first(p, q: byte); begin ... SetFuncCall(second); // let linker know that we will call the routine 'second' ... end |
Notes |
The |
SetOrg
Prototype |
procedure SetOrg(RoutineName: string; address: longint); |
---|---|
Description |
Use the |
Parameters |
|
Returns |
Nothing. |
Requires |
This routine must be called from main. |
Example |
SetOrg(UART1_Write, 0x1234); |
Notes |
None. |
GetDateTime
Prototype |
function GetDateTime() : string; |
---|---|
Description |
Use the |
Parameters |
None. |
Returns |
String with date and time when this routine is compiled. |
Requires |
Nothing. |
Example |
str := GetDateTime(); |
Notes |
None. |
DoGetDateTime
Prototype |
function DoGetDateTime() : string; |
---|---|
Description |
Use the |
Parameters |
None. |
Returns |
String with date and time when this routine is compiled. |
Requires |
Nothing. |
Example |
str := DoGetDateTime(); |
Notes |
None. |
GetVersion
Prototype |
function GetVersion() : string; |
---|---|
Description |
Use the |
Parameters |
None. |
Returns |
String with current compiler version. |
Requires |
Nothing. |
Example |
str := GetVersion(); // for example, str will take the value of '8.2.1.6'' |
Notes |
None. |
DoGetVersion
Prototype |
function DoGetVersion() : string; |
---|---|
Description |
Use the |
Parameters |
None. |
Returns |
String with current compiler version. |
Requires |
Nothing. |
Example |
str := DoGetVersion(); // for example, str will take the value of '8.2.1.6'' |
Notes |
None. |
__AddToFarPointer
Prototype |
procedure __AddToFarPointer(var ptr: ^const far byte; increment: dword); |
---|---|
Description |
This function adds a given number to a pointer to a constant allocated in the far program memory space. |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
var cpointer : ^far const byte; // pointer to a const array in far program memory space const const_array : array[10] of byte = (0,1,2,3,4,5,6,7,8,9); // const array allocated in far program memory space ... cpointer := @const_array[5] ; __AddToFarPointer(cpointer, 1); // increment pointer by 1; cpointer now points to const_array[6] |
Notes |
None. |
__SubFromFarPointer
Prototype |
procedure __SubFromFarPointer(var ptr: ^const far byte; decrement: dword); |
---|---|
Description |
This function subtracts pointer to a constant allocated in the far program memory space by a given number. |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
var cpointer : ^far const byte; // pointer to a const array in far program memory space const const_array : array[10] of byte = (0,1,2,3,4,5,6,7,8,9); // const array allocated in far program memory space ... cpointer := @const_array[5] ; __SubFromFarPointer(cpointer, 1); // decrement pointer by 1; cpointer now points to const_array[4] |
Notes |
None. |
__FlashAddressToFarPointer
Prototype |
function __FlashAddressToFarPointer(address : dword): ^const far byte; |
---|---|
Description |
This function converts a given Flash memory address to a pointer to a constant allocated in the far program memory space. |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
|
Notes |
None. |
__FarPointerToFlashAddress
Prototype |
function __FarPointerToFlashAddress(ptr : ^const far byte) : dword; |
---|---|
Description |
This function converts a pointer to a constant (allocated in the far program memory space) to the appropriate Flash memory address. |
Parameters |
|
Returns |
Nothing. |
Requires |
Nothing. |
Example |
|
Notes |
None. |
New
Prototype |
procedure New(var Ptr : pointer); |
---|---|
Description |
Allocates a block of memory from the memory Heap, taking care of the alignment. It is recommended to use this routine instead of GetMem. |
Parameters |
|
Returns |
Returns a pointer to the memory block allocated by the function; Otherwise 0 (no free blocks of memory are large enough). |
Requires |
Nothing. |
Example |
|
Notes |
None. |
Dispose
Prototype |
procedure Dispose(var Ptr : pointer); |
---|---|
Description |
Disposes a block of memory from the memory Heap, referenced by Ptr and returns its memory to the Heap. |
Parameters |
|
Returns | |
Requires |
Nothing. |
Example |
|
Notes |
After calling this routine, the value of Ptr is nil (0) (not assigned pointer). |
What do you think about this topic ? Send us feedback!