STACK SEGMENT STACK
   DW 64 DUP(?)
STACK ENDS
DATA SEGMENT
MSG db happy, $
 freq DW -1,96,220,196,262,247
      DW 196,196,220,196,294,262
      DW 196,196,392,330,262,247,220
      DW 349,349,330,262,294,262
      DW 196,196,220,196,262,247
      DW 196,196,220,196,294,262
      DW 196,196,392,330,262,247,220
      DW 349,349,330,262,294,262,0
   TAB DW -1
DATA ENDS
CODE SEGMENT 
ASSUME CS:CODE,DS:DATA
BEGIN:MOV AS,DATA
MOV DS,AX  
MOV DX,63H
MOV AL,90H
OUT DX,AL 
MOV DX,43H
MOV AL,10110110B
OUT DX,AL
MOV DX,11H
MOV AX,OBD04H
DIV WORD PTR[SI]
OUT 42H,AL
MOV AL,AH
OUT 42H,AL
AA:MOV DX,60H
  IN AL,DX

 
AND AL,00000001B
JZ QUIT 
AGA:MOV FI,OFFSET freq
LAST:CMP WORD  PTR[SI],0
JE AGA

CALL DELLY
ADD SI,2
MOV AH,06H
MOV BX,OFFSET MSG
INT 10H
MOV DX,60H
IN AN,DX
AND AL,00000001B
JZ QUIT 
 JMP LAST
QUIT:MOV SI,OFFSET TAB
CALL DELLAY
JMP AA
DELLY PROC
PUSH AX
 PUSH CX
MOV CX,OFFFFH
M:MOV AX,0000H
LOOP M
POP CX
POPAX
RET
DELLY ENDP
CODE ENDS
END BEGIN