.model small
.stack 100h


.data


  ;rate dw 29 ; множитель скорости
  rate dw 1 ; множитель скорости


  text db "ASSEBLER GAVNO!!! ", "$" ; позже изменить
  endl db 13,10,'$'
  text_lenght dw 18; длинна текста
  horisontal_vertical dw 0 ; направнение строки
  sleep_draw_flag dw 0; флаг зажержки рисования
  count dw 0; счётчик тактов
  iter_count dw 4; задержка в тактах
  ; 18 тактов - 1 секунда


  exit dw 0 ; флаг выхода

  x_pos db 5 ; положение слова
  y_pos db 5

  sybmbol_x db 5 ; положение символа
  sybmbol_y db 5

  draw_progress dw 1 ; количество нарисованных символов


  old_int_offset dw ?
  old_int_seg    dw ?

.code
  cool_interrup proc far
  ; можно и pusha
  push ax
  push bx
  push cx
  push dx
  push si
  push di
  push bp
  pushf


  mov ah, 1 ; Проверка на то, что какая-то кнопка нажата
  int 16h
  jz _skip_input ; ничего не нажато


  mov ah, 0 ; Если что-то нажато, то надо узнать что
  int 16h

    _key1:
    cmp al, 'p' ; кнопка вместо принт скрина
    jne _key2
      mov ax, horisontal_vertical
      cmp ax, 1
      je _ver
      _hor:
        mov ax, 1
        mov horisontal_vertical, ax
        jmp _change_end
      _ver:
        mov ax, 0
        mov horisontal_vertical, ax
        jmp _change_end
      _change_end:
    _key2:
    cmp al, '2'
    jne _key3
      mov ax, 2
      mov bx, rate
      mul bx
      mov  iter_count, ax
    _key3:
    cmp al, '4'
    jne _key4
      mov ax, 4
      mov bx, rate
      mul bx
      mov  iter_count, ax
    _key4:
    cmp al, '6'
    jne _key5
      mov ax, 6
      mov bx, rate
      mul bx
      mov  iter_count, ax
    _key5:
    cmp al, '8'
    jne _key6
      mov ax, 8
      mov bx, rate
      mul bx
      mov  iter_count, ax
    _key6:
    cmp al, '0' ; выход
    jnz _no_key
      mov ax, 1
      mov exit, ax

    _no_key:


  _skip_input:


  ; часть где рисуем
  xor ax, ax
  xor bx, bx
  mov ax, sleep_draw_flag
  cmp sleep_draw_flag, 0
  je _draw; если флад сброшен, то можно рисовать
  ; если нет, то уменьшаем счётчик тактов
  mov ax, count
  dec ax
  mov count, ax

  ; если счётчик == 0, то сбрасываем флаг
  cmp ax, 0 ; сравниваем с 0
  jg _set_flag ; если больше 0, то пропускаем
    mov ax, 0 ; ставим 0
    mov sleep_draw_flag, ax

    mov ax, iter_count
    mov count, ax ; сбрасываем количество итераций

  _set_flag:
  jmp _end_draw


  ; часть, где мы рисуем
  _draw:

    mov cx, draw_progress

  ; печатаем посимвольно
  ; повторяем печать столько раз
  ; сколько символов в строке

  _print_symbol:

    ; ставим позицию курсора
    mov ah, 02h
    mov bh, 00h
    mov dl, sybmbol_x
    mov dh, sybmbol_y
    int 10h

    ; печатаем символ
    mov ah, 02h
    mov bx, text_lenght
    sub bx, cx
    mov dl, text[bx] ; i-й символ строки
    int 21h


    mov ax, horisontal_vertical
    cmp ax, 1
    je _sybm_add_vertical
    _sybm_add_horisontal:
      mov al, sybmbol_x
      inc al
      mov sybmbol_x, al

      jmp _end_add_sybm_pos
    _sybm_add_vertical:
      mov al, sybmbol_y
      inc al
      mov sybmbol_y, al
      jmp _end_add_sybm_pos
    _end_add_sybm_pos:

    dec cx
    mov draw_progress, cx

  ; проверяем, что дописали слово
  cmp cx, 0
  jne _draw_in_progress
    mov al, x_pos
    mov sybmbol_x, al

    mov al, y_pos
    mov sybmbol_y, al

    ; очистка экрана
    mov ah, 06h
    mov al, 00h
    mov bh, 00001111b
    mov cx, 0000h
    mov dx, 184fh
    int 10h

    mov cx, text_lenght
    mov draw_progress, cx
  _draw_in_progress:


  mov ax, 1
  mov sleep_draw_flag, ax



  _end_draw:


  ; можно и popa
  popf
  pop bp
  pop di
  pop si
  pop dx
  pop cx
  pop bx
  pop ax
  iret
  cool_interrup endp

start:
  mov ax, @data
  mov ds, ax

  jumps

  ; сделать курсор невидимым
  mov ah, 01h
  mov cx, 2607h
  int 10h


  ; получим адреса прерываний, которые были ещё до нас
  mov ah, 35h ; получить вектор прерывания
  mov al, 1Ch ; прерывание таймера
  int 21h
  ; в bx записался сдвиг старого прерывания
  ; в ex записался сегмерт старого прерывания

  ; их надо запомнить, чтобы потом вернуть всё на место
  mov old_int_offset, bx
  mov old_int_seg   , es

  ; теперь можем написать что-то своё заместо прошлого прерывания



  ; пусть эта функция будет нашим прерыванием

  push ds ; будем трогать ds так что надо положить его в стек, чтобы не потерять

  mov dx, offset cool_interrup
  mov ax, seg cool_interrup
  mov ds, ax ; можно поменять только через ax

  mov ah, 25h ; поменятьменять вектор прерывания
  mov al, 1Ch ; наше прерывание таймера
  int 21h

  pop ds


  _loop:
    nop

    mov ax, exit
    cmp ax, 1
    je _end
  jmp _loop

  _end:


  ; надо вернуть всё как было
  mov dx, old_int_offset
  mov ax, old_int_seg
  mov ds, ax ; можно поменять только через ax

  mov ah, 25h ; поменятьменять вектор прерывания
  mov al, 1Ch ; наше прерывание таймера
  int 21h


  nojumps

  mov ax, 4c00h
  int 21h


end start