Обсуждение статьи "Трансляторы ЯП на Assembler" - Программирование - Ответ 12967363

.model tiny
jumps
.data
 str_arr DB 256h DUP('$')   ; буфер на 256 символов
 data_arr DB 12,0,17,0,71,0,0,95,0,44,'$'  ; данные
 i DB 0,'$'                              ;индекс элемента массива команд
 j DB 0,'$'                            ;индекс элемента массива данных
 i_stor DB 0,'$'
 
.code
ORG    100h
start:
;Подготовим все необходимое
  mov AX, @data          ; настраиваем сегмент данных
  mov DS,AX
 
 
; вывод массива data_arr
mov CX, 0Ah             ; 10 тактов
sub AL,AL
mov i, AL
_prev:
;;выводим число
; mov BL,i
 sub AH, AH             ; обнуляем AH
 mov AL, data_arr[BX]    ; делимое
 mov BL, 10             ; делитель
 div BL                 ; теперь в AL=десятки, в AH=единицы
 mov BX,AX
 add BX,3030h
 mov AH,2            ; функция вывода символа прерывания 21h
 mov DL,BL           ; выводим старший разряд
 int 21h
 mov DL, BH          ; выводим младший разряд
 int 21h
; выводим пустой символ
sub DL, DL
int 21h
;;;
sub BX,BX
inc i                ; увеличиваем счётчик
mov BL, i
loop _prev
;;;;;;;;;;
 MOV    AH,2       ; переходим на новую строку
 MOV    DL,0Ah
 INT    21h
 
 mov AX, 4c00h      ; завершение программы
 int 21h
end start