home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB18.ZIP / PRTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1980-08-22  |  391 b   |  18 lines
  1. FUNCTION PrTest : Boolean;  { by Michael D Bates }
  2.   TYPE
  3.     regtype = Record
  4.                 ax,bx,cx,dx,bp,si,di,ds,es,flags: integer
  5.               End;
  6.   VAR
  7.     reg : regtype;
  8.       I : integer;
  9.   Begin
  10.     reg.ax:=$0200;
  11.     reg.dx:=$0000;
  12.     intr($17,reg);
  13.     I := ((reg.ax and $ff00) shr 8);
  14.     If (I=144) then PrTest := True
  15.       else PrTest := False;
  16.   End;
  17.  
  18.