;-----------------------------------------------------
; eliluci.asm - Luci per elicottero
; By Claudio Fin 11/12/2005
;-----------------------------------------------------
            PROCESSOR   12F675
            RADIX       DEC
            INCLUDE     "P12F675.INC"
            __CONFIG    00000110000100B
CL          EQU         32
CH          EQU         33
            ORG         0
            MOVLW       7
            MOVWF       CMCON         ;Porte digitali
            CLRF        GPIO          ;Azzera latch uscita 
            BSF         STATUS,RP0    ;Attiva banco 1
            CLRF        TRISIO        ;Tutte uscite
            BCF         STATUS,RP0    ;Ritorna al banco 0
MAINLOOP    MOVLW       00000110B
            MOVWF       GPIO          ;Luci laterali accese
            CALL        RIT1
            CLRF        GPIO          ;Luci spente
            CALL        RIT1
            CALL        RIT1
            MOVLW       00000001B
            MOVWF       GPIO          ;Luce coda accesa
            CALL        RIT1
            CLRF        GPIO          ;Luci spente
            CALL        RIT1
            CALL        RIT1
            CALL        RIT1
            CALL        RIT1
            CALL        RIT1
            CALL        RIT1
            GOTO        MAINLOOP
RIT1        CLRF        CL
            MOVLW       130
            MOVWF       CH
            DECFSZ      CL,F
            GOTO        $-1
            DECFSZ      CH,F
            GOTO        $-3
            RETURN
            END