mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-16 14:20:38 +01:00
d2dabe9a33
- Removed unused/outdated stuff from libndsfpc + Added new examples for libndsfpc + Added working (I hope so...) makefile.fpc for all libndsfpc/libgbafpc examples git-svn-id: trunk@13217 -
24 lines
432 B
ObjectPascal
24 lines
432 B
ObjectPascal
program template;
|
|
|
|
uses
|
|
ctypes, gba;
|
|
|
|
begin
|
|
|
|
// the vblank interrupt must be enabled for VBlankIntrWait() to work
|
|
// since the default dispatcher handles the bios flags no vblank handler
|
|
// is required
|
|
irqInit();
|
|
irqEnable(IRQ_VBLANK);
|
|
|
|
consoleDemoInit();
|
|
|
|
// ansi escape sequence to set print co-ordinates
|
|
// /x1b[line;columnH
|
|
iprintf(#$1b'[10;10HHello World!'#10);
|
|
|
|
while true do
|
|
VBlankIntrWait();
|
|
|
|
end.
|