Tektronix 2714, Programmer'S Manual

Page: 231 / 308

Programming
2714 & 2715 Programmer Manual
6–33
' func% = identifies which RS232 function to perform *
' wfm% = array to hold waveform *
'****************************************************************
SUB RS232.CALLS
'
IF func% = 1 TH EN
GOTO SELECT.DEVICE
ELSEIF func% = 3 TH EN
GOTO SEND.MESSAGE.TO.DEVICEELSEIF func% = 5 TH EN
GOTO GET.BINARY.WAVEFORM
END IF
'
'****************************************************************
' This routine opens COM PORT 1 for communication via RS232, *
' opened for random to handle both input and output. *
*'***************************************************************
' SPEED = 9600 (bits per secondĆalso called BAUD RATE) *
' PARITY = NONE (parity bit not used) *
' DATA = 8 (number of data bits per byte) *
' STOP = 1 (number of stop bits) *
' EOL = CRLF (carriage return/line feed as terminator) *
' FLOW CONTROL = NONE (no "handshaking") *
' ECHO = OFF (only needed for terminal emulation) *
' VERBOSE = ON (guarantees a response for each communication) *
*'***************************************************************
' If the 2714 or 2715 has not been configured to agree with the
above *
' parameters, the program will display an error message and *
' force the user to change the 2714 or 2715. Program will not
*
' execute otherwise. *
'****************************************************************
' CS = 0 (suppress checking the CLEAR TO SEND line) *
' DS = 0 (suppress checking the DATA SET READY line) *
' RB = 2048 (size in bytes of the receive buffer) *
' TB = 2048 (size in bytes of the transmit buffer) *
'****************************************************************
'
SELECT.DEVICE:
'
buffer$ = "N" 'initialize these two
read.error% = 0 'indicators
'
OPEN "com1:9600,n,8,1,CS,DS,rb 2048,tb 2048" FOR RANDOM AS #1
'
'
==============================================================