; Doug's Programming Language  -- DPL, Version 2.22
; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
;---------------------------------------
; D E L A Y  --  DELAY FOR X SYSTEM CLOCK TICS
;
; Entry conditions:
;	AX holds the delay factor
; Exit conditions:
;	None
;
; Calling Example:
;
;	CALL	DELAY 10
;
SUBPGM	DELAY
BEGIN	DELAY
	MOV	BX,AX			; BX = COUNT
	SUB	AH,AH			; GET THE 32 BIT TIME
	INT	1AH			; BIOS TIME CLOCK ROUTINE
	ADD	BX,DX			; CALC THE MATCHING VALUE
;
D05:
	INT	1AH			; GET NEW TIME
	CMP	BX,DX			; HAS THE TIME ARIVED?
	JNE	D05			; WAIT TILL IT HAS
	RET
;
ENDPGM	DELAY
;