LeCroy 8901A Operator's Manual page 22

Operating Instructions
10190
10191
10192
10194
10204
10390
10400
10401
10402
10403
10405
10406
10407
10408
10409
10410
10411
10412
10413
10414
10415
10416
10417
10418
10419
10420
10421
10422
10423
10426
10427
10430
10436
10439
10440
10441
10442
10444
10445
10446
10447
10448
10449
10450
10451
10452
10453
10454
10455
10456
10457
10458
10459
30130
30140
RETURN
!
!
t
Trans8k: I THIS SUBROUTINE WILL ACQUIRE 8K OF DATA USING A "TRANSFER"
STATEMENT IN HIGH SPEED BLOCK TRANSFER MODE 16 BIT READS
INTEGER Datbuf(8192) BUFFER
DIM Tempbuf$[8192]BUFFER IREAD DATA 8 BITS AT A TIME
INTO STRING VARIABLE
! DEFINE AN 8K BUFFER
ASSIGN fiBuff TO BUFFER TempbufS;FORMAT OFF
!
F=17
GOSUB Camo
!
OUTPUT 701 USING "#,B":106
OUTPUT 701 USING "#,B",2,0,N
!
TRANSFER SGPIB TO 0Buff;END.WAIT
!
ASSIGN SBuff TO *
!
I ! I I !! I !!! I I ! I !!!!!!!!!!!!!!!!!!!!!!! MM M !!! M !!!!!! I !! I I !!!!!!!!!! !
! RESTORE DATA TO 8 BIT BYTES AND PUT IN Datbuf IN CORRECT ORDER
!
M M M M ! M ! ! M M M ! ! ! M M I M M M M M ! ! M ! ! M ! M M M M M M M ! M M !
I
I RESET READ POINTER
!SET UP FOR HIGH SPEED BLOCK
'M-'
READ
I SEND OUT FIRST F2 COMMAND
[TRANSFER 8K OF DATA
, 3-
^ 0^. f
SCALE DATA FOR PLOT
FOR Fix=l TO 6192
Datbuf (Fix) =NUM( TeBipbuf$[Fix])
NEXT Fix
!
I
j
!
FOR D=1 TO 8192
Datbuf(D)=Datbuf(D)*2-256
NEXT D
I
RETURN
!
!
!
Garid:
Keys$=KBD$
IF Keys$<>"G" THEN RETURN
Gron=Gron EXOR Flag
RETURN
!
I
[TURN
[CONVERT STRONG ELEMENTS TO INTEGER
GRID ON AND OFF
I*****************************************************
[ PLOT 8K OF DATA
18