Table of Contents
Advertisement
Trace Memory Example 2
Trace Memory Example 3
Chapter 3
This example writes 20 bytes as 10 WORDS at ports 0 and 1 as in the first
example, it uses an external VME memory board.
10 RE-SAVE "Trace_2"
20 ASSIGN @ Dio TO 70918
30 INTEGER A(1:10) ,Ready
40 DATA 65,66,67,68,69,70,71,72,73,74
50 READ A(*)
60 OUTPUT @Dio;"*RST;*OPC?"
70 ENTER @Dio;Ready
80 OUTPUT @Dio;"MEM:VME:ADDR #H200000"
90 OUTPUT @Dio;"MEM:VME:SIZE
100 OUTPUT @Dio;"MEM:VME:STAT
110 OUTPUT@Dio;"SOUR:DIG:TRAC:DEF alpha,100;*OPC?"
120 ENTER @Dio;Ready
130
OUTPUT @Dio USING"K,10(W)";"SOUR:DIG:TRAC alpha,#220";A(*)
140 OUTPUT@Dio;"SOUR:DIG:DATA0:WORD:TRAC alpha;*OPC?"
150 ENTER @Dio;Ready
160 OUTPUT@DIO;"SOUR:DIG:TRAC:DEL alpha,*OPC?"
170 ENTER @Dio;Ready
180 END
This example reads 40 WORDS from ports 0 and 1.
10 RE-SAVE "Trace_3"
20 ASSIGN @ Dio TO 70918
30 DIM Head$[4]
40 INTEGER A(1:20) ,Ready
50 OUTPUT @Dio;"*RST;*OPC?"
60 ENTER @Dio;Ready
70 OUTPUT@Dio;"SOUR:DIG:TRAC:DEF alpha,80;*OPC?"
80 ENTER @Dio;Ready
90 OUTPUT@Dio;"MEAS:DIG:DATA0:WORD:TRAC alpha;*OPC?"
100 ENTER @Dio;Ready
110 OUTPUT @Dio;"SOUR:DIG:TRAC:DATA? alpha"
120 ENTER @Dio USING "4A,40(W)";Head$;A(*)
130 OUTPUT @Dio;"SOUR:DIG:TRAC:DEL alpha;*OPC?"
140 ENTER@Dio;Ready
150 END
Using the Agilent E1330B Digital I/O Module
!A, B, C, D, E, F, G, H, I, J.
!Wait for completion.
!Define memory location.
100" !Reserve 100 bytes.
ON" ! Enable memory.
!Define memory name alpha.
!Wait for completion.
!Fill memory alpha with 20
bytes.
!Output the 20 bytes.
!Wait for completion.
!Delete memory alpha.
!Wait for completion.
!Wait for completion.
!Define memory name alpha.
!Wait for completion.
!Output 80 bytes.
!Wait for completion.
!Request the data.
!Remove memory block.
!Wait for completion.
39
Advertisement
Table of Contents
