home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / DELAY.D < prev    next >
Text File  |  1988-07-11  |  640b  |  30 lines

  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;---------------------------------------
  4. ; D E L A Y  --  DELAY FOR X SYSTEM CLOCK TICS
  5. ;
  6. ; Entry conditions:
  7. ;    AX holds the delay factor
  8. ; Exit conditions:
  9. ;    None
  10. ;
  11. ; Calling Example:
  12. ;
  13. ;    CALL    DELAY 10
  14. ;
  15. SUBPGM    DELAY
  16. BEGIN    DELAY
  17.     MOV    BX,AX            ; BX = COUNT
  18.     SUB    AH,AH            ; GET THE 32 BIT TIME
  19.     INT    1AH            ; BIOS TIME CLOCK ROUTINE
  20.     ADD    BX,DX            ; CALC THE MATCHING VALUE
  21. ;
  22. D05:
  23.     INT    1AH            ; GET NEW TIME
  24.     CMP    BX,DX            ; HAS THE TIME ARIVED?
  25.     JNE    D05            ; WAIT TILL IT HAS
  26.     RET
  27. ;
  28. ENDPGM    DELAY
  29. ;
  30.