附上代码:
DATAS SEGMENT
;此处输入数据段代码
DATAS ENDS
STACKS SEGMENT
;此处输入堆栈段代码
STACKS ENDS
CODES SEGMENT
ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
MOV AX,DATAS
MOV DS,AX
mov bx,0
mov ax,1
a2: add bx,ax
inc ax
cmp ax,100
jle a2
mov cl,4
mov ch,1
a3: rol bx,cl
mov al,bl
and al,0fh
add al,30h
cmp al,39h ;十六进制39表示字符'9'
jle a4
add al,7
a4: mov dl,al
mov ah,2
int 21h
inc ch
cmp ch,4
jle a3
;此处输入代码段代码
MOV AH,4CH
INT 21H
CODES ENDS
END START
运行结果:13BA