Table of Contents
Advertisement
Operating Instructions
10
11
14
15
16
17
18
19
30
31
32
34
35
40
41
43
44
50
60
70
80
90
100
110
120
130
140
150
160
161
170
180
190
200
210
220
230
240
250
251
253
254
255
256
258
259
261
264
265
266
267
268
269
270
271
272
273
!GRID ON OFF FLAG
I CLEAR SCREEN
!CLEAR GPIB
Sampling Period"
I TR8K_16ST:
THIS PROGRAM READS OUT A TR8828 USING AN 8K "TRANSFER"
IN HIGH SPEED BLOCK READ MODE 16 BIT TRANSFERS
***********
each point is read into a string variable ***********
! ***********
then converted to an integer ****************
j
ON KBD GOSUB Ggrid
Flag=l
ASSIGN ®GPIB TO 701
!
PRINT CHR$(12)
GCLEAR
CLEAR 7
CLEAR 701
!
PRINT "
PRINT
PRINT "
1 = 5 ns
5 = 80 ns"
PRINT "
2 = 10 ns
6 = 160 ns"
PRINT "
3 = 20 ns
7 = 320 ns"
PRINT "
4 = 40 ns
8 = EXT CLK"
!
PRINT
PRINT
INTEGER Pretrig
INTEGER N.F.A.Datl,Dat2.Mask
A=0
!
INPUT "ENTER SLOT NUMBER",N
INPUT "ENTER SAMPLING PERIOD : ",Clk
IF Clk<l THEN 190
IF Clk>8 THEN 190
PRINT
INPUT " ENTER n/8 PRE-TRIGGER SAMPLES: ".Pretrig
IF Pretrig<0 THEN 230
IF Pretrig>8 THEN 230
INPUT "A(uto) or E(xternal) STOP TRIGGER ? :",Mode$
!
OUTPUT 701 USING "#,B":33
!
Clk=Clk-l
Datl=Pretrig+(Clk*16)
Dat2=0
F=16
GOSUB Camo
!
Start:
!
!
!
F=10
GOSUB Camo
F=24
GOSUB Camo
!DECLARE INTEGER
!GET SLOT NUMBER
!GET SAMPLE CLOCK
ISEND Z TO INITIALIZE CRATE
ISET UP CONTROL WORD (FIXED 16K MEMO
!CLEAR LAM
!DISABLE LAM
RY SIZE)
!WRITE OUT CONTROL WORD
16
Advertisement
Table of Contents
