home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1998 March / PCShareware-3-98.iso / imple / IMPLE.RAR / PAUSE.ASM < prev    next >
Assembly Source File  |  1997-09-16  |  307b  |  23 lines
  1.     LOCALS
  2. pause   proc    near
  3.     mov     dx,03dah
  4. @@pause1:
  5.     in      al,dx
  6.     and     al,8
  7.     jnz     @@pause1
  8. @@pause2:
  9.     in      al,dx
  10.     and     al,8
  11.     jz      @@pause2
  12.     ret
  13. pause   endp
  14.  
  15. topause proc    near
  16.     push    cx
  17.     call    pause
  18.     pop     cx
  19.     loop    topause
  20.     ret
  21. topause endp
  22.     NOLOCALS
  23.