;*************************** 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