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/prn/print.k
2019-06-06 22:07:34 +02:00

39 lines
471 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.
;
; Max amount of characters that print() will print
;
v_print_max := 0xFF
;
; Print a string
;
print:
mov rcx, v_print_max
.1:
test b[ax0], b[ax0]
jmp.z .2
prn b[ax0]
inc ax0
loop .1
.2:
ret
;
; Print exactly ax1 characters
;
print_n:
mov rcx, ax1
.1:
prn b[ax0]
inc ax0
loop .1
ret