Commit e264f9ab authored by Thanassis Tsiodras's avatar Thanassis Tsiodras
parents c3decfd1 f800c90a
...@@ -15,13 +15,13 @@ Destination-T ::= ENUMERATED { displayer(0), other-dest(1) } ...@@ -15,13 +15,13 @@ Destination-T ::= ENUMERATED { displayer(0), other-dest(1) }
TC-T ::= SEQUENCE TC-T ::= SEQUENCE
{ {
destination Destination-T, destination Destination-T,
action Action-T action Action-T DEFAULT display:'48656C6C6F'H
} }
TM-T ::= Display-T TM-T ::= Display-T
HK-T ::= SEQUENCE { HK-T ::= SEQUENCE {
value-to-plot INTEGER (0..16535), value-to-plot INTEGER (0..16535) DEFAULT 42,
destination Destination-T destination Destination-T
} }
END END
......
...@@ -45,7 +45,8 @@ package body displayer is ...@@ -45,7 +45,8 @@ package body displayer is
bTmHasArrived := True; bTmHasArrived := True;
end if; end if;
when housekeeping_PRESENT => when housekeeping_PRESENT =>
HK := (Value_To_Plot => Number, HK := (Exist => (Value_To_Plot => 1),
Value_To_Plot => Number,
Destination => TC.Action.Housekeeping); Destination => TC.Action.Housekeeping);
HousekeepingTM(HK'access); HousekeepingTM(HK'access);
when others => null; when others => null;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment