%TITLE "Lab3: Sound"
      IDEAL
      MODEL  Small
      STACK  256
      full EQU 2000
      double EQU 4000
      DATASEG
      str1 db 'Vvedit goduny (1-12)',10,13, '$'
      intime DB 4 DUP (’ ’) ;Область введення
      clock=1193180
      tone=clock / 600
    pause=clock /65000
    temp=4000
      outtime dw tone,pause,tone,pause,tone,pause,tone,pause,tone,pause,tone,pause,tone,pause,tone,pause,tone,pause,tone,pause,tone,pause,tone,pause
      Time dw 10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10
      ctime db 0
      s1 dw 0
      Skor dw 0
      skor1 dw 0
      mn dw 2

CODESEG

Start:
mov ax,@data
mov ds,ax
mov es,ax
mov ah,9
mov dx, offset str1
int 21h
MOV AH,3Fh ; Запит на введення
MOV BX,00 ; Номер для клавіатури
MOV CX,4 ; Макс. байт для введення
LEA DX,[intime] ; Адреса області введення
INT 21h ; Виклик DOS
mov cx, ax ; кількість введеного в cx
sub cx, 2 ; Мінус символ ентеyра s кінця рядка
mov ah,9;
int 21h;
mov bx, offset intime ; адреса першого введеного
mov dx,0
mov ax,0
mov ax,[bx] ;/якщо ax тоді заносить два числа
cmp ah,30h
jb lowreg
mov [ctime],10
sub ah,48;
add [ctime],ah;
loop calling
lowreg:
sub al,48;
add [ctime],al;
mov al,[ctime];
calling:
mov al,[ctime];
mov ah,0;
mul [mn];
mov [ctime],al
call snd
loop exit;
proc snd  near
      mov ah,0
      int 26
      mov [s1],dx
      mov dx,0ffffh
m10:
      sub dx,1
      cmp dx,0
      jne m10
      mov ah,0
      int 26
      sub dx,[s1]
      jne m4
      mov dx,1
m4:
      mov ax,55
      mul dx
      mov [skor],ax
      mov [skor1],dx
      mov si,offset outtime
      mov di,offset Time
      mov cl,[ctime]
m2:
      mov al,182
      out 67,al
      mov al,[si]
      out 66,al
      inc si
      mov al,[si]
      out 66,al
      inc si
      in al,97
      or al,3
      out 97,al
      mov bx,[di]
m3:
      mov dx,0ffffh
m1:
      sub dx,1
      cmp dx,0
      jne m1
      sub bx,1
      cmp bx,0
      jne m3
      inc di
      inc di
      loop m2
      in al,97
      and al,0fch
      out 97,al
      ret
endp snd
Exit:
      mov ah, 4ch
      mov al,0
      int 21h
      END Start