КИТА unofficial

	dosseg
	.model small
	.stack 100h
	.data
beat	db 18,9,6,6,9,9,9,9,9,9,18,18,18,18
; длительность нот
; таблица частот
freq	dw 0,2280,2031,1809,1709,1521,1353
dw 1207,1139,1140,1015,905,855,760
dw 676,604,569,3420,3016,2714,2564
dw 2271,2030,1811,1709
; номер частоты ноты
melody db 7,1,7,8,10,12,7,13,12,11,10,8,7,0ffh
	.code
	mov ax,@data
	mov ds, ax
com_reg equ 43h
latch2	equ 42h
port_b	equ 61h
	in al, port_b
	or al, 11b
	out port_b, al
	mov si, 0
	mov al, 0b6h
	out com_reg, al
next:	lea bx, melody
	mov al, [bx+si]
	cmp al, 0ffh
	je no_mor
	cbw
	mov bx, offset freq
	dec ax
	shl ax, 1
	mov di, ax
	mov dx, [bx+di]
	mov al, dl
	out latch2, al
	mov al, dh
	out latch2, al
	mov ah, 0
	int 1ah
	mov bx, offset beat
	mov cl, [bx+si]
	mov ch, 0
	mov bx, dx
	add bx, cx
st_sou:	int 1ah
	cmp dx, bx
	jne st_sou
	inc si
	jmp next
no_mor: in al, port_b
	and al, 0fch
	out 61h, al
	mov ah,4ch
	int 21h
	end

dosseg
.model small
.stack 100h
.data 
	buffer 		db ?
			db '$'
	glas 		db 'EYUIOA$' ; массив заглавных гласных букв
	message		db 'You have to input some characters...',13,10,'$'
	warning		db 13,10,'You should press any ALT!!!',13,10,'$'
	remove		db 8,32,8,'$'
	quitmes		db 13,10,'Key ESC was pressed, the main loop has been stoped. To quit the program press any key.$'
	nextline	db 13,10,'$'
.code
		mov ax, @data
		mov ds, ax
		mov ah, 0ch ; очистка буфера клавиатуры
		int 21h
		mov dx, offset message ; выводим служебное сообщение и переходим на следующую строчку
		mov ah, 09h
		int 21h
;--------------------ВВОД И ВЫВОД СИМВОЛА СО ВСЕМИ ПРОВЕРКАМИ------
INPUT:		mov ah, 06h
		mov dl, 0FFh
		int 21h
		mov buffer, al
		cmp al, 27
		je STOP
		cmp al, 13
		je NEXT_LINE
		cmp al, 8
		je DELETE
		mov si, 0
		mov cx, 6
START_LOOP:	
		cmp glas[si], al
		je SYMBOL_OUT
		inc si
		loop START_LOOP
		jmp INPUT		
SYMBOL_OUT:
		mov bx, 0040h
		mov es, bx
		mov bx, 0018h
		xor dx, dx
		mov dx, es:[bx]
		test dl, 1000b
		;jne CONTINUE
		;mov ah, 09h
		;mov dx, offset warning
		;int 21h
		;jmp INPUT	
CONTINUE:	
		mov ah, 09h
		mov dx, offset buffer
		int 21h
		jmp INPUT
NEXT_LINE:	
		mov ah, 09h
		mov dx, offset nextline
		int 21h
		jmp INPUT
DELETE:		
		mov ah, 09h
		mov dx, offset remove
		int 21h
		jmp INPUT
;------------------------------------------------------------------
STOP:		
		mov ah, 09h
		mov dx, offset quitmes
		int 21h
		mov ah, 10h ; ждем нажатия клавиши и завершаем работу программы
		int 16h
		mov ah, 4ch
		int 21h
		end