kvisc/ka/main.k

; The OS/K Team licenses this file to you under the MIT license.
; See the LICENSE file in the project root for more information.

;
; Main function
;
main:
    enter

    mov ax0, .buf
    mov ax1, -9223372036854775807
    mov ax2, 10
    call itoa

    mov ax0, rax
    call print

    prn 10
    mov ax0, .buf
    mov ax1, 0xfff85ffffffffff4
    mov ax2, 16
    call itoa

    mov ax0, rax
    call print

    mov rsi, 0x10
    mov rdi, 8
    lea rbi, b[rsi + rdi + 1]

    leave
    ret

.buf = [32]

devtest:
    enter

    mov ax0, .buf
    devctl 0, 1

    mov ax0, .buf
    call print

    iocall 0, 0

    leave
    ret

.buf = [32]

strtest:
    enter

    mov ax0, .msg
    call print

    mov ax0, .buf
    mov ax1, .msg
    mov ax2, 5
    call strnzcpy

    prn 10
    mov ax0, .buf
    mov ax1, 10
    call print_n

    mov ax0, .buf
    mov ax1, .msg
    call strcmp

    leave
    ret

.msg = "HelloWorld :)"
.buf = [32]

;
; Exit function
;
exit:
    enter

    mov ax0, .msg
    call print

    leave
    ret

.msg = "Goodbye World :(\n"