seqfil = 'nccdqm3ds'

//------------------------------
// Spin Rate
//------------------------------

exists('srate','parameter'):$e
if $e < 0.5 then
   create('srate','frequency')
endif 

exists('hsrotor','parameter'):$e
if $e < 0.5 then
   create('hsrotor','flag') 
endif

//------------------------------
// Receiver Delays
//------------------------------

exists('rd','parameter'):$e
if $e < 0.5 then
   create('rd','pulse')
   setlimit('rd',8192,0,0.0125)  
endif 

exists('ad','parameter'):$e
if $e < 0.5 then
   create('ad','pulse')
   setlimit('ad',8192,0,0.0125)  
endif

exists('ddrtc','parameter'):$e
if $e < 0.5 then
   create('ddrtc','pulse')
   setlimit('ddrtc',8192,0,0.0125)  
endif

//------------------------------
// Basic Transmitter Properties
//------------------------------

exists('aX90','parameter'):$e
if $e < 0.5 then
   create('aX90','real')
   setlimit('aX90',4095,0,0)  
endif 

exists('aH90','parameter'):$e
if $e < 0.5 then
   create('aH90','real')
   setlimit('aH90',4095,0,0)  
endif 

exists('aY90','parameter'):$e
if $e < 0.5 then
   create('aY90','real')
   setlimit('aY90',4095,0,0)  
endif

exists('aZ90','parameter'):$e
if $e < 0.5 then
   create('aZ90','real')
   setlimit('aZ90',4095,0,0)  
endif

exists('pwX90','parameter'):$e
if $e < 0.5 then
   create('pwX90','pulse')
   setlimit('pwX90',8192,0,0.0125)
endif 

exists('pwH90','parameter'):$e
if $e < 0.5 then
   create('pwH90','pulse')
   setlimit('pwH90',8192,0,0.0125)
endif 

exists('pwY90','parameter'):$e
if $e < 0.5 then
   create('pwY90','pulse')
   setlimit('pwY90',8192,0,0.0125)
endif

exists('pwZ90','parameter'):$e
if $e < 0.5 then
   create('pwZ90','pulse')
   setlimit('pwZ90',8192,0,0.0125)
endif

//---------------
// cpHX elements
//---------------

exists('shHX','parameter'):$e
if $e < 0.5 then
    create('shHX','flag')
endif

exists('toHX','parameter'):$e
if $e < 0.5 then
   create('toHX','flag')
endif 
setvalue('toHX','obs')

exists('frHX','parameter'):$e
if $e < 0.5 then
   create('frHX','flag')
endif
setvalue('frHX','dec')  

exists('chHX','parameter'):$e
if $e < 0.5 then
   create('chHX','flag')
endif 

exists('aHhx','parameter'):$e
if $e < 0.5 then
   create('aHhx','real')
   setlimit('aHhx',4095,0,0)
endif 

exists('aXhx','parameter'):$e
if $e < 0.5 then
   create('aXhx','real')
   setlimit('aXhx',4095,0,0)
endif 

exists('bHX','parameter'):$e
if $e < 0.5 then
   create('bHX','real')
   setlimit('bHX',1000000,0,1.0e-6)
endif 

exists('dHX','parameter'):$e
if $e < 0.5 then
   create('dHX','real')
   setlimit('dHX',4095,-4095,1)
endif 

exists('tHX','parameter'):$e
if $e < 0.5 then
   create('tHX','pulse')
   setlimit('tHX',50000,0,0.0125)
endif

exists('ofHX','parameter'):$e
if $e < 0.5 then
    create('ofHX','frequency')
endif  

//=====================
// decoupling options
//======================

exists('Hseq','parameter'):$e
if $e < 0.5 then
    create('Hseq','flag')
endif

//-----------
// tppm
//-----------

exists('aHtppm','parameter'):$e
if $e < 0.5 then
    create('aHtppm','real')
    setlimit('aHtppm',4095,0,0)
endif

exists('pwHtppm','parameter'):$e
if $e < 0.5 then
    create('pwHtppm','pulse')
    setlimit('pwHtppm',8192,0,0.0125)
endif

exists('phHtppm','parameter'):$e
if $e < 0.5 then
    create('phHtppm','real')
    setlimit('phHtppm',180,-180,0.0)
endif

exists('chHtppm','parameter'):$e
if $e < 0.5 then
   create('chHtppm','flag')
endif 
setvalue('chHtppm','dec')

//------------------------------
//  spinal 
//------------------------------

exists('aHspinal','parameter'):$e
if $e < 0.5 then
    create('aHspinal','real')
    setlimit('aHspinal',4095,0,0)
