|
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: 11264 (0x2c00) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Memory, seg_02221f
└─⟦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. -- with Mac_Types; use Mac_Types; package Memory is Maxsize : constant := 16#800000#; type Zone is record Bklim : Ptr; Purgeptr : Ptr; Hfstfree : Ptr; Zcbfree : Longint; Gzproc : Procptr; Moremast : Mac_Types.Integer; Flags : Mac_Types.Integer; Cntrel : Mac_Types.Integer; Maxrel : Mac_Types.Integer; Cntnrel : Mac_Types.Integer; Maxnrel : Mac_Types.Integer; Cntempty : Mac_Types.Integer; Cnthandles : Mac_Types.Integer; Mincbfree : Longint; Purgeproc : Procptr; Spareptr : Ptr; Allocptr : Ptr; Heapdata : Mac_Types.Integer; end record; type Thz is access Zone; subtype Size is Longint; type Varsize is access Size; function Getappllimit return Ptr; pragma Interface (Mpwpascal, Getappllimit, "16#2EB8#,16#0130#"); function Getzone return Thz; pragma Interface (Mpwpascal, Getzone, "GETZONE"); function Systemzone return Thz; pragma Interface (Mpwpascal, Systemzone, "16#2EB8#,16#02A6#"); function Appliczone return Thz; pragma Interface (Mpwpascal, Appliczone, "16#2EB8#,16#02AA#"); function Newhandle (Bytecount : Size) return Handle; pragma Interface (Mpwpascal, Newhandle, "NEWHANDLE"); function Newhandlesys (Bytecount : Size) return Handle; pragma Interface (Mpwpascal, Newhandlesys, "NEWHANDLESYS"); function Newhandleclear (Bytecount : Size) return Handle; pragma Interface (Mpwpascal, Newhandleclear, "NEWHANDLECLEAR"); function Newhandlesysclear (Bytecount : Size) return Handle; pragma Interface (Mpwpascal, Newhandlesysclear, "NEWHANDLESYSCLEAR"); function Handlezone (H : Handle) return Thz; pragma Interface (Mpwpascal, Handlezone, "HANDLEZONE"); function Recoverhandle (P : Ptr) return Handle; pragma Interface (Mpwpascal, Recoverhandle, "RECOVERHANDLE"); function Newptr (Bytecount : Size) return Ptr; pragma Interface (Mpwpascal, Newptr, "NEWPTR"); function Newptrsys (Bytecount : Size) return Ptr; pragma Interface (Mpwpascal, Newptrsys, "NEWPTRSYS"); function Newptrclear (Bytecount : Size) return Ptr; pragma Interface (Mpwpascal, Newptrclear, "NEWPTRCLEAR"); function Newptrsysclear (Bytecount : Size) return Ptr; pragma Interface (Mpwpascal, Newptrsysclear, "NEWPTRSYSCLEAR"); function Ptrzone (P : Ptr) return Thz; pragma Interface (Mpwpascal, Ptrzone, "PTRZONE"); function Gzsavehnd return Handle; pragma Interface (Mpwpascal, Gzsavehnd, "16#2EB8#,16#0328#"); function Topmem return Ptr; pragma Interface (Mpwpascal, Topmem, "16#2EB8#,16#0108#"); function Maxblock return Longint; pragma Interface (Mpwpascal, Maxblock, "MAXBLOCK"); function Stackspace return Longint; pragma Interface (Mpwpascal, Stackspace, "STACKSPACE"); function Newemptyhandle return Handle; pragma Interface (Mpwpascal, Newemptyhandle, "NEWEMPTYHANDLE"); procedure Hlock (H : Handle); pragma Interface (Mpwpascal, Hlock, "HLOCK"); procedure Hunlock (H : Handle); pragma Interface (Mpwpascal, Hunlock, "HUNLOCK"); procedure Hpurge (H : Handle); pragma Interface (Mpwpascal, Hpurge, "HPURGE"); procedure Hnopurge (H : Handle); pragma Interface (Mpwpascal, Hnopurge, "HNOPURGE"); function Stripaddress (Theaddress : Ptr) return Ptr; pragma Interface (Mpwpascal, Stripaddress, "STRIPADDRESS"); function Mfmaxmem (Grow : Varsize) return Size; pragma Interface (Mpwpascal, Mfmaxmem, "16#3F3C#,16#0015#,16#A88F#"); function Mffreemem return Longint; pragma Interface (Mpwpascal, Mffreemem, "16#3F3C#,16#0018#,16#A88F#"); function Mftempnewhandle (Logicalsize : Size; Resultcode : Varoserr) return Handle; pragma Interface (Mpwpascal, Mftempnewhandle, "16#3F3C#,16#001D#,16#A88F#"); procedure Mftemphlock (H : Handle; Resultcode : in out Oserr); pragma Interface (Mpwpascal, Mftemphlock, "16#3F3C#,16#001E#,16#A88F#"); procedure Mftemphunlock (H : Handle; Resultcode : in out Oserr); pragma Interface (Mpwpascal, Mftemphunlock, "16#3F3C#,16#001F#,16#A88F#"); procedure Mftempdisposhandle (H : Handle; Resultcode : in out Oserr); pragma Interface (Mpwpascal, Mftempdisposhandle, "16#3F3C#,16#0020#,16#A88F#"); function Mftopmem return Ptr; pragma Interface (Mpwpascal, Mftopmem, "16#3F3C#,16#0016#,16#A88F#"); procedure Initapplzone; pragma Interface (Mpwpascal, Initapplzone, "INITAPPLZONE"); procedure Initzone (Pgrowzone : Procptr; Cmoremasters : Mac_Types.Integer; Limitptr : Ptr; Startptr : Ptr); pragma Interface (Mpwpascal, Initzone, "INITZONE"); procedure Setzone (Hz : Thz); pragma Interface (Mpwpascal, Setzone, "SETZONE"); function Compactmem (Cbneeded : Size) return Size; pragma Interface (Mpwpascal, Compactmem, "COMPACTMEM"); procedure Purgemem (Cbneeded : Size); pragma Interface (Mpwpascal, Purgemem, "PURGEMEM"); function Freemem return Longint; pragma Interface (Mpwpascal, Freemem, "FREEMEM"); procedure Resrvmem (Cbneeded : Size); pragma Interface (Mpwpascal, Resrvmem, "RESRVMEM"); function Maxmem (Grow : Varsize) return Size; pragma Interface (Mpwpascal, Maxmem, "MAXMEM"); procedure Setgrowzone (Growzone : Procptr); pragma Interface (Mpwpascal, Setgrowzone, "SETGROWZONE"); procedure Setappllimit (Zonelimit : Ptr); pragma Interface (Mpwpascal, Setappllimit, "SETAPPLLIMIT"); procedure Movehhi (H : Handle); pragma Interface (Mpwpascal, Movehhi, "MOVEHHI"); procedure Disposptr (P : Ptr); pragma Interface (Mpwpascal, Disposptr, "DISPOSPTR"); function Getptrsize (P : Ptr) return Size; pragma Interface (Mpwpascal, Getptrsize, "GETPTRSIZE"); procedure Setptrsize (P : Ptr; Newsize : Size); pragma Interface (Mpwpascal, Setptrsize, "SETPTRSIZE"); procedure Disposhandle (H : Handle); pragma Interface (Mpwpascal, Disposhandle, "DISPOSHANDLE"); function Gethandlesize (H : Handle) return Size; pragma Interface (Mpwpascal, Gethandlesize, "GETHANDLESIZE"); procedure Sethandlesize (H : Handle; Newsize : Size); pragma Interface (Mpwpascal, Sethandlesize, "SETHANDLESIZE"); procedure Emptyhandle (H : Handle); pragma Interface (Mpwpascal, Emptyhandle, "EMPTYHANDLE"); procedure Reallochandle (H : Handle; Bytecount : Size); pragma Interface (Mpwpascal, Reallochandle, "REALLOCHANDLE"); procedure Hsetrbit (H : Handle); pragma Interface (Mpwpascal, Hsetrbit, "HSETRBIT"); procedure Hclrrbit (H : Handle); pragma Interface (Mpwpascal, Hclrrbit, "HCLRRBIT"); procedure Moremasters; pragma Interface (Mpwpascal, Moremasters, "MOREMASTERS"); procedure Blockmove (Srcptr : Ptr; Destptr : Ptr; Bytecount : Size); pragma Interface (Mpwpascal, Blockmove, "BLOCKMOVE"); function Memerror return Oserr; pragma Interface (Mpwpascal, Memerror, "16#3EB8#,16#0220#"); procedure Purgespace (Total : in out Longint; Contig : in out Longint); pragma Interface (Mpwpascal, Purgespace, "PURGESPACE"); function Hgetstate (H : Handle) return Signedbyte; pragma Interface (Mpwpascal, Hgetstate, "HGETSTATE"); procedure Hsetstate (H : Handle; Flags : Signedbyte); pragma Interface (Mpwpascal, Hsetstate, "HSETSTATE"); procedure Setapplbase (Startptr : Ptr); pragma Interface (Mpwpascal, Setapplbase, "SETAPPLBASE"); procedure Maxapplzone; pragma Interface (Mpwpascal, Maxapplzone, "MAXAPPLZONE"); generic with function Routine (Cbneeded : Size) return Longint; procedure Usergrowroutine; end Memory;
nblk1=a nid=6 hdr6=12 [0x00] rec0=23 rec1=00 rec2=01 rec3=018 [0x01] rec0=19 rec1=00 rec2=02 rec3=01c [0x02] rec0=1a rec1=00 rec2=03 rec3=048 [0x03] rec0=1c rec1=00 rec2=04 rec3=056 [0x04] rec0=17 rec1=00 rec2=05 rec3=03c [0x05] rec0=1b rec1=00 rec2=0a rec3=054 [0x06] rec0=1b rec1=00 rec2=07 rec3=028 [0x07] rec0=1a rec1=00 rec2=08 rec3=04c [0x08] rec0=0d rec1=00 rec2=09 rec3=000 [0x09] rec0=56 rec1=5c rec2=f2 rec3=284 tail 0x2171de9f683914c03d09e 0x42a00088462060003 Free Block Chain: 0x6: 0000 00 00 03 fc 80 1b 61 73 74 65 72 73 20 3a 20 4d ┆ asters : M┆