请问这个程序的功能
CODE SEGMENT
ORG 100H
ASSUME CS:CODE,DS:CODE,ES:CODE,SS:CODE
MAIN PROC NEAR
MOV BX,-9765H
CALL DSUB
MOV AH,4CH
INT 21H
MAIN ENDP
DSUB PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
OR BX,BX
JNS NEXT1
MOV DL,2DH
MOV AH,2
INT 21H
NEG BX
NEXT1:MOV AX,BX
XOR CX,CX
NEXT2: XOR DX,DX
MOV BX,10
DIV BX
PUSH DX
INC CX
CMP AX,0
JNZ NEXT2
NEXT3:POP DX
ADD DL,30H
MOV AH,2
INT 21H
LOOP NEXT3
POP DX
POP CX
POP BX
POP AX
RET
DSUB ENDP
CODE ENDS
END MAIN