.include "m128def.inc"



/********************************************* MACROK **********************************************************************/

.macro GOMB_BEALLIT
            ldi r16, 0x00000000
            sts DDRG, r16
.endmacro

.macro RGBLED_BEALLIT
            ldi r16, 0b10000000
            out DDRC, r16
            ldi r16, 0b1100
            out DDRE, r16
.endmacro

.macro STACK
            ldi r25,    HIGH(RAMEND)
            out SPH,    r25
            ldi r25,    LOW(RAMEND)
            out SPL,    r25
            clr r25
.endmacro

/***************************************************************************************************************************/

.org 0x00

.org 0x100

beallitasok:
        GOMB_BEALLIT
        RGBLED_BEALLIT
        STACK

start:

        lds r16,    PING
        sbrc    r16,    4
        rjmp    G4
        rjmp    start

/********************************************* Megnyomásra világít az RGB LED: *********************************************/

/*
G4:
        sbi PORTC,  7
        lds tmp,    PING

        sbrs    tmp,    4
        rjmp    kilepes
        rjmp    G4

        kilepes:
        cbi PORTC,  7
        rjmp    start
*/


/********************************************* Megnyomásra villog az RGB LED: **********************************************/

G4:
        lds     r16,    PING
        sbrs    r16,    4
        rjmp    start
        rjmp    villog

        villog:
        sbi     PORTC, 7
        call    delay
        cbi     PORTC, 7
        call    delay
        rjmp    G4

delay:
        ldi  r25, 0xFF
            ldi  r24, 0xFF
            ldi  r23, 0x1F

        delay_loop:
        dec  r25
        brne delay_loop
            dec  r24
            brne delay_loop
            dec  r23
            brne delay_loop
    ret

/***************************************************************************************************************************/