Считывание слова максимальной длины

ASSUME  CS:KOM_,SS:STEK_,DS:DAN_
STEK_   SEGMENT STACK
    DW  10000 DUP (?)
DNOST_  DW  ?
STEK_   ENDS    
;int c;
;int max;
;int current;
;main ()
KOM_    SEGMENT 
_main   PROC    FAR
    MOV AX,DAN_
    MOV DS,AX
    MOV AX,STEK_
    MOV SS,AX
;{ 
;c = 0;
    LEA SP,DNOST_
    PUSH    BP
    MOV BP,SP
    MOV AX,0
;current = 0;
    MOV _c,AX
    MOV AX,0
;max = 0;
    MOV _current,AX
    MOV AX,0
;while(c!=27)
    MOV _max,AX
CC_1:       
    MOV BX,27
    MOV AX,_c
    CMP AX,BX
    MOV AX,1
    JNE CC_3
    SUB AX,AX
CC_3:       
;{
    TEST    AX,AX
    JNZ CC_4
    JMP CC_2
;c = getchar();
CC_4:       
    CALL    _getchar
;current = 0;
    MOV _c,AX
    MOV AX,0
;while((c!=27)*(c!=32))
    MOV _current,AX
CC_5:       
    MOV BX,27
    MOV AX,_c
    CMP AX,BX
    MOV AX,1
    JNE CC_7
    SUB AX,AX
CC_7:       
    PUSH    AX
    MOV BX,32
    MOV AX,_c
    CMP AX,BX
    MOV AX,1
    JNE CC_8
    SUB AX,AX
CC_8:       
    PUSH    AX
    POP BX
    POP AX
    IMUL    BX
;{
    TEST    AX,AX
    JNZ CC_9
    JMP CC_6
;current = current + 1;
CC_9:       
    MOV BX,1
    MOV AX,_current
    ADD AX,BX
;c = getchar();
    MOV _current,AX
    CALL    _getchar
;} 
    MOV _c,AX
    JMP CC_5
;if(current>max)
CC_6:       
    MOV BX,_max
    MOV AX,_current
    CMP AX,BX
    MOV AX,1
    JG  CC_10
    SUB AX,AX
CC_10:      
;max=current;
    TEST    AX,AX
    JNZ CC_12
    JMP CC_11
CC_12:      
    MOV AX,_current
    MOV _max,AX
;}
CC_11:      
    JMP CC_1
;putn(max);
CC_2:       
    MOV AX,_max
    PUSH    AX
;return;
    CALL    _putn
    POP BP
    MOV AH,4CH
;}
    INT 21H
;
_main   ENDP    
    INCLUDE std.asm
KOM_    ENDS    
DAN_    SEGMENT 
_c  DW  ?
_max    DW  ?
_current    DW  ?
DAN_    ENDS    
    END _main