# 1 "/u/exp/stan/nmr/lists/pp/oneone.cpj"
# 1 "/u/exp/stan/nmr/lists/pp/oneone.cpj"
; oneone.cpj
; 1-1-echo
; 7/28/06

# 1 "/u/exp/stan/nmr/lists/pp/Avance.incl" 1
;Avance.incl
;
;version  00/07/27


;switch between high and low stage oh H amplifier



;use 2H channel for lock or pulse (lockswitch)



;allow for 2H decoupling (lockswitch)



;turn lock-hold on/off (BSMS)



;switch between 1H or 19F output (H amplifier)



;select output for 19F (amplifier)



;homospoil on/off (BSMS)



;for Q-switch probes



;for mixing probe



;gating pulse for RX22, ADC and HPPR




;not active




;$Id: Avance1.incl,v 1.5 2000/08/16 13:26:55 ber Exp $
# 5 "/u/exp/stan/nmr/lists/pp/oneone.cpj" 2

# 1 "/u/exp/stan/nmr/lists/pp/Grad.incl" 1
;Grad.incl  -  include file for Gradient Spectroscopy
;
;avance-version (00/07/27)


;gradient pulse for gs-syntax



;blank/unblank gradient amplifier and turn lock-hold on/off



;blank/unblank gradient amplifier



;for RCB board (BSMS)




define list<gradient> EA=<EA>



;$Id: Grad1.incl,v 1.6 2000/10/16 11:47:19 ber Exp $
# 6 "/u/exp/stan/nmr/lists/pp/oneone.cpj" 2

# 1 "/u/exp/stan/nmr/lists/pp/Delay.incl" 1
;Delay.incl  -  include file for commonly used delays
;
;version 00/02/07


;general delays

define delay DELTA
define delay DELTA1
define delay DELTA2
define delay DELTA3
define delay DELTA4
define delay DELTA5
define delay DELTA6
define delay DELTA7
define delay DELTA8

define delay TAU
define delay TAU1
define delay TAU2
define delay TAU3
define delay TAU4
define delay TAU5


;delays for centering pulses

define delay CEN_HN1
define delay CEN_HN2
define delay CEN_HN3
define delay CEN_HC1
define delay CEN_HC2
define delay CEN_HC3
define delay CEN_HC4
define delay CEN_HP1
define delay CEN_HP2
define delay CEN_CN1
define delay CEN_CN2
define delay CEN_CN3
define delay CEN_CN4
define delay CEN_CP1
define delay CEN_CP2


;loop counters

define loopcounter COUNTER
define loopcounter SCALEF
define loopcounter FACTOR1
define loopcounter FACTOR2
define loopcounter FACTOR3



;$Id: Delay.incl,v 1.10 2000/05/08 11:39:02 eng Exp $
# 7 "/u/exp/stan/nmr/lists/pp/oneone.cpj" 2



1 ze
2 1m do:f3 do:f2
  d1
  1m pl1:f1 pl12:f2
  (p1 ph1):f1
  d2
  (p2 ph2):f1
  3u
  p20:gp0
  d4 
  (p1 ph3):f1
  d2
  d2
  (p2 ph4):f1
  p20:gp0
  d4 pl13:f3
  go=2 ph31 cpd2:f2 cpd3:f3
  1m do:f3 do:f2
  wr #0
exit

ph1=0
ph2=2
ph3=0 1 2 3
ph4=2 3 0 1
ph31=0 2 0 2

;pl1: default 1H power level
;p1 : f1 channel -  90 degree high power pulse
;p2 : p2=p1-0.15u -  90 degree high power pulse
;                   use for fine adjustment for water suppression
;p20: 200us, 30% xyz
;d1 : relaxation delay; 1-5 * T1
;d2 : 100u at 600 for optimal excitation at 8.5ppm
;     d2 = (1/(2*d)), d = distance of next null (in Hz)
;d4 : 200us min.

;gpx0: 30%
;gpy0: 30%
;gpz0: 30%

;gpnam0:  SINE.20
