|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 8192 (0x2000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Hyperxcmd, seg_021fc7
└─⟦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