|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Sort_Sup, seg_0581d3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
-- UNIT: procedure sort_sup.a
-- FILES: sort.a, sort_sup.a, sort_sup_b.a
-- COMPILE: ada sort_sup.a sort_sup_b.a
-- ada -o sort sort.a
-- PURPOSE: To provide a demo for self targets
-- and , as well
-- as a useful demo for performance analysis. Of course with
-- a few generics the support routines would provide a fine
-- addition to a general sort library.
-- DESCRIPTION: This is a menu driven demo that provides examples of
-- four popular sorts: the bubble sort, the shell sort, the
-- quick sort, and the quick sort with an inline swap. Menu
-- options allow output control, random data generation, and
-- selection of sorting options.
-- USAGE: sort
--
-- .......................................................................... --
with System, Text_Io;
use System;
package Sort_Sup is
package Int_Io is new Text_Io.Integer_Io (Integer);
Max_Num_Of_Data : constant Integer := 350;
Max_Menu_Entry : constant Integer := 13;
Max_Bits : constant Integer := Integer'Size;
Bit_Mask : constant Integer := 16#7FFF#;
Num_Of_Data : Integer;
Choice : Integer;
Pivot : Integer;
Sort_Size : Integer;
Seed : Integer;
type Sort_Data is array (Integer range <>) of Integer;
Input_Data : Sort_Data (0 .. (Max_Num_Of_Data - 1));
Output_Data : Sort_Data (0 .. (Max_Num_Of_Data - 1));
Input_Valid : Boolean;
Output_Valid : Boolean;
type Data_Store is
record
Point_Num : Integer;
Last_Called : Integer;
Min_Time : Integer;
end record;
--
-- declarations of global procedures
--
procedure Initialize;
procedure Draw_Front_Page;
procedure Sort_Loop;
procedure Do_Choice;
end Sort_Sup;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=18 rec1=00 rec2=01 rec3=01a
[0x01] rec0=26 rec1=00 rec2=02 rec3=001
tail 0x217657a5087e1666bf03d 0x42a00088462060003