model tiny,pascal
.code
org 100h
begin: mov si,20000;
mov ax,10;
call OutInt,si,ax
xor ax,ax
int 16h
ret
OutInt proc a:word,b:word
uses ax,bx,cx,dx
mov ax,a
mov bx,b
xor cx,cx
@@01: xor dx,dx
div bx
or dl,'0'
push dx
inc cx
or ax,ax
jnz @@01
@@02: pop ax
int 29h
loop @@02
ret
OutInt endp
end begin
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.