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 - download

⟦848fd7c60⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Z80, seg_00d2a5

Derivation

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

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;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=30 rec1=00 rec2=01 rec3=012
        [0x01] rec0=0a rec1=00 rec2=02 rec3=000
    tail 0x2170a122e821548bea00a 0x42a00088462060003