1
0
mirror of https://gitlab.os-k.eu/os-k-team/kvisc.git synced 2023-08-25 14:05:46 +02:00
kvisc/ka/main.k
2019-06-06 22:07:34 +02:00

91 lines
1.0 KiB
Plaintext

; 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"