Incrementing time represented as NBCD format

[LooseCaboose]

Its easy in Ada:

Code:

procedure add is
  type time is mod 60;
  secs : time := 0;
  mins : time := 0;

begin
  secs := secs + 1;
  if secs = 0 then
    mins := mins + 1;
  end if;
end add;