# 1 "/opt/topspin/exp/stan/nmr/lists/pp/user/cp90av.jgh"
;cp90av.jgh basic cp experiment with flipback 90 at pl11
;written by HF 1.3.2001
;set: p3 proton 90 at power level pl12
;p15 contact time at pl1 (f1) and pl2 (f2)
;pl11 to determine X 90 or 180 degree pulse
;cpdprg2 cw, tppm (at 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/cp90av.jgh" 2

			;10 usec trigger pulse at TCU connector I cable 6

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



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

2 d1 			;recycle delay, decoupler off in go-loop
  2u do:f2
;#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
  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
  (p15 ph2):f1 (p15:spf0 pl3 ph10):f2 	;contact pulse with square or ramp
			;shape on F2, at pl2 proton power level
  1u pl12:f2 pl11:f1
;  2u amp=cnst11:f1 ;  2u amp=cnst22:f2
  (p1 ph3):f1 (2u 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 0 2 2 1 1 3 3
ph3= 1 1 3 3 2 2 0 0
ph10= 0
ph31= ph1+ph2
