LIMPAPEQUENO PROC
        MOV BX,0
aaaa:
        CMP CAMP[BX],'1'
        JE aaab
        CMP CAMP[BX],'2'
        JE aaab
        CMP CAMP[BX],'3'
        JE aaab
        CMP CAMP[BX],'4'
        JE aaab
        CMP CAMP[BX],'5'
        JE aaab
        CMP CAMP[BX],49
        JE aaab
        CMP BX,209
        JA aaac
        INC BX
        JMP aaaa
aaab:
        MOV CAMP[BX],'0'
        INC BX
        JMP aaaa
aaac:
        RET
LIMPAPEQUENO ENDP