DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ B T ┃

⟦7d4fcbeef⟧ TextFile

    Length: 1404 (0x57c)
    Types: TextFile
    Names: »B«

Derivation

└─⟦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 Z80_Defs, Text_Io;

package body Timer is

    -- VARIABLES ------------------------------------------------------------

    La_Fin : Boolean := False;  
    Tache_Tempo : Pt_Tache_Tempo;  
    Delai_Tempo : Z80_Defs.Mot := 0;


    -- TACHE ----------------------------------------------------------------

    task body T_Tempo is
    begin
        for I in 1 .. 5 loop
            delay (Duration (Delai_Tempo) / 1000);
            Text_Io.Put_Line ("timer");
        end loop;
    end T_Tempo;

    ------------------------------

    task body T_Timer is
    begin
        while (not La_Fin) loop
            select
                ---------------------------------

                accept Reset do
                    [statement]
                end Reset;

                ---------------------------------
            or
                accept Afficher do
                    [statement]
                end Afficher;

                ---------------------------------
            or
                accept Lancer (Delai : Z80_Defs.Mot) do
                    Delai_Tempo := Delai;
                    Tache_Tempo := new T_Tempo;
                end Lancer;

                ---------------------------------
            or
                accept Fin do
                    La_Fin := True;
                end Fin;


            end select;
        end loop;

    end T_Timer;



end Timer;