endif

exists('pwHspinal','parameter'):$e
if $e < 0.5 then
    create('pwHspinal','pulse')
    setlimit('pwHspinal',8192,0,0.0125)
endif

exists('phHspinal','parameter'):$e
if $e < 0.5 then
    create('phHspinal','real')
    setlimit('phHspinal',180,-180,0.0)
endif

exists('chHspinal','parameter'):$e
if $e < 0.5 then
   create('chHspinal','flag')
endif 
setvalue('chHspinal','dec')

//====================
// cpHY elements
//====================

exists('shHY','parameter'):$e
if $e < 0.5 then
    create('shHY','flag')
endif

exists('toHY','parameter'):$e
if $e < 0.5 then
   create('toHY','flag')
endif 
setvalue('toHY','dec2')

exists('frHY','parameter'):$e
if $e < 0.5 then
   create('frHY','flag')
endif
setvalue('frHY','dec')  

exists('chHY','parameter'):$e
if $e < 0.5 then
   create('chHY','flag')
endif 

exists('aHhy','parameter'):$e
if $e < 0.5 then
   create('aHhy','real')
   setlimit('aHhy',4095,0,0)
endif 

exists('aYhy','parameter'):$e
if $e < 0.5 then
   create('aYhy','real')
   setlimit('aYhy',4095,0,0)
endif   

exists('bHY','parameter'):$e
if $e < 0.5 then
   create('bHY','real')
   setlimit('bHY',1000000,0,1.0e-6)
endif 

exists('dHY','parameter'):$e
if $e < 0.5 then
   create('dHY','real')
   setlimit('dHY',4095,-4095,1)
endif 

exists('tHY','parameter'):$e
if $e < 0.5 then
   create('tHY','pulse')
   setlimit('tHY',50000,1.0,0.0125)
endif


exists('ofHY','parameter'):$e
if $e < 0.5 then
    create('ofHY','frequency')
endif  

//================
// cpXY elements
//================

exists('shXY','parameter'):$e
if $e < 0.5 then
    create('shXY','flag')
endif

exists('toXY','parameter'):$e
if $e < 0.5 then
   create('toXY','flag')
endif 
setvalue('toXY','dec2')

exists('frXY','parameter'):$e
if $e < 0.5 then
   create('frXY','flag')
endif
setvalue('frXY','obs')  

exists('chXY','parameter'):$e
if $e < 0.5 then
   create('chXY','flag')
endif 

exists('aXxy','parameter'):$e
if $e < 0.5 then
   create('aXxy','real')
   setlimit('aXxy',4095,0,0)
endif 

exists('aYxy','parameter'):$e
if $e < 0.5 then
   create('aYxy','real')
   setlimit('aYxy',4095,0,0)
endif 

exists('bXY','parameter'):$e
if $e < 0.5 then
   create('bXY','real')
   setlimit('bXY',1000000,0,1.0e-6)
endif 

exists('dXY','parameter'):$e
if $e < 0.5 then
   create('dXY','real')
   setlimit('dXY',4095,-4095,1)
endif 

exists('tXY','parameter'):$e
if $e < 0.5 then
   create('tXY','pulse')
   setlimit('tXY',50000,0,0.0125)
endif

exists('ofXY','parameter'):$e
if $e < 0.5 then
    create('ofXY','frequency')
endif  

//================
// cpYX elements
//================

exists('shYX','parameter'):$e
if $e < 0.5 then
    create('shYX','flag')
endif

exists('toYX','parameter'):$e
if $e < 0.5 then
   create('toYX','flag')
endif 
setvalue('toYX','obs')

exists('frYX','parameter'):$e
if $e < 0.5 then
   create('frYX','flag')
endif
setvalue('frYX','dec2')  

exists('chYX','parameter'):$e
if $e < 0.5 then
   create('chYX','flag')
endif 

exists('aYyx','parameter'):$e
if $e < 0.5 then
   create('aYyx','real')
   setlimit('aYyx',4095,0,0)
endif 

exists('aXyx','parameter'):$e
if $e < 0.5 then
   create('aXyx','real')
   setlimit('aXyx',4095,0,0)
endif 

exists('bYX','parameter'):$e
if $e < 0.5 then
   create('bYX','real')
   setlimit('bYX',1000000,0,1.0e-6)
endif 

exists('dYX','parameter'):$e
if $e < 0.5 then
   create('dYX','real')
   setlimit('dYX',4095,-4095,1)
endif 

exists('tYX','parameter'):$e
if $e < 0.5 then
   create('tYX','pulse')
   setlimit('tYX',50000,0,0.0125)
