src/sys/np/sample/rev-0.np


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

;;
;; Program entrypoint
;;
proc
main(u8 argc, u8 **argv) -> i8
begin
    u8 *vga = ptr(0x8B000)

    if argc < 2 begin
        return -1
    end

    ;; Draw '*' chars
    for [i=0 : i<8 : i += 2] begin
        vga[i + 0] = '*'    ;; char '*'
        vga[i + 1] = 0x07   ;; red
    end

    return 0
end