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
    devctl 0, 1

    mov ax0, .buf
    call print

    leave
    ret

.buf = [32]

test:
    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"