; pro user
;   This is sample program used listsequencer for Aurora14 camac module.
;
; 	1999.4.  NIFS-LABCOM
;
;************************************************************************************************
;================================================================================================

AUTO='OFF'
DEBUG='ON'

; モジュール情報フォルダの登録

SETMODULEINFO,!KACSDIR + '\sample\ModuleInfo'

; 制御リストの生成

ret=SetupList('Data_LAB01.cnf')

; ブロック転送で収集するデータの格納領域の確保

BLKDATA1=INTARR(128*1024L)
BLKDATA2=INTARR(128*1024L)
BLKDATA3=INTARR(128*1024L)
BLKDATA4=INTARR(128*1024L)
BLKDATA5=INTARR(128*1024L)
BLKDATA6=INTARR(128*1024L)

; 注：ブロック転送で24ビット転送を使っているときはINTARRの代りにLONARRを使います。

; Setupリストの実行

ret=ExecuteList('Setup_LAB01')

; Initリストの実行

ret=ExecuteList('Init_LAB01')

; Triggerリストの実行

ret=ExecuteList('Trigger_LAB01')

; Completedリストの実行

ret=ExecuteList('Completed_LAB01')

; Acquireリストの実行

ret=ExecuteList('Acquire_LAB01')

; チャンネル毎のAcquireリストの実行

ret=ExecuteList('Acquire1_LAB01',BLKDATA1)
ret=ExecuteList('Acquire2_LAB01',BLKDATA2)
ret=ExecuteList('Acquire3_LAB01',BLKDATA3)
ret=ExecuteList('Acquire4_LAB01',BLKDATA4)
ret=ExecuteList('Acquire5_LAB01',BLKDATA5)
ret=ExecuteList('Acquire6_LAB01',BLKDATA6)

; 取り込んだデータをグラフに表示する。

PLOT,BLKDATA1
PLOT,BLKDATA2
PLOT,BLKDATA3
PLOT,BLKDATA4
PLOT,BLKDATA5
PLOT,BLKDATA6