task_6_15_e_v1_volkovich

include io.asm ;подключение операций ввода-вывода

stack segment stack
    dw 128 dup (?)
stack ends

data segment
; место для переменных и констант
    x db 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
    y dw 26 dup(0)
    z db ' times; ','$'

data ends

code segment 'code'
    assume ss:stack, ds:data, cs:code
; место для описания процедур

start:
    mov ax,data
    mov ds,ax
; команды программы должны располагаться здесь
ITXT: inch al
      cmp al,'.'
      JE FIN
      sub al,'A'
      mov bl,al
      mov bh,0
      add bx,bx
      inc y[bx]
      JMP ITXT

FIN:  mov cx,26
      mov si,0
      mov di,0
FN:   outch x[si]
      outch ' '
      outword y[di]
      lea dx,z
      outstr
      inc si
      inc di
      inc di
      LOOP FN
      newline

    finish
code ends
    end start