mirror of
https://github.com/wfjm/w11.git
synced 2026-02-01 06:33:07 +00:00
22 lines
709 B
Plaintext
22 lines
709 B
Plaintext
; $Id: kprstr.mac 1184 2019-07-10 20:39:44Z mueller $
|
|
; SPDX-License-Identifier: GPL-3.0-or-later
|
|
; Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
|
;
|
|
; synchronous (polling) console print: print 0-terminated string
|
|
; Call:
|
|
; jsr pc, kprstr
|
|
; Arguments:
|
|
; r0: pointer to 0-terminated string
|
|
;
|
|
; r1-r5 registers preserved
|
|
;
|
|
|
|
kprstr: mov r1,-(sp) ; save r1
|
|
mov r0,r1 ; r1 now ptr to string
|
|
1$: movb (r1)+,r0 ; get next char
|
|
beq 2$ ; quit if 0 char
|
|
jsr pc,kprchr ; otherwise print char
|
|
br 1$ ; go for next char
|
|
2$: mov (sp)+,r1 ; restore r1
|
|
rts pc
|