home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / tsr / nocbrk2.pas < prev    next >
Pascal/Delphi Source File  |  1993-06-04  |  508b  |  22 lines
  1. PROGRAM NoCBrk2;
  2.  
  3.     BEGIN
  4.     ASM
  5.       MOV AX,[PrefixSeg] {PSP seg}
  6.       MOV ES,AX
  7.       MOV AX,ES:[2CH] {environment seg}
  8.       MOV ES,AX
  9.       MOV BYTE Ptr ES:[0],$CF {iret}
  10.       MOV AH,$4A {shrink block ES to...}
  11.       MOV BX,1   {...1 paragraph}
  12.       Int $21
  13.       MOV AX,ES  {environment seg}
  14.       MOV BX,AX
  15.       Dec AX
  16.       MOV ES,AX  {MCB of environment}
  17.       MOV WORD Ptr ES:[1],BX
  18.       MOV WORD Ptr [SaveInt1B],0
  19.       MOV WORD Ptr [SaveInt1B+2],BX
  20.     END;
  21.     END.
  22.