;-------------------------routine begins--------------------------+
; ROUTINE TO SEND MESSAGE TO STANDARD OUTPUT
;
; FUNCTION: This routine sends a message out through the standard
;           output device
; INPUT:  Upon input DS:SI points to the message.  The message ter-
;         minates with an ASCII zero.
; OUTPUT: The individual characters of the message are output
;         through the standard output device.
; REGISTERS USED:  No registers are modified.  SI is used to
;                  point to the input.
; SEGMENTS REFERENCED: The data segment must contain the message.
; ROUTINES CALLED: stdout
; SPECIAL NOTES: None
;
stdmessout	proc	far
	push	si		; save registers
	push	ax
;
stdmessout1:
	mov	al,[si]		; get byte
	inc	si		; point to next byte
	cmp	al,0		; done ?
	je	stdmessoutexit	; if so, exit.
	call	stdout		; send it out
	jmp	stdmessout1	; loop for more
;
stdmessoutexit:
	pop	ax		; restore registers
	pop	si
	ret
stdmessout	endp
;-------------------------routine ends---------------------------+