;rot_prot.incl
; Test the rf on-time and duty cycle
; protect against misset cnst31, rotation speed below 1000 Hz
;$COMMENT=protect against misset cnst31, rotation speed below 1000 Hz
;$CLASS=Solids INCL
;$OWNER=nmrsu
1m
if "d31<1m" goto Passrot
print "rotation period too long, cnst31 misset to less than 1000 Hz!"
goto HaltAcqu
Passrot, 1m