link: warning l4021:no stack segment
prognam SEGMENT
main PROC FAR
ASSUME CS: prognam,DS: prognam
MOV AX,prognam
MOV DS,AX
ORG 100h
start: MOV DX,100
IN AL,61h
AND AL,11111100b
sound: XOR AL,2
OUT 61h,AL
MOV CX,140h
WAITl: LOOP WAITl
DEC DX
JNE sound
MOV AH,4ch
INT 21h
main ENDP
prognam ENDS
END start