home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / SOUND2.ASM < prev    next >
Assembly Source File  |  1994-11-15  |  750b  |  35 lines
  1.     page    66,132
  2. ;******************************** SOUND2.ASM *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11.     extrn     make_sound:far
  12. .list
  13.  
  14.  
  15. comment 
  16. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  SOUND  )
  17. ONE_BEEP - beep once at 200hz for fraction of a second
  18. ;
  19. ; inputs: none
  20. ; output: none
  21. ;* * * * * * * * * * * * * *
  22. 
  23.     public    one_beep
  24. one_beep    proc    far
  25.     apush    ax,bx,dx
  26.     mov    bx,200            ;frequency
  27.     mov    dx,2            ;lenght = two timer ticks
  28.     call    make_sound
  29.     apop    dx,bx,ax
  30.     retf
  31. one_beep    endp
  32.  
  33. LIBSEG    ENDS
  34.     end
  35.