|
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: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Mac_Types, seg_022069
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
-- Copyright (c) 1990 Meridian Software Systems, Inc. --
package Mac_Types is
type Varboolean is access Boolean;
type Char is (Nul, Soh, Stx, Etx, Eot, Enq, Ack, Bel, Bs, Ht, Lf, Vt,
Ff, Cr, So, Si, Dle, Dc1, Dc2, Dc3, Dc4, Nak, Syn, Etb,
Can, Em, Sub, Esc, Fs, Gs, Rs, Us, ' ', '!', '"', '#', '$',
'%', '&', ''', '(', ')', '*', '+', ',', '-', '.', '/', '0',
'1', '2', '3', '4', '5', '6', '7', '8', '9', ':', ';', '<',
'=', '>', '?', '@', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H',
'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S',
'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '[', '\', ']', '^',
'_', '`', 'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i',
'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't',
'u', 'v', 'w', 'x', 'y', 'z', '{', '|', '}', '~', Del,
Xnul, Xsoh, Xstx, Xetx, Xeot, Xenq, Xack, Xbel, Xbs, Xht,
Xlf, Xvt, Xff, Xcr, Xso, Xsi, Xdle, Xdc1, Xdc2, Xdc3, Xdc4,
Xnak, Xsyn, Xetb, Xcan, Xem, Xsub, Xesc, Xfs, Xgs, Xrs, Xus,
Xsp, Xep, Xdq, Xps, Xds, Xpcs, Xam, Xsq, Xlp, Xrp, Xas, Xpl,
Xcm, Xms, Xpr, Xsl, X0, X1, X2, X3, X4, X5, X6, X7, X8,
X9, Xcl, Xsc, Xlt, Xeq, Xgt, Xqm, Xat, Xuca, Xucb, Xucc,
Xucd, Xuce, Xucf, Xucg, Xuch, Xuci, Xucj, Xuck, Xucl, Xucm,
Xucn, Xuco, Xucp, Xucq, Xucr, Xucs, Xuct, Xucu, Xucv, Xucw,
Xucx, Xucy, Xucz, Xlsq, Xbsl, Xrsq, Xcar, Xund, Xag, Xlca,
Xlcb, Xlcc, Xlcd, Xlce, Xlcf, Xlcg, Xlch, Xlci, Xlcj, Xlck,
Xlcl, Xlcm, Xlcn, Xlco, Xlcp, Xlcq, Xlcr, Xlcs, Xlct, Xlcu,
Xlcv, Xlcw, Xlcx, Xlcy, Xlcz, Xlbc, Xvb, Xrbc, Xtld, Xdel);
subtype Charword is Short_Integer;
subtype Longint is Standard.Integer;
type Varlongint is access Longint;
type Real is new Standard.Integer;
type Comp is array (1 .. 8) of Byte_Integer;
subtype Double is Float;
subtype Integer is Short_Integer;
type Varinteger is access Integer;
Noerr : constant := 0;
type Byte is range 0 .. 255;
subtype Byteword is Mac_Types.Integer;
type Varbyteword is access Byteword;
type Signedbyte is range -128 .. 127;
type Ptr is access Signedbyte;
type Varptr is access Ptr;
type Handle is access Ptr;
type Varhandle is access Handle;
type Point is new Mac_Types.Longint;
type Varpoint is access Point;
type Macpoint is
record
V : Mac_Types.Integer;
H : Mac_Types.Integer;
end record;
type Rect is
record
Top : Mac_Types.Integer;
Left : Mac_Types.Integer;
Bottom : Mac_Types.Integer;
Right : Mac_Types.Integer;
end record;
subtype Procptr is Ptr;
subtype Fixed is Mac_Types.Longint;
type Varfixed is access Fixed;
subtype Fract is Mac_Types.Longint;
type Str255 is array (0 .. 255) of Mac_Types.Char;
type Stringptr is access Str255;
type Stringhandle is access Stringptr;
type Str63 is array (0 .. 63) of Mac_Types.Char;
type Str31 is array (0 .. 31) of Mac_Types.Char;
type Str27 is array (0 .. 27) of Mac_Types.Char;
type Str15 is array (0 .. 15) of Mac_Types.Char;
subtype Oserr is Mac_Types.Integer;
type Varoserr is access Oserr;
type Restypearray is array (1 .. 4) of Mac_Types.Char;
type Restype is new Mac_Types.Longint;
type Ostypearray is array (1 .. 4) of Mac_Types.Char;
type Ostype is new Mac_Types.Longint;
procedure Debugger;
pragma Interface (Mpwpascal, Debugger, "16#A9FF#");
procedure Debugstr (Astr : Str255);
pragma Interface (Mpwpascal, Debugstr, "16#ABFF#");
procedure Sysbreak;
pragma Interface (Mpwpascal, Sysbreak, "16#303C#,16#FE16#,16#A9C9#");
procedure Sysbreakstr (Debugstr : Str255);
pragma Interface (Mpwpascal, Sysbreakstr, "16#303C#,16#FE15#,16#A9C9#");
procedure Sysbreakfunc (Debugfunc : Str255);
pragma Interface (Mpwpascal, Sysbreakfunc, "16#303C#,16#FE14#,16#A9C9#");
end Mac_Types;
nblk1=5
nid=0
hdr6=a
[0x00] rec0=13 rec1=00 rec2=01 rec3=032
[0x01] rec0=0f rec1=00 rec2=02 rec3=050
[0x02] rec0=24 rec1=00 rec2=03 rec3=04a
[0x03] rec0=1e rec1=00 rec2=04 rec3=050
[0x04] rec0=0c rec1=00 rec2=05 rec3=000
tail 0x2171dd3de839074f51466 0x42a00088462060003