Kenwood DCS-8200 Instruction Manual page 108

90 '
100 '
"*tn
110 GP-IB I n i t i a l i z e
120 '
130 I SET IPC
140 I S E T REN
150 '
" t m
160 E n a b l e S e r v i c e
170 ON ERROR GOTO *END.P
180 ON SRO GOSUB *RCVSRQ
190 SRO ON
200 '
210 " * * * * S e t Time Out Timer
220 '
230 CMD TIME0UT=5
240 '
250 '
"*ttt
260 Del i m i t t e r C o n t r o l
270 '
280 CMD DELIM=3
290
300
310
320 '
330 '' ttttttttttttttttttttttttttttttttttt
340 '
tttt
350 '' Message Send P r o c e s s
360 '
370 PRINT01; "WOUT1, 1. 1. 0. 10. 125. 126. 127, 128. 129. 130. 1 3 1 . 132, 133,
380
390
400 '
410 PRINT
420 PRINT "WOUT1, 1, 1. 0, 10"
430 PRINT
440 '
450 GOTO *END.P
460 '
"tttt
470 SRO R e c e i v e P r o c e s s
480 '
490 *RCVSRQ
500 POLL 1,CS.STAT
510 '
520 PRINT "CS-Unit S t a t u s = ";HEX$
530 SRO ON
540 RETURN
550 '
tttt
560 '' END P r o c e s s
570 '
580 *END.P
590 FOR 1=0 TO 5000 : NEXT I
600 I RESET REN
610 END
Program example 4 •••• ExampIe of reading out the waveform data of the DCS-8200
O b j e c t c h a n n e l : C H I
Memory : A c q u i s i t i o n memory
D a t a f o r m a t : A S C I I
102
' GP-IB I n t e r f a c e C l e a r
' Remote E n a b l e
Request
' I f t h e c o n t r o l does not end w i t h i n 5 s e c o n d s , go t o *END.P
' S e t SRO ON t o go t o *RCVSR0
' S e t t h e timer t o 5 s e c o n d s .
' 0: C r L f
' 1 : C r
' 2: L f
' 3: w i t h EOI
' S e l e c t t h e t i m i n n g o f E O I .
' Data from t h e f i r s t a d d r e s s "0" t o a d d r e s s "10" i s t r a n s m i t t e d i n A S C I I
t o t h e a c q u i s i t i o n memory o f C H I .
' L a s t Data w i t h EOI ( § )
' D i s p l a y t h e send command on t h e CRT
' Get STB from CS-Unit
( CS.STAT)
' D i s a b l e Remote C o n t r o l
with the controller.
134
format