LIMPAGRANDE PROC
        MOV BX,0
bbbb:
        CMP CAMP[BX],'1'
        JE bbbc
        CMP CAMP[BX],'2'
        JE bbbc
        CMP CAMP[BX],'3'
        JE bbbc
        CMP CAMP[BX],'4'
        JE bbbc
        CMP CAMP[BX],'5'
        JE bbbc
        CMP CAMP[BX],49
        JE bbbc
        CMP BX,701
        JA bbbd
        INC BX
        JMP bbbb
bbbc:
        MOV CAMP[BX],'0'
        INC BX
        JMP bbbb
bbbd:
        RET
LIMPAGRANDE ENDP