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 - metrics - download
Index: T V

⟦a65e0e8fe⟧ TextFile

    Length: 968 (0x3c8)
    Types: TextFile
    Names: »V«

Derivation

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦4c85d69e2⟧ 
                └─⟦this⟧

TextFile

with System;

package Coupler_Support is

    type Coupler_Type (Subprogram_Count : Natural) is private;

private

    procedure Unelaborated_Subprogram;
    pragma Interface (Asm, Unelaborated_Subprogram);
    pragma Import_Procedure (Unelaborated_Subprogram,
                             "__UNELABORATED_SUBPROGRAM");

    type Subprogram_Variable is
        record
            Code        : System.Address := Unelaborated_Subprogram'Address;
            Static_Link : System.Address := System.Address_Zero;
        end record;

    for Subprogram_Variable use
        record
            Code        at 0 range 0 .. 31;
            Static_Link at 4 range 0 .. 31;
        end record;

    type Subprogram_Variable_List is
       array (Positive range <>) of Subprogram_Variable;

    type Coupler_Type (Subprogram_Count : Natural) is
        record
            Subprograms : Subprogram_Variable_List (1 .. Subprogram_Count);
        end record;

end Coupler_Support;