" NASA style of VLBI schedule in proc format.
" Station:      WESTFORD   Wf
"
" Template last modification date: 2025.08.19_15:56:45
" Last update:  @update_date@
"
" Hidden procedures: pcalon  rdbe_version pcal_offset  rdbe_status
"
@vers@
define  proc_library  00000000000x
enddef
"
" =================================
"
define  sched_initi   00000000000x
preses_@hds@
setmode_@mode@   
enddef
"
"=================================
"
define  time          00000000000x
rdbe=pps_offset?;
rdbe=dot?;
rdbe=gps_offset?;
enddef
"
"=================================
"
define  dewar         00000000000x
sy=popen -n mcicn 'mcicn mci "g_hrp" 2>&1' &
!+1s
sy=popen -n mcicn 'mcicn mci "g_70ktemp" 2>&1' &
!+1s
sy=popen -n mcicn 'mcicn mci "g_20ktemp" 2>&1' &
enddef
"
"=================================
"=================================
"
define  preses_@hds@   00000000000x
" Duration: 0 sec
"fix for tsys for band d, allows 5point to run
" set the mk6 stream
mk6=input_stream = delete ;
!+4s
mk6=input_stream = add : rdbeA : vdif : 8224 : 42 : 66 : eth2 : 127.0.0.1 : 12000;
mk6=input_stream = add : rdbeB : vdif : 8224 : 42 : 66 : eth3 : 127.0.0.1 : 12000;
mk6=input_stream = add : rdbeC : vdif : 8224 : 42 : 66 : eth4 : 127.0.0.1 : 12000;
mk6=input_stream = add : rdbeD : vdif : 8224 : 42 : 66 : eth5 : 127.0.0.1 : 12000;
mk6=input_stream = commit ;
enddef
"
"=================================
"
define  setmode_@mode@       00000000000x
" Duration: 4 sec
@time_stamp@
" set observing mode @mode@
" set the lo stream
"
lo=
lo=loa0,@lo@,usb,lcp,5
lo=loa1,@lo@,usb,rcp,5
lo=lob0,@lo@,usb,lcp,5
lo=lob1,@lo@,usb,rcp,5
lo=loc0,@lo@,usb,lcp,5
lo=loc1,@lo@,usb,rcp,5
lo=lod0,@lo@,usb,lcp,5
lo=lod1,@lo@,usb,rcp,5
sy=popen 's_client -t 2 -h udca -c udc_lo=@udc_lo@ 2>&1' -n udcca
sy=popen 's_client -t 2 -h udcb -c udc_lo=@udc_lo@ 2>&1' -n udccb
sy=popen 's_client -t 2 -h udcc -c udc_lo=@udc_lo@ 2>&1' -n udccc
sy=popen 's_client -t 2 -h udcd -c udc_lo=@udc_lo@ 2>&1' -n udccd
sy=popen 's_client -t 2 -h udca -c udc_atten=0:5 2>&1'   -n udcca
sy=popen 's_client -t 2 -h udca -c udc_atten=1:5 2>&1'   -n udcca
sy=popen 's_client -t 2 -h udcb -c udc_atten=0:5 2>&1'   -n udccb
sy=popen 's_client -t 2 -h udcb -c udc_atten=1:5 2>&1'   -n udccb
sy=popen 's_client -t 2 -h udcc -c udc_atten=0:5 2>&1'   -n udccc
sy=popen 's_client -t 2 -h udcc -c udc_atten=1:5 2>&1'   -n udccc
sy=popen 's_client -t 2 -h udcd -c udc_atten=0:5 2>&1'   -n udccd
sy=popen 's_client -t 2 -h udcd -c udc_atten=1:5 2>&1'   -n udccd
rdbe_version
enddef
"
"=================================
"
define  setscan_@hds@       00000000000x
" Duration: 0 sec
pcalon
tpicd=stop
rdbe=dbe_data_send=off;
!+1s
rdbea=channels=0:@chsela@;
rdbea=channels=1:@chsela@; 
rdbeb=channels=0:@chselb@;
rdbeb=channels=1:@chselb@;
rdbec=channels=0:@chselc@;
rdbec=channels=1:@chselc@;
rdbed=channels=0:@chseld@;
rdbed=channels=1:@chseld@;
rdbea=pcal_offset=@pcal_step_5@;
rdbeb=pcal_offset=@pcal_step_5@;
rdbec=pcal_offset=@pcal_step_5@;
rdbed=pcal_offset=@pcal_step_5@;
!+1s
rdbe=dbe_data_send=on;
tpicd=no,100
tpicd
enddef
"
"=================================
"
define  preob_@hds@        00000000000x
" Duration: 3 sec
onsource
track
rdbe_atten=
rdbe=dbe_quantize=0;
rdbe=dbe_quantize=1;
rdbe=dbe_bstate?0;
rdbe=dbe_bstate?1;
mk6=rtime?@bit_rate@;
enddef
"
"=================================
"
define  midob_@hds@         00000000000x
" Duration: 0 sec
!+4s
onsource
track
data_valid=on
mk6=dts_id?;
rdbe_version
wx
sy=popen 's_client -h udca -c udc_atten?0 2>&1' -n udcca
sy=popen 's_client -h udca -c udc_atten?1 2>&1' -n udcca
sy=popen 's_client -h udca -c udc_lo? 2>&1' -n udcca
sy=popen 's_client -h udcb -c udc_atten?0 2>&1' -n udccb
sy=popen 's_client -h udcb -c udc_atten?1 2>&1' -n udccb
sy=popen 's_client -h udcb -c udc_lo? 2>&1' -n udccb
sy=popen 's_client -h udcc -c udc_atten?0 2>&1' -n udccc
sy=popen 's_client -h udcc -c udc_atten?1 2>&1' -n udccc
sy=popen 's_client -h udcc -c udc_lo? 2>&1' -n udccc
sy=popen 's_client -h udcd -c udc_atten?0 2>&1' -n udccd
sy=popen 's_client -h udcd -c udc_atten?1 2>&1' -n udccd
sy=popen 's_client -h udcd -c udc_lo? 2>&1' -n udccd
mk6=input_stream?;
pcal_offset
rdbe_atten
rdbe_status
dewar
time
enddef
"
"=================================
"
define  postob_@hds@        00000000000x
" Duration: 2 sec
mk6=msg?;
data_valid=off
mk6=record=off;
mk6=rtime?@bit_rate@;
!+2s
mk6=scan_check?;
enddef
"
"=================================
"
define  postses_@hds@        00000000000x
" Duration: 0 sec
" End of schedule
sched_end
enddef