CP-CPMG pulse program for xwinnmr3.5 operating system

Code for Avance spectrometers with xwinnmr3.5 operating system

; cpqcpmgall.av (xwinnmr3.5)

; basic cp experiment with CPMG detection

; samples continuously, including ALL pulses and ringdown delays
; may be used with digital mode
; in edasp, connect logical channels F1 and F2 to same hardware channel
; in edasp, logical channels F1 and F2 must have the same offset (OFSX1 = OFSX2)
; in eda, O1 and O2 must have the same value
; limitations:
; pulses and delays must be integer multiples of dw * 2, 
; e.g. for dw = 1 us, all pulses and delays must be integer multiple of 2 us
; in edasp, connect logical channels F1 and F2 to same hardware channel
; in edasp, logical channels F1 and F2 must have the same offset (OFSX1 = OFSX2)
; in eda, O1 and O2 must have the same value
  

;parameters:
;ns : 8*n
;p3 : proton 90° pulse at power level pl12
;p4 : 180 degree pulse in CPMG at pl22
;p15 : contact time at pl1 (f1) and pl2 (f2)
;p31 : pulse interval for CPD

;pl1 : X power level during contact
;pl12 : decoupling power level (if not pl13)
;pl13 : special decoupliong power level
;pl22 : rf power level for CPMG

;d1 : recycle delay
;d3 : time to allow pulse ringdown, 10 to 100 us
;d6 : enter duration of FID
;spnam0 : use e.g. ramp.100 for variable amplitude CP

;cpdprg3 : cw, tppm (at pl12), or lgs, cwlg. cwlgs (LG-decoupling 
;here pl13 is used instead of pl12)

;p25 : dummy pulse, not used for acq.
;l22 : # of echos to be acquired
;cnst1 : set td to number of acquired complex data points, td=cnst1

#include <lgcalc.incl>
"p30=p31-0.4u"
;cnst20 : decoupling RF field in Hz achieved at pl13
;cnst21 : on resonance, usually = 0
;cnst22 : positive LG-offset
;cnst23 : negative LG-offset
;cnst24 : additional LG-offset

#include <trigg.incl>
                 ;10 usec trigger pulse at TCU connector I cable 6
#include <Avancesolids.incl>

#define DE1   (de1 rde1 adc ph31 syrec)
#define DE2   (de2 rde2 ph30:r):f1
#define DERX  (derx rderx RGP_RX_ON)
#define DEADC (deadc rdeadc RGP_ADC_ON)
#define DEPA  (depa rdepa RGP_PA_ON)
#define DE3   (de)

define delay rde1
define delay rde2
define delay rderx
define delay rdeadc
define delay rdepa

"rde1=de-de1"
"rde2=de-de2"
"rderx=de-derx"
"rdeadc=de-deadc"
"rdepa=de-depa"

define delay del6
"del6=d6/2"
"cnst1=(10+p3+p15+d3*(l22*2+1)+p4*l22+d6*l22*2)/dw"
"p25=1/cnst1"

1 ze
2 d1                            do:f3      ;recycle delay, decoupler off

#include <prp15.prot>
            ;make sure p15 does not exceed 10 msec
            ;let supervisor change this pulseprogram if 
            ;more is needed
#include <praq.prot>
            ;allows max. 50 msec acquisition time, supervisor
            ;may change to max. 1s at less than 5% duty cycle
            ;and reduced decoupling field

  1u                     fq=cnst21:f3
  10u reset:f1    reset:f2   reset:f3
  DE1 DE2 DERX DEADC DEPA DE3
  1u DWELL_GEN
  10u pl1:f2                  pl12:f3     ;preselect pl1 drive power for F2, pl12 for F3
                          (p3 ph1):f3     ;proton 90° pulse
  (p15 ph2):f2 (p15:spf0 pl2 ph10):f3     ;contact pulse with square or ramp shape for F3
                                          ;at pl2 proton power level
  d3                         cpds3:f3     ;decoupling according to sequence defined by cpdprg3
                                          ;select appropriate decoupling sequence, cw or
                                          ;tppm, both executed at power level pl12, or
                                          ;lgs executed at power pl13
  (p4 ph2):f2
  d3
3 d6
  d3
  (p4 ph3):f2
  d3
  d6
  lo to 3 times l22
  aq
  rcyc=2
  1m                            do:f3     ;decoupler off
  wr #0                                   ;save data to disk
HaltAcqu, 1m                              ;jump address for protection files
exit                                      ;quit

ph0= 0
ph1= 1 3
ph2= 0 0 2 2 1 1 3 3
ph3= 0 0 2 2 1 1 3 3
ph10=0
ph30=0
ph31=0 2 2 0 1 3 3 1