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) }
TC-T ::= SEQUENCE
{
destination Destination-T,
action Action-T
action Action-T DEFAULT display:'48656C6C6F'H
}
TM-T ::= Display-T
HK-T ::= SEQUENCE {
value-to-plot INTEGER (0..16535),
value-to-plot INTEGER (0..16535) DEFAULT 42,
destination Destination-T
}
END
......
......@@ -45,7 +45,8 @@ package body displayer is
bTmHasArrived := True;
end if;
when housekeeping_PRESENT =>
HK := (Value_To_Plot => Number,
HK := (Exist => (Value_To_Plot => 1),
Value_To_Plot => Number,
Destination => TC.Action.Housekeeping);
HousekeepingTM(HK'access);
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