procedure Crash ;

begin // Run.Crash
    // Process switches...
    if( Parse_Switch( 'R|ESTART', '', C, Temp ) = 1 ) then
    begin
        Restart := OPC_RESTART ;
        if( Temp <> '' ) then
        begin
            E := UUI_NOSWITCH ;
            Ctx := Temp ;
            exit ;
        end ;
    end ;
    if( Parse_Switch( 'H|IBERNATE', '', C, Temp ) = 1 ) then
    begin
        Restart := Restart or OPC_HIBERNATE ;
        if( Temp <> '' ) then
        begin
            E := UUI_NOSWITCH ;
            Ctx := Temp ;
            exit ;
        end ;
    end ;
    if( Switch_Present( C ) <> 0 ) then
    begin
        E := UUI_IVQUAL ;
        Ctx := C ;
        exit ;
    end ;

    // Do crash...
    E := SYS_SHUTDOWN( int64( @Restart ) ) ;
end ;

begin // Run
// Setup...
Result := 0 ;
OS := new( POS_UOS, Init ) ;
C := PChar( OS^.Command_Line ) ;
Ctx := '' ;
Restart := 0 ;

Crash ;

OS^.OutputLn( 0, LIB_Get_Exception_Text( 0, E ) ) ;
if( Ctx <> '' ) then
begin
    OS^.OutputLn( 0, '    \' + Ctx + '\' ) ;
end ;
OS.Free ;
SYS_EXIT( 0 ) ;
end ;

function SYS_SHUTDOWN( Flags : int64 ) : int64 ;

var Status : int64 ;
    SysRequest : TInteger_Request ;

begin
    Status := 0 ;
    fillchar( SysRequest, sizeof( SysRequest ), 0 ) ;
    SysRequest.Request.Subsystem :=  UOS_Subsystem_Kernel ;
    SysRequest.Request.Request := UOS_Kernel_Shutdown ;
    SysRequest.Request.Length := sizeof( SysRequest ) - sizeof( TSystem_Request ) ;
    SysRequest.Request.Status := integer( @Status ) ;
    SysRequest.Int := Flags ;

    Call_To_Ring0( integer( @SysRequest ) ) ;

    Result := Status ;
end ;

            UOS_Kernel_Shutdown:
                begin
                    Offset := MMC.Lock_Pages( PID, Value, sizeof( TInteger_Request ) ) ;
                    Base := MMC.Map_Pages( PID, 0, Value, sizeof( TInteger_Request ), 
                      MAM_Read or MAM_Lock ) ;
                    if( Base = 0 ) then // Couldn't map the memory
                    begin
                        USC.Set_Process_Exception( PID, MMC.Last_Error ) ;
                        if( MMC.Last_Error = nil ) then
                        begin
                            Generate_Exception( UOSErr_Memory_Address_Error ) ;
                        end ;
                        exit ;
                    end ;
                    Integer_Request := PInteger_Request( Base + Offset ) ;
                    try
                        Status64 := Shutdown( Integer_Request.Int ) ;
                        if( String_Request.Request.Status <> 0 ) then // Return status
                        begin
                            Write_User_int64( Kernel, PID, String_Request.Request.Status, Status64 ) ;
                        end ;
                    finally
                        MMC.UnMap_Pages( 0, Value, sizeof( TString_Request ) ) ;
                        MMC.Unlock_Pages( PID, Value, sizeof( TString_Request ) ) ;
                    end ;
                    exit ;
                end ;

function TKernel.Shutdown( Flags : int64 ) : int64 ;

var Status : longint ;
    Boot_Name : string ;

begin
    // Get and validate parameter...
    if( Flags <> 0 ) then
    begin
        Flags := Get_User_Integer( Kernel, PID, Flags, Status ) ;
        if( Status <> 0 ) then
        begin
            Result := Status ;
            exit ;
        end ;
    end ;
    if( ( Flags < 0 ) or ( Flags > 3 ) ) then
    begin
        Result := Generate_Exception( UOSErr_Invalid_Flags ) ;
        exit ;
    end ;

    // Verify privileges...
    if( ( USC.Get_Process_Info( PID, JPI_CURPRIV ) and CMKRNL ) = 0 ) then
    begin
        Result := SS_NOPRIV ; // User doen't have privilege to do this...
        exit ;
    end ;

    if( ( Flags and OPC_HIBERNATE ) <> 0 ) then
    begin
        //TODO: Handle hibernate flag...
    end ;
    //TODO: Handle OPC$NODUMP...

    // Dismount boot disk...
    Boot_Name := Device_Name( Boot ) ;
    Boot_Name := Boot_Name + ':'#0 ; // Make sure it ends with a colon and null
    setlength( Boot_Name, length( Boot_Name ) - 1 ) ; // Hide null
    FiP.Dismount( PChar( @Boot_Name[ 1 ] ), 0 ) ;

    // Perform shutdown operation...
    if( ( Flags and OPC_RESTART ) <> 0 ) then
    begin
        __HAL.Reboot ;
    end else
    begin
        __HAL.Halt ;
    end ;
end ;