.MODEL small
.STACK 64
.DATA
org 100h
tabl_ascii db '0123456789abcdef'
org 130h
db 0,1,2,3,4,5,6,7,8,9
org 41h
db 0ah,0bh, 0ch, 0dh, 0eh, 0fh
org 150h
x_ascii db 20h dup(?)
nl db 0dh, 0ah, "$"
t1 db 0dh,0ah,"vvedite chislo i najmite enter"
db 0dh, 0ah, "$"
t2 db 0dh,0ah,"Vi vveli chislo",0dh,0ah
db 0dh, 0ah, "$"
.CODE
;Главная процедура
g_k proc
mov ax,@data
mov ds, ax
mov es, ax
d: lea dx, t1
mov ah,09h
int 21h
lea di, x_ascii
call ink
lea dx, t2
mov ah,09h
int 21h
call dis
g_k endp
ink proc
;Процедура ввода числа
xor cx,cx
l1:
mov ah,1
int 21h
stosb
inc cx
cmp al,0dh
jnz l1
dec cx
ret
ink endp
dis proc
;Процедура вывода на экран числа
lea dx, nl
mov ah,09h
int 21h
r1: mov dl,[di]
mov ah,2
int 21h
inc di
loop r1
ret
dis endp
end g_k
|
