DataMuseum.dk

top - download

    Length: 8128 (0x1fc0)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

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;