as                btfss    0x05,0
                  goto     $-1
                  btfsc    0x05,0    ;espera a que de ponga bajo ra,0
                  goto     $-1
                  movf     reg2,0
                  movwf    reg2
                  xorlw    .8
                  btfsc    3,2
                  goto    ver; as    ;va  a ver el resultado cuando conto 8 pulsos
                  call     us40
                  btfsc    0x05,0
                  goto     suma1

                  incf     reg2,0       ;suma 1 
                  movwf    reg2
                  incf     reg1,0      ,incrementa en el contador
                  movwf    reg1
                  rlf      reg1,1       ;rota un bit a la izquierda osea un uno
                  goto     as

suma1             incf     reg2,0    ;suma 1
                  movwf    reg2
                  rlf      reg1,1      ;rota un bit a la izquierda esta vez un 0
                  goto     as

ver               movf     reg1,0
                  movwf    reg1
                  movwf    0x08   ;saca el valor por rd
                  goto     as