# 1 "/home/nmr/prog/pp/HMQC2md"
; HMQC2.dm	D. Massiot 24/08/95

# 1 "/home/nmr/prog/pp/Avancesolids.incl" 1
;Avancesolids.incl
;   for TCU3
;
;version 1 28.2.2001, written by HF
;	   4.4.2006, complemented by Ste

;$CLASS=Solids INCL
;$COMMENT=definitions for setrtp and setnmr
# 10 "/home/nmr/prog/pp/Avancesolids.incl"
;switch between 1H or 19F output (H amplifier) 


# 14 "/home/nmr/prog/pp/Avancesolids.incl"
;gating pulse for RX, ADC and HPPR auto mode


# 18 "/home/nmr/prog/pp/Avancesolids.incl"
;explicit blanking of preamp, receiver, adc, not implemented yet


# 26 "/home/nmr/prog/pp/Avancesolids.incl"
;generate dwell clock


;turn dwell clock on/off
# 32 "/home/nmr/prog/pp/Avancesolids.incl"
;


# 36 "/home/nmr/prog/pp/Avancesolids.incl"
;define data sampling for WAHUHA type experiments, samples analogue or digitally for d9, closes receiver


# 40 "/home/nmr/prog/pp/Avancesolids.incl"
;explicit transmitter blanking, not supported yet

;NCO switching, to be implemented

;$id: $
# 3 "/home/nmr/prog/pp/HMQC2md" 2
# 4 "/home/nmr/prog/pp/HMQC2md"
;cnst11: to adjust t=0 for acquisition, if digmod = baseopt
"acqt0=1u*cnst11"


"p2=2*p1"
"d6=l6*(1s/cnst31)-(p1/2)-(p2/2)"
"d0=0.5s/cnst31"
# 12 "/home/nmr/prog/pp/HMQC2md"
"in0=inf1/2"

# 1 "mc_line 14 file /home/nmr/prog/pp/HMQC2md exp. def. part of mc cmd. before ze"
define delay MCWRK
define delay MCREST
define loopcounter ST1CNT
"ST1CNT = td1 / 2"
"MCREST = 20m - 10m"
"MCWRK = 0.333333*10m"

    dccorr
# 14 "/home/nmr/prog/pp/HMQC2md"
1 	ze
# 1 "mc_line 14 file /home/nmr/prog/pp/HMQC2md exp. def. of mc cmd. after ze"
# 15 "/home/nmr/prog/pp/HMQC2md"
# 1 "mc_line 15 file /home/nmr/prog/pp/HMQC2md exp. start label for mc cmd."
2 MCWRK 
LBLSTS1, MCWRK 
LBLF1, MCWRK
  MCREST
# 16 "/home/nmr/prog/pp/HMQC2md"
		d1

  	(p1 ph1):f1
# 20 "/home/nmr/prog/pp/HMQC2md"
		d6
			(p11 ph11):f3

		  d0 

		(p2 ph2):f1
			d0
			(p11 ph12):f3
	
  	go=2 ph31 
# 1 "mc_line 31 file /home/nmr/prog/pp/HMQC2md exp. mc cmd. in line"
  MCWRK  wr #0 if #0 zd ip11
  lo to LBLSTS1 times 2
  MCWRK id0
  lo to LBLF1 times ST1CNT
  MCWRK
# 32 "/home/nmr/prog/pp/HMQC2md"
# 32 "/home/nmr/prog/pp/HMQC2md"
exit

ph1  = 0 0
ph2  = 0 0 1 1 2 2 3 3
ph11 = 0 0 
ph12 = 0 2

ph31 = 0 2 2 0
# 41 "/home/nmr/prog/pp/HMQC2md"
;pl1: f1 channel - power level for pulse (default)
;p1: f1 channel -  high power pulse
;d1: relaxation delay; 1-5 * T1
;d0: 2u min
