summaryrefslogtreecommitdiff
path: root/packages/libgbafpc/examples/devkitPro/template/template.pp
diff options
context:
space:
mode:
Diffstat (limited to 'packages/libgbafpc/examples/devkitPro/template/template.pp')
-rw-r--r--packages/libgbafpc/examples/devkitPro/template/template.pp45
1 files changed, 0 insertions, 45 deletions
diff --git a/packages/libgbafpc/examples/devkitPro/template/template.pp b/packages/libgbafpc/examples/devkitPro/template/template.pp
deleted file mode 100644
index 5a300dd4d0..0000000000
--- a/packages/libgbafpc/examples/devkitPro/template/template.pp
+++ /dev/null
@@ -1,45 +0,0 @@
-program template;
-
-uses
- ctypes, gba;
-
-
-
-var
- frame: integer = 0;
- zbuffer: array [0..239, 0..159] of u8; cvar; external; //EWRAM_BSS;
-
-
-procedure Vblank();
-begin
- frame := frame + 1;
-end;
-
-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();
- irqSet(IRQ_VBLANK, @Vblank);
- irqEnable(IRQ_VBLANK);
-
- consoleInit(0, 4, 0, nil, 0, 15);
-
- BG_COLORS[0] := RGB8(58,110,165);
- BG_COLORS[241] := RGB5(31,31,31);
-
- SetMode(MODE_0 or BG0_ON);
-
- // ansi escape sequence to set print co-ordinates
- // /x1b[line;columnH
- iprintf(#27'[10;10H' + 'Hello World!'#10);
- iprintf('%x', getmem(200));
- while true do
- begin
- VBlankIntrWait();
- scanKeys();
- end;
-end.
-
-