format binary as 'bin'
org 7C00h
use16

   jmp       main
   nop

main:
   mov       ebx,10*18

   call      delay

   hlt


; ebx = seconds to wait / 18.2
delay:
   pusha
   mov       ebp,esp
   sub       esp,4
   label     .lo word at ebp - 2
   label     .ho word at ebp - 4

   mov       eax,0
   int       1ah

   add       edx,ebx

   mov       [.lo],dx
   mov       [.ho],cx

   .longer:
      mov       eax,0
      int       1ah

      cmp       [.ho],cx
      ja        .done

      cmp       [.lo],dx
      ja        .done

      cmp       al,1
      jne       .longer

   .done:

   mov       esp,ebp
   popa

   ret

times 510-($-$$) db 0
dw 0AA55h