diff options
Diffstat (limited to 'packages/libgbafpc/examples/devkitPro/template/template.pp')
| -rw-r--r-- | packages/libgbafpc/examples/devkitPro/template/template.pp | 45 |
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. - - |
