;*************************** AMUS Program Label ******************************
; Filename: MAKGO.M68                                       Date: 01/12/89
; Category: UTIL         Hash Code: 773-575-501-571      Version: 1.0(100)
; Initials: PHI/AM       Name: JIM DULANEY
; Company: SYSTEMS TECHNOLOGY                      Telephone #: 
; Related Files: FILER.M68 (MACRO FILE NEEDED FOR ASSEMBLY)
; Min. Op. Sys.:                               Expertise Level: INT
; Special: 
; Description: Force a ^Q into terminal buffer of a terminal which has
; received a ^S but does not have a keyboard. (.MAKGO trm-name)
;*****************************************************************************
;11/21/82 - Systems Technology

	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	FILER

	VMAJOR=1
	VMINOR=0
	VEDIT=100.

	PHDR	-1,0,PH$REE!PH$REU
	BYP
	CALL	TRMSHR
	BNE	10$
	TYPECR	<Terminal not found>
	EXIT
10$:	MOVB	#CTL.Q,D1
	TRMICP
	EXIT


TRMSHR:	PUSH
	MOVL	SP,A1			; make work area
	PACK
	PACK				; pack terminal name
	SUBL	#4,A1			; back up
	POP
	MOVL	@A1,D7
	MOVL	TRMDFC,A5
10$:	CMPL	D7,4(A5)
	BEQ	20$
	MOVL	@A5,A5
	MOVL	A5,D6
	BNE	10$
	RTN

20$:	ADDL	#10,A5
	MOVL	A5,D7
	RTN

	

	END

.