endif

exists('ofYX','parameter'):$e
if $e < 0.5 then
    create('ofYX','frequency')
endif  

//==============================
// H SPINAL or TPPM ELEMENTS F4
//==============================

exists('qHspnl','parameter'):$e
if $e < 0.5 then
   create('qHspnl','real')
   setlimit('qHspnl',64,0,1)
   qHspnl = 4095
endif 

exists('nHspnl','parameter'):$e
if $e < 0.5 then
   create('nHspnl','real')
   setlimit('nHspnl',64,0,1)
   nHspnl = 64
endif 

exists('chHspnl','parameter'):$e
if $e < 0.5 then
   create('chHspnl','flag')
endif 
setvalue('chHspnl','dec')

exists('ofHspnl','parameter'):$e
if $e < 0.5 then
   create('ofHspnl','frequency')
endif 

exists('aHspnl','parameter'):$e
if $e < 0.5 then
   create('aHspnl','real')
   setlimit('aHspnl',4095,0,0)
endif 

exists('pwHspnl','parameter'):$e
if $e < 0.5 then
   create('pwHspnl','pulse')
   setlimit('pwHspnl',8192,0,0.0125)
endif 

exists('ph1Hspnl','parameter'):$e
if $e < 0.5 then
    create('ph1Hspnl','real')
    setlimit('ph1Hspnl',180,-180,0.0)
endif

exists('decmode','parameter'):$e
if $e < 0.5 then
   create('decmode','real')
   setlimit('decmode',64,0,1)
endif 

exists('ph2Hspnl','parameter'):$e
if $e < 0.5 then
    create('ph2Hspnl','real')
    setlimit('ph2Hspnl',180,-180,0.0)
endif

//==============================
// H SPINAL or TPPM ELEMENTS F1-F3
//==============================

exists('qHspnlm','parameter'):$e
if $e < 0.5 then
   create('qHspnlm','real')
   setlimit('qHspnlm',64,0,1)
   qHspnlm = 4095
endif 

exists('nHspnlm','parameter'):$e
if $e < 0.5 then
   create('nHspnlm','real')
   setlimit('nHspnlm',64,0,1)
   nHspnlm = 64
endif 

exists('chHspnlm','parameter'):$e
if $e < 0.5 then
   create('chHspnlm','flag')
endif 
setvalue('chHspnlm','dec')

exists('ofHspnlm','parameter'):$e
if $e < 0.5 then
   create('ofHspnlm','frequency')
endif 

exists('aHspnlm','parameter'):$e
if $e < 0.5 then
   create('aHspnlm','real')
   setlimit('aHspnlm',4095,0,0)
endif 

exists('pwHspnlm','parameter'):$e
if $e < 0.5 then
   create('pwHspnlm','pulse')
   setlimit('pwHspnlm',8192,0,0.0125)
endif 

exists('ph1Hspnlm','parameter'):$e
if $e < 0.5 then
    create('ph1Hspnlm','real')
    setlimit('ph1Hspnlm',180,-180,0.0)
endif

exists('decmodem','parameter'):$e
if $e < 0.5 then
   create('decmodem','real')
   setlimit('decmodem',64,0,1)
endif 

exists('ph2Hspnlm','parameter'):$e
if $e < 0.5 then
    create('ph2Hspnlm','real')
    setlimit('ph2Hspnlm',180,-180,0.0)
endif

//===============================
//   Y PIPS Decoupling F4 
//===============================

exists('aYpips','parameter'):$e
if $e < 0.5 then
    create('aYpips','real')
    setlimit('aYpips',4095,0,0)
endif

exists('pwYpips','parameter'):$e
if $e < 0.5 then
    create('pwYpips','pulse')
    setlimit('pwYpips',8192,0,0.0125)
endif

exists('chYpips','parameter'):$e
if $e < 0.5 then
   create('chYpips','flag')
endif 
setvalue('chYpips','dec')

exists('qYpips','parameter'):$e
if $e < 0.5 then
   create('qYpips','real')
   setlimit('qYpips',64,0,1)
   qYpips = 1.0
endif 

exists('nYpips','parameter'):$e
if $e < 0.5 then
   create('nYpips','real')
   setlimit('nYpips',64,0,1)
   nYpips = 1.0
endif 

exists('chYpips','parameter'):$e
if $e < 0.5 then
   create('chYpips','flag')
endif 
setvalue('chYpips','dec2')

exists('ofYpips','parameter'):$e
if $e < 0.5 then
   create('ofYpips','frequency')
endif 

