home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9303 / pastrick / tim.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1993-06-02  |  1.2 KB  |  60 lines
  1. (* ------------------------------------------------------ *)
  2. (*                       TIM.PAS                          *)
  3. (*             Parameterübergabe für BASM                 *)
  4. (*            (c) 1993 W.Rinke & DMV-Verlag               *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM TimerTest;
  7.  
  8. {$IFNDEF Ver70}
  9. CONST
  10.   Seg0040 = $0040;
  11. {$ENDIF}
  12.  
  13.   FUNCTION Timer0 : LongInt;
  14.   BEGIN
  15.     Timer0 := MemL[Seg0040:$006C];
  16.   END;
  17.  
  18.   FUNCTION Timer1 : LongInt;
  19.   VAR
  20.     T : RECORD
  21.           Lo, Hi : WORD;
  22.         END;
  23.   BEGIN
  24.     ASM
  25.       XOR AH,AH
  26.       INT 1AH
  27.       MOV T.Lo, DX
  28.       MOV T.Hi, CX
  29.     END;
  30.     Timer1 := LongInt(T);
  31.   END;
  32.  
  33.   FUNCTION Timer2 : LongInt;
  34.   BEGIN
  35.     ASM
  36.       XOR AH,AH
  37.       INT 1AH
  38.       MOV [BP-04],DX
  39.       MOV [BP-02],CX
  40.     END;
  41.   END;
  42.  
  43.   FUNCTION Timer3 : LongInt;  ASSEMBLER; 
  44.   ASM
  45.     XOR  AH,AH
  46.     INT  1AH
  47.     MOV  AX,DX  (* Longint als Ordinaltyp in DX:AX *)
  48.     MOV  DX,CX  (* wie auch Zeigertypen            *)
  49.   END;
  50.  
  51. BEGIN
  52.   WriteLn(Timer0);
  53.   WriteLn(Timer1);
  54.   WriteLn(Timer2);
  55.   WriteLn(Timer3);
  56. END.
  57. (* ------------------------------------------------------ *)
  58. (*                 Ende von TIM.PAS                       *)
  59.  
  60.