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. ; 
  20.     MOV    AL,10110110B        ; TIMER 2, LSB, MSB, BINARY
  21.     OUT    43H,AL            ; TIMER MODE REGISTER
  22.     MOV    AX,53H*20        ; 500 HZ TONE
  23.     OUT    42H,AL            ;  LSB
  24.     MOV    AL,AH            ;
  25.     OUT    42H,AL            ;  MSB
  26.     IN    AL,61H            ; GET THE CURRENT STATE
  27.     MOV    AH,AL            ; SAVE FOR LATER RESTORATION
  28.     AND    AH,0FCH            ; WITH THE TIMER/BEEPER OFF.
  29.     OR    AL,3            ; CALC THE TIMER GATE & ENABLE
  30.     OUT    61H,AL            ; SOUND OFF!!!!
  31. ;
  32.     MOV    CX,2000            ; WAIST TIME
  33. ;
  34. CLCK:
  35.     PUSH    CX
  36.     POP    CX
  37.     LOOP    CLCK
  38. ;
  39.     MOV    AL,AH            ; RESTORE ALL
  40.     OUT    61H,AL
  41. ;
  42. CLX:
  43.     POP    DX
  44.     POP    CX
  45.     POP    AX
  46.     RETURN
  47. ;
  48. ;----------------
  49. ENDPGM    CLICK
  50. ;----------------
  51. ;
  52.