编一程序,将AX内的数以二进制形式显示在屏幕上

DATA SEGMENT
ARRAY DB 10 DUP(0)
F1 DW ?
F2 DW ?
DATA ENDS

CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START: MOV AX,DATA
MOV DS,AX
MOV AH,01
INT 21H
SUB AL,30H

MOV BX,1
CALL FB
CALL DIS
MOV AH,4CH
INT 21H

FB PROC
CMP AL,1
JLE L1
MOV CL,AL
MOV CH,0
SUB CX,1
MOV F1,1
MOV F2,1

L2:MOV BX,F1
ADD BX,F2
MOV DX,F1
MOV F2,DX
MOV F1,BX
LOOP L2

L1:RET
FB ENDP
DIS PROC
MOV AX,BX
MOV BX,0
MOV CX,10
L3: MOV DX,0
DIV CX
ADD DX,30H
MOV ARRAY[BX],DL
INC BX
CMP AX,0
JNZ L3

L4: DEC BX
MOV DL,ARRAY[BX]
MOV AH,02H
INT 21H
CMP BX,0
JNZ L4

DIS ENDP
MOV AH,4CH
INT 21H
CODE ENDS
END START