270M
Rapid
Scanning Imaging Spectrograph
OPEN
•sPEXOOOO"
FOR
OUTPUT
AS
#1
To terminate communications with the device driver, use °CLOSE" with the file handle
that used in the call
to
•oPEN•. ·
CLOSE #1
To send a command
to
the device, use ·PRINT#".
PRINT# 1, •F 3000 400 400 400;•;
To read the device (only
in
the case of using the device driver query function) the
device must be reopened with attributes
to
be able
to
read from the device
(i.e.
open
using
FOR
INPUT). After reading the device
(580
INPUT#
1,
REPLY),
the device
is
closed and then reopened with a~ributes to be able
to
write
to
the device
(i.e.
open
using
FOR
OUTPUT).
550 '******************
READ
QUERY
*********************************
560 CLOSE #1 'CLOSE
AS
OUTPUT DEVICE
570
OPEN
"SPEXOOOO"
FOR
INPUT
AS
#1 'OPEN
AS
INPUT DEVICE
580 INPUT#
1,
REPLY
'READ
REPLY
FROM
DEVICE
590 CLOSE #1 'CLOSE
AS
INPUT DEVICE
600
OPEN
•sPEXOOOO"
FOR
OUTPUT
AS
#1
'RESTORE
AS
OUTPUT DEVICE
610
RETURN
5.3 Communicating from Turbo Pascal 5.5:
To begin communications with the device driver, use •assignQ" with the name of the
device driver as the filename then open · the file for output by using "rewriteQ".
assign(fptr,
'SPEXOOOO');
rewrite(fptr);
NOTE:
var fptr : text;
To terminate communications with the device driver, use "closeQ" with the variable
that was used
in
the "assignQ" and •rewriteQ• calls. close(fptr);
To send a command
to
the device, use •writeQ•.
Revised
November
24.
1992
69
Leica Microsystems, Inc.'s Ex. 1033
To Next Page
Loading...