proc shortat

LOCAL starttime

; November 21, 2005.  Adapted from ecr218atnew.proc.  Modified by Scott Koch to
; support testing of new flight AT sequences.

;Altered by LKG for use with current setup
;No go to idle first

; A standard AT at a new location.
; Expect it to go idle to slew to settling
; to finding to AT to AT to AT.

;Computed the AT trigger time.  In this case we want the spacecraft clock time
;when the "in 10 arcminutes" bit is set to be about 82 seconds from now.  This
; represents a nominal detection to slew period.  Add several quantities to
; account for various procs and WAITs below.

  starttime = sacssclksecs - 82 + 5 + 2 + 2 + 1 + 10

;Notify that slew is imminent

  /sislewwarning

;Wait the 2 secs allowed for reply
;SEEMS TO NEED LONGER, GIVEN 5 NOW  

  wait 5

;Set up and send the first SISCATTITUDE of the slew

    obsseg = 0x55          ;first two digits of new obsnum
    targetid = 0x001202    ;last six digits of new obsnum (1-6, safept only)
    issettled = 0          ;is settled on target flag becomes false
    isin10min = 0          ;is within 10 arcmin of target flag becomes false

    start changeatt

;Set up and send FONEXTOBSINFO

    fomobsnum = obsnum     ;set to same as for siscattitude above
    fomtrigsec = starttime ;trigger time seconds, seriously fudged
                           ;hopefully we hit first expo approx 200s after burst
    fomtrigsubsec = 0      ;trigger time subseconds
    fombatmode = 0         ;BAT mode
    fomxrtmode = 0         ;XRT mode
    fomuvotmode = 0x8000   ;UVOT mode (0x8000 onwards for ATs)
    fomra = 189.5            ;target RA
    fomdec = -10.5          ;target declination
    fomroll = 180.0          ;target roll
    fommeritval = 1.0      ;merit value
    fomobssec = 1400       ;permitted observation time in seconds
    fompastobstime = 0     ;previous time looking at this target in secs
    fomisnewatslew = 1     ;is new at slew flag (true for a first AT)
    fomtargtype = 0        ;target type (always 0 for ATs)
 
    start sendfom

; Set up and send BATGRBFLUXINFO

wait 1 

/ibatgrbfluxinfo peak_intensity=5000,obs_num=0x55001202,spare=0;

;Optional wait

    wait 10

;Set up and send before-settling SISCATTITUDE

    ra = fomra             ;set RA to same as fonextobsinfo above
    dec = fomdec           ;ditto declination
    roll = fomroll         ;ditto roll

    isin10min = 1          ;is within 10 arcmin of target flag becomes true

    start changeatt

;Set up and send last SISCATTITUDE of slew

    wait 10

    issettled = 1          ;is settled on target flag becomes true
 
    start changeatt


; Slew away from new GRB
	wait (fomobssec - 10 - 10)

; =============================================================================
; End of first snapshot
; =============================================================================


    /sislewwarning

    wait 5

    obsseg = 0x54          ;first two digits of new obsnum
    targetid = 0x001201    ;last six digits of new obsnum (1-6, safept only)
    issettled = 0          ;is settled on target flag becomes true
    isin10min = 0          ;is within 10 arcmin of target flag becomes true

    start changeatt

;Set up and send FONEXTOBSINFO

    fomobsnum = obsnum     ;set to same as for siscattitude above
    fomtrigsec = starttime ;trigger time seconds, seriously fudged
                           ;hopefully we hit first expo approx 200s after burst
    fomtrigsubsec = 0      ;trigger time subseconds
    fombatmode = 0         ;BAT mode
    fomxrtmode = 0         ;XRT mode
    fomuvotmode = 0x1005   ;UVOT mode (0x8000 onwards for ATs)
    fomra = 1.0              ;target RA
    fomdec = 2.0            ;target declination
    fomroll = 3.0            ;target roll
    fommeritval = 1.0      ;merit value
    fomobssec = 2760       ;permitted observation time in seconds
    fompastobstime = 0     ;previous time looking at this target in secs
    fomisnewatslew = 0     ;is new at slew flag (true for a first AT)
    fomtargtype = 2        ;target type (always 0 for ATs)

    start sendfom

    wait 60                ; slew

; Look at another target until the new GRB is viewable again - usually 46
; minutes.

    ra   = 1.0
    dec  = 2.0
    roll = 3.0

    isin10min = 1          ;is within 10 arcmin of target flag becomes true

    start changeatt

    wait 10

    issettled = 1          ;is settled on target flag becomes true

    start changeatt

    wait 2760
; =============================================================================
; End of viewing PT.
; =============================================================================

; Begin second snapshot


;Notify that slew is imminent

  /sislewwarning

;Wait the 2 secs allowed for reply
;SEEMS TO NEED LONGER, GIVEN 5 NOW

  wait 5

;Set up and send the first SISCATTITUDE of the slew

    obsseg = 0x55          ;first two digits of new obsnum
    targetid = 0x001202    ;last six digits of new obsnum (1-6, safept only)
    issettled = 0          ;is settled on target flag becomes false
    isin10min = 0          ;is within 10 arcmin of target flag becomes false

    start changeatt


;Set up and send FONEXTOBSINFO

    starttime = sacssclksecs - 1400 - 60 - 2760

    fomobsnum = obsnum     ;set to same as for siscattitude above
    fomtrigsec = starttime ;trigger time seconds, seriously fudged
                           ;hopefully we hit first expo approx 200s after burst
    fomtrigsubsec = 0      ;trigger time subseconds
    fombatmode = 0         ;BAT mode
    fomxrtmode = 0         ;XRT mode
    fomuvotmode = 0x8000   ;UVOT mode (0x8000 onwards for ATs)
    fomra = 189.5            ;target RA
    fomdec = -10.5          ;target declination
    fomroll = 180.0          ;target roll
    fommeritval = 1.0      ;merit value
    fomobssec = 2600       ;permitted observation time in seconds
    fompastobstime = 1400  ;previous time looking at this target in secs
    fomisnewatslew = 0     ;is new at slew flag (true for a first AT)
    fomtargtype = 0        ;target type (always 0 for ATs)

    start sendfom

;Optional wait

    wait 10

;Set up and send before-settling SISCATTITUDE

    ra = fomra             ;set RA to same as fonextobsinfo above
    dec = fomdec           ;ditto declination
    roll = fomroll         ;ditto roll

    isin10min = 1          ;is within 10 arcmin of target flag becomes true

    start changeatt

;Set up and send last SISCATTITUDE of slew

    wait 10

    issettled = 1          ;is settled on target flag becomes true

    start changeatt

endproc