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