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
include! ../../../std/graphics/draw_filled_rect
call start
halt
.start
push $st, #ff0000
push $st, @0
push $st, @0
push $st, @3
push $st, @3
call std.graphics.draw_filled_rect
push $st, #00ff00
push $st, @5
push $st, @0
push $st, @8
push $st, @3
call std.graphics.draw_filled_rect
push $st, #0000ff
push $st, @10
push $st, @0
push $st, @13
push $st, @3
call std.graphics.draw_filled_rect
sig %flush_frame%
pause
jmp start
ret