# 1 "/opt/topspin/exp/stan/nmr/lists/pp/user/hnca2d3.kb"
;hnca2d3.kb
;dcpav.jgh --- 16/01/02
;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 $
# 16 "/opt/topspin/exp/stan/nmr/lists/pp/user/hnca2d3.kb" 2

			;10 usec trigger pulse at TCU connector I cable 6
;#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

"p30=p31-.4u"
;"blktr2=1u"
;"blktr1=1u"


# 1 "mc_line 32 file /opt/topspin/exp/stan/nmr/lists/pp/user/hnca2d3.kb dc-measurement inserted automatically"
    dccorr
# 32 "/opt/topspin/exp/stan/nmr/lists/pp/user/hnca2d3.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
;  2u amp=cnst1:f1 amp=cnst12:f2 amp=cnst3:f3
  6u setnmr3|28 \n 4u  setnmr3^28					;trigger for scope, 10 usec
  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 amp=cnst12: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 cpds2:f2
  1u
  go=2 ph31				;select appropriate decoupling sequence, cw or
					;tppm, both executed at power level 12, or lgs
					;executed at power level pl13
  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
ph10= 0
ph31= ph1+ph3+ph4
