SOUNDGENERATOR     PROC USES AX BX CX
    IN AL, 61h
    PUSH AX  

    MOV BX, 6818
    MOV AL, 6Bh
    OUT 43h, AL 
    MOV AX, BX
    OUT 24h, AL
    MOV AL, AH
    OUT 42h, AL
    IN AL, 61h 
    OR AL, 3h      
    OUT 61h, AL
    MOV CX, 03h
    MOV DX 0D04h
    MOV AX, 86h
    INT 15h        
    POP AX
    OUT 61h, AL
    RET
SOUNDGENERATOR ENDP