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

    { Boot system
     If warm is true a warm boot is performed, else a cold boot }
    Procedure Boot (Warm:Boolean);
    Begin
    Asm
      sti
      cmp Warm, 0
      je  @cold
      mov AX, 0
      jmp @boot
     @cold:
      mov AX, 1
     @boot:
      mov DS, AX
      mov AX, 1234h
      mov [0472h], AX
     End;
    Inline ($EA/$00/$00/$FF/$FF);
    End;

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