* see LabView at Hann's PC-Pentium D:/NCSA/ SPMD_DAQ.vi? or lib??

*Ia) initialization of STR 751-755
vxiout 1, 0xA02, 2, 4 ! Disable Interr
vxiout 1, 0xA02, 2, 2 ! Res
vxiout 1, 0xA02, 2, 7 ! En Autostop !!!? doesn't work ?!
vxiout 1, 0xA04, 2, d300 ! Bias Value ??

vxiout 2, 0x400000, 4, 0 ! Offset (i) channel
vxiout 2, 0x400004, 4, 0
vxiout 2, 0x400008, 4, 0
vxiout 2, 0x40000C, 4, 0
vxiout 2, 0x400010, 4, 0
vxiout 2, 0x400014, 4, 0
vxiout 2, 0x400018, 4, 0
vxiout 2, 0x40001C, 4, 0


*Ib) initialization of SEQUENCER
vxiout 2, 0x10481, 1, x10 ! Softw Reset
vxiout 2, 0x10481, 1, x3 ! Green & Red LEDs
vxiout 2, 0x10481, 1, x1
vxiout 2, 0x10501, 1, x00 ! Init C=0
vxiout 2, 0x10500, 1, x37 ??? ! Amplitude(PED) ?? inverted !!
vxiout 2, 0x10501, 1, x10
vxiout 2, 0x10501, 1, x07 ! Wr Calib
vxiout 2, 0x10501, 1, x17 ! Wr Calib
vxiout 2, 0x10501, 1, x0f ! Reset
vxiout 2, 0x10501, 1, x1f ! Reset
vxiout 2, 0x10501, 1, x05
vxiout 2, 0x10501, 1, x15 ! Cl_Tr
vxiout 2, 0x10501, 1, x00


*II before each event Init
vxiout 1, 0xA00, 2, d(65536-2*1024) ! xF800 ?? initial MAR Value
vxiout 1, 0xA02, 2, x2 ! Reset
vxiout 1, 0xA02, 2, x7 ! Enable AutoStop
vxiout 1, 0xA02, 2, x9 ! En Front Input Connect


*III Read CSR & MAR of STR751
vxiin 1, 0xA02, 2 ! read CSR
vxiin 1, 0xA00, 2 ! read MAR after event read

*IV Disable Front Input Conn
vxiout 1, 0xA02, 2, 8 ! Disable Front Input Conn

*V Read out STR755
vximove 2, 0x(402000-1000), 4, d1024 =} to BUFFER



*****************************
* PED or CALIB signal generation
vxiout 2, 0x10481, 1, x10 ! Reset of OUTPUT Register
vxiout 2, 0x10501, 1, x00
vxiout 2, 0x10500, 1, x37 ! PED=x37=NOT(xC8=200); CAL(5MIP)=x56
vxiout 2, 0x10501, 1, x10
vxiout 2, 0x10501, 1, x07 ! Wr Calib
vxiout 2, 0x10501, 1, x17 ! Wr Calib
vxiout 2, 0x10501, 1, x0f ! Reset
vxiout 2, 0x10501, 1, x1f ! Reset
vxiout 2, 0x10501, 1, x05
vxiout 2, 0x10501, 1, x15 ! Cl_Tr
vxiout 2, 0x10501, 1, x00


vxiout 2, 0x10501, 1, x03 ! Test
vxiout 2, 0x10501, 1, x13 ! Test

do 1 N_preampl=1,8
* insert DELAY= 2ms
call delay(2000)

do 2 n_chann=1,128
N_delay=50
if(n_chann.le.3) N_delay=2000/n_chann
call delay(N_delay)
vxiout 2, 0x10501, 1, x03 ! Test
vxiout 2, 0x10501, 1, x13 ! Test
2 continue
1 continue