home *** CD-ROM | disk | FTP | other *** search
/ Personal Computing Magazine 1988 September / SEPT_1988 / TOOLKIT / ZAP1.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-01-01  |  1.2 KB  |  39 lines
  1. ;=============================================================
  2. ; ZAP1          Version 1.0     by Colin J Smith (c) 1988
  3. ;
  4. ; A program to produce a white noise sound - increasing
  5. ;
  6. ; SYNTAX:
  7. ;               None
  8. ;
  9. ;=============================================================
  10.  
  11. first:  cli                     ; disable interrupts
  12.         mov bx,1000
  13.  
  14. start:  mov cx,bx
  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               ; send signal to sound port
  19.         mov dx,cx
  20.  
  21. rest:   dec dx                  ; first pause loop
  22.         jnz rest
  23.         mov al,b[hold]          ; restore port status byte
  24.         out 97,al               ; ouput port status byte
  25.         mov dx,cx
  26.  
  27. pause:  dec dx                  ; second pause loop
  28.         jnz pause
  29.         sub cx,100
  30.         jnbe begin              ; loop first cycle
  31.         sub bx,4
  32.         jnbe start              ; loop second cycle
  33.         sti                     ; enable interrupts
  34.         int 020h                ; exit routine
  35.  
  36. hold:   db 0                    ; initial port status
  37.  
  38. ;=============================================================
  39.