DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦d63ac0032⟧ Ada Source

    Length: 12288 (0x3000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Gui_Interface, package body Iterator, seg_020eee

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

with System;
package body Gui_Interface is

    procedure Init_C;
    pragma Interface (C, Init_C);
    pragma Interface_Information (Init_C, ".Init");


    function Get_Cnt_Reset_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Reset_Activate_C);
    pragma Interface_Information
       (Get_Cnt_Reset_Activate_C, ".GetCntResetActivate");

    function Get_Cnt_Stop_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Stop_Activate_C);
    pragma Interface_Information
       (Get_Cnt_Stop_Activate_C, ".GetCntStopActivate");

    function Get_Cnt_Step_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Step_Activate_C);
    pragma Interface_Information
       (Get_Cnt_Step_Activate_C, ".GetCntStepActivate");

    function Get_Cnt_Go_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Go_Activate_C);
    pragma Interface_Information (Get_Cnt_Go_Activate_C, ".GetCntGoActivate");

    function Get_Cnt_Quit_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Quit_Activate_C);
    pragma Interface_Information
       (Get_Cnt_Quit_Activate_C, ".GetCntQuitActivate");

    function Get_Cnt_Open_Ok_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Open_Ok_Activate_C);
    pragma Interface_Information
       (Get_Cnt_Open_Ok_Activate_C, ".GetCntOpenOkActivate");

    function Get_Cnt_Break_Point_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Break_Point_Activate_C);
    pragma Interface_Information (Get_Cnt_Break_Point_Activate_C,
                                  ".GetCntBreakPointActivate");

    function Get_Cnt_Memory_Add_Activate_C return Integer;
    pragma Interface (C, Get_Cnt_Memory_Add_Activate_C);
    pragma Interface_Information
       (Get_Cnt_Memory_Add_Activate_C, ".GetCntMemoryAddActivate");

    procedure Display_Memory_Dump_C;
    pragma Interface (C, Display_Memory_Dump_C);
    pragma Interface_Information (Display_Memory_Dump_C, ".DisplayMemoryDump");

    procedure Delete_Memory_Dump_C;
    pragma Interface (C, Delete_Memory_Dump_C);
    pragma Interface_Information (Delete_Memory_Dump_C, ".DeleteMemoryDump");

    procedure Set_Memory_Line_C (C_Memory_Line : System.Address);
    pragma Interface (C, Set_Memory_Line_C);
    pragma Interface_Information (Set_Memory_Line_C, ".SetMemoryLine");


    procedure Set_Message_C (C_Message : System.Address);
    pragma Interface (C, Set_Message_C);
    pragma Interface_Information (Set_Message_C, ".SetMessage");


    procedure Hide_Window_Open_C;
    pragma Interface (C, Hide_Window_Open_C);
    pragma Interface_Information (Hide_Window_Open_C, ".HideWindowOpen");

    procedure Beep_C;
    pragma Interface (C, Beep_C);
    pragma Interface_Information (Beep_C, ".Beep");


    procedure Iterator_Memory_List_C;
    pragma Interface (C, Iterator_Memory_List_C);
    pragma Interface_Information
       (Iterator_Memory_List_C, ".IteratorMemoryList");

    procedure Iterator_Memory_Dump_C;
    pragma Interface (C, Iterator_Memory_Dump_C);
    pragma Interface_Information
       (Iterator_Memory_Dump_C, ".IteratorMemoryDump");

    procedure Iterator_Break_List_C;
    pragma Interface (C, Iterator_Break_List_C);
    pragma Interface_Information (Iterator_Break_List_C, ".IteratorBreakList");


    procedure Iterator_File_Name_C;
    pragma Interface (C, Iterator_File_Name_C);
    pragma Interface_Information (Iterator_File_Name_C, ".IteratorFileName");

    procedure Iterator_Z80_Status_C;
    pragma Interface (C, Iterator_Z80_Status_C);
    pragma Interface_Information (Iterator_Z80_Status_C, ".IteratorZ80Status");

    procedure Set_Instruction_C (C_Instruction : System.Address);
    pragma Interface (C, Set_Instruction_C);
    pragma Interface_Information (Set_Instruction_C, ".SetInstruction");

    procedure Update_C (Z80_Status : System.Address);
    pragma Interface (C, Update_C);
    pragma Interface_Information (Update_C, ".Update");

    function Iter_Done_C return Integer;
    pragma Interface (C, Iter_Done_C);
    pragma Interface_Information (Iter_Done_C, ".IterDone");

    procedure Iter_Init_C;
    pragma Interface (C, Iter_Init_C);
    pragma Interface_Information (Iter_Init_C, ".IterInit");

    procedure Iter_Next_C;
    pragma Interface (C, Iter_Next_C);
    pragma Interface_Information (Iter_Next_C, ".IterNext");

    function Iter_Value_C return Character;
    pragma Interface (C, Iter_Value_C);
    pragma Interface_Information (Iter_Value_C, ".IterValue");



    procedure Hide_Window_Open is
    begin
        Hide_Window_Open_C;
    end Hide_Window_Open;

    procedure Beep is
    begin
        Beep_C;
    end Beep;

    procedure Iterator_Memory_List is
    begin
        Iterator_Memory_List_C;
    end Iterator_Memory_List;


    procedure Iterator_Memory_Dump is
    begin
        Iterator_Memory_Dump_C;
    end Iterator_Memory_Dump;

    procedure Iterator_Break_List is
    begin
        Iterator_Break_List_C;
    end Iterator_Break_List;

    procedure Iterator_File_Name is
    begin
        Iterator_File_Name_C;
    end Iterator_File_Name;

    procedure Iterator_Z80_Status is
    begin
        Iterator_Z80_Status_C;
    end Iterator_Z80_Status;

    procedure Init is
    begin
        Init_C;
    end Init;


    function Get_Cnt_Reset_Activate return Integer is
    begin
        return Get_Cnt_Reset_Activate_C;
    end Get_Cnt_Reset_Activate;


    function Get_Cnt_Stop_Activate return Integer is
    begin
        return Get_Cnt_Stop_Activate_C;
    end Get_Cnt_Stop_Activate;


    function Get_Cnt_Go_Activate return Integer is
    begin
        return Get_Cnt_Go_Activate_C;
    end Get_Cnt_Go_Activate;


    function Get_Cnt_Step_Activate return Integer is
    begin
        return Get_Cnt_Step_Activate_C;
    end Get_Cnt_Step_Activate;


    function Get_Cnt_Quit_Activate return Integer is
    begin
        return Get_Cnt_Quit_Activate_C;
    end Get_Cnt_Quit_Activate;

    function Get_Cnt_Open_Ok_Activate return Integer is
    begin
        return Get_Cnt_Open_Ok_Activate_C;
    end Get_Cnt_Open_Ok_Activate;

    function Get_Cnt_Break_Point_Activate return Integer is
    begin
        return Get_Cnt_Break_Point_Activate_C;
    end Get_Cnt_Break_Point_Activate;

    function Get_Cnt_Memory_Add_Activate return Integer is
    begin
        return Get_Cnt_Memory_Add_Activate_C;
    end Get_Cnt_Memory_Add_Activate;


    procedure Display_Memory_Dump is
    begin
        Display_Memory_Dump_C;
    end Display_Memory_Dump;

    procedure Delete_Memory_Dump is
    begin
        Delete_Memory_Dump_C;
    end Delete_Memory_Dump;

    procedure Set_Memory_Line (Memory_Line : String) is
        C_Memory_Line : constant String := Memory_Line & Ascii.Nul;
    begin
        Set_Memory_Line_C (C_Memory_Line =>
                              C_Memory_Line (C_Memory_Line'First)'Address);
    end Set_Memory_Line;


    procedure Set_Message (Message : String) is
        C_Message : constant String := Message & Ascii.Nul;
    begin
        Set_Message_C (C_Message => C_Message (C_Message'First)'Address);
    end Set_Message;


    procedure Set_Instruction (Instruction : String) is
        C_Instruction : constant String := Instruction & Ascii.Nul;
    begin
        Set_Instruction_C (C_Instruction =>
                              C_Instruction (C_Instruction'First)'Address);
    end Set_Instruction;


    procedure Update (Z80_Status : String) is
        C_Z80_Status : constant String := Z80_Status & Ascii.Nul;
    begin
        Update_C (Z80_Status => C_Z80_Status (C_Z80_Status'First)'Address);
    end Update;


    package body Iterator is
        procedure Init is
        begin
            Iter_Init_C;
        end Init;


        function Done return Boolean is
        begin
            if Iter_Done_C = 1 then
                return True;
            else
                return False;
            end if;
        end Done;


        procedure Next is
        begin
            Iter_Next_C;
        end Next;


        function Value return Character is
        begin
            return Iter_Value_C;
        end Value;
    end Iterator;

end Gui_Interface;

    nblk1=b
    nid=a
    hdr6=14
        [0x00] rec0=1d rec1=00 rec2=01 rec3=04a
        [0x01] rec0=16 rec1=00 rec2=09 rec3=070
        [0x02] rec0=1c rec1=00 rec2=07 rec3=048
        [0x03] rec0=19 rec1=00 rec2=06 rec3=03e
        [0x04] rec0=27 rec1=00 rec2=0b rec3=00e
        [0x05] rec0=18 rec1=00 rec2=02 rec3=010
        [0x06] rec0=25 rec1=00 rec2=04 rec3=01c
        [0x07] rec0=22 rec1=00 rec2=08 rec3=00a
        [0x08] rec0=28 rec1=00 rec2=05 rec3=00c
        [0x09] rec0=04 rec1=00 rec2=03 rec3=000
        [0x0a] rec0=e5 rec1=10 rec2=00 rec3=000
    tail 0x2171c7ca883875e0ca5ca 0x42a00088462060003
Free Block Chain:
  0xa: 0000  00 00 01 9f 80 0d 42 72 65 61 6b 5f 4c 69 73 74  ┆      Break_List┆