.PSECT	MESOUT
	.TITLE	MESOUT - GENERAL TERMINAL OUTPUT
	.IDENT	/781117/
;
;    THIS CODE HAS BEEN DEVELOPED BY THE COMPUTING
;    GROUP OF THE ATMOSPHERIC SCIENCES DIVISION,
;    ALBERTA RESEARCH. THIS WORK FUNDED BY THE
;    ALBERTA WEATHER MODIFICATION BOARD.
;
;    THERE IS EXPLICITLY NO COPYRIGHT ON THIS SOFTWARE,
;    AND ITS DISTRIBUTION IS ENCOURAGED. NO RESPONSIBILITY
;    NOR GUARANTEE IS MADE OR ASSUMED BY THE AUTHOR, OR
;    BY ALBERTA RESEARCH.
;
;    SUGGESTIONS OR CHANGES ARE INVITED, AND WILL BE
;    DISTRIBUTED TO OTHER USERS OF THIS SOFTWARE THROUGH
;    THE DECUS IAS/RSX SPECIAL INTEREST GROUP.
;
;
; VERSION:	781020
; WRITTEN BY:	W. KORENDYK
; DATE WRITTEN:	1-NOV-78
; 
;
; MODIFICATIONS:
;
; CODE		NAME		DATE
;

;+
;
; *** - MESOUT -- GENERALIZED TERMINAL OUTPUT OF A CHARACTER STRING
;
; INPUT:	R1 = POINTER TO THE ASCIZ STRING TO BE OUTPUT
;		R2 = POINTER TO $EDMSG ARGUMENT BLOCK
;
; THIS ROUTINE EFFECTIVELY DOES AN $EDMSG ON THE INPUT STRING, PUTTING
; THE RESULT IN LINBUF, AND OUTPUTS THAT LINE TO THE TERMINAL.
;
;-
	.MCALL	ENTER,LEAVE,TTYOUT
	.MCALL	MAIGBL
	MAIGBL
MESOUT:	ENTER	R0,R1,R2
	MOV	#LINBUF,R0
	CALL	$EDMSG
	TTYOUT	#LINBUF,R1
	LEAVE
	RETURN
	.END