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-05 22:11:45 +02:00

88 lines
972 B
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, 65
mov ax2, 10
call itoa
mov ax0, rax
call print
; prn 10
mov ax0, .buf
mov ax1, 0xffffffffffffffff
mov ax2, 16
call itoa
mov ax0, rax
call print
leave
ret
.buf = [32]
test:
enter
mov ax0, .buf
devctl 0, 1
mov ax0, .buf
call print
iocall 0, 0
leave
ret
.buf = [32]
test1:
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"