mirror of
https://github.com/irmen/prog8.git
synced 2024-12-27 05:29:38 +00:00
1013 lines
45 KiB
ReStructuredText
1013 lines
45 KiB
ReStructuredText
=====================================
|
|
Library modules and builtin functions
|
|
=====================================
|
|
|
|
The compiler provides several library modules with useful subroutine and variables.
|
|
There are also a bunch of builtin functions.
|
|
|
|
Some of the libraries may be specific for a certain compilation target, or work slightly different,
|
|
but some effort is put into making them available across compilation targets.
|
|
|
|
This means that as long as your program is only using the subroutines from these
|
|
libraries and not using hardware- and/or system dependent code, and isn't hardcoding certain
|
|
assumptions like the screen size, the exact same source program can
|
|
be compiled for multiple different target platforms. Many of the example programs that come
|
|
with Prog8 are written like this.
|
|
|
|
You can ``%import`` and use these modules explicitly, but the compiler may also import one or more
|
|
of these library modules automatically as required.
|
|
|
|
.. note::
|
|
For full details on what is available in the libraries, please study their source code here:
|
|
https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib
|
|
|
|
.. caution::
|
|
The resulting compiled binary program *only works on the target machine it was compiled for*.
|
|
You must recompile the program for every target you want to run it on.
|
|
|
|
.. note::
|
|
Several algorithms and math routines in Prog8's assembly library files are adapted from
|
|
code publicly available on https://www.codebase64.org/
|
|
|
|
|
|
.. _builtinfunctions:
|
|
|
|
Built-in Functions
|
|
------------------
|
|
There's a set of predefined functions in the language. These are fixed and can't be redefined in user code.
|
|
You can use them in expressions and the compiler will evaluate them at compile-time if possible.
|
|
|
|
|
|
Math
|
|
^^^^
|
|
|
|
abs (x)
|
|
Returns the absolute value of a number (integer or floating point).
|
|
|
|
min (x, y)
|
|
Returns the smallest of x and y. Supported for integer types only, for floats use ``floats.minf()`` instead.
|
|
|
|
max (x, y)
|
|
Returns the largest of x and y. Supported for integer types only, for floats use ``floats.maxf()`` instead.
|
|
|
|
clamp (value, minimum, maximum)
|
|
Returns the value restricted to the given minimum and maximum.
|
|
Supported for integer types only, for floats use ``floats.clampf()`` instead.
|
|
|
|
sgn (x)
|
|
Get the sign of the value (integer or floating point).
|
|
The result is a byte: -1, 0 or 1 (negative, zero, positive).
|
|
|
|
sqrt (w)
|
|
Returns the square root of the number.
|
|
Supports unsigned integer (result is ubyte) and floating point numbers.
|
|
To do the reverse - squaring a number - just write ``x*x``.
|
|
|
|
divmod (dividend, divisor, quotient, remainder)
|
|
Performs division only once and returns both quotient and remainder in a single call, where using '/' and '%' separately
|
|
would perform the division operation twice.
|
|
All values are ubytes or all are uwords.
|
|
The last two arguments must be variables to receive the quotient and remainder results, respectively.
|
|
|
|
|
|
Array operations
|
|
^^^^^^^^^^^^^^^^
|
|
|
|
len (x)
|
|
Number of values in the array value x, or the number of characters in a string (excluding the 0-byte).
|
|
Note: this can be different from the number of *bytes* in memory if the datatype isn't a byte. See sizeof().
|
|
Note: lengths of strings and arrays are determined at compile-time! If your program modifies the actual
|
|
length of the string during execution, the value of len(s) may no longer be correct!
|
|
(use the ``string.length`` routine if you want to dynamically determine the length by counting to the
|
|
first 0-byte)
|
|
|
|
|
|
Miscellaneous
|
|
^^^^^^^^^^^^^
|
|
|
|
cmp (x,y)
|
|
Compare the integer value x to integer value y. Doesn't return a value or boolean result, only sets the processor's status bits!
|
|
You can use a conditional jumps (``if_cc`` etcetera) to act on this.
|
|
Normally you should just use a comparison expression (``x < y``)
|
|
|
|
lsb (x)
|
|
Get the least significant byte of the word x. Equivalent to the cast "x as ubyte".
|
|
|
|
msb (x)
|
|
Get the most significant byte of the word x.
|
|
|
|
mkword (msb, lsb)
|
|
Efficiently create a word value from two bytes (the msb and the lsb). Avoids multiplication and shifting.
|
|
So mkword($80, $22) results in $8022.
|
|
|
|
.. note::
|
|
The arguments to the mkword() function are in 'natural' order that is first the msb then the lsb.
|
|
Don't get confused by how the system actually stores this 16-bit word value in memory (which is
|
|
in little-endian format, so lsb first then msb)
|
|
|
|
peek (address)
|
|
same as @(address) - reads the byte at the given address in memory.
|
|
|
|
peekw (address)
|
|
reads the word value at the given address in memory. Word is read as usual little-endian lsb/msb byte order.
|
|
|
|
peekf (address)
|
|
reads the float value at the given address in memory. On CBM machines, this reads 5 bytes.
|
|
|
|
poke (address, value)
|
|
same as @(address)=value - writes the byte value at the given address in memory.
|
|
|
|
pokew (address, value)
|
|
writes the word value at the given address in memory, in usual little-endian lsb/msb byte order.
|
|
|
|
pokef (address, value)
|
|
writes the float value at the given address in memory. On CBM machines, this writes 5 bytes.
|
|
|
|
pokemon (address, value)
|
|
Like poke(), but also returns the previous value in the given address.
|
|
Also doesn't have anything to do with a certain video game.
|
|
|
|
rol (x)
|
|
Rotate the bits in x (byte or word) one position to the left.
|
|
This uses the CPU's rotate semantics: bit 0 will be set to the current value of the Carry flag,
|
|
while the highest bit will become the new Carry flag value.
|
|
(essentially, it is a 9-bit or 17-bit rotation)
|
|
Modifies in-place, doesn't return a value (so can't be used in an expression).
|
|
You can rol a memory location directly by using the direct memory access syntax, so like ``rol(@($5000))``
|
|
You can use ``if_cc`` or ``if_cs`` after a rol to act on the new carry bit, if required.
|
|
|
|
rol2 (x)
|
|
Like ``rol`` but now as 8-bit or 16-bit rotation.
|
|
It uses some extra logic to not consider the carry flag as extra rotation bit.
|
|
Modifies in-place, doesn't return a value (so can't be used in an expression).
|
|
You can rol a memory location directly by using the direct memory access syntax, so like ``rol2(@($5000))``
|
|
|
|
ror (x)
|
|
Rotate the bits in x (byte or word) one position to the right.
|
|
This uses the CPU's rotate semantics: the highest bit will be set to the current value of the Carry flag,
|
|
while bit 0 will become the new Carry flag value.
|
|
(essentially, it is a 9-bit or 17-bit rotation)
|
|
Modifies in-place, doesn't return a value (so can't be used in an expression).
|
|
You can ror a memory location directly by using the direct memory access syntax, so like ``ror(@($5000))``
|
|
You can use ``if_cc`` or ``if_cs`` after a ror to act on the new carry bit, if required.
|
|
|
|
ror2 (x)
|
|
Like ``ror`` but now as 8-bit or 16-bit rotation.
|
|
It uses some extra logic to not consider the carry flag as extra rotation bit.
|
|
Modifies in-place, doesn't return a value (so can't be used in an expression).
|
|
You can ror a memory location directly by using the direct memory access syntax, so like ``ror2(@($5000))``
|
|
|
|
setlsb (x, value)
|
|
Sets the least significant byte of word variable x to a new value. Leaves the MSB untouched.
|
|
|
|
setmsb (x, value)
|
|
Sets the most significant byte of word variable x to a new value. Leaves the LSB untouched.
|
|
|
|
sizeof (name) ; sizeof (number)
|
|
Number of bytes that the object 'name', or the number 'number' occupies in memory.
|
|
This is a constant determined by the data type of
|
|
the object. For instance, for a variable of type uword, the sizeof is 2.
|
|
For an 10 element array of floats, it is 50 (on the C64, where a float is 5 bytes).
|
|
Note: usually you will be interested in the number of elements in an array, use len() for that.
|
|
|
|
memory (name, size, alignment)
|
|
Returns the address of the first location of a statically "reserved" block of memory of the given size in bytes,
|
|
with the given name. The block is uninitialized memory, it is *not* set to zero!
|
|
If you specify an alignment value >1, it means the block of memory will
|
|
be aligned to such a dividable address in memory, for instance an alignment of $100 means the
|
|
memory block is aligned on a page boundary, and $2 means word aligned (even addresses).
|
|
Requesting the address of such a named memory block again later with
|
|
the same name, will result in the same address as before.
|
|
When reusing blocks in that way, it is required that the size argument is the same,
|
|
otherwise you'll get a compilation error.
|
|
This routine can be used to "reserve" parts of the memory where a normal byte array variable would
|
|
not suffice; for instance if you need more than 256 consecutive bytes.
|
|
The return value is just a simple uword address so it cannot be used as an array in your program.
|
|
You can only treat it as a pointer or use it in inline assembly.
|
|
|
|
call (address) -> uword
|
|
Calls a subroutine given by its memory address. You cannot pass arguments directly,
|
|
although it is ofcourse possible to do this via the global ``cx16.r0...`` registers for example.
|
|
It is *not* possible to use cpu registers to pass arguments, because these are clobbered while performing the call!
|
|
It is assumed the subroutine returns a word value (in AY), if it does not, just add void to the call to ignore the result value.
|
|
This function effectively creates an "indirect JSR" if you use it on a ``uword`` pointer variable.
|
|
But because it doesn't handle bank switching etcetera by itself,
|
|
it is a lot faster than ``callfar``. And it works on other systems than just the Commander X16.
|
|
|
|
callfar (bank, address, argumentword) -> uword
|
|
Calls an assembly routine in another bank.
|
|
Be aware that ram OR rom bank may be changed depending on the address it jumps to!
|
|
The argumentword will be loaded into the A+Y registers before calling the routine.
|
|
The uword value that the routine returns in the A+Y registers, will be returned.
|
|
NOTE: this routine is very inefficient, so don't use it to call often. Set the bank yourself
|
|
or even write a custom tailored trampoline routine if you need to. Or use ``call`` if you can.
|
|
|
|
callfar2 (bank, address, argA, argX, argY, argCarry) -> uword
|
|
Identical to ``callfar``, except here you can give arguments not only for AY,
|
|
but for each of the A, X and Y registers (each an ubyte) and the Carry status bit as well (a boolean).
|
|
|
|
syscall (callnr), syscall1 (callnr, arg), syscall2 (callnr, arg1, arg2), syscall3 (callnr, arg1, arg2, arg3)
|
|
Functions for doing a system call on targets that support this. Currently no actual target
|
|
uses this though except, possibly, the experimental code generation target!
|
|
The regular 6502 based compiler targets just use a subroutine call to asmsub Kernal routines at
|
|
specific memory locations. So these builtin function calls are not useful yet except for
|
|
experimentation in new code generation targets.
|
|
|
|
rsave
|
|
Saves all registers including status (or only X) on the stack
|
|
Note: the 16 bit 'virtual' registers of the Commander X16 are *not* saved,
|
|
but you can use ``cx16.save_virtual_registers()`` for that.
|
|
|
|
rrestore
|
|
Restore all registers including status (or only X) back from the cpu hardware stack
|
|
Note: the 16 bit 'virtual' registers of the Commander X16 are *not* restored,
|
|
but you can use ``cx16.restore_virtual_registers()`` for that.
|
|
|
|
|
|
Low-fi variable and subroutine definitions in all available library modules
|
|
---------------------------------------------------------------------------
|
|
|
|
These are auto generated and contain no documentation, but provide a view into what's available.
|
|
Grouped per compilation target.
|
|
|
|
* `atari <_static/symboldumps/skeletons-atari.txt>`_
|
|
* `c64 <_static/symboldumps/skeletons-c64.txt>`_
|
|
* `c128 <_static/symboldumps/skeletons-c128.txt>`_
|
|
* `cx16 <_static/symboldumps/skeletons-cx16.txt>`_
|
|
* `pet32 <_static/symboldumps/skeletons-pet32.txt>`_
|
|
* `neo <_static/symboldumps/skeletons-neo.txt>`_
|
|
* `virtual <_static/symboldumps/skeletons-virtual.txt>`_
|
|
|
|
|
|
syslib
|
|
------
|
|
The "system library" for your target machine. It contains many system-specific definitions such
|
|
as ROM/Kernal subroutine definitions, memory location constants, and utility subroutines.
|
|
|
|
|
|
Many of these definitions overlap for the C64 and Commander X16 targets so it is still possible
|
|
to write programs that work on both targets without modifications.
|
|
|
|
This module is usually imported automatically and can provide definitions in the ``sys``, ``cbm``, ``c64``, ``cx16``, ``c128``, ``atari`` blocks
|
|
depending on the chosen compilation target. Read the `sys lib source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib>`_ for the correct compilation target to see exactly what is there.
|
|
|
|
|
|
sys (part of syslib)
|
|
--------------------
|
|
``target``
|
|
A constant ubyte value designating the target machine that the program is compiled for.
|
|
Notice that this is a compile-time constant value and is not determined on the
|
|
system when the program is running.
|
|
The following return values are currently defined:
|
|
|
|
- 8 = Atari 8 bits
|
|
- 16 = Commander X16
|
|
- 64 = Commodore 64
|
|
- 128 = Commodore 128
|
|
- 255 = Virtual machine
|
|
|
|
|
|
``exit (returncode)``
|
|
Immediately stops the program and exits it, with the returncode in the A register.
|
|
Note: custom interrupt handlers remain active unless manually cleared first!
|
|
|
|
``exit2 (resultA, resultX, resultY)``
|
|
Immediately stops the program and exits it, with the result values in the A, X and Y registers.
|
|
Note: custom interrupt handlers remain active unless manually cleared first!
|
|
|
|
``exit3 (resultA, resultX, resultY, carry)``
|
|
Immediately stops the program and exits it, with the result values in the A, X and Y registers, and the carry flag in the status register.
|
|
Note: custom interrupt handlers remain active unless manually cleared first!
|
|
|
|
``memcopy (from, to, numbytes)``
|
|
Efficiently copy a number of bytes from a memory location to another.
|
|
*Warning:* can only copy *non-overlapping* memory areas correctly!
|
|
Because this function imposes some overhead to handle the parameters,
|
|
it is only faster if the number of bytes is larger than a certain threshold.
|
|
Compare the generated code to see if it was beneficial or not.
|
|
The most efficient will often be to write a specialized copy routine in assembly yourself!
|
|
|
|
``memset (address, numbytes, bytevalue)``
|
|
Efficiently set a part of memory to the given (u)byte value.
|
|
But the most efficient will always be to write a specialized fill routine in assembly yourself!
|
|
Note that for clearing the screen, very fast specialized subroutines are
|
|
available in the ``textio`` and ``graphics`` library modules.
|
|
|
|
``memsetw (address, numwords, wordvalue)``
|
|
Efficiently set a part of memory to the given (u)word value.
|
|
But the most efficient will always be to write a specialized fill routine in assembly yourself!
|
|
|
|
``memcmp (address1, address2, size)``
|
|
Compares two blocks of memory of up to 65535 bytes in size.
|
|
Returns -1 (255), 0 or 1, meaning: block 1 sorts before, equal or after block 2.
|
|
|
|
``read_flags () -> ubyte``
|
|
Returns the current value of the CPU status register.
|
|
|
|
``set_carry ()``
|
|
Sets the CPU status register Carry flag.
|
|
|
|
``clear_carry ()``
|
|
Clears the CPU status register Carry flag.
|
|
|
|
``set_irqd ()``
|
|
Sets the CPU status register Interrupt Disable flag.
|
|
|
|
``clear_irqd ()``
|
|
Clears the CPU status register Interrupt Disable flag.
|
|
|
|
``irqsafe_set_irqd ()``
|
|
Sets the CPU status register Interrupt Disable flag, in a way that is safe to be used inside a IRQ handler.
|
|
Pair with ``irqsafe_clear_irqd()``.
|
|
|
|
``irqsafe_clear_irqd ()``
|
|
Clears the CPU status register Interrupt Disable flag, in a way that is safe to be used inside a IRQ handler.
|
|
Pair with ``irqsafe_set_irqd()``. Inside an IRQ handler this makes sure it doesn't inadvertently
|
|
clear the irqd status bit, and it can still be used inside normal code as well (where it *does* clear
|
|
the irqd status bit if it was cleared before entering).
|
|
|
|
``progend ()``
|
|
Returns the last address of the program in memory + 1. This means: the memory address directly after all the program code and variables,
|
|
including the uninitialized ones ("BSS" variables) and the uninitialized memory blocks reserved by the `memory()` function.
|
|
Can be used to load dynamic data after the program, instead of hardcoding something.
|
|
|
|
``wait (uword jiffies)``
|
|
wait approximately the given number of jiffies (1/60th seconds)
|
|
Note: the regular system irq handler has run for this to work as it depends on the system jiffy clock.
|
|
If this is is not possible (for instance because your program is running its own irq handler logic *and* no longer calls
|
|
the kernal's handler routine), you'll have to write your own wait routine instead.
|
|
|
|
``waitvsync ()``
|
|
busy wait till the next vsync has occurred (approximately), without depending on custom irq handling.
|
|
can be used to avoid screen flicker/tearing when updating screen contents.
|
|
note: a more accurate way to wait for vsync is to set up a vsync irq handler instead.
|
|
note for cx16: the regular system irq handler has to run for this to work (this is not required on C64 and C128)
|
|
|
|
``waitrastborder ()`` (c64/c128 targets only)
|
|
busy wait till the raster position has reached the bottom screen border (approximately)
|
|
can be used to avoid screen flicker/tearing when updating screen contents.
|
|
note: a more accurate way to do this is by using a raster irq handler instead.
|
|
|
|
``reset_system ()``
|
|
Soft-reset the system back to initial power-on BASIC prompt.
|
|
(called automatically by Prog8 when the main subroutine returns and the program is not using basicsafe zeropage option)
|
|
|
|
``disable_caseswitch()`` and ``enable_caseswitch()``
|
|
Disable or enable the ability to switch character set case using a keyboard combination.
|
|
|
|
``save_prog8_internals()`` and ``restore_prog8_internals()``
|
|
Normally not used in user code, the compiler utilizes these for the internal interrupt logic.
|
|
It stores and restores the values of the internal prog8 variables.
|
|
This allows other code to run that might clobber these values temporarily.
|
|
|
|
``push (value)``
|
|
pushes a byte value on the CPU hardware stack. Low-level function that should normally not be used.
|
|
|
|
``pushw (value)``
|
|
pushes a 16-bit word value on the CPU hardware stack. Low-level function that should normally not be used.
|
|
|
|
``pop ()``
|
|
pops a byte value off the CPU hardware stack and returns it.
|
|
Low-level function that should normally not be used.
|
|
|
|
``popw ()``
|
|
pops a 16-bit word value off the CPU hardware stack and returns it.
|
|
Low-level function that should normally not be used.
|
|
|
|
|
|
anyall
|
|
------
|
|
Routines to check if any or all values in an array or memory buffer are not zero.
|
|
|
|
``any (arrayptr, num_elements)``
|
|
true if any of the byte values in the array is not zero, else false.
|
|
|
|
``all (arrayptr, num_elements)``
|
|
true if all of the byte values in the array are not zero, else false.
|
|
|
|
``anyw (arrayptr, num_elements)``
|
|
true if any of the word values in the array is not zero, else false.
|
|
Doesn't work on split arrays.
|
|
|
|
``allw (arrayptr, num_elements)``
|
|
true if all of the word values in the array are not zero, else false.
|
|
Doesn't work on split arrays.
|
|
|
|
|
|
conv
|
|
----
|
|
Routines to convert strings to numbers or vice versa.
|
|
|
|
- numbers to strings, in various formats (binary, hex, decimal)
|
|
- strings in decimal, hex and binary format into numbers (bytes, words)
|
|
|
|
Read the `conv source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/conv.p8>`_
|
|
to see what's in there.
|
|
|
|
|
|
textio (txt.*)
|
|
--------------
|
|
This will probably be the most used library module. It contains a whole lot of routines
|
|
dealing with text-based input and output (to the screen). Such as
|
|
|
|
- printing strings, numbers and booleans
|
|
- reading text input from the user via the keyboard
|
|
- filling or clearing the screen and colors
|
|
- scrolling the text on the screen
|
|
- placing individual characters on the screen
|
|
- convert petscii to screencode characters
|
|
|
|
All routines work with Screencode character encoding, except `print`, `chrout` and `input_chars`,
|
|
these work with PETSCII encoding instead.
|
|
|
|
Read the `textio source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/textio.p8>`_
|
|
to see what's in there. (Note: slight variations for different compiler targets)
|
|
|
|
|
|
diskio
|
|
------
|
|
Provides several routines that deal with disk drive I/O, such as:
|
|
|
|
- list files on disk, optionally filtering by a simple pattern with ? and *
|
|
- show disk directory as-is
|
|
- display disk drive status
|
|
- load and save data from and to the disk
|
|
- delete and rename files on the disk
|
|
- send arbitrary CbmDos command to disk drive
|
|
|
|
Commander X16 additions:
|
|
Headerless load and save routines are available (load_raw, save_raw).
|
|
On the Commander X16 it tries to use that machine's fast Kernal loading routines if possible.
|
|
Routines to directly load data into video ram are also present (vload and vload_raw).
|
|
Also contains a helper function to calculate the file size of a loaded file (although that is truncated
|
|
to 16 bits, 64Kb)
|
|
Als contains routines for operating on subdirectories (chdir, mkdir, rmdir), to relabel the disk,
|
|
and to seek in open files.
|
|
|
|
Read the `diskio source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/diskio.p8>`_
|
|
to see what's in there. (Note: slight variations for different compiler targets)
|
|
|
|
.. note::
|
|
For simplicity sake, this library is designed to work on a *single* open file
|
|
for reading, and a *single* open file for writing at any time only.
|
|
If you need to load or save to more than one file at a time, you'll have
|
|
to write your own I/O routines (or supplement the ones found here)
|
|
|
|
.. note::
|
|
If you are using the X16 emulator with HostFS, and are experiencing weird behavior with these
|
|
routines, please first try again with an SD-card image instead of HostFs.
|
|
It is possible that there are still small differences between HostFS and actual CBM DOS in the X16 emulator.
|
|
|
|
.. note::
|
|
You can set the active disk drive number so it supports multiple drives,
|
|
but it does not support multiple open files at the same time.
|
|
|
|
.. attention::
|
|
Error handling is peculiar on CBM dos systems (C64, C128, cx16, PET). Read the
|
|
descriptions for the various methods in this library for details and tips.
|
|
|
|
|
|
string
|
|
------
|
|
Provides string manipulation routines.
|
|
|
|
``length (str) -> ubyte length``
|
|
Number of bytes in the string. This value is determined during runtime and counts upto
|
|
the first terminating 0 byte in the string, regardless of the size of the string during compilation time.
|
|
Don't confuse this with ``len`` and ``sizeof``!
|
|
|
|
``left (source, length, target)``
|
|
Copies the left side of the source string of the given length to target string.
|
|
It is assumed the target string buffer is large enough to contain the result.
|
|
Also, you have to make sure yourself that length is smaller or equal to the length of the source string.
|
|
Modifies in-place, doesn't return a value (so can't be used in an expression).
|
|
|
|
``right (source, length, target)``
|
|
Copies the right side of the source string of the given length to target string.
|
|
It is assumed the target string buffer is large enough to contain the result.
|
|
Also, you have to make sure yourself that length is smaller or equal to the length of the source string.
|
|
Modifies in-place, doesn't return a value (so can't be used in an expression).
|
|
|
|
``slice (source, start, length, target)``
|
|
Copies a segment from the source string, starting at the given index,
|
|
and of the given length to target string.
|
|
It is assumed the target string buffer is large enough to contain the result.
|
|
Also, you have to make sure yourself that start and length are within bounds of the strings.
|
|
Modifies in-place, doesn't return a value (so can't be used in an expression).
|
|
|
|
``find (string, char) -> ubyte index, bool found``
|
|
Locates the first index of the given character in the string, and a boolean (in Carry flag)
|
|
to say if it was found at all. If the character is not found, index 255 (and false) is returned.
|
|
You can consider this a safer way of checking if a character occurs
|
|
in a string than using an `in` containment check - because this find routine
|
|
properly stops at the first 0-byte string terminator it encounters in case the string was modified.
|
|
|
|
``rfind (string, char) -> ubyte index, bool found``
|
|
Like ``find``, but now looking from the *right* of the string instead.
|
|
|
|
``contains (string, char) -> bool``
|
|
Just returns true if the character is in the given string, or false if it's not.
|
|
For string literals, you can use a containment check expression instead: ``char in "hello world"``.
|
|
|
|
``compare (string1, string2) -> ubyte result``
|
|
Returns -1, 0 or 1 depending on whether string1 sorts before, equal or after string2.
|
|
Note that you can also directly compare strings and string values with each other
|
|
using ``==``, ``<`` etcetera (it will use string.compare for you under water automatically).
|
|
This even works when dealing with uword (pointer) variables when comparing them to a string type.
|
|
|
|
``copy (from, to) -> ubyte length``
|
|
Copy a string to another, overwriting that one. Returns the length of the string that was copied.
|
|
Often you don't have to call this explicitly and can just write ``string1 = string2``
|
|
but this function is useful if you're dealing with addresses for instance.
|
|
|
|
``append (string, suffix) -> ubyte length``
|
|
Appends the suffix string to the other string (make sure the memory buffer is large enough!)
|
|
Returns the length of the combined string.
|
|
|
|
``lower (string)``
|
|
Lowercases the PETSCII-string in place.
|
|
|
|
``upper (string)``
|
|
Uppercases the PETSCII-string in place.
|
|
|
|
``lowerchar (char)``
|
|
Returns lowercased PETSCII character.
|
|
|
|
``upperchar (char)``
|
|
Returns uppercased PETSCII character.
|
|
|
|
``strip (string)``
|
|
Gets rid of whitespace and other non-visible characters at the edges of the string. (destructive)
|
|
|
|
``rstrip (string)``
|
|
Gets rid of whitespace and other non-visible characters at the end of the string. (destructive)
|
|
|
|
``lstrip (string)``
|
|
Gets rid of whitespace and other non-visible characters at the start of the string. (destructive)
|
|
|
|
``lstripped (string) -> str``
|
|
Returns pointer to first non-whitespace and non-visible character at the start of the string (non-destructive lstrip)
|
|
|
|
``trim (string)``
|
|
Gets rid of whitespace characters at the edges of the string. (destructive)
|
|
|
|
``rtrim (string)``
|
|
Gets rid of whitespace characters at the end of the string. (destructive)
|
|
|
|
``ltrim (string)``
|
|
Gets rid of whitespace characters at the start of the string. (destructive)
|
|
|
|
``ltrimmed (string) -> str``
|
|
Returns pointer to first non-whitespace character at the start of the string (non-destructive ltrim)
|
|
|
|
``isdigit (char)``
|
|
Returns boolean if the character is a numerical digit 0-9
|
|
|
|
``islower (char)``, ``isupper (char)``, ``isletter (char)``
|
|
Returns true if the character is a shifted-PETSCII lowercase letter, uppercase letter, or any letter, respectively.
|
|
|
|
``isspace (char)``
|
|
Returns true if the PETSCII character is a whitespace (tab, space, return, and shifted versions)
|
|
|
|
``isprint (char)``
|
|
Returns true if the PETSCII character is a "printable" character (space or any visible symbol)
|
|
|
|
``startswith (string, prefix) -> bool``
|
|
Returns true if string starts with prefix, otherwise false
|
|
|
|
``endswith (string, suffix) -> bool``
|
|
Returns true if string ends with suffix, otherwise false
|
|
|
|
``pattern_match (string, pattern) -> bool`` (not on Virtual target)
|
|
Returns true if the string matches the pattern, false if not.
|
|
'?' in the pattern matches any one character. '*' in the pattern matches any substring.
|
|
|
|
``hash (string) -> ubyte``
|
|
Returns a simple 8 bit hash value for the given string.
|
|
The formula is: hash(-1)=179; clear carry; hash(i) = ROL hash(i-1) XOR string[i]
|
|
(where ROL is the cpu ROL instruction)
|
|
On the English word list in /usr/share/dict/words it seems to have a pretty even distribution.
|
|
|
|
|
|
floats
|
|
------
|
|
|
|
.. note::
|
|
Floating point support is only available on c64, cx16 and virtual targets for now.
|
|
|
|
Provides definitions for the ROM/Kernal subroutines and utility routines dealing with floating point variables.
|
|
|
|
``π`` and ``PI``
|
|
float const for the number Pi, 3.141592653589793...
|
|
|
|
``TWOPI``
|
|
float const for the number 2 times Pi
|
|
|
|
``atan (x)``
|
|
Arctangent.
|
|
|
|
``atan2 (y, x)``
|
|
Two-argument arctangent that returns an angle in the correct quadrant
|
|
for the signs of x and y, normalized to the range [0, 2π]
|
|
|
|
``ceil (x)``
|
|
Rounds the floating point up to an integer towards positive infinity.
|
|
|
|
``cos (x)``
|
|
Cosine.
|
|
|
|
``cot (x)``
|
|
Cotangent: 1/tan(x)
|
|
|
|
``csc (x)``
|
|
Cosecant: 1/sin(x)
|
|
|
|
``deg (x)``
|
|
Radians to degrees.
|
|
|
|
``floor (x)``
|
|
Rounds the floating point down to an integer towards minus infinity.
|
|
|
|
``ln (x)``
|
|
Natural logarithm (base e).
|
|
|
|
``log2 (x)``
|
|
Base 2 logarithm.
|
|
|
|
``minf (x, y)``
|
|
returns the smallest of x and y.
|
|
|
|
``maxf (x, y)``
|
|
returns the largest of x and y.
|
|
|
|
``clampf (value, minimum, maximum)``
|
|
returns the value restricted to the given minimum and maximum.
|
|
|
|
``print (x)``
|
|
Prints the floating point number x as a string.
|
|
There's no leading whitespace (unlike cbm BASIC when printing a floating point number)
|
|
|
|
``tostr (x)``
|
|
Converts the floating point number x to a string (returns address of the string buffer)
|
|
There's no leading whitespace.
|
|
|
|
``rad (x)``
|
|
Degrees to radians.
|
|
|
|
``round (x)``
|
|
Rounds the floating point to the closest integer.
|
|
|
|
``sin (x)``
|
|
Sine.
|
|
|
|
``secant (x)``
|
|
Secant: 1/cos(x)
|
|
|
|
``tan (x)``
|
|
Tangent.
|
|
|
|
``rnd ()``
|
|
returns the next random float between 0.0 and 1.0 from the Pseudo RNG sequence.
|
|
|
|
``rndseed (seed)``
|
|
Sets a new seed for the float pseudo-RNG sequence. Use a negative non-zero number as seed value.
|
|
|
|
``parse (stringvalue)``
|
|
Parses the string value as floating point number.
|
|
Warning: this routine may stop working on the Commander X16 when a new ROM version is released,
|
|
because it uses an internal BASIC routine. Then it will require a fix.
|
|
|
|
|
|
graphics
|
|
--------
|
|
Bitmap graphics routines:
|
|
|
|
- clearing the screen
|
|
- drawing individual pixels
|
|
- drawing lines, rectangles, filled rectangles, circles, discs
|
|
|
|
This library is available both on the C64 and the cx16.
|
|
It uses the ROM based graphics routines on the latter, and it is a very small library because of that.
|
|
On the cx16 there's also various other graphics modules if you want more features and different screen modes. See below for those.
|
|
|
|
Read the `graphics source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/c64/graphics.p8>`_
|
|
to see what's in there. (Note: slight variations for different compiler targets)
|
|
|
|
|
|
math
|
|
----
|
|
Low-level integer math routines (which you usually don't have to bother with directly, but they are used by the compiler internally).
|
|
Pseudo-Random number generators (byte and word).
|
|
Various 8-bit integer trig functions that use lookup tables to quickly calculate sine and cosines.
|
|
Usually a custom lookup table is the way to go if your application needs these,
|
|
but perhaps the provided ones can be of service too.
|
|
|
|
``log2 (ubyte v)``
|
|
Returns the 2-Log of the byte value v.
|
|
|
|
``log2w (uword v)``
|
|
Returns the 2-Log of the word value v.
|
|
|
|
``rnd ()``
|
|
Returns next random byte 0-255 from the pseudo-RNG sequence.
|
|
|
|
``rndw ()``
|
|
Returns next random word 0-65535 from the pseudo-RNG sequence.
|
|
|
|
``randrange (ubyte n) -> ubyte``
|
|
Returns random byte uniformly distributed from 0 to n-1 (compensates for divisibility bias)
|
|
|
|
``randrangew (uword n) -> uword``
|
|
Returns random word uniformly distributed from 0 to n-1 (compensates for divisibility bias)
|
|
|
|
``rndseed (uword seed1, uword seed2)``
|
|
Sets a new seed for the pseudo-RNG sequence (both rnd and rndw). The seed consists of two words.
|
|
Do not use zeros for the seed!
|
|
|
|
.. hint::
|
|
This is a graph showing the various ranges of values mentioned in the integer sine and cosine
|
|
routines that follow below. (Note that the x input value never corresponds to an exact *degree*
|
|
around the circle 0..359 as that exceeds a byte value. There's double-degrees though; 0...179)
|
|
Only the sine function is shown, but the cosine function follows the same pattern.
|
|
|
|
.. image:: sinegraph.svg
|
|
|
|
``sin8u (x)``
|
|
Fast 8-bit ubyte sine.
|
|
x = angle 0...2π scaled as 0...255. Result is unsigned, scaled as 0...255
|
|
|
|
``sin8 (x)``
|
|
Fast 8-bit byte sine.
|
|
x = angle 0...2π scaled as 0...255. Result is signed, scaled as -127...127
|
|
|
|
``sinr8u (x)``
|
|
Fast 8-bit ubyte sine.
|
|
x = angle 0...2π scaled as 0...179 (so each value increment is a 2° step). Result is unsigned, scaled as 0...255.
|
|
Input values 180...255 lie outside of the valid input interval and will yield a garbage result!
|
|
|
|
``sinr8 (x)``
|
|
Fast 8-bit byte sine.
|
|
x = angle 0...2π scaled as 0...179 (so each value increment is a 2° step). Result is signed, scaled as -127...127.
|
|
Input values 180...255 lie outside of the valid input interval and will yield a garbage result!
|
|
|
|
``cos8u (x)``
|
|
Fast 8-bit ubyte cosine.
|
|
x = angle 0...2π scaled as 0...255. Result is unsigned, scaled as 0...255
|
|
|
|
``cos8 (x)``
|
|
Fast 8-bit byte cosine.
|
|
x = angle 0...2π scaled as 0...255. Result is signed, scaled as -127...127
|
|
|
|
``cosr8u (x)``
|
|
Fast 8-bit ubyte cosine.
|
|
x = angle 0...2π scaled as 0...179 (so each value increment is a 2° step). Result is unsigned, scaled as 0...255.
|
|
Input values 180...255 lie outside of the valid input interval and will yield a garbage result!
|
|
|
|
``cosr8 (x)``
|
|
Fast 8-bit byte cosine.
|
|
x = of angle 0...2π scaled as 0...179 (so each value increment is a 2° step). Result is signed, scaled as -127...127.
|
|
Input values 180...255 lie outside of the valid input interval and will yield a garbage result!
|
|
|
|
``atan2 (ubyte x1, ubyte y1, ubyte x2, ubyte y2)``
|
|
Fast arctan routine that uses more memory because of large lookup tables.
|
|
Calculate the angle, in a 256-degree circle, between two points in the positive quadrant.
|
|
|
|
``direction (ubyte x1, ubyte y1, ubyte x2, ubyte y2)``
|
|
From a pair of positive coordinates, calculate discrete direction between 0 and 23.
|
|
This is a heavily optimized routine (small and fast).
|
|
|
|
``direction_sc (byte x1, byte y1, byte x2, byte y2)``
|
|
From a pair of signed coordinates around the origin, calculate discrete direction between 0 and 23.
|
|
This is a heavily optimized routine (small and fast).
|
|
|
|
``direction_qd (ubyte quadrant, ubyte xdelta, ubyte ydelta)``
|
|
If you already know the quadrant and x/y deltas, calculate discrete direction between 0 and 23.
|
|
This is a heavily optimized routine (small and fast).
|
|
|
|
``diff (ubyte b1, ubyte b2) -> ubyte``
|
|
Returns the absolute difference, or distance, between the two byte values.
|
|
(This routine is more efficient than doing a compare and a subtract separately, or using abs)
|
|
|
|
``diffw (uword w1, uword w2) -> uword``
|
|
Returns the absolute difference, or distance, between the two word values.
|
|
(This routine is more efficient than doing a compare and a subtract separately, or using abs)
|
|
|
|
``mul16_last_upper () -> uword``
|
|
Fetches the upper 16 bits of the previous 16*16 bit multiplication.
|
|
To avoid corrupting the result, it is best performed immediately after the multiplication.
|
|
Note: It is only for the regular 6502 cpu multiplication routine.
|
|
It does not work for the verafx multiplication routines on the Commander X16!
|
|
These have a different way to obtain the upper 16 bits of the result: just read cx16.r0.
|
|
|
|
**NOTE:** the result is only valid if the multiplication was done with uword arguments (or two positive word arguments).
|
|
As soon as a single negative word value (or both) was used in the multiplication, these upper 16 bits are not valid!
|
|
Suggestion (if you are on the Commander X16): use ``verafx.muls()`` to get a hardware accelerated 32 bit signed multiplication.
|
|
|
|
``crc16 (uword data, uword length) -> uword``
|
|
Returns a CRC-16 (XMODEM) checksum over the given data buffer.
|
|
Note: on the Commander X16, there is a CRC-16 routine in the kernal: cx16.memory_crc().
|
|
That one is faster, but yields different results. It is unclear to me what flavour of crc it is calculating.
|
|
|
|
``crc16_start() / crc16_update(ubyte value) / crc16_end() -> uword``
|
|
"streaming" crc16 calculation routines, when the data doesn't fit in a single buffer.
|
|
Tracks the crc16 checksum in cx16.r15! If your code uses that, it must save/restore it before calling this routine!
|
|
Call the start() routine first, feed it bytes with the update() routine, finalize with calling the end() routine which returns the crc16 value.
|
|
|
|
``crc32 (uword data, uword length)``
|
|
Calculates a CRC-32 (POSIX) checksum over the given data buffer.
|
|
The 32 bits result is stored in cx16.r14 (low word) and cx16.r15 (high word).
|
|
|
|
``crc32_start() / crc32_update(ubyte value) / crc32_end()``
|
|
"streaming" crc32 calculation routines, when the data doesn't fit in a single buffer.
|
|
Tracks the crc32 checksum in cx16.r14 and cx16.r15! If your code uses these, it must save/restore them before calling this routine!
|
|
Call the start() routine first, feed it bytes with the update() routine, finalize with calling the end() routine.
|
|
The 32 bits result is stored in cx16.r14 (low word) and cx16.r15 (high word).
|
|
|
|
cx16logo
|
|
--------
|
|
Just a fun module that contains the Commander X16 logo in PETSCII graphics
|
|
and allows you to print it anywhere on the screen.
|
|
|
|
``logo ()``
|
|
prints the logo at the current cursor position
|
|
``logo_at (column, row)``
|
|
printss the logo at the given position
|
|
|
|
|
|
prog8_lib
|
|
---------
|
|
Low-level language support. You should not normally have to bother with this directly.
|
|
The compiler needs it for various built-in system routines.
|
|
|
|
|
|
cx16
|
|
----
|
|
This is available on *all targets*, it is always imported as part of syslib.
|
|
On the Commander X16 this module contains a *whole bunch* of things specific to that machine.
|
|
It's way too much to include here, you have to study the
|
|
`syslib source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/syslib.p8>`_
|
|
to see what is there.
|
|
|
|
On the other targets, it only contains the definition of the 16 memory mapped virtual registers
|
|
(cx16.r0 - cx16.r15) and the following utility routines:
|
|
|
|
``save_virtual_registers()``
|
|
save the values of all 16 virtual registers r0 - r15 in a buffer. Might be useful in an IRQ handler to avoid clobbering them.
|
|
|
|
``restore_virtual_registers()``
|
|
restore the values of all 16 virtual registers r0 - r15 from the buffer. Might be useful in an IRQ handler to avoid clobbering them.
|
|
|
|
``cpu_is_65816()``
|
|
Returns true if the CPU in the computer is a 65816, false otherwise (6502 cpu).
|
|
Note that Prog8 itself has no support yet for this CPU other than detecting its presence.
|
|
|
|
``reset_system ()``
|
|
Soft-reset the system back to initial power-on BASIC prompt. (same as the routine in sys)
|
|
|
|
``poweroff_system ()``
|
|
Powers down the computer.
|
|
|
|
``set_led_brightness (ubyte brightness)``
|
|
Sets the brightness of the activity led on the computer.
|
|
|
|
|
|
bmx (cx16 only)
|
|
----------------
|
|
Routines to load and save "BMX" files, the CommanderX16 bitmap file format.
|
|
Specification available here: https://cx16forum.com/forum/viewtopic.php?t=6945
|
|
Only *uncompressed* bitmaps are supported in this library for now.
|
|
|
|
The routines are designed to be fast and bulk load/save the data directly into or from vram,
|
|
without the need to buffer something in main memory.
|
|
|
|
For details about what routines are available, have a look at
|
|
the `bmx source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/bmx.p8>`_ .
|
|
There's also the "showbmx" example to look at.
|
|
|
|
|
|
emudbg (cx16 only)
|
|
-------------------
|
|
X16Emu Emulator debug routines, for Cx16 only.
|
|
Allows you to interface with the emulator's debug routines/registers.
|
|
There's stuff like ``is_emulator`` to detect if running in the emulator,
|
|
and ``console_write`` to write a (iso) string to the emulator's console (stdout) etc.
|
|
|
|
Read the `emudbg source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/emudbg.p8>`_
|
|
to see what's in there.
|
|
Information about the exposed debug registers is in the `emulator's documentation <https://github.com/X16Community/x16-emulator#debug-io-registers>`_.
|
|
|
|
|
|
monogfx (cx16 and virtual)
|
|
---------------------------
|
|
Full-screen lores or hires monochrome bitmap graphics routines, available on the Cx16 machine only.
|
|
|
|
- two resolutions: lores 320*240 or hires 640*480 bitmap mode
|
|
- optimized routines for monochrome (2-color) graphics
|
|
- clearing screen, switching screen mode, also back to text mode
|
|
- drawing and reading individual pixels
|
|
- drawing lines, rectangles, filled rectangles, circles, discs
|
|
- flood fill
|
|
- drawing text inside the bitmap
|
|
- can draw using a stipple pattern (alternate black/white pixels) and in invert mode (toggle pixels)
|
|
|
|
Read the `monogfx source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/monogfx.p8>`_
|
|
to see what's in there.
|
|
|
|
|
|
gfx_lores and gfx_hires (cx16 only)
|
|
-----------------------------------
|
|
Full-screen multicolor bitmap graphics routines, available on the Cx16 machine only.
|
|
|
|
- gfx_lores: optimized routines for 320x240 256 color bitmap graphics mode. Compatible with X16 screen mode 128.
|
|
- gfx_hires4: optimized routines for 640x480 4 color bitmap graphics mode
|
|
- bitmap mode
|
|
- enable bitmap graphics mode, also back to text mode
|
|
- drawing and reading individual pixels
|
|
- drawing lines, rectangles, filled rectangles, circles, discs
|
|
- flood fill
|
|
- drawing text inside the bitmap
|
|
|
|
Read the `gfx_lores source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/gfx_lores.p8>`_
|
|
or `gfx_hires4 source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/gfx_hires4.p8>`_
|
|
to see what's in there.
|
|
|
|
They share the same routines.
|
|
|
|
|
|
palette (cx16 only)
|
|
--------------------
|
|
Available for the Cx16 target. Various routines to set the display color palette.
|
|
There are also a few better looking Commodore 64 color palettes available here,
|
|
because the Commander X16's default colors for this (the first 16 colors) are too saturated
|
|
and are quite different than how they looked on a VIC-II chip in a C64.
|
|
|
|
Read the `palette source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/palette.p8>`_
|
|
to see what's in there.
|
|
|
|
|
|
psg (cx16 only)
|
|
----------------
|
|
Available for the Cx16 target.
|
|
Contains a simple abstraction for the Vera's PSG (programmable sound generator) to play simple waveforms.
|
|
It includes an interrupt routine to handle simple Attack/Release envelopes as well.
|
|
See the examples/cx16/bdmusic.p8 program for ideas how to use it.
|
|
|
|
Read the `psg source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/psg.p8>`_
|
|
to see what's in there.
|
|
|
|
|
|
sprites (cx16 only)
|
|
--------------------
|
|
Available for the Cx16 target. Simple routines to manipulate sprites.
|
|
They're not written for high performance, but for simplicity.
|
|
That's why they control one sprite at a time. The exception is the ``pos_batch`` routine,
|
|
which is quite efficient to update sprite positions of multiple sprites in one go.
|
|
See the examples/cx16/sprites/dragon.p8 and dragons.p8 programs for ideas how to use it.
|
|
|
|
Read the `sprites source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/sprites.p8>`_
|
|
to see what's in there.
|
|
|
|
|
|
verafx (cx16 only)
|
|
-------------------
|
|
Available for the Cx16 target.
|
|
Experimental routines that use the new Vera FX logic (hopefully coming in the Vera in new X16 boards,
|
|
the emulators already support it).
|
|
|
|
``available``
|
|
Returns true if Vera FX is available, false if not (that would be an older Vera chip)
|
|
|
|
``muls``
|
|
The VeraFX signed word 16*16 to 32 multiplier is accessible via the ``muls`` routine.
|
|
It is about 4 to 5 times faster than the default 6502 cpu routine for word multiplication.
|
|
But it depends on some Vera manipulation and 4 bytes in vram just below the PSG registers for storage.
|
|
Note: there is a block level %option "verafxmuls" that automatically replaces all word multiplications in that block
|
|
by calls to verafx, but be careful with it because it may interfere with other Vera operations or IRQs.
|
|
The full 32 bits result value is returned in two result values: lower word, upper word.
|
|
|
|
``mult16``
|
|
VeraFX hardware multiplication of two unsigned words.
|
|
NOTE: it only returns the lower 16 bits of the full 32 bits result, because the upper 16 bits are not valid for unsigned word multiplications here
|
|
(the signed word multiplier ``muls`` does return the full 32 bits result).
|
|
It is about 4 to 5 times faster than the default 6502 cpu routine for word multiplication.
|
|
But it depends on some Vera manipulation and 4 bytes in vram just below the PSG registers for storage.
|
|
Note: there is a block level %option "verafxmuls" that automatically replaces all word multiplications in that block
|
|
by calls to verafx, but be careful with it because it may interfere with other Vera operations or IRQs.
|
|
|
|
``clear``
|
|
Very quickly clear a piece of vram to a given byte value (it writes 4 bytes at a time).
|
|
The routine is around 3 times faster as a regular unrolled loop to clear vram.
|
|
|
|
``copy``
|
|
Very quickly copy a portion of the video memory to somewhere else in vram (4 bytes at a time)
|
|
Sometimes this is also called "blitting".
|
|
This routine is about 50% faster as a regular byte-by-byte copy.
|
|
|
|
``transparency``
|
|
Set transparent write mode for VeraFX cached writes and also for normal writes to DATA0/DATA.
|
|
If enabled, pixels with value 0 do not modify VRAM when written (so they are "transparent")
|
|
|
|
Read the `verafx source code <https://github.com/irmen/prog8/tree/master/compiler/res/prog8lib/cx16/verafx.p8>`_
|
|
to see what's in there.
|
|
|