'****************************************************************************
'
'   BEEP erzeugen ber Timerchip in PowerBASIC 3.0/3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

        ! mov  al  , 182           ; 8253 zum Signal erzeugen berreden
        ! out  &h43, al
        ! mov  ax  , 1491          ; Frequenz senden 800,2Hz
        ! out  &h42, al            ; Low  Byte senden
        ! mov  al  , ah            ;
        ! out  &h42, al            ; High Byte senden
        ! in   al  , &h61          ; Speaker Bit holen
        ! push ax                  ; Speaker Bit's sichern
        ! or   al  , 3             ; Bit 0-1 setzen
        ! out  &h61, al            ; Speaker einschalten
        DELAY 0.3
        ! pop ax
        ! out  &h61 , al           ; Speaker wieder ausschalten