home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
dpl.zip
/
DOBEEP.D
< prev
next >
Wrap
Text File
|
1988-07-11
|
1KB
|
55 lines
; Doug's Programming Language -- DPL, Version 2.22
; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
;-------------------------------------------
; DOBEEP -- Beep the speaker
;
; Entry Conditions:
; None
; Exit conditions:
; No registers modified
;
SUBPGM DOBEEP
BEGIN DOBEEP
PUSH AX
PUSH BX
PUSH CX
PUSH DX
;
; PERFORM A HARDWARE MANIPULATED CLICK
;
MOV AL,10110110B ; TIMER 2, LSB, MSB, BINARY
OUT 43H,AL ; TIMER MODE REGISTER
MOV AX,53H*20 ; 500 HZ TONE
OUT 42H,AL ; LSB
MOV AL,AH ;
OUT 42H,AL ; MSB
IN AL,61H ; GET THE CURRENT STATE
MOV AH,AL ; SAVE FOR LATER RESTORATION
AND AH,0FCH ; WITH THE TIMER/BEEPER OFF.
OR AL,3 ; CALC THE TIMER GATE & ENABLE
OUT 61H,AL ; SOUND OFF!!!!
PUSH AX
;
MOV AH,0
INT 1AH
MOV BX,DX
ADD BX,6
;
CLCK:
INT 1AH
CMP BX,DX
JNZ CLCK
;
POP AX
MOV AL,AH ; RESTORE ALL
OUT 61H,AL
;
CLX:
POP DX
POP CX
POP BX
POP AX
RETURN
;
ENDPGM DOBEEP
;