exists('decmodey','parameter'):$e
if $e < 0.5 then
   create('decmodey','real')
   setlimit('decmodey',64,0,1)
endif 

//========================
// X 180 Degree Pulse
//========================

exists('aX180','parameter'):$e
if $e < 0.5 then
    create('aX180','real')
    setlimit('aX180',4095,0,0)
endif

exists('pwX180','parameter'):$e
if $e < 0.5 then
    create('pwX180','pulse')
    setlimit('pwX180',8192,0,0.0125)
endif

//========================
// Y 180 Degree Pulse
//========================

exists('aY180','parameter'):$e
if $e < 0.5 then
    create('aY180','real')
    setlimit('aY180',4095,0,0)
endif

exists('pwY180','parameter'):$e
if $e < 0.5 then
    create('pwY180','pulse')
    setlimit('pwY180',8192,0,0.0125)
endif

//==============================
// Y 90 Presat Pulse and aHmix
//==============================

exists('aYpresat','parameter'):$e
if $e < 0.5 then
    create('aYpresat','real')
    setlimit('aYpresat',4095,0,0)
endif

exists('pwYpresat','parameter'):$e
if $e < 0.5 then
    create('pwYpresat','pulse')
    setlimit('pwYpresat',8192,0,0.0125)
endif

exists('aHmix','parameter'):$e
if $e < 0.5 then
    create('aHmix','real')
    setlimit('aHmix',4095,0,0)
endif

exists('aHcw','parameter'):$e
if $e < 0.5 then
    create('aHcw','real')
    setlimit('aHcw',4095,0,0)
endif

//==================
// SPC5 ELEMENTS
//==================

exists('qXspc5','parameter'):$e
if $e < 0.5 then
   create('qXspc5','real')
   setlimit('qXspc5',64,0,1)
   qXspc5 = 7.0
endif 

exists('chXspc5','parameter'):$e
if $e < 0.5 then
   create('chXspc5','flag')
endif 
setvalue('chXspc5','obs')

exists('ofXspc5','parameter'):$e
if $e < 0.5 then
   create('ofXspc5','frequency')
endif 

exists('aXspc5','parameter'):$e
if $e < 0.5 then
   create('aXspc5','real')
   setlimit('aXspc5',4095,0,0)
endif 

exists('pwXspc5','parameter'):$e
if $e < 0.5 then
   create('pwXspc5','pulse')
   setlimit('pwXspc5',8192,0,0.0125)
endif 

exists('tZF','parameter'):$e
if $e < 0.5 then
   create('tZF','pulse')
   setlimit('tZF',8192,0,0.0125)
endif 

// --------------------------------------------------
// Set parameters specific to the experiment
// --------------------------------------------------

exists('wrtp','parameter'):$e
if ($e < 0.5) then 
   create('wrtp','string')
endif
wrtp = 'reset_spc5'
reset_spc5

//------------------------------------------------
//  Set Bit 14 for new parameters of the .par file 
//------------------------------------------------

$params = 'frHY toHY frXY toXY frYX toYX chHspnl chHspnlm chYpips chXspc5 '
$params = $params + 'qHspnl nHspnl ofHspnl aHspnl pwHspnl ph1Hspnl ph2Hspnl '
$params = $params + 'qHspnlm nHspnlm ofHspnlm aHspnlm pwHspnlm ph1Hspnlm ph2Hspnlm '
$params = $params + 'qYpips nYpips aYpips pwYpips ofYpips '
$params = $params + 'shHY chHY aYhy aHhy bHY dHY tHY ofHY '
$params = $params + 'shYX chYX aYyx aXyx bYX dYX tYX ofYX '
$params = $params + 'aX180 pwX180 aY180 pwY180 aYpresat pwYpresat aHcw '
$params = $params + 'decmode decmodem decmodey '
$params = $params + 'qXspc5 ofXspc5 aXspc5 pwXspc5 tZF aHmix wrtp'
setprotect('','clear',16384)
setprotect($params,'on',16384)

//--------------------------------------------------------
//  Clear parameters in 'clearparams' in the apptype macro
//--------------------------------------------------------

exists('clearparams','parameter'):$e
if $e < 0.5 then
   create('clearparams','string')
endif
setprotect('clearparams','on',16384)
$clearparams = 'frHX toHX frXY toXY frYX toYX chHspnl chHspnlm chYpips chXspc5'
setvalue('clearparams',$clearparams)

//------------------------------------------------
//  Set the parameter templates
//------------------------------------------------

