九号功能.asm

大学时学汇编做的一些小实验

data segment 
NUM db 1,18,3,4,5,6,7,8,9,10,11,12,13,14,15,16 
result db ? 

data ends 

code segment 
main proc far 
assume cs:code,ds:data 
start:push ds 
mov ax,0 
push ax 
mov ax,data 
mov ds,ax 

LEA SI,[NUM] 
mov CL,16 
step1: 
mov DL,[SI] 
mov AL,DL 
mov BL,2 
CBW 
div BL 
CMP AH,1 
JNE step3 
step2: 
mov RESULT,DL 
CALL DISP 
step3:INC SI 
LOOP step1 
MOV AH,1 
INT 21H 
ret 
main endp 
DISP PROC NEAR 
mov bL,RESULT 
mov ch,2 
rotate: 
mov cl,4 
rol bL,cl 
mov al,bl 
and al,0fh 
add al,30h 
cmp al,3ah 
jl printit 
add al,7h 
printit: 
mov dl,al 
mov ah,2 
int 21h 
dec ch 
jnz rotate 
RET 
DISP ENDP 
code ends 
end MAIN