'****************************************************************
'* 7Seg_x4.bas
'* Cuenta de 0000 a FFFF en cuatro Display's de 7 Segmentos
'* mediante Driver
'* RB0..RB3 Datos, RB4..RB7 Selector del Display multiplexado
'****************************************************************

@ DEVICE PIC16F628,WDT_OFF,PWRT_ON,MCLR_ON,BOD_OFF,CPD_OFF,PROTECT_OFF

Define		OSC 4

i Var byte
j Var byte
k Var byte
l Var byte

Inicio:
        TRISB  = %00000000   ' Todos los pines del PORTB a Salida
        Pause 1500           ' Espera 1.5 Segundos antes de comenzar
        
Loop:   
        for l=9 to 0 step -1
            for k=9 to 0 step -1
                for j=9 to 0 step -1
                    for i=9 to 0 step -1
                        Gosub Muestra
                    next i
                next j
            next k
        next l

        Goto Loop   

Muestra:
    PORTB = i
    PORTB.4=1 : PORTB.5=0 : PORTB.6=0 : PORTB.7=0 :Pause 4
    PORTB = j
    PORTB.4=0 : PORTB.5=1 : PORTB.6=0 : PORTB.7=0 :Pause 4
    PORTB = k
    PORTB.4=0 : PORTB.5=0 : PORTB.6=1 : PORTB.7=0 :Pause 4
    PORTB = l
    PORTB.4=0 : PORTB.5=0 : PORTB.6=0 : PORTB.7=1 :Pause 4
    return
    
End