[Back to MISC SWAG index] [Back to Main SWAG index] [Original]

    {
    REYNIR STEFANSSON

    For anyone wondering how to reboot a PClone from Within Turbo Pascal:
    The Inline code is a far jump to the restart vector at $FFFF:0.
    }

    Procedure ColdStart;
    begin
       MemW[$40:$72] := 0;
       Inline($EA/0/0/$FF/$FF);
    end;

    Procedure WarmStart;
    begin
       MemW[$40:$72] := $1234;
       Inline($EA/0/0/$FF/$FF);
    end;

[Back to MISC SWAG index] [Back to Main SWAG index] [Original]