请问这个程序错在哪

data SEGMENT
    D1     DB 20
        DB ?
        DB 2 DUP(?)
    EMON DB 'JAN' ,'FEB','MAR','APR','MAY','JUN','JUL','AUG','SEP','OCT','NOV','DEC'
    crlf db 0dh,0ah
    CHAR DB 3 DUP(?),0DH,0AH,'$'
    D2 DB 'INPUT MONTH',0DH,0AH,'$'
    D3 DB ?
    errmsg db 'input error!','$'
data ENDS

code SEGMENT
ASSUME CS:code,DS:data,ES:data

MAIN PROC FAR
START:
    MOV AX,data
    MOV DS,AX
    MOV ES,AX

    CALL INPUT
    CALL LOCATE
    CALL DISPLAY
    ;JMP START
EXIT:MOV AH,4CH
    INT 21H
    RET
MAIN ENDP

INPUT PROC NEAR
    LEA DX,D2
    MOV AH,9
    INT 21H
    LEA DX,D1
    MOV AH,0AH
    INT 21H
    MOV AL,D1+2
    SUB AL,'0'
    cmp al,1
    ja mm
    MOV BL,10
    MUL BL
    MOV AH,D1+3
    cmp ah,0dh
    jz cr
    SUB AH,'0'   

    cmp ah,2
    ja err
    ADD AL,AH
mm:
    MOV D3,AL
    RET
cr:
    mov d3,1
    ret
err:
    mov dx,offset errmsg
    mov ah,9
    int 21h
   

    mov ah,4ch
    int 21h
INPUT ENDP

LOCATE PROC NEAR
    MOV AL,D3
    DEC AL
    MOV BL,3
    MUL BL
    MOV SI,0
    MOV BX,OFFSET EMON
    MOV AH,0
    ADD BX,AX
    MOV CX,3
LOP:   

    MOV AL,[BX+SI]
    MOV CHAR[SI],AL
    INC SI
    LOOP LOP
    RET
LOCATE ENDP

DISPLAY PROC NEAR
    LEA DX,crlf
    MOV AH,9
    INT 21H
    RET
DISPLAY ENDP

CODE ENDS
     END START