как вывести текст на экран (TASM)

[Аlex]

короче это генератор случайных чисел, ищет их по фоормуле которая в коде написана (выделена однако)
и вконце метка print печатает на экране число которое получилось
есть два вопроса по этому поводу:
1) пачиму после завершения работы программы она завершается с ошибкой (косяг с каким-то адресом)

2) как адаптировать эту прогу к 32 битным процам (именно на TASM)

TITLE PROG

.MODEL tiny
.STACK 256
.Data
	Y_ASCII	DB  7  DUP(?)	;переменная для хранения
							;символов ASCII
		SIGN 	DB (?)		;переменная для хранения
							;знака числа
rand_a  db         255
rand_m  db         255
seed    db         -1
.CODE
START:	MOV AX, @DATA		;Иницинировать сегментные
	MOV DS, AX		;сегментный регистр
	
;*********************************************************************************************************
; Процедура rand
; возвращает в АХ случайное положительное 32-битное число
; (от 0 до 231-2)
;
; /|\\\\\\\\\\\\\\\\\\\\\\\\\
; || X(j)=(ax(i) + c)mod M ||
; \|/////////////////////////


        push       dx
        mov        al,seed  ; считать последнее
                                       ; случайное число
        test       AL,AL             ; проверить его, если это -1,
        js         fetch_seed          ; функция еще ни разу не
                                       ; вызывалась и надо создать
                                       ; начальное значение
randomize:
        mul        rand_a    ; умножить на число а,
        div        rand_m    ; взять остаток от
                                       ; деления на 231-1
        mov        AL,dl
        mov         seed,AL  ; сохранить для
                                       ; следующих вызовов
        pop        dx
jmp short print	

fetch_seed:
        push       ds
        push       0040h
        pop        ds
        mov        AL, ds:006Ch ; считать
                                          ; двойное слово из области
        pop        ds                     ; данных BIOS по адресу
                                          ; 0040:0060 - текущее число
        jmp        short randomize        ; тактов таймера

print:


	CMP AX,0			;сравнить число с 0
	JNS M_11			;если >= 0 перейти на М_1
;-------------------------------------------------------------------------------------------------------------------

	NEG AX			;Преобразовать в прямой код
M_11:	XOR CX,CX		;очистить СХ
	MOV BX,10		;в ВХ поместить делитель 10
M_2:	XOR DX,DX		;очистить DX
	DIV BX			;разделить число на 10
	PUSH DX			;остаток поместить с стек
	INC CX			;увеличить СХ на 1
	CMP AX,0			;если АХ не равно 0
	JNE M_2			; повторить деление
	;----------------------------------------------------------------------------------------------------
	XOR SI,SI			;очистить SI	
	MOV AL,SIGN		;згрузить в AL знак числа
	MOV Y_ASCII[SI],AL		;в Y_ASCII знак числа
	INC SI			; увеличить SI 
M_3:	POP AX			;извлечь из стека в АХ
	ADD AL,30H		;вычислить код ASCII для цифры
	MOV Y_ASCII[SI],AL		;добавить  ASCII код в перемменную
				; Y_ASCII
	INC SI			;увеличить  SI на 1
	LOOP M_3		;повторять пока СХ не 0
	MOV Y_ASCII[SI],'$'		;символ конца строки в Y_ASCII
	MOV DX,OFFSET Y_ASCII	;Печать числа
	MOV AH, 09		
	INT 21H



;*********************************************************************************************************	
END START

некоторая часть кусков кода как всегда осталось из прошлого и не несет никакой функциональной нагрузки...

[Аlex]

ну тогда хоть скажите почему никто ничо не отвечает :-(

[Goodwin98]

пачиму после завершения работы программы она завершается с ошибкой (косяг с каким-то адресом)

Наверное патаму что нету выхода из программы.