; T1RO_10_F2.fm
;
; 970813 (fm)	; 15N via BLTX-300 (F2 channel)
; 970418 (fm)	; gradient off-resonance T1RO(X) using adiabatic rotations
;		  Experiment designed by Robin de Graaf and Frans Mulder
;		  10ms relaxation time
;
; 960723 (fm)	; BE AWARE ! d2,d3 and d4 are set outside the pulse program !
;		  d2~1/2J compensated for 1H relaxation			[5m]
;		  d3	  depends on editing preferences		[3.5m]
;		  d4	  depends on enhancement preferences		[5m]
; ref:
;	
; 950130 (rb )  ; echo-antiecho
;
; gradients for coherence selection - sensitivity-enhanced !
;
; hardware modification:
;      rcp16 - negative gradient
;
; processing: MC2=echo-antiecho
;

#define GRADFAC 2
#define GRADLENGTH 800u
#include <gradients.def>

; calculating delays on basis of d2,d3 and d4
d22 = d3*0.5 -p2 -d0*2 -GRADLENGTH -GRADDELAY 
d23 = d3*0.5 -GRADLENGTH -GRADDELAY
d5  = d4*0.5 -GRADLENGTH -GRADDELAY
d6  = d2*0.5 -GRADLENGTH -GRADDELAY

l3=td1/2

d15=30m
in15=29.996m

; improved sensitivity by improved setting of pulses
d24=(p4-p2)*0.5
d25=p3-p1

d7= 4m
d8= 2.5m -p2*0.5

1 ze 
  d11 dlo
2 d11
  d15
3 d14*3
4 d12 hl2
  p18 ph29
  d13
  d12 hl1
  d12 o2
  (p1 ph0)
  d2*0.5 dl0
  (d24 p2 ph0) (p4 ph0):f2
  d2*0.5
  (p1 ph1) (p3 ph2):f2
  d3*0.5
  (d24 p2 ph0) (p4 ph0):f2
  d3*0.5
  (p3 ph5):f2
  d13
  d12 o2
  (d7 d8 p2 d8 d8 p2 d8 d7) (p6 ph26):dp1
  d13
  d12 o2
  d12 dl0
  (p3 ph3):f2
  d0
; gradient 1
  GRAD(11,GRADFAC)
  d22
  (p2 ph0)
  d0
  (p4 ph0):f2
; gradient 1
  GRAD(12,GRADFAC)
  d23
  (p1 ph0) (p3 ph4):f2
  GRAD(13,GRADFAC)
  d5
  (d24 p2 ph0) (p4 ph0):f2
  GRAD(14,GRADFAC)
  d5
  (d25 p1 ph1) (p3 ph24):f2
  GRAD(15,GRADFAC)
  d6
  (d24 p2 ph0) (p4 ph0):f2
  GRAD(16,GRADFAC)
  d6
  (p1 ph0)
  GRAD(17,GRADFAC)
  d12 dl5
  (p2 ph0)
; gradient 2
  GRAD(18,GRADFAC)
  d12
  go=2 ph31 cpd
  d11 do dbo wr #0 if #0 zd dd15
;
22 d15
   d11 rd15
23 d14*3
24 d12 hl2
  p18 ph29
  d13
  d12 hl1
  d12 o2
  (p1 ph0)
  d2*0.5 dl0
  (d24 p2 ph0) (p4 ph0):f2
  d2*0.5
  (p1 ph1) (p3 ph2):f2
  d3*0.5
  (d24 p2 ph0) (p4 ph0):f2
  d3*0.5
  (p3 ph5):f2
  d13
  d12 o2
  (d7 d8 p2 d8 d8 p2 d8 d7) (p6 ph26):dp1
  d13
  d12 o2
  d12 dl0
  (p3 ph3):f2
  d0
; gradient 1
  NEGGRAD(31,GRADFAC)
  d22
  (p2 ph0)
  d0
  (p4 ph0):f2
; gradient 1
  NEGGRAD(32,GRADFAC)
  d23
  (p1 ph0) (p3 ph4):f2
  GRAD(33,GRADFAC)
  d5
  (d24 p2 ph0) (p4 ph0):f2
  GRAD(34,GRADFAC)
  d5
  (d25 p1 ph1) (p3 ph14):f2
  GRAD(35,GRADFAC)
  d6
  (d24 p2 ph0) (p4 ph0):f2
  GRAD(36,GRADFAC)
  d6
  (p1 ph0)
  GRAD(37,GRADFAC)
  d12 dl5
  (p2 ph0)
; gradient 2
  GRAD(38,GRADFAC)
  d12
  go=22 ph31 cpd
  d11 do dbo wr #0 if #0 ip3 zd
  d14 ip3
  d14 ip31 id0
  d14 ip31
  lo to 4 times l3
exit 

; 1H  
ph0 = 0
ph1 = 1 
ph5 = 3 3 3 3  1 1 1 1
ph28= 0 0 0 0  0 0 0 0  2 2 2 2  2 2 2 2
ph29= 0
; X (dl0)
ph2= 0
ph3= 0 2
ph4= 1 1 3 3
ph14=0 0 2 2
ph24=2 2 0 0
; X (dp1)
ph26=(360) 0
;
ph31=0 2 2 0  2 0 0 2  0 2 2 0  2 0 0 2


;DP=hl1: ecoupler high power level
;hl2: ecoupler power level for presaturation
;qs0: power level for dlo mode
;p1 :  90 degree transmitter high power pulse
;p2 : 180 degree transmitter high power pulse
;p3 :  90 degree decoupler high power pulse
;p18: presaturation during relaxation delay
;p31: 90 degree pulse for slave timer (cpd-sequence)
;d0 : incremented delay (2D)                  [3 usec]
;d2 : 1/(2J)XH
;d11: delay for disk I/O                             [30 msec]
;d12: delay for power switching                      [20 usec]
;d13: short delay (e.g. to compensate delay line)    [3 usec]
;in0: 1/(4 * SW(X)) = 1/2 * DW(X)
;nd0: 4
;NS: 8 * n
;DS: 2 or 4
;l0=t1 increments; 
;MC2: States
;cpd: cpd-decoupling according to sequence loaded by cpdl