tire proc near      ; Вывод '-' после 'mM':
xor al,'Z'      ; Последний символ 'M'?
jnz back1       ; Hет - возврат
mov ah,03h      ; Сдвиг курсора на
int 10h     ; символ перед 'M'
dec dl      ; и запись его в al
dec dl
mov ah,02h
int 10h
mov ah,08h
int 10h
inc dl
inc dl
xor al,'Z'      ; Символ перед 'M'-'m'?
jnz back        ; Hет - возврат.

dec dl
mov al,0
mov sav,al
mov ah,0eh
int 10h
dec dl

mov al,'*'
mov sav,al      ; Запись '-' в sav
mov ah,0eh      ; Возвращение курсора
int 10h
inc dl

jmp back1
back:
mov ah,02h      ; Возвращение курсора
int 10h
mov al,0
mov sav,al
back1:  ret
tire endp