# 1 "/opt/topspin/exp/stan/nmr/lists/pp/user/hncacx2d.kb"
;hncacx2d.kb 
;doubcp.av basic double cp experiment
;cross polarise from H to Y, then from Y to X
;using on resonance proton offset during Y-X transfer
;written by HF 1.3.2001
;set: p3 proton 90 at power level pl12
;p15 contact time at pl1 (f1) and pl2 (f2)
;cpdprg2 cw, tppm (at pl12), 
;p16 X-Y contact time, spnam1 square or ramp, pl5 is Y contact pulse power
;establish H-Y HH condition first 
;make sure p16 does not exceed safe limit

;$OWNER=nmrafd
# 1 "/opt/topspin/exp/stan/nmr/lists/pp/user/trigg.incl" 1
;version (13/08/19)

;$COMMENT=definition of external trigger output, conn I pin 1
;$CLASS=Solids INCL







;$Id: 6u setnmr3|28 \n 4u  setnmr3^28.incl,v 1.1.18.4 2013/08/29 14:05:47 ber Exp $
# 14 "/opt/topspin/exp/stan/nmr/lists/pp/user/hncacx2d.kb" 2

"p30=p31-.4u"

# 1 "mc_line 17 file /opt/topspin/exp/stan/nmr/lists/pp/user/hncacx2d.kb dc-measurement inserted automatically"
    dccorr
# 17 "/opt/topspin/exp/stan/nmr/lists/pp/user/hncacx2d.kb"
1 ze																	;accumulate into an empty memory
2 d1 do:f2														;recycle delay, decoupler off in go-loop
  10u pl2:f2 pl1:f1 pl3:f3						;preselect pl2, pl1 and pl3 for F2 F1 and F3
  p3:f2 ph1														;proton 90 pulse
  0.3u
  (p15 ph2):f3 (p15:spf0 pl4 ph10):f2	;contact pulse with square or ramp
																			;shape on F2, at pl4 proton power level
  1u pl2:f2
  1u cpds2:f2
  d0
  1u do:f2
  1u cpds1:f2													;start cw decoupling at pl12
  (p16 ph4):f1 (p16:spf1 pl5 ph3):f3	;contact pulse with square on F1 at pl1
																			;and square or ramp shape on f3 at pl5
  1u do:f2
  1u pl6:f1
  p1:f1 ph5
  d20
  p1:f1 ph6
  1u cpds2:f2
  1u
  go=2 ph31														;select appropriate decoupling sequence, cw 12 or 13 for lgs
  1m do:f2														;decoupler off
  100m wr #0 if #0 id0 ip2 zd					;save data to disk
lo to 2 times td1
HaltAcqu, 1m													;jump address for protection files
exit																	;quit

ph0 = 0
ph1 = 1 3 
ph2 = 0 
ph3 = 0 0 2 2
ph4 = 0 0 0 0 2 2 2 2 1 1 1 1 3 3 3 3
ph5 = 1 1 1 1 3 3 3 3 2 2 2 2 0 0 0 0
ph6 = 3 3 3 3 1 1 1 1 0 0 0 0 2 2 2 2
ph10= 0
ph31= ph1+ph3+ph4
