.PSECT	RDPMPT
	.TITLE	RDPMPT - READ FROM TERMINAL WIH SPECIFIED PROMPT
	.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:	MARK JOHNSON
; DATE WRITTEN:	30-OCT-78
; 
; RELATED DOCUMENTATION:
;	NONE
;
;
; ROUTINES USED:
;	NONE
;	
;
; MODIFICATIONS:
;
; CODE		NAME		DATE
;

;+
;
; *** - RDPMPT -- READ FROM A TERMINAL WITH SPECIFIED PROMPT
;
; INPUT:
;	R1 - POINTS TO PROMPT STRING
;
; OUTPUTS:
;	REGISTERS ARE NOT CHANGED
;	LINE FROM TERMINAL IS IN LINBUF
;
;-
	.MCALL	QIOW$,DIR$
	.MCALL	ENTER,LEAVE
	.MCALL	SPCIO$
	SPCIO$		;SPECIFIC I/O FUNCTONS
	.MCALL	MAIGBL
	MAIGBL
	.DSABL	GBL
;
; TERMINAL READ OPERATION
RDQIO:	QIOW$	IO.RPR,TTYLUN,TTYEVF,,TTYSB,,<LINBUF,MAXLIN,,,,0>
;
;
RDPMPT:	ENTER	R1
	MOVB	(R1)+,RDQIO+Q.IOPL+10
	MOV	R1,RDQIO+Q.IOPL+6
	DIR$	#RDQIO,DIRERR
	MOV	#LINBUF,R1
	ADD	TTYSB+2,R1
	MOVB	TTYSB+1,(R1)
	LEAVE
	RETURN
;
	.END