Неправильно работает программа из книги Абеля.

[bullvinkle]

Учу АСМ по Питеру Абелю.
Вот программа, которая выводит почти все символы аски. Ошибка была изначально в книге (метку Д30 я сам доставил).
Вобщем компилируется, но выдает потом хрен знает что.

TITLE	A08DISAS (COM)	Вывод набоа символов ASCII
	.MODEL	SMALL
	.CODE
	ORG	100H
BEGIN:	JMP	SHORT	A10MAIN
ASCHAR	DB	00,	'$'
;		Главеая процедура
.286	;	-----------------
A10MAIN	PROC	NEAR
	CALL	B10SCREEN	;Очистка экрана
	CALL	C10CURSOR	;Установка курсора
	CALL	D10DISPLY	;Вывод символов
	MOV	AX,4C00H
	INT	21H
A10MAIN	ENDP
;	Очиска экрана и установка атрибутов:
;	------------------------------------
B10SCREEN	PROC	NEAR
	PUSHA			;Сохранение значений регистров
	MOV	AX,0600H	;Прокурутка целого экрана (очистка)
	MOV	BH,07		;Атрибуты: бeлый шрифт на черном фоне
	MOV	CX,0000		;Верхний левый угол
	MOV	DX,184FH	;Нижний правый угол
	INT	10H
	POPA			;Возврат значений регистров
	RET
B10SCREEN	ENDP
;	Установка курсора в ячейку 08,00
;	--------------------------------
C10CURSOR	PROC	NEAR
	PUSHA
	MOV	AH,02H		;Запрос на установку курсора
	MOV	BH,00		;Страница 0
	MOV	DX,0800H        ;Строка 8, столбец 0
	INT	10H             ;
	POPA                    ;
	RET                     ;
C10CURSOR	ENDP
;	Вывод символов ASCII 00h  -FFH, кроме символов от 08Н до 0DH
;	------------------------------------------------------------
D10DISPLY	PROC
	PUSHA
	MOV	CX,256
	LEA	DX,ASCHAR
D20:	CMP	ASCHAR,08H
	JB	D30
	CMP	ASCHAR,0DH
	JB	D40
D30:	MOV	AH,09H
	INT	21H
D40:	INC	ASCHAR
	LOOP	D20
	POPA
	RET
D10DISPLY	ENDP
	END	BEGIN

Отладчик пишет предупеждение (или хз что это) сразу после LOOP D20 в процедур d10disply и после этого СХ, который был равен 100Н становится 0000, хотя должен FFH. Может еще что-то не так, я не уследил.
И сразу попутно вопрос: зачем в каждой процедуре сохранять и восстанавливать значение регистров?

[Ulex]

1. Надо установить графический режим (например такой):

	mov	ah, 00h
	mov	al, 03h
	int	10h

в процедуре A10MAIN

2. Попробуйте запихать cx в стек перед int 21h (09h):

D10DISPLY	PROC
	PUSHA
	MOV	CX,256
	LEA	DX,ASCHAR
D20:	CMP	ASCHAR,08H
	JB	D30
	CMP	ASCHAR,0DH
	JB	D40
D30:
	push	cx
	MOV	AH,09H
	INT	21H
	pop	cx
D40:	INC	ASCHAR
	LOOP	D20
	POPA
	RET
D10DISPLY	ENDP

[MalCer]

зачем в каждой процедуре сохранять и восстанавливать значение регистров?

Это для того, чтобы ты не потерял значение регистров по ходу выполнения программы

[bullvinkle]

Ой! Спасибо за советы, но это я тупонул
Я просто компилировал как ЕХЕ, а надо СОМ.