.TITLE  HG_INPUT HG$GET_INPUT
	.IDENT  \01-001\
	.PSECT  $OWN$,NOEXE,2
U.2:	.BLKB   4
U.3:	.BLKB   4
	.EXTRN  SMG$CREATE_KEY_TABLE, SMG$CREATE_VIRTUAL_KEYBOARD, SMG$READ_COMPOSED_LINE, SMG$_EOF
	.PSECT  $CODE$,NOWRT,2
U.1:
	.ENTRY  HG$GET_INPUT, ^M<R2,R3>
	MOVAB   W^U.2, R3
	TSTL    (R3)
	BNEQ    1$
	PUSHL   R3
	CALLS   #1, G^SMG$CREATE_KEY_TABLE
	BLBC    R0, 6$
	PUSHAB  4(R3)
	CALLS   #1, -
		G^SMG$CREATE_VIRTUAL_KEYBOARD
	BLBC    R0, 6$
1$:	MOVZBL  (AP), R0
	CMPL    R0, #3
	BNEQ    2$
	MOVL    12(AP), R2
	BRB     3$
2$:	CLRL    R2
3$:	CMPL    R0, #2
	BLSSU   4$
	MOVL    8(AP), R1
	BRB     5$
4$:	CLRL    R1
5$:	PUSHR   #^M<R1,R2>
	PUSHL   4(AP)
	PUSHL   R3
	PUSHAB  4(R3)
	CALLS   #5, G^SMG$READ_COMPOSED_LINE
	CMPL    R0, #SMG$_EOF
	BNEQ    6$
	MOVL    #98938, R0
6$:	RET
	.END