DataMuseum.dk

top - download

    Length: 12150 (0x2f76)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦d136ffe41⟧ 
            └─⟦this⟧ 

TextFile

package body Osutils is


    function Getsyspptr_Mac return Syspptr;
    pragma Interface (Mpwpascal, Getsyspptr_Mac, "GETSYSPPTR");

    procedure Sysbeep_Mac (Duration : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Sysbeep_Mac, "16#A9C8#");

    function Keytrans_Mac (Transdata : Ptr;
                           Keycode : Mac_Types.Integer;
                           State : Varlongint) return Longint;
    pragma Interface (Mpwpascal, Keytrans_Mac, "16#A9C3#");

    function Dtinstall_Mac (Dttaskptr : Qelemptr) return Oserr;
    pragma Interface (Mpwpascal, Dtinstall_Mac, "DTINSTALL");

    function Getmmumode_Mac return Signedbyte;
    pragma Interface (Mpwpascal, Getmmumode_Mac, "GETMMUMODE");

    procedure Swapmmumode_Mac (Mode : in out Signedbyte);
    pragma Interface (Mpwpascal, Swapmmumode_Mac, "SWAPMMUMODE");

    function Sysenvirons_Mac
                (Versionrequested : Mac_Types.Integer; Theworld : Sysenvrec)
                return Oserr;
    pragma Interface (Mpwpascal, Sysenvirons_Mac, "SYSENVIRONS");

    function Readdatetime_Mac (Time : Varlongint) return Oserr;
    pragma Interface (Mpwpascal, Readdatetime_Mac, "READDATETIME");

    procedure Getdatetime_Mac (Secs : in out Longint);
    pragma Interface (Mpwpascal, Getdatetime_Mac, "GETDATETIME");

    function Setdatetime_Mac (Time : Longint) return Oserr;
    pragma Interface (Mpwpascal, Setdatetime_Mac, "SETDATETIME");

    procedure Settime_Mac (D : Datetimerec);
    pragma Interface (Mpwpascal, Settime_Mac, "SETTIME");

    procedure Gettime_Mac (D : in out Datetimerec);
    pragma Interface (Mpwpascal, Gettime_Mac, "GETTIME");

    procedure Date2secs_Mac (D : Datetimerec; S : in out Longint);
    pragma Interface (Mpwpascal, Date2secs_Mac, "DATE2SECS");

    procedure Secs2date_Mac (S : Longint; D : in out Datetimerec);
    pragma Interface (Mpwpascal, Secs2date_Mac, "SECS2DATE");

    procedure Macdelay_Mac (Numticks : Longint; Finalticks : in out Longint);
    pragma Interface (Mpwpascal, Macdelay_Mac, "DELAY");

    function Gettrapaddress_Mac (Trapnum : Mac_Types.Integer) return Longint;
    pragma Interface (Mpwpascal, Gettrapaddress_Mac, "GETTRAPADDRESS");

    procedure Settrapaddress_Mac (Trapaddr : Longint;
                                  Trapnum : Mac_Types.Integer);
    pragma Interface (Mpwpascal, Settrapaddress_Mac, "SETTRAPADDRESS");

    function Ngettrapaddress_Mac
                (Trapnum : Mac_Types.Integer; Ttyp : Traptype) return Longint;
    pragma Interface (Mpwpascal, Ngettrapaddress_Mac, "NGETTRAPADDRESS");

    procedure Nsettrapaddress_Mac (Trapaddr : Longint;
                                   Trapnum : Mac_Types.Integer;
                                   Ttyp : Traptype);
    pragma Interface (Mpwpascal, Nsettrapaddress_Mac, "NSETTRAPADDRESS");

    function Writeparam_Mac return Oserr;
    pragma Interface (Mpwpascal, Writeparam_Mac, "WRITEPARAM");

    function Equalstring_Mac (Str1 : Str255;
                              Str2 : Str255;
                              Casesens : Boolean;
                              Diacsens : Boolean) return Boolean;
    pragma Interface (Mpwpascal, Equalstring_Mac, "EQUALSTRING");

    procedure Uprstring_Mac (Thestring : in out Str255; Diacsens : Boolean);
    pragma Interface (Mpwpascal, Uprstring_Mac, "UPRSTRING");

    procedure Enqueue_Mac (Qelement : Qelemptr; Qheader : Qhdrptr);
    pragma Interface (Mpwpascal, Enqueue_Mac, "ENQUEUE");

    function Dequeue_Mac (Qelement : Qelemptr; Qheader : Qhdrptr) return Oserr;
    pragma Interface (Mpwpascal, Dequeue_Mac, "DEQUEUE");

    function Setcurrenta5_Mac return Longint;
    pragma Interface (Mpwpascal, Setcurrenta5_Mac,
                      "16#2E8D#,16#2A78#,16#0904#");

    function Seta5_Mac (Newa5 : Longint) return Longint;
    pragma Interface (Mpwpascal, Seta5_Mac, "16#2F4D#,16#0004#,16#2A5F#");

    procedure Setupa5_Mac;
    pragma Interface (Mpwpascal, Setupa5_Mac, "16#2F0D#,16#2A78#,16#0904#");

    procedure Restorea5_Mac;
    pragma Interface (Mpwpascal, Restorea5_Mac, "16#2A5F#");

    procedure Environs_Mac (Rom : in out Mac_Types.Integer;
                            Machine : in out Mac_Types.Integer);
    pragma Interface (Mpwpascal, Environs_Mac, "ENVIRONS");

    procedure Restart_Mac;
    pragma Interface (Mpwpascal, Restart_Mac, "RESTART");

    function Relstring_Mac (Str1 : Str255;
                            Str2 : Str255;
                            Casesens : Boolean;
                            Diacsens : Boolean) return Mac_Types.Integer;
    pragma Interface_Mac (Mpwpascal, Relstring, "RELSTRING");

    function Handtohand_Mac (Thehndl : Varhandle) return Oserr;
    pragma Interface (Mpwpascal, Handtohand_Mac, "HANDTOHAND");

    function Ptrtoxhand_Mac
                (Srcptr : Ptr; Dsthndl : Handle; Size : Longint) return Oserr;
    pragma Interface (Mpwpascal, Ptrtoxhand_Mac, "PTRTOXHAND");

    function Ptrtohand_Mac (Srcptr : Ptr; Dsthndl : Varhandle; Size : Longint)
                           return Oserr;
    pragma Interface (Mpwpascal, Ptrtohand_Mac, "PTRTOHAND");

    function Handandhand_Mac (Hand1 : Handle; Hand2 : Handle) return Oserr;
    pragma Interface (Mpwpascal, Handandhand_Mac, "HANDANDHAND");

    function Ptrandhand_Mac
                (Ptr1 : Ptr; Hand2 : Handle; Size : Longint) return Oserr;
    pragma Interface (Mpwpascal, Ptrandhand_Mac, "PTRANDHAND");

    function Initutil_Mac return Oserr;
    pragma Interface (Mpwpascal, Initutil_Mac, "16#A03F#,16#3E80#");

    function Swapinstructioncache_Mac (Cacheenable : Boolean) return Boolean;
    pragma Interface (Mpwpascal, Swapinstructioncache_Mac,
                      "SWAPINSTRUCTIONCACHE");

    procedure Flushinstructioncache_Mac;
    pragma Interface (Mpwpascal, Flushinstructioncache_Mac,
                      "FLUSHINSTRUCTIONCACHE");

    function Swapdatacache_Mac (Cacheenable : Boolean) return Boolean;
    pragma Interface (Mpwpascal, Swapdatacache_Mac, "SWAPDATACACHE");

    procedure Flushdatacache_Mac;
    pragma Interface (Mpwpascal, Flushdatacache_Mac, "FLUSHDATACACHE");




    function Getsyspptr return Syspptr is
    begin
        return Getsyspptr_Mac;
    end Getsyspptr;


    procedure Sysbeep (Duration : Mac_Types.Integer) is
    begin
        Sysbeep_Mac (Duration);
    end Sysbeep;


    function Keytrans (Transdata : Ptr;
                       Keycode : Mac_Types.Integer;
                       State : Varlongint) return Longint is
    begin
        return Keytrans (Transdata, Keycode, State);
    end Keytrans;


    function Dtinstall (Dttaskptr : Qelemptr) return Oserr is
    begin
        return Dtinstall (Dttaskptr);
    end Dtinstall;


    function Getmmumode return Signedbyte is
    begin
        return Getmmumode;
    end Getmmumode;


    procedure Swapmmumode (Mode : in out Signedbyte) is
    begin
        Swapmmumode_Mac (Mode);
    end Swapmmumode;


    function Sysenvirons
                (Versionrequested : Mac_Types.Integer; Theworld : Sysenvrec)
                return Oserr is
    begin
        return Sysenvirons (Versionrequested, Theworld);
    end Sysenvirons;


    function Readdatetime (Time : Varlongint) return Oserr is
    begin
        return Readdatetime (Time);
    end Readdatetime;


    procedure Getdatetime (Secs : in out Longint) is
    begin
        Getdatetime_Mac (Secs);
    end Getdatetime;


    function Setdatetime (Time : Longint) return Oserr is
    begin
        return Setdatetime (Time);
    end Setdatetime;


    procedure Settime (D : Datetimerec) is
    begin
        Settime_Mac (D);
    end Settime;


    procedure Gettime (D : in out Datetimerec) is
    begin
        Gettime_Mac (D);
    end Gettime;


    procedure Date2secs (D : Datetimerec; S : in out Longint) is
    begin
        Date2secs_Mac (D, S);
    end Date2secs;


    procedure Secs2date (S : Longint; D : in out Datetimerec) is
    begin
        Secs2date_Mac (S, D);
    end Secs2date;


    procedure Macdelay (Numticks : Longint; Finalticks : in out Longint) is
    begin
        Macdelay_Mac (Numticks, Finalticks);
    end Macdelay;


    function Gettrapaddress (Trapnum : Mac_Types.Integer) return Longint is
    begin
        return Gettrapaddress (Trapnum);
    end Gettrapaddress;


    procedure Settrapaddress (Trapaddr : Longint;
                              Trapnum : Mac_Types.Integer) is
    begin
        Settrapaddress_Mac (Trapaddr, Trapnum);
    end Settrapaddress;


    function Ngettrapaddress
                (Trapnum : Mac_Types.Integer; Ttyp : Traptype) return Longint is
    begin
        return Ngettrapaddress (Trapnum, Ttyp);
    end Ngettrapaddress;


    procedure Nsettrapaddress (Trapaddr : Longint;
                               Trapnum : Mac_Types.Integer;
                               Ttyp : Traptype) is
    begin
        Nsettrapaddress_Mac (Trapaddr, Trapnum, Ttyp);
    end Nsettrapaddress;


    function Writeparam return Oserr is
    begin
        return Writeparam;
    end Writeparam;


    function Equalstring (Str1 : Str255;
                          Str2 : Str255;
                          Casesens : Boolean;
                          Diacsens : Boolean) return Boolean is
    begin
        return Equalstring (Str1, Str2, Casesens, Diacsens);
    end Equalstring;


    procedure Uprstring (Thestring : in out Str255; Diacsens : Boolean) is
    begin
        Uprstring_Mac (Thestring, Diacsens);
    end Uprstring;


    procedure Enqueue (Qelement : Qelemptr; Qheader : Qhdrptr) is
    begin
        Enqueue_Mac (Qelement, Qheader);
    end Enqueue;


    function Dequeue (Qelement : Qelemptr; Qheader : Qhdrptr) return Oserr is
    begin
        return Dequeue (Qelement, Qheader);
    end Dequeue;


    function Setcurrenta5 return Longint is
    begin
        return Setcurrenta5;
    end Setcurrenta5;


    function Seta5 (Newa5 : Longint) return Longint is
    begin
        return Seta5 (Newa5);
    end Seta5;


    procedure Setupa5 is
    begin
        Setupa5_Mac;
    end Setupa5;


    procedure Restorea5 is
    begin
        Restorea5_Mac;
    end Restorea5;


    procedure Environs (Rom : in out Mac_Types.Integer;
                        Machine : in out Mac_Types.Integer) is
    begin
        Environs_Mac (Rom, Machine);

    end Environs;


    procedure Restart is
    begin
        Restart_Mac;
    end Restart;


    function Relstring (Str1 : Str255;
                        Str2 : Str255;
                        Casesens : Boolean;
                        Diacsens : Boolean) return Mac_Types.Integer is
    begin
        return Relstring (Str1, Str2, Casesens, Diacsens);
    end Relstring;


    function Handtohand (Thehndl : Varhandle) return Oserr is
    begin
        return Handtohand (Thehndl);
    end Handtohand;


    function Ptrtoxhand
                (Srcptr : Ptr; Dsthndl : Handle; Size : Longint) return Oserr is
    begin
        return Ptrtoxhand (Srcptr, Dsthndl, Size);
    end Ptrtoxhand;


    function Ptrtohand (Srcptr : Ptr; Dsthndl : Varhandle; Size : Longint)
                       return Oserr is
    begin
        return Ptrtohand (Srcptr, Dsthndl, Size);
    end Ptrtohand;


    function Handandhand (Hand1 : Handle; Hand2 : Handle) return Oserr is
    begin
        return Handandhand (Hand1, Hand2);
    end Handandhand;


    function Ptrandhand
                (Ptr1 : Ptr; Hand2 : Handle; Size : Longint) return Oserr is
    begin
        return Ptrandhand (Ptr1, Hand2, Size);
    end Ptrandhand;


    function Initutil return Oserr is
    begin
        return Initutil;
    end Initutil;


    function Swapinstructioncache (Cacheenable : Boolean) return Boolean is
    begin
        return Swapinstructioncache (Cacheenable);
    end Swapinstructioncache;


    procedure Flushinstructioncache is
    begin
        Flushinstructioncache_Mac;
    end Flushinstructioncache;


    function Swapdatacache (Cacheenable : Boolean) return Boolean is
    begin
        return Swapdatacache (Cacheenable);
    end Swapdatacache;


    procedure Flushdatacache is
    begin
        Flushdatacache_Mac;
    end Flushdatacache;
end Osutils