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

⟦8ce761d62⟧ Ada Source

    Length: 8192 (0x2000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Hyperxcmd, seg_021fc7

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 Sane;
package Hyperxcmd is

    Xressucc : constant := 0;
    Xresfail : constant := 1;
    Xresnotimp : constant := 2;

    type Array1_16handle is array (1 .. 16) of Handle;
    type Array1_8longint is array (1 .. 8) of Longint;
    type Array1_4longint is array (1 .. 4) of Longint;
    type Xcmdblock is
        record
            Paramcount : Mac_Types.Integer;
            Params : Array1_16handle;
            Returnvalue : Handle;
            Passflag : Boolean;
            Entrypoint : Procptr;
            Request : Mac_Types.Integer;
            Result : Mac_Types.Integer;
            Inargs : Array1_8longint;
            Outargs : Array1_4longint;
        end record;
    type Xcmdptr is access Xcmdblock;

    procedure Sendcardmessage (Paramptr : Xcmdptr; Msg : Str255);
    pragma Interface (Mpwpascal, Sendcardmessage, "SENDCARDMESSAGE");

    procedure Sendhcmessage (Paramptr : Xcmdptr; Msg : Str255);
    pragma Interface (Mpwpascal, Sendhcmessage, "SENDHCMESSAGE");

    function Getglobal (Paramptr : Xcmdptr; Globname : Str255) return Handle;
    pragma Interface (Mpwpascal, Getglobal, "GETGLOBAL");

    procedure Setglobal
                 (Paramptr : Xcmdptr; Globname : Str255; Globvalue : Handle);
    pragma Interface (Mpwpascal, Setglobal, "SETGLOBAL");

    function Getfieldbyid (Paramptr : Xcmdptr;
                           Cardfieldflag : Boolean;
                           Fieldid : Mac_Types.Integer) return Handle;
    pragma Interface (Mpwpascal, Getfieldbyid, "GETFIELDBYID");

    function Getfieldbyname (Paramptr : Xcmdptr;
                             Cardfieldflag : Boolean;
                             Fieldname : Str255) return Handle;
    pragma Interface (Mpwpascal, Getfieldbyname, "GETFIELDBYNAME");

    function Getfieldbynum (Paramptr : Xcmdptr;
                            Cardfieldflag : Boolean;
                            Fieldnum : Mac_Types.Integer) return Handle;
    pragma Interface (Mpwpascal, Getfieldbynum, "GETFIELDBYNUM");

    procedure Setfieldbyid (Paramptr : Xcmdptr;
                            Cardfieldflag : Boolean;
                            Fieldid : Mac_Types.Integer;
                            Fieldval : Handle);
    pragma Interface (Mpwpascal, Setfieldbyid, "SETFIELDBYID");

    procedure Setfieldbyname (Paramptr : Xcmdptr;
                              Cardfieldflag : Boolean;
                              Fieldname : Str255;
                              Fieldval : Handle);
    pragma Interface (Mpwpascal, Setfieldbyname, "SETFIELDBYNAME");

    procedure Setfieldbynum (Paramptr : Xcmdptr;
                             Cardfieldflag : Boolean;
                             Fieldnum : Mac_Types.Integer;
                             Fieldval : Handle);
    pragma Interface (Mpwpascal, Setfieldbynum, "SETFIELDBYNUM");

    procedure Booltostr
                 (Paramptr : Xcmdptr; Bool : Boolean; Str : in out Str255);
    pragma Interface (Mpwpascal, Booltostr, "BOOLTOSTR");

    procedure Exttostr (Paramptr : Xcmdptr;
                        Num : Sane.Extended;
                        Str : in out Str255);
    pragma Interface (Mpwpascal, Exttostr, "EXTTOSTR");

    procedure Longtostr
                 (Paramptr : Xcmdptr; Posnum : Longint; Str : in out Str255);
    pragma Interface (Mpwpascal, Longtostr, "LONGTOSTR");

    procedure Numtostr (Paramptr : Xcmdptr; Num : Longint; Str : in out Str255);
    pragma Interface (Mpwpascal, Numtostr, "NUMTOSTR");

    procedure Numtohex (Paramptr : Xcmdptr;
                        Num : Longint;
                        Ndigits : Mac_Types.Integer;
                        Str : in out Str255);
    pragma Interface (Mpwpascal, Numtohex, "NUMTOHEX");

    function Strtobool (Paramptr : Xcmdptr; Str : Str255) return Boolean;
    pragma Interface (Mpwpascal, Strtobool, "STRTOBOOL");

    function Strtoext (Paramptr : Xcmdptr; Str : Str255) return Sane.Extended;
    pragma Interface (Mpwpascal, Strtoext, "STRTOEXT");

    function Strtolong (Paramptr : Xcmdptr; Str : Str255) return Longint;
    pragma Interface (Mpwpascal, Strtolong, "STRTOLONG");

    function Strtonum (Paramptr : Xcmdptr; Str : Str255) return Longint;
    pragma Interface (Mpwpascal, Strtonum, "STRTONUM");

    function Pastozero (Paramptr : Xcmdptr; Str : Str255) return Handle;
    pragma Interface (Mpwpascal, Pastozero, "PASTOZERO");

    procedure Zerotopas
                 (Paramptr : Xcmdptr; Zerostr : Ptr; Passtr : in out Str255);
    pragma Interface (Mpwpascal, Zerotopas, "ZEROTOPAS");

    function Evalexpr (Paramptr : Xcmdptr; Expr : Str255) return Handle;
    pragma Interface (Mpwpascal, Evalexpr, "EVALEXPR");

    procedure Returntopas
                 (Paramptr : Xcmdptr; Zerostr : Ptr; Passtr : in out Str255);
    pragma Interface (Mpwpascal, Returntopas, "RETURNTOPAS");

    procedure Scantoreturn (Paramptr : Xcmdptr; Scanptr : in out Ptr);
    pragma Interface (Mpwpascal, Scantoreturn, "SCANTORETURN");

    procedure Scantozero (Paramptr : Xcmdptr; Scanptr : in out Ptr);
    pragma Interface (Mpwpascal, Scantozero, "SCANTOZERO");

    function Stringequal (Paramptr : Xcmdptr; Str1 : Str255; Str2 : Str255)
                         return Boolean;
    pragma Interface (Mpwpascal, Stringequal, "STRINGEQUAL");

    function Stringmatch
                (Paramptr : Xcmdptr; Pattern : Str255; Target : Ptr) return Ptr;
    pragma Interface (Mpwpascal, Stringmatch, "STRINGMATCH");

    function Stringlength (Paramptr : Xcmdptr; Strptr : Ptr) return Longint;
    pragma Interface (Mpwpascal, Stringlength, "STRINGLENGTH");

    procedure Zerobytes (Paramptr : Xcmdptr; Dstptr : Ptr; Longcount : Longint);
    pragma Interface (Mpwpascal, Zerobytes, "ZEROBYTES");

end Hyperxcmd;

    nblk1=7
    nid=0
    hdr6=e
        [0x00] rec0=1e rec1=00 rec2=01 rec3=086
        [0x01] rec0=17 rec1=00 rec2=02 rec3=026
        [0x02] rec0=14 rec1=00 rec2=03 rec3=05e
        [0x03] rec0=18 rec1=00 rec2=04 rec3=078
        [0x04] rec0=17 rec1=00 rec2=05 rec3=064
        [0x05] rec0=15 rec1=00 rec2=06 rec3=05c
        [0x06] rec0=03 rec1=00 rec2=07 rec3=000
    tail 0x2151d44a883906deef9cf 0x42a00088462060003