LAX-4

 STACK:
    ldi     r16,LOW(RAMEND)
    out     SPL,r16
    ldi     r16,HIGH(RAMEND)
    out     SPH,r16
    call    CONFIG

;----------FLÖDE----------;

START:
    call    GETKEY
    call    F                   ;ÄR DET F?

PRINT:
    cpi     r16,10
    brmi    PRINTA              ;SKA BARA SKRIVA  UT 0-9
    rjmp    START

PRINTA:
    sbrc    r17,0               ;TOGGLE RIGHT OR LEFT?
    rjmp    LEFT
    rjmp    RIGHT

LEFT:
    out     PORTA,r16
    rjmp    START

RIGHT:
    out     PORTB,r16
    rjmp    START

;-------------------------;

F:
    cpi     r16,$0F
    brne    NO
    com     r17                 ;Yes - Toggle that shit

NO:
    ret

GETKEY:
    sbis    PIND,4
    rjmp    GETKEY
    in      r16,PIND
    andi    r16,$0F

RELEASE:
    sbic    PIND,4
    rjmp    RELEASE
    ret

CONFIG:
    ldi     r16,$00
    out     DDRD,r16            ;TANGENTBORD  STROBE PIN4
    ldi     r16,$FF
    out     DDRB,r16            ;HÖGERTOGGLE   0-4
    ldi     r16,$FF
    out     DDRA,r16            ;VÄNSTERTOGGLE  0-4
    ldi     r17,$00
    ret