;*; Updated on 06-Dec-91 at 8:45 AM by Michele Tonti; edit time: 0:00:13
;*************************** AMUS Program Label ******************************
; Filename: CTSON.M68 Date: 12/6/91
; Category: UTIL Hash Code: 134-300-367-570 Version: 1.0(67)
; Initials: KUNI/AM Name: RENE S HOLLAN
; Company: UDISCO LTD. Telephone #: 5144818107
; Related Files: CTSOFF.M68
; Min. Op. Sys.: Expertise Level:
; Special: Works only on AM2000-only tested on AM355 board
; Description: This program turns on the CTS (pin 5) line for a specified
; terminal
;
;*****************************************************************************
;************************************************************************
; *
; CTSON COMMAND PROGRAM *
; *
;************************************************************************
;
; NOTICE
;
;All rights reserved. This software is the property of UDISCO LTD. and
;the material contained herein is the proprietary property and trade
;secrets of UDISCO LTD., embodying substantial creative efforts and
;confidential information, ideas and expressions, no part of which may be
;reproduced or transmitted in any form or by any means, electronic,
;mechanical, or otherwise, including photocopying or input into any
;information storage or retrieval system without the express written
;permission of UDISCO LTD.
;
;Permission to copy and use is granted to AMUS members for non commercial
;purposes only.
;
; Author: Rene S. Hollan
;
; Date Written: May 26, 1984
;
; This program turns on the CTS line (pin five) on
; the specified terminal. This is an upgrade of the old CTSON program.
; This program works only on AM-2000 systems and has only been tested are currently supported.
; with an AM-355 interface board.
;
; Syntax is CTSON trmdef-name.
;
; COPYRIGHT (C) - 1989 - UDISCO LTD.
;
; [103] 15 January 1989
; Upgrade to AM-2000. /RSH
;
; [102] 7 March 1986
; Reenable AM-300 interrupts at exit. /RSH
;
; [101] 19 February 1986
; Lock out critical section. /RSH
;
; [100] 26 May 1984
; Coding starts /RSH
;
VMAJOR = 1 ; MAJOR VERSION
VMINOR = 0 ; MINOR VERSION
VSUB = 0 ; SUB VERSION
VEDIT = 103 ; EDIT LEVEL
SEARCH SYS
SEARCH SYSSYM
SEARCH TRM
SETPIN = 6 ; interface driver setpin routine
RS.RTS = ^H04 ; request to send pin
RS.DTR = ^H14 ; data terminal ready pin