proc countsec    
  pusha
  push es
  mov ax, 40h
  mov es, ax
  mov ax, [Clock]	
FirstTick:
  cmp ax, [Clock]
  je FirstTick
; count 3 sec
  mov cx, 2 ; number of ticks to wait
DelayLoop:
  mov ax, [Clock]
Tick:
  cmp ax, [Clock]
  je Tick
  loop DelayLoop
  pop es
  popa
  ret
endp countsec