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!



