برنامه که عدد چهار رقمی را گرفته و شیفت به راست میکند

[amir.tak]

.286C
include io.h
cr EQU 0dh
lf EQU 0ah
;---------------------------------
sseg segment stack
DW 100 DUP(?)
sseg ends
;---------------------------------
dseg segment
prompt DB 'Enter your number with length 4:',0
sum DB 6 DUP(?)
DB 0
val DW ?
dseg ends
;---------------------------------
cseg segment
assume cs:cseg,ds:dseg
start: mov ax,seg dseg
mov ds,ax

output prompt
inputs sum,6
atoi sum
mov cx,16
L1: shr ax,1
jnc L2
inc bl
L2: loop L1
mov bh,0
itoa sum,bx
output sum

mov ax,4c00h ;exit to dos
int 21h
cseg ends
end start

منبع:http://www.daneshju-club.com