1
0
mirror of https://gitlab.os-k.eu/os-k-team/kvisc.git synced 2023-08-25 14:05:46 +02:00
kvisc/dos/prn/print.k
julianb0 ea6ec1f01e
dos
2019-05-30 21:46:00 +02:00

43 lines
511 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:
enter
mov rcx, v_print_max
.1:
test b[ax0], b[ax0]
cjmpz .2
prn b[ax0]
inc ax0
loop .1
.2:
leave
ret
;
; Print exactly ax1 characters
;
print_n:
enter
mov rcx, ax1
.1:
prn b[ax0]
inc ax0
loop .1
leave
ret