# 1 "/opt/topspin/exp/stan/nmr/lists/pp/user/cpav.jgh"
;cpav.jgh basic cp experiment
;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), or lgs (FSLG-decoupling with phase gradient shape,
;specified with sp1 and p10, here pl13 is used instead of pl12)

;$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 $
# 9 "/opt/topspin/exp/stan/nmr/lists/pp/user/cpav.jgh" 2

			;10 usec trigger pulse at TCU connector I cable 6
"p30=p31-.4u"
;for cpdprg2=tppm
"p6 = p5-.4u"  	;for cpdprg2=pmlgsk
"blktr2=1u"
"blktr1=1u"

;cnst11 : to adjust t=0 for acquisition, if digmod = baseopt
"acqt0=1u*cnst11"




# 1 "mc_line 23 file /opt/topspin/exp/stan/nmr/lists/pp/user/cpav.jgh dc-measurement inserted automatically"
    dccorr
# 23 "/opt/topspin/exp/stan/nmr/lists/pp/user/cpav.jgh"
1 ze			;accumulate into an empty memory

2 d1 do:f2		;recycle delay, decoupler off in go-loop
;#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:f2
  10u pl2:f2 pl1:f1	;preselect pl12 drive power for F2, pl1 for F1
;  2u amp=cnst12:f2 amp=cnst1:f1
  6u setnmr3|28 \n 4u  setnmr3^28			;trigger for scope, 10 usec
  p3:f2 ph1		;proton 90 pulse
;  0.3u fq=cnst24:f2
  (p15 ph2):f1 (p15:spf0 pl3 ph10):f2 	;contact pulse with square or ramp
  1u pl12:f2			;shape on F2, at pl2 proton power level
  1u fq=cnst21:f2
  1u cpds2:f2 		;power level specified in cpd program
  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 0 2 2 1 1 3 3
ph10= 0
ph31= ph1+ph2
