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

{
> upon another problem: how do I detect the "presence" of a
> self-developed TSR, which I made resident with KEEP(0) ?
}

VAR
  HandlerSeg : WORD;

Begin
  asm
    mov ax, $3565
    int $21
    mov Handlerseg, es
  End;

  IF (Handlerseg <> $FFFF)  THEN
  Begin
    asm
      push ds
      mov ax, $FFFF
      mov ds, ax
      mov ax, $2565
      mov dx, $0000
      int $21
      pop ds
    End;
  End
  ELSE
  Begin
    WriteLn( 'Program already installed.' );
    Halt( 0 );
  End;

  { Blah blah blah }
End.

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