home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / beep.src < prev    next >
Encoding:
Text File  |  1984-04-29  |  628 b   |  24 lines
  1. *********************************************************************
  2.  
  3. ;                             BEEP
  4.  
  5. ;********************************************************************
  6.  
  7.                     NAME BEEP
  8.                     ENTRY BEEP
  9.                     EXT MESIJ
  10.  
  11. ;FUNCTION: rings the console bell
  12. ;CALLS: MESIJ
  13.  
  14. BEEP:               push x
  15.                     lxi x,ding
  16.                     call mesij
  17.                     pop x
  18.                     ret
  19. ding:               DB 07h,24h     ;07=ASCII for bell,24=end/mesij
  20.  
  21.                     END BEEP
  22.  
  23. ;**********************************************************************
  24.