Курсовая работа: Робота з записами мови ассемблера

inc di

cmp si,offset @@bcd_value

jb @@l2

jmp @@l1

@@l2:

lea dx,@@res_str

call writestring

popa

ret

@@value dd 0

@@bcd_value dt 0

@@res_str db 20 dup (0)

writeword endp

gotoxy proc near ;Установить позицию курсора

;AH=Y AL=X

push ax bx dx

mov dx,ax

xor bh,bh

mov ah,2

int 10h

pop dx bx ax

ret

gotoxy endp

clrscr proc near ;Очитска экрана

push ax

mov ax,0003

int 10h

pop ax

ret