;CODE SEGMENT
    MOV DX,0
    MOV CX,0
PETLA:
    CMP CX,1000
    JE END
    MOV AH,[1000+CX]
    MOV AL,[2000+CX]
    AND AH,11110000B
    AND AL,11110000B
    ADD AL,AH
    CMP AL,10010000B
    JBE DALEJ
    ADD AL,01100000B
    CLC
    ADD DH,1
DALEJ:
    MOV DH,AL
    MOV AH,[1000+CX]
    MOV AL,[2000+CX]
    AND AH,00001111B
    AND AL,00001111B
    ADD AL,AH
    CMP AL,00000110B
    JBE DALEJ_2
    ADD AL,00000110B
    ADD DL,00000001B
DALEJ_2:
    ADD DH,AL
    MOV [3000+CX],DH
    XOR DH,DH
    MOV DH,DL
    XOR DL,DL
    INC CX
    JNE PETLA
END:
    NOP
;CODE ENDS
END