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

    {
    From: STEVE ROGERS
    Subj: Rebooting
    Here's some code to make both warmboot and coldboot com files. If you
    want to make them TP procs, just enter them as inline code.

    ------------------------------------------------------------------------
    {Makes two COM files: WARMBOOT & COLDBOOT }

    const
      Warm_Boot : array[1..17] of byte =  { inline code for warm boot }
                                         ($BB,$00,$01,$B8,$40,$00,
                                          $8E,$D8,$89,$1E,$72,$00,
                                          $EA,$00,$00,$FF,$FF);

      Cold_Boot : array[1..17] of byte =  { inline code for cold boot }
                                         ($BB,$38,$12,$B8,$40,$00,
                                          $8E,$D8,$89,$1E,$72,$00,
                                          $EA,$00,$00,$FF,$FF);

    var
      f : file;

    begin
      assign(f,'warmboot.com');
      rewrite(f,1);
      blockwrite(f,warm_boot,17);
      close(f);

      assign(f,'coldboot.com');
      rewrite(f,1);
      blockwrite(f,cold_boot,17);
      close(f);
    end.

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