home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0503.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-31  |  873 b   |  25 lines
  1. Program FirstInlineDemo;
  2. { This is the first demonstration program that shows how to   }
  3. { create an inline statement by using DOS's Debug utility.    }
  4. { This demo's only purpose is to show how easy it is to       }
  5. { create an Inline statement.  It serves no other purpose.    }
  6.  
  7. Procedure InlineDemo;
  8. { Procedure that contains the do-nothing inline statement.    }
  9.  
  10. Begin
  11.   Inline( $B4/$30/            {   MOV     AH,30  }
  12.           $CD/$21/            {   INT     21     }
  13.           $3C/$03/            {   CMP     AL,03  }
  14.           $7C/$05/            {   JL      5      }
  15.           $80/$FC/$1E/        {   CMP     AH,1E  }
  16.           $7D/$00/            {   JGE     0      }
  17.           $90 );              {   NOP            }
  18. End;
  19.  
  20. Begin
  21.   Writeln( 'Calling InlineDemo' );
  22.   InlineDemo;
  23.   Writeln( 'Finished with InlineDemo' );
  24.   Readln;
  25. End.