The remainder of this file is taken directly from the relevant include file.
c......{Common event flags controlling successful scanning}........
c..................................................................
c ........{Controller to other processes}........
integer * 4 GVR : Global Variable Ready
parameter (GVR = 64)
:Name : GVR = Global variables ready
:Set by : Controller
:When : controller has updated new global variables
:Rec'd by : all other processes except console
:Cleared by: Controller
:When : all processes have acknowledged it
c ...........{Last Pixel & Internal reads}.........
integer * 4 LP_S : DColl Last Pixel for Servo
parameter (LP_S = 65)
:Name : LP_S = Last pixel - Servo
:Set by : Data collector "n LAM" AST
:When : Last pixel is counted by pixel counter
:Rec'd by : Servo
:Cleared by: Servo
:When : received
integer * 4 LP_A : DColl Last Pixel for AOC
parameter (LP_A = 66)
:Name : LP_A = Last pixel _ AOC
:Set by : Data collector "n LAM" AST
:When : Last pixel is counted by pixel counter
:Rec'd by : AOC
:Cleared by: AOC
:When : received
integer * 4 LP_L : DColl Last Pixel for Laser Monitor
parameter (LP_L = 67)
:Name : LP_L = Last pixel _ Laser monitor
:Set by : Data collector "n LAM" AST
:When : Last pixel is counted by pixel counter
:Rec'd by : Laser monitor
:Cleared by: Laser monitor
:When : received
integer * 4 LP_C : DColl "... for Controller
parameter (LP_C = 68)
:Name : LP_C = Last pixel _ Controller
:Set by : Data collector "n LAM" AST
:When : Last pixel is counted by pixel counter
:Rec'd by : Controller
:Cleared by: Controller
:When : received
integer * 4 LP_D
parameter (LP_D = 69)
:Name : LP_D = Last pixel _ Dcoll
:Set by : Data collector "n LAM" AST
:When : Last pixel is counted by pixel counter
:Rec'd by : Dcoll
:Cleared by: Dcoll
:When : received
integer * 4 LP_TIMER_EF
parameter (LP_TIMER_EF = 70)
:Name : LP_timer_ef
:Set by : sys$setimr/ vms innards
:When : lp_timer has elapsed
:Rec'd by : Dcoll
:Cleared by: Dcoll
:When : LP_D is received
integer * 4 INTERNAL_READ_TIMER_EF
parameter (INTERNAL_READ_TIMER_EF = 71)
:Name : Internal read timer ef
:Set by : sys$setimr/ vms innards
:When : internal read timer has elapsed
:Rec'd by : Dcoll
:Cleared by: Dcoll
:When : Received
c ...............{Assorted Data Ready}................
integer * 4 DR : Pixel Data Ready
parameter (DR = 72)
:Name : DR = Data ready
:Set by : Data collector
:When : all pixels from FIFO are in buffer
:Rec'd by : (Laser) data collector
:Cleared by: (Laser) data collector
:When : received
integer * 4 DR_C : Pixel Data Ready _ Controller
parameter (DR_C = 73)
:Name : DR_C = Data ready _ controller
:Set by : Data collector
:When : all pixels from FIFO are in buffer
:Rec'd by : Controller
:Cleared by: Controller
:When : received
integer * 4 LDR : Laser Data Ready
parameter (LDR = 74)
:Name : LDR = laser data ready
:Set by : Laser monitor
:When : all pixels from FIFO are in buffer
:Rec'd by : (Laser) data collector
:Cleared by: (Laser) data collector
:When : received
c ............{Processes ready for next line}.............
integer * 4 AOC_READY : AOC Process Ready
parameter (AOC_READY = 75)
:Name : AOC ready
:Set by : AOC
:When : AOC init completed
:Rec'd by : Data collector
:Cleared by: Data collector
:When : all readies are received
integer * 4 LM_READY : Laser Monitor Process Ready
parameter (LM_READY = 76)
:Name : LM_ready = Laser monitor ready
:Set by : Laser monitor
:When : Laser monitor init completed
:Rec'd by : Data collector
:Cleared by: Data collector
:When : all readies are received
integer * 4 SERVO_READY : Servo Process Ready
parameter (SERVO_READY = 77)
:Name : Servo_ready
:Set by : Servo
:When : servo init completed
:Rec'd by : Data collector
:Cleared by: Data collector
:When : all readies are received
integer * 4 READY_TIMER_EF
parameter (READY_TIMER_EF = 78)
:Name : ready_timer_ef
:Set by : sys$setimr/ vms innards
:When : ready_timer has elapsed
:Rec'd by : Data collector
:Cleared by: Data collector
:When : all readies are received
c .................{Start next line}..................
integer * 4 XGO_S : XGO flag for servo
parameter (XGO_S = 79)
:Name : XGO_S
:Set by : Data collector
:When : data collector init completed
:Rec'd by : Servo
:Cleared by: Servo
:When : received
integer * 4 XGO_C : XGO flag for controller
parameter (XGO_C = 80)
:Name : XGO_C
:Set by : Data collector
:When : data collector init completed
:Rec'd by : Controller
:Cleared by: Controller
:When : received
c .................{First pixel}..................
integer * 4 FIRST_PIXEL
parameter (FIRST_PIXEL = 81)
: The first pixel has been received
: in the FIFO.
:Name : first_pixel
:Set by : DColl "fifo empty" lam AST
:When : The fifo becomes not-empty
:Rec'd by : Data collector
:Cleared by: Data collector
:When : before LAM is booked
: (not when received, so flag is available
: to non-ALIA tuning utilities)
c .................{Stats Ready}..................
integer * 4 STATS_READY_D
parameter (STATS_READY_D = 82)
: QA complete and stats updated
: received and cleared by console
: "D" stands for displays
:Name : Stats_ready_D
:Set by : (laser) data processor
:When : QA is complete & stats have been updated
:Rec'd by : Console ("D" for displays)
:Cleared by: Console
:When : received
:
c.......{Common event flags controlling success/error state}.........
c....................................................................
integer * 4 GREEN : Ready to scan
parameter (GREEN = 83)
:Name : GREEN
:Set by : Controller
:When : Scan begins; error recovery ends; error retry ends
:Rec'd by : Data collector
:Cleared by: any process
:When : any error or pause request occurs
integer * 4 BLUE : (Console) Pause request
parameter (BLUE = 84)
:Name : BLUE
:Set by : Console
:When : Pause request occurs
:Rec'd by : Data collector
:Cleared by: Console
:When : pause request dismissed
integer * 4 AMBER : (Controller) Rec/Retry in progress EH
parameter (AMBER = 85)
:Name : AMBER
:Set by : Controller
:When : Error recovery or retry begins
:Rec'd by :
:Cleared by: Controller
:When : error recovery ends; error retry ends
integer * 4 RED : (Any Process) Error Signal EH
parameter (RED = 86)
:Name : RED
:Set by : Any process
:When : Any error occurs
:Rec'd by : All processes
:Cleared by: Controller
:When : all processes have acknowledged it
c
c......{Common event flags from other processes to controller}.........
c......................................................................
integer * 4 SERVO_ACK : Servo
parameter (SERVO_ACK = 87)
:Name : SERVO_ACK
:Set by : Servo
:When : Responding to RED or controller instruction
:Rec'd by : Controller
:Cleared by: Controller
:When : received
:
integer * 4 DCOLL_ACK : DColl
parameter (DCOLL_ACK = 88)
:Name : DCOLL_ACK
:Set by : Dcoll
:When : Responding to RED or controller instruction
:Rec'd by : Controller
:Cleared by: Controller
:When : received
:
integer * 4 AOC_ACK : AOC
parameter (AOC_ACK = 89)
:Name : AOC_ACK
:Set by : Aoc
:When : Responding to RED or controller instruction
:Rec'd by : Controller
:Cleared by: Controller
:When : received
:
integer * 4 LASER_MONITOR_ACK : LMP
parameter (LASER_MONITOR_ACK = 90)
:Name : LASER_MONITOR_ACK
:Set by : Laser monitor
:When : Responding to RED or controller instruction
:Rec'd by : Controller
:Cleared by: Controller
:When : received
integer * 4 DATA_PROCESSOR_ACK : LDP
parameter (DATA_PROCESSOR_ACK = 91)
:Name : DATA_PROCESSOR_ACK
:Set by : Data processor
:When : Responding to RED or controller instruction
:Rec'd by : Controller
:Cleared by: Controller
:When : received
:
integer * 4 CONSOLE_ACK : Console
parameter (CONSOLE_ACK = 92)
:Name : CONSOLE_ACK
:Set by : Console
:When : Responding to RED or controller instruction
:Rec'd by : Controller
:Cleared by: Controller
:When : received
integer * 4 ACK_TIMER_EF
parameter (ACK_TIMER_EF = 93)
:Name : ack_timer_ef
:Set by : sys$setimr/ vms innards
:When : ack_timer has elapsed
:Rec'd by : Controller
:Cleared by: Controller
:When : all acks are received
integer * 4 PASS_TIMER_EF
parameter (PASS_TIMER_EF = 94)
:Name : pass_timer_ef
:Set by : sys$setimr/ vms innards
:When : pass_timer has elapsed
:Rec'd by : Servo
:Cleared by: Servo
:When : LP-S is received
integer * 4 SCAN_OVER_CL2
parameter (SCAN_OVER_CL2 = 95)
:Name : scan_over_cl2
:Set by : controller
:When : scan has succesfully completed
:Rec'd by : AOC, LM, Servo
:Cleared by:
:When :
c
c ............ Cluster 2 has 95 - 95 = 0 efs left..........
c.............................................................................
c
c********************************************************************
C Common EF for cluster 3 , total bytes = 12
integer * 4 SCAN_OVER
parameter (SCAN_OVER = 96)
integer * 4 SCAN_DEAD
parameter (SCAN_DEAD = 97)
integer * 4 GROUP_OF_LINES_DONE
parameter (GROUP_OF_LINES_DONE = 98)
: set by controller when a user specified
: number of lines has been completed
:Name : group_of_lines_done
:Set by : Controller
:When : a user-specified number of lines has been completed
:Rec'd by : any external processes
:Cleared by: any external processes
:When : received (?)
c......{Common event flags from controller to other processes}.........
c......................................................................
integer * 4 SERVO_WAKE : Servo Rec/Retry EH
parameter (SERVO_WAKE = 99)
:Name : SERVO_WAKE
:Set by : Controller
:When : instructing servo to recover or retry
:Rec'd by : Servo
:Cleared by: Servo
:When : received
integer * 4 DCOLL_WAKE : Dcoll Rec/Retry EH
parameter (DCOLL_WAKE = 100)
:Name : DCOLL_WAKE
:Set by : Controller
:When : instructing dcoll to recover or retry
:Rec'd by : Dcoll
:Cleared by: Dcoll
:When : received
:
integer * 4 AOC_WAKE : AOC Rec/Retry EH
parameter (AOC_WAKE = 101)
:Name : AOC_WAKE
:Set by : Controller
:When : instructing aoc to recover or retry
:Rec'd by : Aoc
:Cleared by: Aoc
:When : received
:
integer * 4 LASER_MONITOR_WAKE : LMP Rec/Retry EH
parameter (LASER_MONITOR_WAKE = 102)
:Name : LASER_MONITOR_WAKE
:Set by : Controller
:When : instructing laser monitor to recover or retry
:Rec'd by : Laser monitor
:Cleared by: Laser monitor
:When : received
:
integer * 4 DATA_PROCESSOR_WAKE : LDP Rec/Retry EH
parameter (DATA_PROCESSOR_WAKE = 103)
:Name : DATA_PROCESSOR_WAKE
:Set by : Controller
:When : instructing data processor to recover or retry
:Rec'd by : Data processor
:Cleared by: Data processor
:When : received
:
integer * 4 CONSOLE_WAKE : CONSOLERec/RetryEH
parameter (CONSOLE_WAKE = 104)
:Name : CONSOLE_WAKE
:Set by : Controller
:When : instructing console to recover or retry
:Rec'd by : Console
:Cleared by: Console
:When : received
:
c
integer * 4 DW : DP flag for Data Written
parameter (DW = 105)
:Name : DW = Data written
:Set by : Data processor
:When : current line has been written
:Rec'd by : ?? external processes?? Think about this
:Cleared by: ??
:When : received
integer * 4 SAC_COMMAND_FLAG : SAC flag to do something.
parameter (SAC_COMMAND_FLAG = 106)
:Name : SAC_COMMAND_FLAG
:Set by : Controller (or others?)
:When : it wants the stand alone console to do something
:Rec'd by : Stand Alone Console
:Cleared by: "
:When : received
integer * 4 SAC_ACK : SAC flag indicating operation complete
parameter (SAC_ACK = 107)
:Name : SAC_ACK
:Set by : Stand Alone Console
:When : the stand alone console has completed something
:Rec'd by : Controller (or others?)
:Cleared by: "
:When : received
integer * 4 SERVO_NULL : Servo flag indicating system null
parameter (SERVO_NULL = 108)
:Name : SERVO_NULL
:Set by : Servo process
:When : System null SRQ is received
:Rec'd by : external utility
:Cleared by: "
:When : received
c
c ....... Cluster 3 has 127-108=19 efs left........
c.........................................................................
c.........................................................................
c Add some useful arrays.
integer*4 num_of_acks
parameter (num_of_acks = 4)
integer*4 ack_efs(num_of_acks)
1 / servo_ack, dcoll_ack, aoc_ack, laser_monitor_ack /
integer*4 num_of_wakes
parameter (num_of_wakes = 6)
integer*4 wake_efs(num_of_wakes)
1 / servo_wake, dcoll_wake, aoc_wake, laser_monitor_wake,
1 data_processor_wake, console_wake /
integer*4 num_of_procs
parameter (num_of_procs = 3)
integer*4 procs_ready_efs(num_of_procs)
1 / servo_ready, lm_ready, aoc_ready /
integer*4 num_of_drs
parameter (num_of_drs = 2)
integer*4 data_ready_efs(num_of_drs)
1 / DR, LDR /
Vicki Laidler -- laidler@stsci.edu
Last updated 6/9/95