text segment 'code'
	assume CS:text, SS:text, DS:text,ES:text 
	org 100h
	main proc
	JMP M0
;текст программы
RESULT DB 2 DUP('$')
STR1 	DB '012345678'
M0:
	XOR CH,CH	
	MOV CL,DS:[80h]
	JCXZ SOUND
	MOV CX,8
	MOV SI,82h
	SUB DI,DI
	MOV BL,[SI]
	LEA SI,RESULT
M1:
	MOV AL,BL
	AND AL,00000001b
	CMP AL,0
	JE M3
M2:
	SHR BL,1
	LOOP M1
	MOV AH, STR1[DI]
	MOV [SI], AH
	MOV AH,09h
	LEA DX, RESULT
	INT 21H
	JMP EXIT
M3:
	INC DI
	JMP M2
SOUND:
	cli 
	in AL, 61h
	mov CX,2000
begin:push CX
	or AL, 00000010b
	out 61h,AL
	mov CX,1000
cikl:loop cikl
	and AL, 11111101b
	out 61h,AL
	mov CX,1000
cikl1: loop cikl1
	pop CX
	loop begin
	sti
EXIT:	
	mov AX,4C00h;завершение
	INT 21h		;программы
main endp
;определения данных
text ends
	end main