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

⟦0e2e211e2⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Devices, seg_021fb8

Derivation

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

--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
with Quickdraw;
with Osutils;
with Events;
with Dialogs;
package Devices is

    Newselmsg : constant := 12;
    Filllistmsg : constant := 13;
    Getselmsg : constant := 14;
    Selectmsg : constant := 15;
    Deselectmsg : constant := 16;
    Terminatemsg : constant := 17;
    Buttonmsg : constant := 19;
    Chooserid : constant := 1;
    Initdev : constant := 0;
    Hitdev : constant := 1;
    Closedev : constant := 2;
    Nuldev : constant := 3;
    Updatedev : constant := 4;
    Activdev : constant := 5;
    Deactivdev : constant := 6;
    Keyevtdev : constant := 7;
    Macdev : constant := 8;
    Undodev : constant := 9;
    Cutdev : constant := 10;
    Copydev : constant := 11;
    Pastedev : constant := 12;
    Cleardev : constant := 13;
    Cursordev : constant := 14;
    Cdevgenerr : constant := -1;
    Cdevmemerr : constant := 0;
    Cdevreserr : constant := 1;
    Cdevunset : constant := 3;

    type Dctlentry is
        record
            Dctldriver : Ptr;
            Dctlflags : Mac_Types.Integer;
            Dctlqhdr : Osutils.Qhdr;
            Dctlposition : Longint;
            Dctlstorage : Handle;
            Dctlrefnum : Mac_Types.Integer;
            Dctlcurticks : Longint;
            Dctlwindow : Quickdraw.Windowptr;
            Dctldelay : Mac_Types.Integer;
            Dctlemask : Mac_Types.Integer;
            Dctlmenu : Mac_Types.Integer;
        end record;
    type Dctlptr is access Dctlentry;
    type Dctlhandle is access Dctlptr;

    type Auxdce is
        record
            Dctldriver : Ptr;
            Dctlflags : Mac_Types.Integer;
            Dctlqhdr : Osutils.Qhdr;
            Dctlposition : Longint;
            Dctlstorage : Handle;
            Dctlrefnum : Mac_Types.Integer;
            Dctlcurticks : Longint;
            Dctlwindow : Quickdraw.Grafptr;
            Dctldelay : Mac_Types.Integer;
            Dctlemask : Mac_Types.Integer;
            Dctlmenu : Mac_Types.Integer;
            Dctlslot : Byte;
            Dctlslotid : Byte;
            Dctldevbase : Longint;
            Dctlowner : Ptr;
            Dctlextdev : Byte;
            Fillbyte : Byte;
        end record;
    type Auxdceptr is access Auxdce;
    type Auxdcehandle is access Auxdceptr;

    function Getdctlentry (Refnum : Mac_Types.Integer) return Dctlhandle;
    pragma Interface (Mpwpascal, Getdctlentry, "GETDCTLENTRY");

    function Setchooseralert (F : Boolean) return Boolean;
    pragma Interface (Mpwpascal, Setchooseralert, "SETCHOOSERALERT");

    function Opendriver (Name : Str255; Drvrrefnum : Varinteger) return Oserr;
    pragma Interface (Mpwpascal, Opendriver, "OPENDRIVER");

    function Closedriver (Refnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Closedriver, "CLOSEDRIVER");

    function Control (Refnum : Mac_Types.Integer;
                      Cscode : Mac_Types.Integer;
                      Csparamptr : Ptr) return Oserr;
    pragma Interface (Mpwpascal, Control, "CONTROL");

    function Status (Refnum : Mac_Types.Integer;
                     Cscode : Mac_Types.Integer;
                     Csparamptr : Ptr) return Oserr;
    pragma Interface (Mpwpascal, Status, "STATUS");

    function Killio (Refnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Killio, "KILLIO");

    function Pbcontrol
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbcontrol, "PBCONTROL");

    function Pbstatus
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbstatus, "PBSTATUS");

    function Pbkillio
                (Paramblock : Osutils.Parmblkptr; Async : Boolean) return Oserr;
    pragma Interface (Mpwpascal, Pbkillio, "PBKILLIO");

    generic
        with function Routine (Message : Mac_Types.Integer;
                               Caller : Mac_Types.Integer;
                               Objname : Stringptr;
                               Zonename : Stringptr;
                               P1 : Longint;
                               P2 : Longint) return Oserr;
    procedure Userdeviceroutine;

    generic
        with function Routine (Message : Mac_Types.Integer;
                               Item : Mac_Types.Integer;
                               Numitems : Mac_Types.Integer;
                               Cpanelid : Mac_Types.Integer;
                               Theevent : Events.Eventrecord;
                               Cdevvalue : Longint;
                               Cpdialog : Dialogs.Dialogptr) return Longint;
    procedure Usercdevroutine;

end Devices;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=23 rec1=00 rec2=01 rec3=03a
        [0x01] rec0=1e rec1=00 rec2=02 rec3=036
        [0x02] rec0=18 rec1=00 rec2=03 rec3=07a
        [0x03] rec0=19 rec1=00 rec2=04 rec3=01a
        [0x04] rec0=18 rec1=00 rec2=05 rec3=001
    tail 0x2151d448c83906dd7f1a7 0x42a00088462060003