home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / DOBEEP.D < prev    next >
Text File  |  1988-07-11  |  1KB  |  55 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;-------------------------------------------
  4. ; DOBEEP  --  Beep the speaker
  5. ;
  6. ; Entry Conditions:
  7. ;    None
  8. ; Exit conditions:
  9. ;    No registers modified
  10. ;
  11. SUBPGM    DOBEEP
  12. BEGIN    DOBEEP
  13.     PUSH    AX
  14.     PUSH    BX
  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.     PUSH    AX
  32. ;
  33.     MOV    AH,0
  34.     INT    1AH
  35.     MOV    BX,DX
  36.     ADD    BX,6
  37. ;
  38. CLCK:
  39.     INT    1AH
  40.     CMP    BX,DX
  41.     JNZ    CLCK
  42. ;
  43.     POP    AX
  44.     MOV    AL,AH            ; RESTORE ALL
  45.     OUT    61H,AL
  46. ;
  47. CLX:
  48.     POP    DX
  49.     POP    CX
  50.     POP    BX
  51.     POP    AX
  52.     RETURN
  53. ;
  54. ENDPGM    DOBEEP
  55. ;