' gibt T”ne aus
' nach Bitterle/Retter: Meádatenerfassung und -verarbeitung mit dem PC
' S. 205
' PowerBASIC Version von Thomas Gohel

        ! sub  cx, cx     ; Warteschleife
        ! in   al, &h61   ; altes Setup-Byte
        ! or   al, 3      ; Lautsprecher ein
        ! out  &h61, al
        ! mov  si, 3	  ; Z„hler
ton:
        ! mov al,&h25     ; Beginn mit Ton 025
                          ' Tonh”he: 14.31818 MHz/12/Ax
setze:
        ! out &h42, al    ; eintragen
warte:
        ! loop warte	  ; spielt den Ton, bis CX auf 0 gez„hlt hat
        ! dec  al         ; ergibt h”heren Ton
        ! jnz  setze
        ! dec  si
        ! jnz  ton

        ! in  al, &h61
        ! and al, not 3   ; Lautsprecher aus
        ! out &h61, al