"Procedures for 3MM94A at HAYSTACK
"starting on day 336, 94 DEC 2
"Produced using PC-SCHED 3.5
"Experiment name: 3MM94A
"P.I.: T.P.KRICHBAUM 
"To be correlated at: BONN 
"
"Comment: Phasecal ON always! Phasecal off for VXSGR/SGRA scans.  
"
DEFINE  TSYS          00000000000X
"This procedure works for single-receiver experiments or "
" for two-receiver (polarization) experiments provided "
" that IF1 and the ODD video converters go to one receiver "
" and IF2 and the EVEN video converters go to the other."
CAL=OFF
!+3S
ONSOURCE
TPI=ODD,IF1
TPI=EVEN,IF2
CAL=ON
!+3S
TPICAL=ODD,IF1
TPICAL=EVEN,IF2
CAL=OFF
"Replace CALTEMPns below with proper values, please."
CALTEMP1=100.0
TSYS1=ODD,IF1
CALTEMP2=100.0
TSYS2=EVEN,IF2
ENDDEF
"
DEFINE  TANT          00000000000X
"This procedure works poorly and only for strong sources."
"Take the difference between on- and off-source TSYSs."
XLOG=ON
"Following TSYS made ON source."
XLOG=OFF
TSYS
"Off +1 degree in elevation."
AZELOFF=0S,1D
XLOG=ON
"Following TSYS made OFF source"
XLOG=OFF
!+15S
TSYS
AZELOFF=0S,0S
ENDDEF
"
DEFINE  UNLOD         00000000000X
CHECK=*,-TP
ENABLE=,
TAPE=OFF
ST=REV,120
SY=RU,ALRM
XDISP=ON
"************ Dismount Mark-III tape now, please ********"
WAKEUP
XDISP=OFF
ENDDEF
"
DEFINE  PEAK          00000000000X
"Run an automatic DSS.  Note DSSJB does NOT transfer "
" the pointing offsets to affect subsequent pointing."
SY=RU,RP,DSSJB
!+3S
XDISP=ON
"RP:FMGR ERR 23 DSSJB is OK"
XDISP=OFF
SY=RU,DSSJB
"Remember to send the DSS logs to the investigator!"
ENDDEF
"
DEFINE  STOP          00000000000X
SY=RU,ALRM
"There is a break in the schedule"
WAKEUP
SCHEDULE=XX,#1
ENDDEF
"
DEFINE  VALARM        00000000000X
VC01=ALARM
VC02=ALARM
VC03=ALARM
VC04=ALARM
VC05=ALARM
VC06=ALARM
VC07=ALARM
VC08=ALARM
VC09=ALARM
VC10=ALARM
VC11=ALARM
VC12=ALARM
VC13=ALARM
VC14=ALARM
ENDDEF
"
DEFINE  READY         00000000000X
CHECK=*,-TP
TAPE
TAPE=ALARM
XDISP=ON
"********** Mount a new Mark-III tape now, please ****"
NEWTAPE
XDISP=OFF
TAPE=ALARM
TAPE=LOW,RESET
TAPE
ST=FOR,120
!+5S
ET
!+5S
TAPE
LABEL
CHECK=*,TP
ENDDEF
"
DEFINE  MIDOB         00000000000X
REPRO=BYP,*,*,*
ONSOURCE
VREDA
IFD
FORM
TAPE
WX
ENDDEF
"
DEFINE  POSTOB        00000000000X
TSYS
ENDDEF
"
DEFINE  PREOB         00000000000X
TSYS
ENDDEF
"
DEFINE  MIDTP         00000000000X
"Null MIDTP--does nothing"
ENDDEF
"
DEFINE  VREDA         00000000000X
VC01
VC02
VC03
VC04
VC05
VC06
VC07
VC08
VC09
VC10
VC11
VC12
VC13
VC14
ENDDEF
"
DEFINE  FASTR         00000000000X
TAPE=LOW
RW
!+$
ET
ENDDEF
"
DEFINE  FASTF         00000000000X
TAPE=LOW
FF
!+$
ET
ENDDEF
"
DEFINE  AUXALL        00000000000X
MAT=#92=FFFFFFFF$!
MAT=#92=FFFF0000$%
ENDDEF
"
DEFINE  CHECK2A1      00000000000X
"NULL -- please define a check"
ENDDEF
"
DEFINE  CHECK2A2      00000000000X
"NULL -- please define a check"
ENDDEF
"
DEFINE  TAPEFRMA      00000000000X
"Change name of this proc if you need TAPEFORMA"
"Normally TAPEFORMA will come from station proc file"
TAPEFORM=1,-350,2,0,3,-295,4,55,5,-240,6,110
TAPEFORM=7,-185,8,165,9,-130,10,220,11,-75,12,275
ENDDEF
"
DEFINE  TAPEFRMB      00000000000X
"Change name of this proc if you need TAPEFORMB"
"Normally TAPEFORMB will come from station proc file"
TAPEFORM=1,-330,2,-330,3,-275,4,-275,5,-220,6,-220
TAPEFORM=7,-165,8,-165,9,-110,10,-110,11,-55,12,-55
TAPEFORM=13,0,14,0,15,55,16,55,17,110,18,110
TAPEFORM=19,165,20,165,21,220,22,220,23,275,24,275
ENDDEF
"
DEFINE  TAPEFRMC      00000000000X
"Change name of this proc if you need TAPEFORMC"
"Normally TAPEFORMC will come from station proc file"
TAPEFORM=1,-330,2,-330,3,-275,4,-275,5,-220,6,-220
TAPEFORM=7,-165,8,-165,9,-110,10,-110,11,-55,12,-55
TAPEFORM=13,0,14,0,15,55,16,55,17,110,18,110
TAPEFORM=19,165,20,165,21,220,22,220,23,275,24,275
ENDDEF
"
DEFINE  MA4A1         00000000000X
TAPEFORMA
FORM=A,8
HEAD=B,$
AUXALL
PATCH=LO1,1L,3L,5L,7L,9L,11L,13L
PATCH=LO2,2L,4L,6L,8L,10L,12L,14L
VC01=176.99,4.000
VC02=152.99,4.000
VC03=184.99,4.000
VC04=160.99,4.000
VC05=192.99,4.000
VC06=168.99,4.000
VC07=200.99,4.000
VC08=232.99,4.000
VC09=208.99,4.000
VC10=240.99,4.000
VC11=216.99,4.000
VC12=248.99,4.000
VC13=224.99,4.000
VC14=256.99,4.000
LO=86040.0,86040.0
!+1S
VALARM
IFD=*,*,NOR,ALT
TAPE=ALARM
ET
ENABLE=G1,G2,G3,G4
TAPE=LOW
REPRO=BYP,*,*,4
TAPE=ALARM
FORM=ALARM
ENDDEF
"
DEFINE  MA4A2         00000000000X
TAPEFORMA
FORM=A,8
HEAD=B,$
AUXALL
PATCH=LO1,1L,3L,5L,7L,9L,11L,13L
PATCH=LO2,2L,4L,6L,8L,10L,12L,14L
VC01=176.99,4.000
VC02=152.99,4.000
VC03=184.99,4.000
VC04=160.99,4.000
VC05=192.99,4.000
VC06=168.99,4.000
VC07=200.99,4.000
VC08=232.99,4.000
VC09=208.99,4.000
VC10=240.99,4.000
VC11=216.99,4.000
VC12=248.99,4.000
VC13=224.99,4.000
VC14=256.99,4.000
LO=86040.0,86040.0
!+1S
VALARM
IFD=*,*,NOR,ALT
TAPE=ALARM
ET
ENABLE=G1,G2,G3,G4
TAPE=LOW
REPRO=BYP,*,*,4
TAPE=ALARM
FORM=ALARM
ENDDEF