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

⟦57023ea13⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Paslibintf, seg_021fd8

Derivation

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

E3 Source Code



--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with System;
with Mac_Types;
use Mac_Types;
package Paslibintf is

    type Pascalpointer is access Mac_Types.Integer;
    subtype Pascalfile is System.Address;
    subtype Text is System.Address;
    type Varpascalfile is access Pascalfile;

    Iofbf : constant := 16#00#;
    Iolbf : constant := 16#40#;
    Ionbf : constant := 16#04#;

    procedure Plheapinit (Sizepheap : Longint;
                          Heapdelta : Longint;
                          Memerrproc : Pascalpointer;
                          Allownoncont : Boolean;
                          Fordispose : Boolean);
    pragma Interface (Mpwpascal, Plheapinit, "PLHEAPINIT");

    procedure Plinitheap (Sizepheap : Longint;
                          Memerrproc : Pascalpointer;
                          Allownoncont : Boolean;
                          Allowdispose : Boolean);
    pragma Interface (Mpwpascal, Plinitheap, "PLINITHEAP");

    procedure Plsetnoncont (Allownoncont : Boolean);
    pragma Interface (Mpwpascal, Plsetnoncont, "PLSETNONCONT");

    procedure Plsetmerrproc (Memerrproc : Pascalpointer);
    pragma Interface (Mpwpascal, Plsetmerrproc, "PLSETMERRPROC");

    procedure Plsetheaptype (Fordispose : Boolean);
    pragma Interface (Mpwpascal, Plsetheaptype, "PLSETHEAPTYPE");

    procedure Plsetheapcheck (Doit : Boolean);
    pragma Interface (Mpwpascal, Plsetheapcheck, "PLSETHEAPCHECK");

    procedure Plsetvbuf (Fvar : in out Text;
                         Buffer : Pascalpointer;
                         Style : Mac_Types.Integer;
                         Bufsize : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Plsetvbuf, "PLSETVBUF");

    function Plfilepos (Fvar : Varpascalfile) return Longint;
    pragma Interface (Mpwpascal, Plfilepos, "PLFILEPOS");

    procedure Plflush (Fvar : in out Text);
    pragma Interface (Mpwpascal, Plflush, "PLFLUSH");

    procedure Plcrunch (Fvar : in out Pascalfile);
    pragma Interface (Mpwpascal, Plcrunch, "PLCRUNCH");

    procedure Plpurge (Fname : Str255);
    pragma Interface (Mpwpascal, Plpurge, "PLPURGE");

    procedure Plrename (Oldfname, Newfname : Str255);
    pragma Interface (Mpwpascal, Plrename, "PLRENAME");

end Paslibintf;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1c rec1=00 rec2=01 rec3=05a
        [0x01] rec0=18 rec1=00 rec2=02 rec3=064
        [0x02] rec0=0c rec1=00 rec2=03 rec3=000
    tail 0x2171dcc4683906e0eb462 0x42a00088462060003