DataMuseum.dk

top - download

    Length: 1080 (0x438)
    Types: TextFile
    Names: »B«

└─⟦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

package body Z80 is

    task type Processor_Task is
        pragma Os_Task (0);
        entry Cold_Start;
    end Processor_Task;

    type Processor_Task_Ptr is access Processor_Task;


    Pt_Ptr : Processor_Task_Ptr;

    Pc : Integer;

    On_Line : Boolean := False;

    task body Processor_Task is
    begin
        loop
            select
                accept Cold_Start do
                    Pc := 0;
                end Cold_Start;
            else
                Pc := Pc + 1;
                delay 1.0;
            end select;
        end loop;
    end Processor_Task;

    procedure Power_On is
    begin
        if not On_Line then
            On_Line := True;
            Pt_Ptr := new Processor_Task;
        end if;
    end Power_On;

    procedure Power_Off is
    begin
        if On_Line then
            abort Pt_Ptr.all;
        end if;
    end Power_Off;

    procedure Cold_Start is
    begin
        Pt_Ptr.Cold_Start;
    end Cold_Start;

    function Program_Counter return Integer is
    begin
        return Pc;
    end Program_Counter;

end Z80;