Subversion Repositories Kolibri OS

Rev

Rev 2471 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ; Beep - Speaker beep you if the video does not work
  2. ;        and you think that the system died.
  3. ;
  4. ; Copyright (c) 20012, Marat Zakiyanov aka Mario79, aka Mario
  5. ; All rights reserved.
  6. ;
  7. ; Redistribution and use in source and binary forms, with or without
  8. ; modification, are permitted provided that the following conditions are met:
  9. ;        * Redistributions of source code must retain the above copyright
  10. ;          notice, this list of conditions and the following disclaimer.
  11. ;        * Redistributions in binary form must reproduce the above copyright
  12. ;          notice, this list of conditions and the following disclaimer in the
  13. ;          documentation and/or other materials provided with the distribution.
  14. ;        * Neither the name of the <organization> nor the
  15. ;          names of its contributors may be used to endorse or promote products
  16. ;          derived from this software without specific prior written permission.
  17. ;
  18. ; THIS SOFTWARE IS PROVIDED BY Marat Zakiyanov ''AS IS'' AND ANY
  19. ; EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  20. ; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  21. ; DISCLAIMED. IN NO EVENT SHALL <copyright holder> BE LIABLE FOR ANY
  22. ; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  23. ; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  24. ; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  25. ; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  26. ; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
  27. ; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28. ;*****************************************************************************
  29. ;
  30. ; In a capitalist world - you ping to satellite.
  31. ; In Soviet Russia - sputnik beep to you!
  32. ;                               Russian folk art
  33. ;---------------------------------------------------------------------
  34.         use32
  35.         org 0x0
  36.  
  37.         db 'MENUET01'
  38.         dd 0x01
  39.         dd START
  40.         dd IM_END
  41.         dd I_END
  42.         dd stacktop
  43.         dd 0x0
  44.         dd 0x0
  45. ;-------------------------------------------------------------------------------
  46. include '../../macros.inc'
  47. ;-------------------------------------------------------------------------------
  48. START:
  49.         mcall   68,1
  50.         mcall   5,1
  51.         mcall   26,9
  52.         cmp     [timer],eax
  53.         ja      START
  54.         add     eax,150
  55.         mov     [timer],eax
  56.         mcall   55, eax, , , Music
  57.         jmp     START
  58. ;-------------------------------------------------------------------------------
  59. Music:
  60.         db 0x90, 0x37, 0
  61. IM_END:
  62. ;-------------------------------------------------------------------------------
  63. align 4
  64. timer:
  65.         rd 1
  66. ;-------------------------------------------------------------------------------
  67.         rb 512
  68. stacktop:
  69. ;-------------------------------------------------------------------------------
  70. I_END:
  71. ;-------------------------------------------------------------------------------