blob: c8cf3d5935e635f78f1e153ba8c3ed5f0e97853d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
program console;
uses
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);
// initialise the console
// setting NULL & 0 for the font address & size uses the default font
// The font should be a complete 1bit 8x8 ASCII font
consoleInit( 0, // charbase
4, // mapbase
0, // background number
nil, // font
0, // font size
15 // 16 color palette
);
// set the screen colors, color 0 is the background color
// the foreground color is index 1 of the selected 16 color palette
BG_COLORS[0] := RGB8(58,110,165);
BG_COLORS[241] := RGB5(31,31,31);
SetMode(MODE_0 or BG0_ON);
// ansi escape sequence to clear screen and home cursor
// /x1b[line;columnH
iprintf(#27'[2J');
// ansi escape sequence to set print co-ordinates
// /x1b[line;columnH
iprintf(#27'[10;10H' + 'Hello World!');
// ansi escape sequence to move cursor up
// /x1b[linesA
iprintf(#27'[10A' + 'Line 0');
// ansi escape sequence to move cursor left
// /x1b[columnsD
iprintf(#27'[28D' + 'Column 0');
// ansi escape sequence to move cursor down
// /x1b[linesB
iprintf(#27'[19B' + 'Line 19');
// ansi escape sequence to move cursor right
// /x1b[columnsC
iprintf(#27'[5C' + 'Column 20');
while true do
VBlankIntrWait();
end.
|
