# 1 "/opt/topspin/exp/stan/nmr/lists/pp/user/hncacx1d.kb"
;hncacx1d.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/hncacx1d.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/hncacx1d.kb dc-measurement inserted automatically"
    dccorr
# 32 "/opt/topspin/exp/stan/nmr/lists/pp/user/hncacx1d.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														;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 pl6:f1
  p1:f1 ph5
  d20
  p1:f1 ph6
  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
  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
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
