home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / CLICK.D < prev    next >
Text File  |  1988-07-11  |  1KB  |  52 lines

  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;----------------------------------------
  4. ; C L I C K  --  MAKE A SHORT CLICK SOUND
  5. ;
  6. ; Entry conditions:
  7. ;    Whenever a click noise is needed
  8. ; Exit conditions:
  9. ;    No registers modified
  10. ;
  11.     PUBLIC    CLICK
  12. SUBPGM    CLICK
  13. BEGIN    CLICK
  14.     PUSH    AX
  15.     PUSH    CX
  16.     PUSH    DX
  17. ;
  18. ; PERFORM A HARDWARE MANIPULATED CLICK
  19.     MOV    AL,10110110B        ; TIMER 2, LSB, MSB, BINARY
  20.     OUT    43H,AL            ; TIMER MODE REGISTER
  21.     MOV    AX,53H*20        ; 500 HZ TONE
  22.     OUT    42H,AL            ;  LSB
  23.     MOV    AL,AH            ;
  24.     OUT    42H,AL            ;  MSB
  25.     IN    AL,61H            ; GET THE CURRENT STATE
  26.     MOV    AH,AL            ; SAVE FOR LATER RESTORATION
  27.     AND    AH,0FCH            ; WITH THE TIMER/BEEPER OFF.
  28.     OR    AL,3            ; CALC THE TIMER GATE & ENABLE
  29.     OUT    61H,AL            ; SOUND OFF!!!!
  30. ;
  31.     MOV    CX,2000            ; WAIST TIME
  32. ;
  33. CLCK:
  34.     PUSH    CX
  35.     POP    CX
  36.     LOOP    CLCK
  37. ;
  38.     MOV    AL,AH            ; RESTORE ALL
  39.     OUT    61H,AL
  40. ;
  41. CLX:
  42.     POP    DX
  43.     POP    CX
  44.     POP    AX
  45.     RETURN
  46. ;
  47. ;----------------
  48. ENDPGM    CLICK
  49. ;----------------
  50. ;
  51.