home *** CD-ROM | disk | FTP | other *** search
/ Personal Computing Magazine 1988 September / SEPT_1988 / TOOLKIT / ZAPUP.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-01-01  |  905 b   |  33 lines
  1. ;============================================================
  2. ; ZAPUP         Version 1.0     by Colin J Smith (c) 1988
  3. ;
  4. ; A program to make a white noise sound - gradually rising
  5. ;
  6. ; SYNTAX:
  7. ;               None
  8. ;
  9. ;============================================================
  10.  
  11.  
  12. first:  cli                     ; disable interrupts
  13.         mov cx,02ffh
  14.  
  15. begin:  in al,97                ; input port status byte
  16.         mov b[hold],al          ; save port status byte
  17.         mov al,79
  18.         out 97,al
  19.         mov dx,cx
  20.  
  21. pause:  dec dx                  ; pause loop
  22.         jnz pause
  23.         mov al,b[hold]          ; restore port status byte
  24.         out 97,al
  25.         dec cx
  26.         jnz begin
  27.         sti                     ; enable interrupts
  28.         int 020h                ; exit routine
  29.  
  30. hold:   db 0
  31.  
  32. ;============================================================
  33.