;syscp.98 - ;cp with power level switching ;proton spin lock pulse with shape: ;use sp0 square.64 for cw HH match ;use sp0 ramp.64 for vacp ;or calculate desired cosine modulated or tangential sweep pulses ;using shapetool ;sp0 is F2 power level for contact, ;pl12 is power level for decoupling and initial 90 degree pulse on F2 ;power level switching is done on transmitter input ;tube transmitters with gain level switching use hgain2 for cp and ;decoupling ;set p3=proton 90 degree pulse at pl12 ;set sp0=pl12+2 or 3 dB, set pl1 for HH match ;select cpd2=cw or tppm15 or tppm20 ;set p31=2*p3-200ns #include ;#include ;powerlevel protection, to be implemented ;#include ;protect for p15>10msec ;#include ;protect for aq>50msec 1 ze 2 d1 do:f2 ;recycle delay, make sure decoupler is off ;hgain2 ;switch H/F transmitter to gain level 2 2u pl1:f1 ;set HH power level on F1 2u pl12:f2 ;preselect pl2 drive power for F2 ;trigg ;trigger for scope on SMB/BNC NMR5-13 p3:f2 ph1 ;proton 90 pulse 3u ;prepare shape with SHAPPR=1.6 usec (p15 ph2):f1 (p15:sp0 ph3):f2 ;generate ramp shape with 100 to 50% down, ;use square.64 or ramp.64 shape for sp0 1u pl12:f2 ;reset decoupler pwoer after shape 1u cpds2:f2 ;specify desired cpd2 program go=2 ph31 ;start acquisition with de predelay 1m do:f2 ;make sure decoupler is off 100m wr #0 ;save data under current dataset ;HaltAcqu, 1m exit ph1= 1 3 ph2= 0 0 2 2 1 1 3 3 ph3= 0 ph31= 0 2 2 0 1 3 3 1