编程实现如下函数式

编写下列函数的实现程序：

    

DATA SEGMENT
X DB 064H ;测试值
Y DB 5 DUP(0)
DATA ENDS
STAK SEGMENT
DB 10 DUP(0)
STAK ENDS
CODE SEGMENT
      ASSUME DS:DATA,SS:STAK,CS:CODE
START: MOV AX,DATA
      MOV DS,AX
      MOV BL,BYTE PTR X
      CMP BL,0
      JG  NEXT
      ADD BL,10
      MOV BYTE PTR Y,BL
      JMP NEXT2
NEXT:CMP BL,10
      JG  NEXT1
      MOV DL,BL
      MOV BH,0
      MOV DH,0
      MOV CL,2
      SAL DX,CL
      MOV CL,4
      SAL BX,CL
      ADD BX,DX
      MOV WORD PTR Y,BX
      JMP NEXT2
NEXT1: SUB BL,19
       MOV BYTE PTR Y,BL
NEXT2:MOV DL, BYTE PTR Y
       MOV AH,02H
       INT 21H
       MOV AH,4CH
       INT 21H
CODE  ENDS
       END START