.model small
.data
TBCD DB 'Even',13,10,'$'
DB 'Odd ',13,10,'$'
DB 'Even',13,10,'$'
DB 'Odd ',13,10,'$'
DB 'Even',13,10,'$'
DB 'Odd ',13,10,'$'
DB 'Even',13,10,'$'
DB 'Odd ',13,10,'$'
DB 'Even',13,10,'$'
DB 'Odd ',13,10,'$'
STR1 DB 'ENTER NUMBER: $'
STR2 DB 13,10,'Number is $'
SCALE DB 7
VDEC DB '0'
VBCD DB 00h
.code
mov ax,@data
mov ds,ax
mov dx,offset STR1
mov ah,09h
int 21h
mov ah,01h
int 21h
mov VDEC,al
sub al,'0'
mov VBCD,al
mov dx,offset STR2
mov ah,09h
int 21h
mov dx,offset TBCD
mov al,VBCD
mul SCALE
add dx,ax
mov ah,09h
int 21h
mov ax,4c00h
int 21h
end
ไม่มีความคิดเห็น:
แสดงความคิดเห็น