home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / tsr / nocbrk1.pas < prev    next >
Pascal/Delphi Source File  |  1993-06-04  |  290b  |  18 lines
  1. PROGRAM NoCBrk1;
  2.  
  3.     USES Dos;
  4.  
  5.     VAR
  6.       Regs:Registers;
  7.  
  8.     BEGIN
  9.       BYTE(Ptr(PrefixSeg,4)^):=$CF; {iret}
  10.       SwapVectors;
  11.       SetIntVec($1B,Ptr(PrefixSeg,4));
  12.       WITH Regs DO BEGIN
  13.         AX:=$3100;
  14.         DX:=6;
  15.         MsDos(Regs)
  16.       END
  17.     END.
  18.