setprotect('dg','clear',4)
$dg = '1:ACQUISITION:sw:1,at:6,np:0,d1:6,nt:0,ct:0,bs:0,'
$dg = $dg + 'ss:0,rd:1,ad:1,ddrtc:1,rof3(rof3):1,gain:0,temp:0,srate:1;'
$dg = $dg + '2:cpHY:shHY,chHY,aHhy:0,aYhy:0,bHY:6,dHY:6,tHY:1,ofHY:3;'
$dg = $dg + '2:180X:aX180:0,pwX180:1;'
$dg = $dg + '3:cpYX:shYX,chYX,aYyx:0,aXyx:0,bYX:6,dYX:6,tYX:1,ofYX:3;'
$dg = $dg + '3:spnlH:qHspnl,nHspnl,chHspnl,ofHspnl:3,aHspnl:0,pwHspnl:1,ph1Hspnl:3,ph2Hspnl:3;'
$dg = $dg + '3:180Y:aY180:0,pwY180:1;'
$dg = $dg + '4:spnlmH:qHspnlm,nHspnlm,chHspnlm,ofHspnlm:3,aHspnlm:0,pwHspnlm:1,ph1Hspnlm:3,ph2Hspnlm:3;'
$dg = $dg + '4:pipsH:chHpips,qHpips,nHpips,aHpips,pwHpips,ofHpips;'
$dg = $dg + '4:presatY:aYpresat:0,pwYpresat:1,aHcw:0;'
$dg = $dg + '4:spc5X:aXspc5:0,pwXspc5:1,qXspc5:0,ofXspc5:1,tZF:1,aHmix:0;'
dg = $dg
setprotect('dg','on',4)

setprotect('dg2','clear',4)
$dg2 = '1:OBSERVE:tn,sfrq:6,tof:1,tpwr:0,aX90:0,pwX90:1;'
$dg2=$dg2+'2:DECOUPLE:dn,dfrq:6,dof:1,dpwr:0,aH90:0,pwH90:1;'
$dg2=$dg2+'3:DECOUPLE2:dn2,dfrq2:6,dof2:1,dpwr2:0,aY90:0,pwY90:1;'
$dg2=$dg2+'4:DECOUPLE3:dn3,dfrq3:6,dof3:1,dpwr3:0,aZ90:0,pwZ90:1;'
dg2 = $dg2
setprotect('dg2','on',4)

setprotect('ap','clear',4)
$ap = '1:SAMPLE:date,temp:1,srate:1,file;'
$ap = $ap + '1:ACQUISITION:tn,sfrq:6,tof:1,tpwr:0,sw:1,at:6,np:0,d1:6,nt:0,ct:0,ss:0,rd:1,ad:1,aX90:0,pwX90:1;'
$ap = $ap + '1(ni):2D ACQUISITION:d2:6,sw1:1,ni:0,phase:0;'
$ap = $ap + '1:DECOUPLE:dn,dfrq:6,dof:1,dpwr:0,aH90:0,pwH90:1;'
$ap = $ap + '1(dfrq2>0):DECOUPLE2:dn2,dfrq2:6,dof2:1,dpwr2:0,aY90:0,pwY90:1;'
$ap = $ap + '1(dfrq3>0):DECOUPLE3:dn3,dfrq3:6,dof3:1,dpwr3:0,aZ90:0,pwZ90:1;'
$ap = $ap + '1:cpHY:shHY,chHY,aHhY:0,aYhy:0,bHY:6,dHY:6,tHY:1,ofHY:3;'
$ap = $ap + '1:180X:aX180:0,pwX180:1;'
$ap = $ap + '1:cpYX:shYX,chYX,aHyx:0,aXyx:0,bYX:6,dYX:6,tYX:1,ofYX:3;'
$ap = $ap + '2:spnlH:qHspnl,nHspnl,chHspnl,ofHspnl:3,aHspnl:0,pwHspnl:1,ph1Hspnl:3,ph2Hspnl:3;'
$ap = $ap + '2:180Y:aY180:0,pwY180:1;'
$ap = $ap + '2:spnlmH:qHspnlm,nHspnlm,chHspnlm,ofHspnlm:3,aHspnlm:0,pwHspnlm:1,ph1Hspnlm:3,ph2Hspnlm:3;'
$ap = $ap + '2:pipsH:chHpips,qHpips,nHpips,aHpips,pwHpips,ofHpips;'
$ap = $ap + '2:presatY:aYpresat:0,pwYpresat:1,aHcw:0;'
$ap = $ap + '2:spc5X:aXspc5:0,pwXspc5:1,qXspc5:0,ofXspc5:1,tZF:1,aHmix:0;'
ap = $ap
setvalue('ap',$ap,'processed')
setprotect('ap','on',4)
