# 1 "/opt/topspin/exp/stan/nmr/lists/pp/user/hnca2.kb"
;hnca2.kb copied from dcpav.test
;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 $
# 15 "/opt/topspin/exp/stan/nmr/lists/pp/user/hnca2.kb" 2


"p30=p31-.4u"


# 1 "mc_line 20 file /opt/topspin/exp/stan/nmr/lists/pp/user/hnca2.kb dc-measurement inserted automatically"
    dccorr
# 20 "/opt/topspin/exp/stan/nmr/lists/pp/user/hnca2.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
  1u pl2:f2														;shape on F2, at pl4 proton power level
  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 cpds2:f2
  go=2 ph31														;select appropriate decoupling sequence, cw or
	1m do:f2														;decoupler off
  wr #0																;save data to disk
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
ph10= 0
ph31= ph1+ph3+ph4
