Figure 32.
Correct Split procedure.
<![CDATA[
----------------------------------------------------------
with STANDARD_INTEGERS; use STANDARD_INTEGERS;
procedure Split(TIME Integer_32;
HOURS : out Integer_32;
MIN : out Integer_32;
SEC : out float) is
T : Integer_32;
begin
T := TIME;
HOURS := T / 3600_000;
T := T mod 3600_000;
MIN := T / 60_000;
TIME := T mod 60_000;
SEC := float(T) / 1000.0;
end Split;
Meridian AdaVantage(tm) Compiler
[v2.1 Feb 29, 1988] Target 8086
Subprogram body split added to library.
17 lines compiled.
No errors detected.
Meridian 8086 Code Generator
[v1.8 Jan 20, 1988] Target 8086 object
Generating code for split
]]>