Ассемблер 5 строк

[MarinaAni]

Добрый день, прошу подсказку в решении. Есть код, в нем нужно что-то подправить, чтобы символы выводились в 5 столбиков и 5 строчек. Сейчас они выводятся в строке -10 символов, а строки заканчиваются, когда заканчиваются символы

Start:
	mov ax0B800h
	mov es,ax
	mov al,48
	mov ax,31
	mov cx,10
	mov di,0
Next_screen:
	call Out_chars
	inc al
	add di,140
	loop Next_screen

	mov ah,10h
	int 16h

	int 20h

; === Подпрограммы ===

Out_chars proc
	mov dx,cx
	mov cx,10

Next_face:
	mov es:[di],ax
	add di,2
	loop Next_face
	
	mov cx,dx
	ret
Out_chars endp

CSEG ends
end Start

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Cuprum5]

Какой удобный 16-битный дебаггер есть?

[Cuprum5]

Сообщение от MarinaAni

mov al,48

- а эта зачем строка, если в следующей строке другое число записывается в регистр ax.

[MarinaAni]

Такой код дал преподаватель, не знаю ответа на ваш вопрос
Кол-во символов в строке удалось изменить. Не могу понять как поменять Кол-во строк

[Cuprum5]

Сообщение от MarinaAni

mov ax, B800h

- в этой строке ",", а не 0.

[MarinaAni]

Это поможет сделать 5 строк?

[R71MT]

Start:
      push  0B800h
      pop   es
      mov   di,0             ; ES:DI = 0B800:0000h (видео\буфер)
      mov   al,'A'           ; начальный символ
      mov   ah,0Ah           ; цвет символа на экране
      mov   cx,10            ; счётчик символов
Next_screen:
      call  Out_chars        ; выводим очередной символ
      inc   al               ; сл.символ в AL
      dec   cx               ; счётчик -1
      cmp   cx,5             ; вывели 5 символов?
      jne   @00              ; нет!
      mov   di,160           ; иначе: переход на сл.строку
@00:  cmp   cx,0             ; все символы вывели?
      jne   Next_screen

      mov   ax,0             ; ждём клаву..
      int   16h
      int   20h              ; на выход!

; === Подпрограммы =======================

Out_chars  proc
      mov   es:[di],ax       ; выводим символ на экран
      add   di,2             ; сл.позиция в окне
      ret                    ; выход и процедуры
Out_chars  endp

CSEG ends
end Start

[Serge_Bliznykov]

Сообщение от MarinaAni

сделать 5 строк?

CSEG  SEGMENT PARA 'Code'
        ASSUME  CS:CSEG,DS:CSEG,ES:CSEG
        ORG     100H
Start:
	mov ax,0B800h
	mov es,ax
	mov al,48
	mov ah,31
	mov cx,5
	mov di,0
Next_screen:
	call Out_chars
	inc al
	add di,150
	loop Next_screen

	mov ah,10h
	int 16h

	int 20h

; === Подпрограммы ===

Out_chars proc
	mov dx,cx
	mov cx,5

Next_face:
	mov es:[di],ax
	add di,2
	loop Next_face
	
	mov cx,dx
	ret
Out_chars endp

CSEG ends
end Start

R71MT, сорри, когда писал ответ, ваш пост не увидел.

[R71MT]

Сообщение от Cuprum5

Какой удобный 16-битный дебаггер есть?

TurboDebugger, AFDPro, AVPutil, CodeView - выбирай на вкус...

[R71MT]

Serge_Bliznykov, всё ОК! Почти в одно время запостили..