kvisc/ka/prn/print.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.

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