|
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: 15360 (0x3c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Resources, seg_021fe1
└─⟦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;
package Resources is
Ressysheap : constant := 64;
Respurgeable : constant := 32;
Reslocked : constant := 16;
Resprotected : constant := 8;
Respreload : constant := 4;
Reschanged : constant := 2;
Mapreadonly : constant := 128;
Mapcompact : constant := 64;
Mapchanged : constant := 32;
Alert_Resource : constant Restype := 16#414C5254#; -- "ALRT";
Apple_Desktop_Bus_Resource : constant Restype := 16#41444253#; -- "ADBS";
Bundle_Resource : constant Restype := 16#424E444C#; -- "BNDL";
Ram_Cache_Resource : constant Restype := 16#43414348#; -- "CACH";
Control_Definition_Resource : constant Restype := 16#43444546#; -- "CDEF";
Control_Resource : constant Restype := 16#434E544C#; -- "CNTL";
Code_Resource : constant Restype := 16#434F4445#; -- "CODE";
Cursor_Resource : constant Restype := 16#43555253#; -- "CURS";
Item_List_Resource : constant Restype := 16#4449544C#; -- "DITL";
Dialog_Resource : constant Restype := 16#444C4F47#; -- "DLOG";
Da_Resource : constant Restype := 16#44525652#; -- "DRVR";
Startup_Alert_Table_Resource : constant Restype := 16#44534154#; -- "DSAT";
Command_Shift_Number_Resource : constant Restype := 16#464B4559#; -- "FKEY";
Format_Floppy_Disk_Resource : constant Restype := 16#464D5452#; -- "FMTR";
Font_Family_Resource : constant Restype := 16#464F4E44#; -- "FOND";
Font_Resource : constant Restype := 16#464F4E54#; -- "FONT";
File_Reference_Resource : constant Restype := 16#46524546#; -- "FREF";
System_Font_Resource : constant Restype := 16#46525356#; -- "FRSV";
Font_Width_Resource : constant Restype := 16#46574944#; -- "FWID";
Icon_List_Resource : constant Restype := 16#49434E23#; -- "ICN#";
Icon_Resource : constant Restype := 16#49434F4E#; -- "ICON";
Initialization_Resource : constant Restype := 16#494E4954#; -- "INIT";
International_Resource : constant Restype := 16#494E544C#; -- "INTL";
Integer_List_Resource : constant Restype := 16#494E5423#; -- "INT#";
Key_Caps_Layout_Resource : constant Restype := 16#4B434150#; -- "KCAP";
Ascii_Mapping_Resource : constant Restype := 16#4B434852#; -- "KCHR";
Keyboard_Mapping_Resource : constant Restype := 16#4B4D4150#; -- "KMAP";
Keyboard_Script_Table_Resource :
constant Restype := 16#4B535750#; -- "KSWP";
List_Definition_Resource : constant Restype := 16#4C444546#; -- "LDEF";
Menu_Bar_Resource : constant Restype := 16#4D424152#; -- "MBAR";
Default_Menu_Resource : constant Restype := 16#4D424446#; -- "MBDF";
Menu_Definition_Resource : constant Restype := 16#4D444546#; -- "MDEF";
Menu_Resource : constant Restype := 16#4D454E55#; -- "MENU";
Mouse_Resource : constant Restype := 16#4D4D4150#; -- "MMAP";
Appletalk_Bundle_Resource : constant Restype := 16#4E425043#; -- "NBPC";
New_Font_Resource : constant Restype := 16#4E464E54#; -- "NFNT";
Package_Resource : constant Restype := 16#5041434B#; -- "PACK";
Pattern_Resource : constant Restype := 16#50415420#; -- "PAT ";
Pattern_List_Resource : constant Restype := 16#50415423#; -- "PAT#";
Printing_Code_Resource : constant Restype := 16#50444546#; -- "PDEF";
Picture_Resource : constant Restype := 16#50494354#; -- "PICT";
Print_Record_Resource : constant Restype := 16#50524543#; -- "PREC";
Non_Serial_Printer_Resource : constant Restype := 16#50524552#; -- "PRER";
Serialprinter_Resource : constant Restype := 16#50524553#; -- "PRES";
Rom_Patch_Resource : constant Restype := 16#50544348#; -- "PTCH";
Other_Device_Resource : constant Restype := 16#52444556#; -- "RDEV";
Rom_Override_Resource : constant Restype := 16#524F7672#; -- "ROvr";
Rom_List_Resource : constant Restype := 16#524F7623#; -- "ROv#";
Serial_Driver : constant Restype := 16#53455244#; -- "SERD";
Script_Icon_Resource : constant Restype := 16#5349434E#; -- "SICN";
String_Resource : constant Restype := 16#53545220#; -- "STR ";
String_List_Resource : constant Restype := 16#53545223#; -- "STR#";
Window_Definition_Resource : constant Restype := 16#57444546#; -- "WDEF";
Window_Resource : constant Restype := 16#57494E44#; -- "WIND";
Alert_Color_Table_Resource : constant Restype := 16#61637462#; -- "actb";
Internal_Appletalk_Resource : constant Restype := 16#6174706C#; -- "atpl";
Bit_Map_Resource : constant Restype := 16#626D6170#; -- "bmap";
Boot_Blocks_Resource : constant Restype := 16#626F6F74#; -- "boot";
Control_Color_Table_Resource : constant Restype := 16#63637462#; -- "cctb";
Color_Icon_Resource : constant Restype := 16#6369636E#; -- "cicn";
Projector_Resource : constant Restype := 16#636B6964#; -- "ckid";
Cached_Icon_List_Resource : constant Restype := 16#636C7374#; -- "clst";
Color_Lookup_Table_Resource : constant Restype := 16#636C7574#; -- "clut";
Color_Cursor_Resource : constant Restype := 16#63727372#; -- "crsr";
Control_Panel_Resource : constant Restype := 16#63746162#; -- "ctab";
Dialog_Color_Table_Resource : constant Restype := 16#64637462#; -- "dctb";
Font_Color_Table_Resource : constant Restype := 16#66637462#; -- "fctb";
Font_Information_Resource : constant Restype := 16#66696E66#; -- "finf";
Color_Correction_Resource : constant Restype := 16#67616D61#; -- "gama";
Color_Table_Item_Resource : constant Restype := 16#69637462#; -- "ictb";
Installer_Script_Resource : constant Restype := 16#696E7363#; -- "insc";
Date_Time_Format_Resource : constant Restype := 16#69746C30#; -- "itl0";
Day_Month_Name_Resource : constant Restype := 16#69746C31#; -- "itl1";
Iu_Sort_Hooks_Resource : constant Restype := 16#69746C32#; -- "itl2";
Iu_Script_Bundles_Resource : constant Restype := 16#69746C62#; -- "itlb";
Iu_Configuration_Resource : constant Restype := 16#69746C63#; -- "itlc";
Low_Memory_Globals_Resource : constant Restype := 16#6C6D656D#; -- "lmem";
Mouse_Tracking_Resource : constant Restype := 16#6D636B79#; -- "mcky";
Menu_Color_Table_Resource : constant Restype := 16#6D637462#; -- "mctb";
Makeitable_Resource : constant Restype := 16#6D697471#; -- "mitq";
Appletalk_Configuration_Resource :
constant Restype := 16#6D707063#; -- "mppc";
Rectangle_Position_Resource : constant Restype := 16#6E726374#; -- "nrct";
Color_Palette_Resource : constant Restype := 16#706C7474#; -- "pltt";
Pixel_Pattern_Resource : constant Restype := 16#70706174#; -- "ppat";
Screen_Resource : constant Restype := 16#7363726E#; -- "scrn";
Sound_Resource : constant Restype := 16#736E6420#; -- "snd ";
Synthesizer_Resource : constant Restype := 16#736E7468#; -- "snth";
Window_Color_Table_Resource : constant Restype := 16#77637462#; -- "wctb";
function Initresources return Mac_Types.Integer;
pragma Interface (Mpwpascal, Initresources, "16#A995#");
procedure Rsrczoneinit;
pragma Interface (Mpwpascal, Rsrczoneinit, "16#A996#");
procedure Closeresfile (Refnum : Mac_Types.Integer);
pragma Interface (Mpwpascal, Closeresfile, "16#A99A#");
function Reserror return Mac_Types.Integer;
pragma Interface (Mpwpascal, Reserror, "16#A9AF#");
function Curresfile return Mac_Types.Integer;
pragma Interface (Mpwpascal, Curresfile, "16#A994#");
function Homeresfile (Theresource : Handle) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Homeresfile, "16#A9A4#");
procedure Createresfile (Filename : Str255);
pragma Interface (Mpwpascal, Createresfile, "16#A9B1#");
function Openresfile (Filename : Str255) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Openresfile, "16#A997#");
procedure Useresfile (Refnum : Mac_Types.Integer);
pragma Interface (Mpwpascal, Useresfile, "16#A998#");
function Counttypes return Mac_Types.Integer;
pragma Interface (Mpwpascal, Counttypes, "16#A99E#");
function Count1types return Mac_Types.Integer;
pragma Interface (Mpwpascal, Count1types, "16#A81C#");
procedure Getindtype (Thetype : in out Restype; Index : Mac_Types.Integer);
pragma Interface (Mpwpascal, Getindtype, "16#A99F#");
procedure Get1indtype (Thetype : in out Restype; Index : Mac_Types.Integer);
pragma Interface (Mpwpascal, Get1indtype, "16#A80F#");
procedure Setresload (Load : Boolean);
pragma Interface (Mpwpascal, Setresload, "16#A99B#");
function Countresources (Thetype : Restype) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Countresources, "16#A99C#");
function Count1resources (Thetype : Restype) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Count1resources, "16#A80D#");
function Getindresource
(Thetype : Restype; Index : Mac_Types.Integer) return Handle;
pragma Interface (Mpwpascal, Getindresource, "16#A99D#");
function Get1indresource
(Thetype : Restype; Index : Mac_Types.Integer) return Handle;
pragma Interface (Mpwpascal, Get1indresource, "16#A80E#");
function Getresource
(Thetype : Restype; Theid : Mac_Types.Integer) return Handle;
pragma Interface (Mpwpascal, Getresource, "16#A9A0#");
function Get1resource
(Thetype : Restype; Theid : Mac_Types.Integer) return Handle;
pragma Interface (Mpwpascal, Get1resource, "16#A81F#");
function Getnamedresource (Thetype : Restype; Name : Str255) return Handle;
pragma Interface (Mpwpascal, Getnamedresource, "16#A9A1#");
function Get1namedresource (Thetype : Restype; Name : Str255) return Handle;
pragma Interface (Mpwpascal, Get1namedresource, "16#A820#");
procedure Loadresource (Theresource : Handle);
pragma Interface (Mpwpascal, Loadresource, "16#A9A2#");
procedure Releaseresource (Theresource : Handle);
pragma Interface (Mpwpascal, Releaseresource, "16#A9A3#");
procedure Detachresource (Theresource : Handle);
pragma Interface (Mpwpascal, Detachresource, "16#A992#");
function Uniqueid (Thetype : Restype) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Uniqueid, "16#A9C1#");
function Unique1id (Thetype : Restype) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Unique1id, "16#A810#");
function Getresattrs (Theresource : Handle) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Getresattrs, "16#A9A6#");
procedure Getresinfo (Theresource : Handle;
Theid : in out Mac_Types.Integer;
Thetype : in out Restype;
Name : in out Str255);
pragma Interface (Mpwpascal, Getresinfo, "16#A9A8#");
procedure Setresinfo (Theresource : Handle;
Theid : Mac_Types.Integer;
Name : Str255);
pragma Interface (Mpwpascal, Setresinfo, "16#A9A9#");
procedure Addresource (Theresource : Handle;
Thetype : Restype;
Theid : Mac_Types.Integer;
Name : Str255);
pragma Interface (Mpwpascal, Addresource, "16#A9AB#");
function Sizeresource (Theresource : Handle) return Longint;
pragma Interface (Mpwpascal, Sizeresource, "16#A9A5#");
function Maxsizersrc (Theresource : Handle) return Longint;
pragma Interface (Mpwpascal, Maxsizersrc, "16#A821#");
function Rsrcmapentry (Theresource : Handle) return Longint;
pragma Interface (Mpwpascal, Rsrcmapentry, "16#A9C5#");
procedure Setresattrs (Theresource : Handle; Attrs : Mac_Types.Integer);
pragma Interface (Mpwpascal, Setresattrs, "16#A9A7#");
procedure Changedresource (Theresource : Handle);
pragma Interface (Mpwpascal, Changedresource, "16#A9AA#");
procedure Rmveresource (Theresource : Handle);
pragma Interface (Mpwpascal, Rmveresource, "16#A9AD#");
procedure Updateresfile (Refnum : Mac_Types.Integer);
pragma Interface (Mpwpascal, Updateresfile, "16#A999#");
procedure Writeresource (Theresource : Handle);
pragma Interface (Mpwpascal, Writeresource, "16#A9B0#");
procedure Setrespurge (Install : Boolean);
pragma Interface (Mpwpascal, Setrespurge, "16#A993#");
function Getresfileattrs (Refnum : Mac_Types.Integer)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Getresfileattrs, "16#A9F6#");
procedure Setresfileattrs (Refnum : Mac_Types.Integer;
Attrs : Mac_Types.Integer);
pragma Interface (Mpwpascal, Setresfileattrs, "16#A9F7#");
function Openrfperm (Filename : Str255;
Vrefnum : Mac_Types.Integer;
Permission : Signedbyte) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Openrfperm, "16#A9C4#");
function Rgetresource
(Thetype : Restype; Theid : Mac_Types.Integer) return Handle;
pragma Interface (Mpwpascal, Rgetresource, "16#A80C#");
function Hopenresfile (Vrefnum : Mac_Types.Integer;
Dirid : Longint;
Filename : Str255;
Permission : Signedbyte) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Hopenresfile, "HOPENRESFILE");
procedure Hcreateresfile (Vrefnum : Mac_Types.Integer;
Dirid : Longint;
Filename : Str255);
pragma Interface (Mpwpascal, Hcreateresfile, "HCREATERESFILE");
end Resources;
nblk1=e
nid=0
hdr6=1c
[0x00] rec0=18 rec1=00 rec2=01 rec3=072
[0x01] rec0=0e rec1=00 rec2=02 rec3=062
[0x02] rec0=0e rec1=00 rec2=03 rec3=096
[0x03] rec0=0e rec1=00 rec2=04 rec3=070
[0x04] rec0=0e rec1=00 rec2=05 rec3=03a
[0x05] rec0=0d rec1=00 rec2=06 rec3=034
[0x06] rec0=0f rec1=00 rec2=07 rec3=03e
[0x07] rec0=19 rec1=00 rec2=08 rec3=03e
[0x08] rec0=18 rec1=00 rec2=09 rec3=046
[0x09] rec0=16 rec1=00 rec2=0a rec3=032
[0x0a] rec0=17 rec1=00 rec2=0b rec3=05e
[0x0b] rec0=17 rec1=00 rec2=0c rec3=06a
[0x0c] rec0=18 rec1=00 rec2=0d rec3=066
[0x0d] rec0=14 rec1=00 rec2=0e rec3=000
tail 0x2151d44d883906e284027 0x42a00088462060003