akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
.model small;;;tiny
;;; .386
.stack ;;;
.code
;;; перенесено снизу
buf db 16 dup (?)
buf_end db'$'
pr db 'Razmer bazovoi pamati: ','$'
pr2 db ' bait,razmer rasshirenoi pamati: ','$'
pr3 db ' bait','$'
.code
assume cs: _TEXT, ds: _TEXT, es: _TEXT ;;;
;;;org 100h
start:
mov ax, cs ;;;
mov ds, ax ;;;
mov es, ax ;;;
mov ah,9
mov dx,offset pr
int 21h
mov al,015h
out 070h,al
in al,071h
mov bl,al
mov al,016h
out 070h,al
in al,071h
mov bh,al
mov ax,bx
mov bx,10
xor di,di
l1:
xor dx,dx
div bx
add dl,030h
dec di
mov buf_end[di],dl
cmp ax,00h
jnz l1
lea dx,buf_end[di]
mov ah,09h
int 21h
mov ah,9
mov dx,offset pr2
int 21h
mov al,017h
out 070h,al
in al,071h
mov bl,al
mov al,018h
out 070h,al
in al,071h
mov bh,al
mov ax,bx
mov bx,10
xor di,di
l2:
xor dx,dx
div bx
add dl,030h
dec di
mov buf_end[di],dl
cmp ax,00h
jnz l2
lea dx,buf_end[di]
mov ah,09h
int 21h
;;;int 20h
mov ax, 4c00h ;;;
int 21h ;;;
;;;ret
end start
|
